Global: ^PRCF(421.6

FileMan FileNo	FileMan Filename	Package
421.6	FUND DISTRIBUTION (TEMP TRANS)	IFCAP

Package	Total	Routines
IFCAP	5	ITEM SPECIFIC INFORMATION PRCBSTF PRCBTCP PRCBVE ^PRCF(421.6

Package	Total	Routines
IFCAP	2	PRCBSTF PRCBVE

Package	Total	FileMan Files
Kernel	1	STATE(#5)[29]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	TRANSACTION NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
1	FROM CONTROL POINT	0;2	FREE TEXT	**********************REQUIRED FIELD********************** 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(^PRCF(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.`
1.5	BBFY	0;9	DATE	**********************REQUIRED FIELD********************** 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`
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,"_PRC("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=ZD 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(^PRCF(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.`
3	AMOUNT TO TRANSFER	0;4	NUMBER	**********************REQUIRED FIELD********************** 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`
4	TRANSACTION DATE	0;5	DATE	**********************REQUIRED FIELD********************** 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.`
4.5	QUARTER	0;6	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
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.`
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.`
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.`
8	RECURRING/NON-RECURRING	2;1	SET	**********************REQUIRED FIELD********************** 'NR' FOR NON-RECURRING; 'R' FOR RECURRING; LAST EDITED: `APR 15, 1989` DESCRIPTION: `This field is an indicator for receiving transmissions.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
29	PAYMENT STATE	7;8	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `JUN 19, 1989` DESCRIPTION: `This is the state of the vendor address.`
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.`
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.`
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.`
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.`
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.`
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.`

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	1(HELP ), 2(HELP )
^PRCF(421 - [#421]	2(XREF 1K)
^PRCF(421.6 - [#421.6]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1.5+1, 4+1
>> D	1(HELP ), 2(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
DIC	1+1!, 1(HELP ), 2+1!, 2(HELP )
DIC("S"	1+1!, 1(HELP ), 2+1*, 2(HELP )
DIC(0	1+1, 1(HELP ), 2+1, 2(HELP )
>> DIE	1(HELP ), 2(HELP )
>> PRC("SITE"	1+1, 1(HELP ), 1(XREF 1S), 2+1, 2(HELP ), 2(XREF 1S)
>> PRCB("FRCP"	2+1, 2(HELP )
>> PRCF("SIFY"	1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
U	1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(HELP ), 1(XREF 1S), 1.5+1!, 2+1!, 2(HELP ), 2(XREF 1S) , 3+1!, 4+1!, 4.5+1!, 6+1!, 7+1!, 9+1!, 22+1!, 23+1!, 24+1!, 25+1! , 26+1!, 27+1!, 28+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1!, 35+1!
>> Y	1+1, 1.5+1, 2+1, 4+1
Z	1(XREF 1S), 2(XREF 1S)
Z0	1(HELP ), 2(HELP )
ZD	1(HELP ), 2(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRCF(421.6

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 26

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	1.5+1, 4+1
^DIC	1+1, 1(HELP ), 2+1, 2(HELP )
$$APP^PRC0C	1(XREF 1S), 2(XREF 1S)
DOLLAR^PRCBE	3+1