ABSPES01 ; IHS/FCS/DRS - JWS 03:55 PM 28 Sep 1995 ; [ 09/12/2002 10:03 AM ]
;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
;----------------------------------------------------------------------
;----------------------------------------------------------------------
;Claim Submission Record List
;
;Parameters:
; BITEMIEN - Billing Item IEN (# 9002313.02)
; GROOT - Global root of resulting list (eg: "^LIST2($J")
;
;Returns:
;
;----------------------------------------------------------------------
Q
EN1(BITEMIEN,GROOT) ;EP - from ABSPECZ2
;Manage local variables
N DA,DA2,COUNT,DATA,CLAIMID,SENTON,VCPTIEN,VMEDIEN,DRUGIEN,QTY
N DRUGNAME,RS,RDA,RXIEN,RXRFIEN,N57
;
;Make sure input variables are defined
Q:$G(BITEMIEN)=""
Q:$G(GROOT)=""
;
K @(GROOT_")")
S (COUNT,DA)=0
F D Q:'+DA
.S DA=$O(^ABSPC("AC",BITEMIEN,DA))
.Q:'+DA
.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(^ABSPC(DA,400,DA2))
..Q:'+DA2
..S RDA=$O(^ABSPR("B",DA,""))
..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))
..I VCPTIEN="" S (RXIEN,RXRFIEN,N57)=""
..E D
...N X S X=$G(^ABSVCPT(9002301,VCPTIEN,"SPEC"))
...S RXIEN=$P(X,U),RXRFIEN=$P(X,U,3),N57=$P(X,U,4)
..S DRUGIEN=$S(VMEDIEN="":"",1:$P($G(^AUPNVMED(VMEDIEN,0)),U,1))
..I DRUGIEN="",RXIEN]"" S DRUGIEN=$P($G(^PSRX(RXIEN,0)),U,6)
..S QTY=$S(VMEDIEN="":"",1:$P($G(^AUPNVMED(VMEDIEN,0)),U,6))
..I QTY="",RXIEN]"" D
...I RXRFIEN S QTY=$P($G(^PSRX(RXIEN,1,RXRFIEN,0)),U,4)
...E S QTY=$P($G(^PSRX(RXIEN,0)),U,7)
..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
ABSPES01 ; IHS/FCS/DRS - JWS 03:55 PM 28 Sep 1995 ; [ 09/12/2002 10:03 AM ]
+1 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
+2 ;----------------------------------------------------------------------
+3 ;----------------------------------------------------------------------
+4 ;Claim Submission Record List
+5 ;
+6 ;Parameters:
+7 ; BITEMIEN - Billing Item IEN (# 9002313.02)
+8 ; GROOT - Global root of resulting list (eg: "^LIST2($J")
+9 ;
+10 ;Returns:
+11 ;
+12 ;----------------------------------------------------------------------
+13 QUIT
EN1(BITEMIEN,GROOT) ;EP - from ABSPECZ2
+1 ;Manage local variables
+2 NEW DA,DA2,COUNT,DATA,CLAIMID,SENTON,VCPTIEN,VMEDIEN,DRUGIEN,QTY
+3 NEW DRUGNAME,RS,RDA,RXIEN,RXRFIEN,N57
+4 ;
+5 ;Make sure input variables are defined
+6 IF $GET(BITEMIEN)=""
QUIT
+7 IF $GET(GROOT)=""
QUIT
+8 ;
+9 KILL @(GROOT_")")
+10 SET (COUNT,DA)=0
+11 FOR
Begin DoDot:1
+12 SET DA=$ORDER(^ABSPC("AC",BITEMIEN,DA))
+13 IF '+DA
QUIT
+14 SET DATA=$GET(^ABSPC(DA,0))
+15 SET CLAIMID=$$LJBF^ABSPOSU9($PIECE(DATA,U,1),16)
+16 SET SENTON=$$FM2EXT^ABSPOSU1($PIECE($PIECE(DATA,U,5),".",1))
+17 SET SENTON=$$LJBF^ABSPOSU9($SELECT(SENTON="":"<Not Sent>",1:SENTON),11)
+18 SET DA2=0
+19 FOR
Begin DoDot:2
+20 SET DA2=$ORDER(^ABSPC(DA,400,DA2))
+21 IF '+DA2
QUIT
+22 SET RDA=$ORDER(^ABSPR("B",DA,""))
+23 SET RS=$SELECT(RDA="":"",1:$PIECE($GET(^ABSPR(RDA,1000,DA2,500)),U,1))
+24 SET RS=$$RJBF^ABSPOSU9(RS,2)
+25 SET VCPTIEN=$PIECE($GET(^ABSPC(DA,400,DA2,0)),U,2)
+26 SET VMEDIEN=$SELECT(VCPTIEN="":"",1:$PIECE($GET(^ABSVCPT(9002301,VCPTIEN,"SPEC")),U,2))
+27 IF VCPTIEN=""
SET (RXIEN,RXRFIEN,N57)=""
+28 IF '$TEST
Begin DoDot:3
+29 NEW X
SET X=$GET(^ABSVCPT(9002301,VCPTIEN,"SPEC"))
+30 SET RXIEN=$PIECE(X,U)
SET RXRFIEN=$PIECE(X,U,3)
SET N57=$PIECE(X,U,4)
End DoDot:3
+31 SET DRUGIEN=$SELECT(VMEDIEN="":"",1:$PIECE($GET(^AUPNVMED(VMEDIEN,0)),U,1))
+32 IF DRUGIEN=""
IF RXIEN]""
SET DRUGIEN=$PIECE($GET(^PSRX(RXIEN,0)),U,6)
+33 SET QTY=$SELECT(VMEDIEN="":"",1:$PIECE($GET(^AUPNVMED(VMEDIEN,0)),U,6))
+34 IF QTY=""
IF RXIEN]""
Begin DoDot:3
+35 IF RXRFIEN
SET QTY=$PIECE($GET(^PSRX(RXIEN,1,RXRFIEN,0)),U,4)
+36 IF '$TEST
SET QTY=$PIECE($GET(^PSRX(RXIEN,0)),U,7)
End DoDot:3
+37 SET QTY=$$RJBF^ABSPOSU9(QTY,4)
+38 SET DRUGNAME=$SELECT(DRUGIEN="":"Undefined",1:$PIECE($GET(^PSDRUG(DRUGIEN,0)),U,1))
+39 SET DRUGNAME=$$LJBF^ABSPOSU9(DRUGNAME,29)
+40 SET COUNT=COUNT+1
+41 SET @(GROOT_",COUNT,""I"")")=DA_U_DA2_U_RDA
+42 SET @(GROOT_",COUNT,""E"")")=CLAIMID_" "_SENTON_" "_RS_" "_DRUGNAME_" "_QTY
End DoDot:2
IF '+DA2
QUIT
End DoDot:1
IF '+DA
QUIT
+43 SET @(GROOT_",""Column Headers"")")="2|Claim ID:16,Date Sent:11,RS:2,Medication NAME:29,QTY:4"
+44 SET @(GROOT_",0)")=COUNT
+45 QUIT
