Routine: PSGVW

Call Graph Total: 8

Package	Total	Call Graph
Inpatient Medications	6	($$ENDDN,$$ENDTC,$$ENNPN,$$ENSTN)^PSGMI $$ENSET^PSGSICHK ($$FMTDUR,$$GETDUR)^PSJLIVMD $$LASTREN^PSJLMPRI $$OIDF^PSJLMUT1 $$BCMALG^PSJUTL2
Kernel	1	$$LOW^XLFSTR
Order Entry Results Reporting	1	($$ES,ES)^ORX8

Package

Total

Call Graph

($$ENDDN,$$ENDTC,$$ENNPN,$$ENSTN)^PSGMI $$ENSET^PSGSICHK ($$FMTDUR,$$GETDUR)^PSJLIVMD $$LASTREN^PSJLMPRI $$OIDF^PSJLMUT1 $$BCMALG^PSJUTL2

Kernel

$$LOW^XLFSTR

Order Entry Results Reporting

($$ES,ES)^ORX8

Package	Total	Caller Graph
Inpatient Medications	9	PSGOE0 PSGOE1 PSGPR PSGVBWP PSGVWP PSIVHIS PSJHIS PSJOE0 PSJPR

Package

Total

Caller Graph

Inpatient Medications

PSGOE0 PSGOE1 PSGPR PSGVBWP PSGVWP PSIVHIS PSJHIS PSJOE0
PSJPR

Name	Comments	DBIA/ICR reference
EN21	;
ACTFLG
WRT	;
L
EN1	;
EN2	;
DONE	;

External References

Name	Field # of Occurrence
$$ES^ORX8	L+2
ES^ORX8	L+2
$$ENDDN^PSGMI	WRT+25
$$ENDTC^PSGMI	L+5, WRT+13, WRT+24
$$ENNPN^PSGMI	L+1, ACTFLG+6, ACTFLG+7
$$ENSTN^PSGMI	WRT+17
$$ENSET^PSGSICHK	L+4
$$FMTDUR^PSJLIVMD	WRT+8
$$GETDUR^PSJLIVMD	WRT+9, WRT+16
$$LASTREN^PSJLMPRI	WRT+13
$$OIDF^PSJLMUT1	L+4
$$BCMALG^PSJUTL2	WRT+14
$$LOW^XLFSTR	L+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: CONT Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"Press RETURN to continue or '^' to exit: " Line Location: EN2+3
Function Call: WRITE	Prompt: @IOF Line Location: EN2+3
Function Call: WRITE	Prompt: "Patient: ",PN Line Location: WRT+2
Function Call: WRITE	Prompt: ?47,"Status: " Line Location: WRT+3
Function Call: WRITE	Prompt: "DISCONTINUED",$S(ST["E":" (EDIT)",ST["R":" (RENEWAL)",1:"") Line Location: WRT+3
Function Call: WRITE	Prompt: $S(ST="E":"EXPIRED",$P($G(@(F_"0)")),U,27)="R":"RENEWED",ST="":"NOT FOUND",ST="RE":"REINSTATED",1:$P(ST_"^ACTIVE^HOLD^INCOMPLETE^NON-VERIFIED^PENDING^UNRELEASED","^",$F("AHINPU",ST))) Line Location: WRT+4
Function Call: WRITE	Prompt: !,"Orderable Item: ",DRG Line Location: WRT+5
Function Call: WRITE	Prompt: !?2,"Instructions: ",INS Line Location: WRT+6
Function Call: WRITE	Prompt: !,"Dosage Ordered: ",DO Line Location: WRT+7
Function Call: WRITE	Prompt: !?6,"Duration: ",PSJDUR Line Location: WRT+10
Function Call: WRITE	Prompt: ?48,"Start: ",STD Line Location: WRT+11
Function Call: WRITE	Prompt: !?5,"Med Route: ",$S(MR:$S($D(^PS(51.2,+MR,0)):$P(^(0),"^")_$S($P(^(0),"^",3)]"":" ("_$P(^(0),"^",3)_")",1:""),1:MR),1:"NOT FOUND") Line Location: WRT+12
Function Call: WRITE	Prompt: ?46,"Renewed: ",RNDT Line Location: WRT+13
Function Call: WRITE	Prompt: !,$$BCMALG^PSJUTL2(PSGP,PSGORD) Line Location: WRT+14
Function Call: WRITE	Prompt: ?49,"Stop: ",FD Line Location: WRT+15
Function Call: WRITE	Prompt: !?1,"Schedule Type: ",$$ENSTN^PSGMI(SCT) Line Location: WRT+17
Function Call: WRITE	Prompt: !?6,"Schedule: ",$S(SCH="":"NOT FOUND",$L(SCH)>27:$E(SCH,1,24)_"...",1:SCH) Line Location: WRT+18
Function Call: WRITE	Prompt: !,"Special Instructions: " Line Location: WRT+20
Function Call: WRITE	Prompt: !?2 Condition for execution: $L(QQ)+$X>79 Line Location: WRT+20
Function Call: WRITE	Prompt: QQ," " Line Location: WRT+20
Function Call: WRITE	Prompt: !?48,"Units",?56,"Units",?64,"Inactive",!," Dispense Drugs",?43,"U/D",?48,"Disp'd",?56,"Ret'd",?64,"Date",!,FL,$E(FL,1,10) Line Location: WRT+21
Function Call: WRITE	Prompt: !,Y Line Location: WRT+27
Function Call: WRITE	Prompt: !,^(Q,0) Line Location: WRT+28
Function Call: WRITE	Prompt: ! Line Location: ACTFLG+0
Function Call: WRITE	Prompt: " (",$P(AT,"^",10),")" Line Location: ACTFLG+3
Function Call: WRITE	Prompt: !,"Self Med: " Line Location: ACTFLG+4
Function Call: WRITE	Prompt: "SELF MED" Line Location: ACTFLG+4
Function Call: WRITE	Prompt: " (HOSPITAL SUPPLIED)" Condition for execution: HSM Line Location: ACTFLG+4
Function Call: WRITE	Prompt: "NO" Line Location: ACTFLG+5
Function Call: WRITE	Prompt: !!,"Entry By: ",$$ENNPN^PSGMI(EB),?52,"Entry Date: ",LID Line Location: ACTFLG+6
Function Call: WRITE	Prompt: !,"Renewed By: "_$$ENNPN^PSGMI($P(PSGLRN,"^",2)) Line Location: ACTFLG+7
Function Call: WRITE	Prompt: !?3,"(PROVIDER IS CURRENTLY LISTED AS INACTIVE.)" Line Location: ACTFLG+8

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN21+5
^PS(50.7 - [#50.7]	L+1
^PS(51.2 - [#51.2]	WRT+12
^PS(53.1 - [#53.1]	EN2+1
^PS(53.45 - [#53.45]	EN21+1!
^PS(55 - [#55]	ACTFLG+3
^TMP("PSJON"	EN1+1
^VA(200 - [#200]	L+1

Name	Line Occurrences
EN21	EN2+2

Name	Field # of Occurrence
^(	EN21+7, WRT+23, WRT+27, WRT+28
^(0	WRT+12
^(1	EN21+7
^(2	EN21+7
^(4	EN21+7
^(5	EN21+7
^(5.1	ACTFLG+3
^(6	EN21+7
^(6.5	EN21+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AND	DONE+1!
AT	EN21+7, L, WRT+19, ACTFLG, ACTFLG+1, ACTFLG+2, ACTFLG+3*, DONE+1!
CONT	EN2+2!, EN2+3*
D	WRT+24*, WRT+25, DONE+1!
DO	EN21+7, EN21+8, WRT+7, DONE+1!
DRG	L+4, WRT+5, WRT+23, WRT+24*, WRT+25, DONE+1!
DRG1	DONE+1!
DRG2	DONE+1!
>> DRGI	L+1*, ACTFLG+8
DT	L+1
DTIME	EN2+3
EB	EN21+7*, ACTFLG+6, DONE+1!
ESIG	EN21+2~, EN21+8, L+2, L+3
ESIG1	L+2~*
F	EN21+4*, EN21+7, WRT+1, WRT+4, WRT+23, WRT+27, WRT+28, DONE+1!
FD	L*, WRT+15, DONE+1!
FL	EN21+4*, WRT+2, WRT+21, DONE+1!
>> FQC	L*
HSM	EN21+8*, ACTFLG+4, ACTFLG+5, DONE+1!
INS	EN21+7*, WRT+6, DONE+1!
IOF	EN2+3
LID	EN21+8*, ACTFLG+6, DONE+1!
MR	EN21+8*, WRT+12, DONE+1!
ND4	EN21+7*, ACTFLG, ACTFLG+1, DONE+1!
>> NF	EN21+3*, EN21+4, EN21+7
OD	EN21+7, EN21+8, DONE+1!
>> P	WRT+9, WRT+16
>> PDRG	EN21+7, EN21+8, L+1, L+4
PN	EN21+5*, WRT+2, DONE+1!
PR	EN21+8, L+1, L+3*, WRT+19, DONE+1!
>> PRI	L+1*, ACTFLG+8
PSGID	DONE+1!
>> PSGLI	EN21+8*
PSGLRN	WRT+13~*, ACTFLG+7
PSGO	EN2+1~*
PSGO1	EN2+1~*
PSGOD	DONE+1!
>> PSGOE2	EN1+1
>> PSGOEA	EN2+1, EN2+2, EN2+3, EN2+4
>> PSGORD	EN1+1, EN2+1, EN2+4, EN21+3, EN21+4, EN21+8, WRT+9, WRT+13, WRT+14, WRT+16
>> PSGP	EN21+4, EN21+5, WRT+9, WRT+13, WRT+14, WRT+16, ACTFLG+3
>> PSGP(0	EN21+5
>> PSGPR	EN2+3*
>> PSGRDTX	WRT+8
>> PSGVWA	WRT+2
PSJ21	EN21+2~, EN21+7*, L+2
>> PSJDUR	WRT+8, WRT+9, WRT+10, WRT+16*
>> PSJLM	L+6
>> PSJPR	EN2+3*
>> PSJSYSP	EN21+1
>> PSJSYSU	ACTFLG+1
>> Q	L+5, WRT+20, WRT+27, WRT+28
>> QQ	WRT+20*
R	WRT+24*, WRT+25, DONE+1!
RNDT	WRT+13~*
SCH	L*, WRT+18, DONE+1!
SCT	EN21+8*, WRT+17, WRT+19, DONE+1!
SI	L+4*, WRT+20, DONE+1!
SIG	EN21+7*, DONE+1!
SM	EN21+8*, ACTFLG+4, ACTFLG+5, DONE+1!
ST	EN21+8*, WRT+3, WRT+4, DONE+1!
>> STAT	EN21+7*, L
STD	L*, WRT+11, DONE+1!
U	EN21+7, WRT+4, WRT+8
UD	WRT+24*, WRT+25, DONE+1!
X	EN21+7, L+4, WRT+23, ACTFLG*, DONE+1!
XU	EN21+7*, DONE+1!
Y	EN21+4, WRT+24, WRT+25, WRT+27~, ACTFLG, DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSGVW

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items