DG53E451.m

DG53E451 ;BRM - Patch DG*5.3*451 Install Utility Routine #2 ; 4/14/04 8:16am

 ;;5.3;Registration;**451,1015**; Aug 13,1993;Build 21

 ;

 Q

 ;

EDITINC ; edit a few entries to the INCONSISTENT DATA ELEMENTS file (#38.6)

 N DGK,DGWP,ROOT,DGFDA,DGWP,DGIEN,DGERR,DGTITL

 D BMES^XPDUTL("  >> Editing entries 37-40 in the INCONSISTENT DATA ELEMENTS file (#38.6)")

 F DGK=37:1:40  D

 .K DGFDA,ROOT,DGWP

 .S ROOT="DGFDA(38.6,"""_DGK_","")"

 .D @DGK Q:'$D(DGFDA)

 .S DGIEN(1)=DGK

 .S DGTITL=@ROOT@(.01)

 .D UPDATE^DIE("E","DGFDA","DGIEN","DGERR")

 .I $D(DGERR) D BMES^XPDUTL("   >>> ERROR! "_DGTITL_" could not be edited in file #38.6"),MES^XPDUTL(DGERR("DIERR",1)_": "_DGERR("DIERR",1,"TEXT",1)) Q

 .D BMES^XPDUTL("      "_DGTITL_" successfully edited.")

 Q

37 ;

 S @ROOT@(.01)="POW DATA MISSING OR INCOMPLETE"

 S @ROOT@(2)="PRISONER OF WAR STATUS INDICATED, RELATED DATA MISSING OR INCOMPLETE"

 S @ROOT@(3)=3

 S @ROOT@(50)="DGWP"

 S DGWP(1,0)="Inconsistency results when the user responds YES to the WERE YOU A"

 S DGWP(2,0)="PRISONER OF WAR prompt and any (or all) of the following prompts are"

 S DGWP(3,0)="left unanswered:  POW WAR, POW FROM DATE, POW TO DATE. This inconsistency "

 S DGWP(4,0)="also results when an imprecise date (without at least month and year "

 S DGWP(5,0)="precision) is entered."

 Q

38 ;

 S @ROOT@(.01)="POW DATES INCONSISTENT"

 S @ROOT@(2)="'PRISONER OF WAR' STATUS INDICATED, TO DATE PRECEDES FROM DATE"

 S @ROOT@(3)=3

 S @ROOT@(50)="DGWP"

 S DGWP(1,0)="Inconsistency results when the user responds YES to the WERE YOU A"

 S DGWP(2,0)="A PRISONER OF WAR prompt and the 'from' date does not precede the 'to'"

 S DGWP(3,0)="date."

 Q

39 ;

 S @ROOT@(.01)="COMBAT DATA MISSING/INCOMPLETE"

 S @ROOT@(2)="COMBAT SERVICE INDICATED, RELATED DATA MISSING OR INCOMPLETE"

 S @ROOT@(3)=3

 S @ROOT@(50)="DGWP"

 S DGWP(1,0)="Inconsistency results when the user responds YES to the IN COMBAT (Y/N)"

 S DGWP(2,0)="and any (or all) of the following prompts are left unanswered:  COMBAT"

 S DGWP(3,0)="WHERE, COMBAT FROM DATE, COMBAT TO DATE.  This inconsistency also results"

 S DGWP(4,0)="when an imprecise date (without at least month and year precision) is"

 S DGWP(5,0)="entered."

 Q

40 ;

 S @ROOT@(.01)="COMBAT DATES INCONSISTENT"

 S @ROOT@(2)="COMBAT SERVICE INDICATED, TO DATE PRECEDES FROM DATE"

 S @ROOT@(3)=3

 S @ROOT@(50)="DGWP"

 S DGWP(1,0)="Inconsistency results when the COMBAT (Y/N) prompt is answered YES"

 S DGWP(2,0)="but the 'to' date precedes the 'from' date of service."

 Q

DG53E451  ;BRM - Patch DG*5.3*451 Install Utility Routine #2 ; 4/14/04 8:16am

 +1       ;;5.3;Registration;**451,1015**; Aug 13,1993;Build 21

 +2       ;

 +3        QUIT 

 +4       ;

EDITINC   ; edit a few entries to the INCONSISTENT DATA ELEMENTS file (#38.6)

 +1        NEW DGK,DGWP,ROOT,DGFDA,DGWP,DGIEN,DGERR,DGTITL

 +2        DO BMES^XPDUTL("  >> Editing entries 37-40 in the INCONSISTENT DATA ELEMENTS file (#38.6)")

 +3        FOR DGK=37:1:40

               Begin DoDot:1

 +4                KILL DGFDA,ROOT,DGWP

 +5                SET ROOT="DGFDA(38.6,"""_DGK_","")"

 +6                DO @DGK

                   IF '$DATA(DGFDA)

                       QUIT 

 +7                SET DGIEN(1)=DGK

 +8                SET DGTITL=@ROOT@(.01)

 +9                DO UPDATE^DIE("E","DGFDA","DGIEN","DGERR")

 +10               IF $DATA(DGERR)

                       DO BMES^XPDUTL("   >>> ERROR! "_DGTITL_" could not be edited in file #38.6")

                       DO MES^XPDUTL(DGERR("DIERR",1)_": "_DGERR("DIERR",1,"TEXT",1))

                       QUIT 

 +11               DO BMES^XPDUTL("      "_DGTITL_" successfully edited.")

               End DoDot:1

 +12       QUIT 

37        ;

 +1        SET @ROOT@(.01)="POW DATA MISSING OR INCOMPLETE"

 +2        SET @ROOT@(2)="PRISONER OF WAR STATUS INDICATED, RELATED DATA MISSING OR INCOMPLETE"

 +3        SET @ROOT@(3)=3

 +4        SET @ROOT@(50)="DGWP"

 +5        SET DGWP(1,0)="Inconsistency results when the user responds YES to the WERE YOU A"

 +6        SET DGWP(2,0)="PRISONER OF WAR prompt and any (or all) of the following prompts are"

 +7        SET DGWP(3,0)="left unanswered:  POW WAR, POW FROM DATE, POW TO DATE. This inconsistency "

 +8        SET DGWP(4,0)="also results when an imprecise date (without at least month and year "

 +9        SET DGWP(5,0)="precision) is entered."

 +10       QUIT 

38        ;

 +1        SET @ROOT@(.01)="POW DATES INCONSISTENT"

 +2        SET @ROOT@(2)="'PRISONER OF WAR' STATUS INDICATED, TO DATE PRECEDES FROM DATE"

 +3        SET @ROOT@(3)=3

 +4        SET @ROOT@(50)="DGWP"

 +5        SET DGWP(1,0)="Inconsistency results when the user responds YES to the WERE YOU A"

 +6        SET DGWP(2,0)="A PRISONER OF WAR prompt and the 'from' date does not precede the 'to'"

 +7        SET DGWP(3,0)="date."

 +8        QUIT 

39        ;

 +1        SET @ROOT@(.01)="COMBAT DATA MISSING/INCOMPLETE"

 +2        SET @ROOT@(2)="COMBAT SERVICE INDICATED, RELATED DATA MISSING OR INCOMPLETE"

 +3        SET @ROOT@(3)=3

 +4        SET @ROOT@(50)="DGWP"

 +5        SET DGWP(1,0)="Inconsistency results when the user responds YES to the IN COMBAT (Y/N)"

 +6        SET DGWP(2,0)="and any (or all) of the following prompts are left unanswered:  COMBAT"

 +7        SET DGWP(3,0)="WHERE, COMBAT FROM DATE, COMBAT TO DATE.  This inconsistency also results"

 +8        SET DGWP(4,0)="when an imprecise date (without at least month and year precision) is"

 +9        SET DGWP(5,0)="entered."

 +10       QUIT 

40        ;

 +1        SET @ROOT@(.01)="COMBAT DATES INCONSISTENT"

 +2        SET @ROOT@(2)="COMBAT SERVICE INDICATED, TO DATE PRECEDES FROM DATE"

 +3        SET @ROOT@(3)=3

 +4        SET @ROOT@(50)="DGWP"

 +5        SET DGWP(1,0)="Inconsistency results when the COMBAT (Y/N) prompt is answered YES"

 +6        SET DGWP(2,0)="but the 'to' date precedes the 'from' date of service."

 +7        QUIT