BARDMDP ;IHS/OIT/FCJ - DEBT MANAGEMENT DISPLAY PARAMETERS
;;1.8;IHS ACCOUNTS RECEIVABLE;**22,23,24**;OCT 26, 2005;Build 69
;New routine 5-12-2011 for Debt Letter Management
;IHS/SD/POT JAN 2013 DISPLAY NEW PARAMS (SORT DEBT LETTERS ...)- BAR*1.8*.23
;IHS/SD/POT 12/02/2013 P.OTT BETA TESTING: ADDED SRT BY CYCLE- BAR*1.8*.23
;IHS/SD/POT HEAT152452 2/10/2014 - BAR*1.8*.24
ST ;
;REPORT HEADER VARS
D PAR^BARDMU
Q:$G(BARQ) ;P.OTT HEAT152452 2/10/2014- BAR*1.8*.24
D RRDT^BARDMU
;
SEL ;SELECT LOCATION
S DIC="^BAR(90052.06,"_BARPIEN_",",DIC(0)="AEQZ"
W ! D ^DIC
K BARQ,DIE,DIC,DA,DR
G:+Y<0 XIT
S BARLOC=+Y
D PAR^BARDMU
Q:$G(BARQ) ;P.OTT HEAT152452 2/10/2014- BAR*1.8*.24
;
ZIS ;
D ZIS^BARDMU
G:$G(BARQUIT) XIT
S XBRC="COMP^BARDMDP",XBRX="XIT^BARDMDP",XBNS="BAR"
I $G(BAROPT)="B" S XBRP="VIEWR^XBLM(""PRINT^BARDMDP"")",XBIOP=0
E S XBRP="PRINT^BARDMDP"
D ^XBDBQUE
D XIT
Q
XIT ;
;
K BARPG,BARL
I $D(IO("S")) S IOP="`"_IOS D ^%ZIS Q
D ^%ZISC
Q
PRINT ;
S:'$D(BARPSDX) BARPSDX=""
D HDR,COMP,HDR2
S I1=0
F I=1:1:4 W !!?2,"CYCLE ",I,?13,"LETTER: ",BARPCL(I),?60,"CYCLE PERIOD: ",BARPCD(I)
W ! F I=1:1:80 W "-"
INS ;DISPLAY INSURER TYP
W !,"INSURER TYPE: "
I $D(^BAR(90052.06,BARPIEN,BARLOC,19)) D
.S BARL=0
.F S BARL=$O(^BAR(90052.06,BARPIEN,BARLOC,19,BARL)) Q:BARL'?1N.N D
..S BARINSP=$P(^BAR(90052.06,BARPIEN,BARLOC,19,BARL,0),U)
..I $D(^BAR(90053.03,BARINSP)) W !?5,$P(^(BARINSP,0),U)
..I $Y>(IOSL-5) D:$G(BAROPT)'="B" RTRN^BARDMU Q:$G(BARDLQ) D HDR,HDR2
;
ACC ;DISPLAY ACCOUNTS
W !,"ACCOUNT: ",?50,"LETTERS"
I $D(^BARAC(BARLOC,"D")) D
.S BARACS=""
.F S BARACS=$O(^BARAC(BARLOC,"D",BARACS)) Q:BARACS="" D
..S BARAC=""
..F S BARAC=$O(^BARAC(BARLOC,"D",BARACS,BARAC)) Q:BARAC'?1N.N D
...W !?5,$$VAL^XBDIQ1(90050.02,BARAC,.01),?52,$$VAL^XBDIQ1(90050.02,BARAC,7)
...I $Y>(IOSL-5) D:$G(BAROPT)'="B" RTRN^BARDMU Q:$G(BARDLQ) D HDR,HDR2
Q:$G(BARDLQ)
D:$G(BAROPT)'="B" RTRN^BARDMU
Q
HDR ;
S BARPG=BARPG+1
I $E(IOST)="C",IOT["TRM",'$D(ZTQUEUED),$Y+20>IOSL W $$EN^BARVDF("IOF")
W !,"A/R PARENT LOCATION: ",BARPSAT(BARLOC,.01),!
F I=1:1:80 W "="
Q
HDR2 ;
W !,?2,"EFFECTIVE DATE: ",BARPSDX,?35,"NPI: ",BARPNPI
W !,?2,"PRINT DOB: ",$P("NO,YES",",",BARPDOB+1),?35,"MAX # OF LETTERS TO PRINT: ",$P(BARPAR1,U,8)
W !,?2,"TOP MARGIN: "_+$P(BARPAR1,U,9),?35,"LEFT MARGIN: "_+$P(BARPAR1,U,10)
W !,?2,"WRITE OFF AMOUNT: ",+BARPWO,?35,"PRINT BILL DATE: ",$P("NO,YES",",",BARPBDT+1) ;P.OTT- BAR*1.8*.23
IF BARPSRT]"" D ;P.OTT
. W !?2,"SORT DEBT LETTERS: "
. I BARPSRT="P" W "BY POLICY HOLDER'S NAME"
. I BARPSRT="I" W "BY INSURANCE NAME"
. I BARPSRT="C" W "BY CYCLE" ;12/02/2013- BAR*1.8*.23
W ! F I=1:1:80 W "-"
Q
COMP ;
;
Q
BARDMDP ;IHS/OIT/FCJ - DEBT MANAGEMENT DISPLAY PARAMETERS
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**22,23,24**;OCT 26, 2005;Build 69
+2 ;New routine 5-12-2011 for Debt Letter Management
+3 ;IHS/SD/POT JAN 2013 DISPLAY NEW PARAMS (SORT DEBT LETTERS ...)- BAR*1.8*.23
+4 ;IHS/SD/POT 12/02/2013 P.OTT BETA TESTING: ADDED SRT BY CYCLE- BAR*1.8*.23
+5 ;IHS/SD/POT HEAT152452 2/10/2014 - BAR*1.8*.24
ST ;
+1 ;REPORT HEADER VARS
+2 DO PAR^BARDMU
+3 ;P.OTT HEAT152452 2/10/2014- BAR*1.8*.24
IF $GET(BARQ)
QUIT
+4 DO RRDT^BARDMU
+5 ;
SEL ;SELECT LOCATION
+1 SET DIC="^BAR(90052.06,"_BARPIEN_","
SET DIC(0)="AEQZ"
+2 WRITE !
DO ^DIC
+3 KILL BARQ,DIE,DIC,DA,DR
+4 IF +Y<0
GOTO XIT
+5 SET BARLOC=+Y
+6 DO PAR^BARDMU
+7 ;P.OTT HEAT152452 2/10/2014- BAR*1.8*.24
IF $GET(BARQ)
QUIT
+8 ;
ZIS ;
+1 DO ZIS^BARDMU
+2 IF $GET(BARQUIT)
GOTO XIT
+3 SET XBRC="COMP^BARDMDP"
SET XBRX="XIT^BARDMDP"
SET XBNS="BAR"
+4 IF $GET(BAROPT)="B"
SET XBRP="VIEWR^XBLM(""PRINT^BARDMDP"")"
SET XBIOP=0
+5 IF '$TEST
SET XBRP="PRINT^BARDMDP"
+6 DO ^XBDBQUE
+7 DO XIT
+8 QUIT
XIT ;
+1 ;
+2 KILL BARPG,BARL
+3 IF $DATA(IO("S"))
SET IOP="`"_IOS
DO ^%ZIS
QUIT
+4 DO ^%ZISC
+5 QUIT
PRINT ;
+1 IF '$DATA(BARPSDX)
SET BARPSDX=""
+2 DO HDR
DO COMP
DO HDR2
+3 SET I1=0
+4 FOR I=1:1:4
WRITE !!?2,"CYCLE ",I,?13,"LETTER: ",BARPCL(I),?60,"CYCLE PERIOD: ",BARPCD(I)
+5 WRITE !
FOR I=1:1:80
WRITE "-"
INS ;DISPLAY INSURER TYP
+1 WRITE !,"INSURER TYPE: "
+2 IF $DATA(^BAR(90052.06,BARPIEN,BARLOC,19))
Begin DoDot:1
+3 SET BARL=0
+4 FOR
SET BARL=$ORDER(^BAR(90052.06,BARPIEN,BARLOC,19,BARL))
IF BARL'?1N.N
QUIT
Begin DoDot:2
+5 SET BARINSP=$PIECE(^BAR(90052.06,BARPIEN,BARLOC,19,BARL,0),U)
+6 IF $DATA(^BAR(90053.03,BARINSP))
WRITE !?5,$PIECE(^(BARINSP,0),U)
+7 IF $Y>(IOSL-5)
IF $GET(BAROPT)'="B"
DO RTRN^BARDMU
IF $GET(BARDLQ)
QUIT
DO HDR
DO HDR2
End DoDot:2
End DoDot:1
+8 ;
ACC ;DISPLAY ACCOUNTS
+1 WRITE !,"ACCOUNT: ",?50,"LETTERS"
+2 IF $DATA(^BARAC(BARLOC,"D"))
Begin DoDot:1
+3 SET BARACS=""
+4 FOR
SET BARACS=$ORDER(^BARAC(BARLOC,"D",BARACS))
IF BARACS=""
QUIT
Begin DoDot:2
+5 SET BARAC=""
+6 FOR
SET BARAC=$ORDER(^BARAC(BARLOC,"D",BARACS,BARAC))
IF BARAC'?1N.N
QUIT
Begin DoDot:3
+7 WRITE !?5,$$VAL^XBDIQ1(90050.02,BARAC,.01),?52,$$VAL^XBDIQ1(90050.02,BARAC,7)
+8 IF $Y>(IOSL-5)
IF $GET(BAROPT)'="B"
DO RTRN^BARDMU
IF $GET(BARDLQ)
QUIT
DO HDR
DO HDR2
End DoDot:3
End DoDot:2
End DoDot:1
+9 IF $GET(BARDLQ)
QUIT
+10 IF $GET(BAROPT)'="B"
DO RTRN^BARDMU
+11 QUIT
HDR ;
+1 SET BARPG=BARPG+1
+2 IF $EXTRACT(IOST)="C"
IF IOT["TRM"
IF '$DATA(ZTQUEUED)
IF $Y+20>IOSL
WRITE $$EN^BARVDF("IOF")
+3 WRITE !,"A/R PARENT LOCATION: ",BARPSAT(BARLOC,.01),!
+4 FOR I=1:1:80
WRITE "="
+5 QUIT
HDR2 ;
+1 WRITE !,?2,"EFFECTIVE DATE: ",BARPSDX,?35,"NPI: ",BARPNPI
+2 WRITE !,?2,"PRINT DOB: ",$PIECE("NO,YES",",",BARPDOB+1),?35,"MAX # OF LETTERS TO PRINT: ",$PIECE(BARPAR1,U,8)
+3 WRITE !,?2,"TOP MARGIN: "_+$PIECE(BARPAR1,U,9),?35,"LEFT MARGIN: "_+$PIECE(BARPAR1,U,10)
+4 ;P.OTT- BAR*1.8*.23
WRITE !,?2,"WRITE OFF AMOUNT: ",+BARPWO,?35,"PRINT BILL DATE: ",$PIECE("NO,YES",",",BARPBDT+1)
+5 ;P.OTT
IF BARPSRT]""
Begin DoDot:1
+6 WRITE !?2,"SORT DEBT LETTERS: "
+7 IF BARPSRT="P"
WRITE "BY POLICY HOLDER'S NAME"
+8 IF BARPSRT="I"
WRITE "BY INSURANCE NAME"
+9 ;12/02/2013- BAR*1.8*.23
IF BARPSRT="C"
WRITE "BY CYCLE"
End DoDot:1
+10 WRITE !
FOR I=1:1:80
WRITE "-"
+11 QUIT
COMP ;
+1 ;
+2 QUIT
