DG531122 ;ALB/RFS - REPLACE VERBIAGE IN THE DIALOG(#.84) FILE ; 05/09/2024
;;5.3;Registration;**1122**;Aug 13, 1993;Build 4
;
;
Q
;
EN ; ENTRY POINT
N DGDA,DGTEXT
F DGDA=0:0 S DGDA=+$O(^DI(.84,DGDA)) Q:DGDA=0 S DGTEXT=$P(^DI(.84,DGDA,0),U,5) D
.I DGTEXT="Copays for an Indian message" D
..S DIE="^DI(.84,",DA=DGDA,DR="1.3///Copay AI/AN Veteran;4///Patient is verified American Indian/Alaska Native Veteran copayment exempt. Billing of copayments may be prohibited"
..D ^DIE
..K DIE,DA,DR
..D BMES^XPDUTL("Verbiage for dialog number "_DGDA_" in the DIALOG(#.84) file has been updated.")
..Q
.I DGTEXT="Indian copay message with date" D
..S DIE="^DI(.84,",DA=DGDA,DR="1.3///Copay AI/AN Veteran message with date;4///Patient is verified American Indian/Alaska Native Veteran copayment exempt. Billing of copayments may be prohibited eff. Jan 05, 2022"
..D ^DIE
..K DIE,DA,DR
..D BMES^XPDUTL("Verbiage for dialog number "_DGDA_" in the DIALOG(#.84) file has been updated.")
..Q
.Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531122 1028 printed Oct 16, 2024@18:36:44 Page 2
DG531122 ;ALB/RFS - REPLACE VERBIAGE IN THE DIALOG(#.84) FILE ; 05/09/2024
+1 ;;5.3;Registration;**1122**;Aug 13, 1993;Build 4
+2 ;
+3 ;
+4 QUIT
+5 ;
EN ; ENTRY POINT
+1 NEW DGDA,DGTEXT
+2 FOR DGDA=0:0
SET DGDA=+$ORDER(^DI(.84,DGDA))
if DGDA=0
QUIT
SET DGTEXT=$PIECE(^DI(.84,DGDA,0),U,5)
Begin DoDot:1
+3 IF DGTEXT="Copays for an Indian message"
Begin DoDot:2
+4 SET DIE="^DI(.84,"
SET DA=DGDA
SET DR="1.3///Copay AI/AN Veteran;4///Patient is verified American Indian/Alaska Native Veteran copayment exempt. Billing of copayments may be prohibited"
+5 DO ^DIE
+6 KILL DIE,DA,DR
+7 DO BMES^XPDUTL("Verbiage for dialog number "_DGDA_" in the DIALOG(#.84) file has been updated.")
+8 QUIT
End DoDot:2
+9 IF DGTEXT="Indian copay message with date"
Begin DoDot:2
+10 SET DIE="^DI(.84,"
SET DA=DGDA
SET DR="1.3///Copay AI/AN Veteran message with date;4///Patient is verified American Indian/Alaska Native Veteran copayment exempt. Billing of copayments may be prohibited eff. Jan 05, 2022"
+11 DO ^DIE
+12 KILL DIE,DA,DR
+13 DO BMES^XPDUTL("Verbiage for dialog number "_DGDA_" in the DIALOG(#.84) file has been updated.")
+14 QUIT
End DoDot:2
+15 QUIT
End DoDot:1
+16 QUIT
+17 ;
