Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Automated Information Collection System 2 ($$MULTIPLE,GETLIST)^IBDF1B1A  ($$DORTN,RTNDSCR)^IBDFU1B  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Automated Information Collection System 6 IBDF1A  IBDF1B1  IBDF1B1A  IBDF1BA  IBDFN1  IBDFREG  

Entry Points

Name Comments DBIA/ICR reference
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)=""
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
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
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
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
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)=""

External References

Name Field # of Occurrence
$$MULTIPLE^IBDF1B1A PRNTOTHR+16
GETLIST^IBDF1B1A EARLIEST+9
$$DORTN^IBDFU1B PRINT+16
RTNDSCR^IBDFU1B PRINT+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVISION+4
^IBE(357.92 - [#357.92] PRNTOTHR+15, IFOTHR+3
^SC - [#44] DIVISION+3
^SD(409.95 - [#409.95] CLIN+6, CLIN+7, EXCLUDE+6, EARLIEST+11, IFOTHR+6, IFOTHR+8
^SD(409.96 - [#409.96] DIV+6, DIV+7, IFOTHR+6
^TMP("IBDF" EARLIEST+8!, EARLIEST+10

Label References

Name Line Occurrences
$$DIVISION PRNTOTHR+6, IFOTHR+4
$$EARLIEST PRNTOTHR+17
$$EXCLUDE PRNTOTHR+10, PRNTOTHR+12
CLIN PRNTOTHR+8
DIV PRNTOTHR+8
PRINT PRNTOTHR+10, PRNTOTHR+18

Naked Globals

Name Field # of Occurrence
^( EARLIEST+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PRINT+16~*
APPT PRNTOTHR~, PRNTOTHR+4, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+12
APT EARLIEST+6~, EARLIEST+10*, EARLIEST+12
CLIN CLIN~
CLIN( CLIN+7*
CLINIC PRNTOTHR~, PRNTOTHR+4, PRNTOTHR+6, PRNTOTHR+8, PRNTOTHR+10, PRNTOTHR+12, CLIN~, CLIN+5, CLIN+6, CLIN+7
, EXCLUDE~, EXCLUDE+4, EXCLUDE+6, EARLIEST+10*, EARLIEST+11, PRINT+8~, DIVISION~, DIVISION+2, DIVISION+3, IFOTHR~
, IFOTHR+4, IFOTHR+6, IFOTHR+8
CLNCNAME PRINT+8~
COUNT IFOTHR+1~, IFOTHR+2*, IFOTHR+6*, IFOTHR+8*, IFOTHR+9
DFN PRNTOTHR~, PRNTOTHR+4, PRNTOTHR+16, PRNTOTHR+17, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+10
DIV DIV~, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+10, DIVISION+1~, DIVISION+3*, DIVISION+4, DIVISION+5*, DIVISION+6*
, DIVISION+7
DIV( DIV+7*
DIVISION PRNTOTHR+5~, PRNTOTHR+6*, PRNTOTHR+8, PRNTOTHR+17, DIV~, DIV+5, DIV+6, DIV+7, PRINT+8~, IFOTHR+1~
, IFOTHR+4*, IFOTHR+6
>> IBAPPT PRNTOTHR+16, PRNTOTHR+17
IBCLIN PRNTOTHR+5~, PRNTOTHR+8
IBCLIN( PRNTOTHR+10, PRNTOTHR+14
>> IBDEVICE("DUPLEX_LONG" PRINT+11, PRINT+19
>> IBDEVICE("DUPLEX_SHORT" PRINT+12, PRINT+20
>> IBDEVICE("SIMPLEX" PRINT+13, PRINT+15, PRINT+19, PRINT+20
IBDIV PRNTOTHR+5~, PRNTOTHR+8
IBDIV( PRNTOTHR+12, PRNTOTHR+15, PRNTOTHR+18
IBRTN PRINT+3~*, PRINT+4, PRINT+16
IBRTN("ACTION" PRINT+5
IBRTN("HSMRY" PRINT+7
IBRTN("HSMRY?" PRINT+7
IBRTN("RTN" PRINT+7*
IOF PRINT+14
NAME DIVISION+1~, DIVISION+4*, DIVISION+5
PI PRINT~, PRINT+3
PNAME PRINT+8~
PRN EARLIEST+6~, EARLIEST+10, EARLIEST+12*, EARLIEST+13*, EARLIEST+14
PTYPE PRINT+8~
QUIT PRINT+8~
RNAR PRNTOTHR+13~, PRNTOTHR+15*, PRNTOTHR+16, PRNTOTHR+17
RPT PRNTOTHR+5~, PRNTOTHR+10*, PRNTOTHR+12*, PRNTOTHR+14, PRNTOTHR+15, PRNTOTHR+17, PRNTOTHR+18, DIV+4~, DIV+7*, CLIN+4~
, CLIN+7*, EXCLUDE~, EXCLUDE+4, EXCLUDE+6, EARLIEST~, EARLIEST+7, EARLIEST+11, PRINT+3~
RTN DIV+4~, DIV+6*, DIV+7, CLIN+4~, CLIN+6*, CLIN+7, PRINT+3~, IFOTHR+1~, IFOTHR+6*, IFOTHR+8*
RULE PRNTOTHR+13~, PRNTOTHR+15*
SETUP DIV+4~, DIV+6*, DIV+7, CLIN+4~, CLIN+6*, CLIN+7
SIDES PRINT~, PRINT+11, PRINT+12, PRINT+15, PRINT+19, PRINT+20
TDIGIT PRINT+8~
TYPE DIV+4~, DIV+6*, DIV+7, CLIN+4~, CLIN+6*, CLIN+7, PRINT+8~, IFOTHR~, IFOTHR+3*, IFOTHR+6
, IFOTHR+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All