Routine: PSGDSP0

Package	Total	Call Graph
Inpatient Medications	2	$$SITE^PSGMMAR2 ENTRY^PSJHEAD
Adverse Reaction Tracking	1	^GMRADPT

Package	Total	Caller Graph
Inpatient Medications	3	PSGDSP PSGDSP1 PSGDSPN

Entry Points

Name	Comments	DBIA/ICR reference
ENHDR	; first header for each patient
ENHDR1	;
ENRCT	;

External References

Name	Field # of Occurrence
^GMRADPT	ENRCT+1
$$SITE^PSGMMAR2	ENHDR1+1
ENTRY^PSJHEAD	ENHDR1+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1,"VA FORM: 10-7978M",!?1,"Effective Date:" Line Location: ENHDR1+3
Function Call: WRITE	Prompt: ?72,"Page: 1" Condition for execution: HDR>19 Line Location: ENHDR1+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: ENHDR1+4
Function Call: WRITE	Prompt: !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1," ",!?1,"Effective Date:" Line Location: ENHDR1+4
Function Call: WRITE	Prompt: ?72,"Page: 1" Condition for execution: HDR>19 Line Location: ENHDR1+4
Function Call: WRITE	Prompt: !,ELN,!,"Instructions to the physician:",!?4,"A. A prescription blank (VA FORM 10-2577F) must be used for:",!?9,"1. all class II narcotics",!?9,"2. any medications marked as 'nonrenewable'" Line Location: ENHDR1+5
Function Call: WRITE	Prompt: !,ELN,!,"Instructions to the physician:",!?4,"A. A prescription blank must be used for:",!?9,"1. all class II narcotics",!?9,"2. any medications marked as 'nonrenewable'" Line Location: ENHDR1+6
Function Call: WRITE	Prompt: !?9,"3. any new medications in addition to those entered on this form." Line Location: ENHDR1+7
Function Call: WRITE	Prompt: !?4,"B. If a medication is not to be continued, mark ""TAKE NO ACTION"".",!?4,"C. To continue a medication, you MUST:",!?9,"1. enter directions, quantity," Line Location: ENHDR1+7
Function Call: WRITE	Prompt: " and refills",!?9,"2. sign the order, enter your DEA number, and enter the date AND time." Line Location: ENHDR1+8
Function Call: WRITE	Prompt: " and refills",!?9,"2. sign the order and enter the date AND time." Line Location: ENHDR1+9
Function Call: WRITE	Prompt: !,ELN,! Line Location: ENHDR1+10
Function Call: WRITE	Prompt: ?53,"Last Transferred: "_TD Condition for execution: TD Line Location: ENHDR1+13
Function Call: WRITE	Prompt: !?3,"Inpt Dx: "_PI,?$S($L(RB)<9:61,1:69-$L(RB)),"Room-bed: "_RB,!?1,"Reactions:" Line Location: ENHDR1+13
Function Call: WRITE	Prompt: !,ELN Line Location: ENHDR1+14
Function Call: WRITE	Prompt: !!?18,"* THIS PATIENT HAS NON-VERIFIED ORDERS. *",! Line Location: ENHDR1+14
Function Call: WRITE	Prompt: !?4,"___ AUTHORIZED ABSENCE <96 HOURS ___ AUTHORIZED ABSENCE >96 HOURS",!?8,"NUMBER OF DAYS: _____ (NO REFILLS allowed on AA/PASS meds)",!!?4,"___ REGULAR DISCHARGE ___ OPT NSC ___ SC" Line Location: ENHDR1+15
Function Call: WRITE	Prompt: !?4,"___ AUTHORIZED ABSENCE <96 HOURS ___ AUTHORIZED ABSENCE >96 HOURS",!?8,"NUMBER OF DAYS: _____ (NO REFILLS allowed on AA/PASS meds)",!!?4,"___ REGULAR DISCHARGE " Line Location: ENHDR1+16
Function Call: WRITE	Prompt: " is on ",SCV Line Location: ENHDR1+17
Function Call: WRITE	Prompt: " at ",SC Condition for execution: SC]"" Line Location: ENHDR1+17
Function Call: WRITE	Prompt: " is on ",SCV Line Location: ENHDR1+18
Function Call: WRITE	Prompt: " at ",SC Condition for execution: SC]"" Line Location: ENHDR1+18
Function Call: WRITE	Prompt: "," Condition for execution: X>1 Line Location: ENRCT+3
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(RCT)>77 Line Location: ENRCT+3
Function Call: WRITE	Prompt: " ",RCT Line Location: ENRCT+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AD	ENHDR+1*
>> AGE	ENHDR+2*
>> DF	ENHDR+1*
DFN	ENHDR1+12, ENRCT+1~*
>> ELIG	ENHDR+2*
>> ELN	ENHDR1+6, ENHDR1+10, ENHDR1+14, ENHDR1+19
GMRA	ENRCT+1~*
GMRAL	ENRCT+1~
GMRAL(	ENRCT+2
>> HDR	ENHDR1+4, ENHDR1+6, ENHDR1+7, ENHDR1+9, ENHDR1+14, ENHDR1+16, ENHDR1+19
IOF	ENHDR1+4
>> N	ENHDR+1*
>> PDOB	ENHDR+1, ENHDR+2
>> PG	ENHDR+2*, ENHDR1+12
>> PI	ENHDR+1*
>> PN	ENHDR+1
>> PPN	ENHDR+1*
>> PSEX	ENHDR+1*
>> PSGP	ENHDR+1*, ENHDR1+14, ENRCT+1
>> PSGPDT	ENHDR1+4
>> PSGVAMC	ENHDR1+1*, ENHDR1+4
>> PSJNARC	ENHDR1+12
>> PSJOPC	ENHDR1+12
>> PSJTEAM	ENHDR1+12
>> PSSN	ENHDR+1*
>> RB	ENHDR+1*
RCT	ENRCT+1~, ENRCT+3*
RCT(	ENRCT+2*, ENRCT+3
>> SC	ENHDR+1*, ENHDR1+18
>> SCV	ENHDR+1*, ENHDR1+18
>> TD	ENHDR+1*
U	ENHDR1+4, ENRCT+2
>> VAEL(3	ENHDR+2*
>> VAEL(4	ENHDR+2*
>> VAEL(6	ENHDR+2*
>> WT	ENHDR+1*
X	ENRCT+1~, ENRCT+2, ENRCT+3

Customize PDF page

Package: Inpatient Medications

Routine: PSGDSP0

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: