Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BDGBULL

BDGBULL.m

Go to the documentation of this file.
  1. BDGBULL ; IHS/ANMC/LJF - POST A&D BULLETIN ;
  1. ;;5.3;PIMS;;APR 26, 2002
  1. ;
  1. ADS ;EP; -- manually post bulletin when A&D sheet checked to be okay
  1. NEW DIC,X,Y,XMB,XMT,XMDT
  1. D ^XBCLS W !!?12,"MANUALLY POST BULLETIN THAT A&D SHEET IS READY",!!
  1. ;
  1. ; find bulletin and display text
  1. S X="BDG A&D READY",DIC(0)="QMZ",DIC="^XMB(3.6," D ^DIC
  1. ;
  1. I Y<1 D Q
  1. . W !!,"Bulletin not found; check with your computer support staff."
  1. . D PAUSE^BDGF
  1. ;
  1. W !,"Fill in the date for the message below:",!
  1. S XMB=$P(Y(0),U,1),XMJ=0
  1. F I=1:1 S XMJ=$O(^XMB(3.6,+Y,1,XMJ)) Q:XMJ="" W !,^(XMJ,0)
  1. ;
  1. ; ask user for date and if okay to proceed
  1. S Y=$$READ^BDGF("FO","Enter A&D Sheet Date") Q:Y="" Q:Y=U S XMB(1)=Y
  1. S Y=$$READ^BDGF("YO","Okay to Post Bulletin Now")
  1. I Y S XMT=0 D ^XMB
  1. END Q