Changeset 636 for FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 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/IVMCM.m (modified) (2 diffs)
• INCOME_VERIFICATION_MATCH-IVM/IVMZ07C.m (modified) (2 diffs)
• INCOME_VERIFICATION_MATCH-IVM/IVMZ7CD.m (modified) (3 diffs)
• INCOME_VERIFICATION_MATCH-IVM/IVMZ7CE.m (modified) (2 diffs)
• INCOME_VERIFICATION_MATCH-IVM/IVMZ7CR.m (modified) (7 diffs)

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

@@ -1 +1 @@
 IVMCM ;ALB/SEK,KCL,RTK,AEG,BRM,AEG - PROCESS INCOME TEST (Z10) TRANSMISSIONS ; 04/23/03 1:43pm
- ;;2.0;INCOME VERIFICATION MATCH;**12,17,28,41,44,53,34,49,59,55,63,77,74,123**;21-OCT-94;Build 6
+ ;;2.0;INCOME VERIFICATION MATCH;**12,17,28,41,44,53,34,49,59,55,63,77,74**;21-OCT-94
  ;
  ;
@@ -142 +142 @@
  .S SOURCE=$P($G(^TMP($J,"IVMCM","ZMT1")),HLFS,22)
  .S IVMLAST=$$LST^DGMTU(DFN,$E(IVMMTDT,1,3)_1231,1)
- .; Check that test is for same year
- .I $P(IVMLAST,U,2),$E($P(IVMLAST,U,2),1,3)'=$E(IVMMTDT,1,3) S IVMLAST=""
- .I $$Z06MT^EASPTRN1(+IVMLAST) D PROB^IVMCMC("IVM Means Test already on file for this year") Q
+ .I $$Z06MT^EASPTRN1(+IVMLAST) Q
  .I '$$ELIG^IVMUFNC5(DFN) S ERRMSG="Means Test upload not appropriate for current patient"
  .I $$AGE^IVMUFNC5(DT)>$$INCY^IVMUFNC5(IVMMTDT) D

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

@@ -1 @@
-IVMZ07C ;BAJ/PHH - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 1/17/2008
- ;;2.0;INCOME VERIFICATION MATCH;**105,128**;JUL 8,1996;Build 2
+IVMZ07C ;BAJ - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE ; 9/27/2006
+ ;;2.0;INCOME VERIFICATION MATCH;**105**;JUL 8,1996;Build 2
  ;
  ; 
@@ -100 +100 @@
  S DTTM=$O(^DGMS(29.11,"APDT",DFN,""),-1)
  I DTTM'="" D
- . S NIEN=$O(^DGMS(29.11,"APDT",DFN,DTTM,""),-1)
+ . S DTTM=$O(^DGMS(29.11,"APDT",DFN,""))
+ . S NIEN=$O(^DGMS(29.11,"APDT",DFN,DTTM,""))
  . I $D(^DGMS(29.11,NIEN,0)) S DGP("MST",0)=^DGMS(29.11,NIEN,0)
  ;

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

@@ -1 @@
-IVMZ7CD ;CKN,BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- DEMOGRAPHIC SUBROUTINE ; 9/27/2006
- ;;2.0;INCOME VERIFICATION MATCH;**105,127**;JUL 8,1996;Build 6
+IVMZ7CD ;CKN,BAJ - HL7 Z07 CONSISTENCY CHECKER -- DEMOGRAPHIC SUBROUTINE ; 9/27/2006
+ ;;2.0;INCOME VERIFICATION MATCH;**105**;JUL 8,1996;Build 2
  ;
  ; Demographic Consistency Checks
@@ -69 +69 @@
  Q
  ;
-306 ; VALID SSN/PSEUDO SSN REQUIRED, turned off with DG*5.3*771
+306 ; VALID SSN/PSEUDO SSN REQUIRED
  N Z
  S X=$P($G(DGP("PAT",0)),U,9)
@@ -83 +83 @@
  Q
  ;
-307 ; PSEUDO SSN REASON REQUIRED, turned off with DG*5.3*771
+307 ; PSEUDO SSN REASON REQUIRED
  S X=$P($G(DGP("PAT",0)),U,9)
  I X]"",X["P",$P($G(DGP("PAT","SSN")),U)="" S FILERR(RULE)=""

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

@@ -1 @@
-IVMZ7CE ;TDM,BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- SERVICE SUBROUTINE ; 12/4/07 2:56pm
- ;;2.0;INCOME VERIFICATION MATCH;**105,127**;JUL 8,1996;Build 6
+IVMZ7CE ;TDM,BAJ - HL7 Z07 CONSISTENCY CHECKER -- SERVICE SUBROUTINE ; 01/23/07
+ ;;2.0;INCOME VERIFICATION MATCH;**105**;JUL 8,1996;Build 2
  ;
  ; Eligibility Consistency Checks
@@ -61 +61 @@
  ;
 409 ; AGREE TO PAY DEDUCT INVALID
- ; this CC inactivated by DG*5.3*771
  ; 2  PENDING ADJUDICATION     MEANS TEST
  ; 6  MT COPAY REQUIRED     MEANS TEST

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