Routine: PSGAPP

Package	Total	Call Graph
Inpatient Medications	5	PRT^PSGAPIV $$ENDTC2^PSGMI $$SITE^PSGMMAR2 ENTRY^PSJHEAD DRGDISP^PSJLMUT1
VA Fileman	2	NOW^%DTC ^DIR
Adverse Reaction Tracking	1	EN1^GMRADPT
Kernel	1	$$DT^XLFDT

Package	Total	Caller Graph
Inpatient Medications	3	PSGAP0 PSGAPIV PSJO2

Entry Points

Name	Comments	DBIA/ICR reference
ENRCT	;
END	;
H1	;
DONE	;
NP	;
NP1	;
LOOP	;
ORDP	;

External References

Name	Field # of Occurrence
NOW^%DTC	LOOP+1
^DIR	H1+2, NP1+2
EN1^GMRADPT	ENRCT+1
PRT^PSGAPIV	ORDP+1
$$ENDTC2^PSGMI	LOOP+1
$$SITE^PSGMMAR2	LOOP+3
ENTRY^PSJHEAD	H1+11
DRGDISP^PSJLMUT1	ORDP+3
$$DT^XLFDT	LOOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: LOOP+2
Function Call: WRITE	Prompt: !?28,"UNIT DOSE ACTION PROFILE",?62,PSGPDT,!?10,"NO ACTIVE ORDERS FOUND FOR ",$S(PSGSS="G":"WARD GROUP: "_PSGAPWGN,PSGSS="W":"WARD: "_PSGAPWDN,1:"PATIENT(S) SELECTED"),"." Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H1+4
Function Call: WRITE	Prompt: !?26,"UNIT DOSE ACTION PROFILE #1",?62,PSGPDT Line Location: H1+4
Function Call: WRITE	Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2) Line Location: H1+5
Function Call: WRITE	Prompt: !?23,"(Continuation)",?72,"Page: 1",!,LINE Line Location: H1+7
Function Call: WRITE	Prompt: !," This form is to be used to REVIEW/RENEW/CANCEL existing active medication",!," orders for inpatients. Review the active orders listed and beside" Line Location: H1+8
Function Call: WRITE	Prompt: " each order",!," circle one of the following:",!?30,"R - to RENEW the order",!?30,"D - to DISCONTINUE the order",!?30,"N - to take NO ACTION (the order will remain",!?34,"active until the stop date indicated)" Line Location: H1+9
Function Call: WRITE	Prompt: !!," A new order must be written for any new medication or to make any changes",!," in dosage or directions on an existing order.",!,LINE,! Line Location: H1+10
Function Call: WRITE	Prompt: !,LINE,!," No. Action",?16,"Drug",?52,"ST Start Stop Status/Info",!,ALN Line Location: H1+12
Function Call: WRITE	Prompt: !!?13,"****** THIS PATIENT HAS NON-VERIFIED ORDERS. ******" Line Location: END+3
Function Call: WRITE	Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:" Line Location: END+10
Function Call: WRITE	Prompt: !!,LINE Line Location: END+11
Function Call: WRITE	Prompt: !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE",! Line Location: END+13
Function Call: WRITE	Prompt: ! Line Location: END+14
Function Call: WRITE	Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:" Line Location: END+19
Function Call: WRITE	Prompt: !!,LINE Line Location: END+20
Function Call: WRITE	Prompt: PSG(1),?52,$P(DRG,U),?55,$P(ND,U,2),?61,$P(ND,U,3),?67,$P(ND,U) Line Location: ORDP+5
Function Call: WRITE	Prompt: ?71 Line Location: ORDP+5
Function Call: WRITE	Prompt: "NF " Condition for execution: NF Line Location: ORDP+5
Function Call: WRITE	Prompt: "WS " Condition for execution: $P(ND,U,4) Line Location: ORDP+5
Function Call: WRITE	Prompt: $E("HSM",SM,3) Condition for execution: SM Line Location: ORDP+5
Function Call: WRITE	Prompt: !?11,PSG(X) Line Location: ORDP+6
Function Call: WRITE	Prompt: !?11,"Special Instructions: " Line Location: ORDP+7
Function Call: WRITE	Prompt: !?35 Condition for execution: $X+$L(Y)>78 Line Location: ORDP+7
Function Call: WRITE	Prompt: Y," " Line Location: ORDP+7
Function Call: WRITE	Prompt: ! Line Location: ORDP+8
Function Call: WRITE	Prompt: !!?16,LN,?40,LN_LN,!?16,"Date and Time",?40,"PROVIDER'S SIGNATURE" Line Location: NP+2
Function Call: WRITE	Prompt: ! Line Location: NP1+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: NP1+4
Function Call: WRITE	Prompt: !?26,"UNIT DOSE ACTION PROFILE #1",?73-$L(PG),"Page: "_PG Line Location: NP1+4
Function Call: WRITE	Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2) Line Location: NP1+5
Function Call: WRITE	Prompt: !?1,PPN,?40,PID,?60,PDOB Line Location: NP1+6
Function Call: WRITE	Prompt: !!,"ADDITIONAL MEDICATION ORDERS (CONTINUED):",! Line Location: NP1+9
Function Call: WRITE	Prompt: !!,LINE Line Location: NP1+10
Function Call: WRITE	Prompt: " ____________________" Line Location: ENRCT+3
Function Call: WRITE	Prompt: "," Condition for execution: X Line Location: ENRCT+4
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(RCT)>77 Line Location: ENRCT+4
Function Call: WRITE	Prompt: " ",$S(RCT="NKA":"No Known Allergies",1:RCT) Line Location: ENRCT+4
Routine Call	DIR Line Location: H1+2 NP1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	END+3
^TMP($J	LOOP+2, LOOP+5, LOOP+7, END+1

Label References

Name	Line Occurrences
DONE	LOOP+2
H1	LOOP+7
NP	END+1
NP1	END+5, END+6, END+11, END+18, END+20
ORDP	END+1

Naked Globals

Name	Field # of Occurrence
^(	LOOP+7, END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LOOP+1
AD	DONE+1!, H1+3*
ALN	LOOP+4*, DONE+1!, H1+12, NP1+11
AMO	LOOP+7, DONE+1!, END+12, END+17, END+18*, NP1+4, NP1+11
CML	LOOP+1*, DONE+1!
DF	DONE+1!, H1+3, END+4, NP1+8
DFN	H1+3, H1+11, ENRCT+1~
DIR	H1+2!, NP1+2!
DIR(0	H1+2, NP1+2
>> DRG	END+1*, ORDP+4, ORDP+5
DT	LOOP+1*
>> DTOUT	H1+2, NP1+2
>> DUOUT	H1+2, NP1+2
GMRA	ENRCT+1~*
GMRAL	ENRCT+1~
GMRAL(	ENRCT+2
IO	LOOP+1, LOOP+2
IO(0	LOOP+1
IOF	LOOP+2, DONE+1, H1+4, NP1+4
IOSL	END+1, END+5, END+6, END+9, END+11, END+14, END+20, NP1+3
IOST	LOOP+1, H1+2, NP1+2
LINE	LOOP+4*, DONE+1!, H1+7, H1+10, H1+12, END+11, END+20, NP1+10
LN	LOOP+4*, DONE+1!, END+4, END+5, END+6, END+13, END+21, NP+2
MF	DONE+1!
N	DONE+1!, H1+3, ORDP+1, ORDP+4
>> ND	END+1*, ORDP+1, ORDP+4, ORDP+5
>> NF	ORDP+4*, ORDP+5
>> ON	END+1*, ORDP+1, ORDP+3
>> PAGE	H1+4*
>> PDOB	H1+3, H1+4, END+15, END+22, NP1+4, NP1+6
PG	DONE+1!, H1+4, H1+11, NP1+4
PI	LOOP+7, DONE+1!, H1+3
PID	DONE+1!, H1+3*, END+15, END+22, NP1+4, NP1+6
>> PN	LOOP+5*, LOOP+7, H1+3, END+1, ORDP+2
PPN	DONE+1!, H1+3*, END+15, END+22, NP1+4, NP1+6
>> PSEX	H1+3*
PSG	ORDP+2~, ORDP+3
PSG(	ORDP+6
PSG(1	ORDP+5
>> PSGAPWDN	LOOP+2
>> PSGAPWGN	LOOP+2
>> PSGDT	LOOP+1*
>> PSGP	H1+3, END+3, ORDP+2, ORDP+3, ENRCT+1
PSGPDT	LOOP+1*, LOOP+2, DONE+1!, H1+4
>> PSGSS	LOOP+2
PSGVAMC	LOOP+3*, DONE+1!, H1+5, NP1+5
PSJAMO	DONE+1!, END+8~, END+11, END+20, NP1+9
PSJCNTR	DONE+1!, END+8~, END+11, END+20
PSJDLW	LOOP+5, DONE+1!, H1+1, H1+2, END+1, END+2, END+4, END+5, END+6, END+15 , END+18, END+21, END+22, NP+1, NP1+1, NP1+2
>> PSJNARC	H1+11
>> PSJOPC	H1+11*
PSJTEAM	DONE+1!, H1+11
>> Q	END+14, NP1+3
>> RB	H1+3*
RCT	DONE+1!, ENRCT+1~, ENRCT+3, ENRCT+4*
RCT(	ENRCT+2*, ENRCT+4
RF	DONE+1!
>> SI	END+1*, ORDP+7
>> SM	ORDP+4*, ORDP+5
TD	DONE+1!, H1+3*
TM	LOOP+5*, DONE+1!, END+1
U	H1+5, ORDP+2, ORDP+5, NP1+5
WD	LOOP+5*, LOOP+7, DONE+1!, END+1
>> WT	H1+3*
X	ORDP+2~, ORDP+6~, ORDP+7, ENRCT+1~, ENRCT+2, ENRCT+4
>> Y	ORDP+7*

Customize PDF page

Package: Inpatient Medications

Routine: PSGAPP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: