Routine: IBDF1BA

Information

IBDF1BA ;ALB/CJM - ENCOUNTER FORM (user options for printing - continuation of IBDF1B); 3/1/93

Source file <IBDF1BA.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Automated Information Collection System	1	$$DIVISION^IBDF1B5
Registration	1	SDA^VADPT

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF1B

Name	Comments	DBIA/ICR reference
DISP	;display patients/clinics appointments found and get users choice
ENDDISP
SEARCH	;get the appointment data on a patient, put in IBTMP array, indexed by appointment
CLNCSTRT	;get clinic and division to restart from,OUTPUT=IBREPRNT (name of clinic) and IBSTRTDV (division to restart from)
STARTDIV()	;asks what division to restart the job from and returns division name, or "" if user declines
SORTBY	;sort by clinic/patient, clinic/terminal digit, or terminal digit?
TERMSTRT	;get terminal digit to restart from - OUTPUT=IBREPRNT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"MUST BE 4 NUMBERS!" Line Location: TERMSTRT+3
Function Call: WRITE	Prompt: !!,?5,"No Active Appointments for ",IBNM," on",!,"this date in any clinic or division that has forms or reports defined to print",! Line Location: DISP+3
Function Call: WRITE	Prompt: !!,?10,"No Active Appointments in a Clinic with an Encounter Form",!,?10,"for ",IBNM," on this date.",! Line Location: DISP+4
Function Call: WRITE	Prompt: !!,"Appointments for ",IBNM,! Line Location: DISP+5
Function Call: WRITE	Prompt: !,$J(IBI,3)," ",$E($P(IBLN,"^",5),1,20),?25," " Line Location: DISP+6
Function Call: WRITE	Prompt: " ",$P(IBLN,"^",IBJ) Line Location: DISP+6
Routine Call	DIC Line Location: STARTDIV+4
Routine Call	DIR Line Location: TERMSTRT+2 CLNCSTRT+5 DISP+7 SORTBY+3

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLNCSTRT+8, STARTDIV+3
^SC - [#44]	CLNCSTRT+6
^SD(409.95 - [#409.95]	SEARCH+7
^SD(409.96 - [#409.96]	SEARCH+7
^TMP("IBDF"	DISP+13, DISP+15
^UTILITY("VASD"	SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+9, SEARCH+10!, ENDDISP!

Name	Field # of Occurrence
APPT	SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+9
CLINIC	SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+9
CLNCIEN	DISP+2~, DISP+9*, DISP+13
CLNCNAME	DISP+2~, DISP+9*, DISP+13
>> DFN	SEARCH+9, DISP+13, DISP+15
DIC	STARTDIV+2!*, STARTDIV+4!
DIC("A"	STARTDIV+2*
DIC("B"	STARTDIV+3*
DIC(0	STARTDIV+2*
DIR	TERMSTRT+5!, CLNCSTRT+5!, DISP+7!, SORTBY+1!, SORTBY+3!
DIR("?"	TERMSTRT+1, CLNCSTRT+4, SORTBY+2*
DIR("A"	TERMSTRT+1, CLNCSTRT+4, DISP+7, SORTBY+3
DIR("B"	SORTBY+3*
DIR(0	TERMSTRT+1, CLNCSTRT+4, DISP+7, SORTBY+1
DIROUT	ENDDISP!
DIRUT	TERMSTRT+2, CLNCSTRT+5, DISP+7, ENDDISP!, SORTBY+3
DTOUT	ENDDISP!, STARTDIV+5
DUOUT	ENDDISP!, STARTDIV+5
IBDIV	STARTDIV+1~, STARTDIV+3*
>> IBDT	SEARCH+3
IBI	DISP+6, DISP+7, DISP+8, ENDDISP!
IBJ	DISP+6*, ENDDISP!
IBLN	SEARCH+2~, SEARCH+5, DISP+6, ENDDISP!
>> IBNM	SEARCH+9, DISP+3, DISP+4, DISP+5, DISP+13
>> IBREPRNT	TERMSTRT+1, TERMSTRT+2, TERMSTRT+4, CLNCSTRT+3, CLNCSTRT+7
>> IBSRT	SORTBY+5*
>> IBSTRTDV	CLNCSTRT+8*
IBTMP	DISP+3, DISP+4, ENDDISP!
IBTMP(	SEARCH+9*, DISP+6, DISP+8, DISP+9
IBX	SEARCH+2~, SEARCH+4, SEARCH+5, SEARCH+9, DISP+6, DISP+8*, DISP+9, DISP+13, DISP+15, ENDDISP!
NODE	CLNCSTRT+2~, CLNCSTRT+6*, CLNCSTRT+7, CLNCSTRT+8
>> QUIT	SORTBY+3, SORTBY+4
VAERR	SEARCH+3, SEARCH+10!
VASD	SEARCH+10!
VASD("F"	SEARCH+3*
VASD("T"	SEARCH+3*
VASD("W"	SEARCH+3*
X	ENDDISP!
Y	TERMSTRT+2, TERMSTRT+3, TERMSTRT+4, CLNCSTRT+5, CLNCSTRT+6, DISP+8, ENDDISP!, STARTDIV+5, STARTDIV+6, SORTBY+4 , SORTBY+5

Name	Field # of Occurrence
^DIC	STARTDIV+4
^DIR	TERMSTRT+2, CLNCSTRT+5, DISP+7, SORTBY+3
$$DIVISION^IBDF1B5	SEARCH+7
SDA^VADPT	SEARCH+3