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

IBRXUTL1.m

Go to the documentation of this file.
  1. IBRXUTL1 ;BP/BDM - PHARMACY API CALLS ; DECEMBER 20, 2006
  1. ;;2.0;INTEGRATED BILLING;**347,563**;21-MAR-94;Build 12
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ;THIS ROUTINE IS A UTILITY FUNCTION FOR PHARMACY API'S
  1. ;
  1. DATA(IBDRV) ;
  1. N LIST,RXRET,RETURN
  1. K ^TMP($J,"IBDRUG")
  1. S LIST="IBDRUG" D ZERO^PSS50(IBDRV,,,,,LIST)
  1. S RXRET=$G(^TMP($J,LIST,0))
  1. I RXRET>0 S RETURN=1
  1. E S RETURN=0
  1. K ^TMP($J,LIST)
  1. Q RETURN
  1. ;
  1. DRUG(IBIEN) ;
  1. N LIST
  1. S LIST="DRUGTMP"
  1. D DATA^PSS50(IBIEN,,,,,LIST)
  1. S RETURN=$G(^TMP($J,LIST,IBIEN,.01))
  1. K ^TMP($J,LIST)
  1. Q RETURN
  1. ;
  1. ICD(DFN,RXIEN,ICDCT,LIST) ;
  1. N ICDOUT,NODE,IBTMPARR
  1. I '$G(DFN) S ICDOUT="" Q ICDOUT
  1. I '$G(RXIEN) S ICDOUT="" Q ICDOUT
  1. I '$G(ICDCT) S ICDOUT="" Q ICDOUT
  1. I $G(LIST)="" S ICDOUT="" Q ICDOUT
  1. S IBTMPARR="ICDARR"
  1. S $P(^TMP($J,IBTMPARR),"^",1)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,.01)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",2)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,1)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",3)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,2)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",4)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,3)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",5)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,4)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",6)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,5)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",7)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,6)),"^",1)
  1. S $P(^TMP($J,IBTMPARR),"^",8)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,7)),"^",1)
  1. S ICDOUT=^TMP($J,IBTMPARR)
  1. K ^TMP($J,IBTMPARR)
  1. Q ICDOUT
  1. ;
  1. DRUGF(IBDRUG,IBFLD) ; - returns a specific field from the Drug file
  1. N LIST,RETURN
  1. S LIST="IBDRUG" K ^TMP($J,LIST)
  1. D DATA^PSS50(IBDRUG,,,,,LIST)
  1. S RETURN=$G(^TMP($J,LIST,IBDRUG,IBFLD))
  1. K ^TMP($J,LIST)
  1. Q RETURN
  1. ;