Routine: PSDNTFPC

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,IX)^DIC ^DIE ^DIR
Controlled Substances	2	^PSDGSRV2 ^PSDSET
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	1	PSD GS TRANS PCA/INF PATIENT

Entry Points

Name	Comments	DBIA/ICR reference
ASKT	;ask transfer to naou
OK	;already signed out to patient
QTY	;
END
PRINT	;print 2321
GS	;select green sheet #
ASKN	;ask transfer from naou
COM	;complete at order level in 58.8

External References

Name	Field # of Occurrence
NOW^%DTC	OK+5
^DIC	ASKN+3, ASKT+3
IX^DIC	GS+3
^DIE	COM+5, COM+8
^DIR	OK+4
^PSDGSRV2	PRINT+6
^PSDSET	PSDNTFPC+3
$$FMTE^XLFDT	PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to",!,?12,"transfer narcotic orders.",!!,"PSJ RNURSE, PSD NURSE, or PSJ RPHARM security key required.",! Line Location: PSDNTFPC+5
Function Call: WRITE	Prompt: !!,"Transfer a Green Sheet from this NAOU" Line Location: PSDNTFPC+6
Function Call: WRITE	Prompt: !!,"THIS OPTION WILL TRANSFER A QUANTITY OF ZERO" Line Location: PSDNTFPC+7
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: !!,"Green Sheet not signed out to Patient.",!,"Use option 'Transfer Green Sheet and Drug to another NAOU'.",! Line Location: GS+13
Function Call: WRITE	Prompt: !!,"The Green Sheet # ",PSDPN," does not reside on ",AOUN,".",!,"Please select another Green Sheet.",! Line Location: GS+14
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: GS+15
Function Call: WRITE	Prompt: !!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please contact your Pharmacy Coordinator for assistance.",! Line Location: GS+16
Function Call: WRITE	Prompt: ! Line Location: ASKT+1
Function Call: WRITE	Prompt: !!,"You may not transfer a Green Sheet to your NAOU!",!,"Please select another NAOU.",!! Line Location: ASKT+4
Function Call: WRITE	Prompt: !,"Quantity to Transfer (",NBKU,"/0)",! Line Location: ASKT+5
Function Call: WRITE	Prompt: ! Line Location: OK+2
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRN," information...",!! Line Location: COM+1
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: COM+3
Function Call: WRITE	Prompt: $C(7),!!," THIS GREEN SHEET HAS NOT BEEN TRANSFERRED ",!!,"The status remains "_STATN,! Line Location: COM+6
Function Call: WRITE	Prompt: ?2,!,"* The status of your Green Sheet #"_PSDPN_" is now",!,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: COM+14
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and 9",! Line Location: PRINT+2
Routine Call	DIE Line Location: COM+5 COM+8
Routine Call	DIC Line Location: ASKN+3 ASKT+3
Routine Call	DIR Line Location: OK+4
Routine Call	DIC Line Location: GS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OK+5, PRINT+3
^PSD(58.8 - [#58.8]	GS+5, GS+7, GS+15, COM+2, COM+10, COM+11, COM+12
^PSD(58.81 - [#58.81]	GS+10, GS+11, COM+13
^PSD(58.82 - [#58.82]	GS+4, COM+14
^PSDRUG - [#50]	GS+5
^VA(200 - [#200]	PSDNTFPC+6
^XUSEC("PSD NURSE"	PSDNTFPC+4
^XUSEC("PSJ RNURSE"	PSDNTFPC+4
^XUSEC("PSJ RPHARM"	PSDNTFPC+4

Label References

Name	Line Occurrences
ASKN	GS+14
ASKT	ASKT+4
END	ASKN+3, GS+3, GS+13, GS+15, GS+16, ASKT+3, OK+4, COM+6
GS	OK+4
OK	ASKT+5
PRINT	PRINT+2

Naked Globals

Name	Field # of Occurrence
^(0	COM+2, COM+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OK+5, END!
%DT	END!
%H	END!
%I	END!
AOU	ASKN+3*, GS+14, ASKT+4, END!
AOUN	ASKN+3*, GS+14, END!
BQTY	COM+2*, COM+8, END!
COMP	PRINT+4*, END!
D	GS+1*, END!
DA	ASKN+1!, GS+1!, ASKT+1!, OK+2!, COM+5!, COM+8!, END!
DA(1	COM+8*
DA(2	COM+8*
DIC	ASKN+1!, ASKN+3!, GS+1!, GS+3!, ASKT+1!*, ASKT+3!, END!
DIC("A"	ASKN+1, GS+1, ASKT+1*
DIC("S"	ASKN+2, GS+2, ASKT+2*
DIC("W"	GS+2*
DIC(0	ASKN+1, GS+1, ASKT+1*
DIE	COM+5!, COM+8!, END!
>> DILOCKTM	COM+10
DIR	OK+2!, OK+4!, END!
DIR("?"	OK+3*
DIR("A"	OK+2*
DIR("B"	OK+2*
DIR(0	OK+2*
DIROUT	END!
DIRUT	OK+2!, OK+4, END!
DR	COM+5!, COM+8!, END!
DTIME	PRINT+1
DTOUT	COM+6, END!
DUOUT	END!
DUZ	PSDNTFPC+4, PSDNTFPC+6
EXP	GS+6, PRINT+5, END!
EXP1	PRINT+5*, END!
EXPD	PRINT+5*, END!
LOT	GS+6*, END!
MFG	GS+6*, END!
NAOU	GS+5*, GS+14, GS+15, COM+2, COM+8, COM+10, COM+11, COM+12, END+1!
NAOUN	GS+5*, GS+15, END+1!
NAOUT	ASKT+3*, ASKT+4, COM+5, END+1!
NAOUTN	ASKT+3*, END+1!
NBKU	GS+7*, ASKT+5, COM+11, END+1!
NUM	PRINT+1*, PRINT+2, END+1!
OK	PSDNTFPC+4*, PSDNTFPC+5!, END+1!
ORD	GS+5*, GS+15, COM+2, COM+8, END+1!
>> PAT	COM+5
PG	PRINT+4*, END+1!
PSDA	GS+3*, COM+5, COM+13, END+1!
PSDGS	GS+9~, GS+10*, GS+11
PSDGS0	GS+9~, GS+11*, GS+12
PSDGSP	GS+9~, GS+11*, GS+12
PSDGSPT1	GS+9~, GS+12*, GS+13
PSDOUT	PRINT+4*, END+1!
PSDPN	GS+4*, GS+10, GS+14, GS+15, COM+14, END+1!
PSDR	GS+5*, GS+7, GS+15, COM+2, COM+8, COM+10, COM+11, COM+12, END+1!
PSDRN	GS+5*, COM+1, COM+11, END+1!
PSDS	GS+6*, GS+7, END+1!
>> PSDSITE	PSDNTFPC+3
PSDUZ	PSDNTFPC+6*, COM+5, END+1!
PSDUZN	PSDNTFPC+6*, END+1!
PSDYR	PRINT+3*, PRINT+4, END+1!
QTY	GS+6*, COM+2, END+1!
REAS	PRINT+4*, END+1!
RECD	OK+5*, COM+5, PRINT+3, PRINT+4, END+1!
RECDT	OK+5, PRINT+4, END+1!
RQTY	ASKT+5*, COM+5, END+1!
STAT	GS+4, GS+16, COM+13, COM+14, END+1!
STATN	GS+4*, GS+16, COM+6, END+1!
U	COM+11
X	END+1!
Y	ASKN+3, GS+3, ASKT+3, OK+4, OK+5, COM+6, PRINT+3, END+1!
Y(0	GS+4, GS+5, GS+6

Customize PDF page

Package: Controlled Substances

Routine: PSDNTFPC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: