Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: IBDF2F1

Package: Automated Information Collection System

Routine: IBDF2F1


Information

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

Source Information

Source file <IBDF2F1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 PID^VADPT  $$SITE^VASITE  
Automated Information Collection System 1 ANCHORS^IBDF2F2  
VA FileMan 1 FILE^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDF2F  

Entry Points

Name Comments DBIA/ICR reference
REGISTER(PAGE) ;registration for scanning, form # and patient at bottom
NAM
ANCHORS ; -- print anchors, anchors composed of two narrow rectangles
; escape &a positions cursor at specified vert and horiz decipoints
; escape *c prints rectangle of specified vert and horiz decipoints
; 0P is for complete fill.

External References

Name Field # of Occurrence
FILE^DICN REGISTER+35
ANCHORS^IBDF2F2 REGISTER+10
PID^VADPT NAM+11
$$SITE^VASITE NAM+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(27),"&a7576v3400H",$C(27),"&f1y2X",$C(27)
  • Line Location: REGISTER+15
Function Call: WRITE
  • Prompt: $C(27),"&a7576v3400H",$C(27),"*c140h140v0P",$C(27)
  • Line Location: REGISTER+16
Function Call: WRITE
  • Prompt: "Sample Form: ",$P($G(^IBE(357,+$G(IBFORM),0)),"^")
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: "Clinic: ",$P($G(^SC(+$G(IBCLINIC),0)),"^")
  • Line Location: NAM+9
Function Call: WRITE
  • Prompt: VA("PID")
  • Line Location: NAM+11
Function Call: WRITE
  • Prompt: $C(27),"&a1900H","**REPRINT**"
  • Line Location: NAM+15
Function Call: WRITE
  • Prompt: $C(27)_"(s0p16.67h8.5v0s0b0T"
  • Line Location: NAM+20
Function Call: WRITE
  • Prompt: $C(27)_"(s0p12h10v0s0b0T"
  • Line Location: NAM+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ANCHORS+6
Function Call: WRITE
  • Prompt: $C(27),"&a184v4H",$C(27),"*c12h120v0P",$C(27),"*c124h12v0P"
  • Line Location: ANCHORS+8
Function Call: WRITE
  • Prompt: $C(27),"&a184v5534H",$C(27),"*c116h12v0P",$C(27),"&a184v5650H",$C(27),"*c12h120v0P"
  • Line Location: ANCHORS+11
Function Call: WRITE
  • Prompt: !,$C(27),"&a7732v4H",$C(27),"*c124h12v0P",$C(27),"&a7615v4H",$C(27),"*c12h121v0P"
  • Line Location: ANCHORS+14
Function Call: WRITE
  • Prompt: $C(27),"&a7732v5534H",$C(27),"*c116h12v0P",$C(27),"&a7616v5650H",$C(27),"*c12h120v0P"
  • Line Location: ANCHORS+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.96 - [#357.96] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 REGISTER+35
^DPT - [#2] NAM+5
^IBD(357.96 - [#357.96] REGISTER+34
^IBE(357 - [#357] NAM+3
^SC - [#44] NAM+9
^TMP("IB" NAM+4, NAM+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REGISTER+35!
DA(1 REGISTER+35*
DD REGISTER+35!
>> DFN NAM+4, NAM+5, NAM+10, NAM+11
DIC REGISTER+35*!
DIC("P" REGISTER+35*
DIC(0 REGISTER+35*
DLAYGO REGISTER+35*!
DO REGISTER+35!
DX NAM+29*!
DY NAM+29*!
>> IBCLINIC NAM+9
>> IBDEVICE("PCL" REGISTER+2, NAM+29
>> IBDEVICE("RASTER" NAM+29
>> IBDSAMP NAM+3, NAM+9
>> IBFORM NAM+3
>> IBFORM("SCAN" REGISTER+3, REGISTER+10, REGISTER+30, NAM+29
>> IBFORM("TYPE" REGISTER+5, REGISTER+25
>> IBFORM("WIDTH" NAM+20, NAM+21
>> IBPFID REGISTER+5, REGISTER+26, REGISTER+30, REGISTER+34, REGISTER+35
IDCHK REGISTER+1~, REGISTER+5*, REGISTER+37
>> IOXY NAM+29
PAGE REGISTER~, REGISTER+5, REGISTER+27, REGISTER+30, REGISTER+34, REGISTER+35
PAGECHK REGISTER+1~, REGISTER+5*, REGISTER+37
>> REPRINT NAM+15
TYPECHK REGISTER+1~, REGISTER+5*, REGISTER+37
VA REGISTER+1~
VA("PID" NAM+11
>> X REGISTER+35*, NAM+4*, NAM+5, NAM+10*, NAM+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All