Global: ^PRCS(417.1

FileMan FileNo	FileMan Filename	Package
417.1	FMS EXCEPTIONS	IFCAP

Package	Total	Routines
IFCAP	4	PRCSREC4 ^PRCS(417.1 ITEM SPECIFIC INFORMATION PRCSREC1

Package	Total	Routines
IFCAP	2	PRCSREC1 PRCSREC4

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	FMS REFERENCE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This filed holds the FMS transaction reference number, in the format FMS trans. number_transmission date.` `SOURCE OF DATA: IFCAP` CROSS-REFERENCE: `417.1^B` `1)= S ^PRCS(417.1,"B",X,DA)=""` `2)= K ^PRCS(417.1,"B",X,DA)`
1	BEGINNING BUDGET FISCAL YEAR	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `DEC 28, 1999` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This is the beginning budget fiscal year.`
2	ENDING BUDGET FISCAL YEAR	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `DEC 28, 1999` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This is the ending budget fiscal year.`
3	FISCAL YEAR	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `DEC 28, 1999` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This is the fiscal year.` CROSS-REFERENCE: `^^TRIGGER^417.1^30` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(417.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(417.1,3,1,1,1.1) X ^DD(417.1,3,1,1,1.4)` `1.1)= S X=DIV S X=DIV>70,Y(1)=X S X=2,Y(2)=X S X=1,Y(3)=X S X=3,X=$S(Y(1):Y(2),Y(3):X)_DIV_"0000"` `1.4)= S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 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(^PRCS(417.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(417.1,3,1,1,2.4)` `2.4)= S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= $S(#3>70:2,1:3)_#3_"0000"` `DELETE VALUE)= @` `FIELD)= #30` `This cross reference converts the 2 digit FISCAL YEAR to an internal FileMan date and stuffs the value in field #30, which is used in sorts.`
4	FISCAL QUARTER	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Type a Number between 1 and 4, 0 Decimal Digits` DESCRIPTION: `This is the fiscal quarter.`
5	FUND	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is the fund returned on the transaction.`
6	ADMINISTRATIVE STAFF/OFFICE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 17, 1995` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the administrative staff/office.`
7	STATION	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the station number returned on the transaction.`
8	PROGRAM	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3) X` LAST EDITED: `MAR 09, 1995` HELP-PROMPT: `Answer must be 3-6 characters in length.` DESCRIPTION: `This is the program, if any, returned on the transaction.`
9	FCP/PROJECT	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-9 characters in length.` DESCRIPTION: `This is the fund control point/project.`
10	COST CENTER	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 17, 1995` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: `This is the cost center returned on the transaction.`
11	SUB COST CENTER	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the sub cost center, if any, returned on the transaction.`
12	REPORTING CATEGORY	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-9 characters in length.` DESCRIPTION: `This is the reporting category for the control point returned in the transaction.`
13	JOB NUMBER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-6 characters in length.` DESCRIPTION: `This is the job number.`
14	BUDGET OBJECT CODE	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This is the budget object code for the cost center returned in the transaction.`
15	BUDGET OBJECT CLASS	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<3) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 3-9 characters in length.` DESCRIPTION: `This is the budget object class for the cost center returned in the transaction.`
16	TRANSACTION CODE	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 2-3 characters in length.` DESCRIPTION: `This is the transaction code for the original FMS document which the transmission was generated against.`
17	TRANSACTION NUMBER	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<4) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Answer must be 4-9 characters in length.` DESCRIPTION: `This is the transaction number.`
18	LINE NUMBER	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This is the line number returned in the transmission.`
19	TRANSACTION AMOUNT	0;20	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X` LAST EDITED: `APR 08, 1994` HELP-PROMPT: `Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the transaction amount returned in the transmission.`
20	STA-FY-QTR-CP	0;21	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<6) X` LAST EDITED: `FEB 09, 1995` HELP-PROMPT: `Answer must be 6-20 characters in length.` DESCRIPTION: `This field is used to set up the "C" cross reference used to create the quarterly FMS Exception Report.` CROSS-REFERENCE: `417.1^C` `1)= S ^PRCS(417.1,"C",$E(X,1,30),DA)=""` `2)= K ^PRCS(417.1,"C",$E(X,1,30),DA)` `This index is used to hold the station-fiscal year-quarter -control point string used for lookups when generating the FMS Exceptions Report.`
21	TRANSACTION DATE	0;22	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X ^DD("DD")` LAST EDITED: `JAN 17, 1995` DESCRIPTION: `This is the transaction date, when FMS actually created the transaction.`
30	FY DATE	1;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 28, 1999` HELP-PROMPT: `Enter 2 or 4 digit Fiscal Year in which the transaction occurs.` DESCRIPTION: `This field is the Fiscal Year stored as a FileMan date.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the FISCAL YEAR field of the FMS EXCEPTIONS File`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	3(XREF 1n1.4), 3(XREF 1n2.4)
^DD("DD"	21OT+1
^DD(417.1	3(XREF 1S), 3(XREF 1K)
^PRCS(417.1 - [#417.1]	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4), 20(XREF 1S), 20(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	21+1, 30+1
>> D0	3(XREF 1S), 3(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 20(XREF 1S), 20(XREF 1K)
>> DIG	3(XREF 1n1.4), 3(XREF 1n2.4)
>> DIH	3(XREF 1n1.4), 3(XREF 1n2.4)
>> DIU	3(XREF 1S), 3(XREF 1K)
DIV	3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4)
DIV(0	3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4)
U	3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K) , 3(XREF 1n2.4), 4+1!, 5+1!, 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1! , 13+1!, 14+1!, 15+1!, 16+1!, 17+1!, 18+1!, 19+1!, 20+1!, 20(XREF 1S), 20(XREF 1K) , 21+1!, 30+1*!
Y	3(XREF 1S), 3(XREF 1K), 21+1, 21OT+1, 30+1
Y(0	21OT+1*
Y(1	3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1K)
Y(2	3(XREF 1n1.1)
Y(3	3(XREF 1n1.1)

Customize PDF page

Package: IFCAP

Global: ^PRCS(417.1

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Fields, Total: 23

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: