RMPRPRE ;PHX/JLT-PRE INIT ROUTINE FOR PROSTHETICS ;8/29/1994 [ 08/31/94 2:18 PM ]
;;3.0;PROSTHETICS;;Feb 09, 1996
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
I '$D(DUZ) W !!,?5,$C(7),"YOUR DUZ MUST BE DEFINED BEFORE YOU CAN INSTALL THIS PACKAGE",! K DIFQ Q
I $D(DUZ),'$D(DUZ(0)) W !!,?5,$C(7),"YOUR DUZ(0) MUST BE DEFINED BEFORE YOU CAN INSTALL PACKAGE",! K DIFQ Q
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
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
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
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
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
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
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
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
D NOW^%DTC S Y=% D DD^%DT S RMPRST=Y Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRPRE 1902 printed Dec 13, 2024@02:37:24 Page 2
RMPRPRE ;PHX/JLT-PRE INIT ROUTINE FOR PROSTHETICS ;8/29/1994 [ 08/31/94 2:18 PM ]
+1 ;;3.0;PROSTHETICS;;Feb 09, 1996
+2 IF $DATA(DUZ)
IF $DATA(DUZ(0))
IF DUZ(0)'="@"
WRITE !!,?5,$CHAR(7),"YOUR DUZ(0) MUST BE SET TO '@' BEFORE YOU CAN INSTALL THIS PACKAGE",!
KILL DIFQ
QUIT
+3 IF '$DATA(DUZ)
WRITE !!,?5,$CHAR(7),"YOUR DUZ MUST BE DEFINED BEFORE YOU CAN INSTALL THIS PACKAGE",!
KILL DIFQ
QUIT
+4 IF $DATA(DUZ)
IF '$DATA(DUZ(0))
WRITE !!,?5,$CHAR(7),"YOUR DUZ(0) MUST BE DEFINED BEFORE YOU CAN INSTALL PACKAGE",!
KILL DIFQ
QUIT
+5 SET RMPRP=$SELECT($DATA(^DIC(9.4,"B","IFCAP")):$ORDER(^DIC(9.4,"B","IFCAP",0)),1:$ORDER(^DIC(9.4,"B","IFCAP PACKAGE",0)))
IF RMPRP'>0
WRITE !!,$CHAR(7),"IFCAP HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+6 IF $DATA(^DIC(9.4,RMPRP,"VERSION"))
IF ^DIC(9.4,RMPRP,"VERSION")<3.6
WRITE !!,$CHAR(7),"YOU NEED IFCAP VERSION 3.6 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+7 SET RMPRP=$ORDER(^DIC(9.4,"B","REGISTRATION",0))
IF RMPRP'>0
WRITE !!,$CHAR(7),"MAS HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+8 IF $DATA(^DIC(9.4,RMPRP,"VERSION"))
IF ^DIC(9.4,RMPRP,"VERSION")<5.2
WRITE !!,$CHAR(7),"YOU NEED MAS 5.2 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+9 SET RMPRP=$ORDER(^DIC(9.4,"B","INTEGRATED BILLING",0))
IF RMPRP'>0
WRITE !!,$CHAR(7),"INTEGRATED BILLING HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+10 IF $DATA(^DIC(9.4,RMPRP,"VERSION"))
IF ^DIC(9.4,RMPRP,"VERSION")<1.5
WRITE !!,$CHAR(7),"YOU NEED INTEGRATED BILLING 1.5 OR GREATER TO RUN PROSTHETICS. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+11 SET RMPRP=$ORDER(^DIC(9.4,"B","ORDER ENTRY/RESULTS REPORTING",0))
IF RMPRP'>0
WRITE !!,"ORDER ENTRY RESULTS REPORTING HAS NOT BEEN INSTALLED ON YOUR SYSTEM. PLEASE SEE YOUR SITE MANAGER",!
KILL DIFQ
QUIT
+12 IF $DATA(^DIC(9.4,RMPRP,"VERSION"))
IF ^DIC(9.4,RMPRP,"VERSION")<1.96
WRITE !!,$CHAR(7),"YOU NEED OE/RR VERSION 1.96 OR GREATER TO RUN PROSTHETICS",!
KILL DIFQ
QUIT
+13 DO NOW^%DTC
SET Y=%
DO DD^%DT
SET RMPRST=Y
QUIT
