STANDARD DATA DICTIONARY #440.7 -- MONTHLY ACCRUAL FILE 3/24/25 PAGE 1
STORED IN ^PRCH(440.7, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
During the compile performed in option Accrual (Monthly) [PRCB MONTHLY ACCRUAL], entries are added to this file listing total
unpaid and unreconciled credit card order amounts by budget string "Fund/Beginning Budget Fiscal Year/ Administration or Staff
Office/Accounting Classification Code/Cost Center/BOC" within month and station. This file then serves as the source for generating
the appropriate SV documents to be sent to FMS.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B)
440.7,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JAN 10, 1997
HELP-PROMPT: Answer must be 1-45 characters in length.
CROSS-REFERENCE: 440.7^B
1)= S ^PRCH(440.7,"B",X,DA)=""
2)= K ^PRCH(440.7,"B",X,DA)
440.7,1 COMPILING DATE 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 1996
DESCRIPTION:
This is the date/time the accrual is compiled.
440.7,2 FMS DOCUMENT COMPILE DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 16, 1996
DESCRIPTION:
this is the date/time the SV-doc is sent to FMS.
440.7,3 DOCUMENT AMOUNT 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-999999999) X
LAST EDITED: SEP 13, 1996
HELP-PROMPT: Type a Dollar Amount between -999999999 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is the document total amount.
440.7,4 DOCUMENT COUNTER 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1996
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
This is the counter used to generate doc's id.
440.7,5 EDIT DATE 0;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 05, 1996
DESCRIPTION:
This is the date of editing.
440.7,6 FMS DOCUMENT ID 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: NOV 08, 1996
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
This is used for FMS documents data.
440.7,50 DOCUMENT LINE 50;0 Multiple #440.701 (Add New Entry without Asking)
DESCRIPTION:
This is the doc line multiple.
440.701,.01 LINE ID 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JUL 03, 1997
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
This is the document line id.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the COST CENTER field of the DOCUMENT LINE sub-field of the MONTHLY ACCRUAL File
TRIGGERED by the BOC field of the DOCUMENT LINE sub-field of the MONTHLY ACCRUAL File
CROSS-REFERENCE: 440.701^B
1)= S ^PRCH(440.7,DA(1),50,"B",X,DA)=""
2)= K ^PRCH(440.7,DA(1),50,"B",X,DA)
CROSS-REFERENCE: 440.701^MACC^MUMPS
1)= S:$P(X,"/",4)]"" ^PRCH(440.7,DA(1),50,"MACC",$P(X,"/",4),DA)=""
2)= K:$P(X,"/",4)]"" ^PRCH(440.7,DA(1),50,"MACC",$P(X,"/",4),DA)
This is an index by ACC code.
440.701,1 UNPAID AMOUNT 0;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
LAST EDITED: SEP 13, 1996
HELP-PROMPT: Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the unpaid amount for purchase card orders.
440.701,2 UNRECONCILED AMOUNT 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
LAST EDITED: SEP 13, 1996
HELP-PROMPT: Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the unreconciled total amount of a specific month in file 440.6.
440.701,3 FCP NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 16, 1996
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is the fund control point number.
440.701,4 EDITED ACCRUAL AMOUNT 0;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
LAST EDITED: NOV 05, 1996
HELP-PROMPT: Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is the accrual amount edited by user.
440.701,5 COST CENTER 0;6 POINTER TO COST CENTER FILE (#420.1)
LAST EDITED: JAN 10, 1997
DESCRIPTION:
This is a cost center data
CROSS-REFERENCE: ^^TRIGGER^440.701^.01
1)= X ^DD(440.701,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(
1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,1.1) X ^DD(440.701,5,1,1,1.4)
1.1)= S X=DIV X ^DD(440.701,5,1,1,49.3) S X=$P(Y(8),Y(9),Y(10),X) S Y=X,X=Y(7),X=X_Y
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,5,1,1,69.2) S X=$S('$
D(^PRCD(420.1,+Y(0),0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(
4),X=X'=Y
1.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,
DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= X ^DD(440.701,5,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(
1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,2.1) X ^DD(440.701,5,1,1,2.4)
2.1)= S X=DIV X ^DD(440.701,5,1,1,59.2) S X=$P(Y(5),Y(6),Y(7),X) S Y=X,X=Y(4),X=X_Y
2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0
)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=5,X=$P(Y(2),Y(3),X)]""
2.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,
DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
49.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_"/",Y(4)=X S X=$S('$
D(^PRCD(420.1,+DIV,0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1
49.3)= X ^DD(440.701,5,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_"/",Y(7)=X S X=DIU,Y(8)=X S
X="/",Y(9)=X S X=6,Y(10)=X S X=999
59.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_"//",Y(4)=X S X=DIU,
Y(5)=X S X="/",Y(6)=X S X=6,Y(7)=X S X=999
69.2)= S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=
5,X=$P(Y(2),Y(3),X),Y(4)=X
CREATE CONDITION)= $P(LINE ID,"/",5)'=$P(COST CENTER," ",1)
CREATE VALUE)= $P(LINE ID,"/",1,4)_"/"_$P(COST CENTER," ",1)_"/"_$P(LINE ID,"/",6,999)
DELETE CONDITION)= $P(LINE ID,"/",5)]""
DELETE VALUE)= $P(LINE ID,"/",1,4)_"//"_$P(LINE ID,"/",6,999)
FIELD)= LINE ID
This is a trigger cross-reference.
440.701,6 BOC 0;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: JAN 10, 1997
DESCRIPTION:
This is a BOC data.
CROSS-REFERENCE:^^TRIGGER^440.701^.01
1)= X ^DD(440.701,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(
1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,1.1) X ^DD(440.701,6,1,1,1.4)
1.1)= S X=DIV X ^DD(440.701,6,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,6,1,1,69.2) S X=$S('$
D(^PRCD(420.2,+Y(0),0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(
4),X=X'=Y
1.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,
DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= X ^DD(440.701,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(
1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,2.1) X ^DD(440.701,6,1,1,2.4)
2.1)= S X=DIV S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_"/"
2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0
)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=6,X=$P(Y(2),Y(3),X)]""
2.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,
DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
49.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_"/",Y(4)=X S X=$S('$
D(^PRCD(420.2,+DIV,0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1
69.2)= S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=
6,X=$P(Y(2),Y(3),X),Y(4)=X
CREATE CONDITION)= $P(LINE ID,"/",6)'=$P(BOC," ",1)
CREATE VALUE)= $P(LINE ID,"/",1,5)_"/"_$P(BOC," ",1)
DELETE CONDITION)= $P(LINE ID,"/",6)]""
DELETE VALUE)= $P(LINE ID,"/",1,5)_"/"
FIELD)= LINE ID
This is a trigger cross-reference.
FILES POINTED TO FIELDS
BUDGET OBJECT CODE (#420.2) DOCUMENT LINE:BOC (#6)
COST CENTER (#420.1) DOCUMENT LINE:COST CENTER (#5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):