Routine: SROA38A

Package	Total	Call Graph
VA Fileman	3	^DIE ^DIK EN^DIU2

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	; change assessments with a status of COMPLETE to INCOMPLETE
DELDD	; delete DD for modified fields
SET
END
NONSTD	; convert non-standard anesthesia technique
ALTER
LOOP	; loop through each case and update anesthesia techniques to ABA list

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Converting anesthesia techniques..." Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"Conversion of anesthesia techniques is finished.",! Line Location: LOOP+12
Function Call: WRITE	Prompt: !!,"Preinit process is finished.",! Line Location: END+1
Function Call: WRITE	Prompt: !!,"Non-standard technique code "_X_" on case #"_SRTN_" converted to "_$S(Y="O":"OTHER",1:"LOCAL")_".",! Line Location: NONSTD+2
Routine Call	DIE Line Location: STATUS+3

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	LOOP+2, LOOP+9, LOOP+10, STATUS+2, SET*, NONSTD+1
^SRF("ARS"	STATUS+1, STATUS+3!
^SRO(136.5 - [#136.5]	END!

Name	Field # of Occurrence
CAT	LOOP+10, LOOP+11, END+1!, NONSTD+1
CNT	LOOP+1, LOOP+2, END+1!
DA	STATUS+3!, DELDD+1!, DELDD+2!
DA(1	DELDD+1*
DFN	STATUS+1*, STATUS+3, END+1!
DIE	STATUS+3!*, DELDD+1!
DIK	DELDD+1!*, DELDD+2!
DIU	DELDD+4!*, DELDD+5!
DIU(0	DELDD+4*
DR	STATUS+3!*, DELDD+1!
I	END+1!
MAC	LOOP+9*, END+1!
SR38DONE	SROA38A+2, END+1!
SRA	END+1!
SRANES	LOOP+2*, LOOP+3, LOOP+9, END+1!, SET
SRATECH	END+1!
SRATECH(	LOOP+5, ALTER
SRCASE	LOOP+3*, END+1!
SRFLG	LOOP+4*, LOOP+5, LOOP+6, END+1!
SRNON	END+1!
SRS	STATUS+1*, STATUS+3, END+1!
SRSOUT	END+1!
SRSUB	DELDD+4*, DELDD+5!
SRTECH	LOOP+4*, END+1!
SRTN	LOOP+1, LOOP+2, LOOP+3, LOOP+9, LOOP+10, STATUS+1*, STATUS+2, STATUS+3, END+1!, SET , NONSTD+1, NONSTD+2
SRW	END+1!
SRX	END+1!
SRX1	END+1!
SRY	END+1!
SRZ	END+1!
X	LOOP+2*, LOOP+3, LOOP+4, LOOP+5, LOOP+7, LOOP+8, LOOP+9, LOOP+11, END+1!, NONSTD+2 , ALTER
Y	LOOP+8, LOOP+9, LOOP+11, END+1!, SET, NONSTD+1, NONSTD+2, ALTER*
Z	LOOP+10, END+1!, NONSTD+1