source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53653W.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.0 KB
RevLine 
[613]1DG53653W ;TDM - Patch DG*5.3*653 Install Utility Routine ; 10/24/05 9:28am
2 ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
3 ; Called from DG53653U
4 Q
5 ;
6401 S @ROOT@(.01)="RATED INCOMPETENT INVALID"
7 S @ROOT@(2)="RATED INCOMPETENT MUST BE EITHER YES, NO, OR UNKNOWN/NULL"
8 S DGWP(1,0)="If completed, the value of Rated Incompetent must be either yes,"
9 S DGWP(2,0)="no, or unknown."
10 Q
11 ;
12402 S @ROOT@(.01)="ELIGIBLE FOR MEDICAID INVALID"
13 S @ROOT@(2)="ELIGIBLE FOR MEDICAID MUST BE EITHER YES, NO, OR NULL"
14 S DGWP(1,0)="If completed, the value of Eligible For Medicaid must be either"
15 S DGWP(2,0)="yes or no."
16 Q
17 ;
18403 S @ROOT@(.01)="DT MEDICAID LAST ASKED INVALID"
19 S @ROOT@(2)="ELIGIBLE FOR MEDICAID IS YES AND DATE MEDICAID LAST ASKED IS MISSING"
20 S DGWP(1,0)="The value of 'Eligible for Medicaid' is Yes, but the Date Medicaid"
21 S DGWP(2,0)="Last Asked value is null."
22 Q
23 ;
24404 Q ;Same as #15?
25 S @ROOT@(.01)="INELIGIBLE REASON INVALID"
26 S @ROOT@(2)="INELIGIBLE DATE IS PRESENT AND THE INELIGIBLE REASON IS MISSING"
27 S DGWP(1,0)="There is an Ineligible Date present, but the Ineligible Reason"
28 S DGWP(2,0)="is missing."
29 Q
30 ;;
31405 Q ;Same as #19?
32 S @ROOT@(.01)="NON VETERAN ELIG CODE INVALID"
33 S @ROOT@(2)="ELIGIBILITY CODE FOR NON-VETERAN IS NOT A VALID VALUE"
34 S DGWP(1,0)="The value of Eligibility Code is completed, but it does not match"
35 S DGWP(2,0)="one of the non-veteran values."
36 Q
37 ;
38406 S @ROOT@(.01)="CLAIM FOLDER NUMBER INVALID"
39 S @ROOT@(2)="CLAIM FOLDER NUM MUST BE 7 TO 8 DIGITS. IF 9 DIGITS THEN MUST BE SSN"
40 S DGWP(1,0)="Claim Folder Number must consist of 7 or 8, or 9 numbers if SSN."
41 Q
42 ;
43407 S @ROOT@(.01)="ELIGIBILITY STATUS INVALID"
44 S @ROOT@(2)="THE VALUE ENTERED FOR ELIGIBILITY STATUS MUST BE P, R, V OR NULL"
45 S DGWP(1,0)="The value of Eligibility Status is completed, but it does not match"
46 S DGWP(2,0)="one of the values."
47 Q
48 ;
49408 ;Removed per customer 05/08/2006 - BAJ
50 ;S @ROOT@(.01)="DECLINE TO GIVE INCOME INVALID"
51 ;S @ROOT@(2)="MEANS TEST IS PRESENT, NO INCOME AND DECLINE TO GIVE INCOME NOT YES"
52 ;S DGWP(1,0)="A Means Test is present, there is no income and the Declines to"
53 ;S DGWP(2,0)="Give Income is null or no."
54 Q
55 ;
56409 S @ROOT@(.01)="AGREE TO PAY DEDUCT INVALID"
57 S @ROOT@(2)="MEANS TEST IS PRESENT AND AGREE TO PAY DEDUCTIBLE IS NULL"
58 S DGWP(1,0)="A Means Test is present, the status of the test is either MT Co-Pay"
59 S DGWP(2,0)="Required, GMT Co-Pay Required or Pending Adjudication and Agree to"
60 S DGWP(3,0)="pay Deductible is null."
61 Q
62 ;
63410 Q ;Same as #404
64 ;
65411 S @ROOT@(.01)="ENROLLMENT APP DATE INVALID"
66 S @ROOT@(2)="ENROLLMENT APPLICATION DATE MUST BE A PRECISE DATE"
67 S DGWP(1,0)="Enrollment Application Date must be a precise date."
68 Q
69 ;
70412 Q ;Same as #24
71 S @ROOT@(.01)="POS/ELIG CODE INVALID"
72 S @ROOT@(2)="POS INCONSISTENT WITH PRIMARY ELIGIBILITY CODE"
73 S DGWP(1,0)="POS Inconsistent With Primary Eligibility."
74 Q
75 ;
76413 Q ;Same as #13
77 S @ROOT@(.01)="POS INVALID"
78 S @ROOT@(2)="POS UNSPECIFIED"
79 S DGWP(1,0)="POS Unspecified."
80 Q
Note: See TracBrowser for help on using the repository browser.