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

Package: Automated Information Collection System

Routine: IBDFREG


Information

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

Source Information

Source file <IBDFREG.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
DEVICE ;
; -- always ask with param as default
CLINIC ;asks the user for the clinic
NOW ;sets IBAPPT to NOW
WHCHFORM ;
WI(DFN,IBCLINIC,IBAPPT) ; -- procedure
; -- print encounter form for walk-ins (not tested)
WIQ

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: !,"Queuing to a CRT not allowed!"
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WI+8
Info |  Source |  Entry Points |  Interaction Calls