ABMP2619.m

ABMP2619 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 19 POST INIT ;  

 ;;2.6;IHS Third Party Billing;**19**;NOV 12, 2009;Build 300

 Q

POST ;

 D CCREASON  ;new cancelled claim reason for ticket HEAT155799

 D ERRCODE  ;new 3P Error Code for HEAT109144

 D ERRORUPD  ;update description on warning 191 to be more descript HEAT109144

 ;

 Q

 ;

CCREASON ;

 K DIC,X,DINUM,DR,DLAYGO

 S DIC="^ABMCCLMR("

 S DIC(0)="LM"

 S X="CANCELLED DUE TO MERGED CLAIM"

 D ^DIC

 Q

 ;

ERRCODE ;EP

 ;255 - DOS within 72 hours

 K DIC,X

 S DIC="^ABMDERR("

 S DIC(0)="LM"

 S DINUM=255

 S X="DOS within 72 hours"

 S DIC("DR")=".02///Wait until after 72 hours from DOS to bill"

 S DIC("DR")=DIC("DR")_";.03///W"

 K DD,DO

 D FILE^DICN

 D SITE(255)

 Q

SITE(ABMX) ;Add SITE multiple

 S DUZHOLD=DUZ(2)

 S DUZ(2)=0

 F  S DUZ(2)=$O(^ABMDCLM(DUZ(2))) Q:'+DUZ(2)  D

 .S DIC(0)="LX"

 .S DA(1)=ABMX

 .S DIC="^ABMDERR("_DA(1)_",31,"

 .S DIC("P")=$P(^DD(9002274.04,31,0),U,2)

 .S DINUM=DUZ(2)

 .S X=$P($G(^DIC(4,DUZ(2),0)),U)

 .S DIC("DR")=".03////W"

 .D ^DIC

 .K DA,DIC,DINUM

 S DUZ(2)=DUZHOLD

 K DUZHOLD,DLAYGO,ABMX

 Q

ERRORUPD ;EP

 K DIC,DR,DIE,X,DIR

 S DIE="^ABMDERR("

 S DA=191

 S DR=".01///OP VISIT(S) WITHIN 72 HOURS OF ADMISSION OR DISCHARGE"

 D ^DIE

 Q

ABMP2619  ; IHS/SD/SDR - 3P BILLING 2.6 Patch 19 POST INIT ;  

 +1       ;;2.6;IHS Third Party Billing;**19**;NOV 12, 2009;Build 300

 +2        QUIT 

POST      ;

 +1       ;new cancelled claim reason for ticket HEAT155799

           DO CCREASON

 +2       ;new 3P Error Code for HEAT109144

           DO ERRCODE

 +3       ;update description on warning 191 to be more descript HEAT109144

           DO ERRORUPD

 +4       ;

 +5        QUIT 

 +6       ;

CCREASON  ;

 +1        KILL DIC,X,DINUM,DR,DLAYGO

 +2        SET DIC="^ABMCCLMR("

 +3        SET DIC(0)="LM"

 +4        SET X="CANCELLED DUE TO MERGED CLAIM"

 +5        DO ^DIC

 +6        QUIT 

 +7       ;

ERRCODE   ;EP

 +1       ;255 - DOS within 72 hours

 +2        KILL DIC,X

 +3        SET DIC="^ABMDERR("

 +4        SET DIC(0)="LM"

 +5        SET DINUM=255

 +6        SET X="DOS within 72 hours"

 +7        SET DIC("DR")=".02///Wait until after 72 hours from DOS to bill"

 +8        SET DIC("DR")=DIC("DR")_";.03///W"

 +9        KILL DD,DO

 +10       DO FILE^DICN

 +11       DO SITE(255)

 +12       QUIT 

SITE(ABMX) ;Add SITE multiple

 +1        SET DUZHOLD=DUZ(2)

 +2        SET DUZ(2)=0

 +3        FOR 

               SET DUZ(2)=$ORDER(^ABMDCLM(DUZ(2)))

               IF '+DUZ(2)

                   QUIT 

               Begin DoDot:1

 +4                SET DIC(0)="LX"

 +5                SET DA(1)=ABMX

 +6                SET DIC="^ABMDERR("_DA(1)_",31,"

 +7                SET DIC("P")=$PIECE(^DD(9002274.04,31,0),U,2)

 +8                SET DINUM=DUZ(2)

 +9                SET X=$PIECE($GET(^DIC(4,DUZ(2),0)),U)

 +10               SET DIC("DR")=".03////W"

 +11               DO ^DIC

 +12               KILL DA,DIC,DINUM

               End DoDot:1

 +13       SET DUZ(2)=DUZHOLD

 +14       KILL DUZHOLD,DLAYGO,ABMX

 +15       QUIT 

ERRORUPD  ;EP

 +1        KILL DIC,DR,DIE,X,DIR

 +2        SET DIE="^ABMDERR("

 +3        SET DA=191

 +4        SET DR=".01///OP VISIT(S) WITHIN 72 HOURS OF ADMISSION OR DISCHARGE"

 +5        DO ^DIE

 +6        QUIT