PSDINPRE.m

PSDINPRE ;BIR/DMA-Pre Init for Controlled Substances ; 18 May 92

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 S XQABT1=$H

 I $D(DUZ),$D(DUZ)#2,$D(^VA(200,+DUZ,0)),$D(DUZ(0)),DUZ(0)="@" S (XQABT2,XQABT3)=$H G CHECK

 W !!,$C(7),"You must be a defined user with DUZ(0)=""@""",!

 S XPDQUIT=2 Q

CHECK ;check for required packages

 N PSD S PSD(1)=" is required"

 I $$VERSION^XPDUTL("XU")<8 W !,"KERNEL VERSION 3.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("VA FILEMAN")<21 W !,"VA FILEMAN VERSION 21.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("XM")<7.1 W !,"MAILMAN VERSION 7.1",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("NUR")<2.5 W !,"NURSING VERSION 2.5",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("PSO")<6 W !,"OUTPATIENT PHARMACY VERSION 6.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("AUTO REPLENISHMENT/WARD STOCK")<2.2 W !,"AUTO REPLENISHMENT/WARD STOCK VERSION 2.2",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("INPATIENT MEDICATIONS")<4 W !,"INPATIENT MEDICATIONS VERSION 4.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("PSA")<2 W !,"DRUG ACCOUNTABILITY VERSION 2.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("IB")<2 W !,"INTEGRATED BILLING VERSION 2.0",PSD(1),!! S PSD=1

 I $$VERSION^XPDUTL("HL")<1.6 W !,"HEALTH LEVEL 7 VERSION 1.6",PSD(1),!! S PSD=1

 I $G(PSD) W "for CONTROLLED SUBSTANCES VERSION 3.0.",!!,"Installation cannot proceed.",! S XPDQUIT=1

 Q

PSDINPRE  ;BIR/DMA-Pre Init for Controlled Substances ; 18 May 92

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2        SET XQABT1=$HOROLOG

 +3        IF $DATA(DUZ)

               IF $DATA(DUZ)#2

                   IF $DATA(^VA(200,+DUZ,0))

                       IF $DATA(DUZ(0))

                           IF DUZ(0)="@"

                               SET (XQABT2,XQABT3)=$HOROLOG

                               GOTO CHECK

 +4        WRITE !!,$CHAR(7),"You must be a defined user with DUZ(0)=""@""",!

 +5        SET XPDQUIT=2

           QUIT 

CHECK     ;check for required packages

 +1        NEW PSD

           SET PSD(1)=" is required"

 +2        IF $$VERSION^XPDUTL("XU")<8

               WRITE !,"KERNEL VERSION 3.0",PSD(1),!!

               SET PSD=1

 +3        IF $$VERSION^XPDUTL("VA FILEMAN")<21

               WRITE !,"VA FILEMAN VERSION 21.0",PSD(1),!!

               SET PSD=1

 +4        IF $$VERSION^XPDUTL("XM")<7.1

               WRITE !,"MAILMAN VERSION 7.1",PSD(1),!!

               SET PSD=1

 +5        IF $$VERSION^XPDUTL("NUR")<2.5

               WRITE !,"NURSING VERSION 2.5",PSD(1),!!

               SET PSD=1

 +6        IF $$VERSION^XPDUTL("PSO")<6

               WRITE !,"OUTPATIENT PHARMACY VERSION 6.0",PSD(1),!!

               SET PSD=1

 +7        IF $$VERSION^XPDUTL("AUTO REPLENISHMENT/WARD STOCK")<2.2

               WRITE !,"AUTO REPLENISHMENT/WARD STOCK VERSION 2.2",PSD(1),!!

               SET PSD=1

 +8        IF $$VERSION^XPDUTL("INPATIENT MEDICATIONS")<4

               WRITE !,"INPATIENT MEDICATIONS VERSION 4.0",PSD(1),!!

               SET PSD=1

 +9        IF $$VERSION^XPDUTL("PSA")<2

               WRITE !,"DRUG ACCOUNTABILITY VERSION 2.0",PSD(1),!!

               SET PSD=1

 +10       IF $$VERSION^XPDUTL("IB")<2

               WRITE !,"INTEGRATED BILLING VERSION 2.0",PSD(1),!!

               SET PSD=1

 +11       IF $$VERSION^XPDUTL("HL")<1.6

               WRITE !,"HEALTH LEVEL 7 VERSION 1.6",PSD(1),!!

               SET PSD=1

 +12       IF $GET(PSD)

               WRITE "for CONTROLLED SUBSTANCES VERSION 3.0.",!!,"Installation cannot proceed.",!

               SET XPDQUIT=1

 +13       QUIT