ABMPFUNC.m

ABMPFUNC ;IHS/ITSC/ENM,SDR - PHARM RETRIEVAL FUNCTIONS 

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ; New Routine - 3/10/04

 ;

 ; Return NDC value

 ;input: RXIEN - Prescription IEN

 ;       RFIEN - Refill IEN

 ; Output: NDC value

NDCVAL(RX,RF)      ; EP - API Return NDC Value

 ; NDC value for prescription is returned if Refill IEN is not supplied

 N IENS,FILE,FLD

 S RF=$G(RF,0)

 Q:'$G(RX) ""

 S IENS=$S(RF:RF_","_RX_",",1:RX_",")

 S FILE=$S(RF:52.1,1:52)

 S FLD=$S(RF:11,1:27)

 Q $$GET1^DIQ(FILE,IENS,FLD)

 Q

ABMPFUNC  ;IHS/ITSC/ENM,SDR - PHARM RETRIEVAL FUNCTIONS 

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ; New Routine - 3/10/04

 +3       ;

 +4       ; Return NDC value

 +5       ;input: RXIEN - Prescription IEN

 +6       ;       RFIEN - Refill IEN

 +7       ; Output: NDC value

NDCVAL(RX,RF) ; EP - API Return NDC Value

 +1       ; NDC value for prescription is returned if Refill IEN is not supplied

 +2        NEW IENS,FILE,FLD

 +3        SET RF=$GET(RF,0)

 +4        IF '$GET(RX)

               QUIT ""

 +5        SET IENS=$SELECT(RF:RF_","_RX_",",1:RX_",")

 +6        SET FILE=$SELECT(RF:52.1,1:52)

 +7        SET FLD=$SELECT(RF:11,1:27)

 +8        QUIT $$GET1^DIQ(FILE,IENS,FLD)

 +9        QUIT