PSOVRSN ;BHAM ISC/RTR - VERIFIY VERSION NODE
;;6.0;OUTPATIENT PHARMACY;**117**;JUNE 1994
W !,"Checking Version node of Package File,",!
S PSOSYS=$O(^PS(59.7,0)) I '$P($G(^PS(59.7,PSOSYS,49.99)),"^") W !,"There is a problem with your Outpatient Version entry in your Pharmacy",!,"System File (#59.7), please check with IRM, then re-run this routine!",! G END
I +$P($G(^PS(59.7,PSOSYS,49.99)),"^")<6 W !,"It appears from your Outpatient Version entry in your Pharmacy System",!,"File (#59.7), that you are running an earlier version of Outpatient.",!,"Do not install this patch!",!!,"Finished!",! G END
S PSOPAC=$O(^DIC(9.4,"B","OUTPATIENT PHARMACY",0)) I 'PSOPAC W !,"You do not have a B cross reference for Outpatient Pharmacy in",!,"your Package File (#9.4), consult with IRM, then run this routine again!",! G END
I $G(^DIC(9.4,PSOPAC,"VERSION"))="6.0" W !,"Your Version node in the Package file is already correct,",!,"no updating needs to be done.",!!,"Finished!",! G END
S DIE="^DIC(9.4,",DA=PSOPAC,DR="13////"_"6.0" D ^DIE K DIE,DA,DR W !,"Finished!",!
END K PSOSYS,PSOPAC Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOVRSN 1097 printed Dec 13, 2024@02:36:26 Page 2
PSOVRSN ;BHAM ISC/RTR - VERIFIY VERSION NODE
+1 ;;6.0;OUTPATIENT PHARMACY;**117**;JUNE 1994
+2 WRITE !,"Checking Version node of Package File,",!
+3 SET PSOSYS=$ORDER(^PS(59.7,0))
IF '$PIECE($GET(^PS(59.7,PSOSYS,49.99)),"^")
WRITE !,"There is a problem with your Outpatient Version entry in your Pharmacy",!,"System File (#59.7), please check with IRM, then re-run this routine!",!
GOTO END
+4 IF +$PIECE($GET(^PS(59.7,PSOSYS,49.99)),"^")<6
WRITE !,"It appears from your Outpatient Version entry in your Pharmacy System",!,"File (#59.7), that you are running an earlier version of Outpatient.",!,"Do not install this patch!",!!,"Finished!",!
GOTO END
+5 SET PSOPAC=$ORDER(^DIC(9.4,"B","OUTPATIENT PHARMACY",0))
IF 'PSOPAC
WRITE !,"You do not have a B cross reference for Outpatient Pharmacy in",!,"your Package File (#9.4), consult with IRM, then run this routine again!",!
GOTO END
+6 IF $GET(^DIC(9.4,PSOPAC,"VERSION"))="6.0"
WRITE !,"Your Version node in the Package file is already correct,",!,"no updating needs to be done.",!!,"Finished!",!
GOTO END
+7 SET DIE="^DIC(9.4,"
SET DA=PSOPAC
SET DR="13////"_"6.0"
DO ^DIE
KILL DIE,DA,DR
WRITE !,"Finished!",!
END KILL PSOSYS,PSOPAC
QUIT
