XUINPRE ;SF/STAFF - KERNEL VERSION 8 PRE-INITIALIZATION ;11/30/94 13:27
;;8.0;KERNEL;;Jul 10, 1995
;Build check points for KIDS to run
N %
S %='$$NEWCP^XPDUTL("PRE1","OPFIX^XUINPRE"),%=$$NEWCP^XPDUTL("PRE2","ZZBUL^XUINPRE")
;Now return to KIDS, and let KIDS run the check points
Q
OPFIX N XQI,DA,DIK
D MES^XPDUTL("Clean up dangling 99 nodes in the OPTION File.")
F XQI=0:0 S XQI=$O(^DIC(19,XQI)) Q:XQI'>0 D
.I $D(^DIC(19,+XQI,99)),'$D(^DIC(19,XQI,0)) K ^DIC(19,XQI,99)
.I $D(^DIC(19,+XQI,1,0,0)) K ^DIC(19,+XQI,1)
I $D(^DD(19,1000,0)) D
. D MES^XPDUTL("Remove field 1000 from Option File")
. S DA=1000,DA(1)=19,DIK="^DD(19," D ^DIK
Q
ZZBUL N DA,DIK
I $D(^DD(3.6,.01,1,2,"CREATE VALUE")),^("CREATE VALUE")="ZZBUL" D
. S DIK="^DD(3.6,.01,1,",DA=2,DA(1)=.01,DA(2)=3.6
. D ^DIK,MES^XPDUTL("Remove the ZZBUL trigger from the bulletin file.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINPRE 880 printed Nov 22, 2024@17:19:59 Page 2
XUINPRE ;SF/STAFF - KERNEL VERSION 8 PRE-INITIALIZATION ;11/30/94 13:27
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;Build check points for KIDS to run
+3 NEW %
+4 SET %='$$NEWCP^XPDUTL("PRE1","OPFIX^XUINPRE")
SET %=$$NEWCP^XPDUTL("PRE2","ZZBUL^XUINPRE")
+5 ;Now return to KIDS, and let KIDS run the check points
+6 QUIT
OPFIX NEW XQI,DA,DIK
+1 DO MES^XPDUTL("Clean up dangling 99 nodes in the OPTION File.")
+2 FOR XQI=0:0
SET XQI=$ORDER(^DIC(19,XQI))
if XQI'>0
QUIT
Begin DoDot:1
+3 IF $DATA(^DIC(19,+XQI,99))
IF '$DATA(^DIC(19,XQI,0))
KILL ^DIC(19,XQI,99)
+4 IF $DATA(^DIC(19,+XQI,1,0,0))
KILL ^DIC(19,+XQI,1)
End DoDot:1
+5 IF $DATA(^DD(19,1000,0))
Begin DoDot:1
+6 DO MES^XPDUTL("Remove field 1000 from Option File")
+7 SET DA=1000
SET DA(1)=19
SET DIK="^DD(19,"
DO ^DIK
End DoDot:1
+8 QUIT
ZZBUL NEW DA,DIK
+1 IF $DATA(^DD(3.6,.01,1,2,"CREATE VALUE"))
IF ^("CREATE VALUE")="ZZBUL"
Begin DoDot:1
+2 SET DIK="^DD(3.6,.01,1,"
SET DA=2
SET DA(1)=.01
SET DA(2)=3.6
+3 DO ^DIK
DO MES^XPDUTL("Remove the ZZBUL trigger from the bulletin file.")
End DoDot:1
+4 QUIT
