- 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 Dec 13, 2024@02:27:06 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 ;