DG53653Y.m

DG53653Y ;BAJ - Patch DG*5.3*653 Install Utility Routine ; 10/17/05 10:36am

 ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 Q

 ;

701 ;Catastrophic Disability 'Decided By' Can Not Be 'HINQ'

 S @ROOT@(.01)="CD 'DECIDED BY' CANNOT BE HINQ"

 S @ROOT@(2)="CD 'DECIDED BY' CANNOT BE 'HINQ'"

 S DGWP(1,0)="Enter the name of the VA staff physician who made the "

 S DGWP(2,0)="decision that the patient was catastrophically disabled."

 Q

 ;

702 ;Catastrophic Disability 'Decided By' Not Valid

 S @ROOT@(.01)="CD 'DECIDED BY' NOT VALID"

 S @ROOT@(2)="CD 'DECIDED BY' IS NOT VALID"

 S DGWP(1,0)="Enter the name of the VA staff physician who made the "

 S DGWP(2,0)="decision that the patient was catastrophically disabled."

 Q

 ;

703 ;Catastrophic Disability 'Decided By' Required

 S @ROOT@(.01)="CD 'DECIDED BY' IS REQUIRED"

 S @ROOT@(2)="CD 'DECIDED BY' IS REQUIRED"

 S DGWP(1,0)="Enter the name of the VA staff physician who made the "

 S DGWP(2,0)="decision that the patient was catastrophically disabled."

 S DGWP(3,0)="This is a required field."

 Q

 ;

704 ;'Catastrophic Disability Review Date' Required

 S @ROOT@(.01)="CD 'REVIEW DATE' IS REQUIRED"

 S @ROOT@(2)="CD 'REVIEW DATE' IS REQUIRED"

 S DGWP(1,0)="Enter the date that a review to determine Catastrophic Disability "

 S DGWP(2,0)="was made.  This review may be a medical record review or"

 S DGWP(3,0)="physical exam review."

 Q

 ;

705 ;'Catastrophic Disabilty Review Date' Invalid

 S @ROOT@(.01)="CD 'REVIEW DATE' IS INVALID"

 S @ROOT@(2)="CD 'REVIEW DATE' SHOULD BE A MEDICAL RECORD OR PHYS EXAM REVIEW DATE"

 S DGWP(1,0)="Enter the date that a review to determine Catastrophic Disability "

 S DGWP(2,0)="was made.  This review may be a medical record review or"

 S DGWP(3,0)="physical exam review."

 Q

 ;

706 ;'CD Condition Score' Not Valid

 S @ROOT@(.01)="CD CONDITION SCORE NOT VALID"

 S @ROOT@(2)="CD 'CONDITION SCORE MUST BE A VALID ENTRY"

 S DGWP(1,0)="The exact criteria for the score are determined by the"

 S DGWP(2,0)="CATASTROPHIC DISABILITY REASONS file (#27.17).  This file"

 S DGWP(3,0)="also contains the help text for responding to SCORE."

 Q

 ;

707 ;'CD Review Date' Greater Than 'CD Date Of Determination'.

 S @ROOT@(.01)="CD REVIEW DT AFTER DECISION DT"

 S @ROOT@(2)="CD REVIEW DATE IS AFTER DATE OF DECISION"

 S DGWP(1,0)="The Catastrophic Disability Review Date must be before "

 S DGWP(2,0)="the date of decision."

 Q

 ;

708 ;'CD Status Affected Extremity' Invalid

 S @ROOT@(.01)="CD AFFECTED EXTREMITY INVALID"

 S @ROOT@(2)="CD AFFECTED EXTREMITY IS INVALID"

 S DGWP(1,0)="If completed, AFFECTED EXTREMITY must be one of "

 S DGWP(2,0)="the following codes: "

 S DGWP(3,0)="                RUE:RIGHT UPPER EXTREMITY"

 S DGWP(4,0)="                LUE:LEFT UPPER EXTREMITY"

 S DGWP(5,0)="                RLE:RIGHT LOWER EXTREMITY"

 S DGWP(6,0)="                LLE:LEFT LOWER EXTREMITY"

 Q

 ;

709 ;'CD Status Diagnoses' Not Valid

 S @ROOT@(.01)="CD DIAGNOSIS IS NOT VALID"

 S @ROOT@(2)="CD STATUS DIAGNOSIS IS NOT VALID"

 S DGWP(1,0)="The status diagnosis must be a valid diagnosis in the "

 S DGWP(2,0)="CD Reasons File (#27.17)."

 Q

 ;

710 ;'CD Status Procedure' Not Valid

 S @ROOT@(.01)="CD PROCEDURE IS NOT VALID"

 S @ROOT@(2)="CD STATUS PROCEDURE IS NOT VALID"

 S DGWP(1,0)="The status procedure must be a valid procedure in the "

 S DGWP(2,0)="CD Reasons File (#27.17)."

 Q

 ;

711 ;'CD Status Reason' Not Present

 S @ROOT@(.01)="CD REASON IS NOT PRESENT"

 S @ROOT@(2)="CD STATUS REASON IS REQUIRED FOR EACH COND, DX AND PROC ENTERED"

 S DGWP(1,0)="A CD status reason is required for each CD "

 S DGWP(2,0)="Condition, Diagnosis and Procedure "

 S DGWP(3,0)="that is entered."

 Q

 ;

712 ;'Date Of Catastophic Disability Decision' Not Valid

 S @ROOT@(.01)="CD DATE OF DECISION NOT VALID"

 S @ROOT@(2)="CD DATE OF DECISION MUST BE A VALID DATE"

 S DGWP(1,0)="Enter the date the catastrophic disability determination was "

    S DGWP(2,0)="made. This must be a valid date."

 Q

 ;

713 ;'Date Of Catastophic Disability Decision' Required

 S @ROOT@(.01)="CD DATE OF DECISION REQUIRED"

 S @ROOT@(2)="CD DATE OF DECISION IS REQUIRED"

 S DGWP(1,0)="The 'Date of Catastrophic Disability Decision is required if the patient "

 S DGWP(2,0)="is catastrophically disabled.  Enter the date the catastrophic disability  "

 S DGWP(3,0)="determination was made. This must be a valid date."

 Q

 ;

714 ;'Facility Making Catastrophic Disability Determination' Not Valid

 S @ROOT@(.01)="CD FACILITY IS NOT VALID"

 S @ROOT@(2)="FACILITY MAKING CD DETERMINATION MUST BE A VALID FACILITY"

 S DGWP(1,0)="The Facility Making Catastrophic Disability Determination must be "

 S DGWP(2,0)="a valid facility and defined in the INSTITUTION file (#4)."

 Q

 ;

715 ;'Method Of Determination' Is A Required Value

 S @ROOT@(.01)="CD METHOD IS REQUIRED"

 S @ROOT@(2)="CD METHOD OF DETERMINATION IS REQUIRED"

 S DGWP(1,0)="Method of Determination is a required field. Possible values are:"

 S DGWP(2,0)="      2:MEDICAL RECORD REVIEW:"

 S DGWP(3,0)="      3:PHYSICAL EXAMINATION "

 S DGWP(4,0)="The valid codes may vary depending on the Institution."

 Q

 ;

716 ;'Method Of Determination' Not Valid

 S @ROOT@(.01)="CD METHOD IS NOT VALID"

 S @ROOT@(2)="CD METHOD OF DETERMINATION IS NOT VALID"

 S DGWP(1,0)="Method of Determination is a required field. Possible values are:"

 S DGWP(2,0)="      2:MEDICAL RECORD REVIEW:"

 S DGWP(3,0)="      3:PHYSICAL EXAMINATION "

 S DGWP(4,0)="The valid codes may vary depending on the Institution."

 Q

 ;

717 ;Not Enough Diagnoses/Procedures/Conditions To Qualify For CD Status

 S @ROOT@(.01)="CD NOT ENOUGH TO QUALIFY"

 S @ROOT@(2)="NOT ENOUGH DX/PROC/CON TO QUALIFY FOR CD STATUS"

 S DGWP(1,0)="Not Enough Diagnoses/Procedures/Conditions To "

 S DGWP(2,0)="qualify For CD Status'"

 Q

 ;

718 ;'Permanent Status Indicator' Not Valid

 S @ROOT@(.01)="CD PERMANENT INDICATOR INVALID"

 S @ROOT@(2)="CD PERMANENT STATUS INDICATOR SHOULD BE 1,2 OR 3"

 S DGWP(1,0)="The Permanent Status Indicator should be one of the following: "

 S DGWP(2,0)="        1:PERMANENT"

 S DGWP(3,0)="        2:NOT PERMANENT"

 S DGWP(4,0)="        3:UNKNOWN "

 Q

 ;

719 ;'Veteran Catastrophically Disabled?' Field Must Have A Response

 S @ROOT@(.01)="CD STATUS UNSPECIFIED"

 S @ROOT@(2)="CD STATUS MUST BE SPECIFIED"

 S DGWP(1,0)="Indicate if the Veteran is Catastrophically Disabled."

 S DGWP(2,0)="This is a required field"

 Q

 ;

720 ;Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD Status

 S @ROOT@(.01)="CD ENOUGH TO QUALIFY"

 S @ROOT@(2)="PT HAS ENOUGH DX/PROC/COND TO QUALIFY FOR CD STATUS"

 S DGWP(1,0)="The Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD "

 S DGWP(2,0)="Status"

 Q

721 ;

 Q

722 ;

 Q

 ;

723 ;Catastrophic Disability Review Date is required to be a precise date

 S @ROOT@(.01)="CD REVIEW DATE MUST BE PRECISE"

 S @ROOT@(2)="CD REVIEW DATE MUST BE A PRECISE CALENDAR DATE"

 S DGWP(1,0)="Inconsistency results when the Review date is not a precise calendar date."

 Q

 ;

724 ;Catastrophic Disability Date of Decision is required to be a precise date

 S @ROOT@(.01)="CD DECISION DT MUST BE PRECISE"

 S @ROOT@(2)="CD DECISION DATE MUST BE A PRECISE CALENDAR DATE"

 S DGWP(1,0)="Inconsistency results when the Data of Decision is not a precise calendar date."

 Q

 ;

725 ;An Affected Extremity is required for each procedure code received for a Catastrophic Disabled Veteran

 S @ROOT@(.01)="CD EXTREMITY REQUIRED"

 S @ROOT@(2)="AFFECTED EXTREMITY IS REQUIRED FOR EACH PROCEDURE REC'D"

 S DGWP(1,0)="An Affected Extremity is required for each procedure code received "

 S DGWP(2,0)="for a Catastrophically Disabiled veteran"

 Q

 ;

726 ;A score is required for each condition code entered for catastrophically disabled determinations

 S @ROOT@(.01)="CD SCORE REQUIRED"

 S @ROOT@(2)="A VALID SCORE IS REQUIRED FOR EACH CONDITION CODE"

 S DGWP(1,0)="A score is required for each condition code entered for catastrophically "

 S DGWP(2,0)="disabled determinations "

 Q

 ;

DG53653Y  ;BAJ - Patch DG*5.3*653 Install Utility Routine ; 10/17/05 10:36am

 +1       ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 +2        QUIT 

 +3       ;

701       ;Catastrophic Disability 'Decided By' Can Not Be 'HINQ'

 +1        SET @ROOT@(.01)="CD 'DECIDED BY' CANNOT BE HINQ"

 +2        SET @ROOT@(2)="CD 'DECIDED BY' CANNOT BE 'HINQ'"

 +3        SET DGWP(1,0)="Enter the name of the VA staff physician who made the "

 +4        SET DGWP(2,0)="decision that the patient was catastrophically disabled."

 +5        QUIT 

 +6       ;

702       ;Catastrophic Disability 'Decided By' Not Valid

 +1        SET @ROOT@(.01)="CD 'DECIDED BY' NOT VALID"

 +2        SET @ROOT@(2)="CD 'DECIDED BY' IS NOT VALID"

 +3        SET DGWP(1,0)="Enter the name of the VA staff physician who made the "

 +4        SET DGWP(2,0)="decision that the patient was catastrophically disabled."

 +5        QUIT 

 +6       ;

703       ;Catastrophic Disability 'Decided By' Required

 +1        SET @ROOT@(.01)="CD 'DECIDED BY' IS REQUIRED"

 +2        SET @ROOT@(2)="CD 'DECIDED BY' IS REQUIRED"

 +3        SET DGWP(1,0)="Enter the name of the VA staff physician who made the "

 +4        SET DGWP(2,0)="decision that the patient was catastrophically disabled."

 +5        SET DGWP(3,0)="This is a required field."

 +6        QUIT 

 +7       ;

704       ;'Catastrophic Disability Review Date' Required

 +1        SET @ROOT@(.01)="CD 'REVIEW DATE' IS REQUIRED"

 +2        SET @ROOT@(2)="CD 'REVIEW DATE' IS REQUIRED"

 +3        SET DGWP(1,0)="Enter the date that a review to determine Catastrophic Disability "

 +4        SET DGWP(2,0)="was made.  This review may be a medical record review or"

 +5        SET DGWP(3,0)="physical exam review."

 +6        QUIT 

 +7       ;

705       ;'Catastrophic Disabilty Review Date' Invalid

 +1        SET @ROOT@(.01)="CD 'REVIEW DATE' IS INVALID"

 +2        SET @ROOT@(2)="CD 'REVIEW DATE' SHOULD BE A MEDICAL RECORD OR PHYS EXAM REVIEW DATE"

 +3        SET DGWP(1,0)="Enter the date that a review to determine Catastrophic Disability "

 +4        SET DGWP(2,0)="was made.  This review may be a medical record review or"

 +5        SET DGWP(3,0)="physical exam review."

 +6        QUIT 

 +7       ;

706       ;'CD Condition Score' Not Valid

 +1        SET @ROOT@(.01)="CD CONDITION SCORE NOT VALID"

 +2        SET @ROOT@(2)="CD 'CONDITION SCORE MUST BE A VALID ENTRY"

 +3        SET DGWP(1,0)="The exact criteria for the score are determined by the"

 +4        SET DGWP(2,0)="CATASTROPHIC DISABILITY REASONS file (#27.17).  This file"

 +5        SET DGWP(3,0)="also contains the help text for responding to SCORE."

 +6        QUIT 

 +7       ;

707       ;'CD Review Date' Greater Than 'CD Date Of Determination'.

 +1        SET @ROOT@(.01)="CD REVIEW DT AFTER DECISION DT"

 +2        SET @ROOT@(2)="CD REVIEW DATE IS AFTER DATE OF DECISION"

 +3        SET DGWP(1,0)="The Catastrophic Disability Review Date must be before "

 +4        SET DGWP(2,0)="the date of decision."

 +5        QUIT 

 +6       ;

708       ;'CD Status Affected Extremity' Invalid

 +1        SET @ROOT@(.01)="CD AFFECTED EXTREMITY INVALID"

 +2        SET @ROOT@(2)="CD AFFECTED EXTREMITY IS INVALID"

 +3        SET DGWP(1,0)="If completed, AFFECTED EXTREMITY must be one of "

 +4        SET DGWP(2,0)="the following codes: "

 +5        SET DGWP(3,0)="                RUE:RIGHT UPPER EXTREMITY"

 +6        SET DGWP(4,0)="                LUE:LEFT UPPER EXTREMITY"

 +7        SET DGWP(5,0)="                RLE:RIGHT LOWER EXTREMITY"

 +8        SET DGWP(6,0)="                LLE:LEFT LOWER EXTREMITY"

 +9        QUIT 

 +10      ;

709       ;'CD Status Diagnoses' Not Valid

 +1        SET @ROOT@(.01)="CD DIAGNOSIS IS NOT VALID"

 +2        SET @ROOT@(2)="CD STATUS DIAGNOSIS IS NOT VALID"

 +3        SET DGWP(1,0)="The status diagnosis must be a valid diagnosis in the "

 +4        SET DGWP(2,0)="CD Reasons File (#27.17)."

 +5        QUIT 

 +6       ;

710       ;'CD Status Procedure' Not Valid

 +1        SET @ROOT@(.01)="CD PROCEDURE IS NOT VALID"

 +2        SET @ROOT@(2)="CD STATUS PROCEDURE IS NOT VALID"

 +3        SET DGWP(1,0)="The status procedure must be a valid procedure in the "

 +4        SET DGWP(2,0)="CD Reasons File (#27.17)."

 +5        QUIT 

 +6       ;

711       ;'CD Status Reason' Not Present

 +1        SET @ROOT@(.01)="CD REASON IS NOT PRESENT"

 +2        SET @ROOT@(2)="CD STATUS REASON IS REQUIRED FOR EACH COND, DX AND PROC ENTERED"

 +3        SET DGWP(1,0)="A CD status reason is required for each CD "

 +4        SET DGWP(2,0)="Condition, Diagnosis and Procedure "

 +5        SET DGWP(3,0)="that is entered."

 +6        QUIT 

 +7       ;

712       ;'Date Of Catastophic Disability Decision' Not Valid

 +1        SET @ROOT@(.01)="CD DATE OF DECISION NOT VALID"

 +2        SET @ROOT@(2)="CD DATE OF DECISION MUST BE A VALID DATE"

 +3        SET DGWP(1,0)="Enter the date the catastrophic disability determination was "

 +4        SET DGWP(2,0)="made. This must be a valid date."

 +5        QUIT 

 +6       ;

713       ;'Date Of Catastophic Disability Decision' Required

 +1        SET @ROOT@(.01)="CD DATE OF DECISION REQUIRED"

 +2        SET @ROOT@(2)="CD DATE OF DECISION IS REQUIRED"

 +3        SET DGWP(1,0)="The 'Date of Catastrophic Disability Decision is required if the patient "

 +4        SET DGWP(2,0)="is catastrophically disabled.  Enter the date the catastrophic disability  "

 +5        SET DGWP(3,0)="determination was made. This must be a valid date."

 +6        QUIT 

 +7       ;

714       ;'Facility Making Catastrophic Disability Determination' Not Valid

 +1        SET @ROOT@(.01)="CD FACILITY IS NOT VALID"

 +2        SET @ROOT@(2)="FACILITY MAKING CD DETERMINATION MUST BE A VALID FACILITY"

 +3        SET DGWP(1,0)="The Facility Making Catastrophic Disability Determination must be "

 +4        SET DGWP(2,0)="a valid facility and defined in the INSTITUTION file (#4)."

 +5        QUIT 

 +6       ;

715       ;'Method Of Determination' Is A Required Value

 +1        SET @ROOT@(.01)="CD METHOD IS REQUIRED"

 +2        SET @ROOT@(2)="CD METHOD OF DETERMINATION IS REQUIRED"

 +3        SET DGWP(1,0)="Method of Determination is a required field. Possible values are:"

 +4        SET DGWP(2,0)="      2:MEDICAL RECORD REVIEW:"

 +5        SET DGWP(3,0)="      3:PHYSICAL EXAMINATION "

 +6        SET DGWP(4,0)="The valid codes may vary depending on the Institution."

 +7        QUIT 

 +8       ;

716       ;'Method Of Determination' Not Valid

 +1        SET @ROOT@(.01)="CD METHOD IS NOT VALID"

 +2        SET @ROOT@(2)="CD METHOD OF DETERMINATION IS NOT VALID"

 +3        SET DGWP(1,0)="Method of Determination is a required field. Possible values are:"

 +4        SET DGWP(2,0)="      2:MEDICAL RECORD REVIEW:"

 +5        SET DGWP(3,0)="      3:PHYSICAL EXAMINATION "

 +6        SET DGWP(4,0)="The valid codes may vary depending on the Institution."

 +7        QUIT 

 +8       ;

717       ;Not Enough Diagnoses/Procedures/Conditions To Qualify For CD Status

 +1        SET @ROOT@(.01)="CD NOT ENOUGH TO QUALIFY"

 +2        SET @ROOT@(2)="NOT ENOUGH DX/PROC/CON TO QUALIFY FOR CD STATUS"

 +3        SET DGWP(1,0)="Not Enough Diagnoses/Procedures/Conditions To "

 +4        SET DGWP(2,0)="qualify For CD Status'"

 +5        QUIT 

 +6       ;

718       ;'Permanent Status Indicator' Not Valid

 +1        SET @ROOT@(.01)="CD PERMANENT INDICATOR INVALID"

 +2        SET @ROOT@(2)="CD PERMANENT STATUS INDICATOR SHOULD BE 1,2 OR 3"

 +3        SET DGWP(1,0)="The Permanent Status Indicator should be one of the following: "

 +4        SET DGWP(2,0)="        1:PERMANENT"

 +5        SET DGWP(3,0)="        2:NOT PERMANENT"

 +6        SET DGWP(4,0)="        3:UNKNOWN "

 +7        QUIT 

 +8       ;

719       ;'Veteran Catastrophically Disabled?' Field Must Have A Response

 +1        SET @ROOT@(.01)="CD STATUS UNSPECIFIED"

 +2        SET @ROOT@(2)="CD STATUS MUST BE SPECIFIED"

 +3        SET DGWP(1,0)="Indicate if the Veteran is Catastrophically Disabled."

 +4        SET DGWP(2,0)="This is a required field"

 +5        QUIT 

 +6       ;

720       ;Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD Status

 +1        SET @ROOT@(.01)="CD ENOUGH TO QUALIFY"

 +2        SET @ROOT@(2)="PT HAS ENOUGH DX/PROC/COND TO QUALIFY FOR CD STATUS"

 +3        SET DGWP(1,0)="The Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD "

 +4        SET DGWP(2,0)="Status"

 +5        QUIT 

721       ;

 +1        QUIT 

722       ;

 +1        QUIT 

 +2       ;

723       ;Catastrophic Disability Review Date is required to be a precise date

 +1        SET @ROOT@(.01)="CD REVIEW DATE MUST BE PRECISE"

 +2        SET @ROOT@(2)="CD REVIEW DATE MUST BE A PRECISE CALENDAR DATE"

 +3        SET DGWP(1,0)="Inconsistency results when the Review date is not a precise calendar date."

 +4        QUIT 

 +5       ;

724       ;Catastrophic Disability Date of Decision is required to be a precise date

 +1        SET @ROOT@(.01)="CD DECISION DT MUST BE PRECISE"

 +2        SET @ROOT@(2)="CD DECISION DATE MUST BE A PRECISE CALENDAR DATE"

 +3        SET DGWP(1,0)="Inconsistency results when the Data of Decision is not a precise calendar date."

 +4        QUIT 

 +5       ;

725       ;An Affected Extremity is required for each procedure code received for a Catastrophic Disabled Veteran

 +1        SET @ROOT@(.01)="CD EXTREMITY REQUIRED"

 +2        SET @ROOT@(2)="AFFECTED EXTREMITY IS REQUIRED FOR EACH PROCEDURE REC'D"

 +3        SET DGWP(1,0)="An Affected Extremity is required for each procedure code received "

 +4        SET DGWP(2,0)="for a Catastrophically Disabiled veteran"

 +5        QUIT 

 +6       ;

726       ;A score is required for each condition code entered for catastrophically disabled determinations

 +1        SET @ROOT@(.01)="CD SCORE REQUIRED"

 +2        SET @ROOT@(2)="A VALID SCORE IS REQUIRED FOR EACH CONDITION CODE"

 +3        SET DGWP(1,0)="A score is required for each condition code entered for catastrophically "

 +4        SET DGWP(2,0)="disabled determinations "

 +5        QUIT 

 +6       ;