PSUOP6 ;BIR/REG - PSU PBM Outpatient Pharmacy Printer Output ;10 JUL 1999
Source file <PSUOP6.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Benefits Management | 3 | PSUOP0 PSUOP3 PSUOP4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EP | ;
|
|
PRTSUMS | ;
; Find first Division/Facility in the summary by division ; then DO the PRTALL routine |
|
PRTSUMX | ; EXIT PSUOP6
|
|
PRTALL | ; Print the Drug summary of all drugs by Division/Facility
|
|
PRTDRUG | ; Print the Drug summary by Drug by Division/Facility
; Set page number to 0 |
|
PRTAMIS | ;Print Amis summary report
|
|
PGHDR1 | ;AMIS HEADER
|
|
PGHDR | ;Increment page number and Write Page Heading
; Writes header lines 1 & 2, then page number, then lines 3 through 6 |
|
DIVNM | ;S PSUDIVNM FROM FILE 40.8 IF NOT IN FILE 59
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | PRTSUMS+4, PRTSUMS+6*, PRTSUMS+7*, PRTSUMS+8*, PRTSUMS+13, PRTSUMS+34, PRTSUMS+35*, PRTSUMS+36*, PRTSUMS+37*, PRTSUMS+38 , PRTALL+10, PRTALL+11, PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8 |
^XTMP("PSU_" | PRTSUMS+5*, PRTSUMS+15, PRTAMIS+6, PRTAMIS+8, PGHDR1+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D | DIVNM+1* |
>> DIC | PRTALL+1*, PRTDRUG+3*, DIVNM+1* |
>> DIC(0 | PRTALL+1*, PRTDRUG+3*, DIVNM+1* |
>> EXTD | EP+2, EP+4 |
>> EXTD(0 | EP+3, EP+5 |
>> I | PRTSUMS+18*, PRTALL+8*, PGHDR1+2*, PGHDR1+3*, PGHDR+3* |
IO | EP+6, PRTAMIS+2, PGHDR1+1, PGHDR+2 |
IOF | PRTSUMX+1, PRTALL+6, PRTAMIS+2, PGHDR1+1, PGHDR+2 |
IOSL | PRTDRUG+10, PRTAMIS+7 |
>> LNCNT | PRTAMIS+7, PRTAMIS+9*, PGHDR1+6* |
>> PSUDIVNM | PRTALL+2*, PRTALL+4, PRTALL+12, PRTDRUG+4*, PRTDRUG+6, PGHDR+5, DIVNM+2* |
>> PSUEDT | EP+4 |
>> PSUFACN | PRTSUMS+10*, PRTSUMS+13*, PRTSUMS+33*, PRTSUMS+38*, PRTALL+1, PRTALL+4, PRTALL+10, PRTALL+11, PRTDRUG+3, PRTDRUG+6 , PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8 |
PSUFIRST | PRTSUMS+12~, PRTALL+6, PRTALL+7* |
PSUH | EP+1~, PGHDR+8* |
PSUI | EP+1~ |
>> PSUJOB | PRTSUMS+3, PRTSUMS+5, PRTSUMS+15, PRTAMIS+6, PRTAMIS+8, PGHDR1+3 |
PSUL | EP+1~, PRTALL+9*, PRTALL+10*, PRTALL+11, PRTALL+12, PRTDRUG+8*, PRTDRUG+9*, PRTDRUG+11, PRTAMIS+5*, PRTAMIS+6* , PRTAMIS+8 |
PSUM | EP+1~ |
>> PSUMOD( | PRTSUMS+18* |
>> PSUMOD(1 | PRTSUMS+24, PRTSUMS+28 |
>> PSUMOD(2 | PRTSUMS+24, PRTSUMS+28 |
>> PSUOPSUB | PRTSUMS+3*, PRTSUMS+4, PRTSUMS+6, PRTSUMS+7, PRTSUMS+8, PRTSUMS+13, PRTSUMS+34, PRTSUMS+35, PRTSUMS+36, PRTSUMS+37 , PRTSUMS+38, PRTALL+10, PRTALL+11, PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8 |
>> PSUOPTS | PRTSUMS+18 |
PSUPGS | EP+1~ |
PSUPGS("PG" | PRTDRUG+2*, PRTAMIS+3*, PGHDR1+4, PGHDR1+5*, PGHDR+6*, PGHDR+7 |
>> PSURP("END" | EP+5*, PRTSUMS+6, PRTSUMS+35 |
>> PSURP("START" | EP+3*, PRTSUMS+6, PRTSUMS+35 |
>> PSUSDT | EP+2 |
>> PSUSMRY | PRTSUMS+32 |
>> PSUSNDR | PRTSUMS+6, PRTSUMS+7, PRTSUMS+8, PRTSUMS+35, PRTSUMS+36, PRTSUMS+37 |
>> X | PRTALL+1*, PRTALL+2*, PRTALL+4*, PRTDRUG+3*, PRTDRUG+4*, PRTDRUG+6*, DIVNM+2* |
>> Y | PRTALL+2, PRTDRUG+4, DIVNM+2 |