Routine: PSGDSP1

Package	Total	Call Graph
Inpatient Medications	4	ENHDR^PSGDSP0 ^PSGDSPN $$ENDTC^PSGMI PSJAC2^PSJAC
Registration	1	(ELIG,SDA)^VADPT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSGDS0

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;
PAT	;
EN	;
DONE	;
OP	;

External References

Name	Field # of Occurrence
NOW^%DTC	EN+1
ENHDR^PSGDSP0	PRINT+2
^PSGDSPN	PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
$$ENDTC^PSGMI	EN+1, PAT+2
PSJAC2^PSJAC	PAT+1
ELIG^VADPT	PAT+3
SDA^VADPT	PAT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ELN,!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4 Line Location: PRINT+4
Function Call: WRITE	Prompt: "___SC ___NSC " Condition for execution: ELIG Line Location: PRINT+4
Function Call: WRITE	Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24) Line Location: PRINT+4
Function Call: WRITE	Prompt: !?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,ELN,!?1,"DIETARY INSTRUCTIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),! Line Location: PRINT+7
Function Call: WRITE	Prompt: !,ELN,!?1,"PHYSICAL ACTIVITY LIMITATIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),! Line Location: PRINT+8
Function Call: WRITE	Prompt: !,ELN,!?1,"SPECIAL INSTRUCTIONS: (list print information, handouts, or other",!?1,"instructions pertinent to patient's condition)",$E(LN,1,32),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),! Line Location: PRINT+9
Function Call: WRITE	Prompt: !,ELN,!?1,"DIAGNOSES: ",LN,$E(LN,1,15),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26) Line Location: PRINT+10
Function Call: WRITE	Prompt: !!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Nurse's Signature",?55,"Date AND Time",!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Provider's Signature",?55,"Date AND Time",!!!?19,$E(ELN,1,42),!?19,">>>>> I HAVE RECEIVED AND UNDERSTAND <<<<<" Line Location: PRINT+11
Function Call: WRITE	Prompt: !?19,">>>>> MY DISCHARGE INSTRUCTIONS <<<<<",!?19,$E(ELN,1,42),!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Patient's Signature",?55,"Date And Time" Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: PRINT+13
Function Call: WRITE	Prompt: !?2,PPN,?40,$G(PSJPPID),?78-$L(PDOB),PDOB Line Location: PRINT+16
Function Call: WRITE	Prompt: !,LINE,!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4 Line Location: OP+1
Function Call: WRITE	Prompt: "___SC ___NSC " Condition for execution: ELIG Line Location: OP+2
Function Call: WRITE	Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24),!?4,"Provider's " Line Location: OP+2
Function Call: WRITE	Prompt: "Signature",?40,"DEA #",?55,"Date AND Time" Line Location: OP+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+1
AD	DONE+1!
AGE	DONE+1!
>> CML	EN+1*, DONE+1
>> DFN	PAT+2*
DIR	DONE+1!
>> DRG	PRINT+1*
>> ELIG	PAT+3*, PRINT+4, OP+2
ELN	DONE+1!, PRINT+1*, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
HDR	DONE+1!, PRINT+2, PRINT+7
IO	EN+1, EN+2
IO(0	EN+1
IOF	DONE+1
IOSL	PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+13
IOST	EN+1
LINE	DONE+1!, PRINT+1*, OP+1
LN	DONE+1!, PRINT+1*, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, OP+1 , OP+2
>> N	PRINT+1, PRINT+3, PRINT+4, PRINT+6*, OP+1
>> NC	PRINT+1, PRINT+7
>> NP	PRINT+1*, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
PDOB	DONE+1!, PRINT+16
PG	DONE+1!
PI	DONE+1!, PAT+5*
PN	DONE+1!, PAT+1*
PPN	DONE+1!, PRINT+16
PSEX	DONE+1!
>> PSGD	PAT+2*
>> PSGDT	EN+1*
>> PSGOD	PAT+2*, PAT+5
>> PSGP	PAT+1, PAT+2
>> PSGP(0	PAT+1
PSGPDT	EN+1*, DONE+1!
>> PSJPAD	PAT+5
>> PSJPAGE	PAT+5
>> PSJPDOB	PAT+5
>> PSJPDX	PAT+5
>> PSJPPID	PAT+5, PRINT+16
>> PSJPRB	PAT+5
>> PSJPSEX	PAT+5
>> PSJPTD	PAT+5
>> PSJPWDN	PAT+1
>> PSJPWT	PAT+5
PSSN	DONE+1!
>> Q	PRINT+13*
RCT	DONE+1!
RF	DONE+1!
>> SC	PAT+2*, PAT+5
SCV	DONE+1!
STRS	DONE+1!, PRINT+1*
TD	DONE+1!
U	PAT+5
VAEL	PAT+3!
VAEL(3	PAT+3
VAEL(4	PAT+3
VAEL(6	PAT+3
VASD	PAT+2!
WD	DONE+1!, PAT+1*
WT	DONE+1!
Z	DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSGDSP1

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

Naked Globals

Local Variables

Legend: