Last change
on this file since 1681 was 642, checked in by Sam Habiel, 15 years ago |
Modified directory structure; moved routines.
|
File size:
384 bytes
|
Rev | Line | |
---|
[641] | 1 | XBTM1 ; IHS/ADC/GTH - TECH MANUAL : Facility Parameters ; [ 02/07/97 3:02 PM ]
|
---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
---|
| 3 | ;
|
---|
| 4 | NEW A,B,C
|
---|
| 5 | F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
|
---|
| 6 | Q:$D(DUOUT)
|
---|
| 7 | D DIWW
|
---|
| 8 | Q
|
---|
| 9 | ;
|
---|
| 10 | DIWW NEW A,B,C D ^DIWW Q
|
---|
| 11 | PR(X) NEW A,B,C D PR^XBTM(X) Q
|
---|
| 12 | ;;There are no facility parameters for this package.
|
---|
| 13 | ;;|SETTAB("C")||TAB|
|
---|
| 14 | ;;|SETTAB("C")||TAB|
|
---|
| 15 | ;;###
|
---|
| 16 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.