DGRTAUPD1 ;ALB/JAM - Real-time update of address and other contact info ;15 May 2025 10:33 AM
;;5.3;Registration;**1143**;Aug 13, 1993;Build 36
;
Q
CHKEXT(DFN) ; Check phone number extensions
; For all phone numbers, determine if there is an extension being removed or added to the phone value
; If there is a phoneNumber value being sent, and it doesn't contain an "X", check extension:
; - Check if the phone number value in the DB contains an X, if so, the extension is being removed, send the phone as-is
; - else there is no extension in the DB phone, append extension field value if it exists so it gets sent
N DGEXT
I $G(DGPHONEDTO("HOMEPH","phoneNumber"))'="" I $G(DGPHONEDTO("HOMEPH","phoneNumber"))'["X" D
. I $$GET1^DIQ(2,DFN,.131)["X" Q
. S DGEXT=$$GET1^DIQ(2,DFN,.13211) I DGEXT'="" S DGPHONEDTO("HOMEPH","phoneNumber")=DGPHONEDTO("HOMEPH","phoneNumber")_"X"_DGEXT
;
I $G(DGPHONEDTO("OFFICEPH","phoneNumber"))'="" I $G(DGPHONEDTO("OFFICEPH","phoneNumber"))'["X" D
. I $$GET1^DIQ(2,DFN,.132)["X" Q
. S DGEXT=$$GET1^DIQ(2,DFN,.13213) I DGEXT'="" S DGPHONEDTO("OFFICEPH","phoneNumber")=DGPHONEDTO("OFFICEPH","phoneNumber")_"X"_DGEXT
;
I $G(DGPHONEDTO("CELLPH","phoneNumber"))'="" I $G(DGPHONEDTO("CELLPH","phoneNumber"))'["X" D
. I $$GET1^DIQ(2,DFN,.134)["X" Q
. S DGEXT=$$GET1^DIQ(2,DFN,.13212) I DGEXT'="" S DGPHONEDTO("CELLPH","phoneNumber")=DGPHONEDTO("CELLPH","phoneNumber")_"X"_DGEXT
;
I $G(DGPHONEDTO("TEMPPH","phoneNumber"))'="" I $G(DGPHONEDTO("TEMPPH","phoneNumber"))'["X" D
. I $$GET1^DIQ(2,DFN,.1219)["X" Q
. S DGEXT=$$GET1^DIQ(2,DFN,.12117) I DGEXT'="" S DGPHONEDTO("TEMPPH","phoneNumber")=DGPHONEDTO("TEMPPH","phoneNumber")_"X"_DGEXT
;
I $G(DGPHONEDTO("CONFPH","phoneNumber"))'="" I $G(DGPHONEDTO("CONFPH","phoneNumber"))'["X" D
. I $$GET1^DIQ(2,DFN,.1315)["X" Q
. S DGEXT=$$GET1^DIQ(2,DFN,.13214) I DGEXT'="" S DGPHONEDTO("CONFPH","phoneNumber")=DGPHONEDTO("CONFPH","phoneNumber")_"X"_DGEXT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRTAUPD1 1979 printed May 25, 2026@13:01:58 Page 2
DGRTAUPD1 ;ALB/JAM - Real-time update of address and other contact info ;15 May 2025 10:33 AM
+1 ;;5.3;Registration;**1143**;Aug 13, 1993;Build 36
+2 ;
+3 QUIT
CHKEXT(DFN) ; Check phone number extensions
+1 ; For all phone numbers, determine if there is an extension being removed or added to the phone value
+2 ; If there is a phoneNumber value being sent, and it doesn't contain an "X", check extension:
+3 ; - Check if the phone number value in the DB contains an X, if so, the extension is being removed, send the phone as-is
+4 ; - else there is no extension in the DB phone, append extension field value if it exists so it gets sent
+5 NEW DGEXT
+6 IF $GET(DGPHONEDTO("HOMEPH","phoneNumber"))'=""
IF $GET(DGPHONEDTO("HOMEPH","phoneNumber"))'["X"
Begin DoDot:1
+7 IF $$GET1^DIQ(2,DFN,.131)["X"
QUIT
+8 SET DGEXT=$$GET1^DIQ(2,DFN,.13211)
IF DGEXT'=""
SET DGPHONEDTO("HOMEPH","phoneNumber")=DGPHONEDTO("HOMEPH","phoneNumber")_"X"_DGEXT
End DoDot:1
+9 ;
+10 IF $GET(DGPHONEDTO("OFFICEPH","phoneNumber"))'=""
IF $GET(DGPHONEDTO("OFFICEPH","phoneNumber"))'["X"
Begin DoDot:1
+11 IF $$GET1^DIQ(2,DFN,.132)["X"
QUIT
+12 SET DGEXT=$$GET1^DIQ(2,DFN,.13213)
IF DGEXT'=""
SET DGPHONEDTO("OFFICEPH","phoneNumber")=DGPHONEDTO("OFFICEPH","phoneNumber")_"X"_DGEXT
End DoDot:1
+13 ;
+14 IF $GET(DGPHONEDTO("CELLPH","phoneNumber"))'=""
IF $GET(DGPHONEDTO("CELLPH","phoneNumber"))'["X"
Begin DoDot:1
+15 IF $$GET1^DIQ(2,DFN,.134)["X"
QUIT
+16 SET DGEXT=$$GET1^DIQ(2,DFN,.13212)
IF DGEXT'=""
SET DGPHONEDTO("CELLPH","phoneNumber")=DGPHONEDTO("CELLPH","phoneNumber")_"X"_DGEXT
End DoDot:1
+17 ;
+18 IF $GET(DGPHONEDTO("TEMPPH","phoneNumber"))'=""
IF $GET(DGPHONEDTO("TEMPPH","phoneNumber"))'["X"
Begin DoDot:1
+19 IF $$GET1^DIQ(2,DFN,.1219)["X"
QUIT
+20 SET DGEXT=$$GET1^DIQ(2,DFN,.12117)
IF DGEXT'=""
SET DGPHONEDTO("TEMPPH","phoneNumber")=DGPHONEDTO("TEMPPH","phoneNumber")_"X"_DGEXT
End DoDot:1
+21 ;
+22 IF $GET(DGPHONEDTO("CONFPH","phoneNumber"))'=""
IF $GET(DGPHONEDTO("CONFPH","phoneNumber"))'["X"
Begin DoDot:1
+23 IF $$GET1^DIQ(2,DFN,.1315)["X"
QUIT
+24 SET DGEXT=$$GET1^DIQ(2,DFN,.13214)
IF DGEXT'=""
SET DGPHONEDTO("CONFPH","phoneNumber")=DGPHONEDTO("CONFPH","phoneNumber")_"X"_DGEXT
End DoDot:1
+25 QUIT
