source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBRXUTL1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1IBRXUTL1 ;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 ;
6DATA(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 ;
16DRUG(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 ;
24ICD(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
Note: See TracBrowser for help on using the repository browser.