©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGRUADT2 ;ALB/GRR - Logic for editing admit, discharge, or transfer; 7-8-99
Source file <DGRUADT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 6 | ($$MOVETYPE,SETVAR)^DGRUADT BLDMSG^DGRUADT1 UPSTAT^DGRUASIH $$CHKWARD^DGRUUTL ($$FLLTCM,$$GETDIV)^DGRUUTL1 (IN5,INP)^VADPT |
| VA Fileman | 2 | NOW^%DTC $$GET1^DIQ |
| 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 | EDITADT+70, EDITADT+81, EDITADT+94 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EDITADT+88 |
| >> DFN | EDITADT+38, EDITADT+47, EDITADT+49, EDITADT+52, EDITADT+55, EDITADT+57, EDITADT+69, EDITADT+70, EDITADT+72, EDITADT+75 , EDITADT+80, EDITADT+81, EDITADT+83, EDITADT+91, EDITADT+92, EDITADT+94, EDITADT+95, 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 |
| DGASIH | EDITADT+68~*, EDITADT+79~*, EDITADT+90~* |
| DGCTRAN | EDITADT+23~, EDITADT+24*, EDITADT+118*, EDITADT+124* |
| >> DGEVENT | EDITADT+41*, EDITADT+60*, EDITADT+103* |
| DGIEN | EDITADT+70~*, EDITADT+72, EDITADT+81~*, EDITADT+83, EDITADT+93~, EDITADT+94*, EDITADT+95 |
| DGINTEG | EDITADT+23~, EDITADT+27*, EDITADT+108 |
| DGLMT | EDITADT+23~, EDITADT+24*, EDITADT+106*, EDITADT+112*, EDITADT+125, EDITADT+135 |
| DGMOVE | EDITADT+23~, EDITADT+26*, EDITADT+67, EDITADT+73, EDITADT+87 |
| DGNOW | EDITADT+88~*, EDITADT+89 |
| >> DGPM0 | EDITADT+70, EDITADT+81, EDITADT+94, EDITADT+109, EDITADT+110, EDITADT+111, EDITADT+116, EDITADT+139 |
| >> DGPMA | EDITADT+25, EDITADT+26, EDITADT+33, EDITADT+38, EDITADT+43, EDITADT+45, EDITADT+48, EDITADT+49, EDITADT+51, EDITADT+54 , EDITADT+55, EDITADT+57, EDITADT+86, EDITADT+97, EDITADT+100, EDITADT+105, EDITADT+114, EDITADT+115, EDITADT+116, EDITADT+119 , EDITADT+122, EDITADT+127, EDITADT+130, EDITADT+131, EDITADT+134, EDITADT+143, EDITADT+144, EDITADT+146 |
| >> DGPMDA | EDITADT+38, EDITADT+47, EDITADT+49, EDITADT+52, EDITADT+55, EDITADT+57, EDITADT+69, 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 |
| >> DGPMP | EDITADT+43, EDITADT+45, EDITADT+46, EDITADT+47, EDITADT+51, EDITADT+52, EDITADT+54, EDITADT+86, EDITADT+89, EDITADT+97 , EDITADT+107, EDITADT+111, EDITADT+114, EDITADT+115, EDITADT+117, EDITADT+118, EDITADT+121, EDITADT+126, EDITADT+129, EDITADT+131 , EDITADT+134, EDITADT+136, EDITADT+138, EDITADT+139, EDITADT+143 |
| >> DGPMVI(18 | EDITADT+35 |
| >> DGPMVI(5 | EDITADT+36, EDITADT+38 |
| >> DGPMVI(7 | EDITADT+35 |
| DGRU | EDITADT+63~ |
| DGRU(17 | EDITADT+67, EDITADT+69, EDITADT+77*, EDITADT+78, EDITADT+80, EDITADT+96, EDITADT+97, EDITADT+99, EDITADT+100 |
| DGSTAT | EDITADT+71~*, EDITADT+72, EDITADT+82~*, EDITADT+83, EDITADT+93~*, EDITADT+95 |
| DGTIEN | EDITADT+61~, EDITADT+74~, EDITADT+75*, EDITADT+76, EDITADT+77, EDITADT+80, EDITADT+91~*, EDITADT+92 |
| >> DGTRACE | EDITADT+37, EDITADT+42, EDITADT+62, EDITADT+104 |
| >> DGTYPE | EDITADT+31, EDITADT+41, EDITADT+60, EDITADT+103 |
| VAIN | EDITADT+32~ |
| VAIN(11 | EDITADT+35 |
| VAIN(2 | EDITADT+35 |
| VAINDT | EDITADT+32~, EDITADT+33* |
| >> VAIP("D" | EDITADT+64* |
| VAROOT | EDITADT+63~, EDITADT+64*, EDITADT+66! |