Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IVMZ7CCD

IVMZ7CCD.m

Go to the documentation of this file. 
  1. IVMZ7CCD ;BAJ,TGH - HL7 Z07 CONSISTENCY CHECKER -- CATASTROPHIC DISABILITY SUBROUTINE ; 11/9/05 9:30am
  1.  ;;2.0;INCOME VERIFICATION MATCH;**105,132,158**;JUL 8,1996;Build 44
  1.  ;
  1.  ; Catastrophic Disability Consistency Checks
  1.  ; This routine checks the various elements of catastrophic disability information
  1.  ; prior to building a Z07 record.  Any tests which fail consistency check will be
  1.  ; saved to the ^DGIN(38.6 record for the patient.
  1.  ;
  1.  ;
  1.  ; Must be called from entry point
  1.  Q
  1.  ;
  1. EN(DFN) ; entry point.  Patient DFN is sent from calling routine.
  1.  ; initialize working variables
  1.  N RULE,Y,DGCDIS,PASS,FILERR
  1.  ; patient array DGCDIS can be populated by a call to $$GET^DGENCDA(DFN,.DGCDIS) as follows:
  1.  ;
  1.  ; S PASS=$$GET^DGENCDA(DFN,.DGCDIS)
  1.  ;
  1.  ; and creates an array similar to this:
  1.  ;       DGCDIS("BY")="DR. JOHN"
  1.  ;       DGCDIS("COND",1)="48"
  1.  ;       DGCDIS("DATE")="3050926"
  1.  ;       DGCDIS("DIAG",1)="8"
  1.  ;       DGCDIS("DTFACIRV")=""
  1.  ;       DGCDIS("DTVETNOT")=""
  1.  ;       DGCDIS("FACDET")="16660"
  1.  ;       DGCDIS("METDET")="3"
  1.  ;       DGCDIS("PERM",1)="1"
  1.  ;       DGCDIS("REVDTE")="3050926"
  1.  ;       DGCDIS("SCORE",1)="6"
  1.  ;       DGCDIS("VCD")="Y"
  1.  ;       DGCDIS("VETREQDT")=""
  1.  ;
  1.  ; if the patient has no CD data on file, the API will return the following:
  1.  ;       DGCDIS=""
  1.  ;       DGCDIS("BY")=""
  1.  ;       DGCDIS("DATE")=""
  1.  ;       DGCDIS("DTFACIRV")=""
  1.  ;       DGCDIS("DTVETNOT")=""
  1.  ;       DGCDIS("FACDET")=""
  1.  ;       DGCDIS("METDET")=""
  1.  ;       DGCDIS("REVDTE")=""
  1.  ;       DGCDIS("VCD")=""
  1.  ;       DGCDIS("VETREQDT")=""
  1.  ;
  1.  S PASS=$$GET^DGENCDA(DFN,.DGCDIS)
  1.  ;
  1.  ; In cases where patient is not listed as catastrophically disabled, routine should check to see if patient could potentially
  1.  ; qualify for CD.  If patient qualifies and is not listed as CD, an inconsistency should be filed.  Otherwise continue.
  1.  ; If patient is not listed as CD, regardless of potential, further checks are not necessary as the rest depend on CD="YES"
  1.  ;
  1.  I '$$CD(DGCDIS("VCD")="Y") D  Q
  1.  . I $D(FILERR) D FILE
  1.  ;
  1.  ; loop through rules in INCONSISTENT DATA ELEMENTS file.
  1.  ; execute only the rules where CHECK/DON'T CHECK and INCLUDE IN Z07 CHECKS fields are turned ON.
  1.  ; 
  1.  ; ***NOTE loop boundary (701-728) must be changed if rule numbers are added ***
  1.  F RULE=701:1:728 I $D(^DGIN(38.6,RULE)) D      ;IVM*2.0*158
  1.  . S Y=^DGIN(38.6,RULE,0)
  1.  . I $P(Y,"^",6) D @RULE
  1.  I $D(FILERR) D FILE
  1.  Q
  1.  ;
  1. CD(VCD) ; Is Patient Catastrophically disabled?  If not, we need to examine patient's record to see if qualified for CD
  1.  ; Whether qualified or not, if patient is listed as NOT CD, the rest of the rules should not be checked.  Therefore,
  1.  ; if DGCDIS("VCD") does not = "Y" system will exit after this rule without checking any further.
  1.  I VCD Q 1
  1.  I $$ISCD^DGENCDA1(.DGCDIS) S FILERR(720)=""
  1.  Q 0
  1.  ;
  1. 701 ;Catastrophic Disability 'Decided By' Cannot be 'HINQ'
  1.  I $G(DGCDIS("BY"))="HINQ" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 702 ;Catastrophic Disability 'Decided By' not valid
  1.  I ($L(DGCDIS("BY"))<3)!($L(DGCDIS("BY"))>35) S FILERR(RULE)=""
  1.  Q
  1. 703 ;"Catastrophic Disability 'Decided By' required"
  1.  I $G(DGCDIS("BY"))="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 704 ;"Catastrophic Disability Review Date Required"
  1.  I $G(DGCDIS("REVDTE"))="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 705 ;"Catastrophic Disability Review Date Invalid"
  1.  N RESULT
  1.  D CHK^DIE(2,.394,,DGCDIS("REVDTE"),.RESULT)
  1.  I RESULT="^" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 706 ;"CD Condition Score not valid"
  1.  N ITEM,ERR
  1.  S ITEM="",ERR=0
  1.  F  S ITEM=$O(DGCDIS("COND",ITEM)) Q:ITEM=""  D
  1.  . I '$$VALID^DGENA5(DGCDIS("COND",ITEM),$G(DGCDIS("SCORE",ITEM))) S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 707 ;"CD Review Date greater than CD Date of Determination"
  1.  I $G(DGCDIS("REVDTE"))>$G(DGCDIS("DATE")) S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 708 ;"CD Status Affected Extremity' Invalid"
  1.  N ITEM,EIEN,ERR
  1.  S ITEM="",ERR=0
  1.  F  S ITEM=$O(DGCDIS("PROC",ITEM)) Q:ITEM=""  D
  1.  . S EIEN="" F  S EIEN=$O(DGCDIS("EXT",ITEM,EIEN)) Q:EIEN=""  D
  1.  . . I '$$LIMBOK^DGENA5(DGCDIS("PROC",ITEM),DGCDIS("EXT",ITEM,EIEN)) S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 709 ;"CD Status Diagnoses' Not Valid"
  1.  ; .396 CD STATUS DIAGNOSES field (multiple):
  1.  N ITEM,ERR
  1.  S ITEM="",ERR=0
  1.  F  S ITEM=$O(DGCDIS("DIAG",ITEM)) Q:ITEM=""  D
  1.  . I $$TYPE^DGENA5(DGCDIS("DIAG",ITEM))'="D" S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 710 ;"'CD Status Procedure' Not Valid"
  1.  ; .397 CD STATUS PROCEDURES field (multiple):
  1.  N ITEM,ERR
  1.  S ITEM="",ERR=0
  1.  F  S ITEM=$O(DGCDIS("PROC",ITEM)) Q:ITEM=""  D
  1.  . I $$TYPE^DGENA5(DGCDIS("PROC",ITEM))'="P" S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 711 ;"No CD Status Reason is Present"
  1.  I '($D(DGCDIS("DIAG"))!$D(DGCDIS("PROC"))!$D(DGCDIS("COND"))!$D(DGCDIS("DESCR"))) S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 712 ;"'Date Of Catastophic Disability Decision' Not Valid"
  1.  N RESULT,OK,EXTERNAL
  1.  S OK=0
  1.  I $G(DGCDIS("DATE"))'="" S OK=1 D
  1.  . S EXTERNAL=$$EXTERNAL^DILFD(2,.392,"",DGCDIS("DATE"))
  1.  . I EXTERNAL="" S OK=0 Q
  1.  . D CHK^DIE(2,.392,,EXTERNAL,.RESULT) I RESULT="^" S OK=0
  1.  I 'OK S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 713 ;"'Date Of Catastophic Disability Decision' Required"
  1.  I $G(DGCDIS("DATE"))="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 714 ;"'Facility Making Catastrophic Disability Determination' Not Valid"
  1.  I DGCDIS("VCD")'=""!(DGCDIS("FACDET")'=""),$$EXTERNAL^DILFD(2,.393,"",$G(DGCDIS("FACDET")))="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 715 ;"'Method Of Determination' Is A Required Value"
  1.  I $G(DGCDIS("METDET"))="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 716 ;"'Method Of Determination' Not Valid"
  1.  I ".2.3."'[("."_$G(DGCDIS("METDET"))_".") S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 717 ;"Not Enough Diagnoses/Procedures/Conditions To Qualify For CD Status"
  1.  I '$$ISCD^DGENCDA1(.DGCDIS) S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 718 ;"Permanent Status Indicator' Not Valid"
  1.  N ITEM
  1.  S ITEM="" F  S ITEM=$O(DGCDIS("COND",ITEM)) Q:ITEM=""  D
  1.  . I ".1.2.3."'[("."_DGCDIS("PERM",ITEM)_".") S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 719 ;"'Veteran Catastrophically Disabled?' Field Must Have A Response"
  1.  ; .39 VETERAN CATASTROPHICALLY DISABLED? field.
  1.  I DGCDIS("VCD")="" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 720 ;"Veteran Has Enough Diagnoses/Procedures/Conditions To Qualify For CD Status"
  1.  ; We check this rule at the beginning of the routine.  No need to check it here,
  1.  ; but we need the label as a place holder.
  1.  Q
  1.  ;
  1. 723 ;"Catastrophic Disability Review date must be a precise date"
  1.  N RESULT
  1.  D CHK^DIE(2,.394,,DGCDIS("REVDTE"),.RESULT)
  1.  I RESULT="^" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 724 ;"Catastrophic Disability Date of Decision must be a precise date"
  1.  N RESULT
  1.  D CHK^DIE(2,.392,,DGCDIS("DATE"),.RESULT)
  1.  I RESULT="^" S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 725 ;"Catastrophic Disability Procedure code must be accompanied with an Affected Extremity field"
  1.  ; Procedure list = DGCDIS("PROC",ITEM)
  1.  ; Affected Extremity list = DGCDIS("EXT",ITEM)
  1.  ; This tag makes sure that there is at least one Affected Extremity for each procedure code.
  1.  N ITEM,ERR
  1.  S ERR=0,ITEM=""
  1.  F  S ITEM=$O(DGCDIS("PROC",ITEM)) Q:ITEM=""  D
  1.  . I '$D(DGCDIS("EXT",ITEM)) S ERR=1 Q
  1.  . I $G(DGCDIS("EXT",ITEM))="" S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 726 ;"Catastrophic Disablity condition code requires a Score field"
  1.  ; Condition list = DGCDIS("COND",ITEM)
  1.  ; Score list = DGCDIS("SCORE",ITEM)
  1.  N ITEM,ERR
  1.  S ERR=0,ITEM=""
  1.  F  S ITEM=$O(DGCDIS("COND",ITEM)) Q:ITEM=""  D
  1.  . I '$D(DGCDIS("SCORE",ITEM)) S ERR=1 Q
  1.  . I $G(DGCDIS("SCORE",ITEM))="" S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. 727  ;"'CD Status Descriptor' Not Valid"  -  IVM*2.0*158
  1.  ; .401 CD STATUS DESCRIPTORS field (multiple):
  1.  N ITEM,ERR
  1.  S ITEM="",ERR=0
  1.  F  S ITEM=$O(DGCDIS("DESCR",ITEM)) Q:ITEM=""  D
  1.  . I $$TYPE^DGENA5(DGCDIS("DESCR",ITEM))'="DE" S ERR=1
  1.  I ERR S FILERR(RULE)=""
  1.  Q
  1.  ; 
  1. 728  ;"No 'CD Descriptors' Selected"  -  IVM*2.0*158
  1.  I '($D(DGCDIS("DIAG"))!$D(DGCDIS("PROC"))!$D(DGCDIS("COND"))!$D(DGCDIS("DESCR"))) S FILERR(RULE)=""
  1.  Q
  1.  ;
  1. FILE ;file the inconsistencies in a temp global
  1.  M ^TMP($J,DFN)=FILERR
  1.  Q
  1.  ;