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: IBDF1BA

Package: Automated Information Collection System

Routine: IBDF1BA


Information

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

Source Information

Source file <IBDF1BA.m>

Entry Points

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?

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call