| 1 | DG53653X ;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 | ;
|
|---|
| 6 | 501 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 | ;
|
|---|
| 12 | 502 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 | ;
|
|---|
| 19 | 503 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 | ;
|
|---|
| 25 | 504 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 | ;
|
|---|
| 31 | 505 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 | ;
|
|---|
| 37 | 506 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 | ;
|
|---|
| 43 | 507 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 | ;
|
|---|
| 49 | 508 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 | ;
|
|---|
| 55 | 509 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 | ;
|
|---|
| 61 | 510 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 | ;
|
|---|
| 67 | 511 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 | ;
|
|---|
| 74 | 512 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 | ;
|
|---|
| 81 | 513 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 | ;
|
|---|
| 88 | 514 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 | ;
|
|---|
| 95 | 515 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 | ;
|
|---|
| 102 | 516 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 | ;
|
|---|
| 107 | 517 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
|
|---|
