Routine: SROACC0

Package	Total	Call Graph
Surgery	5	^SROACC1 ^SROACC2 ^SROACC3 ^SROACC4 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
DRG Grouper	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	7	SROACC SROACC1 SROACC2 SROACC3 SROACC4 SROACC5 SROACC6

Entry Points

Name	Comments	DBIA/ICR reference
OPER
EN	; entry when queued
END
HDR	; print heading
PMOD	; principle procedure CPT modifiers - file #136
OMOD	; Other procedure CPT modifiers - file #136
DEV
MSP
OTHERT	; other procedures - file #136
OTHER	; other procedures
LOOP	; break CPT line greater than 50 characters
SPEC
OPERT	; patch SR3142 changes

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	END+2
^%ZTLOAD	DEV+2
^DIC	SPEC+3, MSP+4
$$CPT^ICPTCOD	OPERT+1, OTHERT+1
$$MOD^ICPTMOD	OMOD+3, PMOD+3
^SROACC1	EN+3
^SROACC2	EN+4
^SROACC3	EN+5
^SROACC4	EN+6
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",!! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?126,$J(SRPAGE,4),!,?51,"REPORT OF CPT CODING ACCURACY",?100,"REVIEWED BY:" Line Location: HDR+2
Function Call: WRITE	Prompt: ?100,"DATE REVIEWED:" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO Line Location: HDR+4
Function Call: WRITE	Prompt: !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL PROCEDURES AND NON-O.R. PROCEDURES") Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?1,"PROCEDURE DATE",?20,"PATIENT",?60,"PROCEDURES",?111,"SURGEON/PROVIDER",!,?3,"CASE #",?22,"ID#",?111,"ATTEND SURG/PROV" Line Location: HDR+6
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Surgical Specialty.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: WRITE	Prompt: !! Line Location: SPEC+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: MSP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSP+3
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Medical Specialty.",!!,"Press RETURN to continue " Line Location: MSP+3
Function Call: WRITE	Prompt: !! Line Location: MSP+4
Routine Call	DIC Line Location: SPEC+3 MSP+4
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+2
^SRF - [#130]	OPER, OPER+1, OTHER+1
^SRO(136 - [#136]	OPERT+1, OPERT+2, OTHERT+1, OMOD+1, OMOD+2, OMOD+3, PMOD+1, PMOD+2, PMOD+3
^TMP("SR"	EN+1!, END!

Label References

Name	Line Occurrences
DEV	SPEC+4, MSP, MSP+5
END	DEV+1, DEV+2, EN+3, EN+4, EN+5, SPEC, SPEC+3, MSP+1, MSP+4
MSP	MSP+3
OMOD	OTHERT+1
OTHER	OPER+1
OTHERT	OPERT+2
PMOD	OPERT+1
SPEC	SPEC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("A"	DEV+1*
CPT	OPER~, OPERT+1, OTHERT+1
DIC	SPEC+3!, MSP+4!
DIC("A"	SPEC+3, MSP+4
DIC("S"	SPEC+3*
DIC(0	SPEC+3, MSP+4
DTIME	END+1, HDR+1, SPEC, SPEC+2, MSP+1, MSP+3
>> EDATE	EN+2
IO	EN+1
IO("Q"	DEV+1!, DEV+2!
IOF	END, END+2, HDR+2
IOP	DEV+1!
IOST	END, END+1, HDR+1
>> LOOP	LOOP+1*
>> M	LOOP+1
>> MM	LOOP+1*
>> MMM	LOOP+1*
>> OTH	OPER+1, OPERT+2, OTHER+1, OTHER+2*, OTHER+3, OTHERT+1, OMOD+1, OMOD+2, OMOD+3
POP	DEV+1!
>> SDATE	EN+2
SRCMOD	OMOD+1~, OMOD+2, OMOD+3, OMOD+4, PMOD+1~, PMOD+2, PMOD+3, PMOD+4
SRCOMMA	OMOD+1~, OMOD+2, OMOD+4, PMOD+1~, PMOD+2, PMOD+4
SRCPT	EN+3, EN+4, EN+5, OPER~, OPERT+1, OTHERT+1
SRCPTT	OPER!, OPERT+1, OTHERT+1, OMOD+2, OMOD+4, PMOD+2, PMOD+4, LOOP+1*
>> SRFLG	HDR+5, MSP
SRFRTO	EN+2~*, HDR+4
>> SRHDR	HDR+1, HDR+7*
>> SRI	OMOD+2, OMOD+3, PMOD+2, PMOD+3
>> SRINST	EN+1*, HDR+2
>> SRLONG	OTHER+1, OTHERT+1
>> SRM	OMOD+3, PMOD+3
>> SROPER	OPER, OPER+1, OTHER+2, OTHER+3
SROPERS	OPER!, OTHER+1*, OTHER+2, OTHER+3
>> SROPT(	LOOP+1*
>> SRPAGE	EN+1, HDR+2, HDR+7
>> SRSITE("SITE"	EN+1
>> SRSOUT	DEV+1, EN+1, END+1, HDR+1, SPEC, SPEC+3, MSP+1, MSP+4*
>> SRSS	EN+3, EN+4, EN+5, HDR+3, SPEC+3, MSP, MSP+4*
SRTN	END+2!, OPER, OPER+1, OPERT+1, OPERT+2, OTHER+1, OTHERT+1, OMOD+1, OMOD+2, OMOD+3 , PMOD+1, PMOD+2, PMOD+3
>> SRX	OPER*
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3, MSP+1, MSP+2, MSP+3, MSP+4
X	END+1, HDR+1, SPEC+2, MSP+3, OMOD+1~, PMOD+1~
>> Y	EN+2*, SPEC+3, MSP+4
>> ZTDESC	DEV+2*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEV+2*
>> ZTSAVE("EDATE*"	DEV+2*
>> ZTSAVE("SDATE*"	DEV+2*
>> ZTSAVE("SRCPT"	DEV+2*
>> ZTSAVE("SRFLG"	DEV+2*
>> ZTSAVE("SRSITE*"	DEV+2*
>> ZTSAVE("SRSS"	DEV+2*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROACC0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: