Routine: PSDEXGS

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

Package	Total	Caller Graph
Controlled Substances	1	PSD EXISTING GS

Entry Points

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!

Customize PDF page

Package: Controlled Substances

Routine: PSDEXGS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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