Print Page as PDF
DBIA894 ICR (894)

DBIA894    ICR (894)

Name Value
NUMBER 894
IA # 894
FILE NUMBER 63
GLOBAL ROOT LR(
DATE CREATED 1994/05/18
CUSTODIAL PACKAGE LAB SERVICE
CUSTODIAL ISC Dallas
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DBIA894
ORIGINAL NUMBER 894
GENERAL DESCRIPTION 
The Surgery package has written routines to be used
with the Surgical Pathology (SP) portion of the Laboratory package.  When an
SP specimen is accessioned, the Laboratory package will call the above
mentioned Surgery routines.  The Surgery routines will allow the accessioning
person to associate the specimen with a surgical case and transfer certain
information from the SURGERY file (#130) to the LAB DATA file (#63).  The
information (Brief Clinical History, Preoperative Diagnosis, Operative
Findings and Postoperative Diagnosis) will be written to File 63.  This
agreement gives permission to Surgery to write this information to File 63 if
the matching field in File 63 does not already contain data.  Also, this
agreement allows Surgery to read the PARENT FILE field (.02) and the NAME
field (.03) of File 63 to establish the patient identity.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
LR(D0,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
.02 Read w/Fileman 
In determining the identity of the patient, this field is
read to insure this lab record is for a patient in the PATIENT file (#2).
PARENT FILE 0;2
.03 Read w/Fileman 
This field provides the internal entry number of the
patient in File 2.  This IEN is then used in the lookup in the SURGERY file
(#130), so the proper surgical case can be displayed to the accessioning
person for selection of a case.
NAME 0;3
LR(D0,'SP',D1,.2,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
63.08,.013 Both R/W w/Fileman 
The reading is in the form:  I '$O(^LR(D0,'SP',D1,.2,0)).
If the read finds no existing data the write will occur.  The writing is in
the form of a call to %XY^%RCR which moves in the information stored in the
matching word-processing field in File 130.
BRIEF CLINICAL HISTORY .2;0
LR(D0,'SP',D1,.3,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
63.08,.014 Both R/W w/Fileman 
The reading is in the form:  I '$O(^LR(D0,'SP',D1,.3,0)).
If the read finds no existing data, the write will occur.  The writing is in
the form of hard sets from ^UTILITY created by calls to DIWP and containing
information from the matching fields in File 130.  Another hard set updates
the zero node of this word processing field.
PREOPERATIVE DIAGNOSIS .3;0
LR(D0,'SP',D1,.4,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
63.08,.015 Both R/W w/Fileman 
The reading is in the form:  I '$O(^LR(D0,'SP',D1,.4,0)).
If the read finds no existing data, the write will occur.  The writing is in
the form of a call to %XY^%RCR which moves in the information stored in the
matching word-processing field in File 130.
OPERATIVE FINDINGS .4;0
LR(D0,'SP',D1,.5,0)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
63.08,.016 Both R/W w/Fileman 
The reading is in the form:  I '$O(^LR(D0,'SP',D1,.5,0)).
If the read finds no existing data, the write will occur.  The writing is in
the form of hard sets from ^UTILITY created by calls to DIWP and containing
information from the matching fields in File 130.  Another hard set updates
the zero node of this word processing field.
POSTOPERATIVE DIAGNOSIS .5;0
STATUS Active
DURATION Till Otherwise Agreed
ID LR(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
SURGERY Birmingham