Routine: ACGSPUTL

Information

ACGSPUTL ;IHS/OIRM/DSD/THL,AEF - PRINT UTILITY FOR VENDOR AND GEOGRAPHICAL LOCATION LISTINGS; [ 03/27/2000 2:22 PM ]

Package	Total	Call Graph
Contracts and Grants	3	DIR^ACGSDIC (HEAD,HOLD)^ACGSMENU ^ACGSZIS
VA Fileman	2	EN1^DIP ^DIR
Kernel	1	^%ZIS

Name	Comments	DBIA/ICR reference
HEAD
VENDOR	;EP;TO PRINT VENDOR LISTINGS
ZIS
G	;;
ZIS1
V11
CHOICE
V1	;
EXIT
DIR
V	;;
PRINT
GL	;EP;TO PRINT GEOGRAPHICAL LOCATION LISTINGS
DISPLAY
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VENDOR+5
Function Call: WRITE	Prompt: ! Line Location: CHOICE+2
Function Call: WRITE	Prompt: !!," Choose one or more sort criterion:",! Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !?10,$P(ACGDATA(ACGI),U),?20,$P(ACGDATA(ACGI),U,2) Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?69,$P(^DIC(5,$P(ACGDT,U,8),0),U,2),?$X+1,$P(ACGDT,U,9),?$X+1,$P(^DIC(5,$P(ACGDT,U,8),0),U,3) Line Location: V1+10
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: V11+0
Function Call: WRITE	Prompt: !?20,"IHS CIS CONTRACTOR LISTING",!,"===============================================================================",! Line Location: V11+0
Function Call: WRITE	Prompt: !!?80-$L(ACGX)\2,ACGX Line Location: HEAD+1
Routine Call	DIR Line Location: DIR
Routine Call	%ZIS Line Location: V1+1

Name	Line Occurrences (* Changed, ! Killed)
^ACGCC - [#9002331.2]	V1+7
^ACGS - [#9002330]	V1+5, V1+6, V1+7
^ACGS("O"	V1+5
^ACGSC - [#9002331.3]	V1+7
^DIC(5 - [#5]	V1+10

Name	Field # of Occurrence
>> %ZIS("IOPAR"	PRINT*
ACG	EXIT!, V1+4, V1+5
>> ACG4	VENDOR+2, ZIS1, PRINT+2
>> ACGCC	V1+7*
>> ACGDA	V1+5*, V1+6, V1+7
ACGDATA	EXIT!, LOOP+1, DISPLAY+1
ACGDATA(	LOOP+1, DISPLAY+1*
ACGDIC	EXIT!, VENDOR+3, GL+1, CHOICE+7, ZIS
>> ACGDT	V1+6*, V1+9, V1+10
>> ACGENT	V1+7, V1+8, V1+9
>> ACGFLDS	VENDOR+3, GL+1, CHOICE+11*, ZIS
ACGI	EXIT!, CHOICE+1, LOOP+1, DISPLAY+1
>> ACGIHS1	V1+7*
>> ACGIO("HFSIO"	PRINT
ACGION	EXIT!, PRINT+1
>> ACGIOP	V1+1*
ACGIOPAR	EXIT!, PRINT
ACGQUIT	EXIT!, VENDOR+7, CHOICE+4, CHOICE+7, CHOICE+10, ZIS1+2, V1+1, V1+5, DIR*
>> ACGSC	V1+7*
>> ACGSORT	CHOICE+5*, LOOP+1
ACGTYPE	EXIT!, VENDOR+1, GL+1, CHOICE+6, ZIS
ACGX	EXIT!, VENDOR+3, GL+1, LOOP+1, LOOP+2, HEAD+1!
ACGY	EXIT!
BY	EXIT!, LOOP, LOOP+1
DA	EXIT!
DIC	EXIT!, ZIS*
>> DIOEND	ZIS*
DIR	DIR!
DIR("A"	VENDOR+4, CHOICE+1, CHOICE+8*
DIR("B"	VENDOR+4, CHOICE+1, CHOICE+8*
DIR(0	VENDOR+4, CHOICE+1, CHOICE+8*
DIRUT	DIR!
>> DIS(0	VENDOR+3, VENDOR+8
DR	EXIT!
DTOUT	DIR!
DUOUT	DIR!
>> FLDS	ZIS*
FR	EXIT!, LOOP, LOOP+1
IO	V1+2
IO("HFSIO"	PRINT*
IOF	V11
ION	PRINT, V1+1
IOP	PRINT+1, PRINT+4!, V1+1
IOSL	V1+11
IOST	V1+11
>> POP	V1+1
TO	EXIT!, LOOP, LOOP+1
U	CHOICE+4, LOOP+1, DISPLAY+1, V1+5, V1+7, V1+9, V1+10
>> X	CHOICE+4
>> Y	VENDOR+8, CHOICE+5, CHOICE+11
>> ZTDESC	ZIS*
>> ZTQUEUED	V1+1
>> ZTRTN	ZIS, ZIS1

Name	Field # of Occurrence
$T(@ACGTYPE+ACGI	DISPLAY+1