TIUPUTPF ; SLC/JER - PRF Look-up Method - ;10/9/05
Source file <TIUPUTPF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT ; -- Selected flag action is set in LOOKUP & in GETCHECK^TIUPFFIX; ; Action is used in post-file code to link note. ; Kill it before setting it: |
|
| LOOKUPX | ||
| ONEACT(DFN,TIUTYPE) | ; If there is exactly one Assigment History Action
; available for pat DFN & Title TIUTYPE, return ASSGNIEN^ACTIEN; ; else return 0 |
|
| ONEACTX | ;
|
|
| 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 PRF
|
