INPUT TRANSFORM: S DIC("S")="I $$WGCHK2^PSJPADSI(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 08, 2015
HELP-PROMPT: Enter a Ward Group supplied by this PADE device.
DESCRIPTION:
Ward Group associated with this PADE device.
SCREEN: S DIC("S")="I $$WGCHK2^PSJPADSI(Y,DA)"
EXPLANATION: Ward must be associated with Device's Division.
CROSS-REFERENCE: 58.635^B
1)= S ^PS(58.63,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PS(58.63,DA(1),3,"B",$E(X,1,30),DA)
FIELD INDEX: WG (#1385) MUMPS IR LOOKUP & SORTING WHOLE FILE (#58.63)
Short Descr: WARD GROUPS
Description: This cross reference contains Ward Groups associated with PADE Dispensing cabinets. This cross reference will be used to enable and disable the display of PADE information in Inpatient Order Entry by enabling the display
when the patient's ward location is linked to a PADE device, and disabling the display when the patient's ward location is not linked to a PADE device.
Set Logic: S ^PS(58.63,"WG",X(1),$G(DA(1)))=""
Kill Logic: K ^PS(58.63,"WG",X(1),$G(DA(1)))
Whole Kill: K ^PS(58.63,"WG")
X(1): WARD GROUP (58.635,.01) (Subscr 1) (forwards)