STANDARD DATA DICTIONARY #420.99 -- IFCAP TEMP FCP SNAPSHOT FILE                                                  3/24/25    PAGE 1
STORED IN ^PRCU(420.99,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                     (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------



CROSS
REFERENCED BY: ID(AB), ID(B)



420.99,.01    ID                     0;1 FREE TEXT (Required)

              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.  



420.99,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.  


420.99,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.  


420.99,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 


420.99,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.  


420.99,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.  


420.99,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.  


420.99,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.  


420.99,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.  


420.99,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.  


420.99,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.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):
PRCF FMS ADJUSTMENTS          AUG 09, 1994@16:00  USER #0                                FMS CONVERSION - CONTROL POINT ADJUSTMENTS

SORT TEMPLATE(S):
PRCF FMS ADJUSTMENTS          AUG 09, 1994@16:04  USER #0    
SORT BY: ]'FMS A="YES";L1// (FMS A=""YES"")
  WITHIN FMS A="YES", SORT BY: CP TYPE;S2// (CP TYPE not null)
    WITHIN CP TYPE, SORT BY: ID// (ID not null)


FORM(S)/BLOCK(S):