BZDMCDER ;routine to print the medicaid stuff errors [ 04/17/2000 1:42 PM ]
D ^XBCLS
S P1=0,P2=0,LINE=0
U 0 W !!,"Medicaid Download Error Report"
R !!,"Enter Month_Year you want Error Report for (ex: 032000): ",MY
I (MY="")!(MY="^") Q
I MY'?6N W *7," ??" H 2 G BZDMCDER
D ^%ZIS
I '$D(^BZDMERST(MY)) U 0 W *7,!!,"NO ERRORS ON FILE FOR THAT MONTH.." H 2 G BZDMCDER
U 0 W !!,"....Please Hold...."
P1 ;
S BZD1=0
F S BZD1=$O(^BZDMERST(MY,BZD1)) Q:BZD1="" D
.S DFN=""
.F S DFN=$O(^BZDMERST(MY,BZD1,"INACT",DFN)) Q:DFN="" D
..I (LINE=0)!(LINE>58)!(P1=0) D HEAD1
..U IO W !,$P(^DPT(DFN,0),"^",1)
..S LINE=LINE+1
S LINE=0
S P2=0
P2 ;
S BZD2=0
F S BZD2=$O(^BZDMERST(MY,BZD2)) Q:BZD2="" D
.S DFN=0
.F S DFN=$O(^BZDMERST(MY,BZD2,2,DFN)) Q:+DFN=0 D
..I (LINE=0)!(LINE>58)!(P2=0) D HEAD2
..U IO W !,$P(^DPT(DFN,0),"^",1)
..S LINE=LINE+1
G END
HEAD1 ;
U IO
S P1=P1+1
W #
W ?5,"Medicaid Download Errors--Inactive HRN",?60,"PAGE: ",P1
W !,?5,"Download Month: ",$E(MY,1,2)_"-"_$E(MY,3,6),!
S LINE=3
Q
HEAD2 ;
U IO
S P2=P2+1
W #
W ?5,"Medicaid Download Errors",?60,"PAGE: ",P2
W !,?5,"Download Month: ",$E(MY,1,2)_"-"_$E(MY,3,6),!
S LINE=3
Q
END ;
K P1,P2,BZD1,BZD2,LINE,DFN,MY
D ^%ZISC
Q
BZDMCDER ;routine to print the medicaid stuff errors [ 04/17/2000 1:42 PM ]
+1 DO ^XBCLS
+2 SET P1=0
SET P2=0
SET LINE=0
+3 USE 0
WRITE !!,"Medicaid Download Error Report"
+4 READ !!,"Enter Month_Year you want Error Report for (ex: 032000): ",MY
+5 IF (MY="")!(MY="^")
QUIT
+6 IF MY'?6N
WRITE *7," ??"
HANG 2
GOTO BZDMCDER
+7 DO ^%ZIS
+8 IF '$DATA(^BZDMERST(MY))
USE 0
WRITE *7,!!,"NO ERRORS ON FILE FOR THAT MONTH.."
HANG 2
GOTO BZDMCDER
+9 USE 0
WRITE !!,"....Please Hold...."
P1 ;
+1 SET BZD1=0
+2 FOR
SET BZD1=$ORDER(^BZDMERST(MY,BZD1))
IF BZD1=""
QUIT
Begin DoDot:1
+3 SET DFN=""
+4 FOR
SET DFN=$ORDER(^BZDMERST(MY,BZD1,"INACT",DFN))
IF DFN=""
QUIT
Begin DoDot:2
+5 IF (LINE=0)!(LINE>58)!(P1=0)
DO HEAD1
+6 USE IO
WRITE !,$PIECE(^DPT(DFN,0),"^",1)
+7 SET LINE=LINE+1
End DoDot:2
End DoDot:1
+8 SET LINE=0
+9 SET P2=0
P2 ;
+1 SET BZD2=0
+2 FOR
SET BZD2=$ORDER(^BZDMERST(MY,BZD2))
IF BZD2=""
QUIT
Begin DoDot:1
+3 SET DFN=0
+4 FOR
SET DFN=$ORDER(^BZDMERST(MY,BZD2,2,DFN))
IF +DFN=0
QUIT
Begin DoDot:2
+5 IF (LINE=0)!(LINE>58)!(P2=0)
DO HEAD2
+6 USE IO
WRITE !,$PIECE(^DPT(DFN,0),"^",1)
+7 SET LINE=LINE+1
End DoDot:2
End DoDot:1
+8 GOTO END
HEAD1 ;
+1 USE IO
+2 SET P1=P1+1
+3 WRITE #
+4 WRITE ?5,"Medicaid Download Errors--Inactive HRN",?60,"PAGE: ",P1
+5 WRITE !,?5,"Download Month: ",$EXTRACT(MY,1,2)_"-"_$EXTRACT(MY,3,6),!
+6 SET LINE=3
+7 QUIT
HEAD2 ;
+1 USE IO
+2 SET P2=P2+1
+3 WRITE #
+4 WRITE ?5,"Medicaid Download Errors",?60,"PAGE: ",P2
+5 WRITE !,?5,"Download Month: ",$EXTRACT(MY,1,2)_"-"_$EXTRACT(MY,3,6),!
+6 SET LINE=3
+7 QUIT
END ;
+1 KILL P1,P2,BZD1,BZD2,LINE,DFN,MY
+2 DO ^%ZISC
+3 QUIT
