IBYAPRE.m

IBYAPRE ;ALB/CPM - PATCH IB*2*28 ENVIRONMENT CHECK ; 25-JAN-95

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

 ;

 D DUZ,AR:$D(DIFQ)

 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

 ;

AR ; Make sure an appropriate AR patch is installed.

 N X

 S X="RCAMINS" X ^%ZOSF("TEST")

 I '$T D

 .W !!?3,"Patch PRCA*4*24 or PRCA*4.5*6 does not appear to be installed!  Please"

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

 .K DIFQ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBYAPRE   741     printed  Apr 09, 2024@21:34:57                                                                                                                                                                                                      Page 2

IBYAPRE   ;ALB/CPM - PATCH IB*2*28 ENVIRONMENT CHECK ; 25-JAN-95

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

 +2       ;

 +3        DO DUZ

           if $DATA(DIFQ)

               DO AR

 +4        QUIT 

 +5       ;

 +6       ;

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       ;

AR        ; Make sure an appropriate AR patch is installed.

 +1        NEW X

 +2        SET X="RCAMINS"

           XECUTE ^%ZOSF("TEST")

 +3        IF '$TEST

               Begin DoDot:1

 +4                WRITE !!?3,"Patch PRCA*4*24 or PRCA*4.5*6 does not appear to be installed!  Please"

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

 +6                KILL DIFQ

               End DoDot:1

 +7        QUIT