Global: ^ASUT(6

FileMan FileNo	FileMan Filename	Package
9002036.6	ASUTRN ADJUSTMENT	Supply

Package	Total	Routines
Supply	1	^ASUT(6

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: 36

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.6^B` 1)= S ^ASUT(6,"B",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"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)	ASUTBL ACCOUNT(#9002039.09) LAST EDITED: `MAR 06, 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 29, 1996` 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 CROSS-REFERENCE: `9002036.6^I` 1)= S ^ASUT(6,"I",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"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.6^AE` 1)= S ^ASUT(6,"AE",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"AE",$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.6^AD` 1)= S ^ASUT(6,"AD",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"AD",$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.6^AC` 1)= S ^ASUT(6,"AC",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"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.6^AX` 1)= S ^ASUT(6,"AX",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"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.6^C` 1)= S ^ASUT(6,"C",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"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: `JUN 08, 1999`
.12	SRC PTR	0;12	POINTER TO ASUTBL SOURCE CODE FILE (#9002039.05)	ASUTBL SOURCE CODE(#9002039.05) LAST EDITED: `JUN 08, 1999`
.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`
.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`
.2	VALUE CALCULATED FLAG	0;20	SET	'0' FOR ENTERED; '1' FOR CALCULATED; LAST EDITED: `FEB 29, 1996` HELP-PROMPT: `Enter 1 if Value field is left null and routine is to calculate value` DESCRIPTION: Set on if Value field is to be calculated by SAMS transaction posting routine
.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	STA/IDX 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 ADJUSTMENT 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	'6' FOR ADJUSTMENT; LAST EDITED: `JUN 09, 1999`
1	TRANSACTION CODE	1;1	SET	**********************REQUIRED FIELD********************** '27' FOR DEBIT INVENTORY ADJUSTMENT; '2P' FOR DEBIT ADJUSTMENT REVERSAL; '37' FOR CREDIT INVENTORY ADJUSTMENT; '3P' FOR CREDIT ADJUSTMENT REVERSAL; LAST EDITED: `JUN 03, 1999` HELP-PROMPT: `Select code representing transaction type` DESCRIPTION: Code representing the type of adjustment CROSS-REFERENCE: `9002036.6^T` 1)= S ^ASUT(6,"T",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"T",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002036.6^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ASUT(6,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.6,1,1,2,1.1) X ^DD(9002036.6,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(6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.6,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(6,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002036.6,1,1,2,2.1) X ^DD(9002036.6,1,1,2,2.4) 2.1)= S X=DIV X ^DD(9002036.6,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(6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=9002036.6,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S Y(1)=$S($D(^ASUT(6,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 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	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 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 separated by -. CROSS-REFERENCE: `9002036.6^V` 1)= S ^ASUT(6,"V",$E(X,1,30),DA)="" 2)= K ^ASUT(6,"V",$E(X,1,30),DA)
10	DATE	1;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 09, 1999` HELP-PROMPT: `Enter Date`
11	SUB SUB ACTIVITY	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Answer must be 2 characters in length.`
12	SOURCE CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JUN 08, 1999` HELP-PROMPT: `Answer must be 1 character in length.`
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.`

Name	Line Occurrences (* Changed, ! Killed)
^ASUT(6 - [#9002036.6]	.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)
^DD(	1(XREF 2n1.4), 1(XREF 2n2.4)
^DD(9002036.6	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)
>> 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), 10+1! , 11+1!, 12+1!, 13+1!, 14+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(6

Information

Description

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 11

Fields, Total: 36

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 )
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)