- 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 Feb 18, 2025@23:59:03 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 ;