ABSPOSMG.m

ABSPOSMG ; IHS/SD/RLT - INSURER BILLING STATUS ;     [ 06/13/06  11:20 AM ]

 ;;1.0;PHARMACY POINT OF SALE;**17**;JUN 7, 2006;Build 38

 ;

 ;Reports Insurers in file #9999999.18 that have RX

 ;BILLING STATUS set to P - BILLED POINT OF SALE or

 ;to U - UNBILLABLE depending on the report selected.

 ;The BILLED POINT OF SALE report also shows whether

 ;the insurer is tied to a POS format.

 ;----------------------------------------------------------

 ;----------------------------------------------------------

 ;

EN ;EP

 N RESP

 S RESP=$$GETRESP

 Q:RESP=""

 D DISDATA

 Q

GETRESP() ;Prompt for report type

 W @IOF

 W "Choose from:"

 W !,"P BILLED POINT OF SALE - insurers set-up to bill RX's through POS"

 W !,"U UNBILLABLE - insurers set to NOT bill RX's"

 D ^XBFMK                  ;kill Fileman variables

 S DIR(0)="SO^P:BILLED POINT OF SALE;U:UNBILLABLE"

 D ^DIR

 Q $TR(X,"pu","PU")

DISDATA ;Display Data

 N PGCNT

 S PGCNT=0

 D RPTHDR

 N INSIEN,BILLSTAT,INSNAME,STATDIS,POSLINK

 S:RESP="P" STATDIS="BILLED POINT OF SALE"

 S:RESP="U" STATDIS="UNBILLABLE"

 S INSNAME=""

 F  S INSNAME=$O(^AUTNINS("B",INSNAME)) Q:INSNAME=""  D

 . S INSIEN=0

 . F  S INSIEN=$O(^AUTNINS("B",INSNAME,INSIEN)) Q:'INSIEN  D

 .. S BILLSTAT=$P($G(^AUTNINS(INSIEN,2)),U,3)

 .. Q:BILLSTAT'=RESP

 .. S POSLINK="N"

 .. S:$P($G(^ABSPEI(INSIEN,100)),U)'="" POSLINK="Y"

 .. W !,INSNAME,?35,STATDIS

 .. W:RESP="P" ?68,POSLINK

 .. I $$EOPQ^ABSPOSU8(2,,"D RPTHDR^"_$T(+0)) S INSIEN="A",INSNAME="ZZZZZ"

 D ENDRPT^ABSPOSU5()

 Q

RPTHDR ;Report Header

 N DASHES,X,RPTDATE,Y,BLANK20,ABSPSITE

 S ABSPSITE=$P($G(^DIC(4,DUZ(2),0)),"^")

 S PGCNT=PGCNT+1

 S $P(DASHES,"-",80)=""

 S X="RX BILLING STATUS - "

 S:RESP="P" X=X_"BILLED POINT OF SALE"

 S:RESP="U" X=X_"UNBILLABLE"

 S RPTDATE=$P($$NOWEXT^ABSPOSU1,"@")

 S $P(BLANK24," ",24)=""

 S $P(BLANK17," ",17)=""

 S Y="INSURER NAME"_BLANK24_"RX BILLING STATUS"

 S:RESP="P" Y=Y_BLANK17_"LINK TO POS"

 W @IOF

 W X,?52,RPTDATE,?68,$$RJBF^ABSPOSU9("PAGE "_PGCNT,11)

 W !,ABSPSITE

 W !!,Y

 W !,DASHES

 Q

ABSPOSMG  ; IHS/SD/RLT - INSURER BILLING STATUS ;     [ 06/13/06  11:20 AM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**17**;JUN 7, 2006;Build 38

 +2       ;

 +3       ;Reports Insurers in file #9999999.18 that have RX

 +4       ;BILLING STATUS set to P - BILLED POINT OF SALE or

 +5       ;to U - UNBILLABLE depending on the report selected.

 +6       ;The BILLED POINT OF SALE report also shows whether

 +7       ;the insurer is tied to a POS format.

 +8       ;----------------------------------------------------------

 +9       ;----------------------------------------------------------

 +10      ;

EN        ;EP

 +1        NEW RESP

 +2        SET RESP=$$GETRESP

 +3        IF RESP=""

               QUIT 

 +4        DO DISDATA

 +5        QUIT 

GETRESP() ;Prompt for report type

 +1        WRITE @IOF

 +2        WRITE "Choose from:"

 +3        WRITE !,"P BILLED POINT OF SALE - insurers set-up to bill RX's through POS"

 +4        WRITE !,"U UNBILLABLE - insurers set to NOT bill RX's"

 +5       ;kill Fileman variables

           DO ^XBFMK

 +6        SET DIR(0)="SO^P:BILLED POINT OF SALE;U:UNBILLABLE"

 +7        DO ^DIR

 +8        QUIT $TRANSLATE(X,"pu","PU")

DISDATA   ;Display Data

 +1        NEW PGCNT

 +2        SET PGCNT=0

 +3        DO RPTHDR

 +4        NEW INSIEN,BILLSTAT,INSNAME,STATDIS,POSLINK

 +5        IF RESP="P"

               SET STATDIS="BILLED POINT OF SALE"

 +6        IF RESP="U"

               SET STATDIS="UNBILLABLE"

 +7        SET INSNAME=""

 +8        FOR 

               SET INSNAME=$ORDER(^AUTNINS("B",INSNAME))

               IF INSNAME=""

                   QUIT 

               Begin DoDot:1

 +9                SET INSIEN=0

 +10               FOR 

                       SET INSIEN=$ORDER(^AUTNINS("B",INSNAME,INSIEN))

                       IF 'INSIEN

                           QUIT 

                       Begin DoDot:2

 +11                       SET BILLSTAT=$PIECE($GET(^AUTNINS(INSIEN,2)),U,3)

 +12                       IF BILLSTAT'=RESP

                               QUIT 

 +13                       SET POSLINK="N"

 +14                       IF $PIECE($GET(^ABSPEI(INSIEN,100)),U)'=""

                               SET POSLINK="Y"

 +15                       WRITE !,INSNAME,?35,STATDIS

 +16                       IF RESP="P"

                               WRITE ?68,POSLINK

 +17                       IF $$EOPQ^ABSPOSU8(2,,"D RPTHDR^"_$TEXT(+0))

                               SET INSIEN="A"

                               SET INSNAME="ZZZZZ"

                       End DoDot:2

               End DoDot:1

 +18       DO ENDRPT^ABSPOSU5()

 +19       QUIT 

RPTHDR    ;Report Header

 +1        NEW DASHES,X,RPTDATE,Y,BLANK20,ABSPSITE

 +2        SET ABSPSITE=$PIECE($GET(^DIC(4,DUZ(2),0)),"^")

 +3        SET PGCNT=PGCNT+1

 +4        SET $PIECE(DASHES,"-",80)=""

 +5        SET X="RX BILLING STATUS - "

 +6        IF RESP="P"

               SET X=X_"BILLED POINT OF SALE"

 +7        IF RESP="U"

               SET X=X_"UNBILLABLE"

 +8        SET RPTDATE=$PIECE($$NOWEXT^ABSPOSU1,"@")

 +9        SET $PIECE(BLANK24," ",24)=""

 +10       SET $PIECE(BLANK17," ",17)=""

 +11       SET Y="INSURER NAME"_BLANK24_"RX BILLING STATUS"

 +12       IF RESP="P"

               SET Y=Y_BLANK17_"LINK TO POS"

 +13       WRITE @IOF

 +14       WRITE X,?52,RPTDATE,?68,$$RJBF^ABSPOSU9("PAGE "_PGCNT,11)

 +15       WRITE !,ABSPSITE

 +16       WRITE !!,Y

 +17       WRITE !,DASHES

 +18       QUIT