|
Last change
on this file since 720 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
332 bytes
|
| Rev | Line | |
|---|
| [641] | 1 | XBTM14 ; IHS/ADC/GTH - TECH MANUAL : ENHANCEMENTS ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | NEW A,B
|
|---|
| 5 | S A=$O(^DIC(9.4,"C","XB",0)),B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
|
|---|
| 6 | S %=0
|
|---|
| 7 | F S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'% D PR(^(%,0)) Q:$D(DUOUT)
|
|---|
| 8 | Q:$D(DUOUT)
|
|---|
| 9 | D ^DIWW
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | PR(X) NEW %,A,B D PR^XBTM(X) Q
|
|---|
| 13 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
