- ABSPER2A ; IHS/FCS/DRS - Payable claims report ; [ 09/12/2002 10:02 AM ]
- ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
- ;----------------------------------------------------------------------
- ;----------------------------------------------------------------------
- ;Pharmacy Claim Payable Report (by Tran Date, Sorted by Insurer)
- ;----------------------------------------------------------------------
- W @IOF ;D ^AUCLS
- W $$LJBF^ABSPOSU9(SCRNTXT,IOM-10)_$$LJBF^ABSPOSU9("PAGE "_PAGE,10),!
- W $TR($J("",IOM)," ","-"),!
- Q
- ;----------------------------------------------------------------------
- W !
- W "Insurer:",?11,$$LJBF^ABSPOSU9(INSNAME,46)
- W ?61,"Help #:",?70,$$LJBF^ABSPOSU9($G(^TMP($J,RPTNAME,INSNAME)),20)
- W ?92,"Transmission Dates:"
- W ?113,$$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(SDATE),8)_" - "
- W $$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(EDATE),8),!
- W !
- D WCOLUMNS^ABSPOSU9(0,2,"Trans On:8,Claim ID:17,"_$P($G(^ABSP(9002313.99,PSIEN,2)),U,1)_" #:12,Patient Name:20,NDC #:13,Ingr Pd:7,Disp Pd:7,Total Pd:9,Pat Pay Amt:11,Rem Dedct:11",1)
- Q
- ;----------------------------------------------------------------------
- PRINT ;EP - from ABSPER20
- N FLAG,INSNAME,TDATE,ANS,RESPIEN,MEDIEN,DATA,TRANSON,CLAIMID,PCN
- N PATNAME,NDC,INGRPD,DISPPD,TOTPD,PATPAY,REMDED
- N TINGRPD,TDISPPD,TTOTPD,TPATPAY,TREMDED
- ;
- ;I IOM<132 D Q
- ;.D HEADER1
- ;.W !,"Device selected does not support 132 column reports.",!
- ;.D:(IO=$P) PRESSANY^ABSPOSU5(1,DTIME)
- ;
- ;
- ;
- S FLAG=0,INSNAME=""
- F D Q:INSNAME=""!(FLAG)
- .S INSNAME=$O(^TMP($J,RPTNAME,INSNAME))
- .Q:INSNAME=""
- .S (TINGRPD,TDISPPD,TTOTPD,TPATPAY,TREMDED)=0
- .D HEADER1,HEADER2
- .S TDATE=""
- .F D Q:'+TDATE!(FLAG)
- ..S TDATE=$O(^TMP($J,RPTNAME,INSNAME,TDATE))
- ..Q:'+TDATE
- ..S RESPIEN=""
- ..F D Q:'+RESPIEN!(FLAG)
- ...S RESPIEN=$O(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN))
- ...Q:'+RESPIEN
- ...S MEDIEN=""
- ...F D Q:'+MEDIEN!(FLAG)
- ....S MEDIEN=$O(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
- ....Q:'+MEDIEN
- ....S DATA=$G(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
- ....S TRANSON=$$FM2MDY^ABSPOSU1(TDATE)
- ....S CLAIMID=$P(DATA,U,1)
- ....S PCN=$P(DATA,U,2)
- ....S PATNAME=$P(DATA,U,3)
- ....S NDC=$P(DATA,U,4)
- ....S INGRPD=$P(DATA,U,5),TINGRPD=TINGRPD+$$CLIP^ABSPOSU9(INGRPD)
- ....S DISPPD=$P(DATA,U,6),TDISPPD=TDISPPD+$$CLIP^ABSPOSU9(DISPPD)
- ....S TOTPD=$P(DATA,U,7),TTOTPD=TTOTPD+$$CLIP^ABSPOSU9(TOTPD)
- ....S PATPAY=$P(DATA,U,8),TPATPAY=TPATPAY+$$CLIP^ABSPOSU9(PATPAY)
- ....S REMDED=$P(DATA,U,9),TREMDED=TREMDED+$$CLIP^ABSPOSU9(REMDED)
- ....I ($Y+2)>IOSL,'(IO=$P) D HEADER1,HEADER2
- ....I ($Y+2)>IOSL,(IO=$P) D
- .....S ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
- .....S:ANS=-1!(ANS="^") FLAG=1
- .....I 'FLAG D HEADER1,HEADER2
- ....D:'FLAG WDATA^ABSPOSU9(0,2,"TRANSON:8,CLAIMID:17,PCN:12,PATNAME:20,NDC:13,INGRPD:7,DISPPD:7,TOTPD:9,PATPAY:9,REMDED:11")
- .;PRINT Totals
- .I ($Y+3)>IOSL,'(IO=$P) D HEADER1,HEADER2
- .I ($Y+3)>IOSL,(IO=$P) D
- ..S ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
- ..S:ANS=-1!(ANS="^") FLAG=1
- ..I 'FLAG D HEADER1,HEADER2
- .Q:FLAG
- .W ?79,"------- ------- --------- ----------- -----------",!
- .W ?78,$J(TINGRPD,8,2)," ",$J(TDISPPD,8,2)," ",$J(TTOTPD,9,2)," ",$J(TPATPAY,11,2)," ",$J(TREMDED,11,2),!
- ;
- Q:FLAG
- D:(IO=$P) PRESSANY^ABSPOSU5(1,DTIME)
- Q
- ABSPER2A ; IHS/FCS/DRS - Payable claims report ; [ 09/12/2002 10:02 AM ]
- +1 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
- +2 ;----------------------------------------------------------------------
- +3 ;----------------------------------------------------------------------
- +4 ;Pharmacy Claim Payable Report (by Tran Date, Sorted by Insurer)
- +5 ;----------------------------------------------------------------------
- +1 ;D ^AUCLS
- WRITE @IOF
- +2 WRITE $$LJBF^ABSPOSU9(SCRNTXT,IOM-10)_$$LJBF^ABSPOSU9("PAGE "_PAGE,10),!
- +3 WRITE $TRANSLATE($JUSTIFY("",IOM)," ","-"),!
- +4 QUIT
- +5 ;----------------------------------------------------------------------
- SET PSIEN=1
- +1 WRITE !
- +2 WRITE "Insurer:",?11,$$LJBF^ABSPOSU9(INSNAME,46)
- +3 WRITE ?61,"Help #:",?70,$$LJBF^ABSPOSU9($GET(^TMP($JOB,RPTNAME,INSNAME)),20)
- +4 WRITE ?92,"Transmission Dates:"
- +5 WRITE ?113,$$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(SDATE),8)_" - "
- +6 WRITE $$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(EDATE),8),!
- +7 WRITE !
- +8 DO WCOLUMNS^ABSPOSU9(0,2,"Trans On:8,Claim ID:17,"_$PIECE($GET(^ABSP(9002313.99,PSIEN,2)),U,1)_" #:12,Patient Name:20,NDC #:13,Ingr Pd:7,Disp Pd:7,Total Pd:9,Pat Pay Amt:11,Rem Dedct:11",1)
- +9 QUIT
- +10 ;----------------------------------------------------------------------
- PRINT ;EP - from ABSPER20
- +1 NEW FLAG,INSNAME,TDATE,ANS,RESPIEN,MEDIEN,DATA,TRANSON,CLAIMID,PCN
- +2 NEW PATNAME,NDC,INGRPD,DISPPD,TOTPD,PATPAY,REMDED
- +3 NEW TINGRPD,TDISPPD,TTOTPD,TPATPAY,TREMDED
- +4 ;
- +5 ;I IOM<132 D Q
- +6 ;.D HEADER1
- +7 ;.W !,"Device selected does not support 132 column reports.",!
- +8 ;.D:(IO=$P) PRESSANY^ABSPOSU5(1,DTIME)
- +9 ;
- +10 ;
- +11 ;
- +12 SET FLAG=0
- SET INSNAME=""
- +13 FOR
- Begin DoDot:1
- +14 SET INSNAME=$ORDER(^TMP($JOB,RPTNAME,INSNAME))
- +15 IF INSNAME=""
- QUIT
- +16 SET (TINGRPD,TDISPPD,TTOTPD,TPATPAY,TREMDED)=0
- +17 DO HEADER1
- DO HEADER2
- +18 SET TDATE=""
- +19 FOR
- Begin DoDot:2
- +20 SET TDATE=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE))
- +21 IF '+TDATE
- QUIT
- +22 SET RESPIEN=""
- +23 FOR
- Begin DoDot:3
- +24 SET RESPIEN=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN))
- +25 IF '+RESPIEN
- QUIT
- +26 SET MEDIEN=""
- +27 FOR
- Begin DoDot:4
- +28 SET MEDIEN=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
- +29 IF '+MEDIEN
- QUIT
- +30 SET DATA=$GET(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
- +31 SET TRANSON=$$FM2MDY^ABSPOSU1(TDATE)
- +32 SET CLAIMID=$PIECE(DATA,U,1)
- +33 SET PCN=$PIECE(DATA,U,2)
- +34 SET PATNAME=$PIECE(DATA,U,3)
- +35 SET NDC=$PIECE(DATA,U,4)
- +36 SET INGRPD=$PIECE(DATA,U,5)
- SET TINGRPD=TINGRPD+$$CLIP^ABSPOSU9(INGRPD)
- +37 SET DISPPD=$PIECE(DATA,U,6)
- SET TDISPPD=TDISPPD+$$CLIP^ABSPOSU9(DISPPD)
- +38 SET TOTPD=$PIECE(DATA,U,7)
- SET TTOTPD=TTOTPD+$$CLIP^ABSPOSU9(TOTPD)
- +39 SET PATPAY=$PIECE(DATA,U,8)
- SET TPATPAY=TPATPAY+$$CLIP^ABSPOSU9(PATPAY)
- +40 SET REMDED=$PIECE(DATA,U,9)
- SET TREMDED=TREMDED+$$CLIP^ABSPOSU9(REMDED)
- +41 IF ($Y+2)>IOSL
- IF '(IO=$PRINCIPAL)
- DO HEADER1
- DO HEADER2
- +42 IF ($Y+2)>IOSL
- IF (IO=$PRINCIPAL)
- Begin DoDot:5
- +43 SET ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
- +44 IF ANS=-1!(ANS="^")
- SET FLAG=1
- +45 IF 'FLAG
- DO HEADER1
- DO HEADER2
- End DoDot:5
- +46 IF 'FLAG
- DO WDATA^ABSPOSU9(0,2,"TRANSON:8,CLAIMID:17,PCN:12,PATNAME:20,NDC:13,INGRPD:7,DISPPD:7,TOTPD:9,PATPAY:9,REMDED:11")
- End DoDot:4
- IF '+MEDIEN!(FLAG)
- QUIT
- End DoDot:3
- IF '+RESPIEN!(FLAG)
- QUIT
- End DoDot:2
- IF '+TDATE!(FLAG)
- QUIT
- +47 ;PRINT Totals
- +48 IF ($Y+3)>IOSL
- IF '(IO=$PRINCIPAL)
- DO HEADER1
- DO HEADER2
- +49 IF ($Y+3)>IOSL
- IF (IO=$PRINCIPAL)
- Begin DoDot:2
- +50 SET ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
- +51 IF ANS=-1!(ANS="^")
- SET FLAG=1
- +52 IF 'FLAG
- DO HEADER1
- DO HEADER2
- End DoDot:2
- +53 IF FLAG
- QUIT
- +54 WRITE ?79,"------- ------- --------- ----------- -----------",!
- +55 WRITE ?78,$JUSTIFY(TINGRPD,8,2)," ",$JUSTIFY(TDISPPD,8,2)," ",$JUSTIFY(TTOTPD,9,2)," ",$JUSTIFY(TPATPAY,11,2)," ",$JUSTIFY(TREMDED,11,2),!
- End DoDot:1
- IF INSNAME=""!(FLAG)
- QUIT
- +56 ;
- +57 IF FLAG
- QUIT
- +58 IF (IO=$PRINCIPAL)
- DO PRESSANY^ABSPOSU5(1,DTIME)
- +59 QUIT
