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

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)
  ;