Routine: PSDRFS

Package	Total	Call Graph
Controlled Substances	6	^PSDRF2 UPDAT^PSDRFT ^PSDRFU ^PSDRFV ^PSDRFZ ^PSDSET
VA Fileman	4	^%DT ^DIC $$FMDIFF^DILIBF ^DIR
Kernel	3	EN^XQH SIG^XUSESIG $$WITNESS^XUVERIFY

Package	Total	Caller Graph
Controlled Substances	2	PSD NURSE DELAYED DISPENSE PSDRFU

Entry Points

External References

Name	Field # of Occurrence
^%DT	WIT+5
^DIC	NAOU+5, PATIENT+2, DRUG+19, ADMN+1
$$FMDIFF^DILIBF	DRUG+11, DRUG+14
^DIR	DRUG+4, BAL+7, QTY+1
^PSDRF2	BAL+8
UPDAT^PSDRFT	ADMN+4
^PSDRFU	LIQ
^PSDRFV	BAL+3
^PSDRFZ	WIT+5
^PSDSET	PSDRFS+6
EN^XQH	PSDRFS+8
SIG^XUSESIG	NURSE
$$WITNESS^XUVERIFY	WIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",! Line Location: PSDRFS+7
Function Call: WRITE	Prompt: !!,"Please enter the ward from which the drug(s) will be signed out." Line Location: NAOU+2
Function Call: WRITE	Prompt: ! Line Location: NAOU+5
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+12
Function Call: WRITE	Prompt: ! Line Location: PATIENT+2
Function Call: WRITE	Prompt: ! Line Location: DRUG+4
Function Call: WRITE	Prompt: $C(7),!!,"Please enter more than one character.",! Line Location: DRUG+5
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: DRUG+16
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: DRUG+19
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: DRUG+21
Function Call: WRITE	Prompt: !!,"Sorry, this drug has a zero balance." Line Location: BAL+1
Function Call: WRITE	Prompt: ! Line Location: BAL+7
Function Call: WRITE	Prompt: !!,"Wait a minute, you can't witness yourself!",$C(7) Line Location: WIT+1
Function Call: WRITE	Prompt: ! Line Location: WIT+5
Function Call: WRITE	Prompt: ! Line Location: ADMN+1
Function Call: WRITE	Prompt: !,"Witness and Sign Out Nurse can not be the same person" Line Location: ADMN+2
Function Call: WRITE	Prompt: !!,"Remaining Balance: ",$P(PSDR(1),U,4)-PSDQ," ",$P(PSDR(1),U,8) Line Location: ADMN+3
Function Call: WRITE	Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing " Line Location: MSG+1
Function Call: WRITE	Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",! Line Location: MSG+2
Routine Call	DIC Line Location: NAOU+5 PATIENT+2 DRUG+19 ADMN+1
Routine Call	DIR Line Location: DRUG+4 BAL+7 QTY+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDRFS+9
^PSD(58.8 - [#58.8]	NAOU+1, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, DRUG+10, DRUG+16, BAL , LIQ
^PSD(58.81 - [#58.81]	DRUG+6, DRUG+8, BAL+1
^PSDRUG - [#50]	DRUG+10, DRUG+13, DRUG+16, DRUG+22
^VA(200 - [#200]	PSDRFS+8, WIT+3

Label References

Name	Line Occurrences
ADMN	ADMN+2
DRUG	DRUG+5, BAL+1, ADMN+4
END	PSDRFS+8, NURSE, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+2 , DRUG+4, DRUG+16, DRUG+17, DRUG+21, BAL+3, BAL+7, BAL+8, QTY+1, WASTE, WIT+5 , ADMN+1
MSG	NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11
PATIENT	NAOU+1, DRUG+4, DRUG+17
WIT	WIT+1

Naked Globals

Name	Field # of Occurrence
^(	WIT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	WIT+4*, WIT+5!, END!
%DT("A"	WIT+4*
%DT(0	WIT+4*
%H	END!
%I	END!
CNT	END!
CNT1	END!
DA	NAOU+3!, END!
DA(1	DRUG+18*
DIC	NAOU+3!, NAOU+5!, PATIENT~, PATIENT+2!, DRUG+18, DRUG+19!, ADMN, ADMN+1!, END!
DIC("A"	NAOU+3, PATIENT+1, ADMN*
DIC("S"	NAOU+4*
DIC(0	NAOU+3, PATIENT, DRUG+18, ADMN
DIE	END!
DINUM	END!
DIR	DRUG+1~, DRUG+4!, BAL+7!, QTY+1!, END!
DIR("?"	BAL+6*
DIR("A"	DRUG+3, BAL+4, QTY*
DIR("B"	BAL+5, QTY+1
DIR(0	DRUG+2, BAL+4, QTY*
DIROUT	END!
DIRUT	DRUG+4, BAL+7, END!
DIWF	END!
DIWL	END!
DIWR	END!
DR	END!
DT	PSDRFS+9, DRUG+11, DRUG+14
DTOUT	PATIENT~, DRUG+17, DRUG+19, END!
DUOUT	PATIENT~, DRUG+17, DRUG+19, END!
DUZ	PSDRFS+8, PSDRFS+9, BAL+5, WIT+1, ADMN+1
LN	END!
MSG	PSDRFS+9, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11*, END!, MSG+1
MSG1	PSDRFS+9, NAOU+7, NAOU+9, NAOU+11, END!, MSG+2
NAOU	NAOU+1, NAOU+5*, NAOU+6, NAOU+7, NAOU+8, NAOU+9, DRUG+8, DRUG+10, DRUG+16, DRUG+18 , BAL, END+1!
NAOUN	NAOU+5*, END+1!
NBKU	END+1!
NPKG	END+1!
NUR1	BAL+5, ADMN+1, ADMN+2, END+1!
NUR1(1	ADMN+1*
NUR2	WIT*, WIT+1, WIT+2, WIT+3, ADMN+2, END!
OK	END+1!
OKTYP	END+1!
OQTY	BAL, BAL+1, BAL+4, BAL+8, QTY, QTY+1*, END+1!
ORD	END+1!
>> PAT	PATIENT+2*
PSD	DRUG+1~, DRUG+7, DRUG+8, BAL+1
PSD(1	DRUG+8*, DRUG+11, DRUG+13, DRUG+14
PSDA	END+1!
PSDDAVE	BAL+3!
PSDDT	DRUG+1~, DRUG+11, DRUG+12, DRUG+14, DRUG+15
PSDEM	END+1!
PSDOUT	PATIENT~, BAL+3, BAL+8, WASTE, WIT+2, END, END+1!
PSDPN	DRUG+8*, END+1!
PSDQ	DRUG+1~, QTY+1, WASTE, WASTE+1, WIT+3, ADMN+3
PSDQ(1	BAL+8
PSDQTY	END+1!
PSDR	DRUG+1~, DRUG+8, DRUG+9, DRUG+12, DRUG+15!, DRUG+16, DRUG+17, DRUG+20*, DRUG+21, DRUG+22 , BAL, LIQ, END+1!
PSDR(1	BAL, BAL+4, BAL+8, ADMN+3
PSDRD	END+1!
PSDRN	END+1!
PSDS	NAOU+1, NAOU+9, NAOU+10, NAOU+11, LIQ, END+1!
>> PSDSITE	PSDRFS+6
PSDT	WIT+5*, END+1!
PSDTYP	DRUG+8, DRUG+20, BAL+8*, END+1!
PSDUZ	PSDRFS+9*, END+1!
PSDUZN	END+1!
REQD	PSDRFS+9*, END+1!
TEXT	END+1!
TYPE	END+1!
U	PSDRFS+8, NAOU+1, NAOU+8, DRUG+8, DRUG+11, DRUG+14, DRUG+22, BAL, BAL+1, BAL+4 , BAL+8, LIQ, WIT+3, ADMN+3
WORD	END+1!
WQTY	DRUG+1~, WASTE+1*, END!
X	NURSE~, PATIENT~, END+1!
X1	NURSE~
XQH	PSDRFS+8~*
Y	PSDRFS+9*, NAOU+5, PATIENT~, PATIENT+2, DRUG+4, DRUG+5, DRUG+6, DRUG+8, DRUG+9, DRUG+10 , DRUG+12, DRUG+13, DRUG+16, DRUG+17, DRUG+19, DRUG+20, BAL+8, QTY+1, WIT+5, ADMN+1 , END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDRFS

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ADMN
WASTE
PATIENT
DRUG	;select drug
QTY
WIT
LIQ
MSG	;display error message
END
NURSE
NAOU	;select NAOU to dispense from
BAL