STANDARD DATA DICTIONARY #420.96 -- IFCAP/FMS OBLIGATION RECONCILIATION REPORT FILE 9/29/25 PAGE 1
STORED IN ^PRCU(420.96, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information necessary to print the 850 report after the OOP message is processed from Austin.
CROSS
REFERENCED BY: STATUS(AC), STATION NUMBER(AD), ID(B)
420.96,.01 ID 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5)!'(X'?1P.E) X
LAST EDITED: DEC 07, 1994
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
This is the OOP document ID number from FMS.
CROSS-REFERENCE: 420.96^B
1)= S ^PRCU(420.96,"B",$E(X,1,30),DA)=""
2)= K ^PRCU(420.96,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^420.96^.5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X
S DIU=X K Y X ^DD(420.96,.01,1,2,1.1) X ^DD(420.96,.01,1,2,1.4)
1.1)= S X=DIV S X=DIV,Y(1)=X S X="-",Y(2)=X S X=1,X=$P(Y(1),Y(2),X)
1.4)= S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X
S DIU=X K Y S X="" X ^DD(420.96,.01,1,2,2.4)
2.4)= S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= $P(ID,"-",1)
DELETE VALUE)= @
FIELD)= STATION
420.96,.5 STATION NUMBER 0;8 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X
LAST EDITED: DEC 07, 1994
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
This is the station number of the site receiving the 850 report.
NOTES: TRIGGERED by the ID field of the IFCAP/FMS OBLIGATION RECONCILIATION REPORT File
CROSS-REFERENCE: 420.96^AD
1)= S ^PRCU(420.96,"AD",$E(X,1,30),DA)=""
2)= K ^PRCU(420.96,"AD",$E(X,1,30),DA)
420.96,1 CALM/FMS UDO AMT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION:
This is the undelivered obligation dollar amount from CALM or FMS.
420.96,2 FMS FUND CONTROL POINT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<9) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Answer must be 9 characters in length.
DESCRIPTION:
This field contains the FMS fund control point.
420.96,2.5 FMS LINE NUMBER 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This field references the FMS line number on the document.
420.96,3 IFCAP DOCUMENT NUMBER 0;4 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: JUN 09, 1994
DESCRIPTION:
This field contains the IFCAP document number.
420.96,4 IFCAP UDO AMT 0;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
LAST EDITED: JUN 09, 1994
HELP-PROMPT: Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
DESCRIPTION:
This field contains the undelivered order amount from IFCAP.
420.96,5 STATUS 0;6 SET
'1' FOR IFCAP OPEN/NO FMS RECORD;
'2' FOR IFCAP CLOSED/ FMS OPEN;
'3' FOR UDO'S OUT OF BALANCE;
'0' FOR VALID DOCUMENT;
'4' FOR NO IFCAP RECORD/ FMS OPEN;
LAST EDITED: JUN 16, 1994
DESCRIPTION:
This field contains a status code for the type of obligation reconciliation.
CROSS-REFERENCE: 420.96^AC
1)= S ^PRCU(420.96,"AC",$E(X,1,30),DA)=""
2)= K ^PRCU(420.96,"AC",$E(X,1,30),DA)
This cross reference allows for fast printing of 850 report.
FILES POINTED TO FIELDS
PROCUREMENT & ACCOUNTING TRANS
(#442) IFCAP DOCUMENT NUMBER (#3)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PRCFOOR4 DEC 19, 1994@12:08 USER #0 IFCAP/FMS OBLIGATION RECONCILIATION REPORT
PRCFOOR4X DEC 07, 1994@17:08 USER #0 IFCAP/FMS OBLIGATION RECONCILIATION REPORT LIST
SORT TEMPLATE(S):
PRCFOOR4 DEC 19, 1994@12:06 USER #0
SORT BY: '@STATION NUMBER// (User is asked range)
WITHIN STATION NUMBER, SORT BY: #STATUS;S2//
WITHIN STATUS, SORT BY: ID//
FORM(S)/BLOCK(S):