Routine: BNITTOA

Information

BNITTOA ; IHS/CMI/LAB - toa table ;

Source file <BNITTOA.m>

Name	Comments	DBIA/ICR reference
SORT	;
PIH
HEAD
CODE	;
ZIS	;call to XBDBQUE
HEAD1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
TOPIC	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
EXIT	;clean up and exit
PRINT	;EP - called from xbdbque
DONE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: START+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: START+3
Function Call: WRITE	Prompt: !!,"This report will list the CPHAD Type of Activity table.",!! Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BNIPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR("CPHAD TYPE OF ACTIVITY TABLE LISTING",80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"TYPE OF ACTIVITY",?65,"CODE",?74,"OTHER?",!,$$REPEAT^XLFSTR("-",80),! Line Location: PIH+0
Routine Call	DIR Line Location: SORT+2 DONE+1 HEAD+1 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^BNITOA - [#90511.03]	CODE+4, TOPIC+4
^BNITOA("B"	TOPIC+1, TOPIC+2
^BNITOA("C"	CODE+1, CODE+2
^DIC(4 - [#4]	HEAD1+3, LOC+1
^VA(200 - [#200]	HEAD1+2, USR+1

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Name	Field # of Occurrence
>> BNIPG	PRINT+1, HEAD, HEAD1+1, HEAD1+2
>> BNIQ	PRINT+1, CODE+1, CODE+2, CODE+3, TOPIC+1, TOPIC+2, TOPIC+3, HEAD+1
>> BNISORT	SORT+1, SORT+4, PRINT+2, PRINT+3
>> BNIX	CODE+1, CODE+2, TOPIC+1, TOPIC+2
>> BNIY	CODE+2, CODE+4, TOPIC+2, TOPIC+4
DA	SORT+2!
DFOUT	EOP+4!
DIR	SORT+2!, DONE+1!, HEAD+1!, EOP+3~
DIR("A"	SORT+2, DONE+1
DIR("B"	SORT+2*
DIR(0	SORT+2, DONE+1, HEAD+1, EOP+5
DIRUT	SORT+3, DONE+1*, EOP+4!
DLOUT	EOP+4!
DTOUT	HEAD+1, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEAD1+2, USR+1
DUZ(2	HEAD1+3, LOC+1
IO	DONE+1, HEAD+1
IO("S"	EOP+2
IO(0	DONE+1, HEAD+1
IOF	START+1, HEAD1+1
IOM	CTR+1
IOSL	CODE+3, TOPIC+3
IOST	DONE+1, HEAD+1, EOP+1
>> IOT	EOP+2
U	CODE+4, TOPIC+4, HEAD1+2, HEAD1+3, USR+1, LOC+1
X	CTR~, CTR+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	SORT+4, HEAD+1, CTR~, CTR+1
>> ZTQUEUED	EOP+2