| GENERAL DESCRIPTION |
DG*5.3*582, Registration is sending multiple ISO bulletins. A flag has been
added to DGRPEIS1, and the post-selection action for the Patient (#2) file
needs to be modified to check for this flag so additional bulletins will be
suppressed.
Old value:
^DD(2,0,"ACT")= I '$G(DICR),$G(DIC(0))'["I" D ^DGSEC
Changing to:
^DD(2,0,"ACT")= I '$G(DICR),$G(DIC(0))'["I",'$G(DGBULSUP) D ^DGSEC
DG53P582 ;ALB/BWF; Pre-Init; ; 3/19/2004 8:36am
;;5.3;Registration;**582**;Aug 13, 1993 ENV ;Environment check
point
S XPDABORT=""
D PROGCHK(.XPDABORT)
I XPDABORT="" K XPDABORT
Q PROGCHK(XPDABORT) ;checks for necessary programmer variables
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
. D BMES^XPDUTL("*****")
. D MES^XPDUTL("Your programming variables are not set up properly.")
. D MES^XPDUTL("Installation aborted.")
. D MES^XPDUTL("*****")
. S XPDABORT=2
Q PRE ;
S ^DD(2,0,"ACT")="I '$G(DICR),$G(DIC(0))'["I",'$G(DGBULSUP) D ^DGSEC"
Q
|
