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 ---[H[J[2J[HIBYAPRE 741 printed Dec 13, 2024@02:35:36 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
