Routine: PSDGSH2

Package	Total	Call Graph
VA Fileman	3	^DIR ^DIWP ^DIWW

Package	Total	Caller Graph
Controlled Substances	1	PSDGSH1

Entry Points

Name	Comments	DBIA/ICR reference
CHK	;check end of page
MORE	;additional display
DISPLAY	;print data
LOOP	;loop thru transfer between naous
HDR	;header

External References

Name	Field # of Occurrence
^DIR	HDR+1
^DIWP	DISPLAY+9
^DIWW	DISPLAY+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Manufacturer",?16,": ",MFG,?61,"Lot:",?66,LOT,!,"Expiration Date : ",EXP Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"Dispensed by",?16,": ",$S($D(PSDBY):PSDBY,1:""),?49,"Disp Date: ",PSDDT Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Filled by",?16,": ",FILL,?53,"Fill Date: ",$S($D(PROC):PROC,1:"") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,"Ord. Location",?16,": ",NAOU,!,"Ordered by",?16,": ",$G(REQ),?52 Line Location: DISPLAY+5
Function Call: WRITE	Prompt: "Order Date: ",$G(REQD) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,"Ord. by Pharm",?16,": ",PSDUZAN Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,"Received by",?16,": ",ORC,?53,"Rec Date: ",$S($D(ORCD):ORCD,1:"") Line Location: DISPLAY+11
Function Call: WRITE	Prompt: !,"Rec'd by Tech",?16,": ",RTECH,?55,"Rec Date :",$S($D(ORCD):ORCD,1:"") Line Location: DISPLAY+12
Function Call: WRITE	Prompt: !,"REASON",?16,": ",REAS Line Location: DISPLAY+13
Function Call: WRITE	Prompt: !,"Insp Hold by:",?16,": ",PSDIN,?51,"Placed Date: ",PSDIP Line Location: DISPLAY+14
Function Call: WRITE	Prompt: !,?50,"Removed Date: ",PSDIR Condition for execution: PSDIR]"" Line Location: DISPLAY+14
Function Call: WRITE	Prompt: !,"Hold Reason:",?16,": ",NODE16 Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,"Comp by Nurse",?16,": ",RETN,?53,"Comp Date: ",PSDTP Line Location: DISPLAY+16
Function Call: WRITE	Prompt: !,"Pickup by",?16,": ",$S($D(PUBY):PUBY,1:""),?51,"Pickup Date: ",PUDT Line Location: DISPLAY+17
Function Call: WRITE	Prompt: !,"Completed by",?16,": ",CBY,?53,"Comp Date: ",$S($D(CDT):CDT,1:"") Line Location: DISPLAY+18
Function Call: WRITE	Prompt: !,"Referred Reason",?16,": ",OTR Line Location: DISPLAY+19
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+21
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?23,"Controlled Substance Order",!! Line Location: HDR+2
Function Call: WRITE	Prompt: "Pharmacy Dispensing #: ",PSDPN,!,"Order Status",?21,": ",STAT,!,?23,$S(COMP]"":COMP,1:"") Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Dispensing Location : ",PSDSN,!,LN,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Drug",?16,": ",DRUG,?56,"Quantity: ",?66,QTY Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?10,"* EDITED AFTER VERIFICATION *",!!,"Edit Date",?16,": ",EDT,?48,"New Adjusted Qty: ",?64,EDQTY,!,"Pharmacist",?16,": ",EDPH,!,"Reason",?16,": ",EREAS Line Location: MORE+1
Function Call: WRITE	Prompt: !!,?10,"* CANCELLED AFTER VERIFICATION *",!!,"Cancel Date",?16,": ",CANCD,!,"Pharmacist",?16,": ",CANCPH,!,"Reason",?16,": ",CREAS Line Location: MORE+2
Function Call: WRITE	Prompt: !!,?10,"* RETURNED TO STOCK *",!!,"Ret by Nurse",?16,": ",$S($D(RETN):RETN,1:""),?57,"Qty Ret: ",?66,STKQ,!,"Returned Date",?16,": ",STKD,!,"Reason",?16,": ",SREAS Line Location: MORE+3
Function Call: WRITE	Prompt: !!,?10,"* TURNED IN FOR DESTRUCTION *",!!,"Turned in by",?16,": ",$S($D(RETN):RETN,1:"") Line Location: MORE+4
Function Call: WRITE	Prompt: !!,?10,"* TRANSFER BETWEEN NAOUs *",! Line Location: MORE+7
Function Call: WRITE	Prompt: ! Line Location: MORE+8
Function Call: WRITE	Prompt: !,"From NAOU",?16,": ",$P(TRN(JJ),"^"),?56,"Quantity:",?66,$P(TRN(JJ),"^",7),!,"Nurse From",?16,": ",$P(TRN(JJ),"^",3),?56,"Date:",?62,$P(TRN(JJ),"^",2),! Line Location: LOOP+1
Routine Call	DIR Line Location: HDR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HDR+5
^PSD(58.81 - [#58.81]	DISPLAY+9, HDR+5
^UTILITY($J	DISPLAY+9!

Label References

Name	Line Occurrences
CHK	DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+19
HDR	DISPLAY+1, MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1, CHK+1
LOOP	MORE+7
MORE	DISPLAY+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CANCD	MORE+2
>> CANCPH	MORE+2
>> CBY	DISPLAY+18
>> CDT	DISPLAY+18
>> COMM	DISPLAY+8, DISPLAY+9, DISPLAY+10*
>> COMP	HDR+3
>> CREAS	MORE+2
DA	HDR+1!
>> DESD	MORE+6
>> DESDP	MORE+6
>> DESTD	MORE+4, MORE+5
>> DESTH	MORE+5
>> DESTQ	MORE+5
DIR	HDR+1!
DIR(0	HDR+1*
>> DIWF	DISPLAY+9*
>> DIWL	DISPLAY+9*
>> DIWR	DISPLAY+9*
>> DREAS	MORE+5
>> DRUG	HDR+6
>> EDPH	MORE+1
>> EDQTY	MORE+1
>> EDT	MORE+1
>> EREAS	MORE+1
>> EXP	DISPLAY+2
>> FILL	DISPLAY+4
IOF	HDR+2
IOSL	MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1, CHK+1
IOST	HDR+1
>> JJ	LOOP+1*, LOOP+2, LOOP+4, LOOP+5
LN	HDR+2!*, HDR+4
>> LOT	DISPLAY+2
>> MFG	DISPLAY+2
>> NAOU	DISPLAY+5
>> NODE16	DISPLAY+15
>> NODE3	DISPLAY+20, MORE+3, MORE+4
>> NODE4	DISPLAY+20, MORE+1
>> NODE5	DISPLAY+20, MORE+2
>> NODE7	MORE+7
>> ORC	DISPLAY+11
>> ORCD	DISPLAY+11, DISPLAY+12
>> OTR	DISPLAY+19
>> PG	DISPLAY+1, HDR+1, HDR+2
>> PROC	DISPLAY+4
>> PSDA	DISPLAY+9, HDR+5
>> PSDBY	DISPLAY+3
>> PSDDT	DISPLAY+3
>> PSDIN	DISPLAY+14
>> PSDIP	DISPLAY+14
>> PSDIR	DISPLAY+14
>> PSDOUT	DISPLAY+1, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+19, HDR+1 , MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1
>> PSDPN	HDR+3
>> PSDSN	HDR+4
>> PSDTP	DISPLAY+16
>> PSDUZAN	DISPLAY+7
>> PUBY	DISPLAY+17
>> PUDT	DISPLAY+17
>> QTY	HDR+6
>> REAS	DISPLAY+13
>> REQ	DISPLAY+5
>> REQD	DISPLAY+6
>> RETN	DISPLAY+16, MORE+3, MORE+4
>> RTECH	DISPLAY+12
>> SREAS	MORE+3
>> STAT	HDR+3
>> STKD	MORE+3
>> STKQ	MORE+3
>> TEXT	DISPLAY+9*
>> TRANS	DISPLAY+20
>> TRN(	LOOP+1, LOOP+2, LOOP+4, LOOP+5
U	HDR+5, LOOP+4
>> X	DISPLAY+9*
>> Y	HDR+1

Customize PDF page

Package: Controlled Substances

Routine: PSDGSH2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: