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 |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call