- DG53653V ;CKN - Patch DG*5.3*653 Install Utility Routine ; 3/14/06 3:33pm
- ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
- ; Called from DG53653U
- Q
- ;
- 301 S @ROOT@(.01)="PERSON LASTNAME REQUIRED"
- S @ROOT@(2)="PERSON MUST HAVE A LAST NAME"
- S DGWP(1,0)="The last name of the name components is not present."
- S DGWP(2,0)="This applies to patient, spouse and dependents."
- Q
- ;
- 302 Q ;
- S @ROOT@(.01)="DATE OF BIRTH REQUIRED"
- S @ROOT@(2)="DATE OF BIRTH MUST BE ENTERED"
- S DGWP(1,0)="The person's date of birth is missing. This applies to"
- S DGWP(2,0)="patient, spouse and dependents. Year is the minimum"
- S DGWP(3,0)="data element that must be entered."
- Q
- ;
- 303 S @ROOT@(.01)="GENDER REQUIRED"
- S @ROOT@(2)="GENDER MUST BE ENTERED"
- S DGWP(1,0)="The person's gender value is missing. This applies to"
- S DGWP(2,0)="patient, spouse and dependents."
- Q
- ;
- 304 S @ROOT@(.01)="GENDER INVALID"
- S @ROOT@(2)="THE PERSON GENDER MUST BE EITHER MALE OR FEMALE"
- S DGWP(1,0)="The person has a gender value, but it is not either"
- S DGWP(2,0)="male or female. This applies to patient, spouse and"
- S DGWP(3,0)="dependents."
- Q
- ;
- 305 Q ;Removed as duplicate
- S @ROOT@(.01)="VETERAN SSN MISSING"
- S @ROOT@(2)="VETERAN'S SSN IS MISSING"
- S DGWP(1,0)="The person's SSN is missing. This applies to the"
- S DGWP(2,0)="patient only."
- Q
- ;
- 306 S @ROOT@(.01)="VALID SSN/PSEUDO SSN REQUIRED"
- S @ROOT@(2)="PATIENT MUST HAVE A VALID SSN OR A PSEUDO SSN"
- S DGWP(1,0)="Patient must have a valid SSN or a Pseudo SSN."
- Q
- ;
- 307 S @ROOT@(.01)="PSEUDO SSN REASON REQUIRED"
- S @ROOT@(2)="PSEUDO SSN REASON IS MISSING"
- S DGWP(1,0)="If a Pseudo SSN number is entered for a person, spouse"
- S DGWP(2,0)="or dependents, then a reason must be entered."
- Q
- ;
- 308 ;
- S @ROOT@(.01)="DATE OF DEATH BEFORE DOB"
- S @ROOT@(2)="THE DATE OF DEATH IS BEFORE THE DATE OF BIRTH"
- S DGWP(1,0)="The Date of Death cannot be prior to the Date of Birth."
- Q
- ;
- 309 S @ROOT@(.01)="PATIENT RELATIONSHIP INVALID"
- S @ROOT@(2)="RELATIONSHIP TO PATIENT IS NOT A VALID VALUE"
- S DGWP(1,0)="The value of Relationship to Patient does not match"
- S DGWP(2,0)="one of the valid values."
- Q
- ;
- 310 S @ROOT@(.01)="DEPENDENT EFF. DATE REQUIRED"
- S @ROOT@(2)="DEPENDENT(S) EFFECTIVE DATE IS MISSING"
- S DGWP(1,0)="A dependent is present but the effective date is null."
- Q
- ;
- 311 Q ;Duplicate with #16
- S @ROOT@(.01)="DATE OF DEATH IS FUTURE DATE"
- S @ROOT@(2)="DATE OF DEATH CANNOT BE A FUTURE DATE"
- S DGWP(1,0)="Date Of Death cannot be a future date."
- Q
- ;
- 312 S @ROOT@(.01)="PERSON MUST HAVE NATIONAL ICN"
- S @ROOT@(2)="PERSON MUST HAVE NATIONAL ICN"
- S DGWP(1,0)="Person does not have National ICN."
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53653V 2741 printed Jan 18, 2025@03:38:46 Page 2
- DG53653V ;CKN - Patch DG*5.3*653 Install Utility Routine ; 3/14/06 3:33pm
- +1 ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
- +2 ; Called from DG53653U
- +3 QUIT
- +4 ;
- 301 SET @ROOT@(.01)="PERSON LASTNAME REQUIRED"
- +1 SET @ROOT@(2)="PERSON MUST HAVE A LAST NAME"
- +2 SET DGWP(1,0)="The last name of the name components is not present."
- +3 SET DGWP(2,0)="This applies to patient, spouse and dependents."
- +4 QUIT
- +5 ;
- 302 ;
- QUIT
- +1 SET @ROOT@(.01)="DATE OF BIRTH REQUIRED"
- +2 SET @ROOT@(2)="DATE OF BIRTH MUST BE ENTERED"
- +3 SET DGWP(1,0)="The person's date of birth is missing. This applies to"
- +4 SET DGWP(2,0)="patient, spouse and dependents. Year is the minimum"
- +5 SET DGWP(3,0)="data element that must be entered."
- +6 QUIT
- +7 ;
- 303 SET @ROOT@(.01)="GENDER REQUIRED"
- +1 SET @ROOT@(2)="GENDER MUST BE ENTERED"
- +2 SET DGWP(1,0)="The person's gender value is missing. This applies to"
- +3 SET DGWP(2,0)="patient, spouse and dependents."
- +4 QUIT
- +5 ;
- 304 SET @ROOT@(.01)="GENDER INVALID"
- +1 SET @ROOT@(2)="THE PERSON GENDER MUST BE EITHER MALE OR FEMALE"
- +2 SET DGWP(1,0)="The person has a gender value, but it is not either"
- +3 SET DGWP(2,0)="male or female. This applies to patient, spouse and"
- +4 SET DGWP(3,0)="dependents."
- +5 QUIT
- +6 ;
- 305 ;Removed as duplicate
- QUIT
- +1 SET @ROOT@(.01)="VETERAN SSN MISSING"
- +2 SET @ROOT@(2)="VETERAN'S SSN IS MISSING"
- +3 SET DGWP(1,0)="The person's SSN is missing. This applies to the"
- +4 SET DGWP(2,0)="patient only."
- +5 QUIT
- +6 ;
- 306 SET @ROOT@(.01)="VALID SSN/PSEUDO SSN REQUIRED"
- +1 SET @ROOT@(2)="PATIENT MUST HAVE A VALID SSN OR A PSEUDO SSN"
- +2 SET DGWP(1,0)="Patient must have a valid SSN or a Pseudo SSN."
- +3 QUIT
- +4 ;
- 307 SET @ROOT@(.01)="PSEUDO SSN REASON REQUIRED"
- +1 SET @ROOT@(2)="PSEUDO SSN REASON IS MISSING"
- +2 SET DGWP(1,0)="If a Pseudo SSN number is entered for a person, spouse"
- +3 SET DGWP(2,0)="or dependents, then a reason must be entered."
- +4 QUIT
- +5 ;
- 308 ;
- +1 SET @ROOT@(.01)="DATE OF DEATH BEFORE DOB"
- +2 SET @ROOT@(2)="THE DATE OF DEATH IS BEFORE THE DATE OF BIRTH"
- +3 SET DGWP(1,0)="The Date of Death cannot be prior to the Date of Birth."
- +4 QUIT
- +5 ;
- 309 SET @ROOT@(.01)="PATIENT RELATIONSHIP INVALID"
- +1 SET @ROOT@(2)="RELATIONSHIP TO PATIENT IS NOT A VALID VALUE"
- +2 SET DGWP(1,0)="The value of Relationship to Patient does not match"
- +3 SET DGWP(2,0)="one of the valid values."
- +4 QUIT
- +5 ;
- 310 SET @ROOT@(.01)="DEPENDENT EFF. DATE REQUIRED"
- +1 SET @ROOT@(2)="DEPENDENT(S) EFFECTIVE DATE IS MISSING"
- +2 SET DGWP(1,0)="A dependent is present but the effective date is null."
- +3 QUIT
- +4 ;
- 311 ;Duplicate with #16
- QUIT
- +1 SET @ROOT@(.01)="DATE OF DEATH IS FUTURE DATE"
- +2 SET @ROOT@(2)="DATE OF DEATH CANNOT BE A FUTURE DATE"
- +3 SET DGWP(1,0)="Date Of Death cannot be a future date."
- +4 QUIT
- +5 ;
- 312 SET @ROOT@(.01)="PERSON MUST HAVE NATIONAL ICN"
- +1 SET @ROOT@(2)="PERSON MUST HAVE NATIONAL ICN"
- +2 SET DGWP(1,0)="Person does not have National ICN."
- +3 QUIT
- +4 ;