- 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