Routine: PSDDWK1

Package	Total	Call Graph
Controlled Substances	3	^PSDDWK2 ^PSDDWK4 EDIT^PSDDWKE
VA Fileman	3	^DIR ^DIWP ^DIWW

Package

Total

Call Graph

Controlled Substances

^PSDDWK2 ^PSDDWK4 EDIT^PSDDWKE

VA Fileman

^DIR ^DIWP ^DIWW

Package	Total	Caller Graph
Controlled Substances	1	PSDDWK

Package

Total

Caller Graph

Controlled Substances

PSDDWK

Name	Comments	DBIA/ICR reference
END
CHK	;
START	;entry point for dispensing options
PHARM	;by dispensing pharmacist
TECH	;by tech or non-disp pharmacist
ACT	;decides disp action
MSG
DISPLAY	;displays order request

Name	Field # of Occurrence
^DIR	PHARM+3, TECH+3
^DIWP	DISPLAY+10
^DIWW	DISPLAY+11
^PSDDWK2	ACT+1, ACT+2
^PSDDWK4	ACT+3
EDIT^PSDDWKE	ACT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"=> The drug balance is "_BAL_". You cannot dispense "_QTY_" for this drug.",! Line Location: CHK+3
Function Call: WRITE	Prompt: !!,"Old Balance: ",BAL,?35,"New Balance: ",BAL-QTY,! Line Location: CHK+4
Function Call: WRITE	Prompt: ! Line Location: PHARM+1
Function Call: WRITE	Prompt: ! Line Location: TECH+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSG+0
Function Call: WRITE	Prompt: !!,"Press <RET> to continue" Line Location: MSG+0
Function Call: WRITE	Prompt: !! Line Location: MSG+0
Function Call: WRITE	Prompt: @IOF,!,?23,"Controlled Substance Order Request" Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !,?27,"*** PRIORITY" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: " INFUSION" Condition for execution: $G(PAT) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: " ORDER ***" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: "Pharmacy Dispensing #: ",$S(PSDPN:PSDPN,1:""),!,"Requested by",?16,": ",ORDN,?52,"Request Date: ",REQD,!,LN,! Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,QTY Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,"Dispensed by",?16,": ",$S(PSDBY:PSDBYN,1:""),?50,"Dispensed Date: ",$S(PSDT:PSDDT,1:""),!,"Disp. Location",?16,": ",$S($D(ORDSN):ORDSN,1:"") Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,"Manufacturer",?16,": ",MFG,!,"Lot #",?16,": ",LOT,!,"Exp. Date",?16,": ",EXPD Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,STAT,0)),"^"),!,"Comments:" Line Location: DISPLAY+9
Routine Call	DIR Line Location: PHARM+3 TECH+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISPLAY+6
^PSD(58.8 - [#58.8]	CHK+2
^PSD(58.82 - [#58.82]	DISPLAY+9
^PSD(58.85 - [#58.85]	DISPLAY+2, DISPLAY+10
^UTILITY($J	DISPLAY+10!
^XUSEC("PSJ RPHARM"	CHK+1

Name	Line Occurrences
ACT	CHK+1
CHK	ACT+3, ACT+4, ACT+5
DISPLAY	START+1, ACT+5
MSG	PHARM+3, ACT+6, TECH+3
PHARM	CHK+3
TECH	CHK+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	START+1, PHARM+4, ACT+1, ACT+2, ACT+3, ACT+4, ACT+5, ACT+6, TECH+4*
>> BAL	CHK+2*, CHK+3, CHK+4
>> COMM	DISPLAY+9, DISPLAY+10, DISPLAY+11*
DA	PHARM+1!, TECH+1!
DIR	PHARM+1!, PHARM+3!, TECH+1!, TECH+3!
DIR("?"	PHARM+1, PHARM+2, TECH+1, TECH+2
DIR("A"	PHARM+2, TECH+1, TECH+2*
DIR(0	PHARM+1, TECH+1
>> DIWF	DISPLAY+10*
>> DIWL	DISPLAY+10*
>> DIWR	DISPLAY+10*
DTIME	MSG
DTOUT	PHARM+1!, PHARM+3, TECH+1!, TECH+3
DUOUT	PHARM+1!, PHARM+3, TECH+1!, TECH+3
DUZ	CHK+1
>> EXPD	DISPLAY+8
IOF	DISPLAY+1
LN	DISPLAY+3!*, DISPLAY+4
>> LOT	DISPLAY+8
>> MFG	DISPLAY+8
>> NAOUN	DISPLAY+9
>> NEW	START+1*, START+2
>> NOFLAG	START+1*
>> ORDN	DISPLAY+4
>> ORDS	START+2*, CHK+2
>> ORDSN	DISPLAY+7
>> PAT	DISPLAY+2, DISPLAY+6
>> PSDBY	DISPLAY+7
>> PSDBYN	DISPLAY+7
>> PSDDT	DISPLAY+7
>> PSDN	DISPLAY+2, DISPLAY+10
>> PSDNO	START+1*, ACT+4
>> PSDOUT	START+1, CHK+1, PHARM+3, ACT+3, ACT+4, TECH+3, MSG+1*, DISPLAY+1
>> PSDPN	DISPLAY+4
>> PSDR	CHK+2
>> PSDRN	DISPLAY+5
>> PSDS	START+2
>> PSDT	DISPLAY+7
>> QTY	CHK+3, CHK+4, DISPLAY+5
>> REQD	DISPLAY+4
>> STAT	ACT+3, DISPLAY+9
>> TEXT	DISPLAY+10*
U	DISPLAY+2, DISPLAY+6
>> X	MSG, MSG+1, DISPLAY+10
>> Y	PHARM+4, TECH+4

Customize PDF page

Package: Controlled Substances

Routine: PSDDWK1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: