source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINPRE.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 859 bytes
Line 
1XUINPRE ;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
8OPFIX 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
17ZZBUL 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
Note: See TracBrowser for help on using the repository browser.