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):