Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AUTTSSA

Package: Utility Tables

Global: ^AUTTSSA

Information

FileMan FileNo	FileMan Filename	Package
9999999.56	SUB-SUB-ACTIVITY	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA.

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Commitment Register	10	ACRFDTP2 ACRFDTP4 ACRFFDS ACRFNY2 ACRFODOC ACRFPAA ACRFPSS ACRFSOF1 ACRFUP1 ACRPSSA

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Commitment Register	3	ACRFFDS ACRFHM ACRFNY3
NCR Financial System	1	AFSHTBUP

Pointed To By FileMan Files, Total: 8

Package	Total	FileMan Files
Commitment Register	6	FMS SUB-ALLOWANCE(#9002187)[80] FMS ALLOWANCE(#9002186)[80] ARMS CAN(#9002186.5)[.05, .21] FMS DISTRIBUTION(#9002191)[.07] FMS DEPARTMENT ACCOUNT(#9002188)[80] FMS REQUEST(#9002189)[.07]
Supply	1	ASUTBL SUB-SUB ACTIVITY(#9002039.17)[.02]
Utility Tables	1	COMMON ACCOUNTING NUMBER(#9999999.57)[.05]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Utility Tables	4	ALLOWANCE NO.(#9999999.52)[.05] BUDGET ACTIVITY(#9999999.54)[10] COST CENTER(#9999999.58)[30] SUB-ACTIVITY(#9999999.55)[20]

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	SSA	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `NOV 22, 1989` HELP-PROMPT: `Answer must be 2 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.56^B` 1)= S ^AUTTSSA("B",$E(X,1,30),DA)="" 2)= K ^AUTTSSA("B",$E(X,1,30),DA)
.02	NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `NOV 22, 1989` HELP-PROMPT: `Answer must be 2-30 characters in length.` CROSS-REFERENCE: `9999999.56^C` 1)= S ^AUTTSSA("C",$E(X,1,30),DA)="" 2)= K ^AUTTSSA("C",$E(X,1,30),DA)
.03	SSA NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<8)!'(X?2N1"."2N1"."2N) X` LAST EDITED: `FEB 16, 1994` HELP-PROMPT: `ANSWER MUST BE 8 CHARACTERS IN LENGTH`
.04	SHORT NAME	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Answer must be 2-10 characters in length.`
.05	ALLOWANCE	0;5	POINTER TO ALLOWANCE NO. FILE (#9999999.52)	ALLOWANCE NO.(#9999999.52) LAST EDITED: `MAY 05, 1992`
1	SSA YTD	BA;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the AMOUNT field of the FMS SUB-ALLOWANCE File` TRIGGERED by the SSA field of the FMS SUB-ALLOWANCE File CROSS-REFERENCE: `^^TRIGGER^9999999.56^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.56,1,1,1,1.1) X ^DD(9999999.56,1,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,5) 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.56,DIG=4 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(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.56,1,1,1,2.1) X ^DD(9999999.56,1,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=X+$P(Y(1),U,5) 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.56,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= SSA YTD-TOTAL OBLIGATIONS YTD DELETE VALUE)= OLD SSA YTD+TOTAL OBLIGATIONS YTD FIELD)= BALANCE
2	REQUESTED YTD	BA;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the SSA field of the FMS REQUEST File` CROSS-REFERENCE: `^^TRIGGER^9999999.56^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.56,2,1,1,1.1) X ^DD(9999999.56,2,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=DIV+$P(Y(1),U,3) 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.56,DIG=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(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.56,2,1,1,2.1) X ^DD(9999999.56,2,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=X+$P(Y(1),U,3) 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.56,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= REQUESTED YTD+SPENT YTD DELETE VALUE)= OLD REQUESTED YTD+SPENT YTD FIELD)= TOTAL OBLIGATIONS YTD
3	SPENT YTD	BA;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the SSA field of the FMS REQUEST File` CROSS-REFERENCE: `^^TRIGGER^9999999.56^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.56,3,1,1,1.1) X ^DD(9999999.56,3,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,2)+DIV 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.56,DIG=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(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.56,3,1,1,2.1) X ^DD(9999999.56,3,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,2)-X 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.56,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= REQUESTED YTD+SPENT YTD DELETE VALUE)= REQUESTED YTD-OLD SPENT YTD FIELD)= TOTAL OBLIGATIONS
4	BALANCE	BA;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the SSA YTD field of the SUB-SUB-ACTIVITY File` TRIGGERED by the TOTAL OBLIGATIONS YTD field of the SUB-SUB-ACTIVITY File
5	TOTAL OBLIGATIONS YTD	BA;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the REQUESTED YTD field of the SUB-SUB-ACTIVITY File` TRIGGERED by the SPENT YTD field of the SUB-SUB-ACTIVITY File CROSS-REFERENCE: `^^TRIGGER^9999999.56^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.56,5,1,1,1.1) X ^DD(9999999.56,5,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)-DIV 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.56,DIG=4 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(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.56,5,1,1,2.1) X ^DD(9999999.56,5,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)+X 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.56,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= SSA YTD-TOTAL OBLIGATIONS DELETE VALUE)= SSA YTD+OLD TOTAL OBLIGATIONS YTD FIELD)= BALANCE
10	ACTIVITY	DT;1	POINTER TO BUDGET ACTIVITY FILE (#9999999.54)	BUDGET ACTIVITY(#9999999.54) LAST EDITED: `MAR 13, 1990`
20	SUB-ACTIVITY	DT;2	POINTER TO SUB-ACTIVITY FILE (#9999999.55)	SUB-ACTIVITY(#9999999.55) LAST EDITED: `MAR 13, 1990`
30	COST CENTER	DT;3	POINTER TO COST CENTER FILE (#9999999.58)	COST CENTER(#9999999.58) LAST EDITED: `MAR 13, 1990`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All