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: IBDFU

Package: Automated Information Collection System

Routine: IBDFU


Information

IBDFU ;ALB/CJM - ENCOUNTER FORM (utilities) ;NOV 16,1992

Source Information

Source file <IBDFU.m>

Entry Points

Name Comments DBIA/ICR reference
DRWBOX(IBY,IBX,W,H) ;draws a box
HLINE(L,CHAR) ;returns a horizontal line
DRWVLINE(IBY,IBX,IBH,CHAR) ;draw vertical line
DRWSTR(IBY,IBX,STRING,OPTIONS,IBW) ;
UNDRLINE(IBY,IBX,W) ; underlining with when not using printers underlining ability
PADRIGHT(STR,LEN) ; pad right
STRIP(STR) ;strips off leading and trailing spaces
CMPSTR ;saves compiled string write
CMPVLINE ;save compiled vertical line write
CTRLS(CTRLS,IBX,IBY) ;returns the needed escape sequences
GRPHCS(GRPHCS) ;returns the needed graphics characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ON
  • Line Location: DRWSTR+26
Function Call: WRITE
  • Prompt: OFF
  • Line Location: DRWSTR+28
Function Call: WRITE
  • Prompt: $C(27)_"&f0S",!,$C(27)_"&a"_IBY_"r"_(IBX+.05)_"C",$C(27)_"&a-1R",$C(27)_"*p+10Y",$C(27)_"*c"_(IBDEVICE("COL_WIDTH")*(+P2)-3)_"h"_((IBDEVICE("ROW_HT")-10))_"v0P",$C(27)_"&f1S"
  • Line Location: CTRLS+9
Function Call: WRITE
  • Prompt: $C(27)_"&f0S",!,$C(27)_"&a"_IBY_"r"_(IBX-.5)_"C",$C(27)_"&a-1.005R",$C(27)_"*p+10Y",$C(27)_"*c"_(IBDEVICE("COL_WIDTH")*(+P2+1))_"h"_((IBDEVICE("ROW_HT")-10))_"v0P",$C(27)_"&f1S"
  • Line Location: CTRLS+10
Info |  Source |  Entry Points |  Interaction Calls