Print Page as PDF
Post-Selection Action in Patient (#2) file ICR (4379)

Post-Selection Action in Patient (#2) file    ICR (4379)

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
MAIL MESSAGE 38233374
Generated from JAN 24, 2019@ IA Listing Descriptions