Routine: SROPOST2

Information

SROPOST2 ;B'HAM ISC/MAM - POST INIT TO CONVERT OPERATION TIMES ; 18 JAN 1990 3:40 PM

Source file <SROPOST2.m>

Package	Total	Call Graph
VA Fileman	4	(,C)^%DTC WAIT^DICD FILE^DICN ENALL^DIK

Package	Total	Caller Graph
Surgery	1	SROPOST

Name	Comments	DBIA/ICR reference
AGAIN
B
MIN
TIMES	; convert operation times - SR312
UTIL	; find completed cases
STUFF	; stuff entries in file 131.25
NEW	; create entry in Surgery Site Parameters file
CPT	; stuff CPT info

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Re-indexing 'B' cross references in site configureable files...." Line Location: B+0
Function Call: WRITE	Prompt: !!,"Version 3.0 of the Surgery software will estimate the average length",!,"of time for a procedure (using CPT code) based on Surgical Specialty ",!,"instead of the individual surgeon. The data in the Surgeon's Operation Times" Line Location: B+4
Function Call: WRITE	Prompt: !,"file will be converted and stored in the Operation Times file.",!! Line Location: B+5
Function Call: WRITE	Prompt: !!,"Finished" Line Location: TIMES+2

FileNo	Call Tags
^SRO(131.25 - [#131.25]	Classic Fileman Calls
^SRO(133 - [#133]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	AGAIN+1, UTIL+1, UTIL+2, UTIL+3, UTIL+4, MIN+1
^SRO(	B+1!
^SRO(131.25 - [#131.25]	B+3, STUFF+1, STUFF+2, CPT+1, CPT+2, TIMES+1!
^TMP("SR"	AGAIN!, AGAIN+2, AGAIN+3!, MIN+1, MIN+2, MIN+3*, STUFF+3, CPT+1

Name	Field # of Occurrence
^(0	CPT+2*

Name	Field # of Occurrence
CPT	AGAIN+3!, UTIL+4, MIN+1, MIN+2, MIN+3, STUFF+3, CPT+1, CPT+2
DA	NEW+1!
DD	STUFF+1!, NEW+1!
DIC	STUFF+1!, NEW+1!
DIC(0	STUFF+1, NEW+1
DIK	B+1!*
DIK(1	B+1*
DINUM	STUFF+1*!, NEW+1!
DLAYGO	STUFF+1!, NEW+1!
DO	STUFF+1!, NEW+1!
DT	AGAIN
I	AGAIN+3!, STUFF+3*
MIN	AGAIN+3!, MIN*, MIN+1, MIN+3
SERVICE	AGAIN+2, AGAIN+3!, MIN+1, MIN+2, MIN+3, STUFF+1, STUFF+2, STUFF+3, CPT+1, CPT+2
SRFILE	B+1*, B+2!
>> SRINST	NEW+1
SRSDATE	AGAIN+1*, AGAIN+3!
SRSTOP	AGAIN*, AGAIN+1, AGAIN+3!
SRTN	AGAIN+1*, AGAIN+3!, UTIL+1, UTIL+2, UTIL+3, UTIL+4, MIN+1
>> SRVER	SROPOST2+2
X	AGAIN, AGAIN+3!, UTIL+3, MIN, STUFF+1, NEW+1
X1	AGAIN, AGAIN+3!, UTIL+3, MIN
>> X2	AGAIN, MIN
>> Y	MIN*