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

Package: Automated Information Collection System

Routine: IBDF2F2


Information

IBDF2F2 ;ALB/AAS - PRINT VA LOGO AS ANCHORS ON ENCOUNTER FORMS ; 25-JUNE-97

Source Information

Source file <IBDF2F2.m>

Entry Points

Name Comments DBIA/ICR reference
ANCHORS ; -- print anchors,
; escape &a positions cursor at specified vert and horiz decipoints
; escape &f1y2X prints macro #1
MACRO ; -- build macro for printing va logo
; -- position cursor before printing macro
VALOGO ; -- Raster Graphic print of VA LOGO
; -- position curser before calling directly
1
2
3
4 ;W $C(27),"*b5W",$C(15),$C(248),$C(31),$C(252),$C(0)
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 ;W $C(27),"*b5W",$C(0),$C(127),$C(239),$C(255),$C(192)
33
34
TESTM ; -- Test macro printing
END
TESTD ; -- Test printing without macro
END1
DIRECT ; -- print logo direct without macros
; -- top left corner (ANCHOR 1)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(27),"&a184v4H",$C(27),"&f1y2X"
  • Line Location: ANCHORS+11
Function Call: WRITE
  • Prompt: !,$C(27),"&a184v5534H",$C(27),"&f1y2X"
  • Line Location: ANCHORS+14
Function Call: WRITE
  • Prompt: !,$C(27),"&a7615v4H",$C(27),"&f1y2X"
  • Line Location: ANCHORS+17
Function Call: WRITE
  • Prompt: $C(27),"&a7576v3400H",$C(27),"&f1y2X"
  • Line Location: ANCHORS+20
Function Call: WRITE
  • Prompt: $C(27),"&a7615v5534H",$C(27),"&f1y2X"
  • Line Location: ANCHORS+23
Function Call: WRITE
  • Prompt: $C(27),"&f1Y"
  • Line Location: MACRO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MACRO+3
Function Call: WRITE
  • Prompt: $C(27),"&f0X"
  • Line Location: MACRO+4
Function Call: WRITE
  • Prompt: $C(27),"&f1X"
  • Line Location: MACRO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MACRO+7
Function Call: WRITE
  • Prompt: $C(27),"&f1y10X"
  • Line Location: MACRO+8
Function Call: WRITE
  • Prompt: $C(27),"*t150R"
  • Line Location: VALOGO+2
Function Call: WRITE
  • Prompt: $C(27),"*r0F"
  • Line Location: VALOGO+3
Function Call: WRITE
  • Prompt: $C(27),"*r1A"
  • Line Location: VALOGO+4
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(3),$C(224),$C(15),$C(248),$C(0)
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(7),$C(240),$C(15),$C(248),$C(0)
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(15),$C(240),$C(31),$C(252),$C(0)
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(15),$C(248),$C(31),$C(254),$C(0)
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(31),$C(252),$C(63),$C(254),$C(0)
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(31),$C(252),$C(63),$C(255),$C(0)
  • Line Location: 7+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(32),$C(254),$C(112),$C(63),$C(0)
  • Line Location: 8+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(32),$C(254),$C(112),$C(63),$C(128)
  • Line Location: 9+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(96),$C(126),$C(112),$C(31),$C(128)
  • Line Location: 10+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(112),$C(127),$C(224),$C(15),$C(192)
  • Line Location: 11+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(240),$C(127),$C(224),$C(15),$C(192)
  • Line Location: 12+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(248),$C(63),$C(193),$C(7),$C(224)
  • Line Location: 13+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(252),$C(63),$C(193),$C(7),$C(224)
  • Line Location: 14+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(252),$C(31),$C(195),$C(131),$C(240)
  • Line Location: 15+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(126),$C(15),$C(195),$C(131),$C(240)
  • Line Location: 16+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(126),$C(15),$C(131),$C(131),$C(240)
  • Line Location: 17+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(63),$C(7),$C(135),$C(193),$C(248)
  • Line Location: 18+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(63),$C(3),$C(135),$C(193),$C(248)
  • Line Location: 19+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(31),$C(131),$C(7),$C(224),$C(252)
  • Line Location: 20+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(31),$C(129),$C(15),$C(224),$C(252)
  • Line Location: 21+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(15),$C(193),$C(15),$C(240),$C(124)
  • Line Location: 22+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(15),$C(192),$C(12),$C(0),$C(120)
  • Line Location: 23+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(7),$C(224),$C(30),$C(0),$C(120)
  • Line Location: 24+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(7),$C(224),$C(30),$C(0),$C(56)
  • Line Location: 25+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(3),$C(240),$C(63),$C(0),$C(48)
  • Line Location: 26+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(3),$C(240),$C(63),$C(0),$C(16)
  • Line Location: 27+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(1),$C(255),$C(255),$C(255),$C(240)
  • Line Location: 28+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(1),$C(255),$C(255),$C(255),$C(224)
  • Line Location: 29+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(0),$C(255),$C(255),$C(255),$C(224)
  • Line Location: 30+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(0),$C(255),$C(239),$C(255),$C(192)
  • Line Location: 31+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(0),$C(127),$C(199),$C(255),$C(128)
  • Line Location: 33+0
Function Call: WRITE
  • Prompt: $C(27),"*b5W",$C(0),$C(63),$C(131),$C(255),$C(128)
  • Line Location: 34+0
Function Call: WRITE
  • Prompt: $C(27),"*rB"
  • Line Location: 34+1
Function Call: WRITE
  • Prompt: $C(27),"&l0E"
  • Line Location: TESTM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TESTM+7
Function Call: WRITE
  • Prompt: $C(27),"&l0E"
  • Line Location: TESTD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TESTD+7
Function Call: WRITE
  • Prompt: !,$C(27),"&a184v4H",$C(27)
  • Line Location: DIRECT+2
Function Call: WRITE
  • Prompt: !,$C(27),"&a184v5534H"
  • Line Location: DIRECT+5
Function Call: WRITE
  • Prompt: !!!,"PRINTING ANCHORS DIRECTLY, NO MACRO"
  • Line Location: DIRECT+7
Function Call: WRITE
  • Prompt: !,$C(27),"&a7615v4H"
  • Line Location: DIRECT+10
Function Call: WRITE
  • Prompt: $C(27),"&a7576v3400H"
  • Line Location: DIRECT+13
Function Call: WRITE
  • Prompt: $C(27),"&a7615v5534H"
  • Line Location: DIRECT+16
Info |  Source |  Entry Points |  Interaction Calls