Sub-Field: 58.747

Parent File	Name	Number	Package
58.74	WARD	58.747	Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	WARD	0;1	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) INPUT TRANSFORM: `S DIC("S")="N D0,X S D0=+Y D WIN^DGPMDDCF I 'X,$P(^DIC(42,D0,0),U,11)=$S($G(PSJDIV):PSJDIV,1:DA)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `AUG 25, 2015` HELP-PROMPT: `Enter the ward associated with this PADE.` DESCRIPTION: `This field allows you to select Wards that are associated with a PADE. When an order for an inpatient is completed, or an ADT event for that Ward is triggered, messages will be sent to PADE.` SCREEN: `S DIC("S")="N D0,X S D0=+Y D WIN^DGPMDDCF I 'X,$P(^DIC(42,D0,0),U,11)=$S($G(PSJDIV):PSJDIV,1:DA)"` EXPLANATION: `Only active wards belonging to this division are selectable.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.747^B` `1)= S ^PS(58.7,DA(2),"DIV",DA(1),"WD","B",$E(X,1,30),DA)=""` `2)= K ^PS(58.7,DA(2),"DIV",DA(1),"WD","B",$E(X,1,30),DA)`
1	WARD SEND AREA	0;2	POINTER TO PADE SEND AREA FILE (#58.71)	PADE SEND AREA(#58.71) LAST EDITED: `AUG 19, 2015` HELP-PROMPT: `Enter the PADE location that will be used for this ward.` DESCRIPTION: `This is the PADE cabinet location that will be used for this ward when sending messages.`

WARD

0;1

POINTER TO WARD LOCATION FILE (#42)

INPUT TRANSFORM: S DIC("S")="N D0,X S D0=+Y D WIN^DGPMDDCF I 'X,$P(^DIC(42,D0,0),U,11)=$S($G(PSJDIV):PSJDIV,1:DA)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: AUG 25, 2015
HELP-PROMPT: Enter the ward associated with this PADE.
DESCRIPTION:
This field allows you to select Wards that are associated with a PADE. When an order for an inpatient is completed, or an ADT event for that Ward is triggered, messages will be sent to PADE.
SCREEN: S DIC("S")="N D0,X S D0=+Y D WIN^DGPMDDCF I 'X,$P(^DIC(42,D0,0),U,11)=$S($G(PSJDIV):PSJDIV,1:DA)"
EXPLANATION: Only active wards belonging to this division are selectable.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.747^B
1)= S ^PS(58.7,DA(2),"DIV",DA(1),"WD","B",$E(X,1,30),DA)=""
2)= K ^PS(58.7,DA(2),"DIV",DA(1),"WD","B",$E(X,1,30),DA)

WARD SEND AREA

0;2

POINTER TO PADE SEND AREA FILE (#58.71)

LAST EDITED: AUG 19, 2015
HELP-PROMPT: Enter the PADE location that will be used for this ward.
DESCRIPTION:
This is the PADE cabinet location that will be used for this ward when sending messages.