BDGBULL.m

BDGBULL ; IHS/ANMC/LJF - POST A&D BULLETIN ; 

 ;;5.3;PIMS;;APR 26, 2002

 ;

ADS ;EP; --  manually post bulletin when A&D sheet checked to be okay

 NEW DIC,X,Y,XMB,XMT,XMDT

 D ^XBCLS W !!?12,"MANUALLY POST BULLETIN THAT A&D SHEET IS READY",!!

 ;

 ; find bulletin and display text

 S X="BDG A&D READY",DIC(0)="QMZ",DIC="^XMB(3.6," D ^DIC

 ;

 I Y<1 D  Q

 . W !!,"Bulletin not found; check with your computer support staff."

 . D PAUSE^BDGF

 ;

 W !,"Fill in the date for the message below:",!

 S XMB=$P(Y(0),U,1),XMJ=0

 F I=1:1 S XMJ=$O(^XMB(3.6,+Y,1,XMJ)) Q:XMJ=""  W !,^(XMJ,0)

 ;

 ; ask user for date and if okay to proceed

 S Y=$$READ^BDGF("FO","Enter A&D Sheet Date") Q:Y=""  Q:Y=U  S XMB(1)=Y

 S Y=$$READ^BDGF("YO","Okay to Post Bulletin Now")

 I Y S XMT=0 D ^XMB

END Q

BDGBULL   ; IHS/ANMC/LJF - POST A&D BULLETIN ; 

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ;

ADS       ;EP; --  manually post bulletin when A&D sheet checked to be okay

 +1        NEW DIC,X,Y,XMB,XMT,XMDT

 +2        DO ^XBCLS

           WRITE !!?12,"MANUALLY POST BULLETIN THAT A&D SHEET IS READY",!!

 +3       ;

 +4       ; find bulletin and display text

 +5        SET X="BDG A&D READY"

           SET DIC(0)="QMZ"

           SET DIC="^XMB(3.6,"

           DO ^DIC

 +6       ;

 +7        IF Y<1

               Begin DoDot:1

 +8                WRITE !!,"Bulletin not found; check with your computer support staff."

 +9                DO PAUSE^BDGF

               End DoDot:1

               QUIT 

 +10      ;

 +11       WRITE !,"Fill in the date for the message below:",!

 +12       SET XMB=$PIECE(Y(0),U,1)

           SET XMJ=0

 +13       FOR I=1:1

               SET XMJ=$ORDER(^XMB(3.6,+Y,1,XMJ))

               IF XMJ=""

                   QUIT 

               WRITE !,^(XMJ,0)

 +14      ;

 +15      ; ask user for date and if okay to proceed

 +16       SET Y=$$READ^BDGF("FO","Enter A&D Sheet Date")

           IF Y=""

               QUIT 

           IF Y=U

               QUIT 

           SET XMB(1)=Y

 +17       SET Y=$$READ^BDGF("YO","Okay to Post Bulletin Now")

 +18       IF Y

               SET XMT=0

               DO ^XMB

END        QUIT