Routine: IBDF2F1

Information

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

Package	Total	Call Graph
Registration	2	PID^VADPT $$SITE^VASITE
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF2F

Name	Comments	DBIA/ICR reference
NAM
ANCHORS	;draws the anchors
REGISTER(PAGE)	;registration for scanning, form # and patient at bottom

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(27),"&a7576v3400H",$C(27),"*c140h140v0P",$C(27) Line Location: REGISTER+14
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+4
Function Call: WRITE	Prompt: $C(27),"&a184v4H",$C(27),"c4h120v0P",$C(27),"c124h4v0P" Line Location: ANCHORS+6
Function Call: WRITE	Prompt: $C(27),"&a184v2876H",$C(27),"c4h120v0P",$C(27),"c124h4v0P" Line Location: ANCHORS+8
Function Call: WRITE	Prompt: $C(27),"&a7732v4H",$C(27),"c124h4v0P",$C(27),"&a7615v4H",$C(27),"c4h121v0P" Line Location: ANCHORS+10
Function Call: WRITE	Prompt: $C(27),"&a184v5534H",$C(27),"c116h4v0P",$C(27),"&a184v5650H",$C(27),"c4h120v0P" Line Location: ANCHORS+12
Function Call: WRITE	Prompt: !,$C(27),"&a7732v2876H",$C(27),"c123h4v0P",$C(27),"&a7615v2876H",$C(27),"c4h121v0P" Line Location: ANCHORS+14
Function Call: WRITE	Prompt: $C(27),"&a7732v5534H",$C(27),"c116h4v0P",$C(27),"&a7616v5650H",$C(27),"c4h120v0P" Line Location: ANCHORS+16

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

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

Name	Line Occurrences
ANCHORS	REGISTER+9

Name	Field # of Occurrence
DA	REGISTER+31!
DA(1	REGISTER+31*
DD	REGISTER+31!
>> DFN	NAM+4, NAM+5, NAM+10, NAM+11
DIC	REGISTER+31*!
DIC("P"	REGISTER+31*
DIC(0	REGISTER+31*
DLAYGO	REGISTER+31*!
DO	REGISTER+31!
DX	NAM+29*!
DY	NAM+29*!
>> IBCLINIC	NAM+9
>> IBDEVICE("PCL"	REGISTER+2, NAM+29
>> IBDEVICE("RASTER"	NAM+29
>> IBDSAMP	REGISTER+14, NAM+3, NAM+9
>> IBFORM	NAM+3
>> IBFORM("SCAN"	REGISTER+3, REGISTER+9, REGISTER+11, REGISTER+26, NAM+29
>> IBFORM("TYPE"	REGISTER+5, REGISTER+21
>> IBFORM("WIDTH"	NAM+20, NAM+21
>> IBPFID	REGISTER+5, REGISTER+22, REGISTER+26, REGISTER+30, REGISTER+31
IDCHK	REGISTER+1~, REGISTER+5*, REGISTER+33
>> IOXY	NAM+29
PAGE	REGISTER~, REGISTER+5, REGISTER+11, REGISTER+23, REGISTER+26, REGISTER+30, REGISTER+31
PAGECHK	REGISTER+1~, REGISTER+5*, REGISTER+33
>> REPRINT	NAM+15
TYPECHK	REGISTER+1~, REGISTER+5*, REGISTER+33
VA	REGISTER+1~
VA("PID"	NAM+11
>> X	REGISTER+31, NAM+4, NAM+5, NAM+10*, NAM+11