CONSULT URGENCY (1038) OE/RR PRINT FIELDS (100.22)

Name	Value
NAME	CONSULT URGENCY
DEFAULT CAPTION	URG:
EXAMPLE ENTRY	EMERGENCY
VARIABLE	ORPCURG
PACKAGE RESTRICTION	CONSULT/REQUEST TRACKING
CODE FOR SETTING VARIABLE	S ORPK=$S($D(^OR(100,+ORIFN,4)):^(4),1:""),ORPCURG="" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^(0),U,9),0)) S ORPCURG=$P(^(0),U,2),ORPCURG=$S(ORPCURG["Urgency":$P(ORPCURG," Urg"),ORPCURG["Within":$P(ORPCURG,"Within ",2),1:ORPCURG)