TIUPS235 ; ISL/JER - Post-install for TIU*1*235 ; 08/16/2007
;;1.0;TEXT INTEGRATION UTILITIES;**235**;Jun 20, 1997;Build 2
;
MAIN ; control subroutine
D SETID
Q
SETID ; Create "Write identifier" for file 8925.1
N TIUID
D BMES^XPDUTL("CORRECTING ""WRITE"" IDENTIFIER ON FIELD 1501 OF FILE 8925.1")
S TIUID="S %I=Y,Y=$S('$D(^(15)):"""",$D(^TIU(8926.1,+$P(^(15),U,1),0))#2:$P(^(0),U,1),1:"""") N DIERR S:$L(Y) Y=$$EXTERNAL^DILFD(8926.1,.01,"""",Y,""DIERR"") D:$L(Y) EN^DDIOL(""Std Title: ""_Y,"""",""!?6"") S Y=%I K %I"
S ^DD(8925.1,0,"ID","W.1501")=TIUID
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS235 576 printed Oct 16, 2024@18:44:54 Page 2
TIUPS235 ; ISL/JER - Post-install for TIU*1*235 ; 08/16/2007
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**235**;Jun 20, 1997;Build 2
+2 ;
MAIN ; control subroutine
+1 DO SETID
+2 QUIT
SETID ; Create "Write identifier" for file 8925.1
+1 NEW TIUID
+2 DO BMES^XPDUTL("CORRECTING ""WRITE"" IDENTIFIER ON FIELD 1501 OF FILE 8925.1")
+3 SET TIUID="S %I=Y,Y=$S('$D(^(15)):"""",$D(^TIU(8926.1,+$P(^(15),U,1),0))#2:$P(^(0),U,1),1:"""") N DIERR S:$L(Y) Y=$$EXTERNAL^DILFD(8926.1,.01,"""",Y,""DIERR"") D:$L(Y) EN^DDIOL(""Std Title: ""_Y,"""",""!?6"") S Y=%I K %I"
+4 SET ^DD(8925.1,0,"ID","W.1501")=TIUID
+5 QUIT
