DGJOPRT3.m

DGJOPRT3 ;ALB/MAF - TOTALS PAGE FOR REPORTS ; SEP 26 1991@1100

 ;;5.3;Registration;**163,1015**;Aug 13, 1993;Build 21

 ;

 D HEAD1 S DGJTOTAL=0 F DGJTTO=0:0 S DGJTOTAL=$O(DGJTOT(DGJTOTAL)) Q:DGJTOTAL']""  W !,DGJTOTAL,?40,$J(DGJTOT(DGJTOTAL),4)

 Q

HEAD1 W @IOF,"TOTALS PAGE BY DIVISION",!,"DIVISION",?37,"TOTAL DELINQ",!,DGJTLN Q

RET1 F X=$Y:1:(IOSL-3) W !

 S X=$O(^DG(40.8,"B",DGJTDV1,0)) I $D(^DG(40.8,+X,"DT")) S DGJTDEL=^("DT") W $P(DGJTDEL,"^",9),!

 Q:IOST'?1"C-".E

 R ?22,"Enter <RET> to continue or ^ to QUIT ",X:DTIME S:X["^"!('$T) DGU=1 Q:DGU  S DGFLAG=1 Q

HEAD S:DGJTDV'=DGJTDV1 DGJTPAG=0

 W @IOF,$S(DGJTDIR=1:"UNDICTATED ",1:"INCOMPLETE ")_"RECORDS LISTING BY "_$S(DGJTL="DAT":"EVENT DATE",DGJTL="PAT":"PATIENT",DGJTL="PHY":"PHYSICIAN",1:"SERVICE/SPECIALTY"),?99,DGJTDAT,"  ","PAGE " S DGJTPAG=DGJTPAG+1 W DGJTPAG

 I DGJTL="DAT" W !,"EVT DATE",?11,"PATIENT",?28,"PT ID"

 I DGJTL'="DAT" W !,"PATIENT",?18,"PT ID",?26,"EVT DATE"

 W ?39,"D/C TYPE",?53,"LOCATION",?69,"BORROWER"

 I DGJTL'="PHY" W ?87,"PHYSICIAN",?106,"TYP" W:DGJTDIR=2 ?112,"STATUS" W ?120,"TOTAL DAYS",!,DGJTLN,!

 I DGJTL="PHY" W ?87,"TYP" W:DGJTDIR=2 ?94,"STATUS" W ?110,"TOTAL DAYS",!,DGJTLN,!

 Q

QUIT K DFN,DGJTBEG,DGJTBG,DGJTEND,DGJFL,DGJTDT,DGJTDV,DGJTDVN,DGJTF,DGJTFF,DGJTFLAG,DGJ,DGJJ,DGJP,DGJSPTOT,DGJSVTOT,DGJTLN,DGJTL,DGJTMUL,DGJTNODE,DGJTPC,DGJTPHY,DGJTPT,DGJTSP,DGJTSV,DGJY,DGU,DIC,IFN,VAUTD,VAUTN,VAUTNI,VAUTSTR,VAUTVB,VAUTT,X,Y

 K %,DIR,DGFLAG,DGJTAD,DGJTCK,DGJTDAT,DGJTDEL,DGJTDIR,DGJTDIS,DGJTDIV,DGJTDL,DGJTDV1,DGJTMESS,DGJTNODT,DGJTNOW,DGJTOT,DGJTOTAL,DGJTPAG,DGJTPAR,DGJPHTOT,DGJTSR,DGJTSR1,DGJTSTAT,DGJTTO,DGJTTYP,DGPGM,DGVAR,POP,VAR,VA,VADAT,VADATE,VAERR

 K RT,RTDATA,RTE,RTYPE,VAUTY,^UTILITY("VAS",$J)

 D CLOSE^DGUTQ Q

PH Q:$O(^UTILITY("VAS",$J,DGJTDV,DGJTPHY,DGJTPT))]""  Q:$O(^UTILITY("VAS",$J,DGJTDV,DGJTPHY,DGJTPT,DFN,IFN))]""  W !,"------------------------",!,"COUNT: ",DGJPHTOT(DGJTDV,DGJTPHY) D RET1:(IOST'?1"C-".E) Q

SV Q:$O(^UTILITY("VAS",$J,DGJTDV,DGJTSV,DGJTSP,DGJTPT))]""  Q:$O(^UTILITY("VAS",$J,DGJTDV,DGJTSV,DGJTSP,DGJTPT,DFN,IFN))]""  W !,"------------------------",!,"COUNT: ",DGJSPTOT(DGJTDV,DGJTSV,DGJTSP)

 Q:$O(^UTILITY("VAS",$J,DGJTDV,DGJTSV,DGJTSP))]""  W !,"------------------------",!,"SERVICE SUBTOTAL: ",DGJSVTOT(DGJTDV,DGJTSV),! D RET1:(IOST'?1"C-".E) Q

 Q

HD1 W ?87,$S($P(DGJTNODE,"^",2)]""&($D(^VAS(393.3,+$P(DGJTNODE,"^",2),0))):$E($P(^VAS(393.3,$P(DGJTNODE,"^",2),0),"^",1),1,3),1:"")

 I DGJTDIR=2 W ?94,$S($P(DGJTNODE,"^",11)&($D(^DG(393.2,+$P(DGJTNODE,"^",11),0))):$E($P(^DG(393.2,$P(DGJTNODE,"^",11),0),"^",1),1,10),1:"")

 W ?110,$J(DGJTDL,4)

 Q

DGJOPRT3  ;ALB/MAF - TOTALS PAGE FOR REPORTS ; SEP 26 1991@1100

 +1       ;;5.3;Registration;**163,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3        DO HEAD1

           SET DGJTOTAL=0

           FOR DGJTTO=0:0

               SET DGJTOTAL=$ORDER(DGJTOT(DGJTOTAL))

               IF DGJTOTAL']""

                   QUIT 

               WRITE !,DGJTOTAL,?40,$JUSTIFY(DGJTOT(DGJTOTAL),4)

 +4        QUIT 

HEAD1      WRITE @IOF,"TOTALS PAGE BY DIVISION",!,"DIVISION",?37,"TOTAL DELINQ",!,DGJTLN

           QUIT 

RET1       FOR X=$Y:1:(IOSL-3)

               WRITE !

 +1        SET X=$ORDER(^DG(40.8,"B",DGJTDV1,0))

           IF $DATA(^DG(40.8,+X,"DT"))

               SET DGJTDEL=^("DT")

               WRITE $PIECE(DGJTDEL,"^",9),!

 +2        IF IOST'?1"C-".E

               QUIT 

 +3        READ ?22,"Enter <RET> to continue or ^ to QUIT ",X:DTIME

           IF X["^"!('$TEST)

               SET DGU=1

           IF DGU

               QUIT 

           SET DGFLAG=1

           QUIT 

HEAD       IF DGJTDV'=DGJTDV1

               SET DGJTPAG=0

 +1        WRITE @IOF,$SELECT(DGJTDIR=1:"UNDICTATED ",1:"INCOMPLETE ")_"RECORDS LISTING BY "_$SELECT(DGJTL="DAT":"EVENT DATE",DGJTL="PAT":"PATIENT",DGJTL="PHY":"PHYSICIAN",1:"SERVICE/SPECIALTY"),?99,DGJTDAT,"  ","PAGE "

           SET DGJTPAG=DGJTPAG+1

           WRITE DGJTPAG

 +2        IF DGJTL="DAT"

               WRITE !,"EVT DATE",?11,"PATIENT",?28,"PT ID"

 +3        IF DGJTL'="DAT"

               WRITE !,"PATIENT",?18,"PT ID",?26,"EVT DATE"

 +4        WRITE ?39,"D/C TYPE",?53,"LOCATION",?69,"BORROWER"

 +5        IF DGJTL'="PHY"

               WRITE ?87,"PHYSICIAN",?106,"TYP"

               IF DGJTDIR=2

                   WRITE ?112,"STATUS"

               WRITE ?120,"TOTAL DAYS",!,DGJTLN,!

 +6        IF DGJTL="PHY"

               WRITE ?87,"TYP"

               IF DGJTDIR=2

                   WRITE ?94,"STATUS"

               WRITE ?110,"TOTAL DAYS",!,DGJTLN,!

 +7        QUIT 

QUIT       KILL DFN,DGJTBEG,DGJTBG,DGJTEND,DGJFL,DGJTDT,DGJTDV,DGJTDVN,DGJTF,DGJTFF,DGJTFLAG,DGJ,DGJJ,DGJP,DGJSPTOT,DGJSVTOT,DGJTLN,DGJTL,DGJTMUL,DGJTNODE,DGJTPC,DGJTPHY,DGJTPT,DGJTSP,DGJTSV,DGJY,DGU,DIC,IFN,VAUTD,VAUTN,VAUTNI,VAUTSTR,VAUTVB,VAUTT,X,Y

 +1        KILL %,DIR,DGFLAG,DGJTAD,DGJTCK,DGJTDAT,DGJTDEL,DGJTDIR,DGJTDIS,DGJTDIV,DGJTDL,DGJTDV1,DGJTMESS,DGJTNODT,DGJTNOW,DGJTOT,DGJTOTAL,DGJTPAG,DGJTPAR,DGJPHTOT,DGJTSR,DGJTSR1,DGJTSTAT,DGJTTO,DGJTTYP,DGPGM,DGVAR,POP,VAR,VA,VADAT,VADATE,VAERR

 +2        KILL RT,RTDATA,RTE,RTYPE,VAUTY,^UTILITY("VAS",$JOB)

 +3        DO CLOSE^DGUTQ

           QUIT 

PH         IF $ORDER(^UTILITY("VAS",$JOB,DGJTDV,DGJTPHY,DGJTPT))]""

               QUIT 

           IF $ORDER(^UTILITY("VAS",$JOB,DGJTDV,DGJTPHY,DGJTPT,DFN,IFN))]""

               QUIT 

           WRITE !,"------------------------",!,"COUNT: ",DGJPHTOT(DGJTDV,DGJTPHY)

           IF (IOST'?1"C-".E)

               DO RET1

           QUIT 

SV         IF $ORDER(^UTILITY("VAS",$JOB,DGJTDV,DGJTSV,DGJTSP,DGJTPT))]""

               QUIT 

           IF $ORDER(^UTILITY("VAS",$JOB,DGJTDV,DGJTSV,DGJTSP,DGJTPT,DFN,IFN))]""

               QUIT 

           WRITE !,"------------------------",!,"COUNT: ",DGJSPTOT(DGJTDV,DGJTSV,DGJTSP)

 +1        IF $ORDER(^UTILITY("VAS",$JOB,DGJTDV,DGJTSV,DGJTSP))]""

               QUIT 

           WRITE !,"------------------------",!,"SERVICE SUBTOTAL: ",DGJSVTOT(DGJTDV,DGJTSV),!

           IF (IOST'?1"C-".E)

               DO RET1

           QUIT 

 +2        QUIT 

HD1        WRITE ?87,$SELECT($PIECE(DGJTNODE,"^",2)]""&($DATA(^VAS(393.3,+$PIECE(DGJTNODE,"^",2),0))):$EXTRACT($PIECE(^VAS(393.3,$PIECE(DGJTNODE,"^",2),0),"^",1),1,3),1:"")

 +1        IF DGJTDIR=2

               WRITE ?94,$SELECT($PIECE(DGJTNODE,"^",11)&($DATA(^DG(393.2,+$PIECE(DGJTNODE,"^",11),0))):$EXTRACT($PIECE(^DG(393.2,$PIECE(DGJTNODE,"^",11),0),"^",1),1,10),1:"")

 +2        WRITE ?110,$JUSTIFY(DGJTDL,4)

 +3        QUIT