DSICDPT    ICR (5371)

Pointer to file#2 (patient DFN, or IEN).  You must
pass either field DFN or SSN.

The 9 or 10 digit SSN (field .09 from file#2).

This is a boolean flag (1 or 0).   The default value
is zero. If one, then always return the patient's permanent address
information.

Optional field to determine whether or not to return
the confidential address information.  If passed, then TODAY will be the
default date to use to check to see if a confidential address is active for
that date.  format = p1^p2 where:
p1=confidential address category - this is a string of
one or more numerics, e.g, 134, where category
numbers are:
1 for Eligibility/Enrollment
2 for Appointment/Scheduling
3 for Co-payments/Veterans Billing
4 for Medical Records
5 for All Others

p2 = fileman date to determine if confidential date
is effective.  Default value is TODAY

If DSIFLG=0, return state abbreviation, a 5 or 9
zip-code, and county name. If DSIFLG=1, return ien to file 5^state name^state
abbreviation internal form of zip code^external zip code multiple ien
value^county name.

Passed by reference.  Contains the following array
data:
DSICDAT()  Description
---------  ----------------------
1      patient name
2      ssn;dashed ssn
3      dob int;ext
4      age
5      sex
6      date of death int;ext
7      race
8      religion
9      marital status
10      employment status
11      1st st add
12      2nd st add
13      3rd st add
14      city
15      state
16      zip
17      county
18      home phone
19      work phone
20      LastName^FirstName^Middle^Suffix/Title
------------------------------------------------
see routine documentation for details
21      confidential address bitmap
22      street address 1
23      street address 2
24      street address 3
25      city
26      state abbr
27      zip
28      county
----------------------------------------------
29      primary elig^other elig^other elig^
30      1 if patient is a veteran, else 0
31      code^name of current means test status

Patient lookup value, can be pointer to file#2 (DFN)
or SSN (field .09 fr file #2 entry).

This Boolean (0, 1) flag indicates whether or not PAT
(the patient lookup
value) is a SSN value.

Boolean - if allowed & equal to 1 then TAG was called
as an extrinsic function, else it was called a DO (w/params).

Returns ICN^flag where ICN is either a national or
local ICN with checksum.  Flag is N:national; L:local.