ORPEAPI.m

ORPEAPI ;SLC/JMH - WRAPPERS FOR PHARMACY ENCAPSULATION;21-Aug-2012 11:01;PLS

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,1010**;Dec 17, 1997;Build 47

 ; Modified - IHS/MSC/MGH - 08/21/2012 - Line NAME50+4

NAME50(ORDRGIEN) ;

 N NAME

 D DATA^PSS50(ORDRGIEN,,,,,"ORLST")

 S NAME=$G(^TMP($J,"ORLST",ORDRGIEN,.01))

 ;IHS/MSC/MGH Patch 1011

 S NAME=$$UP^XLFSTR(NAME)

 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

 ;

ORPEAPI   ;SLC/JMH - WRAPPERS FOR PHARMACY ENCAPSULATION;21-Aug-2012 11:01;PLS

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,1010**;Dec 17, 1997;Build 47

 +2       ; Modified - IHS/MSC/MGH - 08/21/2012 - Line NAME50+4

NAME50(ORDRGIEN) ;

 +1        NEW NAME

 +2        DO DATA^PSS50(ORDRGIEN,,,,,"ORLST")

 +3        SET NAME=$GET(^TMP($JOB,"ORLST",ORDRGIEN,.01))

 +4       ;IHS/MSC/MGH Patch 1011

 +5        SET NAME=$$UP^XLFSTR(NAME)

 +6        KILL ^TMP($JOB,"ORLST")

 +7        QUIT NAME

 +8       ;

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       ;