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

Package: Controlled Substances

Routine: PSDEXGS


Information

PSDEXGS ;BIR/BJW-Enter Existing Green Sheets at Startup ; 10 Feb 98

Source Information

Source file <PSDEXGS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Controlled Substances 2 ^PSDEXGS1  ^PSDSET  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD EXISTING GS  

Entry Points

Name Comments DBIA/ICR reference
GS
EXP
MFG
MSG2
DRUG ;ask drug
QTY
OK
ASKD ;ask disp site
MSG
PHARM
END
RDATE
LOT
CHKD
PNT10
NURSE
NAOU ;select NAOU
MSG1

External References

Name Field # of Occurrence
^DIC ASKD+5, NAOU+3, DRUG+5
^DIR PHARM, RDATE, NURSE, MFG, LOT, EXP, PNT10, OK+2
^PSDEXGS1 OK+4
^PSDSET PSDEXGS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator for access to enter existing Green Sheets",!,"into the Controlled Substances package.",!!,"PSJ RPHARM security key required.",!
  • Line Location: PSDEXGS+7
Function Call: WRITE
  • Prompt: !!,?5,"The Order Status of all Green Sheets entered as existing before",!,?5,"the Controlled Substances package initialization will be",!,?10," *** DELIVERED - ACTIVELY ON NAOU ***",!!
  • Line Location: PSDEXGS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
Function Call: WRITE
  • Prompt: !!,"The ",PSDSN," vault is missing data.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"This NAOU is missing data.",!!
  • Line Location: NAOU+4
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,?15,"=> NAOU: ",NAOUN,!
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !!,PSDRGN," is missing",!,"data in ",NAOUN
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !!,PSDRGN," is not stocked",!,"in ",PSDSN,!!
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRGN," is missing breakdown unit or",!,"package size in ",PSDSN,".",!
  • Line Location: DRUG+9
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GS+0
Function Call: WRITE
  • Prompt: !!,"** No action taken. **"
  • Line Location: GS+0
Function Call: WRITE
  • Prompt: !!,"This number has already been used.",!!
  • Line Location: GS+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"No action taken. The Green Sheet # ",PSDPN," has not been added to your CS files.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"You must enter a whole number between 1 and 999999999",!
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: !!,"You must enter a whole number between 1 and 999999",!
  • Line Location: MSG2+0
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • NAOU+3
    • DRUG+5
Routine Call
  • DIR
  • Line Location:
    • PHARM
    • RDATE
    • NURSE
    • MFG
    • LOT
    • EXP
    • PNT10
    • OK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] CHKD, NAOU+4, DRUG+1, DRUG+6, DRUG+7, DRUG+8
^PSD(58.81 - [#58.81] GS+3
^PSDRUG - [#50] DRUG+5
^XUSEC("PSJ RPHARM" PSDEXGS+7

Label References

Name Line Occurrences
CHKD ASKD+2
DRUG OK+4
END ASKD+5, CHKD, NAOU+3, NAOU+4, DRUG+1, DRUG+5, DRUG+6, DRUG+7, DRUG+9, GS
, QTY, PHARM, RDATE, NURSE, MFG, LOT, EXP, PNT10, OK+2
GS GS+1, GS+2, GS+3
MSG QTY, PHARM, RDATE, NURSE, MFG, LOT, EXP, PNT10
MSG1 GS+1, GS+2
MSG2 QTY+1, QTY+2
QTY QTY+1, QTY+2, OK+3

Naked Globals

Name Field # of Occurrence
^(0 DRUG+5, DRUG+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
DA ASKD+3!, NAOU+1!, DRUG+3!, PHARM!, RDATE!, NURSE!, MFG!, LOT!, EXP!, PNT10!
, OK!, END!
DA(1 DRUG+5*
DIC ASKD+3!*, ASKD+5!, NAOU+1!*, NAOU+3!, DRUG+3!, DRUG+5*!, END!
DIC("A" ASKD+4*, NAOU+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, NAOU+2*, DRUG+4*
DIC("W" DRUG+3*
DIC(0 ASKD+3*, NAOU+1*, DRUG+5*
DIE END!
DINUM END!
DIR PHARM!, RDATE!, NURSE!, MFG!, LOT!, EXP!, PNT10!, OK!, OK+2!, END!
DIR("?" OK+1*
DIR("A" RDATE*, OK*
DIR("B" OK*
DIR(0 PHARM*, RDATE*, NURSE*, MFG*, LOT*, EXP*, PNT10*, OK*
DIROUT END!
DIRUT OK!, OK+2, END!
DLAYGO END!
DR END!
DTIME GS, QTY
DTOUT PHARM!, RDATE!, NURSE!, MFG!, LOT!, EXP!, PNT10!, END!
DUOUT PHARM!, RDATE!, NURSE!, MFG!, LOT!, EXP!, PNT10!, END!
DUZ PSDEXGS+7, PSDEXGS+8
EXP EXP+1*, END!
LOT LOT+1*, END!
MFG MFG+1*, END!
NAOU NAOU+3*, NAOU+4, DRUG+1, DRUG+5, DRUG+6, END+1!
NAOUN NAOU+3*, DRUG+2, DRUG+6, END+1!
NBKU DRUG+8*, DRUG+9, QTY, END+1!
NPKG DRUG+8*, DRUG+9, QTY, END+1!
NURS NURSE+1*, END+1!
PHARM PHARM+1*, END+1!
>> PNT10 PNT10+1*
PSDA END+1!
PSDPN GS+4*, END+1!, MSG
PSDRG DRUG+5*, DRUG+6, DRUG+7, DRUG+8, END+1!
PSDRGN DRUG+5*, DRUG+6, DRUG+7, DRUG+9, END+1!
PSDRN END+1!
PSDS ASKD+1*, ASKD+6*, CHKD, DRUG+7, DRUG+8, END+1!
>> PSDSITE PSDEXGS+6, ASKD+1, ASKD+2, ASKD+6*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, CHKD, DRUG+7, DRUG+9, END+1!
PSDT END+1!
PSDUZ PSDEXGS+8*, END+1!
QTY QTY+3*, END+1!
RDATE RDATE+1*, END+1!
U ASKD+1, ASKD+2, ASKD+6
X GS*, GS+1, GS+2, GS+3, GS+4!, QTY*, QTY+1, QTY+2, QTY+3!, END+1!
Y ASKD+5, ASKD+6, NAOU+3, DRUG+5, PHARM+1, RDATE+1, NURSE+1, MFG+1, LOT+1, EXP+1
, PNT10+1, OK+3, 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