Call Graph
Call Graph Total: 2
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 2 | ($$MULTIPLE,GETLIST)^IBDF1B1A ($$DORTN,RTNDSCR)^IBDFU1B |
IBDF1B5 ;ALB/CJM - ENCOUNTER FORM - (prints reports defined by print manager); 5/15/93
Source file <IBDF1B5.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 2 | ($$MULTIPLE,GETLIST)^IBDF1B1A ($$DORTN,RTNDSCR)^IBDFU1B |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| 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 |
| Name | Line Occurrences |
|---|---|
| $$DIVISION | PRNTOTHR+6, IFOTHR+4 |
| $$EARLIEST | PRNTOTHR+17 |
| $$EXCLUDE | PRNTOTHR+10, PRNTOTHR+12 |
| CLIN | PRNTOTHR+8 |
| DIV | PRNTOTHR+8 |
| PRNTOTHR+10, PRNTOTHR+18 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EARLIEST+10 |
| >> | 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 |
