IBDF1B5 ;ALB/CJM - ENCOUNTER FORM - (prints reports defined by print manager); 5/15/93
Source file <IBDF1B5.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|