ECXADM ;ALB/JAP,BIR/DMA,CML,PTD-Admissions Extract ;2/14/20 08:46
Source file <ECXADM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; start package specific extract
|
|
| GET | ;gather extract data
|
|
| PAT(ECXDFN,ECXDATE,ECXERR) | ;get patient demographic data
|
|
| PTF | ; get admitting DRG, diagnosis, source of admission from PTF
|
|
| FILE | ;file the 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
|
| FileNo | Call Tags |
|---|---|
| ^DIC(45.1 - [#45.1] | GET1^DIQ |
