GMRAPENC ;SLC/JMH - Pharmacy API calls ;12/06/12 14:55
;;4.0;Adverse Reaction Tracking;**41,46**;Mar 29, 1996;Build 62
;
;$$DRP2CLP^GMRAPENC(50 IEN) => 50.605 IEN
;$$CODE2CLP^GMRAPENC(DRUG CLASS CODE) => 50.605 IEN
;$$CODE2CL^GMRAPENC(DRUG CLASS CODE) => 50.605 CLASS NAME
;$$DRP2VACL^GMRAPENC(50 IEN) => 50.605 CLASS NAME
;$$DRP2CODE^GMRAPENC(50 IEN) => 50.605 CLASS CODE
;$$CLP2CODE^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE
;$$CLP2CLDA^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE ^ 50.605 CLASSIFICATION
;$$INP2INNA^GMRAPENC(50.416 IEN) => 50.416 INGREDIENT NAME
;
DRP2CLP(GMRAIEN) ;
;GMRAIEN = FILE 50 POINTER
;RETURN = FILE 50.605 POINTER
N GMRARET
K ^TMP($J,"GMRADATA")
D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
S GMRARET=+$G(^TMP($J,"GMRADATA",GMRAIEN,25))
K ^TMP($J,"GMRADATA")
Q GMRARET
CODE2CLP(GMRACODE) ;
;GMRACODE = DRUG CLASS CODE
;RETURN = FILE 50.605 POINTER
N GMRARET
K ^TMP($J,"GMRADATA")
D IEN^PSN50P65(,GMRACODE,"GMRADATA")
S GMRARET=$O(^TMP($J,"GMRADATA","B",GMRACODE,""))
K ^TMP($J,"GMRADATA")
Q GMRARET
CODE2CL(GMRACODE) ;
;GMRACODE = DRUG CLASS CODE
;RETURN = DRUG CLASS NAME
N GMRARET
K ^TMP($J,"GMRADATA")
D IEN^PSN50P65(,GMRACODE,"GMRADATA")
S GMRARET=$O(^TMP($J,"GMRADATA","B",GMRACODE,""))
I GMRARET S GMRARET=$G(^TMP($J,"GMRADATA",GMRARET,1))
K ^TMP($J,"GMRADATA")
Q GMRARET
DRP2VACL(GMRAIEN) ;
;GMRAIEN = FILE 50 POINTER
;RETURN = VA CLASSIFICATION
N GMRARET
D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,2))
K ^TMP($J,"GMRADATA")
Q GMRARET
DRP2CODE(GMRAIEN) ;
;GMRAIEN = FILE 50 POINTER
;RETURN = DRUG CLASS CODE
N GMRARET
K ^TMP($J,"GMRADATA")
D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
S GMRARET=$P($G(^TMP($J,"GMRADATA",GMRAIEN,25)),U,2)
K ^TMP($J,"GMRADATA")
Q GMRARET
CLP2CODE(GMRAIEN) ;
;GMRAIEN = FILE 50.605 POINTER
;RETURN = DRUG CLASS CODE
N GMRARET
K ^TMP($J,"GMRADATA")
D C^PSN50P65(GMRAIEN,,"GMRADATA")
S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))
K ^TMP($J,"GMRADATA")
Q GMRARET
CLP2CLDA(GMRAIEN) ;
;GMRAIEN = FILE 50.605 POINTER
;RETURN = DRUG CLASS CODE^DRUG CLASS CLASSIFICATION
N GMRARET
K ^TMP($J,"GMRADATA")
D C^PSN50P65(GMRAIEN,,"GMRADATA")
S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))_U_$G(^TMP($J,"GMRADATA",GMRAIEN,1))
K ^TMP($J,"GMRADATA")
Q GMRARET
INP2INNA(GMRAIEN) ;
;GMRAIEN = FILE 50.416 POINTER
;RETURN = DRUG INGREDIENT NAME
N GMRARET
K ^TMP($J,"GMRADATA")
D ZERO^PSN50P41(GMRAIEN,,,"GMRADATA")
S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))
K ^TMP($J,"GMRADATA")
Q GMRARET
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAPENC 2617 printed Sep 23, 2025@19:16 Page 2
GMRAPENC ;SLC/JMH - Pharmacy API calls ;12/06/12 14:55
+1 ;;4.0;Adverse Reaction Tracking;**41,46**;Mar 29, 1996;Build 62
+2 ;
+3 ;$$DRP2CLP^GMRAPENC(50 IEN) => 50.605 IEN
+4 ;$$CODE2CLP^GMRAPENC(DRUG CLASS CODE) => 50.605 IEN
+5 ;$$CODE2CL^GMRAPENC(DRUG CLASS CODE) => 50.605 CLASS NAME
+6 ;$$DRP2VACL^GMRAPENC(50 IEN) => 50.605 CLASS NAME
+7 ;$$DRP2CODE^GMRAPENC(50 IEN) => 50.605 CLASS CODE
+8 ;$$CLP2CODE^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE
+9 ;$$CLP2CLDA^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE ^ 50.605 CLASSIFICATION
+10 ;$$INP2INNA^GMRAPENC(50.416 IEN) => 50.416 INGREDIENT NAME
+11 ;
DRP2CLP(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50 POINTER
+2 ;RETURN = FILE 50.605 POINTER
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
+6 SET GMRARET=+$GET(^TMP($JOB,"GMRADATA",GMRAIEN,25))
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
CODE2CLP(GMRACODE) ;
+1 ;GMRACODE = DRUG CLASS CODE
+2 ;RETURN = FILE 50.605 POINTER
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO IEN^PSN50P65(,GMRACODE,"GMRADATA")
+6 SET GMRARET=$ORDER(^TMP($JOB,"GMRADATA","B",GMRACODE,""))
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
CODE2CL(GMRACODE) ;
+1 ;GMRACODE = DRUG CLASS CODE
+2 ;RETURN = DRUG CLASS NAME
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO IEN^PSN50P65(,GMRACODE,"GMRADATA")
+6 SET GMRARET=$ORDER(^TMP($JOB,"GMRADATA","B",GMRACODE,""))
+7 IF GMRARET
SET GMRARET=$GET(^TMP($JOB,"GMRADATA",GMRARET,1))
+8 KILL ^TMP($JOB,"GMRADATA")
+9 QUIT GMRARET
DRP2VACL(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50 POINTER
+2 ;RETURN = VA CLASSIFICATION
+3 NEW GMRARET
+4 DO DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
+5 SET GMRARET=$GET(^TMP($JOB,"GMRADATA",GMRAIEN,2))
+6 KILL ^TMP($JOB,"GMRADATA")
+7 QUIT GMRARET
DRP2CODE(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50 POINTER
+2 ;RETURN = DRUG CLASS CODE
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
+6 SET GMRARET=$PIECE($GET(^TMP($JOB,"GMRADATA",GMRAIEN,25)),U,2)
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
CLP2CODE(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50.605 POINTER
+2 ;RETURN = DRUG CLASS CODE
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO C^PSN50P65(GMRAIEN,,"GMRADATA")
+6 SET GMRARET=$GET(^TMP($JOB,"GMRADATA",GMRAIEN,.01))
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
CLP2CLDA(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50.605 POINTER
+2 ;RETURN = DRUG CLASS CODE^DRUG CLASS CLASSIFICATION
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO C^PSN50P65(GMRAIEN,,"GMRADATA")
+6 SET GMRARET=$GET(^TMP($JOB,"GMRADATA",GMRAIEN,.01))_U_$GET(^TMP($JOB,"GMRADATA",GMRAIEN,1))
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
INP2INNA(GMRAIEN) ;
+1 ;GMRAIEN = FILE 50.416 POINTER
+2 ;RETURN = DRUG INGREDIENT NAME
+3 NEW GMRARET
+4 KILL ^TMP($JOB,"GMRADATA")
+5 DO ZERO^PSN50P41(GMRAIEN,,,"GMRADATA")
+6 SET GMRARET=$GET(^TMP($JOB,"GMRADATA",GMRAIEN,.01))
+7 KILL ^TMP($JOB,"GMRADATA")
+8 QUIT GMRARET
