TIUPS219 ; SLC/JER - Post-Init Routine for TIU*1*219 ;9/12/07
;;1.0;TEXT INTEGRATION UTILITIES;**219**;Jun 20, 1997;Build 11
COMPILE ;Recompile DS Input Template
N TIUERR,Y,X,DMAX,MSGOK,MSGBAD,MSG
S MSGBAD="The DS Input Template could not be recompiled. Contact the Help Desk."
S Y=$$FIND1^DIC(.402,,"BX","TIU ENTER/EDIT DS",,,"TIUERR")
I Y'>0 S MSG=MSGBAD G COMPILEX
S X=$$GET1^DIQ(.402,Y_",",1815,,,"TIUERR") I $D(TIUERR) S MSG=MSGBAD G COMPILEX
S X=$P(X,U,2)
S DMAX=$$ROUSIZE^DILF
D EN^DIEZ
COMPILEX ;
I $D(MSG) D BMES^XPDUTL(MSGBAD) Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS219 570 printed Dec 13, 2024@02:44:17 Page 2
TIUPS219 ; SLC/JER - Post-Init Routine for TIU*1*219 ;9/12/07
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**219**;Jun 20, 1997;Build 11
COMPILE ;Recompile DS Input Template
+1 NEW TIUERR,Y,X,DMAX,MSGOK,MSGBAD,MSG
+2 SET MSGBAD="The DS Input Template could not be recompiled. Contact the Help Desk."
+3 SET Y=$$FIND1^DIC(.402,,"BX","TIU ENTER/EDIT DS",,,"TIUERR")
+4 IF Y'>0
SET MSG=MSGBAD
GOTO COMPILEX
+5 SET X=$$GET1^DIQ(.402,Y_",",1815,,,"TIUERR")
IF $DATA(TIUERR)
SET MSG=MSGBAD
GOTO COMPILEX
+6 SET X=$PIECE(X,U,2)
+7 SET DMAX=$$ROUSIZE^DILF
+8 DO EN^DIEZ
COMPILEX ;
+1 IF $DATA(MSG)
DO BMES^XPDUTL(MSGBAD)
QUIT
+2 QUIT
+3 ;
