DBIA2346    ICR (2346)

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)

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.

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)

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)

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.

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.

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

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