Routine: SROCMP1

Information

SROCMP1 ;BIR/MAM - PERIOPERATIVE OCCURRENCES ;02/02/06

Package	Total	Caller Graph
Surgery	1	SROMOR

Name	Comments	DBIA/ICR reference
MOCAT	; ask for more occurrence categories
EN	; entry point
END	;
OCC
SP
DEV
SPEC
ATSUR
CAT
ATTND
MOAT	; ask for more attending surgeons
BY
MORE	; ask for more surgical specialties

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	END+2
^%ZTLOAD	DEV+2
^DIC	SP, MORE+1
^DIR	BY+2, SPEC+3, ATTND+3, ATSUR+1, MOAT+2, OCC+3, CAT+1, MOCAT+2
BEG^SROCMP	DEV+3
^SRSKILL	END+2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: BY+0
Function Call: WRITE	Prompt: @IOF Line Location: SPEC+0
Function Call: WRITE	Prompt: !!,SRGRAMM_"designed to use a 132 column format.",! Line Location: DEV+1
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: @IOF Line Location: ATTND+0
Function Call: WRITE	Prompt: !! Line Location: ATSUR+0
Function Call: WRITE	Prompt: @IOF Line Location: OCC+0
Function Call: WRITE	Prompt: !! Line Location: CAT+0
Function Call: WRITE	Prompt: !! Line Location: SP+0
Routine Call	DIC Line Location: SP MORE+1
Routine Call	DIR Line Location: BY+2 SPEC+3 ATTND+3 ATSUR+1 MOAT+2 OCC+3 CAT+1 MOCAT+2
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences
ATSUR	ATTND+4
ATTND	BY+4
CAT	OCC+4
DEV	EN+1, ATTND+5, OCC+5
END	BY+2, SPEC+3, SPEC+4, DEV+1, DEV+2, ATTND+3, ATTND+4, OCC+3, OCC+4
MOAT	MOAT+3
MOCAT	MOCAT+3
MORE	MORE+1
OCC	BY+5
SP	SPEC+4

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("A"	DEV+1*
DIC	SP!, MORE+1!
DIC("A"	SP, MORE+1
DIC("S"	SP, MORE+1
DIC(0	SP, MORE+1
DIR	BY!, BY+2!, SPEC!, SPEC+3!, ATTND!, ATTND+3!, ATSUR!, ATSUR+1!, MOAT+1!, MOAT+2! , OCC!, OCC+3!, CAT!, CAT+1!, MOCAT+1!, MOCAT+2!
DIR("?"	BY+2, SPEC+1, SPEC+2, ATTND+1, ATTND+2, OCC+1, OCC+2*
DIR("A"	BY, BY+1, SPEC, ATTND, ATSUR, MOAT+1, OCC, CAT, MOCAT+1*
DIR("B"	BY+1, SPEC, ATTND, OCC
DIR("S"	CAT+1, MOCAT+2
DIR(0	BY, SPEC, ATTND, ATSUR, MOAT+1, OCC, CAT, MOCAT+1
DTIME	END+1
>> DTOUT	BY+2, SPEC+3, ATTND+3, ATSUR+1, MOAT+2, OCC+3, CAT+1, MOCAT+2
>> DUOUT	BY+2, SPEC+3, ATTND+3, ATSUR+1, MOAT+2, OCC+3, CAT+1, MOCAT+2
IO("Q"	DEV+1!, DEV+2!
IOF	BY, SPEC, END+2, ATTND, OCC
IOP	DEV+1!
POP	DEV+1!
>> SRATT	EN+1*
>> SRBOTH	EN+1, DEV
>> SRCT	ATSUR+2, MOAT+3, CAT+2, MOCAT+3, SP+1, MORE+1
>> SRGRAMM	DEV*, DEV+1
SRSEL	EN+1~, BY+3, BY+4, BY+5
>> SRSOUT	EN+1, BY+2, SPEC+3, SPEC+4, DEV+1, END+1, ATTND+3, ATTND+4, ATSUR+1, OCC+3* , OCC+4, CAT+1, SP
>> SRSP	EN+1, ATSUR, CAT, SP
>> SRSP(	ATSUR+2, MOAT+3, CAT+2, MOCAT+3, SP+1, MORE+1
SRTN	END+2!
>> X	END+1*
>> Y	BY+3, SPEC+4, ATTND+4, ATSUR+1, ATSUR+2, MOAT+2, MOAT+3, OCC+4, CAT+1, CAT+2 , MOCAT+2, MOCAT+3, SP, SP+1, MORE+1
>> ZTDESC	DEV+2*
>> ZTRTN	DEV+2*
>> ZTSAVE("SRBOTH"	DEV+2*
>> ZTSAVE("SRED"	DEV+2*
>> ZTSAVE("SRINST"	DEV+2*
>> ZTSAVE("SRINSTP"	DEV+2*
>> ZTSAVE("SRSD"	DEV+2*
>> ZTSAVE("SRSEL"	DEV+2*
>> ZTSAVE("SRSP*"	DEV+2*