DGRTAUPD ;ALB/JAM - Real-time update of address and other contact info ;15 May 2025 10:33 AM
Source file <DGRTAUPD.m>
| 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 |
