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

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 8

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