Routine: PSGON

Package	Total	Call Graph
Registration	2	FULL^VALM1 RE^VALM4
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	16	PSGEUD PSGL PSGL0 PSGOE0 PSGOECS PSGOERS PSGOESF PSGOEVS PSGRET PSIV PSIVORC PSIVORFE PSIVPRO PSIVRD PSJOE PSJOE0
Barcode Medication Administration	1	PSBIHS6

Entry Points

Name	Comments	DBIA/ICR reference
ENEFA2	;
RDW	;
SET	;
RD1	;W !!,$S($D(PSGPRF):"View",1:"Select"),$S(ACTION:" ACTION or",1:"")," ORDER",$S(PSGLMT>1:"S (1-"_PSGLMT,1:" (1"),"): " R X:DTIME W:'$T $C(7) S:'$T X="^" I "^"[X K ACTION Q
ENASR	; action/select read
H1	;
EFH	;
H2	;
FS	;
SET1	;
ENCHK	;
ENWO	; which orders
ENEFA	;
EFA	;
FDONE	;

External References

Name	Field # of Occurrence
^DIR	H1+4, H2+27
FULL^VALM1	H1+1, EFA+4, EFA+5
RE^VALM4	H1+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: RD1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RD1+1
Function Call: WRITE	Prompt: !!,$S($D(PSGPRF):"View",1:"Select"),$S(ACTION:" ACTION or",1:"")," ORDER",$S(PSGLMT>1:"S (1-"_PSGLMT,1:" (1"),"): " Line Location: RD1+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: RD1+1
Function Call: WRITE	Prompt: " (DISCONTINUE)" Line Location: RD1+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+4
Function Call: WRITE	Prompt: $P("DISCONTINUE",X,2) Line Location: RD1+5
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+6
Function Call: WRITE	Prompt: $P("RENEW",X,2) Line Location: RD1+7
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+8
Function Call: WRITE	Prompt: $P("VERIFY",X,2) Line Location: RD1+9
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+10
Function Call: WRITE	Prompt: $P("FINISH",X,2) Line Location: RD1+11
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+12
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+13
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RD1+15
Function Call: WRITE	Prompt: !!?2 Line Location: H1+1
Function Call: WRITE	Prompt: !!,$S(PSGONW="V":"VERIFY which orders",PSGONW="R":$S($P(PSJSYSP0,"^",3):"RENEW which orders",1:"MARK which orders for RENEWAL"),1:$S($P(PSJSYSP0,"^",5):"DISCONTINUE which orders",1:"MARK which orders for DISCONTINUATION"))," (1-",PSGLMT,"): " Line Location: RDW+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: RDW+2
Function Call: WRITE	Prompt: !!?2,"Select order",$E("s",PSGLMT>1)," to ",$S(PSGONW="V":"verify",PSGONW="R":$S($P(PSJSYSP0,"^",3):"renew.",1:"mark for renewal."),1:$S($P(PSJSYSP0,"^",5):"discontinue.",1:"mark for discontinuation.")) Line Location: RDW+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RDW+4
Function Call: WRITE	Prompt: !!?2,"Select ",X,"s either singularly separated by commas (1,2,3), by a range of",!,X,"s separated by a dash (1-3), or a combination (1,2,4-6). To select all" Line Location: H2+1
Function Call: WRITE	Prompt: !,X,"s, enter 'ALL' or a dash ('-'). You can also enter '-n' to select the" Line Location: H2+2
Function Call: WRITE	Prompt: !,"first ",X," through the 'nth' ",X," or enter 'n-' to select the 'nth' ",X,!,"through the last ",X,". If an ",X," is selected more than once, only the first",!,"selection is used (Entering '1,2,1' would return '1,2'.)." Line Location: H2+3
Function Call: WRITE	Prompt: !?3," (10) Other Print",!?3," (11) Remarks" Line Location: H2+22
Function Call: WRITE	Prompt: !?3," (10) Other Print",!?3," (11) Remarks",!?3," (12) Beyond Use Days" Line Location: H2+25
Function Call: WRITE	Prompt: !?3," (11) Other Print",!?3," (12) Remarks",!?3," (13) Beyond Use Days" Line Location: H2+26
Function Call: WRITE	Prompt: ! Line Location: H2+27
Function Call: READ	Prompt: "Select FIELDS TO EDIT: " Formatting: !! Timeout: DTIME Variable: X Line Location: EFA+1
Function Call: WRITE	Prompt: $C(7) Line Location: EFA+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: EFA+11
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: FDONE+1
Function Call: WRITE	Prompt: !!?2,"Select the fields you wish to edit, by number. Only those fields with a",!,"number to the left of the field name are editable." Line Location: EFH+1
Routine Call	DIR Line Location: H1+4 H2+27

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ENASR+2*, RD1+1!, RD1+2!, RD1+3, RD1+5, RD1+7, RD1+9, RD1+11, H1+1
DIR	H1+4~, H2+27!
DIR(0	H1+4, H2+27
DTIME	RD1+1, RDW+2, EFA+1
>> P("DTYP"	H2+19
>> P("OT"	H2+16
>> P("PON"	H2+5, EFA+4, EFA+5
>> P(4	H2+16, H2+19
PS	H2+7~, H2+8, H2+9, H2+15~, H2+16, H2+17
>> PSGEFN	SET1+1, H2+1, H2+4, H2+6, H2+14, ENEFA+1, EFA+9, ENEFA2+1
>> PSGEFN(	SET1+1, EFA+7, FS+1, FS+3
>> PSGLMT	ENCHK+1, ENCHK+2, SET+1, SET1+1, RD1+1, H1+3, ENWO+1*, RDW+1, RDW+3
PSGODDD	ENCHK+1!, SET1+2, SET1+4, SET1+5
PSGODDD(	SET1+2, SET1+4, SET1+5
PSGODDD(1	ENCHK+1*
>> PSGOESF	SET1+2
>> PSGONC	RD1+3, RD1+5, H1+2, ENWO+1
>> PSGONF	RD1+11, H1+2
>> PSGONR	RD1+7, H1+2, ENWO+1
>> PSGONV	RD1+9, H1+2, ENWO+1
>> PSGONW	ENWO+1, RDW+1, RDW+3
>> PSGPRF	RD1+1, H1+3
>> PSJORD	H2+7, H2+15
>> PSJSYSP0	RDW+1, RDW+3
Q	ENCHK+3, ENEFA+1~, EFA+7, EFA+10, ENEFA2+4~, ENEFA2+5
>> QQ	SET1+2*
>> VALM("LINES"	H1+4
X	ENCHK+1, ENCHK+2, ENCHK+3, SET+1!, SET+3, SET1+1!, RD1+1, RD1+2, RD1+3, RD1+4 , RD1+5, RD1+6, RD1+7, RD1+8, RD1+9, RD1+10, RD1+11, RD1+12, RD1+13, RD1+14 , H1+3, RDW+2, RDW+3, RDW+4, H2+1~, H2+2, H2+3, EFA+1, EFA+2, EFA+4 , EFA+5, EFA+7, EFA+9, EFA+10, EFA+11, FS+1!, FS+3
X1	ENCHK+3, SET+1, SET+2, SET+3, ENEFA+1~, EFA+10, FS+1, FS+2, FS+3, ENEFA2+4~* , ENEFA2+5
X2	SET+2, SET+3, SET1+1, SET1+2, SET1+4, SET1+5, ENEFA+1~, FS+3
>> XQORNOD(0	ENEFA2+2
Y	ENEFA+1!, EFA+1!, EFA+7, FDONE+1, FDONE+2, FS+1, FS+2, FS+3!, ENEFA2+1!, ENEFA2+2 , ENEFA2+4, ENEFA2+5*

Customize PDF page

Package: Inpatient Medications

Routine: PSGON

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Name	Line Occurrences
@(	EFA+5
EFA	EFA+4, EFA+5, EFA+11, FDONE+1
EFH	EFA+5
ENCHK	RD1+13, RDW+4
FDONE	EFA+8
FS	EFA+10
H1	RD1+14
H2	H1+3, RDW+3, EFA+4, EFA+5
RD1	RD1+4, RD1+6, RD1+8, RD1+10, RD1+12, RD1+13, RD1+14, RD1+15
RDW	RDW+3, RDW+4
SET	ENCHK+3
SET1	SET+2, SET+3