Routine: PSGDSP

Package	Total	Call Graph
Inpatient Medications	4	ENHDR^PSGDSP0 ^PSGDSPN $$ENDTC2^PSGMI TXT^PSGMUTL
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSGDS0

Entry Points

Name	Comments	DBIA/ICR reference
END	;
OP	;
DONE	;
LOOP	;
ORDP	;

External References

Name	Field # of Occurrence
NOW^%DTC	LOOP+1
ENHDR^PSGDSP0	LOOP+5
^PSGDSPN	END+1, END+2, END+6, END+7, END+8, END+9, END+10
$$ENDTC2^PSGMI	LOOP+1
TXT^PSGMUTL	ORDP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: LOOP+2
Function Call: WRITE	Prompt: !?22,"AUTHORIZED ABSENCE/DISCHARGE ORDERS",?62,PSGPDT Line Location: LOOP+2
Function Call: WRITE	Prompt: !,ELN,!?4,"OTHER MEDICATIONS:",!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4 Line Location: END+3
Function Call: WRITE	Prompt: "___SC ___NSC " Condition for execution: ELIG Line Location: END+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: END+4
Function Call: WRITE	Prompt: !?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time" Line Location: END+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: END+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: END+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),! Line Location: END+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: END+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: END+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: END+12
Function Call: WRITE	Prompt: ! Line Location: END+13
Function Call: WRITE	Prompt: !?2,PPN,?40,PSSN,?78-$L(PDOB),PDOB Line Location: END+14
Function Call: WRITE	Prompt: !,LINE,!,$J(N,3),?4 Line Location: ORDP+1
Function Call: WRITE	Prompt: "(N/F) " Line Location: ORDP+1
Function Call: WRITE	Prompt: ?56,$P(ND,"^",10),?72,UC Line Location: ORDP+2
Function Call: WRITE	Prompt: !?4,"*ORDER CONTAINS "_DDRG_" DISPENSE DRUGS" Condition for execution: (DDRG="MULTIPLE")!(DDRG="NO") Line Location: ORDP+2
Function Call: WRITE	Prompt: !?4,"Inpt Dose: " Line Location: ORDP+3
Function Call: WRITE	Prompt: ?16,MARX(I),! Line Location: ORDP+6
Function Call: WRITE	Prompt: !?4,"Special Instructions: " Line Location: ORDP+8
Function Call: WRITE	Prompt: !?30 Condition for execution: $X+$L(Y)>78 Line Location: ORDP+8
Function Call: WRITE	Prompt: Y," " Line Location: ORDP+8
Function Call: WRITE	Prompt: !!?4,STRS,!?4,"* THIS IS A SCHEDULE II DRUG. A PRESCRIPTION BLANK ",!?4," (VA FORM 10-2277d) MUST BE USED TO ORDER THIS DRUG. *",!?4,STRS Line Location: ORDP+9
Function Call: WRITE	Prompt: !!?4,STRS,!?4,"* THIS ITEM IS NONRENEWABLE. ",!?4," CONTACT PHARMACY IF YOU HAVE QUESTIONS. *",!?4,STRS Line Location: ORDP+10
Function Call: WRITE	Prompt: "Qty: _____ Refills: 0 1 2 3 4 5"_$S((+SPH>2)&(+SPH<6):"",1:" 6 7 8 9 10 11") Line Location: ORDP+12
Function Call: WRITE	Prompt: !!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24),!?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time" Line Location: ORDP+13
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+1
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
>> %	LOOP+1
AD	DONE+1!
AGE	DONE+1!
>> CML	LOOP+1*, DONE+1
>> DDRG	ORDP+1*, ORDP+2
>> DFN	LOOP+5*
DIR	DONE+1!
>> DO	ORDP+1*, ORDP+5
>> DRG	LOOP+4, END+1, ORDP+2
>> ELIG	LOOP+5*, END+4, ORDP+11, OP+1
ELN	LOOP+4*, DONE+1!, END+3, END+7, END+8, END+9, END+10, END+11, END+12
HDR	LOOP+5, DONE+1!, END+7
I	ORDP+4~, ORDP+6*
IO	LOOP+1, LOOP+2
IO(0	LOOP+1
IOF	LOOP+2, DONE+1
IOSL	END+1, END+2, END+6, END+7, END+8, END+9, END+10, END+13
IOST	LOOP+1
JJ	DONE+1!
LINE	LOOP+4*, DONE+1!, ORDP+1, OP+1
LN	LOOP+4*, DONE+1!, END+3, END+4, END+7, END+8, END+9, END+10, END+11, END+12 , ORDP+11, ORDP+13, OP+1, OP+2
MARX	ORDP+4~, ORDP+6
MARX(	ORDP+6
>> N	END+2, END+3, END+6, ORDP+1*, OP+1
>> NC	LOOP+4, END+7
>> ND	END+1*, ORDP+1, ORDP+2, ORDP+5, ORDP+7
>> NF	ORDP+1*
>> NP	LOOP+4*, LOOP+5, END+1, END+2, END+6, END+7, END+8, END+9, END+10
PDOB	DONE+1!, END+14
PG	DONE+1!
PI	LOOP+5*, DONE+1!
>> PN	LOOP+4, LOOP+5, END+1
PPN	DONE+1!, END+14
PSEX	DONE+1!
>> PSGAPWDN	LOOP+3
>> PSGAPWGN	LOOP+3
>> PSGDT	LOOP+1*
PSGPDT	LOOP+1*, LOOP+2, DONE+1!
PSGVAMC	DONE+1!
>> PSJSEL("SELECT"	LOOP+3
PSSN	DONE+1!, END+14
>> Q	END+13*
RCT	DONE+1!
RF	DONE+1!
SCV	DONE+1!
>> SI	END+1*, ORDP+8
>> SM	ORDP+1*
>> SPH	ORDP+1*, ORDP+9, ORDP+10, ORDP+11, ORDP+12
STRS	LOOP+4*, DONE+1!, ORDP+9, ORDP+10
TD	DONE+1!
>> UC	ORDP+1*, ORDP+2
WD	LOOP+4, LOOP+5, DONE+1!, END+1
WT	DONE+1!
>> X	ORDP+8*
>> Y	ORDP+8*
Z	DONE+1!, ORDP+8*

Customize PDF page

Package: Inpatient Medications

Routine: PSGDSP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: