Changeset 636 for FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMZ7CR.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• INCOME_VERIFICATION_MATCH-IVM/IVMZ7CR.m (modified) (7 diffs)

FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMZ7CR.m

@@ -1 @@
-IVMZ7CR ;BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- REGISTRATION SUBROUTINE ; 12/6/07 8:51am
- ;;2.0;INCOME VERIFICATION MATCH;**105,127**;JUL 8,1996;Build 6
+IVMZ7CR ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- REGISTRATION SUBROUTINE ; 12/7/05 12:24pm
+ ;;2.0;INCOME VERIFICATION MATCH;**105**;JUL 8,1996;Build 2
  ;
  ; Registration Consistency Checks
@@ -15 +15 @@
  S SPDEP=$D(DGSD("DEP"))
  ; we do not count through all numbers to save routine space
- F RULE=4,7,9,11,13,15,16,19,24,29:1:31,34,60,72,74,75,76,78,81,83,85,86 I $D(^DGIN(38.6,RULE)) D
+ F RULE=4,7,9,11,13,15,16,19,24,29:1:31,34,60,72,74,78,81,83,85,86 I $D(^DGIN(38.6,RULE)) D
  . I $$ON(RULE) D @RULE
  I $D(FILERR) M ^TMP($J,DFN)=FILERR
@@ -100 +100 @@
  I $P(DGP("PAT",.321),U,2)="Y",$P(DGP("PAT",.321),U,13)="" S FILERR(RULE)=""
  Q
-72 ; MSE DATA MISSING/INCOMPLETE, turned off with DG*5.3*765
+72 ; MSE DATA MISSING/INCOMPLETE
  ; Note: Rule #513 in IVMZ7CS is a duplicate of this rule.
  N I,X
@@ -109 +109 @@
  Q
  ;
-74 ; CONFLICT DT MISSING/INCOMPLETE, turned off with DG*5.3*765 
- ; Note:#515 IVMZ7CS is a duplicate, turned off with DG*5.3*771
-75 ; ALSO # 75 CONFLICT TO DT BEFORE FROM DT
-76 ;      # 76 INACCURATE CONFLICT DATE, turned off with DG*5.3*771
+74 ; CONFLICT DT MISSING/INCOMPLETE
+ ; Note: Rule #515 in IVMZ7CS is a duplicate of this rule.
+ ; ALSO # 75 CONFLICT TO DT BEFORE FROM DT
+ ;      # 76 INACCURATE CONFLICT DATE
  ; 
- N I,T,FROM,TO,NODE,PCE,PCEFR,PCETO,CONFL,RANGE,RFR,RTO,RNGE,ERR,COM,ON74,ON75,ON76
- S ON74=$$ON(74),ON75=$$ON(75),ON76=$$ON(76)
+ N I,T,FROM,TO,RULE1,RULE2,NODE,PCE,PCEFR,PCETO,CONFL,RANGE,RFR,RTO,RNGE,ERR,COM,ON75,ON76
+ S RULE1=75,RULE2=76
+ S ON75=$$ON(75),ON76=$$ON(76)
  S I=$$RANGE^DGMSCK()    ; load range table
  F I=1:1 S CONFL=$P($T(CONLIST+I),";;",3) Q:CONFL="QUIT"  D
@@ -127 +128 @@
  . S FROM=$P(DGP("PAT",NODE),U,PCEFR),TO=$P(DGP("PAT",NODE),U,PCETO)
  . ; check rule 74 CONFLICT DT MISSING/INCOMPLETE
- . I ON74,(RULE=74) F T=FROM,TO I '$$YM^IVMZ7CS(T) S FILERR(RULE)="",ERR=1
+ . F T=FROM,TO I '$$YM^IVMZ7CS(T) S FILERR(RULE)="",ERR=1
  . Q:ERR
  . ; check rule 75 CONFLICT TO DT BEFORE CONFLICT FROM DT
- . I ON75,(RULE=75),(FROM>TO) S FILERR(RULE)="",ERR=1
+ . I ON75,FROM>TO S FILERR(RULE1)="",ERR=1
  . Q:ERR
  . ; check rule 76 INACCURATE CONFLICT DATE
@@ -137 +138 @@
  . ; determine whether dates are withing conflict range
  . S RFR=$P(RANGE(RNGE),U,1),RTO=$P(RANGE(RNGE),U,2)
- . I ON76,(RULE=76) D
- . . I '((RFR'>FROM)&((RTO'<TO))) S FILERR(RULE)=""
- Q
-78 ; INACCURATE COMBAT DT/LOC, turned off with DG*5.3*771
+ . I ON76 D
+ . . I '((RFR'>FROM)&((RTO'<TO))) S FILERR(RULE2)=""
+ Q
+78 ; INACCURATE COMBAT DT/LOC
  N I,T,FROM,TO,RULE,NODE,PCE,PCEFR,PCETO,CONFL,RANGE,RFR,RTO,RNGE,ERR,COM,ON78,LOC
  ; This tag checks COMBAT status and verifies that valid FROM & TO dates are found
@@ -157 +158 @@
  . I '(RFR'>FROM&((FROM'>RTO)&((RTO'<TO)&((TO'<RFR))))) S FILERR(RULE)=""
  Q
-81 ; COMBAT DT NOT WITHIN MSE, turned off with DG*5.3*765
+81 ; COMBAT DT NOT WITHIN MSE
  ; this code is copied from DGRP3
  ; MSFROMTO^DGMSCK creates a block for a continual MSE