TIUPUTPN ; SLC/JER - PN Look-up Method ;4/18/03
Source file <TIUPUTPN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT |
|
| LOOKUPX | ||
| ILOC(LOCATION) | ; Get pointer to file 44
|
|
| 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 |
|
| WHATYPX | ||
| WHATITLE(X) | ; Identify document title
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATITX | ||
| FOLLOWUP(TIUDA) | ; Post-filing code for PROGRESS NOTES
|
