Routine: ORUTL

Information

ORUTL ; slc/dcm,RWF - Order utilities; ;4/24/01 17:14

Source file <ORUTL.m>

Package	Total	Call Graph
Kernel	1	$$UP^XLFSTR
VA Fileman	1	^DIC

Package	Total	Caller Graph
Order Entry Results Reporting	8	OR1 ORCMEDT2 ORCXPNDR ORLA1 ORPR01 ORPRS01 ORQ10 ORY95
Registration	7	DG OERR TREATING TRANSFER DGOERR ADMIT DGOERR BED SWITCH DGOERR DISCHARGE DGOERR SCHED ADMIT DGOERR TRANSFER VALMXQ15
Lab Service	2	LROR1 LROR8
Radiology Nuclear Medicine	2	RAPRI RAUTL5
Kernel	1	XQORO

Name	Comments	DBIA/ICR reference
LOC	;;GET PT. LOCATION
QUIT
READ	;;Hold screen
CHKMNE(X)	;Input transform to not allow use of standard Lmgr Mnemonics
LOC1
CHKNAM(X,Y)	;Input transform to not allow certain characters

Name	Field # of Occurrence
^DIC	LOC1+2
$$UP^XLFSTR	CHKMNE+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Currently enrolled in the following clinics: ",! Line Location: LOC+3
Function Call: WRITE	Prompt: !?17 Condition for execution: (CT#2) Line Location: LOC+6
Function Call: WRITE	Prompt: C=-1 Condition for execution: '(CT#2) ?47 W $P(X,"^") S C=C+1,C(1)=$P(X,"^") S:C'=1 Line Location: LOC+6
Function Call: WRITE	Prompt: ! Line Location: LOC+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: LOC1+0
Function Call: WRITE	Prompt: $C(7)," This location has been inactivated." Line Location: LOC1+4
Function Call: WRITE	Prompt: " You must select a standard location." Line Location: LOC1+5
Function Call: WRITE	Prompt: ! Line Location: READ+2
Function Call: WRITE	Prompt: !?5,"Press return to continue " Line Location: READ+3
Routine Call	DIC Line Location: LOC1+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOC+3, LOC+4
^SC - [#44]	LOC+4, LOC+5, LOC1+3

Name	Field # of Occurrence
C	LOC+3, LOC+6, LOC1*, LOC1+1, LOC1+6!, QUIT!
C(1	LOC+1, LOC+3, LOC+6, LOC1, LOC1+1, LOC1+2
>> CT	LOC+3, LOC+6
DIC	LOC1+1*, LOC1+6!, QUIT!
DIC("S"	LOC1+1*
DIC(0	LOC1+1*
DT	LOC+5, LOC1+4
DTIME	LOC1, READ+3
I	LOC+4, CHKNAM+2~, CHKNAM+3
IOSL	READ+2
IOST	READ+1
J	CHKNAM+2~, CHKNAM+3*, CHKNAM+4
>> L	LOC+4*
>> O	LOC+3*
>> OR4	LOC+2
>> OREND	QUIT*
ORIA	LOC+5, LOC1+3!, LOC1+4, LOC1+6!
ORL	LOC1+2*, LOC1+4!
ORL(0	LOC1+2*
ORL(2	LOC+1, LOC+2
ORRA	LOC+5, LOC1+3!, LOC1+4, LOC1+6!
>> ORVP	LOC+2, LOC+3, LOC+4
U	LOC1, LOC1+3
X	LOC+4, LOC+6, LOC1, LOC1+1, LOC1+2, READ+3, CHKNAM~, CHKNAM+3, CHKMNE~, CHKMNE+2
Y	LOC+4, LOC+5, LOC1+2, LOC1+3, LOC1+5, CHKNAM~, CHKNAM+2, CHKNAM+3, CHKMNE+1~, CHKMNE+2* , CHKMNE+3
Y(0	LOC1+2