DGRTAUPD ;ALB/JAM - Real-time update of address and other contact info ;15 May 2025 10:33 AM
Source file <DGRTAUPD.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | $$CNTY^DGREGAZL CHKEXT^DGRTAUPD1 $$EN^DGRTAUWS $$SITE^VASITE |
| VA FileMan | 2 | NOW^%DTC $$GET1^DIQ |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Master Patient Index VistA | 1 | $$MPINODE^MPIFAPI |
| 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 |
|---|---|---|
| EN(DFN,DGERRS,DGADDGRP1,DGADDGRP2,DGADDGRP3,DGADDGRP4,DGADDGRP5) | ; Entry point for address update for Real-Time updating to ES
; Input: DFN (Required) - Patient DFN ; DGADDGRP1-5 (pass by reference) - Arrays of patient contact data entered by the user (addresses, phone numbers and email) ; corresponding to the five data groups in screen 1.1. ; One or all of these arrays are passed in from screen 1.1 logic or other places where contact data is edited (e.g DG ADDRESS UPDATE). ; (Group 1:Residential address and work/home phone, 2:Mailing address which may contain work/home phone, 3:Temp address and phone, ; 4:Confidential address and phone, 5:Cell/email) ; - Other packages may also call code (using approved ICRs) to edit contact data. ; e.g. ^DGRPU1 provides for external packages to update contact data which will send one of more groups. ; - Format of the group arrays: DGADDGRPn(field_number)=field_value e.g. DGADDGRP1(.1151)="100 MAIN STREET" |
|
| FORMATERR(DGERRS) | ; Format the return error message into user-readable message
; In the error messages returned, the DTOs that have an error are referred to as address[0] or phone[0], phone[1} etc ; This code will translate those names to the user-readable name (eg phone[0] -> Home Phone) |
|
| FILLDTO(DGTYPE,DGINPUT,DGDTO) | ; Move the data from the DGINPUT group array into the return array DGDTO(DGTYPE) array with data for all the fields in the list
; Input: ; DGTYPE - The type of DTO array to be created: Address, Phone, or email ; DGINPUT - pass by reference - array that contains the contact data for each field to be moved to DGDTO ; Returns: ; DGDTO(DGTYPE) - pass by reference - array that will contain the data for DGTYPE fields |
|
| REPLACE(DGX,DGOLD,DGNEW) | ; Function to replace DGOLD with DGNEW in string DGX
|
|
| FIELDS | ; Format: ;;DTO_object_type;;Full_DTO_Name;;fieldname^number^data_type_flag^delete-check_flag;...
|
|
| ISRTAUON() | ; Function to determine if the Real-time address update webservice is active
; Returns: 1 - (TRUE) - the webservice is active ; 0 - (FALSE) - the webservice is not active ; MAS PARAMETERS field 1403 (ENABLE REALTIME ADDRESS UPDATE) is the switch indicating if the service is enabled. |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| ^HL(779.004 - [#779.004] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$REPLACE | FORMATERR+15 |
| FILLDTO | EN+40, EN+48, EN+52, EN+59, EN+73, EN+78, EN+85, EN+93, EN+108, EN+117 , EN+163, EN+167 |
| FORMATERR | EN+200 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+21~, EN+24, REPLACE+1~, REPLACE+3*, REPLACE+4* |
| DFN | EN~, EN+19, EN+172, EN+177, FILLDTO+28 |
| DGADDGRP1 | EN~, EN+37, EN+40, EN+48, EN+52 |
| DGADDGRP2 | EN~, EN+56, EN+59, EN+73, EN+78 |
| DGADDGRP2( | EN+71, EN+76 |
| DGADDGRP3 | EN~, EN+82, EN+85, EN+93 |
| DGADDGRP3( | EN+97 |
| DGADDGRP3("DELETE" | EN+101 |
| DGADDGRP4 | EN~, EN+105, EN+108, EN+117 |
| DGADDGRP4( | EN+148 |
| DGADDGRP4("CCATS" | EN+125, EN+131, EN+134, EN+137, EN+143 |
| DGADDGRP4("DELETE" | EN+152 |
| DGADDGRP5 | EN~, EN+156, EN+163, EN+167 |
| DGADDRESSDTO | EN+21~, EN+40, EN+59, EN+85, EN+108, EN+199 |
| DGADDRESSDTO( | EN+194 |
| DGADDRESSDTO("CONF" | EN+109*, EN+110*, EN+111*, EN+113*, EN+114*, EN+152*, EN+154* |
| DGADDRESSDTO("MAIL" | EN+61, EN+63*, EN+64*, EN+65*, EN+66*, EN+68*, EN+69* |
| DGADDRESSDTO("RES" | EN+41*, EN+42*, EN+43*, EN+45*, EN+46* |
| DGADDRESSDTO("TEMP" | EN+86*, EN+87*, EN+89*, EN+90*, EN+101*, EN+103* |
| DGBAI | EN+21~, EN+61*, EN+62*, EN+63 |
| DGC | REPLACE+1~, REPLACE+2*, REPLACE+4 |
| DGCATID | EN+123~, EN+124*, EN+136*, EN+137*, EN+143 |
| DGCATNAME | EN+123~, EN+131*, EN+132, EN+143*, EN+144 |
| DGCDT | EN+21~, EN+33*, EN+101, EN+152 |
| DGCNT | EN+21~, EN+124*, EN+126*, EN+127, EN+128, EN+129, EN+132, EN+134, EN+138*, EN+139 , EN+140, EN+141, EN+144, EN+145, EN+194*, EN+195*, FORMATERR+3~, FORMATERR+5*, FORMATERR+6, FORMATERR+15 , FILLDTO+7~, FILLDTO+8* |
| DGCNTRY | EN+21~, FILLDTO+36*, FILLDTO+38, FILLDTO+40 |
| DGCNTY | EN+21~, FILLDTO+46*, FILLDTO+47, FILLDTO+49*, FILLDTO+50 |
| DGCONFCATDTO | EN+21~, EN+199 |
| DGCONFCATDTO( | EN+127*, EN+128*, EN+129*, EN+132*, EN+134*, EN+139*, EN+140*, EN+141*, EN+144*, EN+145* |
| DGCONTACTINFODTO | EN+21~, EN+199 |
| DGCONTACTINFODTO("icnOrVpid" | EN+179* |
| DGCONTACTINFODTO("originatingFacilityId" | EN+180* |
| DGDELFLAG | FILLDTO+7~, FILLDTO+21*, FILLDTO+26 |
| DGDTFLAG | FILLDTO+7~, FILLDTO+20*, FILLDTO+24 |
| DGDTO | FILLDTO~ |
| DGDTO( | FILLDTO+16, FILLDTO+28*, FILLDTO+30*, FILLDTO+32, FILLDTO+33, FILLDTO+34*, FILLDTO+36, FILLDTO+40*, FILLDTO+42, FILLDTO+45* , FILLDTO+46, FILLDTO+50*, FILLDTO+52*, FILLDTO+53*, FILLDTO+54* |
| DGDTONAMES | EN+21~ |
| DGDTONAMES( | EN+194, EN+195, FILLDTO+11* |
| DGDTOS | EN+21~ |
| DGDTOS( | FORMATERR+9, FORMATERR+13 |
| DGDTOS("addresses" | EN+194* |
| DGDTOS("phones" | EN+195* |
| DGEMAILDTO | EN+21~, EN+167, EN+199 |
| DGEMAILDTO("EMAIL" | EN+168*, EN+169*, EN+188! |
| DGERRS | EN~, EN+199, EN+200, FORMATERR~ |
| DGERRS( | FORMATERR+5, FORMATERR+6, FORMATERR+15* |
| DGFCNT | FILLDTO+7~, FILLDTO+14*, FILLDTO+16* |
| DGFIELDS | FILLDTO+7~, FILLDTO+13*, FILLDTO+16 |
| DGFLD | FILLDTO+7~, FILLDTO+16*, FILLDTO+18, FILLDTO+19, FILLDTO+20, FILLDTO+21 |
| DGFNAME | FILLDTO+7~, FILLDTO+18*, FILLDTO+32, FILLDTO+33, FILLDTO+34 |
| DGFNUM | FILLDTO+7~, FILLDTO+19*, FILLDTO+22, FILLDTO+28 |
| DGICN | EN+21~, EN+177*, EN+178, EN+179 |
| DGIEN | EN+123~, EN+124*, EN+125*, EN+131, EN+134 |
| DGINPUT | FILLDTO~ |
| DGINPUT( | FILLDTO+22 |
| DGLINE | FORMATERR+3~, FORMATERR+6*, FORMATERR+11, FORMATERR+15, FILLDTO+7~, FILLDTO+8*, FILLDTO+9, FILLDTO+11, FILLDTO+13 |
| DGNAME | FORMATERR+3~, FORMATERR+13*, FORMATERR+15 |
| DGNEW | REPLACE~, REPLACE+2, REPLACE+4 |
| DGOLD | REPLACE~, REPLACE+2, REPLACE+3, REPLACE+4 |
| DGPHONEDTO | EN+21~, EN+48, EN+52, EN+73, EN+78, EN+93, EN+117, EN+163, EN+199 |
| DGPHONEDTO( | EN+195 |
| DGPHONEDTO("CELLPH" | EN+164*, EN+165*, EN+187! |
| DGPHONEDTO("CONFPH" | EN+118*, EN+119*, EN+152!, EN+154*!, EN+186! |
| DGPHONEDTO("HOMEPH" | EN+49*, EN+50*, EN+74*, EN+75*, EN+183! |
| DGPHONEDTO("OFFICEPH" | EN+53*, EN+54*, EN+79*, EN+80*, EN+184! |
| DGPHONEDTO("TEMPPH" | EN+94*, EN+95*, EN+101!, EN+103*!, EN+185! |
| DGST | EN+21~, FILLDTO+42*, FILLDTO+43, FILLDTO+45, FILLDTO+49 |
| DGSTAT | EN+198~, EN+199*, EN+200, EN+201 |
| DGTS | EN+21~, EN+24*, EN+26*, EN+29*, EN+31*, EN+33, EN+127, EN+139, FILLDTO+52 |
| DGTYPE | EN+192~, EN+193*, EN+194*, EN+195*, FORMATERR+3~, FILLDTO~, FILLDTO+9, FILLDTO+11, FILLDTO+16, FILLDTO+28 , FILLDTO+30, FILLDTO+32, FILLDTO+33, FILLDTO+34, FILLDTO+36, FILLDTO+40, FILLDTO+42, FILLDTO+45, FILLDTO+46, FILLDTO+50 , FILLDTO+52, FILLDTO+53, FILLDTO+54 |
| DGUSERNAME | EN+21~, EN+36*, EN+129, EN+141, FILLDTO+54 |
| DGVALUE | FILLDTO+7~, FILLDTO+22*, FILLDTO+24*, FILLDTO+26, FILLDTO+34 |
| DGWSDTO | FORMATERR+3~, FORMATERR+8*, FORMATERR+9*, FORMATERR+11, FORMATERR+13, FORMATERR+15 |
| DGX | REPLACE~, REPLACE+3, REPLACE+4*, REPLACE+5 |
| DUZ | EN+36, EN+128, EN+129, EN+140, EN+141, FILLDTO+53, FILLDTO+54 |
| Name | Field # of Occurrence |
|---|---|
| $T(FIELDS+DGCNT | FILLDTO+8 |
