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 |
