Routine: SROPCE0A

Package	Total	Call Graph
Surgery	4	CHK^SROPCE0 SCHED^SROPCE0B ^SROSTOP $$DIV^SROUTL0
DRG Grouper	3	$$ICDDX^ICDCODE $$CPT^ICPTCOD $$MOD^ICPTMOD
Registration	1	DEM^VADPT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Surgery	1	SROPCE0

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; print case info
HDR	; print heading
PROC	; get principal procedure and other case information
CPT	; get CPT codes
UTIL	; process case
DEM	; get patient demographic information
DX	; get diagnosis and ICD codes
LINE
TOTAL
MISS	; list fields missing data
PAGE

External References

Name	Field # of Occurrence
^DIR	PAGE+1
$$ICDDX^ICDCODE	DX+2, DX+5
$$CPT^ICPTCOD	CPT+2, CPT+10
$$MOD^ICPTMOD	CPT+7, CPT+14
CHK^SROPCE0	UTIL+11, UTIL+13
SCHED^SROPCE0B	CASE+1
^SROSTOP	HDR+1
$$DIV^SROUTL0	SROPCE0A+6
DEM^VADPT	DEM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?28,"CPT",?36,"ICD",!,?20,"CASES",?27,"CODES",?35,"CODES",!,?13,"FILED: ",$J(CNT(1),5),?27,$J(SRFCPT,5),?35,$J(SRFICD,5) Line Location: TOTAL+0
Function Call: WRITE	Prompt: !,?9,"NOT FILED: "_$J(CNT(4),5) Line Location: TOTAL+1
Function Call: WRITE	Prompt: !,?9,"UNCERTAIN: "_$J(CNT(5),5) Condition for execution: CNT(5) Line Location: TOTAL+2
Function Call: WRITE	Prompt: !,?20,"-----",?27,"-----",?35,"-----",!,?13,"TOTAL: ",$J(CNT(6),5),?27,$J(SRFCPT+SRQCPT+SRUCPT,5),?35,$J(SRFICD+SRQICD+SRUICD,5) Line Location: TOTAL+2
Function Call: WRITE	Prompt: !,?15,"No Missing Information" Line Location: MISS+1
Function Call: WRITE	Prompt: !,?15,"Missing Information:" Line Location: MISS+2
Function Call: WRITE	Prompt: !,$J(SRCT_". ",20),SRX(SRFLD) Line Location: MISS+2
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: "-" Line Location: LINE+0
Function Call: WRITE	Prompt: !,SRSDATE,?22,SRSNM,?49,SRPROV,?71,SRSSNM,?113,$S(SRSTATUS=1:"FILED",SRSTATUS=4:"NOT FILED",1:"UNCERTAIN") Line Location: CASE+2
Function Call: WRITE	Prompt: !,SRTN,?22,SRSSN_" ("_SRAGE_")",?49,SRATT,?71,SRDIAG(1),?113,$E(SRSCHED,1,17),! Line Location: CASE+3
Function Call: WRITE	Prompt: "NON-OR" Condition for execution: (SRFLG=3)&SRNON Line Location: CASE+4
Function Call: WRITE	Prompt: ?22,SRPROC(1) Line Location: CASE+4
Function Call: WRITE	Prompt: ?71,SRDIAG(2) Condition for execution: $D(SRDIAG(2)) Line Location: CASE+4
Function Call: WRITE	Prompt: !,?22,SRPROC(2) Condition for execution: $D(SRPROC(2)) Line Location: CASE+4
Function Call: WRITE	Prompt: !,?22,SRPROC(3) Condition for execution: $D(SRPROC(3)) Line Location: CASE+4
Function Call: WRITE	Prompt: ! Line Location: CASE+4
Function Call: WRITE	Prompt: ! Line Location: CASE+5
Function Call: WRITE	Prompt: ?71,"ICD Diagnosis Code: "_SRDX(SRI) Condition for execution: $D(SRDX(SRI)) Line Location: CASE+5
Function Call: WRITE	Prompt: ?1,SRCPT(SRI) Line Location: CASE+6
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRTITLE)\2),SRTITLE,!,?(IOM-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRPRINT)\2),SRPRINT Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"DATE OF "_$S(SRFLG=1:"OPERATION",SRFLG=2:"PROCEDURE",1:"OP/PROCEDURE"),?22,"PATIENT NAME",?49,$S(SRFLG=1:"SURGEON",SRFLG=2:"PROVIDER",1:"SURGEON/PROVIDER"),?71,"SPECIALTY",?113,"PCE FILING STATUS" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"CASE #",?22,"PATIENT ID (AGE)",?49,"ATTENDING",?71,"PRINCIPAL "_$S(SRFLG=1:"POST-OP ",1:"")_"DIAGNOSIS",?113,"SCHED STATUS",!,?22,"PRINCIPAL PROCEDURE" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Routine Call	DIR Line Location: PAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEM+1
^ECC(723	UTIL+10
^SRF - [#130]	SROPCE0A+6, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, DEM+1, PROC+1 , PROC+4, PROC+8, PROC+9, CPT+2, CPT+7, CPT+10, CPT+14, DX+2, DX+5
^SRF("AC"	SROPCE0A+6
^SRO(133 - [#133]	UTIL+1, UTIL+3
^SRO(136 - [#136]	CPT+1, CPT+4, CPT+6, CPT+7, CPT+9, CPT+11, CPT+13, CPT+14, DX+1, DX+4
^SRO(137.45 - [#137.45]	UTIL+10
^VA(200 - [#200]	PROC+8, PROC+9

Label References

Name	Line Occurrences
CASE	UTIL+11, UTIL+12, UTIL+13
DEM	CASE+1
HDR	SROPCE0A+6, PAGE
LINE	UTIL+12, MISS+1
MISS	UTIL+11, UTIL+13
PAGE	TOTAL, MISS+2, CASE+1, CASE+5
TOTAL	SROPCE0A+7
UTIL	SROPCE0A+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT(	TOTAL+1
>> CNT(1	TOTAL, UTIL+12*
>> CNT(4	TOTAL+1, UTIL+13*
>> CNT(5	TOTAL+2, UTIL+11*
>> CNT(6	TOTAL+1*, TOTAL+2
>> DFN	DEM+1*
DIR	PAGE+1!
DIR(0	PAGE+1*
>> DTOUT	PAGE+1
>> DUOUT	PAGE+1
>> I	TOTAL+1, LINE, PROC+3, PROC+6, HDR+5*
IOF	HDR+2
IOM	LINE, HDR+2, HDR+5
IOSL	TOTAL, MISS+2, CASE+1, CASE+5
IOST	PAGE, HDR+2
>> J	PROC+3, PROC+6
>> K	PROC+2, PROC+3, PROC+5, PROC+6
>> SR(0	DEM+1*
>> SRAGE	CASE+3, DEM+1*
>> SRATT	CASE+3, PROC+8, PROC+9, PROC+11*
SRCPT	CPT+1!
SRCPT(	CASE+5, CASE+6, CPT+8, CPT+10, CPT+15
SRCPT(1	CPT+2*
>> SRCT	MISS+2*
SRDIAG	PROC+4!
SRDIAG(	PROC+5, PROC+6
SRDIAG(1	CASE+3, PROC+4, PROC+7
SRDIAG(2	CASE+4
>> SRDIV	UTIL+1*, UTIL+2
SRDX	DX+1!
SRDX(	CASE+5, CASE+6, DX+5*
SRDX(1	DX+2*
>> SRFCPT	SROPCE0A+5, TOTAL, TOTAL+2, CPT+3, CPT+16*
>> SRFICD	SROPCE0A+5, TOTAL, TOTAL+2, DX+3, DX+6*
>> SRFLD	MISS+1, MISS+2
>> SRFLG	UTIL+6, UTIL+7, UTIL+8, CASE+4, HDR+3, HDR+4
>> SRFRTO	HDR+2
>> SRHALT	HDR+1
>> SRHDR	PAGE, HDR+5*
SRI	CASE+5, CASE+6, CPT+5~, CPT+6, CPT+7, CPT+12~, CPT+13*, CPT+14
SRICPT	CPT+1~, CPT+2, CPT+10
>> SRINOUT	UTIL+4*, UTIL+11
>> SRINST	HDR+2
>> SRJ	CPT+1, CPT+2, CPT+8, CPT+10, CPT+15, DX+1, DX+2, DX+5
>> SRNON	UTIL+5*, UTIL+6, UTIL+7, UTIL+8, UTIL+9, UTIL+10, CASE+4, PROC+4, PROC+8, PROC+9
>> SROP	CPT+9*, CPT+11, CPT+13, CPT+14
>> SRPAGE	HDR+2, HDR+5*
>> SRPARAM	UTIL+3*, UTIL+4, UTIL+11
>> SRPODX	DX+4*
>> SRPRINT	HDR+2
SRPROC	PROC+1!
SRPROC(	PROC+2, PROC+3
SRPROC(1	CASE+4, PROC+1*
SRPROC(2	CASE+4
SRPROC(3	CASE+4
>> SRPROV	CASE+2, PROC+8, PROC+9, PROC+10*
>> SRQCPT	SROPCE0A+5, TOTAL+2, CPT+3, CPT+16*
>> SRQICD	SROPCE0A+5, TOTAL+2, DX+3, DX+6*
>> SRRPT	HDR+2
>> SRSCHED	CASE+3
>> SRSDATE	CASE+2, DEM+1*
>> SRSDT	SROPCE0A+6*, DEM+1
>> SRSEDT	SROPCE0A+6
>> SRSITE	UTIL+2
>> SRSNM	CASE+2, DEM+1, DEM+2
>> SRSOUT	SROPCE0A+6, SROPCE0A+7, TOTAL, MISS+1, MISS+2, LINE, CASE+1, CASE+5, PAGE+1, HDR+1
>> SRSPEC	UTIL+9
>> SRSPS	UTIL+1, UTIL+2, UTIL+3
>> SRSR	UTIL+3*
>> SRSS	UTIL+9*, UTIL+10
>> SRSSN	CASE+3, DEM+1*
>> SRSSNM	UTIL+10*, CASE+2
>> SRSTATUS	UTIL+11, UTIL+12, UTIL+13*, CASE+2, CASE+5, PROC+12, CPT+3, CPT+16, DX+3, DX+6
>> SRTITLE	HDR+2
>> SRTN	SROPCE0A+6*, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, CASE+3, DEM+1 , PROC+1, PROC+4, PROC+8, PROC+9, CPT+1, CPT+2, CPT+4, CPT+6, CPT+7, CPT+9 , CPT+10, CPT+11, CPT+13, CPT+14, DX+1, DX+2, DX+4, DX+5
>> SRUCPT	SROPCE0A+5, TOTAL+2, CPT+3, CPT+16*
>> SRUICD	SROPCE0A+5, TOTAL+2, DX+3, DX+6*
SRX	CPT+5~, CPT+7, CPT+8, CPT+12~, CPT+14, CPT+15
SRX(	MISS+1, MISS+2
SRY	CPT+5~, CPT+7, CPT+12~, CPT+14
SRZ	CPT+5~, CPT+7, CPT+12~, CPT+14
>> VA("PID"	DEM+1
>> VADM(1	DEM+1
>> VADM(3	DEM+1
>> X	UTIL+3, DEM+2, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+8, PROC+9 , PROC+10, PROC+11, CPT+1, CPT+2, CPT+4, CPT+9, CPT+10, DX+1, DX+2, DX+4 , DX+5
>> X1	DEM+1*
>> X2	DEM+1*
>> Y	DEM+1, PROC+3, PROC+6*
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery

Routine: SROPCE0A

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: