Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^PRCF(421.6

Package: IFCAP

Global: ^PRCF(421.6


Information

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

Description

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IFCAP 2 PRCBSTF    PRCBVE    

Pointer To FileMan Files, Total: 1

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields