- 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 Feb 18, 2025@23:06:24 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