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: ^PRCU(420.99

Package: IFCAP

Global: ^PRCU(420.99


Information

FileMan FileNo FileMan Filename Package
420.99 IFCAP TEMP FCP SNAPSHOT IFCAP

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IFCAP 1 PRCFOOR2    

Fields, Total: 11

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>13!($L(X)<10)!'(X?3N1"-"2N1"-"1N1"-"1.4N) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Answer must be 10-13 characters in length. Format = site-fy-qtr-cp
  • DESCRIPTION:  
    This is the ID number for the snapshot.
  • CROSS-REFERENCE:  420.99^B
    1)= S ^PRCU(420.99,"B",$E(X,1,30),DA)=""
    2)= K ^PRCU(420.99,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  420.99^AB^MUMPS
    1)= S ^PRCU(420.99,"AB",$P(X,"-",1)_"-"_+$P(X,"-",4),DA)=""
    2)= K ^PRCU(420.99,"AB",$P(X,"-",1)_"-"_+$P(X,"-",4),DA)
    This cross reference is utilized to quickly select a station and control point.
  • CROSS-REFERENCE:  ^^TRIGGER^420.99^2.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.99,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(420.99,.01,1,3,1.1) X ^DD(420.99,.01,1,3,1.4)
    1.1)= S X=DIV S X=DIV,Y(1)=X S X="-",Y(2)=X S X=3,X=$P(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^PRCU(420.99,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.99,DIG=2.5 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(^PRCU(420.99,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(420.99,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^PRCU(420.99,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.99,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= $P(ID,"-",3)
    DELETE VALUE)= @
    FIELD)= SNAPSHOT QTR
    This cross reference is used to quickly determine the quarter in which the snapshot is taken.
1 SNAPSHOT DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 25, 1994
  • DESCRIPTION:  
    This is the date on which the snapshot was taken.
2 SNAPSHOT AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the snapshot amount.
2.5 SNAPSHOT QTR 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the snapshot quarter.
  • NOTES:  TRIGGERED by the ID field of the IFCAP TEMP FCP SNAPSHOT File
3 1QTR AMT 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the dollar amount for the first quarter.
4 2QTR AMT 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the dollar amount for the second quarter.
5 3QTR AMT 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  MAY 26, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the dollar amount for the third quarter.
6 FMS BALANCE 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the control point balance in FMS.
7 FMS VARIANCE 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  JUN 03, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the variance between FMS and IFCAP control point balance.
8 FMS ADJUSTMENT APPLIED 0;10 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 03, 1994
  • DESCRIPTION:  
    This field indicates whether the FMS adjustment has been applied to the control point balance.
9 CP TYPE 0;11 SET
  • '0' FOR STANDARD;
  • '1' FOR GENERAL POST FUND;
  • '2' FOR SUPPLY FUND;
  • '3' FOR CASCA;
  • '4' FOR CANTEEN;

  • LAST EDITED:  JUL 18, 1994
  • DESCRIPTION:  
    This field contains a code indicating the type of control point.
Info |  Desc |  Accessed By FileMan Db Calls |  Fields