Routine: PSGOE31

Information

PSGOE31 ;BIR/CML3-ORDER ENTRY THROUGH OE/RR (CONT.) ;09 JAN 97 / 2:28 PM

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSGOE3

Entry Points

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

External References

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	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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	DIC Line Location: A1+5 FF+3
Routine Call	DIE Line Location: 2+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>>	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