RMPRPRE.m

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 ---RMPRPRE   1902     printed  Apr 09, 2024@21:38:46                                                                                                                                                                                                     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