Routine: IBDF1B1A

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

IBDF1B1A ;ALB/CJM - ENCOUNTER FORM PRINT (IBDF1B continued - user options for printing- continuation of IBDF1B1); 3/1/93

Source Information

Source file <IBDF1B1A.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Automated Information Collection System	1	$$DIVISION^IBDF1B5

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Automated Information Collection System	3	IBDF1B1 IBDF1B1B IBDF1B5

Entry Points

Name	Comments	DBIA/ICR reference
ADDON(DFN,IBAPPT)	;returns 1 if the print manager already printed forms for this appt as an add-on, 0 otherwise
ENCL	;for every clinic choosen find patient appointments on DATE
PRINTED(DFN,IBAPPT)	;returns 1 if the print manager already printed forms for this appt, 0 otherwise
MULTIPLE(DFN,APPT)	;determines if patient=DFN has multiple appts on the list and APPT is the earliest
TDG(DFN)	;reformat patient's SSN into terminal digit order, then turns it into a cannonic number ; returns either 0 or ssn in terminal digit order
CLNCHAS(CLINIC)	;returns>0 if the clinic has something to print
DIVHAS(IBDIV)	;returns >0 if the division has anything to print, 0 otherwise
GETLIST(DFN,IBDT,DIVISION)	;creates a list of the patient's appts on IBDT

Name	Field # of Occurrence
$$DIVISION^IBDF1B5	ENCL+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ENCL+19, ENCL+21, TDG+3, PRINTED+1, ADDON+1, GETLIST+5, GETLIST+6
^IBD(357.09 - [#357.09]	ENCL+23
^SC - [#44]	ENCL+13, ENCL+16, ENCL+17, ENCL+18, ENCL+19, ENCL+33, ENCL+48, GETLIST+8
^SD(409.95 - [#409.95]	ENCL+9, CLNCHAS+2, CLNCHAS+3, CLNCHAS+6
^SD(409.96 - [#409.96]	ENCL+9, DIVHAS+2
^TMP("IBDF"	ENCL+2, ENCL+33, ENCL+42, ENCL+48, ENCL+51!, GETLIST+4, GETLIST+11*, MULTIPLE+3, MULTIPLE+5

Name	Line Occurrences
$$ADDON	ENCL+27
$$PRINTED	ENCL+26
$$TDG	ENCL+37, ENCL+48
GETLIST	MULTIPLE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	GETLIST+2~, GETLIST+5*, GETLIST+6, GETLIST+11, MULTIPLE~, MULTIPLE+2
APT	MULTIPLE+1~, MULTIPLE+3*, MULTIPLE+5
CLINIC	CLNCHAS~, CLNCHAS+2, CLNCHAS+6
CLNCNAME	ENCL+1~, ENCL+13, ENCL+33, ENCL+48*
DFN	ENCL+1~, ENCL+19*, ENCL+21, ENCL+26, ENCL+27, ENCL+33, ENCL+37, ENCL+42, ENCL+48, TDG~ , TDG+3, PRINTED~, PRINTED+1, ADDON~, ADDON+1, GETLIST~, GETLIST+1, GETLIST+4, GETLIST+5, GETLIST+6 , GETLIST+11, MULTIPLE~, MULTIPLE+2, MULTIPLE+3, MULTIPLE+5
DIVISION	GETLIST~, GETLIST+4, GETLIST+8, GETLIST+11, MULTIPLE+2, MULTIPLE+3, MULTIPLE+5
FIRST4	ENCL+1~, ENCL+37*, ENCL+40
FOUND	CLNCHAS+1~, CLNCHAS+4*, CLNCHAS+5
I	TDG+2~, TDG+4, CLNCHAS+1~, CLNCHAS+4
>> IBADDONS	ENCL+26, ENCL+27
IBAPPT	ENCL+1~, ENCL+16*, ENCL+17, ENCL+18, ENCL+19, ENCL+21, ENCL+26, ENCL+27, ENCL+33, ENCL+42 , ENCL+48, PRINTED~, PRINTED+1, ADDON~, ADDON+1
IBAPTYP	ENCL+1~, ENCL+21*, ENCL+23
IBCLINIC	ENCL+1~, ENCL+2*, ENCL+6, ENCL+9, ENCL+13, ENCL+16, ENCL+17, ENCL+18, ENCL+19, ENCL+33 , ENCL+42, ENCL+48
>> IBDFTSTP	ENCL+19
IBDIV	ENCL+1~, ENCL+6, ENCL+9, ENCL+10, ENCL+13, ENCL+33, ENCL+40, ENCL+42, ENCL+48, DIVHAS~ , DIVHAS+1, DIVHAS+2
IBDT	ENCL+16, GETLIST~, GETLIST+1, GETLIST+3, GETLIST+5
>> IBREPRNT	ENCL+13, ENCL+26, ENCL+27, ENCL+40
>> IBSRT	ENCL+13, ENCL+33, ENCL+36, ENCL+48
>> IBSTRTDV	ENCL+13, ENCL+40
IBX	ENCL+1~, ENCL+17*, ENCL+18, ENCL+19
NODE	GETLIST+2~, GETLIST+6, GETLIST+7, GETLIST+8, GETLIST+11, CLNCHAS+1~, CLNCHAS+3, CLNCHAS+4
PNAME	ENCL+1~, ENCL+19*, ENCL+33
SETUP	CLNCHAS+1~, CLNCHAS+2*, CLNCHAS+3
SSN	TDG+2~, TDG+3*, TDG+4
TDIGIT	ENCL+1~, ENCL+37, ENCL+42, ENCL+48
TO	GETLIST+2~, GETLIST+3*, GETLIST+5
X	TDG+2~, TDG+4*
Y	ENCL+1~, TDG+2~, TDG+4, TDG+5, TDG+6

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF1B1A

Call Graph Total: 1

Caller Graph Total: 3