DBIA2346 ICR (2346)

Name

Value

NUMBER

2346

IA #

2346

FILE NUMBER

GLOBAL ROOT

DPT(

DATE CREATED

1998/03/24

CUSTODIAL PACKAGE

REGISTRATION

CUSTODIAL ISC

Albany

USAGE

Private

TYPE

File

DBIC APPROVAL STATUS

APPROVED

NAME

DBIA2346

GENERAL DESCRIPTION

We were tasked to make the class III VIST software a
nationally supported product.  In doing so, we eliminated many of the
unsupported calls to other packages and files.  The following is a list of the
remaining unsupported calls to the PATIENT file (#2).  We will need a DBIA to
cover these calls.

GLOBAL REFERENCE

FIELD NUMBER

DPT(D0,.31)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

.314

Read w/Fileman

The original version of the option "Individual Patient
Record" references the  CLAIM FOLDER LOCATION field (#.312) of the PATIENT
File.  This was not on the supported reference list. This field, CLAIM FOLDER
LOCATION(#.312), has been starred for deletion. In our cleanup of the VIST
software, we replaced this with the new field CLAIM FOLDER LOCATION(#.314). We
will need a DBIA to allow this type of read.

The lines of code read:
S DIC="^DPT(",DA=DFN,DR=.314,DIQ="ANRV(" D EN^DIQ1
S ANRV(8)=ANRV(2,DFN,.314)

CLAIM FOLDER LOCATION

.31;4

.313

Read w/Fileman

The VARO CLAIMS file (#2043.5) has a print template [ANRV
CLAIM REQ INQ] used in the option "Individual Claims Record" that references
the CLAIM NUMBER field .313 in the PATIENT File (#2). We request read access
on the CLAIM NUMBER field in the PATIENT file via FileMan extended syntax.

CLAIM NUMBER

.31;3

DPT(D0,.372,D1,0)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

.01

Direct Global Read & w/Fileman

The routines used for the option "Individual Patient
Record"  reference the .372 node (Rated Disabilities sub-file).  This is not
on the supported reference list and I do not know of a supported API. We need
a DBIA to have read access on the .372 node of the PATIENT file.

The lines of code look like this:
F I=0:0 S I=$O(^DPT(DFN,.372,I)) Q:'I D
.S Y=+$G(^DPT(DFN,.372,I,0)),Y(1)=$P(^(0),U,2)

RATED DISABILITIES (VA)

.372,D1;1

.02

Direct Global Read & w/Fileman

The routines used for the option "Individual Patient
Record"  reference the .372 node (Rated Disabilities sub-file).  This is not
on the supported reference list and I do not know of a supported API. We need
a DBIA to have read access on the .372 node of the PATIENT file.

The lines of code look like this:
F I=0:0 S I=$O(^DPT(DFN,.372,I)) Q:'I D
.S Y=+$G(^DPT(DFN,.372,I,0)),Y(1)=$P(^(0),U,2)

PERCENTAGE

.372,D1;2

DPT(D0,.36)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

.361

Read w/Fileman

VIST ROSTER File (#2040) .01 Field trigger references the
PRIMARY ELIGIBILITY CODE Field (.361) in the PATIENT File.  The trigger moves
the current information from the PRIMARY ELIGIBILITY CODE field (.361) into
the VA ELIGIBILITY CODE field in the VIST ROSTER file when the patient's name
is added.   We request the ability to access this field via a FileMan trigger
cross-reference.

PRIMARY ELIGIBILITY CODE

.36;1

DPT(D0,.32)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

.323

Read w/Fileman

The VIST ROSTER File (#2040) contains a computed field
PERIOD OF SERVICE that uses the field PERIOD OF SERVICE .323 in the PATIENT
File.  We request a DBIA to access the PERIOD OF SERVICE field in the PATIENT
File (#2) via FileMan.

PERIOD OF SERVICE

.32;3

DPT(D0,.11)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

.117

Read w/Fileman

The VIST ROSTER file (#2040) contains a computed field
COUNTY (10) that uses the COUNTY field (.117) and the STATE field (.115) in
the PATIENT File (#2). We need to request a DBIA to access the COUNTY field
(.117) and the STATE field (.115) in the PATIENT file (#2) via FileMan.

The computed field has the following algorithm:

NAME:STATE:COUNTY:COUNTY:NAME_VA COUNTY CODE_COUNTY

The actual FileMan generated code reads as follows:

2040,10      COUNTY ; COMPUTED

MUMPS CODE:      X ^DD(2040,10,9.6)  S
X=X_$P(Y(2040,10,303),U,3)
_$P(Y(2040,10,303),U,1) S D0=Y(2040,10,80)
S D1=Y(2040,10,281)
9.2 = S I(200)="^DIC(5,",J(200)=5 F D=0:0
S (D,D1)=$N(^DIC(5,D0,1,D)) Q:D'>0  I
$D(^(D,0))#2 S
X=$P(^(0),U,1) X DICMX Q:'$D(D)  S D=D1
9.3 = S
Y(2040,10,80)=$S($D(D0):D0,1:""),Y(2040
,10,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),
D0=$P (Y(2040,10,1),U,1)
S:'$D(^DPT(+D0,0)) D0=-1 S Y
(2040,10,180)=$S($D(D0):D0,1:"")
9.4 = X ^DD(2040,10,9.3) S
Y(2040,10,101)=$S($D
(^DPT(D0,.11)):^(.11),1:""),D0=$P(Y(2040,1
0,101 ),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1 S
Y(2040,10,2 80)=$S($D(D0):D0,1:"")
9.5 = X ^DD(2040,10,9.4) S
Y(2040,10,281)=$S($D
(D1):D1,1:"") X ^DD(2040,10,9.2):D0>0 S
X="" K DIC S
Y=-1,DIC="^DIC(5,D0,1,",DIC(0)="NMF" D
^DIC:D0>0 S (D,D1)=+Y

COUNTY

.11;7

.115

Read w/Fileman

The VIST ROSTER file (#2040) contains a computed field
COUNTY (10)that uses the COUNTY field (.117) and the STATE field (.115) in the
PATIENT File (#2). We need to request a DBIA to access the COUNTY field (.117)
and the STATE field (.115) in the PATIENT file (#2) via FileMan.

The computed field has the following algorithm:

NAME:STATE:COUNTY:COUNTY:NAME_VA COUNTY CODE_COUNTY

The actual FileMan generated code reads as follows:

2040,10      COUNTY ; COMPUTED

MUMPS CODE:      X ^DD(2040,10,9.6)  S
X=X_$P(Y(2040,10,303),U,3)
_$P(Y(2040,10,303),U,1) S D0=Y(2040,10,80)
S D1=Y(2040,10,281)
9.2 = S I(200)="^DIC(5,",J(200)=5 F D=0:0 S
(D,D1)=$N(^DIC(5,D0,1,D)) Q:D'>0  I
$D(^(D,0))#2 S X=$P(^(0),U,1) X DICMX
Q:'$D(D) S D=D1
9.3 = S
Y(2040,10,80)=$S($D(D0):D0,1:""),Y(2040
,10,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""),
D0=$P (Y(2040,10,1),U,1)
S:'$D(^DPT(+D0,0)) D0=-1 S Y
(2040,10,180)=$S($D(D0):D0,1:"")
9.4 = X ^DD(2040,10,9.3) S
Y(2040,10,101)=$S($D
(^DPT(D0,.11)):^(.11),1:""),D0=$P(Y(2040,1
0,101),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1 S
Y(2040,10,2 80)=$S($D(D0):D0,1:"")
9.5 = X ^DD(2040,10,9.4) S
Y(2040,10,281)=$S($D
(D1):D1,1:"") X ^DD(2040,10,9.2):D0>0 S
X="" K DIC S
Y=-1,DIC="^DIC(5,D0,1,",DIC(0)="NMF" D
^DIC:D0>0 S (D,D1)=+Y

STATE

.11;5

STATUS

Active

DURATION

Till Otherwise Agreed

DPT(

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
VISUAL IMPAIRMENT SERVICE TEAM	Birmingham