ORPEAPI.m

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 ---ORPEAPI   454     printed  Apr 09, 2024@21:32:49                                                                                                                                                                                                      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       ;