|
Last change
on this file since 839 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
564 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | TIUPS235 ; ISL/JER - Post-install for TIU*1*235 ; 08/16/2007
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**235**;Jun 20, 1997;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | MAIN ; control subroutine
|
|---|
| 5 | D SETID
|
|---|
| 6 | Q
|
|---|
| 7 | SETID ; 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.
