Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAQUTL98

VAQUTL98.m

Go to the documentation of this file.
  1. VAQUTL98 ;ALB/JFP,JRP - Builds Various Tables ;03FEB93
  1. ;;1.5;PATIENT DATA EXCHANGE;**6,13**;NOV 17, 1993
  1. ;
  1. TABLE ; *************** Tables ***************
  1. ;
  1. BADSSN ; -- Builds a table of invalid SSN
  1. F I=1:1 S BSSN=$P($T(BADSSN1+I),"^",2) Q:BSSN="" S BADSSN(BSSN)=""
  1. K BSSN
  1. QUIT
  1. BADSSN1 ;
  1. ;; ^000000000
  1. ;; ^111111111
  1. ;; ^222222222
  1. ;; ^333333333
  1. ;; ^444444444
  1. ;; ^555555555
  1. ;; ^666666666
  1. ;; ^777777777
  1. ;; ^888888888
  1. ;; ^999999999
  1. ;
  1. FLECHK ; -- Table of the multiples files assocoaited with file 2
  1. F I=1:1 S FILE=$P($T(FLECHK1+I),"^",2) Q:FILE="" S FLE(FILE)=""
  1. K FILE
  1. QUIT
  1. FLECHK1 ;
  1. ;; ^2.001^enrollment clinic
  1. ;; ^2.0361^eligibility
  1. ;; ^2.04^rated disability
  1. ;; ^2.101^
  1. ;; ^2.11^dental
  1. ;; ^2.16^
  1. ;; ^2.312^insurance
  1. ;; ^2.98^appt
  1. ;; ^36^insurance
  1. ;; ^355.3^insurance
  1. ;
  1. FLDCHK ; -- Table of nonloadable fields for file 2
  1. F I=1:1 S FIELD=$P($T(FLDCHK1+I),"^",2) Q:FIELD="" S FLD(FIELD)=""
  1. K FIELD
  1. QUIT
  1. FLDCHK1 ;
  1. ;; ^.306^MONETARY BEN. VERIFY DATE
  1. ;; ^.322^SERVICE VERIFICATION DATE
  1. ;; ^.3611^ELIGIBILITY STATUS
  1. ;; ^.3612^ELIGIBILITY STATUS DATE
  1. ;; ^.3613^*ELIG DATA STATUS NODE
  1. ;; ^.3614^ELIGIBILITY INTERIM RESPONSE
  1. ;; ^.3615^ELIGIBILITY VERIF. METHOD
  1. ;; ^.3616^ELIGIBILITY STATUS ENTERED BY
  1. ;; ^.3192^COVERED BY HEALTH INSURANCE
  1. ;