IBDF2F ;ALB/CJM - ENCOUNTER FORM - PRINT FORM(sends to printer) ;NOV 16,1992
Source file <IBDF2F.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|