Print Page as PDF
DBIA1240 ICR (1240)

DBIA1240    ICR (1240)

Name Value
NUMBER 1240
IA # 1240
DATE CREATED 1995/05/26
CUSTODIAL PACKAGE PCE PATIENT CARE ENCOUNTER
CUSTODIAL ISC Salt Lake City
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PXRHS04
NAME DBIA1240
GENERAL DESCRIPTION
The Health Summary Package desires to set up an
integration agreement with the PCE Package to call the entry point
SKIN^PXRHS04 to retrieve skin test data. Input data will be done via parameter
passing and output data will be placed in the ^TMP global in the specified
format that is described in this agreement.

Entry point: SKIN(DFN)

INPUT  : DFN      - Pointer to PATIENT file (#2)

OUTPUT :   Data from V SKIN TEST (9000010.12) file
^TMP("PXS,$J,SKIN,InvDt,IFN,0) = SKIN TEST [E;.01]
^ EVENT DATE/TIME or VISIT/ADMIT DATE&TIME [I;1201 or .03]
^ RESULTS CODE [I;.04] ^ RESULTS [E;.04] ^ READING [E;.05]
^ DATE READ [I;.06] ^ ORDERING PROVIDER [E;1202]
^ CLINIC [3;1203] ^ ENCOUNTER PROVIDER [E;1204]
^TMP("PXS",$J,SKIN,InvDt,IFN,1) = ^ HOSPITAL LOCATION [E;1205]
^ HOSP. LOC. ABBREVIATION [ E;44;1]
^ LOC OF ENCOUNTER [E;9000010;.06]  ^ OUTSIDE LOC [E;9000010;2101]
^TMP("PXS",$J,SKIN,InvDt,IFN,"S") = DATA SOURCE [E;80102]

[] = [I(nternal)/E(xternal); Optional file #; Record #]
Subscripts:
SKIN  - Skin Test name
InvDt - Inverse FileMan date of DATE OF event or visit
IFN   - Internal Record #
******
STATUS Active
DURATION Till Otherwise Agreed
ID PXRHS04
COMPONENT/ENTRY POINT SKIN
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
HEALTH SUMMARY Salt Lake City
CLINICAL PROCEDURES
MAIL MESSAGE 15675649