STANDARD DATA DICTIONARY #421.6 -- FUND DISTRIBUTION (TEMP TRANS) FILE 3/24/25 PAGE 1
STORED IN ^PRCF(421.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used by the Funds Distribution module to distribute funds to Control Point.
CROSS
REFERENCED BY: FROM CONTROL POINT(AC), TO CONTROL POINT(AD), TRANSACTION NUMBER(B)
421.6,.01 TRANSACTION NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>17!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: AUG 16, 1989
HELP-PROMPT: ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
DESCRIPTION:
This is the temporary transaction number.
CROSS-REFERENCE: 421.6^B
1)= S ^PRCF(421.6,"B",$E(X,1,30),DA)=""
2)= K ^PRCF(421.6,"B",$E(X,1,30),DA)
421.6,1 FROM CONTROL POINT 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE")) X I $D(X) S DIC="^PRC(420,"_PRC("SITE")_",1,",DIC(
0)="EMNQ" K DIC("S") D ^DIC S X=$P(Y,"^",2) K:Y<0 X K DIC
LAST EDITED: APR 28, 1994
HELP-PROMPT: ANSWER WITH CONTROL POINT NUMBER
DESCRIPTION:
This is the Fund Control Point (FCP) which funds are being transferred from.
EXECUTABLE HELP: I $D(PRC("SITE")) S ZD=$G(D),X="?",Z0=+PRC("SITE") Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",
DIC(0)="QEM",DIC("S")="I +$P(^(0),U)<9999" D ^DIC K DIC("S") S DIC=$G(DIE),D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 421.6^AC^MUMPS
1)= I $D(PRCF("SIFY")) S Z=$P($$APP^PRC0C(PRC("SITE"),$P(PRCF("SIFY"),"-",2),+X),U) I Z'="" S $P(^P
RCF(421.6,DA,0),U,7)=PRCF("SIFY")_"-"_Z K Z
2)= S:$D(PRCF("SIFY")) $P(^PRCF(421.6,DA,0),U,7)=""
This cross reference is used to set the control point from which funds are being transferred on the
record.
421.6,1.5 BBFY 0;9 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y,X=X-(X#10000) K:3990000X) X
LAST EDITED: MAR 29, 1994
HELP-PROMPT: Enter a year between 1900 and 2099.
DESCRIPTION:
This is used to store BBFY data.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
421.6,2 TO CONTROL POINT 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE"))!('$D(PRCB("FRCP"))) X I $D(X) S DIC="^PRC(420,"_PR
C("SITE")_",1,",DIC(0)="EMNQ",DIC("S")="I $P(^(0),U)'=PRCB(""FRCP"")" D ^DIC S X=$P(Y,"^",2) K:Y<0
X K DIC
LAST EDITED: MAR 29, 1994
HELP-PROMPT: ANSWER WITH CONTROL POINT NUMBER
DESCRIPTION:
This is the Fund Control Point (FCP) which funds are being transferred to.
EXECUTABLE HELP: I $D(PRC("SITE")) S ZD=D,X="?",Z0=+PRC("SITE") Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(
0)="QEM" S:$D(PRCB("FRCP")) DIC("S")="I $P(^(0),U)'=PRCB(""FRCP"")" D ^DIC K DIC("S") S DIC=DIE,D=Z
D K ZD,Z0
CROSS-REFERENCE: 421.6^AD^MUMPS
1)= I $D(PRCF("SIFY")) S Z=$P($$APP^PRC0C(PRC("SITE"),$P(PRCF("SIFY"),"-",2),+X),U) I Z'="" S $P(^P
RCF(421.6,DA,0),U,8)=PRCF("SIFY")_"-"_Z K Z
2)= S:$D(PRCF("SIFY")) $P(^PRCF(421,DA,0),U,8)=""
This cross reference is used to set the control point to which funds are being transferred on the
record.
421.6,3 AMOUNT TO TRANSFER 0;4 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<.01) X D:$D(X) DOLLAR^PRCBE
LAST EDITED: MAY 27, 1994
HELP-PROMPT: Type a Dollar Amount between .01 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is the amount of funds being transferred.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
421.6,4 TRANSACTION DATE 0;5 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 03, 1989
DESCRIPTION:
This is the date of transfer.
421.6,4.5 QUARTER 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1"1"!(X?1"2")!(X?1"3")!(X?1"4")) X
LAST EDITED: SEP 01, 1989
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION:
This is the FY quarter in which transfer is to take place.
421.6,5 DESCRIPTION 1;0 WORD-PROCESSING #421.65
DESCRIPTION:
This is the transfer description.
LAST EDITED: FEB 15, 1989
DESCRIPTION:
This is the transfer description.
421.6,6 APPROPRIATION FROM FCP 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 29, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the appropriation symbol of the FCP transferring funds.
421.6,7 APPROPRIATION TO FCP 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 29, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the appropriation symbol of the FCP receiving funds.
421.6,8 RECURRING/NON-RECURRING 2;1 SET (Required)
'NR' FOR NON-RECURRING;
'R' FOR RECURRING;
LAST EDITED: APR 15, 1989
DESCRIPTION:
This field is an indicator for receiving transmissions.
421.6,9 ANNUALIZATION AMOUNT 2;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
LAST EDITED: APR 15, 1989
HELP-PROMPT: Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is the dollar amount of annual transmissions.
421.6,22 PAYMENT CONTACT PERSON 7;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the vendor contact person for payments.
421.6,23 PAYMENT PHONE NO. 7;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>18!($L(X)<3) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
DESCRIPTION:
This is the vendor phone number for payments.
421.6,24 PAYMENT ADDRESS1 7;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>33!($L(X)<1) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
DESCRIPTION:
This is the vendor payment address.
421.6,25 PAYMENT ADDRESS2 7;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>33!($L(X)<1) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
DESCRIPTION:
This is the second vendor payment address.
421.6,26 PAYMENT ADDRESS3 7;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
DESCRIPTION:
This is the third vendor payment address.
421.6,27 PAYMENT ADDRESS4 7;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
DESCRIPTION:
This is the fourth vendor payment address.
421.6,28 PAYMENT CITY 7;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the city of the vendor address.
421.6,29 PAYMENT STATE 7;8 POINTER TO STATE FILE (#5)
LAST EDITED: JUN 19, 1989
DESCRIPTION:
This is the state of the vendor address.
421.6,30 PAYMENT ZIP CODE 7;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ENTER 5 DIGIT OR 9 DIGIT ZIP CODE IN THE FOLLOWING FORMAT: 11111 OR 11111-1111
DESCRIPTION:
This is the zip code of the vendor address.
421.6,31 CALM ID NUMBER 7;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
DESCRIPTION:
This is the vendor CALM ID.
421.6,32 CALM STUB NAME 7;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUN 19, 1989
HELP-PROMPT: ANSWER MUST BE 3 CHARACTERS IN LENGTH
DESCRIPTION:
This is the vendor stub name.
421.6,33 VENDOR NAME 8;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 20, 1989
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the name of the vendor receiving payments.
421.6,34 FMS VENDOR CODE 7;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: APR 20, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This is used to store FMS VENDOR CODE data.
421.6,35 ALT-ADDR-IND 7;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: APR 20, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
This is used to store ALT-ADDR-IND data.
FILES POINTED TO FIELDS
STATE (#5) PAYMENT STATE (#29)
INPUT TEMPLATE(S):
PRCB FMS VENDOR EDIT APR 21, 1994@17:45 USER #0
PRCB READER FILE EDIT MAY 30, 1994@15:52 USER #0
PRCB VENDOR EDIT JUL 20, 1989 USER #0
PRINT TEMPLATE(S):
PRCB READER DISP JUL 17, 1989 USER #0 ^PRCBTCP @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):