ECXLBB ;DALOI/KML - DSS BLOOD BANK EXTRACT ;4/16/13 16:03
Source file <ECXLBB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; Entry point from tasked job
; begin package specific extract |
|
| AUDRPT | ; entry point for pre-extract audit report
|
|
| UNITMODS() | ; Get modification criteria from fields #.06 and #3 from file #66
|
|
| MODIFIED() | ; Was unit modified
; Init variables |
|
| GETRPRV | ; get requesting provider, requesting provider person class and
; production division code ; input: ECD =INVERTED DATE SUBSCRIPT ; ECARRY(1)=TRANSFUSION DATE AND TIME ; note: Accessioned data in file #68 is stored up to 90 days. |
|
| AREA() | ; resolve accession area's ien to use and validate
; Accession number ; Patient LRDFN ; note: if there is only one accession area use '29' |
|
| GETDATA | ; gather rest of extract data that will be recorded in an
; entry in file 727.829 |
|
| GETDFN(ECXLRDFN) | ;
; INPUT - LRDFN ; OUTPUT - DFN ; Obtains DFN (Patient ID) from LRDFN (Lab Patient ID). ; If no valid DFN exists, 0 is returned. |
|
| PAT(ECXDFN) | ;get/set patient data
; INPUT - ECXDFN = patient ien (DFN) ; OUTPUT - ECPAT array: ; ECPAT("SSN") ; ECPAT("NAME") ; returns 0 or 1 in ECXERR - 0=successful ; 1=error condition |
|
| FILE(ECODE) | ;
; Input - ECODE = extract record |
|
| SETUP | ;Set required input for ECXTRAC.
|
|
| LOCAL | ; to extract nightly for local use not to be transmitted to TSI
; should be queued with a 1D frequency |
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
