ABMPT262.m

ABMPT262 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 2 POST INIT ;  

 ;;2.6;IHS Third Party Billing;**2**;FEB 2, 2010

 ;

 Q

PRE ;EP

 S ABM="^ABMPSTAT(23)"

 K @ABM

 S ABM="^ABMPSTAT(20)"

 K @ABM

 S ABM="^ABMCLCLM(23)"

 K @ABM

 Q

EN ;EP

 D RXBILLST  ;populate Insurer RX BILLING STATUS that are null

 D CONVERT^ABMFECNV  ;move 3P Fee Table data into effective date multiples

 Q

RXBILLST ;

 D BMES^XPDUTL("Auto-populate RX Billing Status with OUTPATIENT DRUGS ONLY...")

 S ABMF=0,ABMCNT=0

 F  S ABMF=$O(^AUTNINS(ABMF)) Q:(+$G(ABMF)=0)  D

 .Q:($P($G(^AUTNINS(ABMF,2)),U,3)'="")

 .K DIC,DIE,DIR,X,Y,DA,DR

 .S DIE="^AUTNINS("

 .S DA=ABMF

 .S DR=".23////O"

 .D ^DIE

 .D MES^XPDUTL($P($G(^AUTNINS(ABMF,0)),U)_" ("_ABMF_")")

 .S ABMCNT=+$G(ABMCNT)+1

 D BMES^XPDUTL(ABMCNT_" Insurers updated")

 Q

ABMPT262  ; IHS/SD/SDR - 3P BILLING 2.6 Patch 2 POST INIT ;  

 +1       ;;2.6;IHS Third Party Billing;**2**;FEB 2, 2010

 +2       ;

 +3        QUIT 

PRE       ;EP

 +1        SET ABM="^ABMPSTAT(23)"

 +2        KILL @ABM

 +3        SET ABM="^ABMPSTAT(20)"

 +4        KILL @ABM

 +5        SET ABM="^ABMCLCLM(23)"

 +6        KILL @ABM

 +7        QUIT 

EN        ;EP

 +1       ;populate Insurer RX BILLING STATUS that are null

           DO RXBILLST

 +2       ;move 3P Fee Table data into effective date multiples

           DO CONVERT^ABMFECNV

 +3        QUIT 

RXBILLST  ;

 +1        DO BMES^XPDUTL("Auto-populate RX Billing Status with OUTPATIENT DRUGS ONLY...")

 +2        SET ABMF=0

           SET ABMCNT=0

 +3        FOR 

               SET ABMF=$ORDER(^AUTNINS(ABMF))

               IF (+$GET(ABMF)=0)

                   QUIT 

               Begin DoDot:1

 +4                IF ($PIECE($GET(^AUTNINS(ABMF,2)),U,3)'="")

                       QUIT 

 +5                KILL DIC,DIE,DIR,X,Y,DA,DR

 +6                SET DIE="^AUTNINS("

 +7                SET DA=ABMF

 +8                SET DR=".23////O"

 +9                DO ^DIE

 +10               DO MES^XPDUTL($PIECE($GET(^AUTNINS(ABMF,0)),U)_" ("_ABMF_")")

 +11               SET ABMCNT=+$GET(ABMCNT)+1

               End DoDot:1

 +12       DO BMES^XPDUTL(ABMCNT_" Insurers updated")

 +13       QUIT