source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR127P.m@ 861

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

initial load of WorldVistAEHR

File size: 537 bytes
RevLine 
[613]1LR127P ;DALISC/FHS - LR*5.2*127 AFTER USER COMMITS ROUTINE KIDS INSTALL
2 ;;5.2;LAB SERVICE;**127**;Sep 27, 1994
3EN ;
4 Q:'$D(XPDNM)
5 I $O(^LAB(64.81,0)) W !?5,"You have old data in LAB NLT/CPT CODES file ",!,"INSTALL ABORTED ",$C(7) S XPDQUIT=2 Q
6 N DA,DIK
7 S DA(1)=69.9,DA=615,DIK="^DD(69.9," D ^DIK
8 K DA,DIK S DA(1)=64,DA=18,DIK="^DD(64," D ^DIK
9 K DA,DIK S DA(1)=64,DA=14,DIK="^DD(64," D ^DIK
10 K DA,DIK S DA(1)=69.9,DA=614,DIK="^DD(69.9," D ^DIK
11 K:'$D(^LAB(64.81,0)) ^LAM("AD")
12 W !,$$CJ^XLFSTR("Pre Install Step Complete",80),!!
13 Q
Note: See TracBrowser for help on using the repository browser.