Global: ^ASUT(2

FileMan FileNo	FileMan Filename	Package
9002036.2	ASUTRN RECEIPTS	Supply

Package	Total	Routines
Supply	1	^ASUT(2

Package	Total	FileMan Files
Supply	10	ASUTBL AREA(#9002039.01)[.02] ASUTBL SUB-SUB ACTIVITY(#9002039.17)[.11] ASUTBL SUB STATION(#9002039.18)[.13] ASUTBL USER(#9002039.19)[.14] ASUTBL STATION(#9002039.02)[.03] ASUTBL REQUSITIONER(#9002039.2)[.15] ASUTBL STOCK SUB OBJECT(#9002039.03)[.17] ASUTBL SOURCE CODE(#9002039.05)[.12] ASUTBL ACCOUNT(#9002039.09)[.04] ASUMST INDEX(#9002032)[.05]
Kernel	1	NEW PERSON(#200)[.06]

Fields, Total: 38

Field #	Name	Loc	Type	Details
.01	KEY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^ASU0TFMI` OUTPUT TRANSFORM: `D ^ASU0TFMO` LAST EDITED: `JUN 05, 1992` HELP-PROMPT: `Answer must be Date.Time(HHMMSS).Job` DESCRIPTION: The date and time in fileman format that the Transaction was entered followed by the job number of the job which created it. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002036.2^B` 1)= S ^ASUT(2,"B",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"B",$E(X,1,30),DA)
.02	AREA PTR	0;2	POINTER TO ASUTBL AREA FILE (#9002039.01)	ASUTBL AREA(#9002039.01) LAST EDITED: `FEB 18, 1997` HELP-PROMPT: `Enter valid IHS Area Accounting Point code` DESCRIPTION: Pointer to the ASUTBL AREA lookup table NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	STA PTR	0;3	POINTER TO ASUTBL STATION FILE (#9002039.02)	ASUTBL STATION(#9002039.02) LAST EDITED: `FEB 18, 1997` HELP-PROMPT: `Enter Area's Station code from ASUTBL STATION lookup table` DESCRIPTION: Pointer to the ASUTBL STATION lookup table. Internal Entry number will be Area Accounting point concatenated to 3 digit station code (999 for 'PL') NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	ACC PTR	0;4	POINTER TO ASUTBL ACCOUNT FILE (#9002039.09)	**********************REQUIRED FIELD********************** ASUTBL ACCOUNT(#9002039.09) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter account to which the item of supply affected by this transaction belongs` DESCRIPTION: Pointer to the ASUTBL ACCOUNT file for account code
.05	IDX PTR	0;5	POINTER TO ASUMST INDEX FILE (#9002032)	**********************REQUIRED FIELD********************** ASUMST INDEX(#9002032) LAST EDITED: `FEB 18, 1997` HELP-PROMPT: `Enter index number associated with this item of supply` DESCRIPTION: Pointer to the Index Master file entry in which this item of supply's data is recorded NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002036.2^I` 1)= S ^ASUT(2,"I",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"I",$E(X,1,30),DA)
.06	ENTRY PERSON	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Will be set by data entry routine based on DUZ setting` DESCRIPTION: Person file pointer determined by DUZ at time of transaction entry CROSS-REFERENCE: `9002036.2^AP` 1)= S ^ASUT(2,"AP",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"AP",$E(X,1,30),DA)
.07	ENTRY DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Answer must be Date.Time(HHMMSS).Job#` DESCRIPTION: The date and time in fileman format that the Adjustment transaction was entered followed by the job number of the job which entered it. CROSS-REFERENCE: `9002036.2^AE` 1)= S ^ASUT(2,"AE",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"AE",$E(X,1,30),DA)
.08	PROCESSED DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Date will be entered by SAMS transaction posting routine` DESCRIPTION: Date transaction was posted to the SAMS database CROSS-REFERENCE: `9002036.2^AC` 1)= S ^ASUT(2,"AC",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"AC",$E(X,1,30),DA)
.09	EXTRACTED DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `DATE ENTERED BY EXTRACT ROUTINE` CROSS-REFERENCE: `9002036.2^AX` 1)= S ^ASUT(2,"AX",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"AX",$E(X,1,30),DA) Used to acces the file by date transaction was extracted for STORES database
.1	STATUS FLAG	0;10	SET	**********************REQUIRED FIELD********************** 'Y' FOR ENTERED; 'U' FOR UPDATED; 'R' FOR REJECTD; 'X' FOR XTRACTD; LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Entry will be made by SAMS transaction entry, posting and extracting routines` DESCRIPTION: Status flag will indicate the entry/posting/extract status of the transaction CROSS-REFERENCE: `9002036.2^C` 1)= S ^ASUT(2,"C",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"C",$E(X,1,30),DA)
.11	SSA PTR	0;11	POINTER TO ASUTBL SUB-SUB ACTIVITY FILE (#9002039.17)	ASUTBL SUB-SUB ACTIVITY(#9002039.17) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter Sub-Sub Activity for this transaction` DESCRIPTION: Pointer to the accounting Sub-Sub Activity table ASUTBL SUB-SUB ACTIVITY
.12	SRC PTR	0;12	POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05)	ASUTBL SOURCE CODE(#9002039.05) LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter Source of supply for this transaction` DESCRIPTION: Pointer to the ASUTBL SOURCE lookup table Assigns Source (of purchase) information to this transaction.
.13	SST PTR	0;13	POINTER TO ASUTBL SUB STATION FILE (#9002039.18)	ASUTBL SUB STATION(#9002039.18) LAST EDITED: `JUN 08, 1999`
.14	USR PTR	0;14	POINTER TO ASUTBL USER FILE (#9002039.19)	ASUTBL USER(#9002039.19) LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Enter User requesting supplies`
.15	REQ PTR	0;15	POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)	ASUTBL REQUSITIONER(#9002039.2) LAST EDITED: `JUN 08, 1999`
.17	SOBJ PTR	0;17	POINTER TO ASUTBL STOCK SUB OBJECT FILE (#9002039.03)	ASUTBL STOCK SUB OBJECT(#9002039.03) LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Enter accounting Stock Sub Object code to be used for the this transaction`
.21	STA/IDX QTY	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS posting routine` DESCRIPTION: Station Master Index quantity after this transaction was posted.
.22	STA/IDX VAL	0;22	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Entry will be made by SAMS transaction posting routine.` DESCRIPTION: Station Master Index value after this transaction was posted.
.23	IDX/STA DUEIN QTY	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
.24	TRCD SIGN	0;24	SET	'1' FOR DEBIT; '-1' FOR CREDIT; LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Enter 1 (Debit) or -1 (Credit)` NOTES: `TRIGGERED by the TRANSACTION CODE field of the ASUTRN RECEIPTS File`
.25	REMARKS	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `FEB 24, 1998` HELP-PROMPT: `Answer must be 1-15 characters in length.`
.3	TRANSACTION TYPE	0;30	SET	'2' FOR RECEIPT; LAST EDITED: `JUN 08, 1999`
1	TRANSACTION CODE	1;1	SET	**********************REQUIRED FIELD********************** '22' FOR PURCHASED SUPPLIES; '24' FOR UNREQUIRED SUPPLIES; '25' FOR DONATED SUPPLIES; '26' FOR EXECSS SUPPLIES; '2K' FOR PURCHASE REVERSAL; '2M' FOR UNREQUIRED REVERSAL; '2N' FOR DONATED REVERSAL; '2O' FOR EXCESS REVERSAL; LAST EDITED: `JUN 03, 1999` HELP-PROMPT: `Select code representing transaction type` DESCRIPTION: Code representing the type of adjustment CROSS-REFERENCE: `9002036.2^T` 1)= S ^ASUT(2,"T",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"T",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002036.2^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.2,1,1,2,1.1) X ^DD(9002036.2,1,1,2,1.4) 1.1)= S X=DIV S X=DIV,X=X S X=X]"1A",Y(1)=X S X=-1,Y(2)=X S X=1,Y(3)=X S X=1,X=$S(Y(1):Y(2),Y(3):X) 1.4)= S DIH=$S($D(^ASUT(2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.2,DIG=.24 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(^ASUT(2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.2,1,1,2,2.1) X ^DD(9002036.2,1,1,2,2.4) 2.1)= S X=DIV X ^DD(9002036.2,1,1,2,59.2) S Y(7)=X S X=1,X=$S(Y(2):Y(3),Y(5):Y(6),Y(7):X) 2.4)= S DIH=$S($D(^ASUT(2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S Y(1)=$S($D(^ASUT(2,D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S X=X="",Y(2)=X S X="",Y(3)=X,Y(4)=X S X=$P(Y(1),U,1),X=X S X=X]"1A",Y(5)=X S X=-1,Y(6)=X S X=1 CREATE VALUE)= $S(INTERNAL(#1)]"1A":-1,1:1) DELETE VALUE)= $S(INTERNAL(#1)="":"",INTERNAL(#1)]"1A":-1,1:1) FIELD)= #.24
2	AREA CODE	1;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter code from Area table` DESCRIPTION: Accounting Point (also the internal entry number of ASUTBL AREA) for the IHS Area database to be adjusted EXECUTABLE HELP: `D XARE^ASUJHELP`
3	STATION CODE	1;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2AN) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter code from the Station table` DESCRIPTION: Station Code represents the IHS Station database to which the adjustment will be posted EXECUTABLE HELP: `D XSTA^ASUJHELP`
4	ACCOUNT CODE	1;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter code from Account table` DESCRIPTION: Account is the code (also the internal entry number of ASUTBL ACCOUNT) assigned to the item of supply to be adjusted. EXECUTABLE HELP: `D XACC^ASUJHELP`
5	INDEX NUMBER	1;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2)!'(X?2N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Answer must be a valid index number representing an item of supply in the Index Master File.` DESCRIPTION: Index Number is a unique number associated with an item of supply. It must pass the modulus 11 test.
6	QUANTITY	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: If a quantity is entered, the quantity in the Station Master for the Index item of supply will be adjusted.
7	VALUE	1;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits` DESCRIPTION: If a Value is entered, the Value field of the Station Master for the Index item of supply will be adjusted.
8	VOUCHER NUMBER	1;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<8) X` LAST EDITED: `JAN 08, 1998` HELP-PROMPT: `Answer must be 2 digit fiscal year '-' 2 digit month '-' 4 digit serial#` DESCRIPTION: A voucher number identifies a group of associated transactions. It consists of a 2 digit year (must be current to previous fiscal year) a 2 digit month and a 4 digit serial number each group separated by -. CROSS-REFERENCE: `9002036.2^V` 1)= S ^ASUT(2,"V",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"V",$E(X,1,30),DA)
9	P.O. NO.	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter the Purchase Order Number 1-7 long not all blank or zero` DESCRIPTION: Purchase Order number associated with the transaction CROSS-REFERENCE: `9002036.2^P` 1)= S ^ASUT(2,"P",$E(X,1,30),DA)="" 2)= K ^ASUT(2,"P",$E(X,1,30),DA)
10	EXPIRATION DATE	1;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter Date` DESCRIPTION: Date
11	SUB SUB ACTIVITY	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter code from Sub Sub Activity table` DESCRIPTION: Sub Sub Activity accounting code associated with this transaction from the ASUTBL SUB-SUB ACTIVITY pointer field EXECUTABLE HELP: `D XSSA^ASUJHELP`
12	SOURCE CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter code from Source table` DESCRIPTION: Set from ASUTBL SOURCE pointer field Assigns the Source (place purchased) for this transaction EXECUTABLE HELP: `D XSRC^ASUJHELP`
13	SUB STATION CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'(X?2N.N!X?1"PL") X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Answer must be 2-3 characters in length.`
14	USER CODE	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Answer must be 3 characters in length.`
18	FORP	1;18	SET	'F' FOR FULL; 'P' FOR PARTIAL; LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter status of quantity received` DESCRIPTION: Quantity Received: F = Full P = Partial
19	DUE IN UPDATE	1;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`

Name	Line Occurrences (* Changed, ! Killed)
^ASUT(2 - [#9002036.2]	.01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K) , .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4) , 1(XREF 2n59.2), 8(XREF 1S), 8(XREF 1K), 9(XREF 1S), 9(XREF 1K)
^DD(	1(XREF 2n1.4), 1(XREF 2n2.4)
^DD(9002036.2	1(XREF 2S), 1(XREF 2K), 1(XREF 2n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.07+1, .08+1, .09+1, 10+1
>> D0	1(XREF 2S), 1(XREF 2K), 1(XREF 2n59.2)
>> DA	.01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K) , .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 8(XREF 1S), 8(XREF 1K) , 9(XREF 1S), 9(XREF 1K)
>> DIG	1(XREF 2n1.4), 1(XREF 2n2.4)
>> DIH	1(XREF 2n1.4), 1(XREF 2n2.4)
>> DIU	1(XREF 2S), 1(XREF 2K)
DIV	1(XREF 2S), 1(XREF 2n1.1), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.1), 1(XREF 2n2.4)
DIV(0	1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4)
U	ID5+1, ID8+1, 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4), 1(XREF 2n59.2)
X	.01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .07+1!, .07(XREF 1S), .07(XREF 1K), .08+1! , .08(XREF 1S), .08(XREF 1K), .09+1!, .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .21+1!, .22+1!, .23+1! , .25+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2n1.1), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.1), 1(XREF 2n2.4), 1(XREF 2n59.2) , 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1!, 8+1!, 8(XREF 1S), 8(XREF 1K), 9+1! , 9(XREF 1S), 9(XREF 1K), 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 19+1!
Y	.01OT+1, .07+1, .08+1, .09+1, 1(XREF 2S), 1(XREF 2K), 10+1
Y(0	.01OT+1*
Y(1	1(XREF 2S), 1(XREF 2n1.1), 1(XREF 2K), 1(XREF 2n59.2)
Y(2	1(XREF 2n1.1), 1(XREF 2n2.1), 1(XREF 2n59.2)
Y(3	1(XREF 2n1.1), 1(XREF 2n2.1), 1(XREF 2n59.2)
Y(4	1(XREF 2n59.2)
Y(5	1(XREF 2n2.1), 1(XREF 2n59.2)
Y(6	1(XREF 2n2.1), 1(XREF 2n59.2)
Y(7	1(XREF 2n2.1)

Customize PDF page

Package: Supply

Global: ^ASUT(2

Information

Description

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 11

Fields, Total: 38

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.07+1, .08+1, .09+1, 10+1
^ASU0TFMI	.01+1
^ASU0TFMO	.01OT+1
XACC^ASUJHELP	4(HELP )
XARE^ASUJHELP	2(HELP )
XSRC^ASUJHELP	12(HELP )
XSSA^ASUJHELP	11(HELP )
XSTA^ASUJHELP	3(HELP )
^DICR	1(XREF 2n1.4), 1(XREF 2n2.4)

Name	Field # of Occurrence
^(0	1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4)
^(1	ID5+1, ID8+1, 1(XREF 2n59.2)