ABSPES02 ; IHS/FCS/DRS - JWS 03:28 PM 6 Mar 1996 ; [ 09/12/2002 10:03 AM ]
;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
;----------------------------------------------------------------------
;----------------------------------------------------------------------
;Claim Response List by Response Code
;
;Parameters:
; SDATE - Start DATE (Internal FM Fmat)
; EDATE - End DATE (Internal FM Fmat)
; RSPCODE - Claim Response rejection type (R,P,C,D)
; MAX - MAXimum number of items returned in list
; GROOT - Global root of resulting list (eg: "^LIST2($J")
;
;Returns:
;
;----------------------------------------------------------------------
Q
EN1(SDATE,EDATE,RSPCODE,MAX,GROOT) ;EP - from ABSPECZ3
I $E(GROOT,$L(GROOT))="," S GROOT=$E(GROOT,1,$L(GROOT)-1) ; 03/12/2001
;Manage local variables
N DA,DA2,COUNT,DATA,CLAIMID,SENTON,VCPTIEN,VMEDIEN,DRUGIEN,QTY
N DRUGNAME,RS,TDATE,DATE1,DATE2,NDATE,RDA
;
;Make sure input variables are defined
Q:$G(SDATE)=""
Q:$G(EDATE)=""
Q:$G(RSPCODE)=""
Q:$G(MAX)=""
Q:$G(GROOT)=""
;
S DATE1=$$CDTFM^ABSPOSU1(SDATE,-1)_".245959"
S DATE2=EDATE_".245959"
K @(GROOT_")")
S COUNT=0,NDATE=DATE1
F D Q:NDATE=""!(NDATE>DATE2)!(COUNT=MAX)
.S NDATE=$O(^ABSPC("AE",NDATE))
.Q:NDATE=""
.Q:NDATE>DATE2
.S DA=0
.F D Q:'+DA!(COUNT=MAX)
..S DA=$O(^ABSPC("AE",NDATE,DA))
..Q:'+DA
..S RDA=0
..F S RDA=$O(^ABSPR("B",DA,RDA)) Q:'RDA D
...Q:'$D(^ABSPR("AC",RSPCODE,RDA))
...S DATA=$G(^ABSPC(DA,0))
...S CLAIMID=$$LJBF^ABSPOSU9($P(DATA,U,1),16)
...S SENTON=$$FM2EXT^ABSPOSU1($P($P(DATA,U,5),".",1))
...S SENTON=$$LJBF^ABSPOSU9($S(SENTON="":"<Not Sent>",1:SENTON),11)
...S DA2=0
...F D Q:'+DA2
....S DA2=$O(^ABSPR("AC",RSPCODE,RDA,DA2))
....Q:'+DA2
....S RS=$S(RDA="":"",1:$P($G(^ABSPR(RDA,1000,DA2,500)),U,1))
....S RS=$$RJBF^ABSPOSU9(RS,2)
....S VCPTIEN=$P($G(^ABSPC(DA,400,DA2,0)),U,2)
....S VMEDIEN=$S(VCPTIEN="":"",1:$P($G(^ABSVCPT(9002301,VCPTIEN,"SPEC")),U,2))
....S DRUGIEN=$S(VMEDIEN="":"",1:$P($G(^AUPNVMED(VMEDIEN,0)),U,1))
....S QTY=$S(VMEDIEN="":"",1:$P($G(^AUPNVMED(VMEDIEN,0)),U,6))
....S QTY=$$RJBF^ABSPOSU9(QTY,4)
....S DRUGNAME=$S(DRUGIEN="":"Undefined",1:$P($G(^PSDRUG(DRUGIEN,0)),U,1))
....S DRUGNAME=$$LJBF^ABSPOSU9(DRUGNAME,29)
....S COUNT=COUNT+1
....S @(GROOT_",COUNT,""I"")")=DA_U_DA2_U_RDA
....S @(GROOT_",COUNT,""E"")")=CLAIMID_" "_SENTON_" "_RS_" "_DRUGNAME_" "_QTY
S @(GROOT_",""Column Headers"")")="2|Claim ID:16,DATE Sent:11,RS:2,MEDication NAME:29,QTY:4"
S @(GROOT_",0)")=COUNT
Q
ABSPES02 ; IHS/FCS/DRS - JWS 03:28 PM 6 Mar 1996 ; [ 09/12/2002 10:03 AM ]
+1 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
+2 ;----------------------------------------------------------------------
+3 ;----------------------------------------------------------------------
+4 ;Claim Response List by Response Code
+5 ;
+6 ;Parameters:
+7 ; SDATE - Start DATE (Internal FM Fmat)
+8 ; EDATE - End DATE (Internal FM Fmat)
+9 ; RSPCODE - Claim Response rejection type (R,P,C,D)
+10 ; MAX - MAXimum number of items returned in list
+11 ; GROOT - Global root of resulting list (eg: "^LIST2($J")
+12 ;
+13 ;Returns:
+14 ;
+15 ;----------------------------------------------------------------------
+16 QUIT
EN1(SDATE,EDATE,RSPCODE,MAX,GROOT) ;EP - from ABSPECZ3
+1 ; 03/12/2001
IF $EXTRACT(GROOT,$LENGTH(GROOT))=","
SET GROOT=$EXTRACT(GROOT,1,$LENGTH(GROOT)-1)
+2 ;Manage local variables
+3 NEW DA,DA2,COUNT,DATA,CLAIMID,SENTON,VCPTIEN,VMEDIEN,DRUGIEN,QTY
+4 NEW DRUGNAME,RS,TDATE,DATE1,DATE2,NDATE,RDA
+5 ;
+6 ;Make sure input variables are defined
+7 IF $GET(SDATE)=""
QUIT
+8 IF $GET(EDATE)=""
QUIT
+9 IF $GET(RSPCODE)=""
QUIT
+10 IF $GET(MAX)=""
QUIT
+11 IF $GET(GROOT)=""
QUIT
+12 ;
+13 SET DATE1=$$CDTFM^ABSPOSU1(SDATE,-1)_".245959"
+14 SET DATE2=EDATE_".245959"
+15 KILL @(GROOT_")")
+16 SET COUNT=0
SET NDATE=DATE1
+17 FOR
Begin DoDot:1
+18 SET NDATE=$ORDER(^ABSPC("AE",NDATE))
+19 IF NDATE=""
QUIT
+20 IF NDATE>DATE2
QUIT
+21 SET DA=0
+22 FOR
Begin DoDot:2
+23 SET DA=$ORDER(^ABSPC("AE",NDATE,DA))
+24 IF '+DA
QUIT
+25 SET RDA=0
+26 FOR
SET RDA=$ORDER(^ABSPR("B",DA,RDA))
IF 'RDA
QUIT
Begin DoDot:3
+27 IF '$DATA(^ABSPR("AC",RSPCODE,RDA))
QUIT
+28 SET DATA=$GET(^ABSPC(DA,0))
+29 SET CLAIMID=$$LJBF^ABSPOSU9($PIECE(DATA,U,1),16)
+30 SET SENTON=$$FM2EXT^ABSPOSU1($PIECE($PIECE(DATA,U,5),".",1))
+31 SET SENTON=$$LJBF^ABSPOSU9($SELECT(SENTON="":"<Not Sent>",1:SENTON),11)
+32 SET DA2=0
+33 FOR
Begin DoDot:4
+34 SET DA2=$ORDER(^ABSPR("AC",RSPCODE,RDA,DA2))
+35 IF '+DA2
QUIT
+36 SET RS=$SELECT(RDA="":"",1:$PIECE($GET(^ABSPR(RDA,1000,DA2,500)),U,1))
+37 SET RS=$$RJBF^ABSPOSU9(RS,2)
+38 SET VCPTIEN=$PIECE($GET(^ABSPC(DA,400,DA2,0)),U,2)
+39 SET VMEDIEN=$SELECT(VCPTIEN="":"",1:$PIECE($GET(^ABSVCPT(9002301,VCPTIEN,"SPEC")),U,2))
+40 SET DRUGIEN=$SELECT(VMEDIEN="":"",1:$PIECE($GET(^AUPNVMED(VMEDIEN,0)),U,1))
+41 SET QTY=$SELECT(VMEDIEN="":"",1:$PIECE($GET(^AUPNVMED(VMEDIEN,0)),U,6))
+42 SET QTY=$$RJBF^ABSPOSU9(QTY,4)
+43 SET DRUGNAME=$SELECT(DRUGIEN="":"Undefined",1:$PIECE($GET(^PSDRUG(DRUGIEN,0)),U,1))
+44 SET DRUGNAME=$$LJBF^ABSPOSU9(DRUGNAME,29)
+45 SET COUNT=COUNT+1
+46 SET @(GROOT_",COUNT,""I"")")=DA_U_DA2_U_RDA
+47 SET @(GROOT_",COUNT,""E"")")=CLAIMID_" "_SENTON_" "_RS_" "_DRUGNAME_" "_QTY
End DoDot:4
IF '+DA2
QUIT
End DoDot:3
End DoDot:2
IF '+DA!(COUNT=MAX)
QUIT
End DoDot:1
IF NDATE=""!(NDATE>DATE2)!(COUNT=MAX)
QUIT
+48 SET @(GROOT_",""Column Headers"")")="2|Claim ID:16,DATE Sent:11,RS:2,MEDication NAME:29,QTY:4"
+49 SET @(GROOT_",0)")=COUNT
+50 QUIT
