Changeset 636 for FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMCM.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/IVMCM.m (modified) (2 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