INPUT TRANSFORM: S DIC("S")="I $$WGSEL^PSJPADE(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: DEC 10, 2015
HELP-PROMPT: Enter the ward group associated with this PADE.
DESCRIPTION: You may use ward groups to associate all the wards within a "P" type ward group to this Division instead of defining them individually. If you also define a WARD individually, which is part of a ward group defined
within this field, then the WARD SEND AREA in this multiple will be ignored for that ward and the send location of the individually defined ward will be used to send messages. This allows you to define behavior for an
entire ward group but create exceptions for specific wards that are part of that group.
SCREEN: S DIC("S")="I $$WGSEL^PSJPADE(Y)"
EXPLANATION: Only PHARMACY ward groups are selectable.
1)= S ^PS(58.7,DA(2),"DIV",DA(1),"WG","B",$E(X,1,30),DA)=""
2)= K ^PS(58.7,DA(2),"DIV",DA(1),"WG","B",$E(X,1,30),DA)