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 |