IBDF1B1A ;ALB/CJM - ENCOUNTER FORM PRINT (IBDF1B continued - user options for printing- continuation of IBDF1B1); 3/1/93
Source file <IBDF1B1A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCL | ;for every clinic choosen find patient appointments on DATE
|
|
| TDG(DFN) | ;reformat patient's SSN into terminal digit order, then turns it into a cannonic number
; returns either 0 or ssn in terminal digit order |
|
| PRINTED(DFN,IBAPPT) | ;returns 1 if the print manager already printed forms for this appt, 0 otherwise
|
|
| ADDON(DFN,IBAPPT) | ;returns 1 if the print manager already printed forms for this appt as an add-on, 0 otherwise
|
|
| GETLIST(DFN,IBDT,DIVISION) | ;creates a list of the patient's appts on IBDT
|
|
| MULTIPLE(DFN,APPT) | ;determines if patient=DFN has multiple appts on the list and APPT is the earliest
|
|
| DIVHAS(IBDIV) | ;returns >0 if the division has anything to print, 0 otherwise
|
|
| CLNCHAS(CLINIC) | ;returns>0 if the clinic has something to print
|
