PSS262PR ;BIR/RTR-Pre-init routine for patch PSS*1*262 ;4/2/2025
;;1.0;PHARMACY DATA MANAGEMENT;**262**;9/30/97;Build 66
;
Q
;
EN ;Delete 51.26 and 51.28 file entries
D BMES^XPDUTL("Deleting entries in File 51.26 and 51.28...")
N PSSDEL
I $D(^PS(51.26)) D S ^PS(51.26,0)="PHARMACOGENOMIC GENES^51.26^0^0"
.S PSSDEL=0 F S PSSDEL=$O(^PS(51.26,PSSDEL)) Q:'PSSDEL K ^PS(51.26,PSSDEL)
.K ^PS(51.26,"B")
.K ^PS(51.26,"C")
.K ^PS(51.26,"D")
I $D(^PS(51.28)) D S ^PS(51.28,0)="PHARMACOGENOMIC PHENOTYPES^51.28^0^0"
.S PSSDEL=0 F S PSSDEL=$O(^PS(51.28,PSSDEL)) Q:'PSSDEL K ^PS(51.28,PSSDEL)
.K ^PS(51.28,"B")
.K ^PS(51.28,"C")
.K ^PS(51.28,"D")
I $D(^PS(51.29)) D S ^PS(51.29,0)="PHARMACOGENOMIC EMAIL LOG^51.29P^0^0"
.S PSSDEL=0 F S PSSDEL=$O(^PS(51.29,PSSDEL)) Q:'PSSDEL K ^PS(51.29,PSSDEL)
.K ^PS(51.29,"B")
.K ^PS(51.29,"C")
D BMES^XPDUTL("Entries successfully deleted...")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS262PR 926 printed Mar 25, 2026@15:53:48 Page 2
PSS262PR ;BIR/RTR-Pre-init routine for patch PSS*1*262 ;4/2/2025
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**262**;9/30/97;Build 66
+2 ;
+3 QUIT
+4 ;
EN ;Delete 51.26 and 51.28 file entries
+1 DO BMES^XPDUTL("Deleting entries in File 51.26 and 51.28...")
+2 NEW PSSDEL
+3 IF $DATA(^PS(51.26))
Begin DoDot:1
+4 SET PSSDEL=0
FOR
SET PSSDEL=$ORDER(^PS(51.26,PSSDEL))
if 'PSSDEL
QUIT
KILL ^PS(51.26,PSSDEL)
+5 KILL ^PS(51.26,"B")
+6 KILL ^PS(51.26,"C")
+7 KILL ^PS(51.26,"D")
End DoDot:1
SET ^PS(51.26,0)="PHARMACOGENOMIC GENES^51.26^0^0"
+8 IF $DATA(^PS(51.28))
Begin DoDot:1
+9 SET PSSDEL=0
FOR
SET PSSDEL=$ORDER(^PS(51.28,PSSDEL))
if 'PSSDEL
QUIT
KILL ^PS(51.28,PSSDEL)
+10 KILL ^PS(51.28,"B")
+11 KILL ^PS(51.28,"C")
+12 KILL ^PS(51.28,"D")
End DoDot:1
SET ^PS(51.28,0)="PHARMACOGENOMIC PHENOTYPES^51.28^0^0"
+13 IF $DATA(^PS(51.29))
Begin DoDot:1
+14 SET PSSDEL=0
FOR
SET PSSDEL=$ORDER(^PS(51.29,PSSDEL))
if 'PSSDEL
QUIT
KILL ^PS(51.29,PSSDEL)
+15 KILL ^PS(51.29,"B")
+16 KILL ^PS(51.29,"C")
End DoDot:1
SET ^PS(51.29,0)="PHARMACOGENOMIC EMAIL LOG^51.29P^0^0"
+17 DO BMES^XPDUTL("Entries successfully deleted...")
+18 QUIT
