TIUCPFIX ; SLC/JER,RMO - Resolve Filing errors for CP Documents ;4/18/03
Source file <TIUCPFIX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAKE(SUCCESS,DFN,TITLE,TIU,TIUBUF,TIUPLDA) | ; 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) ; TIUPLDA = Record number (ien) of entry in TIU Document file (#8925) (Optional) |
|
| MAKEX | ||
| MAKEQ | ||
| LOADTIUX(TIUARR,TIUBUF) | ; Load TIUX array with header and text
|
|
| STUFREC(DA,DFN,PARENT,TIU,TIUPSC,TIUDTP,TIUPLDA) | ; 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 |
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925 - [#8925] | VAL^DIE |
