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

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

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1DG53653V ;CKN - Patch DG*5.3*653 Install Utility Routine ; 3/14/06 3:33pm
2 ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
3 ; Called from DG53653U
4 Q
5 ;
6301 S @ROOT@(.01)="PERSON LASTNAME REQUIRED"
7 S @ROOT@(2)="PERSON MUST HAVE A LAST NAME"
8 S DGWP(1,0)="The last name of the name components is not present."
9 S DGWP(2,0)="This applies to patient, spouse and dependents."
10 Q
11 ;
12302 Q ;
13 S @ROOT@(.01)="DATE OF BIRTH REQUIRED"
14 S @ROOT@(2)="DATE OF BIRTH MUST BE ENTERED"
15 S DGWP(1,0)="The person's date of birth is missing. This applies to"
16 S DGWP(2,0)="patient, spouse and dependents. Year is the minimum"
17 S DGWP(3,0)="data element that must be entered."
18 Q
19 ;
20303 S @ROOT@(.01)="GENDER REQUIRED"
21 S @ROOT@(2)="GENDER MUST BE ENTERED"
22 S DGWP(1,0)="The person's gender value is missing. This applies to"
23 S DGWP(2,0)="patient, spouse and dependents."
24 Q
25 ;
26304 S @ROOT@(.01)="GENDER INVALID"
27 S @ROOT@(2)="THE PERSON GENDER MUST BE EITHER MALE OR FEMALE"
28 S DGWP(1,0)="The person has a gender value, but it is not either"
29 S DGWP(2,0)="male or female. This applies to patient, spouse and"
30 S DGWP(3,0)="dependents."
31 Q
32 ;
33305 Q ;Removed as duplicate
34 S @ROOT@(.01)="VETERAN SSN MISSING"
35 S @ROOT@(2)="VETERAN'S SSN IS MISSING"
36 S DGWP(1,0)="The person's SSN is missing. This applies to the"
37 S DGWP(2,0)="patient only."
38 Q
39 ;
40306 S @ROOT@(.01)="VALID SSN/PSEUDO SSN REQUIRED"
41 S @ROOT@(2)="PATIENT MUST HAVE A VALID SSN OR A PSEUDO SSN"
42 S DGWP(1,0)="Patient must have a valid SSN or a Pseudo SSN."
43 Q
44 ;
45307 S @ROOT@(.01)="PSEUDO SSN REASON REQUIRED"
46 S @ROOT@(2)="PSEUDO SSN REASON IS MISSING"
47 S DGWP(1,0)="If a Pseudo SSN number is entered for a person, spouse"
48 S DGWP(2,0)="or dependents, then a reason must be entered."
49 Q
50 ;
51308 ;
52 S @ROOT@(.01)="DATE OF DEATH BEFORE DOB"
53 S @ROOT@(2)="THE DATE OF DEATH IS BEFORE THE DATE OF BIRTH"
54 S DGWP(1,0)="The Date of Death cannot be prior to the Date of Birth."
55 Q
56 ;
57309 S @ROOT@(.01)="PATIENT RELATIONSHIP INVALID"
58 S @ROOT@(2)="RELATIONSHIP TO PATIENT IS NOT A VALID VALUE"
59 S DGWP(1,0)="The value of Relationship to Patient does not match"
60 S DGWP(2,0)="one of the valid values."
61 Q
62 ;
63310 S @ROOT@(.01)="DEPENDENT EFF. DATE REQUIRED"
64 S @ROOT@(2)="DEPENDENT(S) EFFECTIVE DATE IS MISSING"
65 S DGWP(1,0)="A dependent is present but the effective date is null."
66 Q
67 ;
68311 Q ;Duplicate with #16
69 S @ROOT@(.01)="DATE OF DEATH IS FUTURE DATE"
70 S @ROOT@(2)="DATE OF DEATH CANNOT BE A FUTURE DATE"
71 S DGWP(1,0)="Date Of Death cannot be a future date."
72 Q
73 ;
74312 S @ROOT@(.01)="PERSON MUST HAVE NATIONAL ICN"
75 S @ROOT@(2)="PERSON MUST HAVE NATIONAL ICN"
76 S DGWP(1,0)="Person does not have National ICN."
77 Q
78 ;
Note: See TracBrowser for help on using the repository browser.