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) |