Changeset 636 for FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMZ7CD.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVMZ7CD.m
r628 r636 1 IVMZ7CD ;CKN,BAJ ,ERC- HL7 Z07 CONSISTENCY CHECKER -- DEMOGRAPHIC SUBROUTINE ; 9/27/20062 ;;2.0;INCOME VERIFICATION MATCH;**105 ,127**;JUL 8,1996;Build 61 IVMZ7CD ;CKN,BAJ - HL7 Z07 CONSISTENCY CHECKER -- DEMOGRAPHIC SUBROUTINE ; 9/27/2006 2 ;;2.0;INCOME VERIFICATION MATCH;**105**;JUL 8,1996;Build 2 3 3 ; 4 4 ; Demographic Consistency Checks … … 69 69 Q 70 70 ; 71 306 ; VALID SSN/PSEUDO SSN REQUIRED , turned off with DG*5.3*77171 306 ; VALID SSN/PSEUDO SSN REQUIRED 72 72 N Z 73 73 S X=$P($G(DGP("PAT",0)),U,9) … … 83 83 Q 84 84 ; 85 307 ; PSEUDO SSN REASON REQUIRED , turned off with DG*5.3*77185 307 ; PSEUDO SSN REASON REQUIRED 86 86 S X=$P($G(DGP("PAT",0)),U,9) 87 87 I X]"",X["P",$P($G(DGP("PAT","SSN")),U)="" S FILERR(RULE)=""
Note:
See TracChangeset
for help on using the changeset viewer.