Routine: IBODIV

Information

IBODIV ;BSN/GRR - MULTI-DIVISION SELECT ; 27 FEB 84 9:40 am

Source file <IBODIV.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,DIC("A")," ",$P(^(0),"^"),"// " Line Location: ASK+0
Function Call: WRITE	Prompt: *7," ??" Line Location: ASK+1
Function Call: WRITE	Prompt: " Enter 'ALL' for all divisions or" Line Location: ASK+2
Function Call: WRITE	Prompt: !,7,"**WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP" Line Location: ASK2+0

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls