VAQUTL98 ;ALB/JFP,JRP - Builds Various Tables ;03FEB93
;;1.5;PATIENT DATA EXCHANGE;**6,13**;NOV 17, 1993
;
TABLE ; *************** Tables ***************
;
BADSSN ; -- Builds a table of invalid SSN
F I=1:1 S BSSN=$P($T(BADSSN1+I),"^",2) Q:BSSN="" S BADSSN(BSSN)=""
K BSSN
QUIT
BADSSN1 ;
;; ^000000000
;; ^111111111
;; ^222222222
;; ^333333333
;; ^444444444
;; ^555555555
;; ^666666666
;; ^777777777
;; ^888888888
;; ^999999999
;
FLECHK ; -- Table of the multiples files assocoaited with file 2
F I=1:1 S FILE=$P($T(FLECHK1+I),"^",2) Q:FILE="" S FLE(FILE)=""
K FILE
QUIT
FLECHK1 ;
;; ^2.001^enrollment clinic
;; ^2.0361^eligibility
;; ^2.04^rated disability
;; ^2.101^
;; ^2.11^dental
;; ^2.16^
;; ^2.312^insurance
;; ^2.98^appt
;; ^36^insurance
;; ^355.3^insurance
;
FLDCHK ; -- Table of nonloadable fields for file 2
F I=1:1 S FIELD=$P($T(FLDCHK1+I),"^",2) Q:FIELD="" S FLD(FIELD)=""
K FIELD
QUIT
FLDCHK1 ;
;; ^.306^MONETARY BEN. VERIFY DATE
;; ^.322^SERVICE VERIFICATION DATE
;; ^.3611^ELIGIBILITY STATUS
;; ^.3612^ELIGIBILITY STATUS DATE
;; ^.3613^*ELIG DATA STATUS NODE
;; ^.3614^ELIGIBILITY INTERIM RESPONSE
;; ^.3615^ELIGIBILITY VERIF. METHOD
;; ^.3616^ELIGIBILITY STATUS ENTERED BY
;; ^.3192^COVERED BY HEALTH INSURANCE
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQUTL98 1397 printed Oct 16, 2024@18:27:49 Page 2
VAQUTL98 ;ALB/JFP,JRP - Builds Various Tables ;03FEB93
+1 ;;1.5;PATIENT DATA EXCHANGE;**6,13**;NOV 17, 1993
+2 ;
TABLE ; *************** Tables ***************
+1 ;
BADSSN ; -- Builds a table of invalid SSN
+1 FOR I=1:1
SET BSSN=$PIECE($TEXT(BADSSN1+I),"^",2)
if BSSN=""
QUIT
SET BADSSN(BSSN)=""
+2 KILL BSSN
+3 QUIT
BADSSN1 ;
+1 ;; ^000000000
+2 ;; ^111111111
+3 ;; ^222222222
+4 ;; ^333333333
+5 ;; ^444444444
+6 ;; ^555555555
+7 ;; ^666666666
+8 ;; ^777777777
+9 ;; ^888888888
+10 ;; ^999999999
+11 ;
FLECHK ; -- Table of the multiples files assocoaited with file 2
+1 FOR I=1:1
SET FILE=$PIECE($TEXT(FLECHK1+I),"^",2)
if FILE=""
QUIT
SET FLE(FILE)=""
+2 KILL FILE
+3 QUIT
FLECHK1 ;
+1 ;; ^2.001^enrollment clinic
+2 ;; ^2.0361^eligibility
+3 ;; ^2.04^rated disability
+4 ;; ^2.101^
+5 ;; ^2.11^dental
+6 ;; ^2.16^
+7 ;; ^2.312^insurance
+8 ;; ^2.98^appt
+9 ;; ^36^insurance
+10 ;; ^355.3^insurance
+11 ;
FLDCHK ; -- Table of nonloadable fields for file 2
+1 FOR I=1:1
SET FIELD=$PIECE($TEXT(FLDCHK1+I),"^",2)
if FIELD=""
QUIT
SET FLD(FIELD)=""
+2 KILL FIELD
+3 QUIT
FLDCHK1 ;
+1 ;; ^.306^MONETARY BEN. VERIFY DATE
+2 ;; ^.322^SERVICE VERIFICATION DATE
+3 ;; ^.3611^ELIGIBILITY STATUS
+4 ;; ^.3612^ELIGIBILITY STATUS DATE
+5 ;; ^.3613^*ELIG DATA STATUS NODE
+6 ;; ^.3614^ELIGIBILITY INTERIM RESPONSE
+7 ;; ^.3615^ELIGIBILITY VERIF. METHOD
+8 ;; ^.3616^ELIGIBILITY STATUS ENTERED BY
+9 ;; ^.3192^COVERED BY HEALTH INSURANCE
+10 ;
