DGRUADT2 ;ALB/GRR - Logic for editing admit, discharge, or transfer; 7-8-99
Source file <DGRUADT2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EDITADT | ; Entry point for generating HL7 ADT messages to the COTS system
; whenever an existing patient movement is edited. Multiple messages ; may be created and sent to the vendor. ; Input: ; DGPMP - 0 node of the primary movement BEFORE the ADT action ; DGPMA - 0 node of the primary movement AFTER the ADT action ; DFN - Ien of the patient in the PATIENT File (#2) ; DGPMDA - Ien of the movement ; DGPPMDA - Ien of prior movement ; DGQUIET - Flag to suppress read/writes if set ; DGADT - Data array for processing ADT events ; DGTRACE - Debugging parameter ; DGPDIV - Division for prior Ward ; DGCDIV - Division for current Ward ; DGINTEG - Integration Database flag ; 0 - Not Integrated Site ; 1 - Integrated, Single Database ; 2 - Integrated, Multiple Databases ; DGLMT - Last Movement flag ; 1 - Created multiple HL7 transactions ; DGCTRAN - 1 - Changing Transfer data, must move ; prior location to current location |
|
EXIT |
Name | Field # of Occurrence |
---|---|
NOW^%DTC | EDITADT+88 |
$$MOVETYPE^DGRUADT | EDITADT+26 |
SETVAR^DGRUADT | EDITADT+25 |
BLDMSG^DGRUADT1 | EDITADT+38, EDITADT+47, EDITADT+49, EDITADT+52, EDITADT+55, EDITADT+57, EDITADT+69, EDITADT+80, EDITADT+92, EDITADT+97 , EDITADT+100, EDITADT+117, EDITADT+118, EDITADT+119, EDITADT+121, EDITADT+122, EDITADT+126, EDITADT+127, EDITADT+129, EDITADT+130 , EDITADT+131, EDITADT+136, EDITADT+138, EDITADT+139, EDITADT+144, EDITADT+146 |
UPSTAT^DGRUASIH | EDITADT+72, EDITADT+83, EDITADT+95 |
$$CHKWARD^DGRUUTL | EDITADT+36, EDITADT+43, EDITADT+46, EDITADT+48, EDITADT+67, EDITADT+78, EDITADT+96, EDITADT+99, EDITADT+105, EDITADT+107 , EDITADT+110 |
$$FLLTCM^DGRUUTL1 | EDITADT+75, EDITADT+91 |
$$GETDIV^DGRUUTL1 | EDITADT+111, EDITADT+115, EDITADT+116 |
$$GET1^DIQ | EDITADT+27 |
IN5^VADPT | EDITADT+65 |
INP^VADPT | EDITADT+34 |
FileNo | Call Tags |
---|---|
^DG(43 - [#43] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | EDITADT+77, EDITADT+92 |
^DGRU(46.14 - [#46.14] | EDITADT+70, EDITADT+81, EDITADT+94 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |