BLRESRNS ; IHS/OIT/MKK - Laboratory E-SIG Report: Not Signed ; [ 04/12/06 4:00 PM ]
;;5.2;LR;**1022**;September 20, 2007
;
; NOTE: The LRIDT variable in the LR("BLRA") index is stored as
; as a negative number. That is why, in several places,
; the code does -(LRIDT).
;
EP ; "Ersatz" EP
W $C(7),$C(7),$C(7),!
W "Use Label Only",!
W $C(7),$C(7),$C(7),!
Q
;
; This routine prints a summary listing of all providers in the
; BLRA LAB PHYSICIANS file that have not signed E-SIG transactions.
NREVNSGN ; EP
NEW RESP,STATUS,LRIDT,LRIIDT,LRDFN,LRAA
NEW TOTAL,NVTOT,NSTOT
NEW PHYNAME
;
S RESP=0,STATUS=""
F S RESP=$O(^LR("BLRA",RESP)) Q:RESP="" D
. F S STATUS=$O(^LR("BLRA",RESP,STATUS)) Q:STATUS="" D
.. I STATUS=2 Q ; If Signed, skip it
.. ;
.. S STATUS(STATUS)=""
.. S LRIIDT=""
.. F S LRIIDT=$O(^LR("BLRA",RESP,STATUS,LRIIDT)) Q:LRIIDT="" D
... S LRDFN=""
... F S LRDFN=$O(^LR("BLRA",RESP,STATUS,LRIIDT,LRDFN)) Q:LRDFN="" D
.... S LRAA=$O(^LR("BLRA",RESP,STATUS,LRIIDT,LRDFN,""))
.... I LRAA="" Q
.... ;
.... S TOTAL(RESP)=1+$G(TOTAL(RESP))
.... S TOTAL(RESP,STATUS)=1+$G(TOTAL(RESP,STATUS))
;
I $$GETDEV^BLRESIGR="Q" D Q
. W !,"Output Device Error",!!
. D BLRGPGR^BLRGMENU()
;
D NREVSUMH
;
S (NSTOT,NVTOT,RESP,TOTAL)=0
F S RESP=$O(TOTAL(RESP)) Q:RESP=""!(QFLG="Q") D
. I LINES>MAXLINES D BLRGHWPN^BLRGMENU(.PG,.QFLG) I QFLG="Q" Q
. S PHYNAME=$P($G(^VA(200,RESP,0)),"^",1)
. ;
. W PHYNAME
. W ?34,$J(+$G(TOTAL(RESP,0)),5) ; Not viewed
. W ?44,$J(+$G(TOTAL(RESP,1)),5) ; Not signed
. W ?54,$J(+$G(TOTAL(RESP)),5) ; Total of both
. W !
. S LINES=LINES+1
. S TOTAL=TOTAL+$G(TOTAL(RESP))
. S NVTOT=NVTOT+$G(TOTAL(RESP,0))
. S NSTOT=NSTOT+$G(TOTAL(RESP,1))
;
W ?34,"-----"
W ?44,"-----"
W ?54,"-----"
W !
W "TOTAL"
W ?34,$J(NVTOT,5)
W ?44,$J(NSTOT,5)
W ?54,$J(TOTAL,5)
W !
;
D ^%ZISC
;
D BLRGPGR^BLRGMENU()
;
Q
;
; NOT SIGNED Summary Report Header
NREVSUMH ;
K HEADER
S HEADER(1)="LAB E-SIG NOT SIGNED SUMMARY REPORT"
S HEADER(2)="SORTED BY RESPONSIBLE PHYSICIAN"
S HEADER(3)=" "
S $E(HEADER(4),35)=$J("Not",5)
S $E(HEADER(4),45)=$J("Not",5)
;
S $E(HEADER(5),35)=$J("View",5)
S $E(HEADER(5),45)=$J("Sign",5)
;
S HEADER(6)="Physician Name"
S $E(HEADER(6),35)="Count"
S $E(HEADER(6),45)="Count"
S $E(HEADER(6),55)="Total"
;
Q
BLRESRNS ; IHS/OIT/MKK - Laboratory E-SIG Report: Not Signed ; [ 04/12/06 4:00 PM ]
+1 ;;5.2;LR;**1022**;September 20, 2007
+2 ;
+3 ; NOTE: The LRIDT variable in the LR("BLRA") index is stored as
+4 ; as a negative number. That is why, in several places,
+5 ; the code does -(LRIDT).
+6 ;
EP ; "Ersatz" EP
+1 WRITE $CHAR(7),$CHAR(7),$CHAR(7),!
+2 WRITE "Use Label Only",!
+3 WRITE $CHAR(7),$CHAR(7),$CHAR(7),!
+4 QUIT
+5 ;
+6 ; This routine prints a summary listing of all providers in the
+7 ; BLRA LAB PHYSICIANS file that have not signed E-SIG transactions.
NREVNSGN ; EP
+1 NEW RESP,STATUS,LRIDT,LRIIDT,LRDFN,LRAA
+2 NEW TOTAL,NVTOT,NSTOT
+3 NEW PHYNAME
+4 ;
+5 SET RESP=0
SET STATUS=""
+6 FOR
SET RESP=$ORDER(^LR("BLRA",RESP))
IF RESP=""
QUIT
Begin DoDot:1
+7 FOR
SET STATUS=$ORDER(^LR("BLRA",RESP,STATUS))
IF STATUS=""
QUIT
Begin DoDot:2
+8 ; If Signed, skip it
IF STATUS=2
QUIT
+9 ;
+10 SET STATUS(STATUS)=""
+11 SET LRIIDT=""
+12 FOR
SET LRIIDT=$ORDER(^LR("BLRA",RESP,STATUS,LRIIDT))
IF LRIIDT=""
QUIT
Begin DoDot:3
+13 SET LRDFN=""
+14 FOR
SET LRDFN=$ORDER(^LR("BLRA",RESP,STATUS,LRIIDT,LRDFN))
IF LRDFN=""
QUIT
Begin DoDot:4
+15 SET LRAA=$ORDER(^LR("BLRA",RESP,STATUS,LRIIDT,LRDFN,""))
+16 IF LRAA=""
QUIT
+17 ;
+18 SET TOTAL(RESP)=1+$GET(TOTAL(RESP))
+19 SET TOTAL(RESP,STATUS)=1+$GET(TOTAL(RESP,STATUS))
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+20 ;
+21 IF $$GETDEV^BLRESIGR="Q"
Begin DoDot:1
+22 WRITE !,"Output Device Error",!!
+23 DO BLRGPGR^BLRGMENU()
End DoDot:1
QUIT
+24 ;
+25 DO NREVSUMH
+26 ;
+27 SET (NSTOT,NVTOT,RESP,TOTAL)=0
+28 FOR
SET RESP=$ORDER(TOTAL(RESP))
IF RESP=""!(QFLG="Q")
QUIT
Begin DoDot:1
+29 IF LINES>MAXLINES
DO BLRGHWPN^BLRGMENU(.PG,.QFLG)
IF QFLG="Q"
QUIT
+30 SET PHYNAME=$PIECE($GET(^VA(200,RESP,0)),"^",1)
+31 ;
+32 WRITE PHYNAME
+33 ; Not viewed
WRITE ?34,$JUSTIFY(+$GET(TOTAL(RESP,0)),5)
+34 ; Not signed
WRITE ?44,$JUSTIFY(+$GET(TOTAL(RESP,1)),5)
+35 ; Total of both
WRITE ?54,$JUSTIFY(+$GET(TOTAL(RESP)),5)
+36 WRITE !
+37 SET LINES=LINES+1
+38 SET TOTAL=TOTAL+$GET(TOTAL(RESP))
+39 SET NVTOT=NVTOT+$GET(TOTAL(RESP,0))
+40 SET NSTOT=NSTOT+$GET(TOTAL(RESP,1))
End DoDot:1
+41 ;
+42 WRITE ?34,"-----"
+43 WRITE ?44,"-----"
+44 WRITE ?54,"-----"
+45 WRITE !
+46 WRITE "TOTAL"
+47 WRITE ?34,$JUSTIFY(NVTOT,5)
+48 WRITE ?44,$JUSTIFY(NSTOT,5)
+49 WRITE ?54,$JUSTIFY(TOTAL,5)
+50 WRITE !
+51 ;
+52 DO ^%ZISC
+53 ;
+54 DO BLRGPGR^BLRGMENU()
+55 ;
+56 QUIT
+57 ;
+58 ; NOT SIGNED Summary Report Header
NREVSUMH ;
+1 KILL HEADER
+2 SET HEADER(1)="LAB E-SIG NOT SIGNED SUMMARY REPORT"
+3 SET HEADER(2)="SORTED BY RESPONSIBLE PHYSICIAN"
+4 SET HEADER(3)=" "
+5 SET $EXTRACT(HEADER(4),35)=$JUSTIFY("Not",5)
+6 SET $EXTRACT(HEADER(4),45)=$JUSTIFY("Not",5)
+7 ;
+8 SET $EXTRACT(HEADER(5),35)=$JUSTIFY("View",5)
+9 SET $EXTRACT(HEADER(5),45)=$JUSTIFY("Sign",5)
+10 ;
+11 SET HEADER(6)="Physician Name"
+12 SET $EXTRACT(HEADER(6),35)="Count"
+13 SET $EXTRACT(HEADER(6),45)="Count"
+14 SET $EXTRACT(HEADER(6),55)="Total"
+15 ;
+16 QUIT
