Routine: PSGO

Package	Total	Call Graph
Inpatient Medications	7	$$ENDTC^PSGMI ENGORD^PSGOU $$ENSET^PSGSICHK ENTRY^PSJHEAD $$LASTREN^PSJLMPRI DRGDISP^PSJLMUT1 $$WS^PSJO
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	6	PSGEUD PSGOE0 PSGPR PSGRET PSGVBW1 PSGVWP

Entry Points

Name	Comments	DBIA/ICR reference
P2
HEADER	;
EN	;
ENHEAD	;
GET	;
BOT	;
NP
P	;Display drug data stored in ^TMP("PSG",$J
DONE	;
TF	;
ENVBW	;
ENPR	;
DRG	;
D1	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENHEAD+1
$$ENDTC^PSGMI	P2+10, P2+15, P2+17, ENHEAD+1
ENGORD^PSGOU	PSGO+5
$$ENSET^PSGSICHK	P2+19
ENTRY^PSJHEAD	HEADER+3
$$LASTREN^PSJLMPRI	P2+15
DRGDISP^PSJLMUT1	P2+13
$$WS^PSJO	P2+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SLS,SLS,$E(SLS,1,24),!?22,"NO ORDERS FOUND" Line Location: EN+2
Function Call: WRITE	Prompt: " FOR A ",$S(PSGOL="S":"SHORT",1:"LONG")," PROFILE." Condition for execution: "SL"[PSGOL Line Location: EN+2
Function Call: WRITE	Prompt: !,$J(ON,4),?5 Line Location: P+3
Function Call: WRITE	Prompt: ! Line Location: P+4
Function Call: WRITE	Prompt: ! Line Location: P+5
Function Call: WRITE	Prompt: @($S(X=1:"?9",1:"!?11")) Line Location: P2+14
Function Call: WRITE	Prompt: MARX(X) Line Location: P2+14
Function Call: WRITE	Prompt: ?60,$E(SD,1,5),?67,STS Line Location: P2+17
Function Call: WRITE	Prompt: ?71 Line Location: P2+18
Function Call: WRITE	Prompt: "NF " Condition for execution: NF Line Location: P2+18
Function Call: WRITE	Prompt: "WS " Condition for execution: WS Line Location: P2+18
Function Call: WRITE	Prompt: RNDT_" " Condition for execution: RNDT Line Location: P2+18
Function Call: WRITE	Prompt: $E("HSM",SM,3) Condition for execution: SM Line Location: P2+18
Function Call: WRITE	Prompt: ?79,"*" Condition for execution: PF Line Location: P2+18
Function Call: WRITE	Prompt: !?11 Line Location: P2+19
Function Call: WRITE	Prompt: !?11 Condition for execution: $L(V)+$X>66 Line Location: P2+19
Function Call: WRITE	Prompt: V_" " Line Location: P2+19
Function Call: READ	Prompt: E N E W A L S" Timeout: "P Variable: C["CD" Line Location: TF+2
Function Call: READ	Prompt: I F E D C O M P L E X" Timeout: "N Variable: C["B" Line Location: TF+2
Function Call: READ	Prompt: I F I E D" Timeout: "N Variable: 1 Line Location: TF+2
Function Call: READ	Prompt: " '^' TO QUIT " Formatting: ! Timeout: DTIME Variable: NP Line Location: NP+0
Function Call: WRITE	Prompt: ! Line Location: BOT+1
Function Call: WRITE	Prompt: !,?2,$P(PSGP(0),"^"),?40,PSJPPID,?70,$E($P(PSJPDOB,"^",2),1,8) Line Location: BOT+2
Function Call: READ	Prompt: I F I E D O R D E R S" Timeout: "P Variable: PSGVBWTO=2 Line Location: ENVBW+1
Function Call: READ	Prompt: D E R S" Timeout: "N Variable: 1 Line Location: ENVBW+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	P+4, P+5
^TMP("PSG"	EN+2, DONE+1!, DRG+1, DRG+2, DRG+3, TF+3
^TMP("PSJON"	PSGO+5!, P+1*

Label References

Name	Line Occurrences
BOT	EN+6, NP+1
D1	ENHEAD+2
DONE	EN+3, EN+5
DRG	EN+5
EN	ENVBW+2
GET	EN+2, ENHEAD+1, ENPR+1
NP	DRG+2
P	DRG+2, DRG+3
P2	P+4, P+5
TF	DRG+1

Naked Globals

Name	Field # of Occurrence
^(	DRG+2, DRG+3, P2
^(2	P2
^(4	P2
^(6	P2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENHEAD+1
C	EN+4, D1+1!, DRG+1, DRG+2, DRG+3*, P+1, P+4, P+5, P+6, P2+1 , P2+2, P2+7, P2+8, P2+13, P2+16, TF+2, TF+3, TF+4
CML	EN+1*, EN+6, DONE+2, D1+1!, P+1, P2+2, NP, NP+1
DN	D1+1!, DRG+2, DRG+3
DO	D1+1!, P2*, P2+5
DRG	EN+4, D1+1!, DRG+2
DTIME	NP
F	D1+1!, P2, P2+11, TF+4*
GIVE	D1+1!
HDT	D1+1!, ENHEAD+1*
IO	EN+1, EN+2
IO(0	EN+1
IOSL	DRG+2, BOT+1
IOST	EN+1
>> LD	EN+4, DRG+3
LN2	D1+1!, TF+2, TF+3, GET+1, HEADER+4, ENHEAD+1!
MARX	P2+12~, P2+13
MARX(	P2+14
ND	D1+1!, P2*, P2+2, P2+8, P2+9
ND4	D1+1!, P2*, P2+1, P2+3, P2+4, P2+7
ND6	D1+1!, P2*, P2+19
NF	D1+1!, DRG+2, DRG+3, P2+18
NP	EN+1, EN+3, EN+5, D1+1!, DRG+1, DRG+2, NP
O	D1+1!, DRG+2, DRG+3, P+1, P+4, P+5, P2, P2+11, P2+13, P2+15
O2	P2+15~*
ON	DONE+2, D1+1!, P+1, P+3, P2+1, P2+2, P2+7, GET+1, NP, NP+1
OO	P+4~, P+5~
PF	D1+1!, P2+8*, P2+18
PG	D1+1!, GET+1, HEADER+1, HEADER+3, HEADER+4
PSGHD	D1+1!
>> PSGID	P2+8*, P2+10
>> PSGOD	P2+8, P2+10, P2+16
PSGODT	DONE+2!
PSGOH	PSGO+5, D1+1!, ENHEAD+1, ENVBW+1, ENPR+1
>> PSGOL	EN+2, DRG+1, DRG+3, P+2, NP+2
>> PSGON	DONE+2*
PSGONC	P+1, GET+1, ENHEAD+2!
PSGONF	PSGO+5!, P2+7*
PSGONR	P2+2, GET+1, ENHEAD+2!
PSGONV	P2+1, GET+1, ENHEAD+2!
>> PSGP	P2+11, P2+13, P2+15, TF+4, HEADER+3
>> PSGP(0	BOT+2
PSGPR	ENHEAD+1!
PSGPRP	EN+6, DONE+1, ENHEAD+1!
>> PSGVBW	DONE+2
>> PSGVBWTO	ENVBW+1
PSGVWA	GET+1, ENHEAD+1*, ENHEAD+2!
>> PSJNARC	HEADER+3
PSJO	P+4~, P+5~
>> PSJOPC	HEADER+2*, HEADER+3
>> PSJPDOB	BOT+2
>> PSJPPID	BOT+2
>> PSJPRB	GET+1
>> PSJPWD	P2+11, GET+1
>> PSJPWDN	GET+1
>> PSJSEL("TM"	HEADER+2
>> PSJSYSU	P2+1, P2+3
PSJTEAM	D1+1!, HEADER+2*, HEADER+3
>> Q	BOT+1*
RB	EN+1~, GET+1*
RCT	D1+1!
RF	D1+1!
RNDT	P2+15~*, P2+18
RTE	D1+1!
S	D1+1!
SCH	D1+1!, P2*, P2+8
SD	D1+1!, P2+8, P2+17
SLS	EN+2, D1+1!, TF+1~, TF+3, GET+1
SM	D1+1!, P2+8*, P2+18
ST	D1+1!, DRG+1, DRG+2, DRG+3, P2+16
STS	D1+1!, P2+8, P2+9, P2+17
TF	D1+1!, DRG+1, TF+4, GET+1
U	DRG+3, P2+5, P2+7, P2+9
UDU	D1+1!, P2+3
V	D1+1!, P2+3, P2+4, P2+5, P2+19
WD	D1+1!, GET+1*
WS	D1+1!, P2+10, P2+11, P2+18
WT	D1+1!
X	DRG+3, P2+14~, P2+19*
>> Y	P2+19*

Customize PDF page

Package: Inpatient Medications

Routine: PSGO

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: