Routine: IBDF1BA

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

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

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

Source file <IBDF1BA.m>

Name	Comments	DBIA/ICR reference
TERMSTRT	;get terminal digit to restart from - OUTPUT=IBREPRNT
CLNCSTRT	;get clinic and division to restart from,OUTPUT=IBREPRNT (name of clinic) and IBSTRTDV (division to restart from)
SEARCH	;get the appointment data on a patient, put in IBTMP array, indexed by appointment
DISP	;display patients/clinics appointments found and get users choice
ENDDISP
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?

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