Print Page as PDF
DBIA1247 ICR (1247)

DBIA1247    ICR (1247)

Name Value
NUMBER 1247
IA # 1247
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 PXRHS12
NAME DBIA1247
GENERAL DESCRIPTION
The Health Summary Package desires to set up an
integration agreement with the PCE Package to call the entry point
VISIT^PXRHS12 to retrieve Hospitalization Visit, ICD-9, CPT, and Provider
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: VISIT(DFN,ENDDT,BEGDT,OCCLIM)

INPUT  : DFN      - Pointer to PATIENT file (#2)
ENDDT    - Ending date/time in internal FileMan format
- Defaults to today's date at 11:59 pm
BEGDT    - Beginning date/time in internal FileMan format
- Defaults to one year prior to today's date
OCCLIM   - Maximum number of visits returned OUTPUT :
Data from VISIT (9000010) file except for hosp. loc. abbr.
^TMP("PXHSV",$J,InvExDt,COUNT,0) = VISIT/ADMIT DATE&TIME [I;.01]
^ TYPE [E;.03] ^ LOC. OF ENCOUNTER [E;.06]
^ SERVICE CATEGORY [E;.07] ^ CHECK OUT DATE&TIME [I;.18]
^ HOSPITAL LOCATION [E;.22] ^ HOSP. LOC. ABBREVIATION [E;44;1]
^ OUTSIDE LOCATION [E;2101] ^ CLINIC [E;.08]
^ WALK IN/APPT [E;.16] ^ LEVEL OF SERVICE [E;.17]
^ ELIGIBILITY [E;.21]
Data from V CPT (9000010.18) file
^TMP("PXHSV",$J,InvExDt,COUNT,"C",X) = CPT [I;.01]
^ PROVIDER NARRATIVE [E;.04]
^TMP("PXHSV",$J,InvExDt,COUNT,"C",X,MODIFIER [E;1/.01]) = ""
Data from V POV (9000010.07) file
^TMP("PXHSV",$J,InvExDt,COUNT,"D",X) = POV [I;.01]
^ MODIFIER [E;.06] ^ CAUSE OF DX [E;.07]
^ PLACE OF ACCIDENT [E;.11] ^ PRIMARY/SECONDARY [E;.12]
^TMP("PXHSV",$J,InvExDt,COUNT,"D",X,"N") = PROVIDER NARRATIVE [E;.04]
Data from V PROVIDER (9000010.06) file
^TMP("PXHSV",$J,InvExDt,COUNT,"P",X) = PROVIDER [E;.01]
^ PRIMARY/SECONDARY [E;.04]
Data from V HOSPITALIZATION (9000010.02) file (If Service Category
is for hospitalization)
^TMP("PXHSV",$J,InvExDt,COUNT,"H",X) = DATE OF DISCHARGE [I;.01]
^ ADMITTING DX [E;.12]

[] = [I(nternal)/E(xternal); Optional file #; Record #]
Subscripts:
InvExDt - Inverse FileMan date of DATE OF visit [.01]
Count   - # of entry
STATUS Active
DURATION Till Otherwise Agreed
ID PXRHS12
COMPONENT/ENTRY POINT VISIT
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
HEALTH SUMMARY Salt Lake City
LAB SERVICE Dallas
MAIL MESSAGE 15675715