Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRAPENC

GMRAPENC.m

Go to the documentation of this file.
  1. GMRAPENC ;SLC/JMH - Pharmacy API calls ;12/06/12 14:55
  1. ;;4.0;Adverse Reaction Tracking;**41,46**;Mar 29, 1996;Build 62
  1. ;
  1. ;$$DRP2CLP^GMRAPENC(50 IEN) => 50.605 IEN
  1. ;$$CODE2CLP^GMRAPENC(DRUG CLASS CODE) => 50.605 IEN
  1. ;$$CODE2CL^GMRAPENC(DRUG CLASS CODE) => 50.605 CLASS NAME
  1. ;$$DRP2VACL^GMRAPENC(50 IEN) => 50.605 CLASS NAME
  1. ;$$DRP2CODE^GMRAPENC(50 IEN) => 50.605 CLASS CODE
  1. ;$$CLP2CODE^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE
  1. ;$$CLP2CLDA^GMRAPENC(50.605 IEN) => 50.605 CLASS CODE ^ 50.605 CLASSIFICATION
  1. ;$$INP2INNA^GMRAPENC(50.416 IEN) => 50.416 INGREDIENT NAME
  1. ;
  1. DRP2CLP(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50 POINTER
  1. ;RETURN = FILE 50.605 POINTER
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
  1. S GMRARET=+$G(^TMP($J,"GMRADATA",GMRAIEN,25))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. CODE2CLP(GMRACODE) ;
  1. ;GMRACODE = DRUG CLASS CODE
  1. ;RETURN = FILE 50.605 POINTER
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D IEN^PSN50P65(,GMRACODE,"GMRADATA")
  1. S GMRARET=$O(^TMP($J,"GMRADATA","B",GMRACODE,""))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. CODE2CL(GMRACODE) ;
  1. ;GMRACODE = DRUG CLASS CODE
  1. ;RETURN = DRUG CLASS NAME
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D IEN^PSN50P65(,GMRACODE,"GMRADATA")
  1. S GMRARET=$O(^TMP($J,"GMRADATA","B",GMRACODE,""))
  1. I GMRARET S GMRARET=$G(^TMP($J,"GMRADATA",GMRARET,1))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. DRP2VACL(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50 POINTER
  1. ;RETURN = VA CLASSIFICATION
  1. N GMRARET
  1. D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
  1. S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,2))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. DRP2CODE(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50 POINTER
  1. ;RETURN = DRUG CLASS CODE
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D DATA^PSS50(GMRAIEN,,,,,"GMRADATA")
  1. S GMRARET=$P($G(^TMP($J,"GMRADATA",GMRAIEN,25)),U,2)
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. CLP2CODE(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50.605 POINTER
  1. ;RETURN = DRUG CLASS CODE
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D C^PSN50P65(GMRAIEN,,"GMRADATA")
  1. S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. CLP2CLDA(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50.605 POINTER
  1. ;RETURN = DRUG CLASS CODE^DRUG CLASS CLASSIFICATION
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D C^PSN50P65(GMRAIEN,,"GMRADATA")
  1. S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))_U_$G(^TMP($J,"GMRADATA",GMRAIEN,1))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET
  1. INP2INNA(GMRAIEN) ;
  1. ;GMRAIEN = FILE 50.416 POINTER
  1. ;RETURN = DRUG INGREDIENT NAME
  1. N GMRARET
  1. K ^TMP($J,"GMRADATA")
  1. D ZERO^PSN50P41(GMRAIEN,,,"GMRADATA")
  1. S GMRARET=$G(^TMP($J,"GMRADATA",GMRAIEN,.01))
  1. K ^TMP($J,"GMRADATA")
  1. Q GMRARET