Routine: ASURO3UT

Information

ASURO3UT ; IHS/ITSC/LMH -FILEMAN UTILITY REPORTS 3* ;

Source file <ASURO3UT.m>

Package	Total	Call Graph
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Supply	5	ASU35ASCL ASUTP34 ASUTP35 ASUTP3D ASUTP3E

Name	Comments	DBIA/ICR reference
PRINT	;EP;PRINT TOTALS
WDESC	;EP;WRITE WORD PROCESSING DESCRIPTION
DESC	;EP;SET UP DESCRIPTION

Name	Field # of Occurrence
^DIWP	DESC+6

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: "REPORT #",$E($P(XQY0,U,2),2,$L($P(XQY0,U,2))) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?80,"DATE ",ASUK("DT") Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"AREA",?9,ASUL(1,"AR","NM"),!! Line Location: PRINT+4
Function Call: WRITE	Prompt: "_" Line Location: PRINT+5
Function Call: WRITE	Prompt: !!?50,"REPORT TOTAL STATISTICS",!! Line Location: PRINT+6
Function Call: WRITE	Prompt: !!?25,"NUMBER OF AREA/STATION MASTERS PROCESSED : ",$J($FN($S($G(ASUC("MSTRS"))="":0,1:ASUC("MSTRS")),","),9) Line Location: PRINT+7
Function Call: WRITE	Prompt: !!?25,"NUMBER OF MASTERS WITH NATIONAL STOCK NUMBERS : ",$J($FN($S($G(ASUC("NSN"))="":0,1:ASUC("NSN")),","),9) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?10,ASU1(1) Line Location: DESC+15
Function Call: WRITE	Prompt: !?10,ASU1(ASUC("D2")) Line Location: WDESC+2

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	ASURO3UT+8
^ASUMX - [#9002032]	DESC+1, DESC+4, DESC+5, DESC+11, DESC+12
^UTILITY($J	DESC+2!, DESC+7, DESC+8

Name	Field # of Occurrence
ASU1	WDESC+3!
ASU1(	DESC+8*, WDESC+2
ASU1(1	DESC+11*, DESC+15
ASU1(2	DESC+12*
>> ASUC	PRINT+5*
>> ASUC("D"	DESC+9, DESC+13, WDESC+1, WDESC+2, WDESC+3!
>> ASUC("D1"	DESC+4*, DESC+5, DESC+16!
>> ASUC("D2"	DESC+5, DESC+14!, DESC+16!, WDESC+2, WDESC+3!
>> ASUC("D3"	DESC+7*, DESC+8, DESC+9, DESC+16!
>> ASUC("MSTRS"	ASURO3UT+7*, PRINT+7, PRINT+9!
>> ASUC("NSN"	ASURO3UT+8*, PRINT+8, PRINT+9!
>> ASUK("DT"	PRINT+3
>> ASUL(1	PRINT+4
>> D0	ASURO3UT+5, ASURO3UT+6, ASURO3UT+8
>> D1	ASURO3UT+5, ASURO3UT+6, ASURO3UT+8, DESC+1, DESC+4, DESC+5, DESC+11, DESC+12
>> DIWF	DESC+3*
DIWL	DESC+3*, DESC+7, DESC+8, DESC+16!
DIWR	DESC+3*, DESC+16!
IOF	PRINT+1
U	ASURO3UT+8, PRINT+2, DESC+4, DESC+11, DESC+12
>> X	DESC+5*
>> XQY0	PRINT+2