Routine: SROPCE

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
DRG Grouper	1	$$MOD^ICPTMOD
PCE Patient Care Encounter	1	($$DATA2PCE,$$DELVFILE)^PXAPI
Registration	1	INP^VADPT
Surgery	1	$$CLINIC^SROUTL

Package	Total	Caller Graph
Surgery	1	SROCD4

Entry Points

Name	Comments	DBIA/ICR reference
TMP	; set up ^TMP global array
ENC
DX
PMOD	; get modifiers for principal CPT code
PROV
OMOD	; get modifiers for other CPT codes
CPT
UTIL	; set procedure variables
DEL	; delete data from the Visit file and V files
NITE	; entry for nightly update of PCE with surgery & non-OR procedure data
D2PCE
PROC
DIAG
PCE	; set up call to PCE

External References

Name	Field # of Occurrence
^DIC	NITE+3
^DIE	DEL+1, D2PCE
$$MOD^ICPTMOD	PMOD+2, OMOD+2
$$DATA2PCE^PXAPI	D2PCE
$$DELVFILE^PXAPI	DEL+2
$$CLINIC^SROUTL	UTIL+31
INP^VADPT	UTIL+27

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	UTIL+2, UTIL+3, UTIL+4, UTIL+6, UTIL+7, UTIL+8, UTIL+9, UTIL+15, UTIL+17, UTIL+21 , UTIL+32, UTIL+33, UTIL+34, UTIL+35, PROC, PROC+1, DIAG, DIAG+1, DIAG+5, DX+13 , CPT+8, CPT+9, CPT+11, CPT+22, CPT+23, CPT+25, PMOD+2, OMOD+2
^SRF("APCE"	NITE+5!, UTIL+3, D2PCE!
^SRO(133 - [#133]	UTIL+2
^SRO(137.45 - [#137.45]	UTIL+13
^SRS - [#131.7]	UTIL+14
^TMP("SRPXAPI"	NITE+4!, D2PCE+1!, ENC, ENC+1, ENC+2, ENC+3, ENC+4, ENC+5, ENC+6, ENC+7 , ENC+8, ENC+9, ENC+10, ENC+11, ENC+12, ENC+13, PROV, PROV+1, PROV+2, PROV+3 , PROV+5, PROV+6, PROV+7, PROV+8, DIAG+3, DIAG+4, DIAG+6, DX, DX+2, DX+3 , DX+4, DX+5, DX+6, DX+7, DX+8, DX+9, DX+10, DX+11, DX+15, DX+16 , DX+17, DX+18, DX+19, DX+20, DX+21, DX+22, DX+23, CPT, CPT+1, CPT+2 , CPT+3, CPT+4, CPT+5, CPT+6, CPT+12, CPT+13, CPT+14, CPT+15, CPT+16, CPT+17 , CPT+18, CPT+19, CPT+26, CPT+27, CPT+28, CPT+29, CPT+30, CPT+31, CPT+32, CPT+33 , PMOD+2, PMOD+3, OMOD+2, OMOD+3

Label References

Name	Line Occurrences
CPT	PROC, PROC+1
DEL	UTIL+3
DIAG	PROV+3, PROV+4
DX	DIAG, DIAG+1
OMOD	PROC+1
PCE	NITE+5
PMOD	PROC
TMP	PCE+1
UTIL	NITE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DEL+1!, D2PCE!
DFN	NITE+1~, UTIL+5*, ENC+1
DIC	NITE+3!*
DIC(0	NITE+3*
DIE	DEL+1!, D2PCE!
DR	DEL+1!, D2PCE!
SR	NITE+1~
SR(0	UTIL+4*, UTIL+5, UTIL+12, UTIL+13, UTIL+14, UTIL+20, UTIL+36
SR(15	DX+13*, DX+14
SRADX	NITE+2~, CPT+10, CPT+11, CPT+12, CPT+13, CPT+14, CPT+15, CPT+16, CPT+17, CPT+18 , CPT+19, CPT+24, CPT+25, CPT+26, CPT+27, CPT+28, CPT+29, CPT+30, CPT+31, CPT+32 , CPT+33
SRADX1	NITE+2~, CPT+9, CPT+10, CPT+11, CPT+23, CPT+24, CPT+25
SRAO	NITE+1~, UTIL+36*, ENC+8, DX+6
SRATT	NITE+1~, UTIL+17, UTIL+18, UTIL+24, UTIL+25, PROV+3, PROV+4, PROV+5
SRCHK	NITE+1~, UTIL+15, UTIL+21, ENC+3
SRCNT	NITE+2~, CPT+8, CPT+12, CPT+13, CPT+14, CPT+15, CPT+16, CPT+17, CPT+18, CPT+19 , CPT+20, CPT+22, CPT+26, CPT+27, CPT+28, CPT+29, CPT+30, CPT+31, CPT+32, CPT+33 , CPT+34
SRCODE	PCE+1~, PROC, PROC+1, CPT+3
SRCPT	NITE+1~, UTIL+6*, PROC
SRCV	NITE+1~, UTIL+36*, ENC+13, DX+11
SRD	NITE+2~, DIAG+1*, DX+13
SRDATE	NITE+1~, UTIL+16, UTIL+22, UTIL+26, ENC, CPT+2
SRDIAG	NITE+1~, UTIL+8*, UTIL+10, DIAG, CPT+10, CPT+24
SRDIV	UTIL+1~, UTIL+2*
SRDX	NITE+2~, DIAG, DIAG+1, DX
SRDXF	NITE+2~, UTIL+10*, DIAG+2, DX+3, DX+4
SRDXN	NITE+1~, DIAG, DIAG+1, DIAG+5*, DIAG+6, DX+23
SREC	NITE+1~, UTIL+36*, ENC+10, DX+8
>> SRFILE	NITE+4*, UTIL+3
SRHNC	NITE+1~, UTIL+36*, ENC+12, DX+10
SRI	PCE+1~, PROC, PROC+1, DIAG, DIAG+3, DIAG+4, DIAG+6, DX, DX+1, DX+12 , DX+15, DX+16, DX+17, DX+18, DX+19, DX+20, DX+21, DX+22, DX+23, DX+24 , CPT, CPT+1, CPT+2, CPT+3, CPT+4, CPT+5, CPT+6, CPT+7, CPT+21, CPT+26 , CPT+27, CPT+28, CPT+29, CPT+30, CPT+31, CPT+32, CPT+33, PMOD+2, PMOD+3, OMOD+2 , OMOD+3
SRINOUT	NITE+2~, UTIL+28, UTIL+29
SRIR	NITE+1~, UTIL+36*, ENC+9, DX+7
SRJ	PCE+1~
SRK	NITE+1~, NITE+5, UTIL+2, UTIL+3, UTIL+4, UTIL+6, UTIL+7, UTIL+8, UTIL+11, UTIL+14* , UTIL+15, UTIL+16, UTIL+17, UTIL+18, UTIL+19, UTIL+21, UTIL+22, UTIL+23, UTIL+24, UTIL+25* , UTIL+31, UTIL+32, UTIL+33, UTIL+34
SRLOC	NITE+1~, UTIL+12, UTIL+13, UTIL+14, UTIL+20, UTIL+23*, UTIL+31, ENC+2
SRM	PMOD+1~, PMOD+2, OMOD+1~, OMOD+2
SRMOD	PMOD+1~, PMOD+2, PMOD+3, OMOD+1~, OMOD+2, OMOD+3
SRMST	NITE+1~, UTIL+36*, ENC+11, DX+9
SRNAR	NITE+1~, PROC, PROC+1, CPT+4
SRNON	NITE+1~, UTIL+6*, UTIL+11, UTIL+19, PROV+2, PROV+8, DIAG
SRODIAG	NITE+2~, UTIL+9*, UTIL+10, DIAG+2, DIAG+3
SROTH	NITE+1~, PCE+1~, PROC+1*, CPT+22, CPT+23, OMOD+2
SRPKG	NITE+1~, NITE+3*, D2PCE
SRPLAO	NITE+2~, DX+14*, DX+17
SRPLCV	NITE+2~, DX+14*, DX+22
SRPLEC	NITE+2~, DX+14*, DX+19
SRPLHNC	NITE+2~, DX+14*, DX+21
SRPLIR	NITE+2~, DX+14*, DX+18
SRPLMST	NITE+2~, DX+14*, DX+20
SRPLSC	NITE+2~, DX+14*, DX+16
SRPROV	NITE+1~, UTIL+17, UTIL+24, PROV, PROV+3, CPT
SRRPROV	NITE+2~, UTIL+35*, CPT+1
SRS	NITE+1~, NITE+4*, D2PCE
SRSC	NITE+1~, UTIL+36*, ENC+7, DX+5
SRSITE	UTIL+1~, UTIL+2*
SRSR	UTIL+1~, UTIL+2*, UTIL+18, UTIL+25
SRTN	NITE+1~, NITE+5*, DEL+1, UTIL+2, UTIL+3, UTIL+4, UTIL+6, UTIL+7, UTIL+8, UTIL+9 , UTIL+15, UTIL+17, UTIL+21, UTIL+31, UTIL+32, UTIL+33, UTIL+34, UTIL+35, D2PCE, PROC , PROC+1, DIAG, DIAG+1, DIAG+5, DX+13, CPT+8, CPT+9, CPT+11, CPT+22, CPT+23 , CPT+25, PMOD+2, OMOD+2
SRUP	NITE+2~, UTIL+2*
SRV	NITE+1~, DEL+2, D2PCE
SRVSIT	NITE+1~, DEL+2!, UTIL+3*, D2PCE, D2PCE+1!
SRX	NITE+1~, UTIL+3, UTIL+7, UTIL+12, UTIL+13, UTIL+14, UTIL+15, UTIL+16, UTIL+17, UTIL+21 , UTIL+22, UTIL+23, UTIL+24, UTIL+32, UTIL+33, UTIL+34, UTIL+35, CPT+8, CPT+9, CPT+22 , CPT+23
VAIN	UTIL+30!
VAIN(1	UTIL+28, UTIL+29
VAINDT	UTIL+26*, UTIL+30!
X	NITE+3, UTIL+2, PMOD+1~, PMOD+2, OMOD+1~, OMOD+2
>> Y	NITE+3

Customize PDF page

Package: Surgery

Routine: SROPCE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: