IBDFFT1 ;ALB/MAF - FORMS TRACKING CONTINUED - JUL 6 1995
Source file <IBDFFT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| CLN | ; -- Loop clinics
|
|
| PAT | ; -- Loop patients
|
|
| GRP | ||
| SET | ||
| CK(XCL) | ; -- Check clinic, division, form
|
|
| BLD | ; -- scan appts
|
|
| CK1 | ; --
|
|
| SETARR | ; -- Set up Listman array
|
|
| TMP | ; -- Set up TMP Array
|
|
| COUNT | ;
|
|
| TRACKING | ; -- loops thru forms tracking file 357.96
; X-reference ^IBD(357.96,"ADATNA", Appt date/time, 1 or 0, IFN). ; 1 = forms tracking file entry but no scheduled appt associated ; 0 = forms tracking file entry with associated scheduled appt. |
|
| DNKA(DFN,APPT) | ;
; -- return did not keep appointment |