| [641] | 1 | XBFLD0 ; IHS/ADC/GTH - PRINT FIELD TRIGGERS ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | S ;
|
|---|
| 5 | NEW I,T,N
|
|---|
| 6 | S I=0
|
|---|
| 7 | F S I=$O(^DD(XBFILE,XBFIELD,1,I)) Q:I'>0 D
|
|---|
| 8 | . D:$Y>(IOSL-4) PAGE^XBFLD
|
|---|
| 9 | . W !?16,"X: ",$P(^DD(XBFILE,XBFIELD,1,I,0),"^",2,5) S T=$P(^(0),U,3),T=$E(T,1,2)
|
|---|
| 10 | . S:T="" T="RG"
|
|---|
| 11 | . ;choices for T==> RG,MU,BU,KW,MN,TR
|
|---|
| 12 | . D @T
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | MU ;MUMPS
|
|---|
| 16 | MN ;MNEMONIC
|
|---|
| 17 | F N=1,2 W !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | RG ;REGULAR
|
|---|
| 21 | F N=1 W !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | BU ;BULLETIN
|
|---|
| 25 | S X="CREATE",N=X
|
|---|
| 26 | F S N=$O(^DD(XBFILE,XBFIELD,1,I,N)) Q:N'[X W !?20,N,?40,^(N)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | KW ;KWIC
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | TR ;TRIGGER
|
|---|
| 33 | F N="CREATE VALUE","DELETE VALUE","FIELD" W !?20,N,?35,$G(^DD(XBFILE,XBFIELD,1,I,N))
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
