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

Package: Controlled Substances

Routine: PSDGSH


Information

PSDGSH ;BIR/JPW-Review Green Sheet History ; 29 Aug 94

Source Information

Source file <PSDGSH.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 2 START^PSDGSH1  ^PSDSET  
VA FileMan 2 (,IX)^DIC  Y^DIQ  

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 GS HISTORY  

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
GS ;select green sheet #
DEV ;asks device and queueing information
END
SAVE ;sets variables for queueing

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+1
^%ZTLOAD DEV+3
^DIC ASKD+5
IX^DIC GS+2
Y^DIQ DEV+1
START^PSDGSH1 DEV+4
^PSDSET PSDGSH+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to view",!,?12,"Green Sheets.",!
  • Line Location: PSDGSH+4
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
Routine Call
  • DIC
  • Line Location:
    • GS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 DEV+1
^PSD(58.8 - [#58.8] DEV+1
^XUSEC("PSJ RPHARM" DEV+2

Label References

Name Line Occurrences
END ASKD+5, GS+2, DEV+2
GS ASKD+2, DEV+3, DEV+4
SAVE DEV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2!*, END!
%ZIS("B" DEV+2*
C DEV+1*, END!
D GS+1*, END!
DA ASKD+3!, GS+1!, END!
DIC ASKD+3!*, ASKD+5!, GS+1!*, GS+2!, END!
DIC("A" ASKD+4*, GS+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, GS+1*
DIC(0 ASKD+3*, GS+1*
DTOUT END!
DUOUT END!
DUZ DEV+2
IO DEV+4
IO("Q" DEV+2!, DEV+3!
IOF GS+1
IOP DEV+2!
NODE GS+2*, END!
OK END!
OTR END!
POP DEV+2!, END!
PSD END!
PSDA GS+2*, END!
PSDEV DEV+1*, DEV+2, END!
PSDS ASKD+1*, ASKD+6*, DEV+1, END!
>> PSDSITE PSDGSH+2, ASKD+1, ASKD+2, ASKD+6*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, END!
U ASKD+1, ASKD+2, ASKD+6
X END!
Y ASKD+5, ASKD+6, GS+2, DEV+1*, END!
Y(0 GS+2
ZTDESC DEV+3*, END+1!
ZTDTH DEV+3!
ZTIO DEV+3!
>> ZTQUEUED END+1
>> ZTREQ END+1*
ZTRTN DEV+3*, END+1!
ZTSAVE DEV+3!, END+1!
ZTSAVE("NODE" SAVE+1*
ZTSAVE("PSDA" SAVE+1*
ZTSAVE("PSDS" SAVE+1*
ZTSAVE("PSDSN" SAVE+1*
ZTSK DEV+3!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All