[613] | 1 | RMPRPRE ;PHX/JLT-PRE INIT ROUTINE FOR PROSTHETICS ;8/29/1994 [ 08/31/94 2:18 PM ]
|
---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
---|
| 3 | I $D(DUZ),$D(DUZ(0)),DUZ(0)'="@" W !!,?5,$C(7),"YOUR DUZ(0) MUST BE SET TO '@' BEFORE YOU CAN INSTALL THIS PACKAGE",! K DIFQ Q
|
---|
| 4 | I '$D(DUZ) W !!,?5,$C(7),"YOUR DUZ MUST BE DEFINED BEFORE YOU CAN INSTALL THIS PACKAGE",! K DIFQ Q
|
---|
| 5 | I $D(DUZ),'$D(DUZ(0)) W !!,?5,$C(7),"YOUR DUZ(0) MUST BE DEFINED BEFORE YOU CAN INSTALL PACKAGE",! K DIFQ Q
|
---|
| 6 | S RMPRP=$S($D(^DIC(9.4,"B","IFCAP")):$O(^DIC(9.4,"B","IFCAP",0)),1:$O(^DIC(9.4,"B","IFCAP PACKAGE",0))) I RMPRP'>0 W !!,$C(7),"IFCAP HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 7 | I $D(^DIC(9.4,RMPRP,"VERSION")),^DIC(9.4,RMPRP,"VERSION")<3.6 W !!,$C(7),"YOU NEED IFCAP VERSION 3.6 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 8 | S RMPRP=$O(^DIC(9.4,"B","REGISTRATION",0)) I RMPRP'>0 W !!,$C(7),"MAS HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 9 | I $D(^DIC(9.4,RMPRP,"VERSION")),^DIC(9.4,RMPRP,"VERSION")<5.2 W !!,$C(7),"YOU NEED MAS 5.2 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 10 | S RMPRP=$O(^DIC(9.4,"B","INTEGRATED BILLING",0)) I RMPRP'>0 W !!,$C(7),"INTEGRATED BILLING HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 11 | I $D(^DIC(9.4,RMPRP,"VERSION")),^DIC(9.4,RMPRP,"VERSION")<1.5 W !!,$C(7),"YOU NEED INTEGRATED BILLING 1.5 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 12 | S RMPRP=$O(^DIC(9.4,"B","ORDER ENTRY/RESULTS REPORTING",0)) I RMPRP'>0 W !!,"ORDER ENTRY RESULTS REPORTING HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",! K DIFQ Q
|
---|
| 13 | I $D(^DIC(9.4,RMPRP,"VERSION")),^DIC(9.4,RMPRP,"VERSION")<1.96 W !!,$C(7),"YOU NEED OE/RR VERSION 1.96 OR GREATER TO RUN PROSTHETICS",! K DIFQ Q
|
---|
| 14 | D NOW^%DTC S Y=% D DD^%DT S RMPRST=Y Q
|
---|