source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTS2712.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 482 bytes
Line 
1GMTS2712 ; SLC/JER - Environment check for GMTS*2.7*12
2 ;;2.7;Health Summary;**12**;Feb 28, 1996
3EN ; main
4 W !,"** CHECKING DHCP ENVIRONMENT **",!
5 I +$$VERSION^XPDUTL("TIU")'>0 D Q
6 . W !,"You MUST install TIU v1.0 first...Aborting Installation.",!
7 . S XPDQUIT=1
8 I +$O(^GMR(121,0)),(+$P($G(^TIU(8925.97,1,0)),U,2)'>0),(+$O(^TIU(8925,0))'>0) D Q
9 . W !,"You MUST Convert Progress Notes to TIU first...Aborting Installation.",!
10 . S XPDQUIT=1
11 W !,"Everything looks fine!",!
12 Q
Note: See TracBrowser for help on using the repository browser.