Print Page as PDF
DBIA375 ICR (375)

DBIA375    ICR (375)

Name Value
NUMBER 375
IA # 375
FILE NUMBER 424
GLOBAL ROOT PRC(424,
DATE CREATED 2003/09/02
CUSTODIAL PACKAGE IFCAP
CUSTODIAL ISC Washington
USAGE Private
TYPE File
NAME DBIA375
ORIGINAL NUMBER 375
GENERAL DESCRIPTION

Request a one time DBA agreement for patch RMRP*2*4.

When a Prosthetics New Purchase is initiated the estimated
amount of the Purchase is calculated using the %Discount
and the total cost for all items or services.  On occasion
the estimated amount may be a four decimal digit
(e.g. 165.4321) after the calculation is done.  Once the
calculation is completed the New Purchase is posted to
IFCAP and a 1358 Daily Record entry is created.
When the Prosthetics New Purchase Estimated amount is
posted to IFCAP it is rejected by Fileman because the Data
Dictionary for the Authorization amount field for file 424 will
only accept a two decimal digit number.  A incomplete 1358
Daily Record is created and the Authorization number is
passed back to the Prosthetics New Purchase.

Upon Close out of the Prosthetics Purchase an error message
'Insufficient authorization funds to post payment' is
displayed and the Prosthetics Purchase cannot be closed out
because the estimated amount was not posted when the
Purchase was initiated.

Patch RMPR*2*4 corrects this problem by using $JUSTIFY to
ensure that the Estimated amount for the initial Prosthetics
Purchase is rounded to a two decimal digit.

Patch RMPR*2*4 also has a conversion routine that will
correct the Phantom 1358 entries and allow the Prosthetics
Service to close out purchases associated with the
incomplete 1358 Daily Record entries.

The Conversion Routine RMPSCON finds all 1358 daily record
entries created by the DHCP Prosthetics Package that are
missing the authorization balance.  Routine RMPSCON reads
and updates the following fields in Files #442 (PROCUREMENT
AND ACCOUNTING TRANSACTIONS), 442.3 (PURCHASE ORDER STATUS),
424 (1358 DAILY RECORD FILE), and 424.1 (1358 AUTHORIZATION
DETAIL).
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER GLOBAL DESCRIPTION
PRC(424,D0,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Read w/Fileman AUTHORIZATION # 0;1
.02 Read w/Fileman OBLICATION # 0;2
.03 Write w/Fileman TRANSACTION TYPE 0;3
.05 Write w/Fileman AUTHORIZATION BALANCE 0;5
.07 Write w/Fileman DATE/TIME 0;7
.08 Write w/Fileman USER 0;8
.1 Write w/Fileman REFERENCE 0;10
.12 Write w/Fileman AUTHORIZATION AMOUNT 0;12
.13 Write w/Fileman ORIGINAL OBLIGATION AMOUNT 0;13
PRC(424,D0,1)
FIELD NUMBER ACCESS FIELD NAME LOCATION
1.1 Write w/Fileman COMMENTS 1;1
PRC(424,D0,2)
FIELD NUMBER ACCESS FIELD NAME LOCATION
4 Write w/Fileman INTERFACE ID 2;2
PRC(424,'AD',
Read access to check for an established obligation
number.
STATUS Retired
ID PRC(424,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
PROSTHETICS Salt Lake City