Routine: PSGOE31

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Inpatient Medications	1	ENHLP^PSGOEM

Package

Total

Call Graph

VA Fileman

^DIC YN^DICN ^DIE

Inpatient Medications

ENHLP^PSGOEM

Package	Total	Caller Graph
Inpatient Medications	1	PSGOE3

Package

Total

Caller Graph

Inpatient Medications

PSGOE3

Name	Comments	DBIA/ICR reference
A106
A1
DEL	;
YN	; yes/no as a set of codes
1	; provider
DONE	;
2	; dispense drug multiple
A5
FF	; up-arrow to another field
6	; hospital supplied self med
5	; self med
106	; nature of order

Name	Field # of Occurrence
^DIC	A1+5, FF+3
YN^DICN	DEL+1
^DIE	2+2
ENHLP^PSGOEM	A1+1, A1+3, A5+4, A5+6, 6+5, 6+7, A106+2, A106+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: A1+0
Function Call: WRITE	Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"") Line Location: A1+0
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A1+1
Function Call: WRITE	Prompt: " "_$P(^("PS"),"^",2)_" "_$P(^("PS"),"^",3) Line Location: A1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: A5+0
Function Call: WRITE	Prompt: !,"SELF MED: " Line Location: A5+0
Function Call: WRITE	Prompt: $P("NO^YES","^",PSGSM+1),"// " Condition for execution: PSGSM]"" Line Location: A5+0
Function Call: WRITE	Prompt: $C(7) Line Location: A5+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: 6+1
Function Call: WRITE	Prompt: !,"HOSPITAL SUPPLIED SELF MED: " Line Location: 6+1
Function Call: WRITE	Prompt: $P("NO^YES","^",PSGHSM+1),"// " Condition for execution: PSGHSM]"" Line Location: 6+1
Function Call: WRITE	Prompt: $C(7) Line Location: 6+7
Function Call: WRITE	Prompt: !,"This is an old nature of order call from ^PSGOE31.",! Line Location: 106+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: A106+0
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: A106+0
Function Call: WRITE	Prompt: $S(X=$P(Y,"^"):" "_$P(Y,"^",2),1:$P($P(Y,"^",2),X,2)) Line Location: A106+4
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A106+5
Function Call: WRITE	Prompt: $C(7)," ...order not entered..." Line Location: DONE+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: FF+1
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: DEL+1
Function Call: WRITE	Prompt: $P(Y,X,2) Line Location: YN+2
Function Call: WRITE	Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!" Line Location: 2+3
Routine Call	DIE Line Location: 2+2
Routine Call	DIC Line Location: A1+5 FF+3

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PS(53.45 - [#53.45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(53.1	FF+2
^PS(53.45 - [#53.45]	2+1, 2+3
^VA(200 - [#200]	A1+2

Label References

Name	Line Occurrences
106	5+1, A5+1, A5+2, A5+5, 6+2, 6+3, 6+6
5	1+1, A1+2
6	A5+1, A5+5, 6+3, 6+4, 6+5, 6+7
@(	A1+4, A5+3, 6+4, A106+3, 2+4
A1	A1+1, A1+4, A1+5
A106	A106+2, A106+3, A106+5
A5	A5+2, A5+3, A5+4, A5+6
DEL	A5+2, 6+3
DONE	A1, A1+2, 5+1, A5, A5+1, A5+2, A5+5, 6+1, 6+2, 6+3 , 6+6, 106+3, A106, A106+1
FF	A1+4, A5+3, 6+4, A106+3
YN	A5+5, 6+6

Name	Field # of Occurrence
^("PS"	A1+2
^(1	2+1*
^(2	2+1*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A5+2, 6+3, DEL+1*
DA	2+2!*
DIC	A1+5!, FF+3!
DIC("S"	A1+5, FF+3
DIC(0	A1+5, FF+3
>> DIE	2+2*
DR	2+2!*
DR(	2+2*
DTIME	A1, A5, 6+1, A106
F	DONE+2!
F0	DONE+2!
F1	DONE+2!
F3	DONE+2!
>> FB	FF+3*, 2+4
>> PSGDRG	2+1
PSGF2	A1+1, A5+2, 6+4, A106+2, DONE+2!, FF+3
PSGFOK	DONE+2!, FF+1
PSGFOK(	FF+2
PSGFOK(1	A1+2, A1+6
PSGFOK(106	106+3, A106+1, A106+6*
PSGFOK(5	A5+1, A5+5
>> PSGHSM	A5+2, 6+1, 6+2, 6+3, 6+6
>> PSGOEORF	5+1, A5+1, A5+2, A5+5, 6+2, 6+3, 6+6, 106+3
PSGOROE1	A1, A5, 6+1, A106, DONE+1, DONE+2!
>> PSGPR	A1, A1+1, A1+2, A1+6*
>> PSGPRN	A1, A1+2, A1+6*
PSGSD	DONE+2!
>> PSGSM	A5, A5+1, A5+2, A5+5*
>> PSGUD	2+1
>> PSJNOO	A106+4*
>> PSJNOON	A106, A106+1, A106+4*
>> PSJOERR	1+1, 106+3
>> PSJSYSP	2+1, 2+2, 2+3
>> PSJSYSU	1+1, 106+3
>> PSJSYSW0	A1+2, 5+1
SDT	DONE+2!
>> X	A1, A1+1, A1+2, A1+3, A1+4, A5, A5+1, A5+2, A5+3, A5+4 , A5+5, 6+1, 6+2, 6+3, 6+4, 6+5, 6+6, A106, A106+1, A106+2* , A106+3, A106+4, A106+5, FF+2, YN+1*, YN+2
Y	A1+4, A1+5, A1+6, A5+3, 6+4, A106+3, A106+4, DONE+1!, FF+1, FF+2* , FF+3, YN+1, YN+2*
Y(0	A1+6

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE31

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: