Routine: TIUPEDSP

TIUPEDSP ;SLC/JER - Display Filing Event ;12/13/94  17:58

 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

 ;;Text Integration Utility;;

EN ; Option entry

 K ^TMP("TIUEVENT",$J) N TIU

 D EN^VALM("TIU DISPLAY FILING EVENT")

 K ^TMP("TIUEVENT",$J)

MAIN ; Control branching

 D GET^TIUSRVE(TIUDA)

HDR ; Build Header

 N TIUETYP S TIUETYP=$G(^TMP("TIUEVENT",$J,0),"Filing Event")

 S VALMHDR(1)=$$CENTER^TIULS($$TITLE^TIUU(TIUETYP))

CLEAN ; Clean up your mess!

 K ^TMP("TIUEVENT",$J) D CLEAN^VALM10 K VALMY

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPEDSP   529     printed  Apr 23, 2025@18:57:37                                                                                                                                                                                                     Page 2

TIUPEDSP  ;SLC/JER - Display Filing Event ;12/13/94  17:58

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

 +2       ;;Text Integration Utility;;

EN        ; Option entry

 +1        KILL ^TMP("TIUEVENT",$JOB)

           NEW TIU

 +2        DO EN^VALM("TIU DISPLAY FILING EVENT")

 +3        KILL ^TMP("TIUEVENT",$JOB)

 +4        QUIT

MAIN      ; Control branching

 +1        DO GET^TIUSRVE(TIUDA)

 +2        QUIT

HDR       ; Build Header

 +1        NEW TIUETYP

           SET TIUETYP=$GET(^TMP("TIUEVENT",$JOB,0),"Filing Event")

 +2        SET VALMHDR(1)=$$CENTER^TIULS($$TITLE^TIUU(TIUETYP))

 +3        QUIT

CLEAN     ; Clean up your mess!

 +1        KILL ^TMP("TIUEVENT",$JOB)

           DO CLEAN^VALM10

           KILL VALMY

 +2        QUIT

TIUPEDSP.m