Print Page as PDF
DBIA2346 ICR (2346)

DBIA2346    ICR (2346)

Name Value
NUMBER 2346
IA # 2346
FILE NUMBER 2
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
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
ID DPT(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
VISUAL IMPAIRMENT SERVICE TEAM Birmingham