NPR Report Writing Info

• Using ECE alone
  
  • ECE-ALON.PP.PAY.zcus.hab.foundation.donat.info.html Produces a date when the withholding was first withheld, within the date range for the report.
    
    
• Reports using ECE and ECB
  
  • ECE-ECB1-PHA.RX.zcus.hab.ingredients.ece.ecb.html Reviews patient's Rxs and lredients of medications
    
  • OE.ORD.zcus.hab.order.activity.pt.date - List PHA dose instructions on orders entered through POM.
    
  • Using ECB/ECE to list child segment of different segment
  • Using ECB/ECE to list user selected LI input when report started
    

 Footnote:AL D IF{'DATE @pay.date^DATE} 
 Computed field: xx.first.date       
                 DAT=DATE       
                 LEN=8       
                 VAL=DATE     
 Line attribute on the line with the computed field:  ECE=""^DATE

• Basics
  
• Types
  

• Reports using fragments have 2 parts
  • Part 1 - Main report which calls the fragment
  • Part 2 - Fragment - Report which acts as a subroutine of the main report
    • Tip: When naming fragments, include frag in name. Less likely someone will say, this doesn't work, and delete it. Example: PHA.RX.zcus.hab.frag.pull.meds
    • Running a fragement without the main report - will crash
• Program %Z.rw.fragment(A,B) Runs from main report
  • A = Name of report fragment
  • B = Database report fragemnt will access.
  • Example call: %Z.rw.fragment("DPM.NAME.zcus.frag.rpt.name.R"."NCH.PHA.N")
• Fragments halt the execution of the main report. Once the report fragment finishes, the main report resumes processing.

• Type 1 - Retrieve Data
• Type 2 - Show/Print Data
• Type 3 - Sorting and Selecting Data

1. ADM.PAT.zcus.jfb.ss02.frag.1
2. Payroll - report
3. MIS.USER.zcus.hab.access.by.module.fast Uses method for faster fragments

• ADM.PAT.zcus.jfb.ss02.frag.1 (main report)
  
• ABS.PAT.zcus.jfb.ss02.frag.get.pdx (fragment)
  
• BAR.PAT.zcus.jfb.ss02.frag.get.bal (fragment)
  

• Name: ADM.PAT.zcus.jfb.ss02.frag.1 Full Report
  
• Footnote: AL D call.frag (calls macro)
• Macro

  @acct.number^/R.ACN,
  %Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.get.pdx.R","ABS.NCH"), MOVE(/R.FRAG.VAL,/MUSE),
  @acct.number^/R.ACN,
  %Z.rw.fragment("BAR.PAT.zcus.jfb.ss02.frag.get.bal.R","BAR.NCH")
  
  Explanation of macro - Notice comma after each line except last line.
  1) /R. Recommended format to store info.
  2) @acct.number^/R.ACN, - Takes account number and stores it into /R.ACN
  3) Calling Frag %Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.get.pdx.R","ABS.NCH"),
  

  %Z.rw.fragment = Z routine to call fragment
  %Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.get.pdx.R","ABS.NCH") = Name of report that is a fragment and database where info is stored.
  Note: Report name and data base both in quotes
  Note: ".R" at the end of report name
  Note: "," used to separate report from database
  Note: Parenthesis enclose ("reportname.r","database")
  

  4) MOVE(/R.FRAG.VAL,/MUSE), Very important - Note the macro starts another fragment. Within each fragment is the code /R.FRAG.VAL. When another fragment is started, any previous value stored in /R.FRAG.VAL is erased. The above code saves that value into /MUSE[SUBSCRIPT]. In this example it ends up being VAL=/MUSE["PDX"]
  ** If desired ** Instead of using MOVE command, could use: /R.FRAG.VAL["PDX"]^/PDX (Value in computed field would be: VAL=/PDX
  5) 2nd Fragment: Second fragment is started. note, last line - no comma.
  
  

• Computed Fields in Main Report
  Each value that is pulled from the fragments is printed using a computed field. This data is stored in /R.FRAG.VAL["SUBSCRIPT"] or as a variable to which the /R.FRAG.VAL was moved to: i.e. VAL=/MUSE["PDX"] or VAL=/PDX (see above)
  Computed fields used
  

  xx.balance	= [COMMA=Y, DAT=SMONEY, JFY=R, LEN=10, VAL=/R.FRAG.VAL["BAL"]]
  xx.total	= [COMMA=Y, DAT=SMONEY, JFY=R, LEN=10, VAL=/R.FRAG.VAL["TOT"]]
  xx.bar.adt	=[DAT=DATE, JFY=L, LEN=8, VAL=/R.FRAG.VAL["ADT"]]
  xx.pdx	=[DAT=FREE, JFY=L, LEN=6, VAL=/MUSE["PDX"]]

  
  

• Name ABS.PAT.zcus.jfb.ss02.frag.get.pdx Full Report
  This fragment returns just one value. The 2nd fragment from BAR.PAT returns multiple values.
  Uses a footnote: Footnote: AL D @prin.dx^/R.FRAG.VAL["PDX"]
  Although Detail set to "N" - it still processes the detail segment
  

• Name: - BAR.PAT.zcus.jfb.ss02.frag.get.bal Full Report
  This Fragment returns multiple values which are stored in an array.
  
• Footnote: AL D get.data
  
• Macro Name=get.data Values stored in subscripts otherwise /R.FRAG.VAL is erased.
  @balance^/R.FRAG.VAL["BAL"],
  @chg.total^/R.FRAG.VAL["TOT"],
  @adm.date^/R.FRAG.VAL["ADT"]
  

IF{XX;
   1^XX,
   %Z.rw.fragment("PP.PER.zcus.hab.frag.mis.user.fast.R","PP.NCH")}

xx.flag             EQ
    "Y"

1  xx.emp.initials       LI
        /R.INIT

1. ADM.PAT.zcus.jfb.ss02.frag.2

• ADM.PAT.zcus.jfb.ss02.frag.2 (main report)
• BAR.PAT.zcus.jfb.ss02.show.data (fragment)
• ABS.PAT.zcus.jfb.ss02.show.data (fragment)

• Report name: ADM.PAT.zcus.jfb.ss02.frag.2 Full Report
  
• Page 2 Sort and Select fields - Note: - No select field - pulls all inpatients. User could use slect fields.
• Page 3 - Report layout :
  
• Footnote: AL AFTER.D show.data     After the detail region, the macro show.data in started.
  
• Macro Name = show.data Notice the different between type 1 - values to be returned are not stored. Rather, when the report is run, data on the fragments detail lines is returned directly to the main report.
  @acct.number^/R.ACN,
  %Z.rw.fragment(" BAR.PAT.zcus.jfb.ss02.show.data.R","BAR.NCH"),
  @acct.number^/R.ACN,
  %Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.show.data.R","ABS.NCH")
  

• Report name: BAR.PAT.zcus.jfb.ss02.show.data Full Report
  
• Page 1 Report Detail segment info: * Note: Detail is N, but we will use TK1 and TK2 lines.
• Page 2 Sort and Select fields Sorts 1 account, 2 room both have trailers.
• Select Field/Prompt or Value number EQ /R.ACN, txn.class EQ "C"
• Page 3 - Report layout :
• Detail line:
  

   REG  0---------1---------2---------3---------4---------5---------6---------7-----
   TK2         dept___________ dept.name_____________________ txn.   __txn.amount
   TK1                                                        txn.   __txn.amount
  

• Footnote: There is no need for footnote. Data stored on TK2 and TK1 lines is sent directly to main report when macro of main report is called.

• Report name: ABS.PAT.zcus.jfb.ss02.show.data Full Report
  
• Page 1 Report Detail segment info: * Note: Detail is used. Previous macro - did not use detail- used TK1
  
• Select Field/Prompt or Value account.number EQ /R.ACN
• Page 3 - Report layout :
  
• Detail line:
  

   REG A 0---------1---------2---------3---------4---------5---------6---------7-----
   D                dx_____   dx.name__________________________________________
  

• Footnote:
  AL D @drg.grouper.version^drg.grouper.version
  Note: To print diagnosis, version is required. The footnote takes the @drg.grouper.version and assigns the value to drg.grouper.version. notice the 2nd part doesn't have the @ sign.

1. ABS.DRG.zcus.jfb.ss02.top.ten
2. Add More Here

• ABS.DRG.zcus.jfb.ss02.top.ten (main report)
• ABS.PAT.zcus.jfb.ss02.frag.build.stats (fragment)

• Report name: ABS.DRG.zcus.jfb.ss02.top.ten Full Report
• Page 1 Report Detail segment info: Detail is set to Y
• Selects

  1. version          LS
       "99"
  2. xx.count         GE
       Minimum count
  3 xx.date1      IG  
         Discharge Dates from  
  4 xx.date2      IG  
         Discharge Dates thru  
  

  Note: LS operator is last value in list. Current version in May 2002 is 19. Therefore, the report takes the last number in the list that is less than 99.
  
• Detail line:
     D     cod name__________________________________________________________________ xx.c
  
• Footnote:
  AL START build.stats     At start of report, build stats (before detail)
  
• Computed Fields
  xx.count    [DAT=PINT, JFY=R, LEN=4, VAL=/R.FRAG.VAL[@code]]
  xx.date1     [DAT=DATE, JFY=L, LEN=8, VAL=c.xx.date1]]
  xx.date2     [DAT=DATE, JFY=L, LEN=8, VAL=c.xx.date2]]
  
• Macro Name = build.stats
  c.xx.date1^/R.DATE1,
  c.xx.date2^/R.DATE2,
  %Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.build.stats.R","ABS.NCH")
  
  

• Report name: ABS.PAT.zcus.jfb.ss02.frag.build.stats Full Report
• Page 1 Report Detail segment info: Detail = "N"
• Selects

  1 pt.status      EQ 
         "IN" 
  2 dis.date      GE 
         /R.DATE1 
  3 dis.date      LE 
         /R.DATE2 
  

• Detail line:Detail line is blank
• Footnote: AL D @Add(1,/R.FRAG.VAL[@drg]),IF{XX+1^XX\20=0 .^#}
  Explantion:
  AL D    Algorhythym at detail line
  @Add(1,/R.FRAG.VAL[@drg]) This portion does the counting. Everytime it finds specific drg, that count is stored with the in the /R.FRAG.VAL[@drg]. Example: if drg = 202, it would add one to the value of /R.FRAG.VAL[202]. NOTE: When pulling this info in the main report we do not use @drg. The computed field xx.count written in DPM ABS.DRG, @code is the DRG number. Versus in ABS.PAT the code is stored as @drg.
  IF{XX+1^XX\20=0 .^#}    This code adds 1 each time a record is selected. the "\" means remainder of division. Therefore, if the value of XX divided by 20, has a remainder of zero, a . is printed on the screen
  
• Macro
  No macro is needed. Data is being stored in the /R.FRAG.VAL[DRG]

1. Create footnote: AL D ivadd - this footnote will call the macro
   
2. create macro
   
   Enter/Edit Macro Logic: PHA.RX.zcus.hab.test.horz.mult.array.M.ivadd
   ; nil out our /IVADD array so we don't carry over values from one record to the next.
   DO{+/IVADD[SUB]^SUB ""^/IVADD[SUB]},
   ;set the value of the query, nil out the additive.q, set one to our array subscript.
   ""^additive.q,
   1^CT,
   ; loop on the query response multiple
   DO{@Next(additive.q) @SET}
   
   SET
   ; load the additive into the variable RSP
   @PHA.RX.additive^RSP,
   ;
   ;Check the length of our current array value concantenated with a comma,
   ;a space and the current response.
   ;If the length of this new value has less than 70 characters, then concatenate a comma,
   ;a space and the response to the current array value
   ;
   ;If the value is 70 or maore characters in length, place a comma at the end of the
   ;current array value and increment our array subscript to build a new value
   ; into the array
   IF{L(/IVADD[CT]_", "_RSP)<70 /IVADD[CT]_", "_RSP^/IVADD[CT];
   /IVADD[CT]_","^/IVADD[CT],
   1+CT^CT,/IVADD[CT]_", "_RSP^/IVADD[CT]}
   ;end of macro
   
   
3. Create fields
   
   • xx.additive
     DAT=FREE
     JFY=L
     LEN=70
     VAL=/IVADD[1]%1
     
     
   • xx.add2
     DAT=FREE
     JFY=L
     LEN=70
     VAL=/IVADD[QUE]%1
     
   
   
4. Put fields on report - See below. Notice how xx.add2 is directly below xx.additive.
   
   D       patient's.name________________ number_____ med_______
   D         xx.additive___________________________________________________________
   D   *    xx.add2_______________________________________________________________
   
   
5. Enter line attribute Line: xx.add2
   ECB=1^QUE,DO{+/IVADD[QUE]^QUE .,
   ECE=.},
   

• Functional Attributes
• Display Attributes
• Field Attributes

DAT=SMONEY, FNC=TOT, JFY=R, LEN=10
VAL=IF{0^TOT,""^vt.urn,DO{@Next(vt.urn) @vt.total.amount+TOT^TOT},TOT}
WITH=D

xx.room.bed                                LI
     Room-bed (Example: 203-1)

Index Name/Internal Name/Detail Seg   Physical Base/Subscripts/Detail Segment Internal Name
------------------------------------  ---------------------------------------------------
pha.drug.dict.generic.index           &TFG[tdg,tf] = active
generic.x                             [generic,mnemonic]
pha.drug.dictionary                   main

Code:
VAL=IF{+@PHA.DRUG.generic.x[mnemonic,XXX] "Y"}

Important:  The [mnemonic] above is referencing the Generic Name mnemonic in PHA.GENERIC dictionary
(mnemonic in PHA.Generic = generic in PHA.DRUG).
mnemonic                      10 FREE      L                  tdg
It is being used to seed the [generic,mnemonic] subscripts in the pha.drug.dict.generic.index. 

DAT=SMONEY
FNC=TOT
JFY=R
LEN=10
VAL=IF{0^TOT,""^vt.urn,DO{@Next(vt.urn) @vt.total.amount+TOT^TOT},TOT}
WITH=D

IF{@enter.user^EU,""^PHA.ACCESS.mnemonic^P,
   DO{@Next(PHA.ACCESS.mnemonic,PHA.ACCESS.main) ""^PHA.ACCESS.user,
                                                 DO{@Next(PHA.ACCESS.user,PHA.ACCESS.users) 1,
IF{@PHA.ACCESS.user=EU @PHA.ACCESS.pharmacist^P}}},P}

""^PSC^IMM^DCVS^DCPS^DCRN^DCMD^DCUN^DCVS^TRRN^TRANS,
IF{""^ta.intervention,
   DO{@Next(ta.intervention) 1,
    ""^ta.date,DO{@Next(ta.date) 1,
    ""^ta.time,DO{@Next(ta.time) 1,
    ""^ta.ctr,DO{@Next(ta.ctr) 1,
""^ta.query,DO{@Next(ta.query) IF{ta.query="EDMPS" @ta.value^PSC;
ta.query="EDMIMM" @ta.value^IMM;
ta.query="NURT" "T:"_@ta.value^DCVS;
ta.query="NURBP" DCVS_" BP:"_@ta.value^DCVS;
ta.query="NURP" DCVS_" P:"_@ta.value^DCVS;
ta.query="NURSAO2" DCVS_" O2:"_@ta.value^DCVS;
ta.query="EDMDCPAINS" @ta.value^DCPS;
ta.query="EDMINSTRN" @ta.value^DCRN;
ta.query="EDMINSTMD" @ta.value^DCMD;
ta.query="EDMINSTUN" @ta.value^DCUN;
ta.query="EDMNDCTRA" @ta.value^TRANS}}}}}}},
IF{"AATRIAGE4"^ta.intervention,
   ""^ta.date,DO{@Next(ta.date) 1,
   ""^ta.time,DO{@Next(ta.time) 1,
   ""^ta.ctr,DO{@Next(ta.ctr) @MIS.USER.name[@ta.user]^TRRN}}}}

 Detail DPM      BAR.PROC                    Detail Segment  bar.proc.dict
 Index DPM       BAR.PROC                    Index File      bar.proc.dict.dept.index

VAL=IF{@.today+1^std.effective.date,@Prev(std.effective.date),
VAL=@std.effective.date.charge}

@Prev Example 2 
VAL=IF{"CPT-W/MOD"^alt.code.type,@.today+1^alt.code.eff.date,@Prev
VAL=(alt.code.eff.date),@alt.code}

Same report as above, however, this code looks into a grandchild segment:
   SEGMENT: bar.proc.dict.alt.cd.eff.dates
SUBSCRIPTS: [mnemonic,alt.code.type,alt.code.eff.date]

Detail DPM      PHA.RX                      Detail Segment  pha.rx.file
Index DPM       PHA.RX                      Index File      pha.rx.start.date.x

Data desired is in Child segment:
   SEGMENT: pha.rx.transactions
SUBSCRIPTS: [urn,txn.date,txn.q]

VAL=IF{@First(txn.date)^txn.date,@First(txn.q)^txn.q,@txn.type.out}
(Field pulls the txn type name for 1st rx txn)

Index Name/Internal Name/Detail Seg   Physical Base/Subscripts/Detail Segment Internal Name
adm.pat.discharge.index               :AADI[gqb,aaDDT,aaDTM,aa] = 1
     discharge.index                       [facility,discharge.date,discharge.time,urn]
     adm.patient.file                      main

Index Name/Internal Name/Detail Seg   Physical Base/Subscripts/Detail Segment Internal Name
oe.adm.room.bed.index                 *AARB[gqb,ggr,hrmB] = patient
     adm.room.bed.index                    [facility,room,bed]

Detail DPM      NUR.PC.WORK                 Detail Segment  nur.pc.work.activity
Index DPM       OE.ORD                      Index File      oe.adm.room.bed.index

   Sort Field                                 Order  Header  Traile
1  xx.name.form                                ASC    NONE      Y
2  mnemonic                                    ASC    NONE      N

TK1  L  xx.name.form______________________________________nt: count
TR
TR   L    xx.name_______________________     xx.cou
TR   L    xx.name_______________________     xx.cou

Line Checks
1 LC=""
3 LC=1^NUM
  MV=TR
4 LC=NUM+1^NUM'>100

Explanation: Line 1, keeps the TK1 from printing, therefore only sorted summary prints
Line 3 - Setting up name of MV array (TR)
Line 4 - Limiting to 100 items (top 100)

IF{/V[2]>5 /V[2]^COUNT,
           999999-COUNT_@name_@dispense.form^SRT,
           /V[1]^/MV["TR",SRT,3],
           COUNT^/MV["TR",SRT,4];""}

PHA RULE: ED.DUP.MED - Data fields from RX, evaluate at MED
IF{[f pt location]="ER"&([f pt status]="REG ER") 1,
IF{[f z user mis office]="INFO SYS"!([f z user mis office]="PHARMACY") 1,
[f rx win init],
[f z chk.med.mnem.dup],
[f rx win disp],1;[f rx ok]};1};

 Custom Keyword: 
{@Z.rpt.fragment}^SV.F,{1}^{@Z.rpt.fragment},
@PHA.DRUG.mnemonic^/ZRPT.MED,
%PHA.RX.zcus.hab.frag.rule.edm.dup.mnem.R("")X,
""^/ZRPT.MED,
SV.F^{@Z.rpt.fragment},""^SV.F

@urn^/R.URN,
%Z.rw.fragment("PHA.RX.zcus.hab.frag.shows.rxs.R","PHA.NCH.N"),
%Z.rw.fragment("LAB.L.SPEC.zcus.hab.frag.inr.R","LAB.NCH")

IF{'/ONE 1^/ONE,
         1^/Z.SCHED.LOG,
         %Z.printer.open.px("S")},
"PP.PER.zcus.hab.email.pers.chg";

%Z.rw.fragment("ADM.PAT.zcus.hab.rx.frag.inp.R","ADM.NCH"),
MOVE(/R.FRAG.VAL,/PATS),
;Note; top two lines of macro do not deal with security. Rather a report 
;is run which pulls the current patients in the room and bed index. Speeds up Report
;Although not mentioned above, on page 2 there is a select: patient  LI /PATS
;1st macro determines current inpatients through room and bed index and returns
;them in a frag footnote: AL D @urn^/R.FRAG.VAL[@urn]  (Hence the need to move)
%Z.rw.fragment("MIS.LOCN.DICT.zcus.hab.access.device.R","MIS")

Detail DPM      MIS.LOCN.DICT               Detail Segment  mis.locn.dict.terminals
Index DPM       MIS.LOCN.DICT               Index File      mis.locn.dict.term.index

@mnemonic^LOC,
IF{LOC="2EAST"!(LOC="2WEST") 1^/R.FRAG.VAL["2EAST"],
                             1^/R.FRAG.VAL["2WEST"];
   LOC="FC"!(LOC="OB")!(LOC="OBI") 1^/R.FRAG.VAL["FC"],
                                   1^/R.FRAG.VAL["OB"],
                                   1^/R.FRAG.VAL["OBI"];
   LOC="ARU" 1^/R.FRAG.VAL["ARU"];
   LOC="ICU" 1^/R.FRAG.VAL["ICU"];
   LOC="NUR" 1^/R.FRAG.VAL["NUR"],1^/R.FRAG.VAL["SCN"]}

        @patient's.name           EQ
               "DOE,JOHN"