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)