Name | Value |
---|---|
NUMBER | 4379 |
IA # | 4379 |
FILE NUMBER | 2 |
GLOBAL ROOT | DD( |
DATE CREATED | 2004/05/04 |
CUSTODIAL PACKAGE | VA FILEMAN |
CUSTODIAL ISC | San Francisco |
USAGE | Private |
TYPE | File |
NAME | Post-Selection Action in Patient (#2) file |
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 |
STATUS | Retired |
ID | DD( |
SUBSCRIBING PACKAGE | REGISTRATION |