Routine: SROUTL0

Package	Total	Caller Graph
Surgery	161	SROA30 SROACC1 SROACC2 SROACC3 SROACC4 SROACC5 SROACC6 SROACCM SROACMP SROACMP1 SROADOC SROADOC1 SROALC SROALCP SROALCS SROALCSP SROALEC SROALET SROALL SROALLP SROALLS SROALLSP SROALM SROALMN SROALNC SROALOG SROALSL SROALSS SROALSSP SROALST SROALSTP SROALT SROALTP SROALTS SROALTSP SROAMIS SROANP SROANT SROANTP SROANTS SROANTSP SROAR1 SROAR2 SROARPT SROAT1P SROAT2P SROATCM1 SROATM1 SROATMNO SROATT0 SROATT1 SROATT2 SROAWL SROAWL1 SROCAN SROCAN0 SROCMP SROCNR1 SROCNR2 SROCRAT SROCVER SRODIS0 SRODLA1 SRODLA2 SRODLAY SRODLT SRODLT0 SROESPR2 SROESX SROESXA SROESXP SROHIS SROICU SROICU1 SROICU2 SROLOCK SROMOR SROMORT SRONAN1 SRONIN SRONOR2 SRONOR3 SRONOR4 SRONOR5 SRONOR7 SRONOR8 SRONP2 SRONPEN SRONRPT SRONUR1 SRONUR2 SROPAC0 SROPACT SROPCE0A SROPCE0B SROPCEU SROPECS SROPLIST SROPLSTS SROPPC SROPRI SROPRI1 SROPRI2 SROQ2 SROQADM SROQD SROQD0 SROQIDP SROQIDP0 SROQL SROQN SRORAT1 SRORAT2 SROREA1 SROREA2 SROREAS SROREQ1 SROREQ2 SROREQ3 SROREQ4 SRORET SRORHRS0 SRORIN SRORUT SRORUT0 SROSCH SROSNR1 SROSNR2 SROSPC1 SROSPEC SROSPSS SROSUR SROSUR2 SROUNV SROUNV1 SROUNV2 SROUTIN SROWC SROWC1 SROWC2 SROWC3 SROXR1 SRSAVL SRSAVL1 SRSBDEL SRSCD SRSCDS SRSCDS1 SRSCDW SRSCDW1 SRSCOR SRSCPT1 SRSCPT2 SRSCRAP SRSDISP SRSRBS SRSRBS1 SRSRBW SRSRBW1 SRSUPRG SRTPLS

Entry Points

Name	Comments	DBIA/ICR reference
WARD(SRW,SRINST,DGPMOS)	;a boolean divisional call for active ward location ; SRW - IEN in File 42 ; SRINST - user division ; DGPMOS - date to check for active ward ; returns 0 - non-divisional match; 1 - divisional match
INST()	;extrinsic call used by the management reports to determine division ; Returns: ; inst#^inst name - for one division ; "ALL DIVISIONS" - all divisions ; "^" - no division
MANDIV(SRINST,CASE)	;a boolean divisional call for managerial reports
NONORDIV(CASE,NONOR)	;define nonor divisional locations (File #130,119 input transform) ; CASE - File 130 ien ; NONOR - File 44 ien ; returns 0 - non-divisional match; 1 - divisonal match
DIV(CASE)	;define the division of this case ; CASE - File 130 ien ; returns 0 - non-divisional match; 1 - divisonal match	ICR #6786 Status: Pending Usage: Private
ORDIV(OR,SRINST)	;define the division of this OR ; OR - .01 of Operating Room in file 131.7 ; returns 0 - non-divisional match; 1 - divisonal match
NODATA()	;;utility to write no data
SITE(CASE)	; returns pointer to file 133 indicating where case was performed ; CASE - ien in File 130
HL(SRLOC,SRINST)	; define division of this hospital location ; SRLOC - File 44 IEN ; SRINST - user division ; returns 0 - non-divisional match; 1 - divisional match

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: NODATA+1
Function Call: WRITE	Prompt: ! Line Location: INST+9
Function Call: WRITE	Prompt: !,X,". ",SR("DILIST",1,X) Line Location: INST+10
Function Call: WRITE	Prompt: ! Line Location: INST+11
Routine Call	DIC Line Location: INST+9
Routine Call	DIR Line Location: INST+7 INST+11

FileNo	Call Tags
^SRO(133 - [#133]	LIST^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARD+8
^SC - [#44]	DIV+5, DIV+6, ORDIV+7, NONORDIV+11, NONORDIV+14, NONORDIV+15, NONORDIV+16, MANDIV+6, MANDIV+7, SITE+2 , SITE+3, WARD+9, HL+6
^SRF - [#130]	DIV+3, DIV+5, DIV+6, DIV+7, NONORDIV+12, NONORDIV+16, MANDIV+1, MANDIV+6, MANDIV+7, MANDIV+8 , SITE+2, SITE+3, SITE+4
^SRO(133 - [#133]	DIV+4, ORDIV+4, MANDIV+2, INST+5, INST+12, SITE+5, SITE+6, WARD+7
^SRS - [#131.7]	DIV+5, ORDIV+7, MANDIV+6, SITE+2

Name	Field # of Occurrence
^(0	ORDIV+7

Name	Field # of Occurrence
CASE	DIV~, DIV+3, DIV+5, DIV+6, DIV+7, NONORDIV~, NONORDIV+11, NONORDIV+12, NONORDIV+16, MANDIV~ , MANDIV+1, MANDIV+6, MANDIV+7, MANDIV+8, SITE~, SITE+2, SITE+3, SITE+4
CD	NONORDIV+4~, NONORDIV+16*, NONORDIV+17
D0	WARD+5~, WARD+6*
DGPMOS	WARD~
DIR	INST+7!, INST+11!
DIR("?"	INST+7, INST+11
DIR("A"	INST+7, INST+11
DIR("B"	INST+7*
DIR(0	INST+7, INST+11
IORD	NONORDIV+4~, NONORDIV+16*, NONORDIV+17
NONOR	NONORDIV~, NONORDIV+11, NONORDIV+14, NONORDIV+15, NONORDIV+16
OR	ORDIV~, ORDIV+7*
RORD	NONORDIV+4~, NONORDIV+16*, NONORDIV+17
SR	INST+5~
SR("DILIST"	INST+10, INST+11, INST+12
SRCNT	INST+5~*, INST+6
SRDIV	DIV+3~, DIV+5, DIV+6, DIV+7, DIV+8, ORDIV+3~, ORDIV+7, ORDIV+8, NONORDIV+4~, NONORDIV+10* , NONORDIV+11, NONORDIV+17, NONORDIV+18, MANDIV+5~, MANDIV+6, MANDIV+7, MANDIV+8, MANDIV+9, SITE+2~, SITE+3 , SITE+4, SITE+5, SITE+6, SITE+7, WARD+9, WARD+10, HL+4~, HL+5, HL+6, HL+7
SRINST	ORDIV~, ORDIV+5, ORDIV+6, ORDIV+8, MANDIV~, MANDIV+3, MANDIV+4, MANDIV+9, INST+5~, INST+6* , INST+7, INST+8, INST+9, INST+11*, INST+12, WARD~, WARD+7, WARD+10, HL~, HL+4 , HL+7
SRLOC	WARD+5~, WARD+8*, WARD+9, HL~, HL+6
SROR	DIV+3~, DIV+5, DIV+6, MANDIV+5~, MANDIV+6, MANDIV+7, SITE+2~, SITE+3
>> SRSITE("DIV"	DIV+8, NONORDIV+15
SRW	WARD~, WARD+6, WARD+8
U	DIV+5, DIV+6, DIV+7, ORDIV+7, NONORDIV+14, NONORDIV+15, NONORDIV+16, MANDIV+6, MANDIV+7, MANDIV+8 , INST+8, INST+11, INST+12
X	INST+5~, INST+10, WARD+5~, WARD+6
Y	INST+7!, INST+11, INST+12
Y(0	INST+7