Print Page as PDF
SURGERY file (#130) ICR (103)

SURGERY file (#130)    ICR (103)

Name Value
NUMBER 103
IA # 103
FILE NUMBER 130
GLOBAL ROOT SRF(
DATE CREATED 1991/07/28
CUSTODIAL PACKAGE SURGERY
CUSTODIAL ISC Birmingham
USAGE Controlled Subscription
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME SURGERY file (#130)
ORIGINAL NUMBER 103
GENERAL DESCRIPTION 
The DSS Extracts SURGERY EXTRACT file (#727.811)
contains a field, CASE NUMBER, which is a pointer to the SURGERY file (#130).
DSS Extracts has permission to execute direct global reads of the 'B' Cross
Reference on the SURGERY file (#130).

DSS uses the "ADT" and "AC" cross references on the DATE OF OPERATION field:
Global: ^SRF("ADT",DFN,DATE)
Global: ^SRF("AC",DATE,IEN)=DFN
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER GLOBAL DESCRIPTION
SRF(D0,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman PATIENT 0;1
.02 Direct Global Read & w/Fileman OPERATING ROOM 0;2
.04 Direct Global Read & w/Fileman SURGERY SPECIALTY 0;4
.09 Direct Global Read & w/Fileman DATE OF OPERATION 0;9
.011 Direct Global Read & w/Fileman IN/OUT-PATIENT STATUS 0;12 
DSS reads the entire zero node into a local variable.
The fields above are used.
SRF(D0,.1)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.14 Direct Global Read & w/Fileman SURGEON .1;4
.164 Direct Global Read & w/Fileman ATTEND SURG .1;13 
DSS reads the entire .1 node into a local variable. The
fields above are used.
SRF(D0,.2)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.21 Direct Global Read & w/Fileman ANES CARE START TIME .2;1
.22 Direct Global Read & w/Fileman TIME OPERATION BEGAN .2;2
.23 Direct Global Read & w/Fileman TIME OPERATION ENDS .2;3
.24 Direct Global Read & w/Fileman ANES CARE END TIME .2;4
.205 Direct Global Read & w/Fileman TIME PAT IN OR .2;10
.232 Direct Global Read & w/Fileman TIME PAT OUT OR .2;12
.203 Direct Global Read & w/Fileman TIME PAT IN HOLD AREA .2;15
.234 Direct Global Read & w/Fileman OR CLEAN START TIME .2;13
.236 Direct Global Read & w/Fileman OR CLEAN END TIME .2;14 
DSS reads the entire .2 node into a local variable. The
fields above are used.
SRF(D0,.3)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.34 Direct Global Read & w/Fileman ANESTHESIOLOGIST SUPVR .3;4
.31 Read w/Fileman PRINCIPAL ANESTHETIST .3;1
SRF(D0,1,D1,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman PROSTHESIS ITEM 0;1 
From the PROSTHESIS INSTALLED multiple (.47).
SRF(D0,1,D1,1)
FIELD NUMBER ACCESS FIELD NAME LOCATION
7 Direct Global Read & w/Fileman QUANTITY 1;2
SRF(D0,1.1)
FIELD NUMBER ACCESS FIELD NAME LOCATION
1.17 Direct Global Read & w/Fileman ADMIT PAC(U) TIME 1.1;7
1.18 Direct Global Read & w/Fileman PAC(U) DISCH TIME 1.1;8
SRF(D0,6,D1,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman ANESTHESIA TECHNIQUE 0;1
.05 Direct Global Read & w/Fileman PRINCIPAL TECH 0;3 
From the ANESTHESIA TECHNIQUE multiple (.37).
SRF(D0,8)
FIELD NUMBER ACCESS FIELD NAME LOCATION
50 Direct Global Read & w/Fileman DIVISION 8;1
SRF(D0,13,D1,2)
FIELD NUMBER ACCESS FIELD NAME LOCATION
3 Direct Global Read & w/Fileman OTHER PROCEDURE CPT CODE 2;1 
From the OTHER PROCEDURES multiple (.42).
SRF(D0,30)
FIELD NUMBER ACCESS FIELD NAME LOCATION
17 Direct Global Read & w/Fileman CANCEL DATE 30;1
SRF(D0,NON)
FIELD NUMBER ACCESS FIELD NAME LOCATION
118 Direct Global Read & w/Fileman NON-OR PROCEDURE NON;1
119 Direct Global Read & w/Fileman NON-OR LOCATION NON;2
121 Direct Global Read & w/Fileman TIME PROCEDURE BEGAN NON;4
122 Direct Global Read & w/Fileman TIME PROCEDURE ENDED NON;5
123 Direct Global Read & w/Fileman PROVIDER NON;6
124 Direct Global Read & w/Fileman ATTEND PROVIDER NON;7 
DSS reads the entire NON node into a local variable. The
fields above are used.
SRF(D0,OP)
FIELD NUMBER ACCESS FIELD NAME LOCATION
27 Direct Global Read & w/Fileman PRINCIPAL PROCEDURE CODE OP;2
26 Direct Global Read & w/Fileman PRINCIPAL PROCEDURE OP;1 
DSS reads the entire OP node into a local variable. The
field above is used.
SRF(D0,OPMOD,D1,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
28 Direct Global Read & w/Fileman PRIN. PROCEDURE CPT MODIFIER 0;1
SRF(D0,13,D1,MOD,D2,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
4 Direct Global Read & w/Fileman OTHER PROCEDURE CPT MODIFIER 0;1
SRF(D0,CON)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
35 Direct Global Read & w/Fileman 
The CONCURRENT CASE (#35) field was added to this ICR in
support of the FY14 Annual Sustainment patch ECX*3*144.

Access to the CONCURRENT CASE field will not be reliable after a site has
implemented Surgery Quality and Workflow Manager (SQWM), patch SR*3*180. The
handling of concurrent cases is different in SQWM than in VistA Surgery. After
SQWM implementation, concurrent case information must be accessed by other
means yet to be determined as of the date of adding the CONCURRENT CASE field
to this ICR.
CONCURRENT CASE CON;1
SRF(D0,50,D1,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
.213 Direct Global Read & w/Fileman 
The ANES CARE TIME BLOCK multiple was added to this ICR
in support of the DSS FY17 Annual Sustainment Patch ECX*3*161.

The ANES CARE MULTIPLE START TIME and ANES CARE MULTIPLE END TIME fields are
used in calculating the patient's total anesthesia time.
ANES CARE TIME BLOCK 50;0
.01 Direct Global Read & w/Fileman ANES CARE MULTIPLE START TIME 0;1
1 Direct Global Read & w/Fileman ANES CARE MULTIPLE END TIME 0;2
SRF(D0,63,D1,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman 
The ORGANS TO BE TRANSPLANTED multiple was added to this
ICR in support of the DSS FY18 Annual Sustainment Patch ECX*3*166.

The ORGANS TO BE TRANSPLANTED field will be used to identify organs
transplanted during the operation.
ORGANS TO BE TRANSPLANTED 0;1
STATUS Active
DURATION Till Otherwise Agreed
ID SRF(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
DSS - DECISION SUPPORT SYSTEM EXTRACTS Birmingham
INPATIENT MEDICATIONS
RELEASE OF INFORMATION - DSSI 
Added 8/28/24 effective with DSIR*8.2*16 in order to
read patient name field for given patient in the SURGERY (#130) file, field
.01 PATIENT using FILEMAN. I $$GET1^DIQ(130,DSIRCHK_",",.01,"I"
DATE ACTIVATED 2013/10/24