Routine: SROCMPS

Package	Total	Call Graph
Surgery	7	(,HDR)^SROAUTL EN^SROCCAT ^SROCMPED (EXIT,SRA)^SROES $$ICDC^SROICD ^SROPS ^SRSKILL
VA Fileman	3	EN^DDIOL FILE^DICN ^DIR

Package	Total	Caller Graph
Surgery	4	SRO INTRAOP COMP SRO POSTOP COMP SROACOM SROVER1

Entry Points

Name	Comments	DBIA/ICR reference
CO()	; called by screen on post-op occurrence category field
END
EDIT
LIST	; list existing occurrences
ICD
PRESS
NEW	; enter new occurrences
POST
SEL
INTRA
DESC	; output occurrence category description when doing lookup

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: POST+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Select the number corresponding to the occurrence you want to update, or",!,"enter 'NEW' to add another occurrence. ",!!,"Press RETURN to continue " Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,CNT_". ",?5,SRCMP,!,?5,"Category: "_SRCAT,! Line Location: LIST+2
Function Call: WRITE	Prompt: !,"There are no "_$S(SRTYPE=10:"Intraoperative",1:"Postoperative")_" Occurrences entered for this case.",!! Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"Since you have selected one of the 'OTHER' occurrence categories, an ICD",!,"Diagnosis Code should be entered for this occurrence." Line Location: ICD+0
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Routine Call	DIR Line Location: NEW+2 ICD+1 PRESS

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	EDIT+1, EDIT+2, LIST+1, NEW+1, NEW+5, NEW+7, CO+3
^SRO(136.5 - [#136.5]	LIST+1, DESC+2

Name	Field # of Occurrence
>> CNT	EDIT+2, SEL, LIST+1, LIST+2
>> COMP	EDIT+2*, LIST+1
DA	NEW+6!
DA(1	NEW+6*, CO+2
DD	NEW+6!
DIC	NEW+6!*
DIC(0	NEW+6*
DINUM	NEW+6!
DIR	NEW+2!, ICD+1!, PRESS!
DIR("A"	NEW+2, ICD+1, PRESS*
DIR(0	NEW+2, ICD+1, PRESS*
>> DLAYGO	NEW+6*
DO	NEW+6!
DTIME	SEL, SEL+2, END+1
>> DTOUT	PRESS
>> DUOUT	NEW+2, ICD+1
>> I	POST+3*
IOF	POST+1, END+2
>> SRC(0	LIST+1*
>> SRCAT	LIST+1*, LIST+2
>> SRCMP	LIST+1*, LIST+2
SRCOM	NEW+3!, NEW+4, NEW+6, ICD+2
SRCOMP	EDIT!
SRCOMP(	SEL+2, SEL+3, LIST+1*
>> SRDD	NEW+2*, NEW+6
SRENTRY	SEL+1!, SEL+3, NEW+6
>> SRICD	NEW+4, NEW+7, ICD+2
>> SRLINE	POST+3*
>> SRNAME	POST+3*
>> SRNEW	EDIT, NEW+3
>> SROVER	END+2
SRPOINT	NEW+3!*, NEW+7
SRSCR	CO+1~, CO+4
>> SRSOUT	POST+1, EDIT, EDIT+1, SEL, SEL+1, END+1, NEW+2, NEW+4, PRESS
>> SRSUPCPT	POST+3*
SRTN	POST+1, EDIT+1, EDIT+2, END!, LIST+1, NEW+1, NEW+5, NEW+6, NEW+7, CO+2
SRTN1	POST+1*, END!
>> SRTY	INTRA, POST, ICD+1
>> SRTYPDD	INTRA, POST, NEW+5
SRTYPE	INTRA, POST, EDIT+1, EDIT+2, LIST+1, NEW+1, NEW+2, NEW+5, NEW+6, NEW+7 , CO+1~, CO+3*, CO+4
SRX	DESC+1~, DESC+2, CO+1~, CO+2, CO+3
SRY	DESC+1~, DESC+2*
SRZ	DESC+1~, DESC+3
SRZ(	DESC+2*
SRZ(0	DESC+3
U	CO+3
>> VA("PID"	POST+3
>> VADM(1	POST+3
X	SEL, SEL+1, SEL+2, SEL+3, END+1, NEW+2!, NEW+6
>> Y	NEW+2, NEW+3, NEW+6, NEW+7, ICD+2, DESC+2