BWBRNOT1 ;IHS/ANMC/MWR - BROWSE NOTIFICATIONS;15-Feb-2003 21:47;PLS
;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; DISPLAY CODE FOR BROWSING NOTIFICATIONS. CALLED BY BWBRNOT.
;
DISPLAY ;EP
;---> BWCONF=DISPLAY "CONFIDENTIAL PT INFO" BANNER.
;---> BWTITLE=TITLE AT TOP OF DISPLAY HEADER.
;---> BWSUBH=CODE TO EXECUTE FOR SUBHEADER (COLUMN TITLES).
;---> BWCODE=CODE TO EXECUTE AS 3RD PIECE OF DIR(0) (AFTER DIR READ).
;---> BWCRT=1 IF OUTPUT IS TO SCREEN (ALLOWS SELECTIONS TO EDIT).
;---> BWTAB=6 IF OUTPUT IS TO SCREEN, =3 IF OUTPUT IS TO PRINTER.
;---> BWPRMT(1,Q)=PROMPTS FOR DIR.
;---> BWD=0, TELLS DIRPRMT^BWUTL3 TO DISPLAY SELECTION NUMBERS.
;
U IO
S BWCONF=1
S BWTITLE1=$S(BWC=1:"DATE",BWC=2:"PATIENT",BWC=3:"PRIORITY",1:"?")
S BWTITLE="* * * NOTIFICATIONS LISTED BY "_BWTITLE1_" * * *"
D CENTERT^BWUTL5(.BWTITLE)
S BWSUBH="SUBHEAD^BWBRNOT1"
S BWCODE="D EDIT^BWBRNOT1,SORT^BWBRNOT,COPYGBL^BWBRNOT"
S BWPRMT1=" Press RETURN to continue or '^'to exit, or"
S BWPRMT=" Select a left column number to edit"
S BWPRMTQ=" To edit a Notification, choose a number from the "
S BWPRMTQ=BWPRMTQ_"left column"
S (BWD,BWPOP,N,Z)=0
D TOPHEAD^BWUTL7
S BWTAB=$S(BWCRT:6,1:3)
;
NOMATCH ;EP
;---> QUIT IF NO RECORDS MATCH.
I '$D(^TMP("BW",$J,3)) D Q
.D HEADER1^BWUTL7
.K BWPRMT,BWPRMT1,BWPRMTQ,DIR
.W !!?5,"No records match the selected criteria.",!
.D:BWCRT DIRZ^BWUTL3 W @IOF D ^%ZISC S BWPOP=1
;
DISPLAY1 ;EP
;---> IF A NOTIFICATION IS EDITED ON THE LAST PAGE, GOTO HERE
;---> FROM LINELABEL "END" BELOW.
D HEADER1^BWUTL7
F S N=$O(^TMP("BW",$J,4,N)) Q:'N!(BWPOP) D
.I $Y+6>IOSL D:BWCRT DIRPRMT^BWUTL3 Q:BWPOP D
..S BWPAGE=BWPAGE+1
..D HEADER1^BWUTL7 S Z=0
.S Y=^TMP("BW",$J,4,N),M=N
.W !
.;---> DON'T WRITE CHART# AND NAME IF IT MATCHES THE PREVIOUS RECORD.
.;---> DON'T WRITE BROWSE SELECTION#'S IF IO IS NOT A CRT (BRCRT).
.I $P(Y,U)'=Z D
..W ! W:BWCRT $J(N,3),")" ;BROWSE SELECTION#
..W ?BWTAB,$P(Y,U) ;CHART#
..W ?BWTAB+10,$E($P(Y,U,2),1,22)," " ;NAME
..F I=1:1:22-$L($P(Y,U,2)) W "." ;CONNECTING DOTS
..W:'BWCRT "..." ;ADD DOTS IF NOT A CRT
.I $P(Y,U)=Z D ;IF NEW CHART#...
..W:BWCRT $J(N,3),")" ;BROWSE SELECTION#
..W ?BWTAB,". . . . . . . . . . . . . . . ." ;CONNECTING DOTS
.S Z=$P(Y,U) ;STORE AS PREVIOUS CHRT#
.;
.W ?41,$$SLDT2^BWUTL5($P(Y,U,3)) ;DATE OF NOTIFICATION
.W ?51,$P(Y,U,4) ;ACCESSION#
.W ?62,$P(Y,U,5) ;STATUS
.S X=$P(Y,U,6) ;PRIORITY
.W ?70,$S(X=1:"*",1:" ")
.W $P($P(^DD(9002086.404,.02,0),X_":",2),";") K X
;
END ;EP
W:'BWCRT @IOF
;---> IF A NOTIFICATION HAS BEEN EDITED, SET N=N-5 AND START (GOTO)
;---> DISPLAY1 OVER AGAIN FROM 5 RECORDS PREVIOUS.
I BWCRT&('$D(IO("S")))&('BWPOP) D DIRPRMT^BWUTL3 I N S N=N-1 G NOMATCH
D ^%ZISC
Q
;
SUBHEAD ;EP
;---> SUB HEADER FOR NOTIFICATION BROWSE OUTPUT.
W !?BWTAB,$$PNLB^BWUTL5(DUZ(2))
W ?BWTAB+10,"PATIENT",?41,"DATE",?51,"ACC#"
W ?62,"STATUS",?70,"PRIORITY",!
F I=1:1:80 W "-"
Q
;
EDIT ;EP
;---> FROM BROWSE, POP IN TO EDIT A SINGLE NOTIFICATION.
N (BWLOOP,DT,DTIME,DUZ,M,N,U,X,Z) D SETVARS^BWUTL5
S X=+X,DA=$P(^TMP("BW",$J,4,X),U,7)
S BWNN=X N X
D EDIT2^BWNOTIF(DA)
;---> BACK UP 5 RECORDS AFTER EDIT.
S N=$S(BWNN<6:1,1:BWNN-5),Z=0 K BWNN
Q
BWBRNOT1 ;IHS/ANMC/MWR - BROWSE NOTIFICATIONS;15-Feb-2003 21:47;PLS
+1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; DISPLAY CODE FOR BROWSING NOTIFICATIONS. CALLED BY BWBRNOT.
+4 ;
DISPLAY ;EP
+1 ;---> BWCONF=DISPLAY "CONFIDENTIAL PT INFO" BANNER.
+2 ;---> BWTITLE=TITLE AT TOP OF DISPLAY HEADER.
+3 ;---> BWSUBH=CODE TO EXECUTE FOR SUBHEADER (COLUMN TITLES).
+4 ;---> BWCODE=CODE TO EXECUTE AS 3RD PIECE OF DIR(0) (AFTER DIR READ).
+5 ;---> BWCRT=1 IF OUTPUT IS TO SCREEN (ALLOWS SELECTIONS TO EDIT).
+6 ;---> BWTAB=6 IF OUTPUT IS TO SCREEN, =3 IF OUTPUT IS TO PRINTER.
+7 ;---> BWPRMT(1,Q)=PROMPTS FOR DIR.
+8 ;---> BWD=0, TELLS DIRPRMT^BWUTL3 TO DISPLAY SELECTION NUMBERS.
+9 ;
+10 USE IO
+11 SET BWCONF=1
+12 SET BWTITLE1=$SELECT(BWC=1:"DATE",BWC=2:"PATIENT",BWC=3:"PRIORITY",1:"?")
+13 SET BWTITLE="* * * NOTIFICATIONS LISTED BY "_BWTITLE1_" * * *"
+14 DO CENTERT^BWUTL5(.BWTITLE)
+15 SET BWSUBH="SUBHEAD^BWBRNOT1"
+16 SET BWCODE="D EDIT^BWBRNOT1,SORT^BWBRNOT,COPYGBL^BWBRNOT"
+17 SET BWPRMT1=" Press RETURN to continue or '^'to exit, or"
+18 SET BWPRMT=" Select a left column number to edit"
+19 SET BWPRMTQ=" To edit a Notification, choose a number from the "
+20 SET BWPRMTQ=BWPRMTQ_"left column"
+21 SET (BWD,BWPOP,N,Z)=0
+22 DO TOPHEAD^BWUTL7
+23 SET BWTAB=$SELECT(BWCRT:6,1:3)
+24 ;
NOMATCH ;EP
+1 ;---> QUIT IF NO RECORDS MATCH.
+2 IF '$DATA(^TMP("BW",$JOB,3))
Begin DoDot:1
+3 DO HEADER1^BWUTL7
+4 KILL BWPRMT,BWPRMT1,BWPRMTQ,DIR
+5 WRITE !!?5,"No records match the selected criteria.",!
+6 IF BWCRT
DO DIRZ^BWUTL3
WRITE @IOF
DO ^%ZISC
SET BWPOP=1
End DoDot:1
QUIT
+7 ;
DISPLAY1 ;EP
+1 ;---> IF A NOTIFICATION IS EDITED ON THE LAST PAGE, GOTO HERE
+2 ;---> FROM LINELABEL "END" BELOW.
+3 DO HEADER1^BWUTL7
+4 FOR
SET N=$ORDER(^TMP("BW",$JOB,4,N))
IF 'N!(BWPOP)
QUIT
Begin DoDot:1
+5 IF $Y+6>IOSL
IF BWCRT
DO DIRPRMT^BWUTL3
IF BWPOP
QUIT
Begin DoDot:2
+6 SET BWPAGE=BWPAGE+1
+7 DO HEADER1^BWUTL7
SET Z=0
End DoDot:2
+8 SET Y=^TMP("BW",$JOB,4,N)
SET M=N
+9 WRITE !
+10 ;---> DON'T WRITE CHART# AND NAME IF IT MATCHES THE PREVIOUS RECORD.
+11 ;---> DON'T WRITE BROWSE SELECTION#'S IF IO IS NOT A CRT (BRCRT).
+12 IF $PIECE(Y,U)'=Z
Begin DoDot:2
+13 ;BROWSE SELECTION#
WRITE !
IF BWCRT
WRITE $JUSTIFY(N,3),")"
+14 ;CHART#
WRITE ?BWTAB,$PIECE(Y,U)
+15 ;NAME
WRITE ?BWTAB+10,$EXTRACT($PIECE(Y,U,2),1,22)," "
+16 ;CONNECTING DOTS
FOR I=1:1:22-$LENGTH($PIECE(Y,U,2))
WRITE "."
+17 ;ADD DOTS IF NOT A CRT
IF 'BWCRT
WRITE "..."
End DoDot:2
+18 ;IF NEW CHART#...
IF $PIECE(Y,U)=Z
Begin DoDot:2
+19 ;BROWSE SELECTION#
IF BWCRT
WRITE $JUSTIFY(N,3),")"
+20 ;CONNECTING DOTS
WRITE ?BWTAB,". . . . . . . . . . . . . . . ."
End DoDot:2
+21 ;STORE AS PREVIOUS CHRT#
SET Z=$PIECE(Y,U)
+22 ;
+23 ;DATE OF NOTIFICATION
WRITE ?41,$$SLDT2^BWUTL5($PIECE(Y,U,3))
+24 ;ACCESSION#
WRITE ?51,$PIECE(Y,U,4)
+25 ;STATUS
WRITE ?62,$PIECE(Y,U,5)
+26 ;PRIORITY
SET X=$PIECE(Y,U,6)
+27 WRITE ?70,$SELECT(X=1:"*",1:" ")
+28 WRITE $PIECE($PIECE(^DD(9002086.404,.02,0),X_":",2),";")
KILL X
End DoDot:1
+29 ;
END ;EP
+1 IF 'BWCRT
WRITE @IOF
+2 ;---> IF A NOTIFICATION HAS BEEN EDITED, SET N=N-5 AND START (GOTO)
+3 ;---> DISPLAY1 OVER AGAIN FROM 5 RECORDS PREVIOUS.
+4 IF BWCRT&('$DATA(IO("S")))&('BWPOP)
DO DIRPRMT^BWUTL3
IF N
SET N=N-1
GOTO NOMATCH
+5 DO ^%ZISC
+6 QUIT
+7 ;
SUBHEAD ;EP
+1 ;---> SUB HEADER FOR NOTIFICATION BROWSE OUTPUT.
+2 WRITE !?BWTAB,$$PNLB^BWUTL5(DUZ(2))
+3 WRITE ?BWTAB+10,"PATIENT",?41,"DATE",?51,"ACC#"
+4 WRITE ?62,"STATUS",?70,"PRIORITY",!
+5 FOR I=1:1:80
WRITE "-"
+6 QUIT
+7 ;
EDIT ;EP
+1 ;---> FROM BROWSE, POP IN TO EDIT A SINGLE NOTIFICATION.
+2 NEW (BWLOOP,DT,DTIME,DUZ,M,N,U,X,Z)
DO SETVARS^BWUTL5
+3 SET X=+X
SET DA=$PIECE(^TMP("BW",$JOB,4,X),U,7)
+4 SET BWNN=X
NEW X
+5 DO EDIT2^BWNOTIF(DA)
+6 ;---> BACK UP 5 RECORDS AFTER EDIT.
+7 SET N=$SELECT(BWNN<6:1,1:BWNN-5)
SET Z=0
KILL BWNN
+8 QUIT
