Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROPCE

Package: Surgery

Routine: SROPCE


Information

SROPCE ;BIR/ADM - PCE updates ;[ 10/17/01 9:28 AM ]

Source Information

Source file <SROPCE.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All