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 | Fields | All

Print Page as PDF

Global: ^AUTTPRO

Package: Utility Tables

Global: ^AUTTPRO

Information

FileMan FileNo	FileMan Filename	Package
9999999.51	APPROPRIATION NO.	Utility Tables

Description

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

Directly Accessed By Routines, Total: 21

Package	Total	Routines
Commitment Register	21	ACRALC ACRALT ACRAPP ACRFCAA ACRFCLOS ACRFDTP2 ACRFDTP4 ACRFEA4 ACRFFDH ACRFIV13 ACRFNY ACRFNY2 ACRFNY3 ACRFODOC ACRFPAY1 ACRFPSS ACRLOC ACRPREQ ACRPTO ACRPTOH ACRPTOS

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Commitment Register	3	ACRFNY3 ACRFPAY1 ACRFPAY7

Pointed To By FileMan Files, Total: 8

Package	Total	FileMan Files
Commitment Register	7	FMS SUB-ALLOWANCE(#9002187)[40] FMS ALLOWANCE(#9002186)[40] FMS APPROPRIATION(#9002185)[.02, 40] ARMS CAN(#9002186.5)[.03] FMS DOCUMENT(#9002196)[113090, 130020] FMS DEPARTMENT ACCOUNT(#9002188)[40] FMS REQUEST(#9002189)[.09]
Utility Tables	1	COMMON ACCOUNTING NUMBER(#9999999.57)[.03]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>18!($L(X)<7)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER MUST BE 7-18 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.51^B` 1)= S ^AUTTPRO("B",$E(X,1,30),DA)="" 2)= K ^AUTTPRO("B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-4 CHARACTERS IN LENGTH`
1	APPROPRIATED 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 APPROPRIATION File` TRIGGERED by the APPROPRIATION NO. field of the FMS APPROPRIATION File CROSS-REFERENCE: `^^TRIGGER^9999999.51^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.51,1,1,1,1.1) X ^DD(9999999.51,1,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,5) 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.51,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(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.51,1,1,1,2.1) X ^DD(9999999.51,1,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=X+$P(Y(1),U,5) 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.51,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= APPROPRIATED YTD-TOTAL OBLIGATIONS DELETE VALUE)= OLD APPROPRIATED YTD+TOTAL OBLIGATIONS FIELD)= BALANCE
2	REQUESTED YTD	BA;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X` LAST EDITED: `MAR 13, 1990` HELP-PROMPT: `Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits` NOTES: `TRIGGERED by the APPROPRIATION NO. field of the FMS REQUEST File` CROSS-REFERENCE: `^^TRIGGER^9999999.51^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9999999.51,2,1,1,1.4) 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.51,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(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9999999.51,2,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.51,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= TOTAL OBLIGATIONS+REQUESTED YTD DELETE VALUE)= TOTAL OBLIGATIONS-OLD REQUESTED YTD FIELD)= TOTAL OBLIGATIONS
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 APPROPRIATION NO. field of the FMS REQUEST File` CROSS-REFERENCE: `^^TRIGGER^9999999.51^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9999999.51,3,1,1,1.4) 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.51,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(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.51,3,1,1,2.1) X ^DD(9999999.51,3,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5)-X 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.51,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= TOTAL OBLIGATIONS+SPENT YTD DELETE VALUE)= TOTAL OBLIGATION-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 APPROPRIATED YTD field of the APPROPRIATION NO. File` TRIGGERED by the TOTAL OBLIGATIONS field of the APPROPRIATION NO. File
5	TOTAL OBLIGATIONS	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 APPROPRIATION NO. File` TRIGGERED by the SPENT YTD field of the APPROPRIATION NO. File CROSS-REFERENCE: `^^TRIGGER^9999999.51^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.51,5,1,1,1.1) X ^DD(9999999.51,5,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)-DIV 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.51,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(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.51,5,1,1,2.1) X ^DD(9999999.51,5,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)+X 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.51,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= APPROPRIATED YTD-TOTAL OBLIGATIONS DELETE VALUE)= APPROPRIATED YTD+OLD TOTAL OBLIGATIONS FIELD)= BALANCE
6	IMN NO.	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `JAN 19, 1996` HELP-PROMPT: `Answer must be 3 numeric characters in length.` CROSS-REFERENCE: `9999999.51^C` 1)= S ^AUTTPRO("C",$E(X,1,30),DA)="" 2)= K ^AUTTPRO("C",$E(X,1,30),DA)

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