source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS235.m@ 1763

Last change on this file since 1763 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 564 bytes
Line 
1TIUPS235 ; ISL/JER - Post-install for TIU*1*235 ; 08/16/2007
2 ;;1.0;TEXT INTEGRATION UTILITIES;**235**;Jun 20, 1997;Build 2
3 ;
4MAIN ; control subroutine
5 D SETID
6 Q
7SETID ; Create "Write identifier" for file 8925.1
8 N TIUID
9 D BMES^XPDUTL("CORRECTING ""WRITE"" IDENTIFIER ON FIELD 1501 OF FILE 8925.1")
10 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"
11 S ^DD(8925.1,0,"ID","W.1501")=TIUID
12 Q
Note: See TracBrowser for help on using the repository browser.