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

Package: Automated Information Collection System

Routine: IBDF1B


Information

IBDF1B ;ALB/CJM - ENCOUNTER FORM (printing forms for appointments); 3/1/93

Source Information

Source file <IBDF1B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
END
EXIT ;
REPRINT ;for prior job that partially completed?
ADDONS ;add-ons only?
SELECTBY ;select by patient or clinic?
P ;print by patient - get patient then appointment(s) for date
C ;print all appointments for a clinic - find division then clinic, print all/some clinics for all/some divisions
ENDC
APPTDATE ;print forms for appointments on what date?
ERRORTRP ;the error trap

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"** Encounter Forms require a page size of 80 lines and 132 columns. **"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"Do you want to print forms for a particular patient or for entire clinics?",!
  • Line Location: SELECTBY+1
Function Call: WRITE
  • Prompt: !!,"Now you can select individual divisions and clinics."
  • Line Location: C+16
Function Call: WRITE
  • Prompt: !!,"If you want to print forms for all clinics in the divisions you have",!,"chosen (for those clinics with forms defined) then select ALL."
  • Line Location: C+20
Function Call: WRITE
  • Prompt: !!,"Otherwise, select the particular clinics you want.",!
  • Line Location: C+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call