INPUT TRANSFORM: S DIC("S")="I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""LOC""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 14, 2003
HELP-PROMPT: Enter a location that will satisfy this event, when the patient is transferred to it. If treating specialties are also defined then both must be true for orders to release.
DESCRIPTION: This is a ward location that can satisfy this event; if defined, then the patient's new location must match one in this list for any delayed orders to be released. A location may only be included in one active delay
event at a time.
If this event also has treating specialties defined then both the location and the treating specialty must match for orders to be released.
SCREEN: S DIC("S")="I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""LOC""))"
EXPLANATION: If this entry is active you may only pick locations that aren't currently in use.
CROSS-REFERENCE: 100.511^B
1)= S ^ORD(100.5,DA(1),"LOC","B",$E(X,1,30),DA)=""