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

Package: Automated Information Collection System

Routine: IBDF1B5


Information

IBDF1B5 ;ALB/CJM - ENCOUNTER FORM - (prints reports defined by print manager); 5/15/93

Source Information

Source file <IBDF1B5.m>

Entry Points

Name Comments DBIA/ICR reference
PRNTOTHR(CLINIC,APPT,DFN) ;prints reports defined for CLINIC/DIVISION
; -- input CLINIC = ien file 44
; -- APPT = pts appointment date in fm format
; -- DFN = ptr to pt file
DIV(DIVISION,DIV) ; -- builds array of reports to print for division
; -- input DIVISION = ien from 40.8
; -- DIV = name of array to pass back
; -- output array in format DIV(ien of report)=""
CLIN(CLINIC,CLIN) ; -- builds array of reports to print for clinic
; -- input CLINIC = ien from 44
; -- CLIN = name of array to pass back
; -- output array in format CLIN(ien of report)=""
EXCLUDE(CLINIC,RPT) ;deterine if report is excluded for specified clinic
; -- input CLINIC = ien from file 44
; -- RPT = ien of report
; -- output 1 if report is excluded, 0 if not excluded
EARLIEST(DFN,DIV,APPT,RPT) ;determine if appt is earliest appt that does
; -- not exclude the report
; -- input DFN = ien file 2
; -- DIV = ien 40.8
; -- APPT = appt we have printed EF for
; -- RPT = ien of report
PRINT(PI,SIDES) ;fetches the package interface record,prints the report
; -- input PI = ien of report
; -- SIDES=0-simplex, 1-duplex long-edge, 2-duplex short-edge
DIVISION(CLINIC) ;returns the clinic's division - format is IEN^division's name
IFOTHR(CLINIC,TYPE) ; -- returns a 1 if there are reports defined for CLINIC for print condition=TYPE,0 if otherwise

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBDEVICE("DUPLEX_LONG")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: IBDEVICE("DUPLEX_SHORT")
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: IBDEVICE("SIMPLEX")
  • Line Location: PRINT+20
Info |  Source |  Entry Points |  Interaction Calls