| 1 | IBRXUTL1 ;BP/BDM - PHARMACY API CALLS ; DECEMBER 20, 2006
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**347**;21-MAR-94;Build 24
|
|---|
| 3 | ;
|
|---|
| 4 | ;THIS ROUTINE IS A UTILITY FUNCTION FOR PHARMACY API'S
|
|---|
| 5 | ;
|
|---|
| 6 | DATA(IBDRV) ;
|
|---|
| 7 | N LIST,RXRET,RETURN
|
|---|
| 8 | K ^TMP($J,"IBDRUG")
|
|---|
| 9 | S LIST="IBDRUG" D ZERO^PSS50(IBDRV,,,,,LIST)
|
|---|
| 10 | S RXRET=$G(^TMP($J,LIST,0))
|
|---|
| 11 | I RXRET>0 S RETURN=1
|
|---|
| 12 | E S RETURN=0
|
|---|
| 13 | K ^TMP($J,LIST)
|
|---|
| 14 | Q RETURN
|
|---|
| 15 | ;
|
|---|
| 16 | DRUG(IBIEN) ;
|
|---|
| 17 | N LIST
|
|---|
| 18 | S LIST="DRUGTMP"
|
|---|
| 19 | D DATA^PSS50(IBIEN,,,,,LIST)
|
|---|
| 20 | S RETURN=$G(^TMP($J,LIST,IBIEN,.01))
|
|---|
| 21 | K ^TMP($J,LIST)
|
|---|
| 22 | Q RETURN
|
|---|
| 23 | ;
|
|---|
| 24 | ICD(DFN,RXIEN,ICDCT,LIST) ;
|
|---|
| 25 | N ICDOUT,NODE,IBTMPARR
|
|---|
| 26 | I '$G(DFN) S ICDOUT="" Q ICDOUT
|
|---|
| 27 | I '$G(RXIEN) S ICDOUT="" Q ICDOUT
|
|---|
| 28 | I '$G(ICDCT) S ICDOUT="" Q ICDOUT
|
|---|
| 29 | I $G(LIST)="" S ICDOUT="" Q ICDOUT
|
|---|
| 30 | S IBTMPARR="ICDARR"
|
|---|
| 31 | S $P(^TMP($J,IBTMPARR),"^",1)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,.01)),"^",1)
|
|---|
| 32 | S $P(^TMP($J,IBTMPARR),"^",2)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,1)),"^",1)
|
|---|
| 33 | S $P(^TMP($J,IBTMPARR),"^",3)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,2)),"^",1)
|
|---|
| 34 | S $P(^TMP($J,IBTMPARR),"^",4)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,3)),"^",1)
|
|---|
| 35 | S $P(^TMP($J,IBTMPARR),"^",5)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,4)),"^",1)
|
|---|
| 36 | S $P(^TMP($J,IBTMPARR),"^",6)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,5)),"^",1)
|
|---|
| 37 | S $P(^TMP($J,IBTMPARR),"^",7)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,6)),"^",1)
|
|---|
| 38 | S $P(^TMP($J,IBTMPARR),"^",8)=$P($G(^TMP($J,LIST,DFN,RXIEN,"ICD",ICDCT,7)),"^",1)
|
|---|
| 39 | S ICDOUT=^TMP($J,IBTMPARR)
|
|---|
| 40 | K ^TMP($J,IBTMPARR)
|
|---|
| 41 | Q ICDOUT
|
|---|
