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 | Found Entries | All

Print Page as PDF

Global: ^ACRFDIS

Package: Commitment Register

Global: ^ACRFDIS

Information

FileMan FileNo	FileMan Filename	Package
9002191	FMS DISTRIBUTION	Commitment Register

Description

Summary information on all distributions, requested, obligated and expended funds for each CAN and OBJECT CODE in ARMS.

Directly Accessed By Routines, Total: 1

Package	Total	Routines
Commitment Register	1	ACRFDIS

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Commitment Register	1	ACRFDIS

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Commitment Register	1	FMS REQUEST(#9002189)[.11]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
Commitment Register	3	FMS SUB-ALLOWANCE(#9002187)[.05] ARMS CAN(#9002186.5)[.06] FMS DEPARTMENT ACCOUNT(#9002188)[.04]
Utility Tables	3	ALLOWANCE NO.(#9999999.52)[.08] OBJECT/SUB-OBJECT(#9999999.59)[.03] SUB-SUB-ACTIVITY(#9999999.56)[.07]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	AMOUNT	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits` DESCRIPTION: Enter the dollar AMOUNT of this distribution. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^9002188^.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002191,.01,1,2,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002191,.01,1,2,1.4) 1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002188,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002191,.01,1,2,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002191,.01,1,2,2.4) 2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002188,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRFDIS(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") CREATE VALUE)= TOTAL DISTRIBUTIONS+AMOUNT DELETE VALUE)= TOTAL DISTRIBUTIONS-OLD AMOUNT FIELD)= LOCAL BUDGET:TOTAL DISTRIBUTIONS
.02	DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the date of this distribution.` DESCRIPTION: Enter the DATE on which this distribution is being made.
.03	OBJECT CLASS CODE	0;3	POINTER TO OBJECT/SUB-OBJECT FILE (#9999999.59)	OBJECT/SUB-OBJECT(#9999999.59) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the OBJECT CLASS CODE from the list to which these funds are being distributed. CROSS-REFERENCE: `9002191^OC` 1)= S ^ACRFDIS("OC",$E(X,1,30),DA)="" 2)= K ^ACRFDIS("OC",$E(X,1,30),DA) Used for look-up of distributions by OBJECT CLASS CODE.
.04	DEPARTMENT ACCOUNT	0;4	POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188)	FMS DEPARTMENT ACCOUNT(#9002188) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: The DEPARTMENT ACCOUNT for which these funds are being distributed is entered directly by the system and should not be edited directly. CROSS-REFERENCE: `9002191^LB` 1)= S ^ACRFDIS("LB",$E(X,1,30),DA)="" 2)= K ^ACRFDIS("LB",$E(X,1,30),DA) CROSS-REFERENCE: `9002191^AC^MUMPS` 1)= S ^ACRFDIS("AC",$P(^ACRFDIS(DA,0),U,9),$P(^(0),U,5),$P(^(0),U,4),DA)="" 2)= K ^ACRFDIS("AC",$P(^ACRFDIS(DA,0),U,9),$P(^(0),U,5),$P(^(0),U,4),DA) CROSS-REFERENCE: `^^TRIGGER^9002191^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRFDIS(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002191,.04,1,3,1.1) X ^DD(9002191,.04,1,3,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRFDIS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002191,DIG=.08 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(^ACRFDIS(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002191,.04,1,3,2.1) X ^DD(9002191,.04,1,3,2.4) 2.1)= S X=DIV X ^DD(9002191,.04,1,3,59.2) S Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^ACRFDIS(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002191,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRFDIS(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") CREATE VALUE)= LOCAL BUDGET:INTERNAL(#50) DELETE VALUE)= LOCAL BUDGET:INTERNAL(#50) FIELD)= ALLOWANCE NO. CROSS-REFERENCE: `9002191^AD^MUMPS` 1)= Q S ^ACRFDIS("AD",$P(^ACRFDIS(DA,0),U,9),$P(^(0),U,8),$P(^(0),U,7),$P(^(0),U,5),$P(^(0),U,4),$P(^AUTTOCG($P(^ACRFDIS(DA,"DT"),U),0),U),DA)="" 2)= Q K ^ACRFDIS("AD",$P(^ACRFDIS(DA,0),U,9),$P(^(0),U,8),$P(^(0),U,7),$P(^(0),U,5),$P(^(0),U,4),$P(^AUTTOCG($P(^ACRFDIS(DA,"DT"),U),0),U),DA)
.05	SUB ALLOWANCE	0;5	POINTER TO FMS SUB-ALLOWANCE FILE (#9002187)	FMS SUB-ALLOWANCE(#9002187) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: The SUB-ALLOWANCE from which these funds are being distributed is entered by the system and should not be edited directly. CROSS-REFERENCE: `9002191^SALW` 1)= S ^ACRFDIS("SALW",$E(X,1,30),DA)="" 2)= K ^ACRFDIS("SALW",$E(X,1,30),DA)
.06	CAN	0;6	POINTER TO ARMS CAN FILE (#9002186.5)	ARMS CAN(#9002186.5) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: The CAN NO. for this distribution is entered by the system and should not be edited directly. CROSS-REFERENCE: `9002191^CAN` 1)= S ^ACRFDIS("CAN",$E(X,1,30),DA)="" 2)= K ^ACRFDIS("CAN",$E(X,1,30),DA)
.07	SSA	0;7	POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56)	SUB-SUB-ACTIVITY(#9999999.56) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: The SUB-SUB-ACTIVITY of these funds is entered internally by the system and should not be edited directly. CROSS-REFERENCE: `9002191^SSA` 1)= S ^ACRFDIS("SSA",$P(^ACRFDIS(DA,0),U,9),$E(X,1,30),DA)="" 2)= K ^ACRFDIS("SSA",$P(^ACRFDIS(DA,0),U,9),$E(X,1,30),DA)
.08	ALLOWANCE NO.	0;8	POINTER TO ALLOWANCE NO. FILE (#9999999.52)	ALLOWANCE NO.(#9999999.52) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: The ALLOWANCE NO. for these funds is set internally by the system and should not be edited directly. NOTES: `TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS DISTRIBUTION File`
.09	FISCAL YEAR	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 05, 1999` HELP-PROMPT: `Type a Number between 1000 and 9999, 0 Decimal Digits` DESCRIPTION: The FISCAL YEAR of these funds is entered internally by the system and should not be edited directly.

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