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
Print Page as PDF
Routine: IBDF1A

Package: Automated Information Collection System

Routine: IBDF1A


Information

IBDF1A ;ALB/CJM - ENCOUNTER FORM (prints for a single patient);NOV 16,1992

Source Information

Source file <IBDF1A.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN(WITHDATA) ;
; -- prints encounter forms, either with patient data for a patient
; with no appointment (in which case it uses time of printing as
; the appointment time) or without patient data (only if a form
; is defined for the clinic for such use)
; $G(WITDATA) if the form should be printed with data
; 0 if a blank form for use without patient data should be printed
QUEUED ;
EXIT ;
FORM ;gets the type of form to print from the clinic setup - sets FORMS
ERROR ;prints a message
ERROR2 ;prints a message
PATIENT ;gets the patient to print the form for
DEVICE ;
CLINIC ;asks the user for the clinic
NOW ;sets IBAPPT to NOW
WHCHFORM ;
ASKFORM ;asks to select single form

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no encounter form defined for this clinic that should print",!,"without patient data!",!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !!,"There are no forms defined to print for this clinic!",!
  • Line Location: ERROR2+1
Function Call: WRITE
  • Prompt: !,$C(7),"** Encounter Forms require a page size of 80 lines and 132 columns. **"
  • Line Location: DEVICE+2
Info |  Source |  Entry Points |  Interaction Calls