XBFLD0.m

XBFLD0 ; IHS/ADC/GTH - PRINT FIELD TRIGGERS ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

S ;

 NEW I,T,N

 S I=0

 F  S I=$O(^DD(XBFILE,XBFIELD,1,I)) Q:I'>0  D

 . D:$Y>(IOSL-4) PAGE^XBFLD

 . W !?16,"X: ",$P(^DD(XBFILE,XBFIELD,1,I,0),"^",2,5) S T=$P(^(0),U,3),T=$E(T,1,2)

 . S:T="" T="RG"

 . ;choices for T==> RG,MU,BU,KW,MN,TR

 . D @T

 Q

 ;

MU ;MUMPS

MN ;MNEMONIC

 F N=1,2 W !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)

 Q

 ;

RG ;REGULAR

 F N=1 W !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)

 Q

 ;

BU ;BULLETIN

 S X="CREATE",N=X

 F  S N=$O(^DD(XBFILE,XBFIELD,1,I,N)) Q:N'[X  W !?20,N,?40,^(N)

 Q

 ;

KW ;KWIC

 Q

 ;

TR ;TRIGGER

 F N="CREATE VALUE","DELETE VALUE","FIELD" W !?20,N,?35,$G(^DD(XBFILE,XBFIELD,1,I,N))

 Q

 ;

XBFLD0    ; IHS/ADC/GTH - PRINT FIELD TRIGGERS ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

S         ;

 +1        NEW I,T,N

 +2        SET I=0

 +3        FOR 

               SET I=$ORDER(^DD(XBFILE,XBFIELD,1,I))

               IF I'>0

                   QUIT 

               Begin DoDot:1

 +4                IF $Y>(IOSL-4)

                       DO PAGE^XBFLD

 +5                WRITE !?16,"X: ",$PIECE(^DD(XBFILE,XBFIELD,1,I,0),"^",2,5)

                   SET T=$PIECE(^(0),U,3)

                   SET T=$EXTRACT(T,1,2)

 +6                IF T=""

                       SET T="RG"

 +7       ;choices for T==> RG,MU,BU,KW,MN,TR

 +8                DO @T

               End DoDot:1

 +9        QUIT 

 +10      ;

MU        ;MUMPS

MN        ;MNEMONIC

 +1        FOR N=1,2

               WRITE !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)

 +2        QUIT 

 +3       ;

RG        ;REGULAR

 +1        FOR N=1

               WRITE !?20,N,")",?25,^DD(XBFILE,XBFIELD,1,I,N)

 +2        QUIT 

 +3       ;

BU        ;BULLETIN

 +1        SET X="CREATE"

           SET N=X

 +2        FOR 

               SET N=$ORDER(^DD(XBFILE,XBFIELD,1,I,N))

               IF N'[X

                   QUIT 

               WRITE !?20,N,?40,^(N)

 +3        QUIT 

 +4       ;

KW        ;KWIC

 +1        QUIT 

 +2       ;

TR        ;TRIGGER

 +1        FOR N="CREATE VALUE","DELETE VALUE","FIELD"

               WRITE !?20,N,?35,$GET(^DD(XBFILE,XBFIELD,1,I,N))

 +2        QUIT 

 +3       ;