IBDF18C ;ALB/CJM/AAS - ENCOUNTER FORM - form ID utilities ;04-OCT-94
Source file <IBDF18C.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FID(DFN,APPT,SOURCE,FORMTYPE,CLIN) | ; -- Form ID Tracking
; -- create record in the ENCOUNTER FORM TRACKING file ; and returned a unique FORM ID ; -- Input DFN = patient internal entry number ; APPT = appointment date time (fm format) ; SOURCE = the source of the form, ie ; IB = 1 ; Pandas = 2 ; Telefr = 3 ; FORMTYPE = the package form definition ID - may have been exterally assigned ; CLIN = pointer to 44 (optional) |
|
| FIDQ | ||
| EXID(ID) | ; -- converts external id format to internal id format
; -- we need to decide on external id format |
|
| INID(ID) | ; -- find internal id number from external format
; -- Input ID = form id in external format ; Output = form id in internal format or NULL if nonexistant |
|
| INIDQ | ||
| FSCND(ID,STAT,ERR) | ; -- update form tracking file that
; -- Input ID = entry to flag as scanned (internal format) ; STAT = NEW status, 1=printed, 2=scanned,3=sent to pce okay, ; 4=pce returned err ; 11=pending pages, 12=input data error ; ERR = pce error message (required only if stat=4) |
|
| FSCNDQ | ||
| FIDST(ID) | ; -- form id status
; -- Input ID = form id (internal entry number) |
|
| FIDSTQ | ||
| FINDID(DFN,APPT,FORM,DUP) | ; -- Find a form id for a patient and appointment
; -- input DFN = patient ; APPT = appointment date time ; FORM = (Optional) type of form, pointer to 357.95 or field 10 ; DUP = (Optional) if true, No duplicates of same form (357) ; returns last printing of same form with different ; form definitions, will also exclude nonscannable form |
|
| FINDIDQ | ||
| FINDPT(FORMID) | ;
; -- find patient from form id ; -- Output :Patient Name ^ PID ^ clinic Name ^ appt date/time (external) ; ^form ID ^ form status ^ DFN ^ clinic ien ^ appt date/time (fm format) |
|
| FINDPTQ |
| FileNo | Call Tags |
|---|---|
| ^IBD(357.96 - [#357.96] | Classic Fileman Calls |
