IVMZ7CCD ;BAJ,TGH - HL7 Z07 CONSISTENCY CHECKER -- CATASTROPHIC DISABILITY SUBROUTINE ; 11/9/05 9:30am
Source file <IVMZ7CCD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN) | ; entry point. Patient DFN is sent from calling routine.
; initialize working variables |
|
CD(VCD) | ; Is Patient Catastrophically disabled? If not, we need to examine patient's record to see if qualified for CD
; Whether qualified or not, if patient is listed as NOT CD, the rest of the rules should not be checked. Therefore, ; if DGCDIS("VCD") does not = "Y" system will exit after this rule without checking any further. |
|
701 | ;Catastrophic Disability 'Decided By' Cannot be 'HINQ'
|
|
702 | ;Catastrophic Disability 'Decided By' not valid
|
|
703 | ;"Catastrophic Disability 'Decided By' required"
|
|
704 | ;"Catastrophic Disability Review Date Required"
|
|
705 | ;"Catastrophic Disability Review Date Invalid"
|
|
706 | ;"CD Condition Score not valid"
|
|
707 | ;"CD Review Date greater than CD Date of Determination"
|
|
708 | ;"CD Status Affected Extremity' Invalid"
|
|
709 | ;"CD Status Diagnoses' Not Valid"
; .396 CD STATUS DIAGNOSES field (multiple): |
|
710 | ;"'CD Status Procedure' Not Valid"
; .397 CD STATUS PROCEDURES field (multiple): |
|
711 | ;"No CD Status Reason is Present"
|
|
712 | ;"'Date Of Catastophic Disability Decision' Not Valid"
|
|
713 | ;"'Date Of Catastophic Disability Decision' Required"
|
|
714 | ;"'Facility Making Catastrophic Disability Determination' Not Valid"
|
|
715 | ;"'Method Of Determination' Is A Required Value"
|
|
716 | ;"'Method Of Determination' Not Valid"
|
|
717 | ;"Not Enough Diagnoses/Procedures/Conditions To Qualify For CD Status"
|
|
718 | ;"Permanent Status Indicator' Not Valid"
|
|
719 | ;"'Veteran Catastrophically Disabled?' Field Must Have A Response"
; .39 VETERAN CATASTROPHICALLY DISABLED? field. |
|
720 | ;"Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD Status"
; We check this rule at the beginning of the routine. No need to check it here, ; but we need the label as a place holder. |
|
723 | ;"Catastrophic Disability Review date must be a precise date"
|
|
724 | ;"Catastrophic Disability Date of Decision must be a precise date"
|
|
725 | ;"Catastrophic Disability Procedure code must be accompanied with an Affected Extremity field"
; Procedure list = DGCDIS("PROC",ITEM) ; Affected Extremity list = DGCDIS("EXT",ITEM) ; This tag makes sure that there is at least one Affected Extremity for each procedure code. |
|
726 | ;"Catastrophic Disablity condition code requires a Score field"
; Condition list = DGCDIS("COND",ITEM) ; Score list = DGCDIS("SCORE",ITEM) |
|
727 | ||
728 | ||
FILE | ;file the inconsistencies in a temp global
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | CHK^DIE, EXTERNAL^DILFD |