Global: ^ACROBL

FileMan FileNo	FileMan Filename	Package
9002189	FMS REQUEST	Commitment Register

Package	Total	Routines
Commitment Register	85	ACRADUM ACRCD13 ACRCR1 ACRCR2 ACRCR3 ACRCR4 ACRFACH ACRFAPVS ACRFAUTO ACRFBPA ACRFCAL1 ACRFCALC ACRFCCP1 ACRFCSI ACRFDC ACRFDEL ACRFDHR ACRFDI ACRFDISA ACRFDTP4 ACRFEA1 ACRFEA2 ACRFEA21 ACRFEA3 ACRFEA41 ACRFEA43 ACRFFF3 ACRFFF4 ACRFFF5 ACRFJS ACRFNEW1 ACRFNEWD ACRFNXT ACRFPAID ACRFPAPV ACRFPAY1 ACRFPAY6 ACRFPCC ACRFPO ACRFPO2 ACRFPRC1 ACRFPRC2 ACRFPRC3 ACRFPRC9 ACRFPRCS ACRFPSS ACRFQ ACRFRCA ACRFRR ACRFRR1 ACRFSOF ACRFSS ACRFSS11 ACRFSS12 ACRFSS2 ACRFSS3 ACRFSS4 ACRFSS42 ACRFSSA ACRFSSA1 ACRFSSD1 ACRFSSRC ACRFTA ACRFTO ACRFTR1 ACRFTRX ACRFTV3 ACRFTVA ACRFUFM2 ACRFWARN ACRFXMY ACROBL ACRPAR ACRPCC ACRPJN ACRPO ACRPPO ACRPPOA ACRPSH ACRPSS ACRPTO ACRPTOS ACRPTR ACRRRH ACRTVL
Contracts and Grants	1	ACGSNC

Package	Total	Routines
Commitment Register	25	ACRFAUTO ACRFDEL ACRFDTP4 ACRFEA1 ACRFEA2 ACRFEA4 ACRFEA41 ACRFEA42 ACRFEA43 ACRFIV12 ACRFNEWD ACRFPO1 ACRFPR ACRFPRC3 ACRFPRC4 ACRFRR ACRFRR1 ACRFRR11 ACRFSHFT ACRFSS ACRFSSA1 ACRFTA ACRFTO ACRFTRX ACRFXMY

Package	Total	FileMan Files
Commitment Register	6	FMS AIRLINE INFO(#9002193.7)[.02, .07] FMS REQUEST CONTROLLER(#9002190)[.02] FMS DOCUMENT(#9002196)[.05] FMS SUPPLIES AND SERVICES(#9002193)[.02, .07] FMS REQUEST TRANSACTION(#9002192)[.02] FMS TRAVEL DAY(#9002193.5)[.02, .07]

Package	Total	FileMan Files
Commitment Register	8	FMS SUB-ALLOWANCE(#9002187)[.02] FMS ALLOWANCE(#9002186)[.12] FMS APPROPRIATION(#9002185)[.13] ARMS CAN(#9002186.5)[.04] FMS DOCUMENT(#9002196)[1] FMS DISTRIBUTION(#9002191)[.11] FMS DEPARTMENT ACCOUNT(#9002188)[.03] FMS TRANSACTION TYPE(#9002194)[907, 910]
Utility Tables	6	ALLOWANCE NO.(#9999999.52)[.08] REFERENCE CODE(#9999999.63)[.1] OBJECT/SUB-OBJECT(#9999999.59)[10] APPROPRIATION NO.(#9999999.51)[.09] SUB-SUB-ACTIVITY(#9999999.56)[.07] VENDOR(#9999999.11)[100]
Kernel	1	NEW PERSON(#200)[.05, #9002189.01(.01)]

Fields, Total: 65

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<0) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: This is a summary of the total amount of this request which totals all items requested on this document. This amount is calculated and entered by the system and should not be edited directly. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the PAY PERIOD AMOUNT field of the FMS DOCUMENT File TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File TRIGGERED by the ITEM ESTIMATED COST field of the FMS SUPPLIES AND SERVICES File
.02	SUB-ALLOWANCE	0;2	POINTER TO FMS SUB-ALLOWANCE FILE (#9002187)	FMS SUB-ALLOWANCE(#9002187) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the FMS SUB-ALLOWANCE file. This entry is set internally by the system and should not be edited directly. NOTES: `TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS REQUEST File` CROSS-REFERENCE: `9002189^C` 1)= S ^ACROBL("C",$E(X,1,30),DA)="" 2)= K ^ACROBL("C",$E(X,1,30),DA)
.03	DEPARTMENT ACCOUNT	0;3	POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188)	FMS DEPARTMENT ACCOUNT(#9002188) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the DEPARTMENT ACCOUNT file. It is set internally by the system and should not be edited directly. CROSS-REFERENCE: `9002189^D` 1)= S ^ACROBL("D",$E(X,1,30),DA)="" 2)= K ^ACROBL("D",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002189^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002189,.03,1,2,1.1) X ^DD(9002189,.03,1,2,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,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002189,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #.03:INTERNAL(#.04) DELETE VALUE)= NO EFFECT FIELD)= #.02 CROSS-REFERENCE: `^^TRIGGER^9002189^.12` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002189,.03,1,3,1.1) X ^DD(9002189,.03,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,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9002189,DIG=.12 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(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002189,.03,1,3,2.1) X ^DD(9002189,.03,1,3,2.4) 2.1)= S X=DIV X ^DD(9002189,.03,1,3,59.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9002189,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") CREATE VALUE)= LOCAL BUDGET:INTERNAL(#.03) DELETE VALUE)= LOCAL BUDGET:INTERNAL(#.03) FIELD)= #.12 CROSS-REFERENCE: `^^TRIGGER^9002188^2` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.03,1,4,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.03,1,4,1.1) X ^DD(9002189,.03,1,4,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1) 1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.03,1,4,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.03,1,4,2.1) X ^DD(9002189,.03,1,4,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=DIU-$P(Y(1),U,1) 2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9002188,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"") CREATE VALUE)= REQUESTED+AMOUNT DELETE VALUE)= REQUESTED-AMOUNT FIELD)= LOCAL BUDGET:REQUESTED CROSS-REFERENCE: `^^TRIGGER^9002189^.13` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002189,.03,1,5,1.1) X ^DD(9002189,.03,1,5,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,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9002189,DIG=.13 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(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002189,.03,1,5,2.1) X ^DD(9002189,.03,1,5,2.4) 2.1)= S X=DIV X ^DD(9002189,.03,1,5,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9002189,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRLOCB(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") CREATE VALUE)= LOCAL BUDGET:INTERNAL(#.02) DELETE VALUE)= LOCAL BUDGET:INTERNAL(#.02) FIELD)= #.13
.04	CAN NO.	0;4	POINTER TO ARMS CAN FILE (#9002186.5)	ARMS CAN(#9002186.5) INPUT TRANSFORM: `S DIC("S")="Q:'$D(ACRLBDA) I $D(^ACRLOCB(""CAN"",+Y,ACRLBDA))!$D(^ACRLOCB(""DCAN"",+Y,ACRLBDA))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the CAN NO. file. This information is set internally and should not be edited directly. SCREEN: `S DIC("S")="Q:'$D(ACRLBDA) I $D(^ACRLOCB(""CAN"",+Y,ACRLBDA))!$D(^ACRLOCB(""DCAN"",+Y,ACRLBDA))"` EXPLANATION: `DETERMINE IF CAN IS ASSIGNED TO THE LOCAL BUDGET` CROSS-REFERENCE: `9002189^CAN` 1)= S ^ACROBL("CAN",$E(X,1,30),DA)="" 2)= K ^ACROBL("CAN",$E(X,1,30),DA)
.05	ENTERED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: This is a pointer to the USER file. This entry is set internally and is used as an audit of who initiated this request. This should not be edited directly. TECHNICAL DESCR: `In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes.` While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents. For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.
.06	DATE ESTABLISHED	0;6	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 this requisition was established.` DESCRIPTION: This date is set by the system and used as an audit of the date when this request was entered into the system. This should not be edited directly.
.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: This is a pointer to the SUB-SUB-ACTIVITY file. This information is set internally by the system based on the SSA of the department account from which this request is being made. This should not be edited directly. CROSS-REFERENCE: `^^TRIGGER^9999999.56^2` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.07,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.07,1,1,1.1) X ^DD(9002189,.07,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1) 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9999999.56,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.07,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.07,1,1,2.1) X ^DD(9002189,.07,1,1,2.4) 2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=X S:'$D(^AUTTSSA(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,1) S D0=I(0,0) 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9999999.56,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") CREATE VALUE)= REQUESTED YTD+AMOUNT DELETE VALUE)= (OLD SSA:REQUESTED YTD)-AMOUNT FIELD)= SSA:REQUESTED YTD CROSS-REFERENCE: `^^TRIGGER^9999999.56^3` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.07,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.07,1,2,1.1) X ^DD(9002189,.07,1,2,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,2) 1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9999999.56,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.07,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.07,1,2,2.1) X ^DD(9002189,.07,1,2,2.4) 2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:""),D0=X S:'$D(^AUTTSSA(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,2) S D0=I(0,0) 2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9999999.56,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"") CREATE VALUE)= SPENT YTD+ACTUAL EXPENSE DELETE VALUE)= (OLD SSA:SPENT YTD)-ACTUAL EXPENSE FIELD)= SSA:SPENT YTD
.08	ALLOWANCE NO.	0;8	POINTER TO ALLOWANCE NO. FILE (#9999999.52)	ALLOWANCE NO.(#9999999.52) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the ALLOWANCE NUMBER file. The allowance number is set internally base on the allowance number for the department account from which this request was made and should not be edited directly.
.09	APPROPRIATION NO.	0;9	POINTER TO APPROPRIATION NO. FILE (#9999999.51)	APPROPRIATION NO.(#9999999.51) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the APPROPRIATION NO. file. This entry is set internally by the system based on the APPROPRIATION NO. for the department account from which this request was taken. CROSS-REFERENCE: `^^TRIGGER^9999999.51^2` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.09,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.09,1,1,1.1) X ^DD(9002189,.09,1,1,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1) 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9999999.51,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.09,1,1,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.09,1,1,2.1) X ^DD(9002189,.09,1,1,2.4) 2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=X S:'$D(^AUTTPRO(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,1) S D0=I(0,0) 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,2)=DIV,DIH=9999999.51,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,9) S:'$D(^AUTTPRO(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") CREATE VALUE)= REQUESTED YTD+AMOUNT DELETE VALUE)= (OLD APPROPRIATION NO.:REQUESTED YTD)-AMOUNT FIELD)= APPROPRIATION NO.:REQUESTED YTD CROSS-REFERENCE: `^^TRIGGER^9999999.51^3` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.09,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.09,1,2,1.1) X ^DD(9002189,.09,1,2,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:"") S X=DIU+$P(Y(1),U,2) 1.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9999999.51,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002189,.09,1,2,89.2) S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y X ^DD(9002189,.09,1,2,2.1) X ^DD(9002189,.09,1,2,2.4) 2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACROBL(D0,"DT")):^("DT"),1:""),D0=X S:'$D(^AUTTPRO(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,2) S D0=I(0,0) 2.4)= S DIH=$S($D(^AUTTPRO(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,3)=DIV,DIH=9999999.51,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:""),D0=$P(Y(1),U,9) S:'$D(^AUTTPRO(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTPRO(D0,"BA")):^("BA"),1:"") CREATE VALUE)= SPENT YTD+ACTUAL EXPENSE DELETE VALUE)= (OLD APPROPRIATION NO.:SPENT YTD)-ACTUAL EXPENSE FIELD)= APPROPRIATION NO.:SPENT YTD
.1	REFERENCE CODE	0;10	POINTER TO REFERENCE CODE FILE (#9999999.63)	REFERENCE CODE(#9999999.63) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This information is set internally by the system based on the type of transaction that is being processed and the stage of processing. This data should not be edited directly. NOTES: `TRIGGERED by the TRANSACTION TYPE field of the FMS REQUEST File`
.11	OC DISTRIBUTION	0;11	POINTER TO FMS DISTRIBUTION FILE (#9002191)	FMS DISTRIBUTION(#9002191) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the DISTRIBUTION file which summarizes distributions and expenditures of funds. This is set internally by the system and should not be edited directly.
.12	FMS ALLOWANCE	0;12	POINTER TO FMS ALLOWANCE FILE (#9002186)	FMS ALLOWANCE(#9002186) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the FMS ALLOWANCE file which indicates the funds from which this request is taken. This is set internally by the system and should not be edited directly. NOTES: `TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS REQUEST File` CROSS-REFERENCE: `9002189^LOT` 1)= S ^ACROBL("LOT",$E(X,1,30),DA)="" 2)= K ^ACROBL("LOT",$E(X,1,30),DA)
.13	FMS APPROPRIATION	0;13	POINTER TO FMS APPROPRIATION FILE (#9002185)	FMS APPROPRIATION(#9002185) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: `This is a pointer to the FMS APPROPRIATION file and indicates the appropriation account from which the funds for this request are being taken. This information is set internally by the system and should not be edited` directly. NOTES: `TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS REQUEST File` CROSS-REFERENCE: `9002189^PROP` 1)= S ^ACROBL("PROP",$E(X,1,30),DA)="" 2)= K ^ACROBL("PROP",$E(X,1,30),DA)
.14	TYPE OF REQUIREMENT	0;14	SET	**********************REQUIRED FIELD********************** '1' FOR RECURRING; '2' FOR NON-RECURRING; '3' FOR ANNUAL; '4' FOR QUARTERLY; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter a code from the list which properly characterizes this obligation.
1	DOCUMENT NO.	DT;1	POINTER TO FMS DOCUMENT FILE (#9002196)	**********************REQUIRED FIELD********************** FMS DOCUMENT(#9002196) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the DOCUMENT file. This is set internally by the system and should not be edited directly. CROSS-REFERENCE: `9002189^DOC` 1)= S ^ACROBL("DOC",$E(X,1,30),DA)="" 2)= K ^ACROBL("DOC",$E(X,1,30),DA)
2	ACTUAL EXPENSE	DT;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: This is a summary of the total amount actually spent based on all items from this request. This amount is calculated by the system and should not be edited directly. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File TRIGGERED by the TOTAL PAID field of the FMS SUPPLIES AND SERVICES File
4	OBLIGATED	DT;4	NUMBER	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: This is a summary of the total amount obligated on this request. The amount is calculated by the system and should not be edited directly. NOTES: `TRIGGERED by the REQUEST field of the FMS SUPPLIES AND SERVICES File` TRIGGERED by the ITEM OBLIGATED AMOUNT field of the FMS SUPPLIES AND SERVICES File
10	OBJECT CLASS	DT;3	POINTER TO OBJECT/SUB-OBJECT FILE (#9999999.59)	**********************REQUIRED FIELD********************** OBJECT/SUB-OBJECT(#9999999.59) INPUT TRANSFORM: `S DIC("S")="D OBJ^ACRFDIC" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the OBJECT/SUB-OBJECT code for this request. SCREEN: `S DIC("S")="D OBJ^ACRFDIC"` EXPLANATION: `SCREENS OBJECT CODE BY TYPE OF REQUEST` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the OBJECT CLASS CODE field of the FMS SUPPLIES AND SERVICES File CROSS-REFERENCE: `9002189^OC` 1)= S ^ACROBL("OC",$E(X,1,30),DA)="" 2)= K ^ACROBL("OC",$E(X,1,30),DA)
100	REQUEST VENDOR	VND;1	POINTER TO VENDOR FILE (#9999999.11)	VENDOR(#9999999.11) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Select the VENDOR from the list which you recommend for this request. NOTES: `TRIGGERED by the SEND PAYMENT TO field of the FMS DOCUMENT File` CROSS-REFERENCE: `9002189^VND` 1)= S ^ACROBL("VND",$E(X,1,30),DA)="" 2)= K ^ACROBL("VND",$E(X,1,30),DA)
120	JUSTIFICATION LINE1	JST;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the first line of the JUSTIFICATION/PURPOSE.
121	JUSTIFICATION LINE2	JST;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the second line of the JUSTIFICATION/PURPOSE.
122	JUSTIFICATION LINE3	JST;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the third line of the JUSTIFICATION/PURPOSE.
123	JUSTIFICATION LINE4	JST;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the fourth line of the JUSTIFICATION/PURPOSE.
124	JUSTIFICATION LINE5	JST;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the fifth line of the JUSTIFICATION/PURPOSE.
125	JUSTIFICATION LINE6	JST2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the sixth line of the JUSTIFICATION/PURPOSE.
126	JUSTIFICATION LINE7	JST2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the seventh line of the JUSTIFICATION/PURPOSE.
127	JUSTIFICATION LINE8	JST2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the eighth line of the JUSTIFICATION/PURPOSE.
128	JUSTIFICATION LINE9	JST2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the ninth line of the JUSTIFICATION/PURPOSE.
129	JUSTIFICATION LINE 10	JST2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the tenth line of the JUSTIFICATION/PURPOSE
130	INFORMATION CHANGED LINE 1	CNG;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the first line.
131	INFORMATION CHANGED LINE 2	CNG;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the second line.
132	INFORMATION CHANGED LINE 3	CNG;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the third line.
133	INFORMATION CHANGED LINE 4	CNG;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the fourth line.
134	INFORMATION CHANGED LINE 5	CNG;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the fifth line.
135	REASON LINE 1	RSN;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the first line.
136	REASON LINE 2	RSN;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the second line.
137	REASON LINE 3	RSN;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the third line.
138	REASON LINE 4	RSN;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the fourth line.
139	REASON LINE 5	RSN;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: Enter the fifth line.
140	NOTES LINE 1	NOTES;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the first line.
141	NOTES LINE 2	NOTES;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the second line.
142	NOTES LINE 3	NOTES;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the third line.
143	NOTES LINE 4	NOTES;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the fourth line.
144	NOTES LINE 5	NOTES;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>48!($L(X)<1) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1-48 characters in length.` DESCRIPTION: Enter the fifth line.
145	NOTES LINE 6	NOTES2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: Enter the sixth line.
146	NOTES LINE 7	NOTES2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: Enter the seventh line.
147	NOTES LINE 8	NOTES2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: Enter the eighth line.
148	NOTES LINE 9	NOTES2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: Enter the ninth line.
149	NOTES LINE 10	NOTES2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: Enter the tenth line.
150	ADDITIONAL REMARKS	1;0	WORD-PROCESSING #9002189.02	HELP-PROMPT: DESCRIPTION: `This field provides a word processing mode in which any ADDITIONAL REMARKS pertaining to this overall request can be entered. Since you are in a word processing mode, there is no limit to the amount of information you can` include. Enter any ADDITIONAL REMARKS which are pertinent to this request.
201	TRIP REPORT	2;0	WORD-PROCESSING #9002189.201
900	FINANCE OFFICER ACCESS	SC;0	POINTER Multiple #9002189.01	9002189.01 HELP-PROMPT: DESCRIPTION: This is a multiple field which allows the system to maintain a list of all individuals from the finance office who should have access to this request.
902	FUNDS AVAILABLE	SC3;1	SET	'Y' FOR AVAILABLE; 'N' FOR UNAVAILABLE; LAST EDITED: `DEC 09, 1997` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This is a set of codes which is set internally by the system to indicate whether certification of funds availability has been completed for this request. This should not be edited directly.
903	REQUEST APPROVED	APV;1	SET	'A' FOR APPROVED; 'D' FOR DISAPPROVED; 'C' FOR CANCELLED; LAST EDITED: `DEC 09, 1997` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This data is set internally by the system whenever the appropriate signature is applied which accomplishes the final approval of this request. This should not be edited directly. NOTES: `TRIGGERED by the STATUS field of the FMS REQUEST CONTROLLER File` CROSS-REFERENCE: `9002189^RL2` 1)= I X="A",$P($G(^ACROBL(DA,"APV")),U,6)'=1,+$G(^ACRDOC(DA,"POST")) S ^ACRDOC("RL",+$G(^("POST")),DA)="" 2)= K ^ACRDOC("RL",+$G(^ACRDOC(DA,"POST")),DA)
905	REQUEST AUTHORIZED	APV;3	SET	'A' FOR APPROVED; 'D' FOR DISAPPROVED; 'P' FOR PENDING; LAST EDITED: `DEC 09, 1997` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This flag is set internally by the system when the final authorizing signature is completed for this request. This data should not be edited directly. CROSS-REFERENCE: `9002189^APRNT^MUMPS` 1)= ;I $D(ACRFINSS),$P(^ACROBL(DA,"APV"),U,3)="Y" D TSK^ACRPRINT 2)= Q
906	CONVERT	CONV;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This flag is set internally by the system when the final authorizing signature is completed for this request. This data should not be edited directly. CROSS-REFERENCE: `9002189^ACONV^MUMPS` 1)= I $D(^ACROBL(DA,"CONV")),$P(^("CONV"),U)["Y" S ^ACROBL("ACONV",$P(^ACROBL(DA,0),U,3),$P(^("CONV"),U),DA)="" 2)= I $D(^ACROBL(DA,"CONV")),$P(^("CONV"),U)["Y" K ^ACROBL("ACONV",$P(^ACROBL(DA,0),U,3),$P(^("CONV"),U),DA)
907	TRANSACTION TYPE	APV;4	POINTER TO FMS TRANSACTION TYPE FILE (#9002194)	FMS TRANSACTION TYPE(#9002194) INPUT TRANSFORM: `S DIC("S")="Q:'$D(ACRLBDA) I $D(^ACRLOCB(ACRLBDA,""OBJ"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the TRANSACTION TYPE file. The data is set internally by the system to indicate the TRANSACTION TYPE selected for this request. This data should not be edited directly. SCREEN: `S DIC("S")="Q:'$D(ACRLBDA) I $D(^ACRLOCB(ACRLBDA,""OBJ"",+Y))"` EXPLANATION: `Screened by requests allowed for this department.` CROSS-REFERENCE: `^^TRIGGER^9002189^910` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002189,907,1,1,1.4) 1.4)= S DIH=$S($D(^ACROBL(DIV(0),"APV")):^("APV"),1:""),DIV=X S $P(^("APV"),U,7)=DIV,DIH=9002189,DIG=910 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(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002189,907,1,1,2.1) X ^DD(9002189,907,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$P(Y(1),U,4),X=X 2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:"") S X=$S('$D(^ACRTXTYP(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))="TRAVEL VOUCHER" 2.4)= S DIH=$S($D(^ACROBL(DIV(0),"APV")):^("APV"),1:""),DIV=X S $P(^("APV"),U,7)=DIV,DIH=9002189,DIG=910 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE CONDITION)= TRANSACTION TYPE="TRAVEL VOUCHER" CREATE VALUE)= INTERNAL(#907) DELETE CONDITION)= TRANSACTION TYPE="TRAVEL VOUCHER" DELETE VALUE)= INTERNAL(#907) FIELD)= #910 CROSS-REFERENCE: `^^TRIGGER^9002189^.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002189,907,1,2,1.1) X ^DD(9002189,907,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRTXTYP(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRTXTYP(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=9002189,DIG=.1 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(^ACROBL(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002189,907,1,2,2.1) X ^DD(9002189,907,1,2,2.4) 2.1)= S X=DIV X ^DD(9002189,907,1,2,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^ACROBL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=9002189,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACROBL(D0,"APV")):^("APV"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRTXTYP(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRTXTYP(D0,0)):^(0),1:"") CREATE VALUE)= TRANSACTION TYPE:INTERNAL(#.02) DELETE VALUE)= TRANSACTION TYPE:INTERNAL(#.02) FIELD)= REFERENCE CODE
908	PROCUREMENT LIMIT	APV;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: This indicates the procurement limit for each request. The amount is entered internally by the system based on set up data for the department account. This should not be edited directly.
909	FINAL RECEIVING REPORT	APV;6	SET	'1' FOR FINAL; '2' FOR PARTIAL; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Select the appropriate code from the list.` DESCRIPTION: This is a flag which indicates if the FINAL RECEIVING REPORT has be completed and signed. This data is set internally by the system and should not be edited directly. CROSS-REFERENCE: `9002189^RL` 1)= I X'=1,$E($G(^ACROBL(DA,"APV")))="A",+$G(^ACRDOC(DA,"POST")) S ^ACRDOC("RL",+^("POST"),DA)="" 2)= K ^ACRDOC("RL",+$G(^ACRDOC(DA,"POST")),DA) 3)= NO NOT DELETE This is a special cross-reference which sets the 'RL' (Receiving Location) x-ref in the FMS DOCUMENT file whenever receiving action is still needed for a document.
910	TRAVEL VOUCHER	APV;7	POINTER TO FMS TRANSACTION TYPE FILE (#9002194)	FMS TRANSACTION TYPE(#9002194) LAST EDITED: `APR 01, 1996` DESCRIPTION: `This is a pointer to the TRANSACTION TYPE file. It is set to a travel voucher as a flag that the travel voucher is ready to be prepared whenever the travel order is completed. This is set internally by the system and` should not be edited directly. NOTES: `TRIGGERED by the TRANSACTION TYPE field of the FMS REQUEST File` CROSS-REFERENCE: `9002189^TV` 1)= S ^ACROBL("TV",$E(X,1,30),DA)="" 2)= K ^ACROBL("TV",$E(X,1,30),DA)
911	PURCHASE ORDER AUTHORIZED	APV;8	SET	'A' FOR APPROVED; 'D' FOR DISAPPROVED; LAST EDITED: `MAR 10, 1998` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: This is a flag which is set when the final authorizing signature is placed on a purchase order. This is set internally by the system and should not be edited directly. CROSS-REFERENCE: `9002189^PO^MUMPS` 1)= K:X]"" ^ACRDOC("PO",+$P($G(^ACRDOC(DA,0)),U,8),"A",DA) 2)= I X]"",$P($G(^ACRDOC(DA,0)),U,8),+$G(^("REQ")) S ^ACRDOC("PO",+$P(^(0),U,8),"A",DA)="" CROSS-REFERENCE: `9002189^PO2^MUMPS` 1)= K:X]"" ^ACRDOC("PA",+$G(^ACRDOC(DA,"PA")),"A",DA) 2)= I X]"",+$G(^ACRDOC(DA,"PA")) S ^ACRDOC("P",+^("PA"),"A",DA)=""
912	FINAL INVOICE	APV;9	SET	'1' FOR FINAL; '2' FOR PARTIAL; '3' FOR PENDING; LAST EDITED: `DEC 09, 1997` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter '1' if this is the FINAL INVOICE/PAYMENT for this document, '2' if this is a PARTIAL INVOICE/PAYMENT, or '3' if the INVOICE/PAYMENT of this document is still PENDING.
913	AIRLINE PAID	APV;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 15, 1997` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code to indicate if the airline expense has been paid.
999	DOCUMENT HISTORY RECORD		COMPUTED	MUMPS CODE: `X ^DD(9002189,999,10.2) S X=$P(Y(9002189,999,301),U,1),Y=X,X=Y(9002189,999,305),X=X_Y S D0=Y(9002189,999,80)` 9.2 = S Y(9002189,999,80)=$S($D(D0):D0,1:""),Y(9002189,999,3)=$S($D(^ACROBL(D0,0)):^(0),1:""),Y(9002189,999,1)=$S($D(^("DT")):^("DT"),1:"") 9.3 = X ^DD(9002189,999,9.2) S D0=$P(Y(9002189,999,1),U,1) S:'$D(^ACRDOC(+D0,0)) D0=-1 S Y(9002189,999,180)=$S($D(D0):D0,1:""),Y(9002189,999,101)=$S($D(^ACRDOC(D0,0)):^(0),1:"") 9.4 = X ^DD(9002189,999,9.3) S X=$P(Y(9002189,999,101),U,3),Y(9002189,999,102)=X S X=4,Y(9002189,999,103)=X S X=7,X=$E(Y(9002189,999,102),Y(9002189,999,103),X) 9.5 = X ^DD(9002189,999,9.4) S Y(9002189,999,104)=X,D0=$P(Y(9002189,999,1),U,1) S:'$D(^ACRDOC(+D0,0)) D0=-1 S Y(9002189,999,280)=$S($D(D0):D0,1:"") 9.6 = X ^DD(9002189,999,9.5) S Y(9002189,999,201)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(9002189,999,201),U,3),Y(9002189,999,202)=X S X=2,Y(9002189,999,203)=X S X=3 9.7 = X ^DD(9002189,999,9.6) S X=$E(Y(9002189,999,202),Y(9002189,999,203),X) S Y=X,X=Y(9002189,999,104),X=X_Y_"XXXXX",Y(9002189,999,204)=X 9.8 = X ^DD(9002189,999,9.7) S D0=$P(Y(9002189,999,1),U,1) S:'$D(^ACRDOC(+D0,0)) D0=-1 S Y(9002189,999,301)=$S($D(^ACRDOC(D0,0)):^(0),1:"") 9.9 = X ^DD(9002189,999,9.8) S X=$S('$D(^AUTTDOCR(+$P(Y(9002189,999,301),U,4),0)):"",1:$P(^(0),U,1)),Y=X,X=Y(9002189,999,204),X=X_Y,Y(9002189,999,302)=X 10 = X ^DD(9002189,999,9.9) S X=$S('$D(^ACRDOC(+$P(Y(9002189,999,1),U,1),0)):"",1:$P(^(0),U,1)),Y=X,X=Y(9002189,999,302),X=X_Y,Y(9002189,999,303)=X 10.1 = X ^DD(9002189,999,10) S X=$S('$D(^ACRCAN(+$P(Y(9002189,999,3),U,4),0)):"",1:$P(^(0),U,1)),Y=X,X=Y(9002189,999,303),X=X_Y,Y(9002189,999,304)=X 10.2 = X ^DD(9002189,999,10.1) S X=$S('$D(^AUTTOBJC(+$P(Y(9002189,999,1),U,3),0)):"",1:$P(^(0),U,1)),Y=X,X=Y(9002189,999,304),X=X_Y,Y(9002189,999,305)=X ALGORITHM: `$E(#1:#.03,4,7)_$E(#1:#.03,2,3)_"XXXXX"_(#1:#.04)_(#1)_(#.04)_(#10)_(#.01)` LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a computed field which gathers data required to complete the DOCUMENT HISTORY RECORD SOURCE OF DATA: X ^DD(9002189,999,9.9) S X=$S('$D(^ACRDOC(+$P(Y(9002189,999,1),U,1),0)):"",1:$P(^(0),U,1)),Y=X,X=Y(9002189,999,302),X=X_Y,Y(9002189,999,303)=X NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1000	TRAVEL ADVANCE	TA;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999.99)!(X<0) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits` DESCRIPTION: Enter the amount of the TRAVEL ADVANCE allowed based on current travel regulations.

Customize PDF page

Package: Commitment Register

Global: ^ACROBL

Information

Description

Directly Accessed By Routines, Total: 86

Accessed By FileMan Db Calls, Total: 25

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 15

Fields, Total: 65