Routine: SROACMP1

Package	Total	Call Graph
Surgery	6	^SROACMP ^SROSTOP DATE^SROUTL ($$DIV,$$INST,$$MANDIV)^SROUTL0 $$SITE^SROVAR ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	C^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Surgery	2	SRO M&M VERIFICATION REPORT SROACMP

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; examine case
EN	; entry point
END
HDR	; print heading
SP
BEG
DEV
FOOT	; print footer
HDR2	; more heading
SEL	; select report version
SPEC
MORE	; ask for more surgical specialties

External References

Name	Field # of Occurrence
C^%DTC	CASE+7
^%ZIS	DEV
^%ZISC	END+1
^%ZTLOAD	DEV+1
^DIC	SP, MORE+1
^DIR	SPEC+3, SEL+2, FOOT+3
^SROACMP	BEG+5
^SROSTOP	HDR+1
DATE^SROUTL	EN+10
$$DIV^SROUTL0	CASE+3
$$INST^SROUTL0	SPEC
$$MANDIV^SROUTL0	CASE+2
$$SITE^SROVAR	EN+1
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?28,"M&M Verification Report" Line Location: EN+1
Function Call: WRITE	Prompt: !!,"The M&M Verification Report is a tool to assist in the review of occurrences" Line Location: EN+2
Function Call: WRITE	Prompt: !,"and their assignment to operations and in the review of death unrelated or",!,"related assignments to operations." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"The full report includes all patients who had operations within the selected" Line Location: EN+4
Function Call: WRITE	Prompt: !,"date range who experienced intraoperative occurrences, postoperative" Line Location: EN+5
Function Call: WRITE	Prompt: !,"occurrences or death within 90 days of surgery. The pre-transmission report" Line Location: EN+6
Function Call: WRITE	Prompt: !,"is similar but includes only operations with completed risk assessments that" Line Location: EN+7
Function Call: WRITE	Prompt: !,"have not yet transmitted to the national database.",! Line Location: EN+8
Function Call: WRITE	Prompt: !! Line Location: SPEC+1
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: DEV+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !! Line Location: SP+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?124,"Page ",PAGE,!,?54,"M&M Verification Report" Line Location: HDR+3
Function Call: WRITE	Prompt: ?100,"REVIEWED BY:",!,?(132-$L(SRPRINT)\2),SRPRINT,?100,"DATE REVIEWED:",! Line Location: HDR+6
Function Call: WRITE	Prompt: !,"OP DATE",?11,"CASE #",?25,"SURGICAL SPECIALTY",?80,"ASSESSMENT TYPE STATUS",?116,"DEATH RELATED",!,?11,"PRINCIPAL PROCEDURE",! Line Location: HDR+7
Function Call: WRITE	Prompt: "=" Line Location: HDR+7
Function Call: WRITE	Prompt: !,SRNAME_" * * Continued from previous page * *" Line Location: HDR+8
Function Call: WRITE	Prompt: ! Line Location: HDR2+1
Function Call: WRITE	Prompt: "-" Line Location: FOOT+1
Function Call: WRITE	Prompt: "-" Line Location: FOOT+2
Routine Call	DIC Line Location: SP MORE+1
Routine Call	DIR Line Location: SPEC+3 SEL+2 FOOT+3
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG, BEG+2
^DPT - [#2]	CASE+7
^SRF - [#130]	CASE+1, CASE+4, CASE+5, CASE+6, CASE+7
^SRF("AC"	BEG+3
^SRF("ARS"	BEG+4
^TMP("SR"	BEG!, CASE+6, CASE+7, END!, HDR+9
^TMP("SRPAT"	BEG!, END!
^TMP("SRSP"	END!
^XUSEC("SROCHIEF"	SPEC, CASE+2, CASE+3

Label References

Name	Line Occurrences
CASE	BEG+3, BEG+4
END	EN+9, EN+10, SPEC, SPEC+3, SPEC+4, DEV, DEV+1, BEG+5
HDR2	HDR+2
MORE	MORE+1
SEL	EN+9
SP	SPEC+4
SPEC	EN+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
%ZIS("A"	DEV*
>> DFN	BEG+4, CASE+6, CASE+7
DIC	SP!, MORE+1!
DIC("A"	SP, MORE+1
DIC("S"	SP, MORE+1
DIC(0	SP, MORE+1
DIR	SPEC+1!, SPEC+3!, SEL+1!, SEL+2!, FOOT+3!
DIR("?"	SPEC+2, SEL+2
DIR("A"	SPEC+1, SEL+1, SEL+2*
DIR("B"	SPEC+1, SEL+2
DIR(0	SPEC+1, SEL+2, FOOT+3*
DT	BEG
>> DTOUT	SPEC+3, SEL+2
>> DUOUT	SPEC+3, SEL+2
DUZ	SPEC, CASE+2, CASE+3
IO	BEG
IO("Q"	DEV!, DEV+1!
IOF	EN+1, END, END+1, HDR+3
IOP	DEV!
IOST	FOOT+3
>> LINE	HDR+7*
>> PAGE	BEG, HDR+3, HDR+9
POP	DEV!
>> SRASS	BEG+4*
>> SRCT	SP+1, MORE+1
>> SRDAY	CASE+7*
>> SRDEATH	CASE+7*
>> SRED	EN+10, BEG+2, BEG+3
>> SREDT	BEG+3*
>> SRFORM	EN+9, DEV+1, BEG+1, BEG+4, CASE+4, SEL+3*, HDR+4, HDR+5
SRFRTO	BEG+1~, BEG+2*, HDR+4
>> SRHALT	HDR+1
>> SRHDR	BEG, HDR+2, HDR+9, FOOT+3
>> SRINST	EN+1, SPEC, HDR+3
SRINSTP	SPEC~*, CASE+2
>> SRNAME	HDR+8
>> SRNM	BEG*, HDR+8
>> SRPRINT	BEG*, HDR+6
>> SRSD	EN+10, BEG+2, BEG+3
>> SRSDT	BEG+3*
>> SRSOUT	EN+1, EN+9, EN+10, SPEC+3, SPEC+4, DEV, BEG, BEG+3, BEG+4, BEG+5 , END, SEL+2, SP, HDR+1, HDR+2, FOOT+3
>> SRSP	EN+1, CASE+4, SP
>> SRSP(	CASE+4, SP+1, MORE+1
>> SRSS	BEG*
SRTN	BEG+3, BEG+4, CASE+1, CASE+2, CASE+3, CASE+4, CASE+5, CASE+6, CASE+7, END+1!
U	SPEC
>> X	CASE+7
>> X1	CASE+7*
>> X2	CASE+7*
>> Y	SPEC+4, BEG, BEG+2, CASE+4*, SEL+3, SP, SP+1, MORE+1, FOOT+3
>> ZTDESC	DEV+1*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	DEV+1*
>> ZTSAVE("SRED"	DEV+1*
>> ZTSAVE("SRFORM"	DEV+1*
>> ZTSAVE("SRINST"	DEV+1*
>> ZTSAVE("SRINSTP"	DEV+1*
>> ZTSAVE("SRSD"	DEV+1*
>> ZTSAVE("SRSP*"	DEV+1*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROACMP1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: