Routine: PSGOU

Package	Total	Call Graph
Inpatient Medications	4	$$ENDTC^PSGMI $$CKPC^PSGOU EN1^PSJHL2 DRGDISP^PSJLMUT1
VA Fileman	1	(C,NOW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	17	PSGEUD PSGO PSGOE0 PSGOE5 PSGOERS PSGOU PSGPL1 PSGPLUP0 PSGPR PSGRET PSGVBW0 PSGVBW1 PSIVOPT2 PSJADT0 PSJCOMR PSJEXP PSJPR0

Entry Points

Name	Comments	DBIA/ICR reference
ENRNAT(OWD,NWD,SC,OAT)	; Determine admin times for renewal orders.
SET	;
ENUNM	;
ECHK	;
ENL	;
ENGORD	; get and sort orders
SCHK	;
CKPC(DFN,OLDON,NEWON)	; Compare old provider comments to new for speed finish.
LM
ENS
MAE	; change status to expired
ENU	; update staus field to reflect expired orders, if necessary
SM
LCHK	;
ENUH	;
DS	;

External References

Name	Field # of Occurrence
C^%DTC	ENGORD+1
NOW^%DTC	ECHK+1, ENUNM+1, ENGORD+1
$$ENDTC^PSGMI	ENGORD+1
$$CKPC^PSGOU	ENGORD+14
EN1^PSJHL2	ENUH+1
DRGDISP^PSJLMUT1	DS+1, ENGORD+8, ENGORD+13

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Sort by DATE or MEDICATION: M// " Formatting: !! Timeout: DTIME Variable: PSGOS Line Location: ENS+0
Function Call: READ	Timeout: DTIME Variable: PSGOL Line Location: ENL+1
Function Call: WRITE	Prompt: !!,"SHORT, LONG, or NO Profile? ",$S('$D(PSJPDD):"SHORT",'PSJPDD:"SHORT",1:"LONG"),"// " Line Location: ENL+1
Function Call: WRITE	Prompt: PSGOL="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENL+1
Function Call: WRITE	Prompt: "MEDICATION" Line Location: SCHK+2
Function Call: WRITE	Prompt: $P(X,PSGOS,2) Line Location: SCHK+3
Function Call: WRITE	Prompt: !!?3,"Enter 'MEDICATION' (or 'M', or press the RETURN key to have this patient's orders shown alphabetically by drug name. Enter 'DATE' (or 'D') to have this patient's orders shown by start date (the newest orders showing first)." Line Location: SM+0
Function Call: WRITE	Prompt: " Enter a '^' to not show this patient's orders." Line Location: SM+1
Function Call: WRITE	Prompt: $S('$D(PSJPDD):" SHORT",'PSJPDD:" SHORT",1:" LONG") Line Location: LCHK+2
Function Call: WRITE	Prompt: $P(X,PSGOL,2) Line Location: LCHK+4
Function Call: WRITE	Prompt: !!?3,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders." Line Location: LM+0
Function Call: WRITE	Prompt: " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient." Line Location: LM+1
Function Call: WRITE	Prompt: !!,"...a few moments, I have some updating to do..." Line Location: ENU+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	ENRNAT+3, ENRNAT+6
^PS(53.1 - [#53.1]	ENGORD+6, ENGORD+7, ENGORD+11, ENGORD+12, ENGORD+15, CKPC+2, CKPC+4, CKPC+6, CKPC+7
^PS(55 - [#55]	ECHK+2, ENUNM+2, ENGORD+3, ENUH+1*
^TMP("PSG"	SET+3*, ENGORD+1!

Label References

Name	Line Occurrences
DS	ECHK+2, ECHK+3, ECHK+4
ECHK	ENGORD+3
ENUH	ENUNM+3
ENUNM	ENGORD+2
LCHK	ENL+1
LM	LCHK+1
SCHK	ENS
SET	ENGORD+9, ENGORD+17
SM	SCHK+2

Naked Globals

Name	Field # of Occurrence
^(	CKPC+4, CKPC+6
^(4	ECHK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ECHK+1, ENUNM+1, ENGORD+1
>> C	ECHK+2, ECHK+5, SET+3, ENGORD+9, ENGORD+14, ENGORD+15, ENGORD+16
>> CHK	ENS, SCHK+1, SCHK+2, SCHK+3*, SCHK+4
DFN	CKPC~, CKPC+3
>> DRG	DS+1, SET+3, ENGORD+8, ENGORD+13*
DRUGNAME	DS+1~, ENGORD+5~, ENGORD+8, ENGORD+13
DRUGNAME(1	DS+1, ENGORD+8, ENGORD+13
DTIME	ENS, ENL+1
>> HDT	ENGORD+1*
>> ND	ECHK+2, ECHK+3, ECHK+4, ENGORD+6, ENGORD+7, ENGORD+11*, ENGORD+12, ENGORD+14
>> ND4	ECHK+2*, ECHK+3, ECHK+4
NEWON	CKPC~, CKPC+2, CKPC+4, CKPC+6, CKPC+7
>> NF	SET+3
NWD	ENRNAT~, ENRNAT+6
>> O	ECHK+2, DS+1, ENGORD+3, ENGORD+6, ENGORD+7, ENGORD+8, ENGORD+10, ENGORD+11, ENGORD+12, ENGORD+13 , ENGORD+14, ENGORD+15
OAT	ENRNAT~, ENRNAT+3, ENRNAT+5
OLDON	CKPC~, CKPC+3
>> ON	ECHK+2, SET+1, SET+2, SET+3, ENGORD+6, ENGORD+11
>> OOAT	ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORIFN	ENUH+1*
OWAT	ENRNAT+2~
OWD	ENRNAT~, ENRNAT+3
>> P("PRNTON"	SET+1, SET+2, ENGORD+7, ENGORD+9, ENGORD+12, ENGORD+16
PRNTON	SET+1, SET+2, ENGORD+6~, ENGORD+11~*
>> PSGALO	ENUNM+3
PSGDT	ECHK+1~, ECHK+2, ENUNM+1, ENUNM+2, ENGORD+1*
PSGO1	ENUNM+4!
PSGO2	ENUNM+2*, ENUNM+4!
PSGO3	ENUNM+2*, ENUNM+4!, ENUH+1
PSGO4	ENUNM+2*, ENUNM+3, ENUNM+4!, ENUH+1
>> PSGODT	ECHK+3, ECHK+4, ENGORD+1*
PSGOEEWF	CKPC+1~, CKPC+3*, CKPC+4, CKPC+5, CKPC+6
>> PSGOL	ECHK+5, ENL+1, LCHK+1, LCHK+2, LCHK+3, LCHK+4
>> PSGONNV	ENGORD+4
>> PSGOS	ENS, SCHK+1, SCHK+2, SCHK+3
>> PSGP	ECHK+2, DS+1, ENUNM+2, ENGORD+3, ENGORD+6, ENGORD+8, ENGORD+11, ENGORD+13, ENGORD+14, ENUH+1
>> PSGPR	ENGORD+2
PSJFLAG	CKPC+1~, CKPC+3, CKPC+4, CKPC+5, CKPC+6*, CKPC+7
>> PSJPAD	ENUNM+2, ENGORD+3
>> PSJPDD	ENL+1, LCHK+2
>> PSJSYSU	ENGORD+1, ENGORD+10
Q	LCHK+3, CKPC+1~, CKPC+4, CKPC+6*
QQ	CKPC+1~, CKPC+4, CKPC+5, CKPC+6, CKPC+7
>> S	ENS*
SC	ENRNAT~, ENRNAT+3
SCP	ENRNAT+2~, ENRNAT+3*, ENRNAT+6
>> SD	ECHK+2, ECHK+3, ECHK+4, ENGORD+3, ENGORD+6, ENGORD+10*, ENGORD+11
>> ST	ECHK+3, ECHK+4, SET+3, ENGORD+3, ENGORD+7, ENGORD+12*
U	ENGORD+14, ENGORD+15, CKPC+2, ENRNAT+3, ENRNAT+6
UD	ENUNM+4!
>> UDU	ECHK+4, ENGORD+1*
>> WAT	ENRNAT+3*, ENRNAT+5
X	SCHK+3, LCHK+4, ENGORD+1, CKPC+1~, CKPC+4, CKPC+6, ENRNAT+2~, ENRNAT+4, ENRNAT+6
>> X1	ENGORD+1*
>> X2	ENGORD+1*
Y	CKPC+1~, CKPC+4, CKPC+6, ENRNAT+2~, ENRNAT+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSGOU

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: