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 ---[H[J[2J[HTIUPEDSP 529 printed Nov 22, 2024@17:53:01 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
