ORPEAPI ;SLC/JMH - WRAPPERS FOR PHARMACY ENCAPSULATION; ; Compiled April 17, 2006 09:44:11
;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
NAME50(ORDRGIEN) ;
N NAME
D DATA^PSS50(ORDRGIEN,,,,,"ORLST")
S NAME=$G(^TMP($J,"ORLST",ORDRGIEN,.01))
K ^TMP($J,"ORLST")
Q NAME
;
CLASS50(ORDRGIEN) ;
N CLASS
D DATA^PSS50(ORDRGIEN,,,,,"ORLST")
S CLASS=$G(^TMP($J,"ORLST",ORDRGIEN,2))
K ^TMP($J,"ORLST")
Q CLASS
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORPEAPI 454 printed Dec 13, 2024@02:32:30 Page 2
ORPEAPI ;SLC/JMH - WRAPPERS FOR PHARMACY ENCAPSULATION; ; Compiled April 17, 2006 09:44:11
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
NAME50(ORDRGIEN) ;
+1 NEW NAME
+2 DO DATA^PSS50(ORDRGIEN,,,,,"ORLST")
+3 SET NAME=$GET(^TMP($JOB,"ORLST",ORDRGIEN,.01))
+4 KILL ^TMP($JOB,"ORLST")
+5 QUIT NAME
+6 ;
CLASS50(ORDRGIEN) ;
+1 NEW CLASS
+2 DO DATA^PSS50(ORDRGIEN,,,,,"ORLST")
+3 SET CLASS=$GET(^TMP($JOB,"ORLST",ORDRGIEN,2))
+4 KILL ^TMP($JOB,"ORLST")
+5 QUIT CLASS
+6 QUIT
+7 ;
