Routine: PSDNTF

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 NURSE TRANSFER GS

Entry Points

Name	Comments	DBIA/ICR reference
ASKT	;ask transfer to naou
OK	;if perpetual NAOU and not ordered for 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+13
^DIC	ASKN+3, ASKT+3, OK+7
IX^DIC	GS+3
^DIE	COM+5, COM+8
^DIR	OK+3, OK+12
^PSDGSRV2	PRINT+6
^PSDSET	PSDNTF+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: PSDNTF+5
Function Call: WRITE	Prompt: !!,"Transfer a Green Sheet from this NAOU" Line Location: PSDNTF+6
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: !!,"The Green Sheet # ",PSDPN," does not reside on ",AOUN,".",!,"Please select another Green Sheet.",! Line Location: GS+9
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+10
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+11
Function Call: WRITE	Prompt: !!,"Previous transfer quantity was 0.",!,"Use option 'Transfer GS for PCA/Infusion Signed Out to Patient'",! Line Location: GS+12
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: !!,"Green Sheet "_PSDPN_" has dose(s) signed out to patient.",! Line Location: ASKT+10
Function Call: WRITE	Prompt: !,"Quantity to Transfer (",NBKU,"/1)",! Line Location: ASKT+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: QTY+1
Function Call: WRITE	Prompt: !!,"** No action taken. **",!! Line Location: QTY+1
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and ",QTY,! Line Location: QTY+2
Function Call: WRITE	Prompt: !!,"Enter a number between .01 and ",QTY,! Line Location: QTY+4
Function Call: WRITE	Prompt: $C(7),!!,"The quantity returned must not exceed "_QTY_"!",! Line Location: QTY+5
Function Call: WRITE	Prompt: !!,"No action taken.",!! Line Location: OK+7
Function Call: WRITE	Prompt: ! Line Location: OK+10
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+16
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 OK+7
Routine Call	DIR Line Location: OK+3 OK+12
Routine Call	DIC Line Location: GS+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
ASKN	GS+9
ASKT	ASKT+4
END	ASKN+3, GS+3, GS+10, GS+11, GS+12, ASKT+3, QTY+1, OK+1, OK+12, COM+6
GS	OK+12
OK	ASKT+11
PRINT	PRINT+2
QTY	QTY+3, QTY+5

Naked Globals

Name	Field # of Occurrence
^(0	COM+2, COM+16
^(4	GS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Controlled Substances

Routine: PSDNTF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: