DG53653W.m

DG53653W ;TDM - Patch DG*5.3*653 Install Utility Routine ; 10/24/05 9:28am

 ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 ; Called from DG53653U

 Q

 ;

401 S @ROOT@(.01)="RATED INCOMPETENT INVALID"

 S @ROOT@(2)="RATED INCOMPETENT MUST BE EITHER YES, NO, OR UNKNOWN/NULL"

 S DGWP(1,0)="If completed, the value of Rated Incompetent must be either yes,"

 S DGWP(2,0)="no, or unknown."

 Q

 ;

402 S @ROOT@(.01)="ELIGIBLE FOR MEDICAID INVALID"

 S @ROOT@(2)="ELIGIBLE FOR MEDICAID MUST BE EITHER YES, NO, OR NULL"

 S DGWP(1,0)="If completed, the value of Eligible For Medicaid must be either"

 S DGWP(2,0)="yes or no."

 Q

 ;

403 S @ROOT@(.01)="DT MEDICAID LAST ASKED INVALID"

 S @ROOT@(2)="ELIGIBLE FOR MEDICAID IS YES AND DATE MEDICAID LAST ASKED IS MISSING"

 S DGWP(1,0)="The value of 'Eligible for Medicaid' is Yes, but the Date Medicaid"

 S DGWP(2,0)="Last Asked value is null."

 Q

 ;

404 Q  ;Same as #15?

 S @ROOT@(.01)="INELIGIBLE REASON INVALID"

 S @ROOT@(2)="INELIGIBLE DATE IS PRESENT AND THE INELIGIBLE REASON IS MISSING"

 S DGWP(1,0)="There is an Ineligible Date present, but the Ineligible Reason"

 S DGWP(2,0)="is missing."

 Q

 ;;

405 Q  ;Same as #19?

 S @ROOT@(.01)="NON VETERAN ELIG CODE INVALID"

 S @ROOT@(2)="ELIGIBILITY CODE FOR NON-VETERAN IS NOT A VALID VALUE"

 S DGWP(1,0)="The value of Eligibility Code is completed, but it does not match"

 S DGWP(2,0)="one of the non-veteran values."

 Q

 ;

406 S @ROOT@(.01)="CLAIM FOLDER NUMBER INVALID"

 S @ROOT@(2)="CLAIM FOLDER NUM MUST BE 7 TO 8 DIGITS. IF 9 DIGITS THEN MUST BE SSN"

 S DGWP(1,0)="Claim Folder Number must consist of 7 or 8, or 9 numbers if SSN."

 Q

 ;

407 S @ROOT@(.01)="ELIGIBILITY STATUS INVALID"

 S @ROOT@(2)="THE VALUE ENTERED FOR ELIGIBILITY STATUS MUST BE P, R, V OR NULL"

 S DGWP(1,0)="The value of Eligibility Status is completed, but it does not match"

 S DGWP(2,0)="one of the values."

 Q

 ;

408 ;Removed per customer 05/08/2006 - BAJ

 ;S @ROOT@(.01)="DECLINE TO GIVE INCOME INVALID"

 ;S @ROOT@(2)="MEANS TEST IS PRESENT, NO INCOME AND DECLINE TO GIVE INCOME NOT YES"

 ;S DGWP(1,0)="A Means Test is present, there is no income and the Declines to"

 ;S DGWP(2,0)="Give Income is null or no."

 Q

 ;

409 S @ROOT@(.01)="AGREE TO PAY DEDUCT INVALID"

 S @ROOT@(2)="MEANS TEST IS PRESENT AND AGREE TO PAY DEDUCTIBLE IS NULL"

 S DGWP(1,0)="A Means Test is present, the status of the test is either MT Co-Pay"

 S DGWP(2,0)="Required, GMT Co-Pay Required or Pending Adjudication and Agree to"

 S DGWP(3,0)="pay Deductible is null."

 Q

 ;

410 Q  ;Same as #404

 ;

411 S @ROOT@(.01)="ENROLLMENT APP DATE INVALID"

 S @ROOT@(2)="ENROLLMENT APPLICATION DATE MUST BE A PRECISE DATE"

 S DGWP(1,0)="Enrollment Application Date must be a precise date."

 Q

 ;

412 Q  ;Same as #24

 S @ROOT@(.01)="POS/ELIG CODE INVALID"

 S @ROOT@(2)="POS INCONSISTENT WITH PRIMARY ELIGIBILITY CODE"

 S DGWP(1,0)="POS Inconsistent With Primary Eligibility."

 Q

 ;

413 Q  ;Same as #13

 S @ROOT@(.01)="POS INVALID"

 S @ROOT@(2)="POS UNSPECIFIED"

 S DGWP(1,0)="POS Unspecified."

 Q

DG53653W  ;TDM - Patch DG*5.3*653 Install Utility Routine ; 10/24/05 9:28am

 +1       ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 +2       ; Called from DG53653U

 +3        QUIT 

 +4       ;

401        SET @ROOT@(.01)="RATED INCOMPETENT INVALID"

 +1        SET @ROOT@(2)="RATED INCOMPETENT MUST BE EITHER YES, NO, OR UNKNOWN/NULL"

 +2        SET DGWP(1,0)="If completed, the value of Rated Incompetent must be either yes,"

 +3        SET DGWP(2,0)="no, or unknown."

 +4        QUIT 

 +5       ;

402        SET @ROOT@(.01)="ELIGIBLE FOR MEDICAID INVALID"

 +1        SET @ROOT@(2)="ELIGIBLE FOR MEDICAID MUST BE EITHER YES, NO, OR NULL"

 +2        SET DGWP(1,0)="If completed, the value of Eligible For Medicaid must be either"

 +3        SET DGWP(2,0)="yes or no."

 +4        QUIT 

 +5       ;

403        SET @ROOT@(.01)="DT MEDICAID LAST ASKED INVALID"

 +1        SET @ROOT@(2)="ELIGIBLE FOR MEDICAID IS YES AND DATE MEDICAID LAST ASKED IS MISSING"

 +2        SET DGWP(1,0)="The value of 'Eligible for Medicaid' is Yes, but the Date Medicaid"

 +3        SET DGWP(2,0)="Last Asked value is null."

 +4        QUIT 

 +5       ;

404       ;Same as #15?

           QUIT 

 +1        SET @ROOT@(.01)="INELIGIBLE REASON INVALID"

 +2        SET @ROOT@(2)="INELIGIBLE DATE IS PRESENT AND THE INELIGIBLE REASON IS MISSING"

 +3        SET DGWP(1,0)="There is an Ineligible Date present, but the Ineligible Reason"

 +4        SET DGWP(2,0)="is missing."

 +5        QUIT 

 +6       ;;

405       ;Same as #19?

           QUIT 

 +1        SET @ROOT@(.01)="NON VETERAN ELIG CODE INVALID"

 +2        SET @ROOT@(2)="ELIGIBILITY CODE FOR NON-VETERAN IS NOT A VALID VALUE"

 +3        SET DGWP(1,0)="The value of Eligibility Code is completed, but it does not match"

 +4        SET DGWP(2,0)="one of the non-veteran values."

 +5        QUIT 

 +6       ;

406        SET @ROOT@(.01)="CLAIM FOLDER NUMBER INVALID"

 +1        SET @ROOT@(2)="CLAIM FOLDER NUM MUST BE 7 TO 8 DIGITS. IF 9 DIGITS THEN MUST BE SSN"

 +2        SET DGWP(1,0)="Claim Folder Number must consist of 7 or 8, or 9 numbers if SSN."

 +3        QUIT 

 +4       ;

407        SET @ROOT@(.01)="ELIGIBILITY STATUS INVALID"

 +1        SET @ROOT@(2)="THE VALUE ENTERED FOR ELIGIBILITY STATUS MUST BE P, R, V OR NULL"

 +2        SET DGWP(1,0)="The value of Eligibility Status is completed, but it does not match"

 +3        SET DGWP(2,0)="one of the values."

 +4        QUIT 

 +5       ;

408       ;Removed per customer 05/08/2006 - BAJ

 +1       ;S @ROOT@(.01)="DECLINE TO GIVE INCOME INVALID"

 +2       ;S @ROOT@(2)="MEANS TEST IS PRESENT, NO INCOME AND DECLINE TO GIVE INCOME NOT YES"

 +3       ;S DGWP(1,0)="A Means Test is present, there is no income and the Declines to"

 +4       ;S DGWP(2,0)="Give Income is null or no."

 +5        QUIT 

 +6       ;

409        SET @ROOT@(.01)="AGREE TO PAY DEDUCT INVALID"

 +1        SET @ROOT@(2)="MEANS TEST IS PRESENT AND AGREE TO PAY DEDUCTIBLE IS NULL"

 +2        SET DGWP(1,0)="A Means Test is present, the status of the test is either MT Co-Pay"

 +3        SET DGWP(2,0)="Required, GMT Co-Pay Required or Pending Adjudication and Agree to"

 +4        SET DGWP(3,0)="pay Deductible is null."

 +5        QUIT 

 +6       ;

410       ;Same as #404

           QUIT 

 +1       ;

411        SET @ROOT@(.01)="ENROLLMENT APP DATE INVALID"

 +1        SET @ROOT@(2)="ENROLLMENT APPLICATION DATE MUST BE A PRECISE DATE"

 +2        SET DGWP(1,0)="Enrollment Application Date must be a precise date."

 +3        QUIT 

 +4       ;

412       ;Same as #24

           QUIT 

 +1        SET @ROOT@(.01)="POS/ELIG CODE INVALID"

 +2        SET @ROOT@(2)="POS INCONSISTENT WITH PRIMARY ELIGIBILITY CODE"

 +3        SET DGWP(1,0)="POS Inconsistent With Primary Eligibility."

 +4        QUIT 

 +5       ;

413       ;Same as #13

           QUIT 

 +1        SET @ROOT@(.01)="POS INVALID"

 +2        SET @ROOT@(2)="POS UNSPECIFIED"

 +3        SET DGWP(1,0)="POS Unspecified."

 +4        QUIT