PSDEM1 ;BIR/LTL-Print NAOU Priority Order Report by Drug ;12/14/99 15:11
Source file <PSDEM1.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZISC $$FMTE^XLFDT |
VA Fileman | 2 | ^%DT ^DIR |
Controlled Substances | 1 | ^PSDEM3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ALL | ;loops for all drugs
|
|
SET | ;sets data
|
|
END | ;
|
|
HDR | ;lists header information
|
|
TOT | ||
NTOT | ||
START | ;entry point for report
|
|
DONE | ||
;prints data for stock drugs
|
||
GTOT | ;grand total
|
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 |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | PRINT+2 |
^PSD(58.8 - [#58.8] | SET+2, SET+4 |
^PSD(58.81 - [#58.81] | START+3, START+4, ALL+2, ALL+3, SET+1, SET+6, SET+7 |
^PSDRUG - [#50] | SET+3 |
^TMP("PSDNU" | START+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, END+4!, SET+9* |
^TMP("PSDNUG" | START+1!, END+4!, GTOT+2, SET+14* |
^TMP("PSDNUQ" | START+1!, END+4!, TOT, SET+13* |
^TMP("PSDNUQT" | START+1!, END+4!, NTOT, SET+11* |
^TMP("PSDNUS" | START+1!, END+4!, TOT, SET+12* |
^TMP("PSDNUT" | START+1!, END+4!, NTOT, SET+10* |
^VA(200 - [#200] | SET+8 |
Name | Line Occurrences |
---|---|
ALL | START+2 |
DONE | PRINT+1, PRINT+3 |
GTOT | PRINT+4 |
HDR | PRINT+3, PRINT+4, PRINT+7 |
NTOT | PRINT+4 |
START+2 | |
SET | START+4, ALL+3 |
TOT | PRINT+5 |
Name | Field # of Occurrence |
---|---|
^(0 | SET+3, SET+4, SET+8 |
^(1 | SET+7 |
^(4 | SET+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | END+1! |
%DT | PRINT+2*, END+1! |
%H | END+1! |
%I | END+1! |
%ZIS | END+1! |
ALL | START+2, END+1!, ALL+1 |
ANS | END+1! |
DA | END+1!, HDR+1! |
DATE | PRINT+6*, PRINT+8, END+1! |
DIR | DONE+1!, END+1!, HDR+1! |
DIR("A" | DONE+1* |
DIR(0 | DONE+1*, HDR+1* |
DIROUT | END+1! |
DIRUT | DONE+1!, END+1! |
DTOUT | END+1! |
DUOUT | END+1! |
IO("Q" | END+1! |
IOF | DONE, HDR+2 |
IOSL | PRINT+7 |
IOST | DONE, DONE+1, HDR+1 |
JJ | START+3*, START+4, PRINT+5*, PRINT+6, END+1!, ALL+2*, ALL+3, SET+9 |
JJ1 | START+3*, START+4, END+1!, ALL+2*, ALL+3 |
JJ2 | END+1! |
KK | START+4*, END+1!, ALL+3*, SET+1, SET+6, SET+7 |
LN | PRINT+2!*, END+1!, HDR+5 |
LOC | END+1! |
LOC( | START+3 |
NAOU | PRINT+4*, PRINT+5, PRINT+6, PRINT+7, END+2!, TOT |
NAOUN | END+2!, SET+4*, SET+9, SET+12, SET+13 |
NODE | PRINT+6*, PRINT+8, END+2!, SET+1*, SET+5 |
NUM | PRINT+5*, PRINT+6, PRINT+8, END+2! |
NURS | END+2!, SET+7*, SET+8*, SET+9 |
PG | PRINT+2*, END+2!, HDR+1, HDR+2* |
POP | END+2! |
PSD | END+2!, SET+1*, SET+2, SET+4 |
PSDATE | END+2!, HDR+4 |
PSDED | START+3, END+2!, ALL+2 |
PSDOK | END+2!, SET+2*, SET+10, SET+12, SET+14, SET+15* |
PSDOUT | PRINT+2*, PRINT+4, PRINT+5, PRINT+7, DONE+1, END+2!, HDR+1*, TOT, NTOT, GTOT+1 |
PSDPN | END+2!, SET+5*, SET+8, SET+9 |
PSDR | START+3*, START+4, PRINT+4*, PRINT+5, PRINT+6, END+2!, ALL+2*, ALL+3, HDR+3, TOT , NTOT, SET+3 |
PSDRN | END+2!, SET+3*, SET+9, SET+10, SET+11, SET+12, SET+13 |
PSDSD | START+3, END+2!, ALL+2 |
>> PSDSITE | SET+2 |
PSDT | END+2! |
PSDTR | END+2! |
QTY | END+2!, SET+5*, SET+6*, SET+9, SET+11, SET+13 |
RPDT | PRINT+2*, END+2!, HDR+2 |
SUM | PRINT+1, END+2! |
X | PRINT+2*, END+2! |
Y | PRINT+2, END+2!, HDR+1 |
ZTDESC | END+3! |
ZTDTH | END+3! |
ZTIO | END+3! |
>> ZTQUEUED | END+5 |
>> ZTREQ | END+5* |
ZTRTN | END+3! |
ZTSAVE | END+3! |
ZTSK | END+3! |