;Resolves D/C Bedsection ptr from the Final Discharge Note
TITLE
;Defines variables required for Document Definition look-up
; PNT=^GMR(121.2,TIU("TITLE")),0)
; (1)=TITLE * (2)=TYPE * (3) TYPE NARRATIVE
; (4)=INACTIVE * (5) TIU TITLE IEN
ROLLEM
;Rolls back ^GMR(121 entries in ^TIU(8925
ERRORLOG
;Captures information on records that are NOT converted.
TITLESET
;Sets pointers for Document Definition
; .01 DOCUMENT TYPE * .04 PARENT DOCUMENT TYPE
; 1506 COSIGNATURE REQUIRED * 1701 SUBJECT (description)
STATUS(TIUSTAT)
;Returns DOCUMENT STATUS pointer
DXLS(TIUDX)
;Resolves variable DXLS ptr from Final Discharge Note