©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
DGRUADT ;ALB/SCK - MAIN DRIVER FOR RAI/MDS ADT MESSAGING; 7-8-99 ; 29 Aug 2006 9:07 AM
Source file <DGRUADT.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 8 | (CN40,MV1238,MV4,MV40,MV41)^DGRUADT0 BLDMSG^DGRUADT1 EDITADT^DGRUADT2 (DELASIH,UPSTAT)^DGRUASIH $$CHKWARD^DGRUUTL $$GETDIV^DGRUUTL1 (IN5,INP)^VADPT $$SEND^VAFHUTL |
| Health Level Seven | 1 | KILL^HLTRANS |
| Kernel | 1 | ^%ZTLOAD |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MOVETYPE(NODE) | ;
|
|
| EN | ; Main entry point for generating an HL7 ADT message to the COTS system
; The message builder is tasked off to taskManager to build and transmit ; the ADT message 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 ; 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 ; DGPMVI - Array where results from call to IN5^VADPT returned |
|
| INIT | ;
|
|
| EXIT | ;
|
|
| EVENT | ;
|
|
| SETVAR(NODE) | ;
|
|
| EVENTQ |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | EN+36 |
| CN40^DGRUADT0 | EVENT+82 |
| MV1238^DGRUADT0 | EVENT+42 |
| MV4^DGRUADT0 | EVENT+67 |
| MV40^DGRUADT0 | EVENT+53 |
| MV41^DGRUADT0 | EVENT+35, EVENT+56 |
| BLDMSG^DGRUADT1 | EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+105, EVENT+111, EVENT+136, EVENT+137 , EVENT+139, EVENT+143, EVENT+146 |
| EDITADT^DGRUADT2 | EVENT+71 |
| DELASIH^DGRUASIH | EVENT+140 |
| UPSTAT^DGRUASIH | EVENT+108 |
| $$CHKWARD^DGRUUTL | EVENT+19, EVENT+26, EVENT+44, EVENT+59, EVENT+64, EVENT+83, EVENT+100, EVENT+110, EVENT+134, EVENT+142 , EVENT+145 |
| $$GETDIV^DGRUUTL1 | EVENT+125, EVENT+128 |
| $$GET1^DIQ | EVENT+99, EVENT+131 |
| KILL^HLTRANS | EXIT+2 |
| IN5^VADPT | EVENT+39, EVENT+91, EVENT+119 |
| INP^VADPT | EVENT+17 |
| $$SEND^VAFHUTL | EN+22 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM("APRD" | EVENT+97, EVENT+98 |
| ^DGPM("APTT3" | EVENT+101 |
| ^DGRU(46.14 | EVENT+107 |
| ^TMP("DGRUADT1" | EN+28 |
| ^TMP("HLS" | EXIT+3! |
| ^UTILITY("DGPM" | EN+24 |
| Name | Line Occurrences |
|---|---|
| $$MOVETYPE | EVENT+32, EVENT+50, EVENT+76 |
| EVENT | INIT+1 |
| EVENTQ | EVENT+9, EVENT+71, EVENT+74 |
| EXIT | EN+29, INIT+1 |
| INIT | EN+30 |
| SETVAR | EVENT+10, EVENT+75 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | EVENT+21, EVENT+27, EVENT+35, EVENT+42, EVENT+45, EVENT+53, EVENT+56, EVENT+60, EVENT+65, EVENT+67 , EVENT+82, EVENT+85, EVENT+97, EVENT+98, EVENT+101, EVENT+105, EVENT+107, EVENT+108, EVENT+111, EVENT+136 , EVENT+137, EVENT+139, EVENT+140, EVENT+143, EVENT+146 |
| DGADMSN | EVENT+1~, SETVAR+1* |
| DGASIH | EVENT+42~, EVENT+94~, EVENT+104* |
| >> DGCDIV | EVENT+128*, EVENT+135 |
| DGEVENT | EVENT+1~, EVENT+24*, EVENT+30*, EVENT+48*, EVENT+79*, EVENT+88*, EVENT+114* |
| DGIEN | EVENT+106~, EVENT+107*, EVENT+108 |
| >> DGINTEG | EVENT+131*, EVENT+135 |
| DGLDDAT | EVENT+101~*, EVENT+102, EVENT+103! |
| DGMOVE | EVENT+1~, EVENT+32*, EVENT+35, EVENT+50*, EVENT+53, EVENT+56, EVENT+58, EVENT+63, EVENT+67, EVENT+76* , EVENT+82, EVENT+140 |
| >> DGNOW | EVENT+102 |
| DGOIEN | EVENT+95~, EVENT+98*, EVENT+99, EVENT+105 |
| DGOMDT | EVENT+95~, EVENT+96*, EVENT+97*, EVENT+98 |
| DGOWARD | EVENT+95~, EVENT+99*, EVENT+100, EVENT+105 |
| >> DGPDIV | EVENT+125*, EVENT+135 |
| >> DGPMA | EVENT+4, EVENT+9, EVENT+10, EVENT+16, EVENT+21, EVENT+26, EVENT+27, EVENT+32, EVENT+45, EVENT+50 , EVENT+59, EVENT+60, EVENT+64, EVENT+65, EVENT+67, EVENT+71, EVENT+74 |
| >> DGPMAN | EVENT+42, EVENT+94, EVENT+96, EVENT+102, EVENT+107 |
| >> DGPMDA | EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+111, EVENT+136, EVENT+137, EVENT+139 , EVENT+143, EVENT+146 |
| >> DGPMP | EVENT+4, EVENT+9, EVENT+71, EVENT+74, EVENT+75, EVENT+76, EVENT+83, EVENT+85, EVENT+105, EVENT+111 , EVENT+117, EVENT+136, EVENT+137, EVENT+139, EVENT+143, EVENT+146 |
| >> DGPMVI(5 | EVENT+19, EVENT+21 |
| >> DGQUIET | EN+26 |
| DGSTAT | EVENT+106~*, EVENT+108 |
| DGTRACE | EN+19~, EN+28*, EN+29, EVENT+20, EVENT+25, EVENT+31, EVENT+49, EVENT+80, EVENT+89, EVENT+115 |
| DGTYPE | EVENT+1~, EVENT+14, EVENT+24, EVENT+30, EVENT+48, EVENT+79, EVENT+88, EVENT+114, SETVAR+1* |
| DGWARD | EVENT+93~*, EVENT+109*, EVENT+110, EVENT+111 |
| DGWARDA | EVENT+116~, EVENT+120*, EVENT+121, EVENT+128, EVENT+134, EVENT+137, EVENT+142, EVENT+145 |
| DGWARDP | EVENT+116~, EVENT+117*, EVENT+121, EVENT+125, EVENT+134, EVENT+136, EVENT+139, EVENT+142, EVENT+143, EVENT+145 , EVENT+146 |
| NODE | SETVAR~, SETVAR+1, MOVETYPE~, MOVETYPE+2 |
| TYPE | MOVETYPE+1~, MOVETYPE+2*, MOVETYPE+3 |
| VAFH | EN+19~, EN+24* |
| VAFHDT | EVENT+1~, EVENT+140, SETVAR+1* |
| VAIN | EVENT+15~ |
| VAINDT | EVENT+15~, EVENT+16* |
| VAIP | EVENT+1~, EVENT+38~, EVENT+116~, EVENT+118~ |
| VAIP("D" | EVENT+38*, EVENT+90*, EVENT+118* |
| VAIP("M" | EVENT+90*, EVENT+118* |
| VAIP(14 | EVENT+93 |
| VAIP(17 | EVENT+44, EVENT+45 |
| VAIP(5 | EVENT+109, EVENT+120 |
| X | EN+32~, EN+34* |
| ZTDESC | EN+32~, EN+33* |
| ZTDTH | EN+32~, EN+35* |
| ZTIO | EN+32~, EN+35* |
| ZTQUEUED | EN+32~, EXIT+1 |
| ZTREQ | EN+32~, EXIT+1* |
| ZTRTN | EN+32~, EN+33* |
| ZTSAVE | EN+32~ |
| ZTSAVE( | EN+34* |