Routine: ASURD10P

Information

ASURD10P ; IHS/ITSC/LMH -RPT 10A -LST DIRECT ISSUE TRANS ; [ 07/18/2000 7:59 AM ]

Package	Total	Call Graph
Supply	6	READ^ASU0TRRD (SETAREA,STA)^ASULARST ^ASUUDATA ^ASUURANG PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	2	ASU5110DRA ASUCORPX

Name	Comments	DBIA/ICR reference
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 10
CMPT	;EP;COMPUTE REPORT CONTENTS
K	;
HEADER	;EP ;PRINT REPORT HEADING LINES
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
DUMB	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !?5,"REPORT #10A. LIST DIRECT ISSUE TRANSACTIONS" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?100,"DATE: ",ASUX("DT"),?120,"PAGE: ",ASUC("PG") Line Location: HEADER+4
Function Call: WRITE	Prompt: !?3,"AREA: ",ASUL(1,"AR","AP") Line Location: HEADER+5
Function Call: WRITE	Prompt: ?15,ASUL(1,"AR","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?3,"STATION: ",$G(ASUL(2,"STA","CD")) Line Location: HEADER+8
Function Call: WRITE	Prompt: ?15,$G(ASUL(2,"STA","NM")) Line Location: HEADER+9
Function Call: WRITE	Prompt: !!?3,"VOUCHER",?14,"TRAN",?22,"NUMBER",?32,"VALUE",?39,"ACCOUNT",?47,"OBJECT",?54,"SUB SUB",?63,"CAN",?69,"USER",?75,"SUB",?80,"SOURCE",?88,"PURCHASE" Line Location: HEADER+10
Function Call: WRITE	Prompt: !?3,"NUMBER",?14,"CODE",?20,"LINE ITEMS",?40,"CODE",?46,"SUB OBJ",?56,"ACT",?69,"CODE",?75,"STAT",?81,"CODE",?89,"ORDER" Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------",!! Line Location: HEADER+12
Routine Call	%ZIS Line Location: EN+1
Routine Call	%ZIS Line Location: EN+6

Name	Line Occurrences (* Changed, ! Killed)
^ASUH("T"	CMPT+5
^XTMP("ASUR"	PSER+6, PSER+9, PSER+10, PSER+11, K+1!, CMPT+1!*

Name	Field # of Occurrence
ASUC	K+1!
ASUC("LN"	PSER+13, PSER+19, PSER+27, HEADER+13
ASUC("PG"	HEADER+1*, HEADER+2, HEADER+4
ASUC("TOT"	PSER+5, PSER+15, PSER+28
ASUC("VALTOT"	PSER+5, PSER+16, PSER+17, PSER+29, PSER+30
>> ASUHDA	PSER+11, PSER+12, CMPT+4, CMPT+5*, CMPT+6
>> ASUK(	EN+7
>> ASUK("DT"	CMPT+1
>> ASUK("PTR"	EN+7
>> ASUK("PTRSEL"	EN+4*, K+3
>> ASUL(1	EN+3, HEADER+5, HEADER+6
>> ASUL(2	K+1!, CMPT+6, HEADER+7, HEADER+8, HEADER+9
>> ASUN("B#"	CMPT+4
>> ASUN("E#"	CMPT+5
>> ASUN("TYP"	CMPT+2
ASUQ	K+1!
ASUQ("HDR"	PSER+3*
>> ASUT	PSER+12, PSER+14, PSER+18, PSER+22, PSER+23, PSER+25, PSER+26, CMPT+6
>> ASUT(	PSER+14, PSER+18, PSER+22, PSER+23, PSER+25, PSER+26, CMPT+6
>> ASUT("TRCD"	PSER+16, PSER+17, PSER+18, PSER+21
ASUV	K+1!
ASUV("ARST"	PSER+7, PSER+8*
ASUV("RPT"	PSER+3*
ASUV("SOBJ"	PSER+23*, PSER+24
ASUX	K+1!
ASUX("AS"	PSER+6*, PSER+7, PSER+8, PSER+9, PSER+10, PSER+11, HEADER+7
ASUX("DT"	HEADER+4
ASUX("NDTA"	PSER+4
ASUX("SQ"	PSER+5, PSER+10, PSER+11
ASUX("VAL"	PSER+14*, PSER+16, PSER+17, PSER+20
ASUX("VO"	PSER+5, PSER+9, PSER+10, PSER+11
>> DUOUT	PSER+6, PSER+7, PSER+9, PSER+10, PSER+13, HEADER+2
DUZ(2	EN+2
IO	EN+1
IOF	HEADER+2
>> IOP	EN+6*
IOSL	PSER+13, PSER+27
>> POP	EN+6
U	CMPT+1
>> X	HEADER+5*
Z	CMPT+1~, CMPT+3, CMPT+5, DUMB+1
>> ZTDESC	EN+5*
>> ZTRTN	EN+5*