Routine: SROCDX

Information

SROCDX ;BIR/ADM - CASE CODING INPUT/EDIT ;08/29/05

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Surgery	5	HDR^SROCD ($$OASSDS,$$PASSDS,ASDX,OADD1,OTHADX,PADD1)^SROCDX1 SADXP^SROCDX2 SSOTH^SROCPT0 PRIN^SROMOD0
DRG Grouper	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
VA Fileman	2	^DIE ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SROCD0 SROCD2

Entry Points

Name	Comments	DBIA/ICR reference
DXDUP(SRDX)
CPTDISP
PCPT	; edit principal procedure code
PPROC
VALASC()
CASDX	; associate principal CPT to diagnosis
OTHCPTD
COTHADX
COTHBLD
SRODIR

External References

Name	Field # of Occurrence
^DIE	PPROC+1
^DIR	PCPT+4, CASDX+9, COTHADX+10, DXDUP+5, VALASC+3
$$CPT^ICPTCOD	COTHBLD+3, CPTDISP+1
$$MOD^ICPTMOD	OTHCPTD+6, CPTDISP+6
HDR^SROCD	CASDX+5, COTHADX+5
$$OASSDS^SROCDX1	COTHADX+8
$$PASSDS^SROCDX1	CASDX+8
ASDX^SROCDX1	PCPT+2, CASDX+5
OADD1^SROCDX1	COTHADX+12
OTHADX^SROCDX1	COTHADX+5
PADD1^SROCDX1	CASDX+11
SADXP^SROCDX2	PPROC+2
SSOTH^SROCPT0	COTHBLD+3
PRIN^SROMOD0	PPROC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Principal Procedure:",! Line Location: PCPT+2
Function Call: WRITE	Prompt: ! Line Location: PPROC+0
Function Call: WRITE	Prompt: ! Line Location: CASDX+7
Function Call: WRITE	Prompt: ! Line Location: COTHADX+6
Function Call: WRITE	Prompt: "-" Line Location: COTHADX+6
Function Call: WRITE	Prompt: !,"Other Procedures:",!!,OTHCNT,"."," CPT Code: "_$P(SRSEL(SRDA),U,4) Line Location: OTHCPTD+2
Function Call: WRITE	Prompt: !,?5,"Modifiers: " Line Location: OTHCPTD+3
Function Call: WRITE	Prompt: $P($$MOD^ICPTMOD(SRM,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRM,"I"),"^",3) Line Location: OTHCPTD+6
Function Call: WRITE	Prompt: "NOT ENTERED" Line Location: OTHCPTD+8
Function Call: WRITE	Prompt: !,?3,"CPT Code: "_Y_" "_Z,!,?3,"Modifiers: " Line Location: CPTDISP+2
Function Call: WRITE	Prompt: "NOT ENTERED" Line Location: CPTDISP+3
Function Call: WRITE	Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3) Line Location: CPTDISP+6
Routine Call	DIE Line Location: PPROC+1
Routine Call	DIR Line Location: PCPT+4 CASDX+9 COTHADX+10 DXDUP+5 VALASC+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRO(136 - [#136]	PCPT+1, PPROC, PPROC+2, PPROC+3, CASDX+2, COTHBLD+1, COTHBLD+2, OTHCPTD+4, OTHCPTD+5, OTHCPTD+8 , CPTDISP+1, CPTDISP+3, CPTDISP+4, CPTDISP+5

Label References

Name	Line Occurrences
$$DXDUP	CASDX+9, COTHADX+10
$$VALASC	CASDX+9, COTHADX+10
CASDX	PCPT+7, CASDX+13
COTHADX	COTHADX+14
COTHBLD	COTHADX, OTHCPTD+1
CPTDISP	PCPT+2, CASDX+5
OTHCPTD	COTHADX+5
PPROC	PCPT+1, PCPT+6
SRODIR	CASDX+6, COTHADX+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADCNT	SRODIR+3*, SRODIR+5
CPT	CASDX+2, COTHBLD~, COTHBLD+3, COTHBLD+4
CPT1	COTHBLD~, COTHBLD+2, COTHBLD+3, COTHBLD+4
>> D0	COTHADX+7*
DA	PPROC+1!*, PPROC+2!
DIE	PPROC+1!*
DIR	PCPT+3!, CASDX+2!, CASDX+6!, COTHADX+5!, COTHADX+6!, DXDUP+1~, VALASC+1~
DIR("A"	PCPT+4, DXDUP+5, VALASC+3, SRODIR+1, SRODIR+2, SRODIR+4, SRODIR+5, SRODIR+6
DIR("B"	PCPT+4, CASDX+8, COTHADX+9*
DIR(0	PCPT+3, CASDX+8, COTHADX+7, DXDUP+5, VALASC+3*
DR	PPROC+1!*
>> DTOUT	PCPT+4, DXDUP, VALASC
>> DUOUT	PCPT+4
>> I	CASDX+9, COTHADX+6, COTHADX+10*
OTH	COTHBLD~, COTHBLD+1, COTHBLD+2, COTHBLD+3, COTHBLD+4, OTHCPTD+3, OTHCPTD+4, OTHCPTD+5, OTHCPTD+8
OTHCNT	CASDX+1~, COTHADX+1~, COTHADX+2*, OTHCPTD+2
SRADX	CASDX+1~
SRAI	DXDUP+1~, DXDUP+3*, DXDUP+4, DXDUP+5, DXDUP+6
SRASSDS	CASDX+1~, CASDX+8, COTHADX+1~, COTHADX+8, COTHADX+9
SRCNT	SRODIR~, SRODIR+3, SRODIR+5, COTHBLD~, COTHBLD+1, COTHBLD+4, COTHBLD+5
SRCNTR	SRODIR~, SRODIR+3, SRODIR+4, SRODIR+5, SRODIR+6
SRCPT	PPROC~, PPROC+2, COTHBLD+3, COTHBLD+4
SRDA	COTHADX+2, COTHBLD~, COTHBLD+3*, OTHCPTD+2, OTHCPTD+3
SRDIE	PPROC*, PPROC+1!
SRDIR	COTHADX+1~
SRDIRX	CASDX+1~
SRDIRX(	DXDUP+5, SRODIR+3, SRODIR+5
SRDIRX(1	COTHADX+9
SRDUP	DXDUP+1~, DXDUP+5, DXDUP+7
SRDX	DXDUP~, DXDUP+2, DXDUP+3, DXDUP+4, DXDUP+5, DXDUP+6
SRDX0	CASDX+1~, COTHADX+1~
SRDX1	CASDX+1~, COTHADX+1~
SRDX2	CASDX+1~, CASDX+8, COTHADX+1~, COTHADX+7
SRDXCT	CASDX+1~
SRDXX	DXDUP+1~
SRDXX(	DXDUP+5, DXDUP+6*
SRFIRST	OTHCPTD~, OTHCPTD+1, OTHCPTD+6, OTHCPTD+7, CPTDISP~, CPTDISP+6, CPTDISP+7*
SRFLG	SRODIR~, SRODIR+3, SRODIR+5
SRI	OTHCPTD~, OTHCPTD+4*, OTHCPTD+5
SRM	OTHCPTD~, OTHCPTD+5*, OTHCPTD+6
SRMO	CPTDISP~, CPTDISP+5*, CPTDISP+6
>> SRMOD	CPTDISP+4*, CPTDISP+5
>> SROCPT2	CPTDISP+1*
SROCT	CASDX+1~
SRODIR	CASDX+1~
SRODIR("A"	CASDX+3, CASDX+4, COTHADX+3, COTHADX+4, SRODIR+6
>> SRPOTH	COTHADX+7
SRPPY	PCPT+1~, PCPT+5*, PCPT+6, PCPT+7
SRPRIN	PCPT+1~*, PPROC+3
SRSEL	COTHBLD!
SRSEL(	COTHBLD+4*, OTHCPTD+2, OTHCPTD+3
>> SRSHT	COTHBLD+3*, COTHBLD+4
>> SRSOUT	PPROC+1*
>> SRTN	PCPT+1, PPROC, PPROC+1, PPROC+2, PPROC+3, CASDX+2, COTHBLD+1, COTHBLD+2, OTHCPTD+4, OTHCPTD+5 , OTHCPTD+8, CPTDISP+1, CPTDISP+3, CPTDISP+4, CPTDISP+5
SRY	OTHCPTD~, CPTDISP+1*
U	VALASC+2, COTHBLD+2, COTHBLD+3, COTHBLD+4, OTHCPTD+2, OTHCPTD+3, OTHCPTD+5, CPTDISP+1, CPTDISP+5
VALA	VALASC+1~, VALASC+2, VALASC+3, VALASC+4
X	PCPT+1, PPROC+3, COTHBLD~, COTHBLD+2, COTHBLD+3, CPTDISP+1
>> Y	PCPT+4, PCPT+5, PPROC+1, CASDX+9, CASDX+10, CASDX+12, COTHADX+10, COTHADX+11, COTHADX+13, DXDUP , VALASC, VALASC+2, COTHBLD+3, CPTDISP+1, CPTDISP+2*
>> Y(0	VALASC, VALASC+2
>> Z	CPTDISP+1, CPTDISP+2

Customize PDF page

Package: Surgery

Routine: SROCDX

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: