ABMAROL1 ; IHS/ASDST/DMJ - A/R ROLL OVER ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
START(X,Y,Z,ZZ) ;EP - FROM A/R
;X:BILL INTERNAL ENTRY NUMBER^VISIT LOCATION, Y:TOTAL PAYMENT AMT
;Z = Bill Name (passed by 1.1, but not 1.0)
;ZZ = Msg from A/R (not used by
; This rtn is called from A/R ^BARROLL. The purpose is to file
;payment information into the Payment multiple of 3P BILL.
;After filing this data, the bill is marked as completed.
;Variables are then set in preparation of calling the Eligibility
;Checker. This is done to find other billable sources that have
;not yet been billed in relation to this claim. If other billable
;sources exist and the user holds the 3PB key, they are asked if
;the calim should be re-opened for future billing. Otherwise the
;claim is automatically reopened.
S ABMP("BDFN")=+X ; 3P Bill File IEN
S ABMP("BILL")=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",1),ABM("AMT")=Y
D FILE
D SET
D REST
Q
REST ;DO REST
S ABMP("CDFN")=+ABMP("BILL")
I '$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)) W !,"CLAIM #",ABMP("CDFN")," HAS BEEN CANCELLED.",! Q
N I S I=0,DA=0 F S I=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),13,I)) Q:'I D
.I $P(^ABMDBILL(DUZ(2),ABMP("BDFN"),13,I,0),"^",3)="I",$P(^(0),"^",1)=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",8) S DA=I
I DA S DA(1)=ABMP("CDFN"),DIE="^ABMDCLM(DUZ(2),"_DA(1)_",13,",DR=".03////C" D ^DIE K DR
I +ABMP("BILL")=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),U) Q
I $P(^ABMDCLM(DUZ(2),ABMP("CDFN"),0),"^",4)="E" D Q
.W !,"Claim is already in edit status.",!
UNBILL ;LOOK FOR UNBILLED SOURCES
W !!,"CHECKING FOR UNBILLED SOURCES.",!
S (ABM("HIT"),ABM("CNT"))=0
D ELG^ABMDLCK("",.ABML,ABMP("PDFN"),ABMP("VDT"))
N I S I=0 F S I=$O(ABML(I)) Q:'I D
.N J S J=0 F S J=$O(ABML(I,J)) Q:'J D
..S ABM("PRI")=I,ABM("INS")=J
..D ADDCHK^ABMDE2E
S ABM="" F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,"C",ABM)) Q:'ABM D
.S ABM("X")=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,"C",ABM,0))
.I "PIFL"[$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("X"),0),U,3) D
..S ABM("INSCO")=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("X"),0),"^",1)
..Q:$P($G(^AUTNINS(ABM("INSCO"),2)),U)="I" Q:$P($G(^(1)),U,7)=4
..W:ABM("CNT") ! S ABM("CNT")=ABM("CNT")+1
..W ?18,"[",ABM("CNT"),"] ",$P(^AUTNINS(ABM("INSCO"),0),U) S ABM(ABM("CNT"))=ABM("X")
I ABM("CNT")=0 D K ABM,ABMP Q
.D CCLM
.W "NONE",!!,"Since there are no unbilled sources no further billing is possible."
S ABM("HIT")=ABM(1)
S Y=1
I $D(^XUSEC("ABMDZ EDIT CLAIM AND EXPORT",DUZ)) D
.W ! S DIR(0)="Y",DIR("A")="Re-open claim for further billing? (Y/N)" D ^DIR K DIR Q:$D(DIRUT)
I Y'=1 D CCLM K ABM,ABMP Q
S DIE="^ABMDBILL(DUZ(2),",DA=ABMP("BDFN"),DR=".24////"_Y D ^DIE
D OCLM
S DA(1)=ABMP("CDFN"),DIE="^ABMDCLM(DUZ(2),"_DA(1)_",13,",DA=ABM("HIT"),DR=".03////I" D ^DIE
K ABM,ABMP
Q
ADD ;ADD BILL NOT IN BILL FILE
;MAYBE WILL DO LATER
Q
FILE ;FILE PAYMENT INFORMATION
S:'$D(^ABMDBILL(DUZ(2),ABMP("BDFN"),3)) ^(3,0)="^9002274.403D^^"
S DA(1)=ABMP("BDFN")
S X="T"
S DIC="^ABMDBILL(DUZ(2),DA(1),3,",DIC(0)="LE"
S DIC("DR")=".02///"_ABM("AMT")
D ^DIC Q:Y<0
D CBIL
Q
SET ;SET UP NEEDED VARIABLES
S ABMP("PDFN")=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",5),ABMP("INS")=$P(^(0),"^",8)
S ABMP("VDT")=$P(^ABMDBILL(DUZ(2),ABMP("BDFN"),7),"^",1)
Q
OCLM S DA=ABMP("CDFN"),DIE="^ABMDCLM(DUZ(2),",DR=".04////E;.08////"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("HIT"),0),"^",1) D ^DIE
W !!,"Claim Number: ",+ABMP("BILL")," is now Open for Editing!",!
Q
CCLM S DA=ABMP("CDFN"),DIE="^ABMDCLM(DUZ(2),",DR=".04////C" D ^DIE
Q
CBIL ;EP for Closing Bill
S DIE="^ABMDBILL(DUZ(2),",DA=ABMP("BDFN"),DR=".04////C;.17///@" D ^DIE K DR
Q
;
OBIL S DIE="^ABMDBILL(DUZ(2),",DA=ABMP("BDFN"),DR=".04////P" D ^DIE K DR
Q
ABMAROL1 ; IHS/ASDST/DMJ - A/R ROLL OVER ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
START(X,Y,Z,ZZ) ;EP - FROM A/R
+1 ;X:BILL INTERNAL ENTRY NUMBER^VISIT LOCATION, Y:TOTAL PAYMENT AMT
+2 ;Z = Bill Name (passed by 1.1, but not 1.0)
+3 ;ZZ = Msg from A/R (not used by
+4 ; This rtn is called from A/R ^BARROLL. The purpose is to file
+5 ;payment information into the Payment multiple of 3P BILL.
+6 ;After filing this data, the bill is marked as completed.
+7 ;Variables are then set in preparation of calling the Eligibility
+8 ;Checker. This is done to find other billable sources that have
+9 ;not yet been billed in relation to this claim. If other billable
+10 ;sources exist and the user holds the 3PB key, they are asked if
+11 ;the calim should be re-opened for future billing. Otherwise the
+12 ;claim is automatically reopened.
+13 ; 3P Bill File IEN
SET ABMP("BDFN")=+X
+14 SET ABMP("BILL")=$PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",1)
SET ABM("AMT")=Y
+15 DO FILE
+16 DO SET
+17 DO REST
+18 QUIT
REST ;DO REST
+1 SET ABMP("CDFN")=+ABMP("BILL")
+2 IF '$DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),0))
WRITE !,"CLAIM #",ABMP("CDFN")," HAS BEEN CANCELLED.",!
QUIT
+3 NEW I
SET I=0
SET DA=0
FOR
SET I=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),13,I))
IF 'I
QUIT
Begin DoDot:1
+4 IF $PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),13,I,0),"^",3)="I"
IF $PIECE(^(0),"^",1)=$PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",8)
SET DA=I
End DoDot:1
+5 IF DA
SET DA(1)=ABMP("CDFN")
SET DIE="^ABMDCLM(DUZ(2),"_DA(1)_",13,"
SET DR=".03////C"
DO ^DIE
KILL DR
+6 IF +ABMP("BILL")=$PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),U)
QUIT
+7 IF $PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),0),"^",4)="E"
Begin DoDot:1
+8 WRITE !,"Claim is already in edit status.",!
End DoDot:1
QUIT
UNBILL ;LOOK FOR UNBILLED SOURCES
+1 WRITE !!,"CHECKING FOR UNBILLED SOURCES.",!
+2 SET (ABM("HIT"),ABM("CNT"))=0
+3 DO ELG^ABMDLCK("",.ABML,ABMP("PDFN"),ABMP("VDT"))
+4 NEW I
SET I=0
FOR
SET I=$ORDER(ABML(I))
IF 'I
QUIT
Begin DoDot:1
+5 NEW J
SET J=0
FOR
SET J=$ORDER(ABML(I,J))
IF 'J
QUIT
Begin DoDot:2
+6 SET ABM("PRI")=I
SET ABM("INS")=J
+7 DO ADDCHK^ABMDE2E
End DoDot:2
End DoDot:1
+8 SET ABM=""
FOR ABM("I")=1:1
SET ABM=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,"C",ABM))
IF 'ABM
QUIT
Begin DoDot:1
+9 SET ABM("X")=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,"C",ABM,0))
+10 IF "PIFL"[$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("X"),0),U,3)
Begin DoDot:2
+11 SET ABM("INSCO")=$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("X"),0),"^",1)
+12 IF $PIECE($GET(^AUTNINS(ABM("INSCO"),2)),U)="I"
QUIT
IF $PIECE($GET(^(1)),U,7)=4
QUIT
+13 IF ABM("CNT")
WRITE !
SET ABM("CNT")=ABM("CNT")+1
+14 WRITE ?18,"[",ABM("CNT"),"] ",$PIECE(^AUTNINS(ABM("INSCO"),0),U)
SET ABM(ABM("CNT"))=ABM("X")
End DoDot:2
End DoDot:1
+15 IF ABM("CNT")=0
Begin DoDot:1
+16 DO CCLM
+17 WRITE "NONE",!!,"Since there are no unbilled sources no further billing is possible."
End DoDot:1
KILL ABM,ABMP
QUIT
+18 SET ABM("HIT")=ABM(1)
+19 SET Y=1
+20 IF $DATA(^XUSEC("ABMDZ EDIT CLAIM AND EXPORT",DUZ))
Begin DoDot:1
+21 WRITE !
SET DIR(0)="Y"
SET DIR("A")="Re-open claim for further billing? (Y/N)"
DO ^DIR
KILL DIR
IF $DATA(DIRUT)
QUIT
End DoDot:1
+22 IF Y'=1
DO CCLM
KILL ABM,ABMP
QUIT
+23 SET DIE="^ABMDBILL(DUZ(2),"
SET DA=ABMP("BDFN")
SET DR=".24////"_Y
DO ^DIE
+24 DO OCLM
+25 SET DA(1)=ABMP("CDFN")
SET DIE="^ABMDCLM(DUZ(2),"_DA(1)_",13,"
SET DA=ABM("HIT")
SET DR=".03////I"
DO ^DIE
+26 KILL ABM,ABMP
+27 QUIT
ADD ;ADD BILL NOT IN BILL FILE
+1 ;MAYBE WILL DO LATER
+2 QUIT
FILE ;FILE PAYMENT INFORMATION
+1 IF '$DATA(^ABMDBILL(DUZ(2),ABMP("BDFN"),3))
SET ^(3,0)="^9002274.403D^^"
+2 SET DA(1)=ABMP("BDFN")
+3 SET X="T"
+4 SET DIC="^ABMDBILL(DUZ(2),DA(1),3,"
SET DIC(0)="LE"
+5 SET DIC("DR")=".02///"_ABM("AMT")
+6 DO ^DIC
IF Y<0
QUIT
+7 DO CBIL
+8 QUIT
SET ;SET UP NEEDED VARIABLES
+1 SET ABMP("PDFN")=$PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),"^",5)
SET ABMP("INS")=$PIECE(^(0),"^",8)
+2 SET ABMP("VDT")=$PIECE(^ABMDBILL(DUZ(2),ABMP("BDFN"),7),"^",1)
+3 QUIT
OCLM SET DA=ABMP("CDFN")
SET DIE="^ABMDCLM(DUZ(2),"
SET DR=".04////E;.08////"_$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("HIT"),0),"^",1)
DO ^DIE
+1 WRITE !!,"Claim Number: ",+ABMP("BILL")," is now Open for Editing!",!
+2 QUIT
CCLM SET DA=ABMP("CDFN")
SET DIE="^ABMDCLM(DUZ(2),"
SET DR=".04////C"
DO ^DIE
+1 QUIT
CBIL ;EP for Closing Bill
+1 SET DIE="^ABMDBILL(DUZ(2),"
SET DA=ABMP("BDFN")
SET DR=".04////C;.17///@"
DO ^DIE
KILL DR
+2 QUIT
+3 ;
OBIL SET DIE="^ABMDBILL(DUZ(2),"
SET DA=ABMP("BDFN")
SET DR=".04////P"
DO ^DIE
KILL DR
+1 QUIT
