Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDPND

Package: Controlled Substances

Routine: PSDPND


Information

PSDPND ;BIR/BJW-Pharm Dispensing Report ; 18 Jun 98

Source Information

Source file <PSDPND.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  (D,Y)^DIQ  ^DIR  
Controlled Substances 3 VER^PSDOPT  PRINT^PSDPND1  ^PSDSET  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD PRINT PHARM DISP  

Entry Points

Name Comments DBIA/ICR reference
START ;compile data
END ;
PRT
SUM ;if sum only
DEV ;dev & queue info
ASKD ;ask disp loc
DATE ;ask date range
SAVE

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+3
^%ZTLOAD DEV+4
^DIC ASKD+5
D^DIQ DATE+2, DATE+4
Y^DIQ DEV+2, START+18
^DIR SUM+3
VER^PSDOPT START+19
PRINT^PSDPND1 PRT
^PSDSET PSDPND+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS reports.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDPND+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
Routine Call
  • DIR
  • Line Location:
    • SUM+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+14
^DD(58.8 DEV+2
^DD(58.81 START+18
^PSD(58.8 - [#58.8] DEV+2, START+4
^PSD(58.81 - [#58.81] START+2, START+3, START+6, START+8, START+12, START+15, START+16
^PSDRUG - [#50] START+5
^PSRX - [#52] START+16, START+17
^PSRX("B" START+20
^TMP("PSDND" START+1!, START+22*, END+3!
^TMP("PSDNDT" START+1!, START+9*, START+10*, END+3!
^VA(200 - [#200] START+13
^XUSEC("PSJ PHARM TECH" PSDPND+5
^XUSEC("PSJ RPHARM" PSDPND+5

Label References

Name Line Occurrences
DATE ASKD+2, DATE+3
END ASKD+5, DATE+1, DATE+2, SUM+3, DEV+3, DEV+4
SAVE DEV+4

Naked Globals

Name Field # of Occurrence
^(0 START+4, START+5, START+13, START+16
^(1 START+12
^(4 START+6
^(5 START+8
^(6 START+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT DATE+1!*, END+1!
%DT("A" DATE+1*, DATE+2*
%H END+1!
%I END+1!
%ZIS DEV+3!*, END+1!
%ZIS("B" DEV+3*
C DEV+2*, START+18!*, END+1!
DA ASKD+3!, SUM+1!, END+1!
DIC ASKD+3!*, ASKD+5!, END+1!
DIC("A" ASKD+4*
DIC("B" ASKD+4*
DIC("S" ASKD+3*
DIC(0 ASKD+3*
DIR SUM+1!, SUM+3!, END+1!
DIR("?" SUM+2*
DIR("A" SUM+1*
DIR("B" SUM+1*
DIR(0 SUM+1*
DIROUT END+1!
DIRUT SUM+1!, SUM+3, END+1!
DRUG START+5*, END+1!
DRUGN START+5*, START+9, START+10, START+22, END+1!
DTOUT END+1!
DUOUT END+1!
DUZ PSDPND+5
IO DEV+5
IO("Q" DEV+3!, DEV+4!
IOP DEV+3!
JJ START+2*, START+7, START+15, START+16, END+1!
LN END+1!
NAOU START+4*, END+1!
NAOUN START+4*, START+8*, START+20*, START+22, END+1!
NODE START+3*, START+4, START+5, START+6, START+11, START+14, END+1!
NUM END+1!
OK PSDPND+5*, PSDPND+6!, END+1!
PG END+2!
PHARM START+11*, START+12*, START+13, END+2!
PHARMN START+13*, START+22, END+2!
POP DEV+3!, END+2!
PSD START+2*, END+2!
PSDA START+2*, START+3, START+6, START+8, START+12, START+15, START+16, START+22, END+2!
PSDATE DATE+2*, DATE+4*, END+2!
PSDDT START+14*, START+22, END+2!
PSDED DATE+4*, START+2, END+2!
PSDEV DEV+2*, DEV+3, END+2!
PSDOUT DATE+1*, DATE+2*, END+2!
PSDPN START+3*, START+7, START+11*, START+16*, START+20, START+22, END+2!
PSDRXIN START+19*, START+21!
PSDS ASKD+1*, ASKD+6*, DEV+2, START+2, END+2!
PSDSD DATE+2*, DATE+3, DATE+4*, START+2, END+2!
>> PSDSITE PSDPND+4, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN ASKD+1*, ASKD+6*, END+2!
PSDST START+14*, END+2!
PSDSTA START+20, START+21!
PSOVR START+21!
PSRX START+16*, START+17, START+19, END+2!
PSRXP START+17*, START+18, START+20, END+2!
QTY START+6*, START+7*, START+8*, START+10, START+22, END+2!
SUM SUM+3*, START+10, END+2!
U ASKD+1, ASKD+2, ASKD+4, ASKD+6
X END+2!
Y ASKD+5, ASKD+6, DATE+1, DATE+2, DATE+3, DATE+4, SUM+3, DEV+2*, START+14*, START+18*
, START+20, END+2!
ZTDESC DEV+4*, END+2!
ZTDTH DEV+4!, END+2!
ZTIO DEV+4!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+4*, END+2!
ZTSAVE DEV+4!, END+2!
ZTSAVE("PSDATE" SAVE*
ZTSAVE("PSDED" SAVE*
ZTSAVE("PSDS" SAVE*
ZTSAVE("PSDSD" SAVE*
ZTSAVE("PSDSN" SAVE*
ZTSAVE("SUM" SAVE*
ZTSK DEV+4!, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All