source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS219.m@ 700

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

initial load of WorldVistAEHR

File size: 555 bytes
RevLine 
[613]1TIUPS219 ; SLC/JER - Post-Init Routine for TIU*1*219 ;9/12/07
2 ;;1.0;TEXT INTEGRATION UTILITIES;**219**;Jun 20, 1997;Build 11
3COMPILE ;Recompile DS Input Template
4 N TIUERR,Y,X,DMAX,MSGOK,MSGBAD,MSG
5 S MSGBAD="The DS Input Template could not be recompiled. Contact the Help Desk."
6 S Y=$$FIND1^DIC(.402,,"BX","TIU ENTER/EDIT DS",,,"TIUERR")
7 I Y'>0 S MSG=MSGBAD G COMPILEX
8 S X=$$GET1^DIQ(.402,Y_",",1815,,,"TIUERR") I $D(TIUERR) S MSG=MSGBAD G COMPILEX
9 S X=$P(X,U,2)
10 S DMAX=$$ROUSIZE^DILF
11 D EN^DIEZ
12COMPILEX ;
13 I $D(MSG) D BMES^XPDUTL(MSGBAD) Q
14 Q
15 ;
Note: See TracBrowser for help on using the repository browser.