Routine: ASUAUTIL

Information

ASUAUTIL ;DSD/DFM -UTILITY SUB-ROUTINES; [ 04/15/98 2:55 PM ]

Source file <ASUAUTIL.m>

Package	Total	Call Graph
Supply	2	(LOOKUP,SETAREA)^ASUAUARE CLS^ASUAULGO
Kernel	1	HOME^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	2	ASUAUARE ASUAWXT

Name	Comments	DBIA/ICR reference
COMDN	;EP - SET SIGN NEGATIVE, INSERT DECIMALS AND COMMAS
STAT	;EP - Lookup Station Name. X=AREA CODE, X1=STATION CODE.
LOG	;EP; SAVE OR PRINT LOG DATA
COM	;EP - INSERT COMMAS & RIGHT JUSTIFY (X2 = # DECIMAL, X3 = SIZE OF OUTPUT)
RND0D	;EP TO ROUND TO WHOLE NUMBER
RND2D	;EP TO ROUND TO TWO DECIMAL PLACES
AREA	;EP - Lookup Area Name. X=AREA CODE
STPRINT	;
PVLOG	;EP - QUEUED JOB LISTING
PHONE	;EP INPUT TRANSFORM FOR A PHONE NUMBER
LOGV	;EP; SAVE OR PRINT INVENTORY LOG DATA
STL	;
STK	;
COMN	;EP - SET SIGN NEGATIVE INSERT COMMAS
GL	;EP - Lookup GL Account Name. X=GL CODE
STX	;
COMD	;EP - INSERT DECIMAL & COMMAS
ARPRINT	;EP; Write out Area Name and save Area Lookup table EIN
ARX	;
ITEM	;EP - Lookup item Description 1 & 2. X=INDEX NUMBER.
INDC	;EP INSERT DECIMAL POINT (IF NO X2, DEFAULT IS 2 PLACES)
ARL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",ASUK("AREA NAME") Line Location: ARPRINT+1
Function Call: WRITE	Prompt: " ",ASUK("STATION","NAME") Line Location: STPRINT+1
Function Call: WRITE	Prompt: !!,"The following are SAMS Inventory System messages from Queued Jobs:",!! Line Location: PVLOG+3
Function Call: WRITE	Prompt: !!,"ALL MESSAGES HAVE BEEN PRINTED",!! Line Location: PVLOG+7
Routine Call	%ZIS Line Location: LOGV+6 LOG+5
Routine Call	DIR Line Location: LOGV+8 PVLOG+6 PVLOG+8

Name	Line Occurrences (* Changed, ! Killed)
^ASUINDX(	ITEM+5, ITEM+6
^ASUINDX("B"	ITEM+3, ITEM+4
^ASUTB01(	ARL+2, STL+1, STL+2
^ASUTB01("B"	ARL+1
^ASUTBLA(	GL+1
^ASUTBLA("B"	GL+1
^ASUX(0	LOGV+4, LOG+2, PVLOG+1, PVLOG+4, PVLOG+5, PVLOG+9!

Name	Field # of Occurrence
>> ASUF("LOOKA"	AREA+1, AREA+2, AREA+4, ARL+3, ARL+4
>> ASUIXM("DESCRIPTION1"	ITEM+1, ITEM+5
>> ASUIXM("DESCRIPTION2"	ITEM+1, ITEM+6
>> ASUK("ACCOUNT	NAME" , GL+1*
>> ASUK("AREA NA	ME" , ARPRINT+1, ARL+2*
>> ASUK("AREA"	AREA+3, AREA+5, ARL+1, STAT+1, STAT+3, STAT+4
>> ASUK("LOG LIN	E" , LOG+1*, LOG+2
>> ASUK("LOG VLI	N" , LOGV+3, LOGV+4, PVLOG+4, PVLOG+5, PVLOG+9!
>> ASUK("PRINT Q	UEUED" , LOGV+1, LOGV+2, LOG+3, LOG+4
>> ASUK("STATION"	STPRINT+1, STK+1, STK+2, STK+3, STL+1, STL+2*
>> ASUK("TR1"	ARL+1, ARL+2, STL+1, STL+2
>> ASUTRX	LOGV+4, LOGV+7, LOG+2, LOG+6
DIR	LOGV+8!, PVLOG+6!, PVLOG+8!
DIR(0	LOGV+8, PVLOG+6, PVLOG+8*
IO(0	LOGV+6, LOG+5
U	ARL+2, STL+2, GL+1, ITEM+5, ITEM+6
X	AREA+4, AREA+5, STAT+2, STAT+3, STAT+4, GL+1, ITEM+2, ITEM+3, ITEM+4, ITEM+5 , ITEM+6, COMDN+1, COMDN+2, COMDN+3, COMDN+5, COMDN+6, COMDN+9, COMD+1, COMN+1, COM+3* , COM+4, INDC+2, INDC+3*, RND2D+1, RND0D+1, PHONE+2, PHONE+3!, PHONE+5!
>> X1	STK+2, STK+3
>> X2	COM+1, COM+3, INDC+1, INDC+2, INDC+3
>> X3	COM+2*, COM+4
>> X4	INDC+2*
>> Y	RND2D+1, RND0D+1