| 1 | DG53653V ;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 | ;
|
|---|
| 6 | 301 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 | ;
|
|---|
| 12 | 302 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 | ;
|
|---|
| 20 | 303 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 | ;
|
|---|
| 26 | 304 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 | ;
|
|---|
| 33 | 305 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 | ;
|
|---|
| 40 | 306 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 | ;
|
|---|
| 45 | 307 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 | ;
|
|---|
| 51 | 308 ;
|
|---|
| 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 | ;
|
|---|
| 57 | 309 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 | ;
|
|---|
| 63 | 310 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 | ;
|
|---|
| 68 | 311 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 | ;
|
|---|
| 74 | 312 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 | ;
|
|---|
