ECXMOV ;ALB/JAP,BIR/DMA,PTD-Transfer and Discharge Extract ;Mar 03, 2023@17:01:12
Source file <ECXMOV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; start package specific extract
|
|
| GET | ;170 Moved record creation to be under "GET"
|
|
| FILE | ;file the extract record
|
|
| SETUP | ;Set required input for ECXTRAC
|
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
|
| MAIL(ECXDA) | ;
; Created to send a message pointing to a bad record ECX*128 ; Input - ECXDA is the PATIENT MOVEMENT (#405) record number for the discharge that has no admission ; associated with it. ECX*128 |
|
| DISASIH | ;170 Section added to create a discharge ASIH other facility record
|
|
| CLEAN | ;173 Retain the six most recent sets of entries for ASIH review
|
|
| SETTMP(ERRMSG,ECDA,ECDATE,DFN,SSN) | ;187 Set TMP global for MM messages
|
|
| SENDMSG | ; Added for patch 187. SEND MM messages
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGPM - [#405] | FIELD^DID, GET1^DIQ |
| ^DIC(42.4 - [#42.4] | GET1^DIQ |
