Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUTL5.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 )
• DSS_EXTRACTS-ECX/ECXUTL5.m (modified) (2 diffs)

FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUTL5.m

@@ -1 @@
-ECXUTL5 ;ALB/JRC - Utilities for DSS Extracts ; 10/17/07 3:49pm
- ;;3.0;DSS EXTRACTS;**71,84,92,103,105**;Dec 22, 1997;Build 70
+ECXUTL5 ;ALB/JRC - Utilities for DSS Extracts ; 01/18/07 9:04am
+ ;;3.0;DSS EXTRACTS;**71,84,92,103**;Dec 22, 1997;Build 1
  ;
 REPEAT(CHAR,TIMES) ;REPEAT A STRING
@@ -207 +207 @@
  D DIQ^PSODI(DIC,DIC,DR,DA,DIQ)
  Q $S($G(ECXDIQ(52,DA,116))="YES":"Y",$G(ECXDIQ(52,DA,116))="NO":"N",1:"")
- ;
-SSN(SSN,FILE) ; extended validation of ssn
- ;       input:     ssn - social security number to validate
- ;                  file - optional "", 2 or 67, the only check is for
- ;                         reference lab file (#67) in which case ssn
- ;                         "000123456" is considered a valid ssn.
- ;        output:   0 - test patient or invalid ssn
- ;                  1 - valid ssn
- ;
- ;check input
- I $G(SSN)']"" Q 0
- S FILE=$G(FILE)
- I (FILE=67)&(SSN="000123456") Q 1
- I "89"[$E(SSN) Q 0
- I (SSN="123456789")!(SSN="111111111")!(SSN="222222222")!(SSN="333333333")!(SSN="444444444")!(SSN="555555555")!($E(SSN,1,3)="666")!($E(SSN,4,5)="00")!($E(SSN,1,3)="000") Q 0
- Q 1