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 |  Local Variables  | All
Print Page as PDF
Routine: PSDPDR

Package: Controlled Substances

Routine: PSDPDR


Information

PSDPDR ;BIR/BJW-Narc Disp/Rec Report (in lieu of VA FORM 10-2321) ; 09 FEB 95

Source Information

Source file <PSDPDR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  Y^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 2 START^PSDPDR1  ^PSDSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD PRINT 2321  

Entry Points

Name Comments DBIA/ICR reference
COPY ;ask vault, nursing or both
ASKD ;ask dispensing location
ASKN ;ask naou or group
DEV ;ask device and queue info
END
GROUP ;select group of naous
SAVE

External References

Name Field # of Occurrence
NOW^%DTC ASKN+4
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+2
^%ZTLOAD DEV+4
^DIC ASKD+5, ASKN+6, GROUP+1
Y^DIQ DEV+2
^DIR COPY+4, ASKN+4
START^PSDPDR1 DEV+5
^PSDSET PSDPDR+4

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, PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDPDR+6
Function Call: WRITE
  • Prompt: !,"No report will be printed.",!
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !!,?5,"Select one of the following:",!!,?10,"N",?20,"NAOU (One, Some, or ^ALL)",!,?10,"G",?20,"Group of NAOUs",!
  • Line Location: ASKN+1
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
  • DIC
  • Line Location:
    • ASKD+5
    • ASKN+6
    • GROUP+1
Routine Call
  • DIR
  • Line Location:
    • COPY+4
    • ASKN+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASKN ASKD+2
DEV ASKN+5
END COPY+5, ASKD+5, ASKN+4, ASKN+5, ASKN+8, DEV+3, DEV+4
GROUP ASKN+5
SAVE DEV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKN+4, END!
%H END!
%I END!
%ZIS DEV+3!*, END!
%ZIS("B" DEV+3*
ALL ASKN+9*, END!, SAVE
C DEV+2*, END!
CNT ASKN+4*, ASKN+7*, END!
COMM END!
COPY END!
DA COPY+1!, ASKD+3!, ASKN+2!, ASKN+4!, END!, GROUP+1!
DIC ASKD+3!*, ASKD+5!, ASKN+4!, ASKN+6*!, END!, GROUP+1!*
DIC("A" ASKD+4*, ASKN+6*, GROUP+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, ASKN+6*, GROUP+1*
DIC(0 ASKD+3*, ASKN+6*, GROUP+1*
DIE END!
DIR COPY+1!, COPY+4!, ASKN+2!, ASKN+4!, END!
DIR("?" COPY+3*, ASKN+3*
DIR("A" COPY+2*, ASKN+2*
DIR(0 COPY+1*, ASKN+2*
DIROUT END!
DIRUT COPY+1!, COPY+5, ASKN+2!, ASKN+4, END!
DR END!
DTOUT END!
DUOUT END!
DUZ PSDPDR+5
EXP END!
EXPD END!
FLAG END!
IO DEV+5
IO("Q" DEV+3!, DEV+4!
ION DEV+4
IOP DEV+3!
LOT END!
MFG END!
NAOU ASKN+8, END!, SAVE
NAOU( ASKN+7*
NODE END!
NUM END!
OK PSDPDR+5*, PSDPDR+6!, END+1!
ORD END+1!
ORDN END+1!
POP DEV+3!, END+1!
PSD END+1!
PSDA END+1!
PSDCPY COPY+6*, END+1!
PSDDT END+1!
PSDEV DEV+2*, DEV+3, END+1!
PSDG ASKN+5, END+1!, SAVE
PSDG( GROUP+1*
PSDIO DEV+4*, END+1!
PSDN END+1!
PSDNA END+1!
PSDPT ASKN+4*, END+1!
PSDR END+1!
PSDRN END+1!
PSDS ASKD+1*, ASKD+6*, DEV+2, END+1!
>> PSDSITE PSDPDR+4, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN ASKD+1*, ASKD+6*, END+1!
PSDST END+1!
PSDT ASKN+4*, END+1!
QTY END+1!
REQD END+1!
REQDT END+1!
SEL ASKN+4*, ASKN+5, END+1!
STAT END+1!
STATN END+1!
U ASKD+1, ASKD+2, ASKD+4, ASKD+6
X ASKN+4, ASKN+8, ASKN+9, END+1!
Y COPY+6, ASKD+5, ASKD+6, ASKN+4, ASKN+6, ASKN+7, DEV+2*, END+1!, GROUP+1
ZTDESC DEV+4*, END+1!
ZTDTH DEV+4!, END+1!
ZTIO DEV+4*, END+1!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+4*, END+1!
ZTSAVE DEV+4!, END+1!
ZTSAVE("ALL" SAVE*
ZTSAVE("CNT" SAVE*
ZTSAVE("NAOU(" SAVE*
ZTSAVE("PSDCPY" SAVE*
ZTSAVE("PSDG(" SAVE*
ZTSAVE("PSDIO" SAVE*
ZTSAVE("PSDPT" SAVE*
ZTSAVE("PSDS" SAVE*
ZTSAVE("PSDT" SAVE*
ZTSK DEV+4!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All