TIUPEDSP.m

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)

 Q

MAIN ; Control branching

 D GET^TIUSRVE(TIUDA)

 Q

HDR ; Build Header

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

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

 Q

CLEAN ; Clean up your mess!

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUPEDSP   529     printed  Apr 09, 2024@21:42:21                                                                                                                                                                                                     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