| [613] | 1 | XUINPRE ;SF/STAFF - KERNEL VERSION 8 PRE-INITIALIZATION ;11/30/94 13:27
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;Build check points for KIDS to run
|
|---|
| 4 | N %
|
|---|
| 5 | S %='$$NEWCP^XPDUTL("PRE1","OPFIX^XUINPRE"),%=$$NEWCP^XPDUTL("PRE2","ZZBUL^XUINPRE")
|
|---|
| 6 | ;Now return to KIDS, and let KIDS run the check points
|
|---|
| 7 | Q
|
|---|
| 8 | OPFIX N XQI,DA,DIK
|
|---|
| 9 | D MES^XPDUTL("Clean up dangling 99 nodes in the OPTION File.")
|
|---|
| 10 | F XQI=0:0 S XQI=$O(^DIC(19,XQI)) Q:XQI'>0 D
|
|---|
| 11 | .I $D(^DIC(19,+XQI,99)),'$D(^DIC(19,XQI,0)) K ^DIC(19,XQI,99)
|
|---|
| 12 | .I $D(^DIC(19,+XQI,1,0,0)) K ^DIC(19,+XQI,1)
|
|---|
| 13 | I $D(^DD(19,1000,0)) D
|
|---|
| 14 | . D MES^XPDUTL("Remove field 1000 from Option File")
|
|---|
| 15 | . S DA=1000,DA(1)=19,DIK="^DD(19," D ^DIK
|
|---|
| 16 | Q
|
|---|
| 17 | ZZBUL N DA,DIK
|
|---|
| 18 | I $D(^DD(3.6,.01,1,2,"CREATE VALUE")),^("CREATE VALUE")="ZZBUL" D
|
|---|
| 19 | . S DIK="^DD(3.6,.01,1,",DA=2,DA(1)=.01,DA(2)=3.6
|
|---|
| 20 | . D ^DIK,MES^XPDUTL("Remove the ZZBUL trigger from the bulletin file.")
|
|---|
| 21 | Q
|
|---|
