Routine: SROACC

Package	Total	Call Graph
Surgery	6	(MSP,SPEC)^SROACC0 ^SROACC5 ^SROACC6 ^SROSTOP DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
DRG Grouper	1	$$CPT^ICPTCOD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	3	SR CPT ACCURACY SROACC5 SROACC6

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	END+2
^%ZTLOAD	DEV+2
^DIC	ALL+4
$$CPT^ICPTCOD	CTD+3
MSP^SROACC0	MSP+3
SPEC^SROACC0	SPEC+3
^SROACC5	EN+3
^SROACC6	EN+4
^SROSTOP	HDR+1
DATE^SROUTL	START
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report to Check CPT Coding Accuracy" Line Location: BEG+1
Function Call: WRITE	Prompt: @IOF,!,"Print the Report of CPT Coding Accuracy for which cases ?",!!,"1. O.R. Surgical Procedures",!,"2. Non-O.R. Procedures",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures (All Specialties)" Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print the report for all codes, or 'NO'",!,"to select a specific CPT Code.",!!,"Press RETURN to continue " Line Location: ALL+2
Function Call: WRITE	Prompt: !! Line Location: ALL+4
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: WRITE	Prompt: !!,"Enter '1' or press <RET> to include only OR surgical procedure cases on the",!,"report. Enter '2' to include only non-OR procedure cases on the report." Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Enter '3' to include cases for both OR surgical procedures and non-OR",!,"procedures on the report." Line Location: HELP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
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+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE REVIEWED:" 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",!,?20,"SPECIALTY" 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 sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: MSP+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSP+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue " Line Location: MSP+2
Routine Call	DIC Line Location: ALL+4
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+2
^TMP("SR"	EN+1!, END!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("A"	DEV+1*
DIC	ALL+4!*
DIC("A"	ALL+4*
DIC("S"	ALL+4*
DIC(0	ALL+4*
DT	CTD+1
DTIME	ASK+1, ALL, ALL+2, END+1, HELP+2, HDR+2, SPEC, SPEC+2, MSP, MSP+2
>> EDATE	START, START+1, EN+2, CTD+2
>> EDATE1	START+1*
ICPTVDT	CTD!, CTD+3*
IO	EN+1
IO("Q"	DEV+1!, DEV+2!
IOF	BEG+1, ASK, END, END+2, HDR+3, SPEC, MSP
IOP	DEV+1!
IOST	END, END+1, HDR+2
POP	DEV+1!
>> SDATE	START, START+1, EN+2
>> SDATE1	START+1*
>> SRCPT	ALL+3, ALL+4, EN+3
>> SRFLG	BEG, ASK+3, ALL+5, ALL+6, HDR+5, MSP
SRFRTO	EN+2~*, HDR+4
>> SRHALT	HDR+1
>> SRHDR	HDR+2, HDR+7*
>> SRINST	EN+1*, HDR+3
>> SROK	CTD+1, CTD+3, CTD+4
>> SRPAGE	EN+1, HDR+3, HDR+7
SRSDATE	CTD+1~, CTD+2, CTD+3
>> SRSITE("SITE"	EN+1
>> SRSOUT	BEG, START, ASK+2, ALL, ALL+4, DEV+1, EN+1, END+1, HELP+2, HDR+1* , HDR+2, SPEC, MSP*
SRTN	END+2!
>> SRYN	ALL, ALL+1, ALL+2, ALL+4, SPEC, SPEC+1, SPEC+2, SPEC+3, MSP, MSP+1 , MSP+2, MSP+3
>> X	ASK+1, ASK+2, ASK+3, ALL+2, END+1, HELP+2, HDR+2, SPEC+2, MSP+2
>> Y	ALL+4, EN+2*, CTD+3
>> ZTDESC	DEV+2*
>> ZTQUEUED	END, HDR+1
>> 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*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROACC

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ALL
EN	; entry when queued
END
HELP
BEG
DEV
MSP
START
ASK
CTD()
SPEC
HDR	; print heading

Name	Line Occurrences
ALL	ALL+2
ASK	ASK+2
DEV	SPEC+4, MSP+4
END	START, ASK+1, ASK+2, ALL, ALL+4, DEV+1, DEV+2, EN+3, SPEC, MSP
HELP	ASK+2
MSP	ALL+6, MSP+2
SPEC	ALL+5, SPEC+2