Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBDFU8

Package: Automated Information Collection System

Routine: IBDFU8


Information

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

Source Information

Source file <IBDFU8.m>

Entry Points

Name Comments DBIA/ICR reference
SLCTBLK(FORM,SCRNSIZE,EXCLUDE) ;SCRNSIZE is the number of lines available for scrolling
AGAIN ;
FINDALL() ;finds all of the blocks on FORM (except the one named EXCLUDE) and puts them on @ARY,returns the cound
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)
HELP ;choosing help restarts the display (by setting NAME="")
MSG ;

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls