Routine: IBDFU8

Information

IBDFU8 ;ALB/CJM - ENCOUNTER FORM - selection routines for form components;OCT 8,1993

Source file <IBDFU8.m>

Package	Total	Call Graph
Automated Information Collection System	1	PAUSE^IBDFU5
Kernel	1	$$UP^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	7	IBDE3 IBDE4 IBDF13 IBDF5 IBDF5B IBDFGRP IBDFQSL

Name	Comments	DBIA/ICR reference
AGAIN	;
HELP	;choosing help restarts the display (by setting NAME="")
SLCTBLK(FORM,SCRNSIZE,EXCLUDE)	;SCRNSIZE is the number of lines available for scrolling
CHOOSE()	;asks the user to select a blk - @ARY@("#", is the aray of blocks displayed so far(subscripted by the number on the list), @ARY@("NAME", the entire array (subscripted by name,ien)
FINDALL()	;finds all of the blocks on FORM (except the one named EXCLUDE) and puts them on @ARY,returns the cound
MSG	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,COUNT," ",NAME,?38,$E($P($G(^IBE(357.1,BLK,0)),"^",13),1,42) Line Location: AGAIN+4
Function Call: WRITE	Prompt: !,"You can choose a block by the number or by it's name.",! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"You must enter the number or name of the block!" Line Location: MSG+1
Routine Call	DIR Line Location: AGAIN+7

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.1 - [#357.1]	AGAIN+4, FINDALL+2

Name	Field # of Occurrence
ANS	CHOOSE+2~, CHOOSE+5, CHOOSE+7, CHOOSE+8, CHOOSE+9, CHOOSE+10, CHOOSE+13*, CHOOSE+16, CHOOSE+19, CHOOSE+23 , CHOOSE+24
ARY	SLCTBLK+9~, SLCTBLK+10*, SLCTBLK+11, SLCTBLK+15, AGAIN+2, AGAIN+3, AGAIN+4, AGAIN+9, FINDALL+2, CHOOSE+16 , CHOOSE+19, CHOOSE+23, CHOOSE+24, CHOOSE+26
BLK	SLCTBLK+9~, AGAIN+3, AGAIN+4, FINDALL+1~, FINDALL+2
CNT	SLCTBLK+9~, SLCTBLK+12*, SLCTBLK+15, CHOOSE+6
COUNT	SLCTBLK+9~, AGAIN+1, AGAIN+4, AGAIN+5, AGAIN+6, FINDALL+1~, FINDALL+2, FINDALL+3, CHOOSE+6, HELP+3
DIR	AGAIN+7!
DIR("A"	AGAIN+7*
DIR("B"	AGAIN+7*
DIR(0	AGAIN+7*
>> DIRUT	AGAIN+7
DTIME	CHOOSE+7
EXCLUDE	SLCTBLK~, SLCTBLK+8*, FINDALL+2
FORM	SLCTBLK~, SLCTBLK+5, FINDALL+2
NAME	SLCTBLK+9~, SLCTBLK+15, AGAIN+1, AGAIN+2, AGAIN+3, AGAIN+4, FINDALL+2, HELP+3*
NEXT1	CHOOSE+2~, CHOOSE+23*, CHOOSE+24, CHOOSE+26
NEXT2	CHOOSE+2~, CHOOSE+24*
NODE	FINDALL+1~, FINDALL+2*
PICK	SLCTBLK+9~, AGAIN+1, AGAIN+2, AGAIN+3, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+8, AGAIN+10, CHOOSE+2~ , CHOOSE+5, CHOOSE+8, CHOOSE+16, CHOOSE+19, CHOOSE+20, CHOOSE+26, CHOOSE+27, HELP+3*
QUIT	CHOOSE+2~, CHOOSE+3, CHOOSE+4, CHOOSE+8, CHOOSE+9, CHOOSE+16, CHOOSE+19, CHOOSE+26, HELP+3*
SCRNSIZE	SLCTBLK~, SLCTBLK+6, SLCTBLK+7, AGAIN+5, AGAIN+6
>> Y	AGAIN+7