Routine: PSGVW

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

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

Entry Points

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

External References

Name	Field # of Occurrence
$$ES^ORX8	L+2
ES^ORX8	L+2
$$ENDDN^PSGMI	WRT+33
$$ENDTC^PSGMI	L+6, WRT+32
$$ENDTC2^PSGMI	L+7, WRT+14
$$ENNPN^PSGMI	L+1, ACTFLG+6, ACTFLG+7
$$ENSTN^PSGMI	WRT+18
$$ENSET^PSGSICHK	L+4
$$GETSIOPI^PSJBCMA5	WRT+22
$$FMTDUR^PSJLIVMD	WRT+8
$$GETDUR^PSJLIVMD	WRT+9, WRT+17
$$LASTREN^PSJLMPRI	WRT+14
$$OIDF^PSJLMUT1	L+4
$$BCMALG^PSJUTL2	WRT+15
$$LOW^XLFSTR	L+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: CONT Timeout: DTIME 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: ?46,"Renewed: ",RNDT Line Location: WRT+14
Function Call: WRITE	Prompt: !,$$BCMALG^PSJUTL2(PSGP,PSGORD) Line Location: WRT+15
Function Call: WRITE	Prompt: ?49,"Stop: ",FD Line Location: WRT+16
Function Call: WRITE	Prompt: !?1,"Schedule Type: ",$$ENSTN^PSGMI(SCT) Line Location: WRT+18
Function Call: WRITE	Prompt: !?6,"Schedule: ",$S(SCH="":"NOT FOUND",$L(SCH)>27:$E(SCH,1,24)_"...",1:SCH) Line Location: WRT+19
Function Call: WRITE	Prompt: !,"Special Instructions: (see below) " Line Location: WRT+23
Function Call: WRITE	Prompt: !?2,QQ," " Line Location: WRT+24
Function Call: WRITE	Prompt: !,"Special Instructions: (see below)" Line Location: WRT+26
Function Call: WRITE	Prompt: !!,?4,"Indication: "_$P($G(@(F_"18)")),U) Line Location: WRT+28
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+29
Function Call: WRITE	Prompt: !,Y Line Location: WRT+35
Function Call: WRITE	Prompt: !,^(Q,0) Line Location: WRT+36
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

Global Variables Directly Accessed

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("PSJBCMA5"	EN21+1!, WRT+25, WRT+27, DONE+1!
^TMP("PSJON"	EN1+1
^VA(200 - [#200]	L+1

Label References

Name	Line Occurrences
EN21	EN2+2

Naked Globals

Name	Field # of Occurrence
^(	EN21+7, WRT+31, WRT+35, WRT+36
^(0	WRT+12
^(1	EN21+7
^(2	EN21+7
^(2.1	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+2!
AT	EN21+7, L, WRT+20, ACTFLG, ACTFLG+1, ACTFLG+2, ACTFLG+3*, DONE+2!
CONT	EN2+2!, EN2+3*
D	WRT+32*, WRT+33, DONE+2!
DO	EN21+7, EN21+8, WRT+7, DONE+2!
DRG	L+4, WRT+5, WRT+31, WRT+32*, WRT+33, DONE+2!
DRG1	DONE+2!
DRG2	DONE+2!
>> DRGI	L+1*, ACTFLG+8
DT	L+1
DTIME	EN2+3
EB	EN21+7*, ACTFLG+6, DONE+2!
ESIG	EN21+2~, EN21+8, L+2, L+3
ESIG1	L+2~*
F	EN21+4*, EN21+7, WRT+1, WRT+4, WRT+28, WRT+31, WRT+35, WRT+36, DONE+2!
FD	L*, WRT+16, DONE+2!
FL	EN21+4*, WRT+2, WRT+29, DONE+2!
>> FQC	L*
HSM	EN21+8*, ACTFLG+4, ACTFLG+5, DONE+2!
INS	EN21+7*, WRT+6, DONE+2!
IOF	EN2+3
LID	EN21+8*, ACTFLG+6, DONE+2!
LNTXT	WRT+25~*, WRT+26, WRT+27
MR	EN21+8*, WRT+12, DONE+2!
ND4	EN21+7*, ACTFLG, ACTFLG+1, DONE+2!
>> NF	EN21+3*, EN21+4, EN21+7
OD	EN21+7, EN21+8, DONE+2!
>> P	WRT+9, WRT+17
>> PDRG	EN21+7, EN21+8, L+1, L+4
PN	EN21+5*, WRT+2, DONE+2!
PR	EN21+8, L+1, L+3*, WRT+21, DONE+2!
>> PRI	L+1*, ACTFLG+8
PSGID	DONE+2!
>> PSGLI	EN21+8*
PSGLRN	WRT+14~*, ACTFLG+7
PSGO	EN2+1~*
PSGO1	EN2+1~*
PSGOD	DONE+2!
>> 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+14, WRT+15, WRT+17 , WRT+22, WRT+25, WRT+27
>> PSGP	EN21+4, EN21+5, WRT+9, WRT+14, WRT+15, WRT+17, WRT+22, WRT+25, WRT+27, 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+17*
>> PSJLM	L+8
>> PSJPR	EN2+3*
>> PSJSYSP	EN21+1, WRT+25
>> PSJSYSU	ACTFLG+1
>> Q	L+6, L+7, WRT+24, WRT+35, WRT+36*
>> QQ	WRT+24*
R	WRT+32*, WRT+33, DONE+2!
RNDT	WRT+14~*
RT	EN21+7, L, WRT+21, DONE+2!
SCH	L*, WRT+19, DONE+2!
SCT	EN21+8*, WRT+18, WRT+20, WRT+21, DONE+2!
SI	L+4*, WRT+22, WRT+23, WRT+24, DONE+2!
SIG	EN21+7*, DONE+2!
SIL	WRT+22~*, WRT+23
SM	EN21+8*, ACTFLG+4, ACTFLG+5, DONE+2!
ST	EN21+8*, WRT+3, WRT+4, DONE+2!
>> STAT	EN21+7*, L
STD	L*, WRT+11, DONE+2!
U	EN21+7, L, WRT+4, WRT+8, WRT+28
UD	WRT+32*, WRT+33, DONE+2!
X	EN21+7, L+4, WRT+31, ACTFLG*, DONE+2!
XU	EN21+7*, DONE+2!
Y	EN21+4, WRT+32, WRT+33, WRT+35~, ACTFLG, DONE+2!

Marked Items

Name	Field # of Occurrence
$T(ES^ORX8	L+2

Customize PDF page

Package: Inpatient Medications

Routine: PSGVW

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items