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: PSDRDR

Package: Controlled Substances

Routine: PSDRDR


Information

PSDRDR ;BIR/BJW-Narc Disp/Rec Report (reprint VA FORM 10-2321) ; 12 Feb 98

Source Information

Source file <PSDRDR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^%DT  (,IX)^DIC  (D,Y)^DIQ  ^DIR  
Controlled Substances 3 START^PSDRDR1  TYPE^PSDRPT  ^PSDSET  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD REPRINT 2321  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask naou or green sheet number
END
SUM ;if ret-to-stock or turn in for dest
DEV ;ask device and queue info
ASKD ;ask dispensing location
DATE ;asks date range if naou is selected
COPY ;ask vault, nursing or both
SAVE
NAOU ;sel naou

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+3
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+2
^%ZTLOAD DEV+4
^DIC ASKD+5, NAOU+2
IX^DIC ASKN+4
D^DIQ DATE+3, DATE+5
Y^DIQ DEV+2
^DIR SUM+3, COPY+4, ASKN+3
START^PSDRDR1 DEV+5
TYPE^PSDRPT SUM+3
^PSDSET PSDRDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDRDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !,"No report will be printed.",!
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!!
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"Please enter the DATE and TIME period you wish to reprint data for this report",!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+4
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
    • NAOU+2
Routine Call
  • DIR
  • Line Location:
    • SUM+3
    • COPY+4
    • ASKN+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ASKN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] NAOU+4, DEV+2
^TMP("PSDRDR" END+2!
^XUSEC("PSJ PHARM TECH" PSDRDR+4
^XUSEC("PSJ RPHARM" PSDRDR+4

Label References

Name Line Occurrences
DATE DATE+4
DEV ASKN+4
END ASKD+5, SUM+3, COPY+5, ASKN+3, ASKN+4, NAOU+3, DATE+2, DATE+3, DEV+3, DEV+4
SAVE DEV+4
SUM ASKD+2

Naked Globals

Name Field # of Occurrence
^(0 NAOU+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT DATE+2!*
%DT("A" DATE+2*, DATE+3*
%H END!
%I END!
%ZIS DEV+3!*, END!
%ZIS("B" DEV+3*
C DEV+2*, END!
COMM END!
COPY END!
D ASKN+4*, END!
DA ASKD+3!, SUM+1!, COPY+1!, ASKN+1!, ASKN+4!, END!
DIC ASKD+3!*, ASKD+5!, ASKN+4!*, NAOU+2*!, END!
DIC("A" ASKD+4*, ASKN+4*, NAOU+2*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, ASKN+4*, NAOU+2*
DIC(0 ASKD+3*, ASKN+4*, NAOU+2*
DIR SUM+1!, SUM+3!, COPY+1!, COPY+4!, ASKN+1!, ASKN+3!, END!
DIR("?" SUM+2*, COPY+3*, ASKN+2*
DIR("A" SUM+1*, COPY+2*, ASKN+1*
DIR("B" SUM+1*
DIR(0 SUM+1*, COPY+1*, ASKN+1*
DIROUT END!
DIRUT SUM+1!, SUM+3, COPY+1!, COPY+5, ASKN+1!, ASKN+3, END!
DIWF END!
DIWL END!
DIWR END!
DRUG END!
DRUGN END!
DTOUT END!
DUOUT END!
DUZ PSDRDR+4
EXP END!
EXPD END!
FLAG END!
IO DEV+5
IO("Q" DEV+3!, DEV+4!
IOP DEV+3!
LN END!
LOOP END!
LOT END!
MFG END!
NAOU NAOU+3, END!, SAVE+1
NAOU( NAOU+2*, NAOU+4*
NAOUN END!
NODE END!
NUM END!
OK PSDRDR+4*, PSDRDR+5!, END!
ORD END!
ORDN END!
PG END+1!
PHARM END+1!
PHARMN END+1!
POP DEV+3!
PSD NAOU+4*, END+1!
PSDA ASKN+4*, END+1!, SAVE+1
PSDATE DATE+3*, DATE+5*, END+1!
PSDCPY COPY+6*, END+1!
PSDDT END+1!
PSDED DATE+5*, END+1!
PSDEV DEV+2*, DEV+3, END+1!
PSDN END+1!
PSDNA END+1!
PSDOUT DATE+2*, DATE+3*, END+1!
PSDS ASKD+1*, ASKD+6*, NAOU+4, DEV+2, END+1!
PSDSD DATE+3*, DATE+4, DATE+5*, END+1!
>> PSDSITE PSDRDR+3, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN ASKD+1*, ASKD+6*, END+1!
PSDST END+1!
QTY END+1!
REC END+1!
RECN END+1!
REQD END+1!
REQDT END+1!
RPDT END+1!
SEL ASKN+3*, ASKN+4, END+1!
SUM SUM+3*, END+1!
TEXT END+1!
U ASKD+1, ASKD+2, ASKD+4, ASKD+6
X NAOU+3, NAOU+4, END+1!
Y ASKD+5, ASKD+6, SUM+3, COPY+6, ASKN+3, ASKN+4, NAOU+2, DATE+2, DATE+3, DATE+4
, DATE+5, DEV+2*, END+1!
ZTDESC DEV+4*, END+1!
ZTDTH DEV+4!, END+1!
ZTIO DEV+4!, END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+4*, END+1!
ZTSAVE DEV+4!, END+1!
ZTSAVE("NAOU(" SAVE+1*
ZTSAVE("PSDA" SAVE+1*
ZTSAVE("PSDATE" SAVE*
ZTSAVE("PSDCPY" SAVE*
ZTSAVE("PSDED" SAVE*
ZTSAVE("PSDS" SAVE*
ZTSAVE("PSDSD" SAVE*
ZTSAVE("PSDSN" SAVE*
ZTSK DEV+4!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All