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 |
