IBYHPRE.m

IBYHPRE ;ALB/TMP - PATCH IB*2*43 ENVIRONMENT CHECK ; 21-AUG-95

 ;;Version 2.0 ; INTEGRATED BILLING ;**43**; 21-MAR-94

 ;

 D DUZ

 D P6:$D(DIFQ),P8:$D(DIFQ),P13:$D(DIFQ),P23:$D(DIFQ),P40:$D(DIFQ),P45:$D(DIFQ)

 ; (Assume patch 28 is there if patch 40 is)

 Q

 ;

 ;

DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"

 N X S X=$O(^VA(200,+$G(DUZ),0)) W !

 I X']""!($G(DUZ(0))'="@") D

 .W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file"

 .W !?3,"and the variable DUZ(0) must equal ""@"" before you continue!"

 .K DIFQ

 Q

 ;

P6 ; Make sure IB 2.0 patch 6 is installed.

 N X

 S X=$T(+2^IBCOIVM)

 I X'["**6" D

 .W !!?3,"Patch IB*2*6 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

P8 ; Make sure IB 2.0 patch 8 is installed.

 N X

 S X=$T(+2^IBCU5)

 I X'["**8" D

 .W !!?3,"Patch IB*2*8 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

P13 ; Make sure IB 2.0 patch 13 is installed.

 N X

 S X=$T(+2^IBTRKR3)

 I X'["**13" D

 .W !!?3,"Patch IB*2*13 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

P23 ; Make sure IB 2.0 patch 23 is installed.

 N X

 S X=$T(+2^IBTRKR)

 I X'["**23" D

 .W !!?3,"Patch IB*2*23 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

P40 ; Make sure IB 2.0 patch 40 is installed.

 N X

 S X=$T(+2^IBAFIL)

 I X'["**40" D

 .W !!?3,"Patch IB*2*40 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

P45 ; Make sure IB 2.0 patch 45 is installed.

 N X

 S X=$T(+2^IBTRKR)

 I X'["45**" D

 .W !!?3,"Patch IB*2*45 does not appear to be installed!  Please"

 .W !?3,"install this patch and then re-run this initialization."

 .K DIFQ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBYHPRE   1992     printed  Mar 13, 2025@21:40:56                                                                                                                                                                                                     Page 2

IBYHPRE   ;ALB/TMP - PATCH IB*2*43 ENVIRONMENT CHECK ; 21-AUG-95

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;**43**; 21-MAR-94

 +2       ;

 +3        DO DUZ

 +4        if $DATA(DIFQ)

               DO P6

           if $DATA(DIFQ)

               DO P8

           if $DATA(DIFQ)

               DO P13

           if $DATA(DIFQ)

               DO P23

           if $DATA(DIFQ)

               DO P40

           if $DATA(DIFQ)

               DO P45

 +5       ; (Assume patch 28 is there if patch 40 is)

 +6        QUIT 

 +7       ;

 +8       ;

DUZ       ; Check to see if a valid user is defined and that DUZ(0)="@"

 +1        NEW X

           SET X=$ORDER(^VA(200,+$GET(DUZ),0))

           WRITE !

 +2        IF X']""!($GET(DUZ(0))'="@")

               Begin DoDot:1

 +3                WRITE !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file"

 +4                WRITE !?3,"and the variable DUZ(0) must equal ""@"" before you continue!"

 +5                KILL DIFQ

               End DoDot:1

 +6        QUIT 

 +7       ;

P6        ; Make sure IB 2.0 patch 6 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBCOIVM)

 +3        IF X'["**6"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*6 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT 

P8        ; Make sure IB 2.0 patch 8 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBCU5)

 +3        IF X'["**8"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*8 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT 

P13       ; Make sure IB 2.0 patch 13 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBTRKR3)

 +3        IF X'["**13"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*13 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT 

P23       ; Make sure IB 2.0 patch 23 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBTRKR)

 +3        IF X'["**23"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*23 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT 

P40       ; Make sure IB 2.0 patch 40 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBAFIL)

 +3        IF X'["**40"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*40 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT 

P45       ; Make sure IB 2.0 patch 45 is installed.

 +1        NEW X

 +2        SET X=$TEXT(+2^IBTRKR)

 +3        IF X'["45**"

               Begin DoDot:1

 +4                WRITE !!?3,"Patch IB*2*45 does not appear to be installed!  Please"

 +5                WRITE !?3,"install this patch and then re-run this initialization."

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT