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 |  Fields
Print Page as PDF
Global: ^PRCS(417.1

Package: IFCAP

Global: ^PRCS(417.1


Information

FileMan FileNo FileMan Filename Package
417.1 FMS EXCEPTIONS IFCAP

Description

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IFCAP 2 PRCSREC1    PRCSREC4    

Fields, Total: 23

Field # Name Loc Type Details
.01 FMS REFERENCE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    This filed holds the FMS transaction reference number, in the format FMS trans. number_transmission date.
    SOURCE OF DATA: IFCAP
  • CROSS-REFERENCE:  417.1^B
    1)= S ^PRCS(417.1,"B",X,DA)=""
    2)= K ^PRCS(417.1,"B",X,DA)
1 BEGINNING BUDGET FISCAL YEAR 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  DEC 28, 1999
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the beginning budget fiscal year.
2 ENDING BUDGET FISCAL YEAR 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  DEC 28, 1999
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the ending budget fiscal year.
3 FISCAL YEAR 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  DEC 28, 1999
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the fiscal year.
  • CROSS-REFERENCE:  ^^TRIGGER^417.1^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(417.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(417.1,3,1,1,1.1) X ^DD(417.1,3,1,1,1.4)
    1.1)= S X=DIV S X=DIV>70,Y(1)=X S X=2,Y(2)=X S X=1,Y(3)=X S X=3,X=$S(Y(1):Y(2),Y(3):X)_DIV_"0000"
    1.4)= S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 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(^PRCS(417.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(417.1,3,1,1,2.4)
    2.4)= S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= $S(#3>70:2,1:3)_#3_"0000"
    DELETE VALUE)= @
    FIELD)= #30
    This cross reference converts the 2 digit FISCAL YEAR to an internal FileMan date and stuffs the value in field #30, which is used in sorts.
4 FISCAL QUARTER 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    This is the fiscal quarter.
5 FUND 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the fund returned on the transaction.
6 ADMINISTRATIVE STAFF/OFFICE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JAN 17, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the administrative staff/office.
7 STATION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the station number returned on the transaction.
8 PROGRAM 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3) X
  • LAST EDITED:  MAR 09, 1995
  • HELP-PROMPT:  Answer must be 3-6 characters in length.
  • DESCRIPTION:  
    This is the program, if any, returned on the transaction.
9 FCP/PROJECT 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-9 characters in length.
  • DESCRIPTION:  
    This is the fund control point/project.
10 COST CENTER 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 17, 1995
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the cost center returned on the transaction.
11 SUB COST CENTER 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the sub cost center, if any, returned on the transaction.
12 REPORTING CATEGORY 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-9 characters in length.
  • DESCRIPTION:  
    This is the reporting category for the control point returned in the transaction.
13 JOB NUMBER 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-6 characters in length.
  • DESCRIPTION:  
    This is the job number.
14 BUDGET OBJECT CODE 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the budget object code for the cost center returned in the transaction.
15 BUDGET OBJECT CLASS 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<3) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 3-9 characters in length.
  • DESCRIPTION:  
    This is the budget object class for the cost center returned in the transaction.
16 TRANSACTION CODE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 2-3 characters in length.
  • DESCRIPTION:  
    This is the transaction code for the original FMS document which the transmission was generated against.
17 TRANSACTION NUMBER 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<4) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Answer must be 4-9 characters in length.
  • DESCRIPTION:  
    This is the transaction number.
18 LINE NUMBER 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line number returned in the transmission.
19 TRANSACTION AMOUNT 0;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the transaction amount returned in the transmission.
20 STA-FY-QTR-CP 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<6) X
  • LAST EDITED:  FEB 09, 1995
  • HELP-PROMPT:  Answer must be 6-20 characters in length.
  • DESCRIPTION:  
    This field is used to set up the "C" cross reference used to create the quarterly FMS Exception Report.
  • CROSS-REFERENCE:  417.1^C
    1)= S ^PRCS(417.1,"C",$E(X,1,30),DA)=""
    2)= K ^PRCS(417.1,"C",$E(X,1,30),DA)
    This index is used to hold the station-fiscal year-quarter -control point string used for lookups when generating the FMS Exceptions Report.
21 TRANSACTION DATE 0;22 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X ^DD("DD")
  • LAST EDITED:  JAN 17, 1995
  • DESCRIPTION:  
    This is the transaction date, when FMS actually created the transaction.
30 FY DATE 1;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 28, 1999
  • HELP-PROMPT:  Enter 2 or 4 digit Fiscal Year in which the transaction occurs.
  • DESCRIPTION:  
    This field is the Fiscal Year stored as a FileMan date.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the FISCAL YEAR field of the FMS EXCEPTIONS File
Info |  Desc |  Accessed By FileMan Db Calls |  Fields