Routine: IBTASFAC

Entry Points

Name	Comments	DBIA/ICR reference
FACILITY(RESULT,ARG)	;
VISNS(IBLIST)	;
DIVISIONS(IBLIST)	;
STATIONS(IBLIST)	;
RESULTS(IBLIST,RESULT)	; Move into result in vaid json format
REPORT(EXCEL)	; Build the list and display the results.
DISPLAY(IBLIST,EXCEL)	; Display results.
NAME(IBNAME)	; Strip commas from name.
CPACMAP(IBCPAC)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,IBLIST(IBVISN) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !?4,IBDIVNO,?9,IBDIVNAME Line Location: DISPLAY+25
Function Call: WRITE	Prompt: !,IBCOUNT,"^" Line Location: DISPLAY+37
Function Call: WRITE	Prompt: $G(IBCPAC(IBLIST(IBVISN))),"^" Line Location: DISPLAY+38
Function Call: WRITE	Prompt: IBLIST(IBVISN),"^" Line Location: DISPLAY+39
Function Call: WRITE	Prompt: IBDIVNO,"^" Line Location: DISPLAY+40
Function Call: WRITE	Prompt: IBDIVNAME,"^" Line Location: DISPLAY+41
Function Call: WRITE	Prompt: IBDIVSTATE,"^" Line Location: DISPLAY+42
Function Call: WRITE	Prompt: IBSTNIDNO,"^" Line Location: DISPLAY+43
Function Call: WRITE	Prompt: IBSTNNAME,"^" Line Location: DISPLAY+44
Function Call: WRITE	Prompt: IBSTNSTATE Line Location: DISPLAY+45
Function Call: WRITE	Prompt: !?6,IBSTNIDNO,?13,IBSTNNAME Line Location: DISPLAY+47

RPC Name	Call Tags
IBTAS FACILITY BY VISN	FACILITY