Routine: PSDRFR

Package	Total	Call Graph
Controlled Substances	3	^PSDRFV UPDATE^PSDRFX ^PSDSET
Kernel	3	($$FMADD,$$FMTE,$$NOW)^XLFDT EN^XQH SIG^XUSESIG
VA Fileman	3	^DIC $$FMDIFF^DILIBF ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSD NURSE NOT GIVEN

Entry Points

External References

Name	Field # of Occurrence
^DIC	NAOU+5, PATIENT+5, MM+15
$$FMDIFF^DILIBF	MM+7, MM+10
^DIR	DRUG+3, QTY+2, WASTE+4, REA+1
^PSDRFV	BAL+2
UPDATE^PSDRFX	REA+6
^PSDSET	PSDRFR+6
$$FMADD^XLFDT	BAL+5, QTY+4
$$FMTE^XLFDT	QTY+5
$$NOW^XLFDT	BAL+5, QTY+4
EN^XQH	PSDRFR+8
SIG^XUSESIG	NURSE

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: PSDRFR+7
Function Call: WRITE	Prompt: !!,"Please enter the ward from which the drug(s) was 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: !!,"Returns can only be recorded within " Line Location: PATIENT+0
Function Call: WRITE	Prompt: NAOU(1)," hours after signing out a dose." Line Location: PATIENT+2
Function Call: WRITE	Prompt: ! Line Location: PATIENT+5
Function Call: WRITE	Prompt: ! Line Location: DRUG+3
Function Call: WRITE	Prompt: $C(7),!!,"Please enter more than one character.",! Line Location: MM+1
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: MM+12
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: MM+15
Function Call: WRITE	Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!! Line Location: MM+17
Function Call: WRITE	Prompt: !!,"No doses signed out",!! Line Location: BAL+3
Function Call: WRITE	Prompt: !!,"The last dose was signed out at ",PSDA(2),", over ",NAOU(1)," hours ago.",!!,"It is too late to return to stock.",!! Line Location: BAL+5
Function Call: WRITE	Prompt: !!,"Sorry, only the person who signed out the dose can return to stock.",!! Line Location: BAL+6
Function Call: WRITE	Prompt: !!,"Starting Balance: "_$P(PSDR(1),U,4)_" "_$P(PSDR(1),U,8) Line Location: BAL+7
Function Call: WRITE	Prompt: ! Line Location: QTY+2
Function Call: WRITE	Prompt: !!,"Balance: ",$P(PSDR(1),U,4)+PSDRETQ," ",$P(PSDR(1),U,8),!! Line Location: REA+6
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+5 MM+15
Routine Call	DIR Line Location: DRUG+3 QTY+2 WASTE+4 REA+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDRFR+9
^PSD(58.8 - [#58.8]	NAOU+1, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+1, MM+6, MM+12 , BAL
^PSD(58.81 - [#58.81]	MM+2, MM+4, BAL+4, END*
^PSDRUG - [#50]	MM+6, MM+9, MM+12, MM+18
^VA(200 - [#200]	PSDRFR+8

Label References

Name	Line Occurrences
DRUG	MM+1
END	PSDRFR+8, NURSE, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+5 , DRUG+3, MM+12, MM+13, MM+17, BAL+2, BAL+3, BAL+5, BAL+6, QTY+2, WASTE
MSG	NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11
PATIENT	NAOU+1, MM+13
REA	WASTE+2

Naked Globals

Name	Field # of Occurrence
^(6	PATIENT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Controlled Substances

Routine: PSDRFR

Information

Source Information

Call Graph

Call Graph Total: 9

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:

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