PROCEDURE/CONSULT TYPE (1041) OE/RR PRINT FIELDS (100.22)

Name	Value
NAME	PROCEDURE/CONSULT TYPE
EXAMPLE ENTRY	Catheterization
VARIABLE	ORPCPROC
PACKAGE RESTRICTION	CONSULT/REQUEST TRACKING
CODE FOR SETTING VARIABLE	S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:""),ORPCPROC="" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,8),0)) S ORPCPROC=$P(^(0),U,2)