TIUPEFIX ; SLC/JER - Resolve Filing errors for TIU Documents ;11/01/03
Source file <TIUPEFIX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAKE(SUCCESS,DFN,TITLE,TIU,TIUBUF) | ; File new TIU Document
; SUCCESS = (by ref) SUCCESS Returns TIU DOCUMENT # (PTR to 8925) ; = 0^Explanatory message if no SUCCESS ; DFN = Patient (#2) ; TITLE = Pointer to TIU Document Definition (#8925.1) ; TIU = Array of demographic and visit attributes ; TIUBUF = Record number (ien) of entry in TIU Buffer file (#8925.2) |
|
| MAKEX | ||
| LOADTIUX(TIUARR,TIUBUF) | ; Load TIUX array with header and text
|
|
| STUFREC(DA,DFN,PARENT,TIU) | ; Stuff fixed field data
|
|
| REQVER(VPARM) | ; Evaluate whether verification is required
|
|
| MAKEADD(TIUDADD,TIUDA,TIUBUF) | ; Create an addendum record
|
|
| FILE(SUCCESS,TIUDA,TIUX,RTYPE) | ; Call FM Filer to commit updates to DB
|
|
| TRNSFRM(RTYPE,FLD,X) | ; Executes Transform code for a given header field
|
|
| TRNSFRMX |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
