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

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

initial load of WorldVistAEHR
File size: 4.5 KB
Line 
1DG53653X ;TDM - Patch DG*5.3*653 Install Utility Routine ; 10/27/05 5:14pm
2 ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
3 ; Called from DG53653U
4 Q
5 ;
6501 S @ROOT@(.01)="POW STATUS INVALID"
7 S @ROOT@(2)="POW STATUS INDICATED MUST BE EITHER YES, NO, OR UNKNOWN/NULL"
8 S DGWP(1,0)="If completed, the value of POW Status Indicated must be either"
9 S DGWP(2,0)="Yes, No, or Unknown."
10 Q
11 ;
12502 S @ROOT@(.01)="MIL DIS RETIREMENT INVALID"
13 S @ROOT@(2)="THE VALUE FOR MIL DIS RETIREMENT MUST BE EITHER YES,NO OR UNKNOWN/NULL"
14 S DGWP(1,0)="The Value of Mil. Dis. Retirement is completed, but does not"
15 S DGWP(2,0)="match any valid value. (Note: This value is replacing"
16 S DGWP(3,0)="Disability Retirement from Military.)"
17 Q
18 ;
19503 S @ROOT@(.01)="DISCHARGE DUE TO DISAB INVALID"
20 S @ROOT@(2)="THE VALUE FOR DISCH DUE TO DISAB MUST BE EITHER YES,NO,OR UNKNOWN/NULL"
21 S DGWP(1,0)="The Value for Discharge Due to Disability is completed but"
22 S DGWP(2,0)="not a valid value."
23 Q
24 ;
25504 S @ROOT@(.01)="AGENT ORANGE EXPOSURE INVALID"
26 S @ROOT@(2)="AGENT ORANGE EXPOSURE MUST BE EITHER YES, NO, OR UNKNOWN"
27 S DGWP(1,0)="If completed, the value of Exposed to Agent Orange must be"
28 S DGWP(2,0)="either Yes, No, or Unknown"
29 Q
30 ;
31505 S @ROOT@(.01)="RADIATION EXPOSURE INVALID"
32 S @ROOT@(2)="RADIATION EXPOSURE MUST BE EITHER YES, NO, OR UNKNOWN"
33 S DGWP(1,0)="If completed, the value of Radiation Exposure Indicated must"
34 S DGWP(2,0)="be either Yes, No, or Unknown."
35 Q
36 ;
37506 S @ROOT@(.01)="ENV CONTAMINANTS EXP INVALID"
38 S @ROOT@(2)="ENVIRONMENTAL CONTAMINANTS EXPOSURE MUST BE EITHER YES, NO, OR UNKNOWN"
39 S DGWP(1,0)="If completed, the value of Environmental Contaminants must be"
40 S DGWP(2,0)="Yes, No or Unknown."
41 Q
42 ;
43507 S @ROOT@(.01)="RAD EXPOSURE METHOD INVALID"
44 S @ROOT@(2)="RAD EXPOSURE METHOD MUST BE ENTERED SINCE RAD EXP INDICATOR IS YES"
45 S DGWP(1,0)="Radiation Exposure Indicated is Yes and Radiation Exposure Method"
46 S DGWP(2,0)="is null."
47 Q
48 ;
49508 S @ROOT@(.01)="MST STATUS INVALID"
50 S @ROOT@(2)="MST STATUS MUST BE YES, NO, OR DECLINES"
51 S DGWP(1,0)="The value of MST Status is completed, but it does not match one"
52 S DGWP(2,0)="of the values."
53 Q
54 ;
55509 S @ROOT@(.01)="MST STATUS CHANGE DATE MISSING"
56 S @ROOT@(2)="MST STATUS CHANGE DATE IS REQUIRED IF MST STATUS IS Y, N, OR D"
57 S DGWP(1,0)="MST Status Change Date is required if MST Status is Yes, No, or"
58 S DGWP(2,0)="or Declines to answer."
59 Q
60 ;
61510 S @ROOT@(.01)="MST STATUS SITE REQUIRED"
62 S @ROOT@(2)="SITE DETERMINING MST STATUS IS REQUIRED IF MST STATUS IS Y, N, OR D"
63 S DGWP(1,0)="Site Determining MST Status is required if MST Status is Yes, No,"
64 S DGWP(2,0)="or Declines to answer."
65 Q
66 ;
67511 S @ROOT@(.01)="MST STATUS SITE INVALID"
68 S @ROOT@(2)="SITE DETERMINING MST STATUS MUST BE A VAMC OR CLINIC"
69 S DGWP(1,0)="The Site Determining MST Status is present, but the type of"
70 S DGWP(2,0)=" Institution that it points to is not identified as a VA Medical"
71 S DGWP(3,0)="Center or an Outpatient Clinic."
72 Q
73 ;
74512 Q ;Same as or conflicting with #60 in 38.6???
75 S @ROOT@(.01)="AO EXPOSURE LOCATION MISSING"
76 S @ROOT@(2)="AO EXPOSURE LOCATION IS MISSING AND EXPOSED TO AGENT ORANGE IS YES"
77 S DGWP(1,0)="The Exposed to Agent Orange is Yes and the Agent Orange Exposure"
78 S DGWP(2,0)="Location is null."
79 Q
80 ;
81513 Q ;Same as or conflicting with #72 in 38.6???
82 S @ROOT@(.01)="MS ENTRY DATE REQUIRED"
83 S @ROOT@(2)="MILITARY SERVICE ENTRY DATE (SED) MUST CONTAIN AT LEAST A YEAR DATE"
84 S DGWP(1,0)="If completed, Military Service Entry Date (SED) must contain at"
85 S DGWP(2,0)="least a year date."
86 Q
87 ;
88514 Q ;Same as or conflicting with #72 in 38.6???
89 S @ROOT@(.01)="MS SEPARATION DATE REQUIRED"
90 S @ROOT@(2)="MILITARY SERVICE SEPARATION DATE-SSD MUST CONTAIN AT LEAST A YEAR DATE"
91 S DGWP(1,0)="If completed, Military Service Separation Date must contain at"
92 S DGWP(2,0)="least a year date."
93 Q
94 ;
95515 Q ;Same as or conflicting with #74 in 38.6?
96 S @ROOT@(.01)="CONFLICT FROM/TO DATE REQUIRED"
97 S @ROOT@(2)="CONFLICT FROM/TO DATES DO NOT CONTAIN AT LEAST A MONTH AND YEAR DATE"
98 S DGWP(1,0)="If present, Conflict From/To Dates must consist of at least a"
99 S DGWP(2,0)="year date."
100 Q
101 ;
102516 S @ROOT@(.01)="DOB INVALID-MEXICAN BORDER WAR"
103 S @ROOT@(2)="DOB IS INCONSISTENT WITH ELIGIBILITY OF MEXICAN BORDER WAR"
104 S DGWP(1,0)="DOB is Inconsistent With Eligibility Of Mexican Border War."
105 Q
106 ;
107517 S @ROOT@(.01)="DOB INVALID-WORLD WAR I"
108 S @ROOT@(2)="DOB IS INCONSISTENT WITH ELIGIBILITY OF WORLD WAR I"
109 S DGWP(1,0)="DOB is Inconsistent With Eligibility Of World War I."
110 Q
Note: See TracBrowser for help on using the repository browser.