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

Package: Automated Information Collection System

Routine: IBDF2F


Information

IBDF2F ;ALB/CJM - ENCOUNTER FORM - PRINT FORM(sends to printer) ;NOV 16,1992

Source Information

Source file <IBDF2F.m>

Entry Points

Name Comments DBIA/ICR reference
LNPRINT(IBPFID) ;prints the form
UNDRLINE ;
PGRPHCS(STARTY,LASTY) ;print graphics - only for raster devices
DRAW(STARTY,LASTY) ; draws the objects needing HP-GL/2
DRWBBL(Y,X) ;
; -- position is in terms of col,row - change to decipoints
DRWBOX(Y,X,WIDTH,HT) ;
; -- position is in terms of col,row - change to decipoints
HANDPRNT(Y,X,WIDTH,LINES,PRNTTYPE,TYPEDATA) ; draw hand print area
; -- FORMAT - contains overlay for the field
; -- UNIT - label to print on the right of print area
; -- PRNTTYPE = could be for ICR (print comb) or not ICR (no comb, different size)
FRMT(ND,ADT) ; -- function returns piece 5 on entries from 359.1
; -- reformats the Checkout/date format for y2k
; -- input nd := zero node from 359.1 for entry
; adt := alternate date (appointment date, when known)
WHITEOUT ; -- puts white space around the anchors
; helps insure that the anchors can be located

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBDEVICE("DUPLEX_LONG")
  • Line Location: LNPRINT+9
Function Call: WRITE
  • Prompt: IBDEVICE("DUPLEX_SHORT")
  • Line Location: LNPRINT+10
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: LNPRINT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LNPRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: LNPRINT+33
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: LNPRINT+51
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: LNPRINT+52
Function Call: WRITE
  • Prompt: @IBDEVICE("RESET")
  • Line Location: LNPRINT+59
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: PGRPHCS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PGRPHCS+5
Function Call: WRITE
  • Prompt: GRPHCS
  • Line Location: PGRPHCS+5
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: PGRPHCS+7
Function Call: WRITE
  • Prompt: $C(27),"*p0x0Y"
  • Line Location: DRAW+2
Function Call: WRITE
  • Prompt: $C(27),"*c5760x7200Y"
  • Line Location: DRAW+3
Function Call: WRITE
  • Prompt: $C(27),"*c0T"
  • Line Location: DRAW+4
Function Call: WRITE
  • Prompt: $C(27),"%1B"
  • Line Location: DRAW+5
Function Call: WRITE
  • Prompt: "IN;SP1;"
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: "SC0,5760,7200,0;"
  • Line Location: DRAW+7
Function Call: WRITE
  • Prompt: "AD3,16.6;"
  • Line Location: DRAW+8
Function Call: WRITE
  • Prompt: "PW."_PWPARAM_";"
  • Line Location: DRAW+17
Function Call: WRITE
  • Prompt: "SV1,"_FIPARAM_";"
  • Line Location: DRAW+18
Function Call: WRITE
  • Prompt: "PW.4;"
  • Line Location: DRAW+24
Function Call: WRITE
  • Prompt: "SV1,100;"
  • Line Location: DRAW+25
Function Call: WRITE
  • Prompt: "PW."_PWPARAM_";"
  • Line Location: DRAW+37
Function Call: WRITE
  • Prompt: "SV1,"_FIPARAM_";"
  • Line Location: DRAW+38
Function Call: WRITE
  • Prompt: $C(27),"%0A"
  • Line Location: DRAW+46
Function Call: WRITE
  • Prompt: "PA"_(X)_","_(Y)_";"
  • Line Location: DRWBBL+5
Function Call: WRITE
  • Prompt: "EA"_(X+87)_","_(Y+45)_";"
  • Line Location: DRWBBL+8
Function Call: WRITE
  • Prompt: "PA"_(X)_","_(Y)_";"
  • Line Location: DRWBOX+5
Function Call: WRITE
  • Prompt: "EA"_(X+((WIDTH-1)*IBDEVICE("COL_WIDTH")))_","_(Y+((HT-1.7)*IBDEVICE("ROW_HT")))_";"
  • Line Location: DRWBOX+8
Function Call: WRITE
  • Prompt: "SA;","PA"_(X+50+(172.7654*WIDTH))_",",(Y+(120))_";","LB",UNIT,$CHAR(3),"SS;"
  • Line Location: HANDPRNT+19
Function Call: WRITE
  • Prompt: "PA"_(X+(172.7654*I))_",",(Y+(180))_";PD;PR0,-180;PU"
  • Line Location: HANDPRNT+21
Function Call: WRITE
  • Prompt: $C(27),"&a0v0H",!
  • Line Location: WHITEOUT+5
Function Call: WRITE
  • Prompt: $C(27),"&l0E"
  • Line Location: WHITEOUT+6
Function Call: WRITE
  • Prompt: $C(27),"&a354v4H",$C(27),"*c200h60v1P"
  • Line Location: WHITEOUT+9
Function Call: WRITE
  • Prompt: $C(27),"&a7505v4H",$C(27),"*c200h60v1P"
  • Line Location: WHITEOUT+12
Function Call: WRITE
  • Prompt: $C(27),"&a354v5450H",$C(27),"*c400h60v1P"
  • Line Location: WHITEOUT+15
Function Call: WRITE
  • Prompt: $C(27),"&a7505v5450H",$C(27),"*c400h60v1P"
  • Line Location: WHITEOUT+18
Info |  Source |  Entry Points |  Interaction Calls