TIUPUTU ; SLC/JER - Utilities for Filer/Router ;1/16/04
Source file <TIUPUTU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUADT |
|
| LOOKUPX | ||
| CANEDIT(DA) | ; Check whether or not document is released
|
|
| MAKEADD() | ; Create an addendum record
|
|
| STUFREC(DA,PARENT) | ; Stuff fixed field data
|
|
| DELTEXT(DA) | ; Delete existing text in preparation for replacement
|
|
| WHATYPE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATYPE2(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATITLE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| FOLLOWUP(TIUDA) | ; Post-filing code for Discharge Summaries
|
