BWGRVLU2 ; IHS/CMI/LAB - GEN RETR UTILITIES - CON'T ;03-Sep-2003 20:09;PLS
;;2.0;WOMEN'S HEALTH;**9**;SEP 02, 2003
; Print Notifications Types that contain the TXT value in their name
; VIEN = Represents either Patient or Procedure IEN dependent upon report context
; TXT = Notification Type must contain this text if present
; PRM = 0= just time, 1=time and date, 2=time, date, and type
NOTIFP(VIEN,TXT,PRM) ;
N NIEN,XRF,LP
S TXT=$G(TXT,""),PRM=$G(PRM,0)
I BWGRPTVS="P" D
.; Process patient
.S XRF="B"
.S LP=VIEN
E D
.; Process procedure
.S XRF="C"
.S LP=$$GET1^DIQ(9002086.1,VIEN,.01,"I")
S NIEN=0 F S NIEN=$O(^BWNOT(XRF,LP,NIEN)) Q:NIEN="" D
.D ADDNOTIF(NIEN,TXT,PRM)
Q
ADDNOTIF(NIEN,TXT,PRM) ; Add notification to array
N NTYP,VAL
S NTYP=$$GET1^DIQ(9002086.4,NIEN,.03,"E")
; Check to see if notification types have been restricted
Q:($L(TXT)&(NTYP'[TXT))
S VAL=$$GET1^DIQ(9002086.4,NIEN,.15,"I")
S:PRM>0 VAL=VAL_" "_$$FMTE^XLFDT($$GET1^DIQ(9002086.4,NIEN,.02,"I"),"5ZD")
S:PRM>1 VAL=VAL_" "_NTYP
S BWGRPCNT=$G(BWGRPCNT)+1,BWGRPRNM(BWGRPCNT)=VAL
Q
; Time Required Notification Screen
; VIEN = Represents either Patient or Procedure IEN dependent upon report context
; TXT = Notification Type must contain this text if present
;
NOTIFS(VIEN,TXT) ;
N NIEN,XRF,LP,TM,RVAL1,RVAL2
S TXT=$G(TXT,"")
I BWGRPTVS="P" D
.; Process patient
.S XRF="B"
.S LP=VIEN
E D
.; Process procedure
.S XRF="C"
.S LP=$$GET1^DIQ(9002086.1,VIEN,.01,"I")
S NIEN=0 F S NIEN=$O(^BWNOT(XRF,LP,NIEN)) Q:NIEN="" D
.S RVAL1=$P(^BWGRTRPT(BWGRRPT,11,BWGRI,11,1,0),U),RVAL2=$P(^(0),U,2)
.S TM=$$GET1^DIQ(9002086.4,NIEN,.15,"I")
.Q:RVAL1>TM!(X>RVAL2)
.S X(RVAL1)=""
Q
; Notification Screen
; Populate X array with Notifications matching selected screen type
; Input: SCNTYP = Screen Type
; "P"= Purpose
; "T"= Type
; "S"= Status
; "N" = Notification IEN array
NOTIFSCN(SCNTYP) ;
N BWNIEN,BWNTYP,BWNDT,BWNPURP,BWNOUT,BWNBDT,BWNEDT,BWNSTAT,NODE0
Q:$L($G(SCNTYP))<1
S BWNBDT=$G(BWGRBD,0)
S BWNEDT=$G(BWGRED,9999999)
S BWNIEN=0
F S BWNIEN=$O(^BWNOT("B",DFN,BWNIEN)) Q:'BWNIEN D
.S NODE0=^BWNOT(BWNIEN,0)
.S BWNTYP=$P(NODE0,U,3)
.S BWNDT=$P(NODE0,U,2)
.S BWNPURP=$P(NODE0,U,4)
.S BWNOUT=$P(NODE0,U,5)
.S BWNSTAT=$P(NODE0,U,14)
.; Compare notification date with date range
.Q:BWNDT<BWNBDT!(BWNDT>BWNEDT)
.I SCNTYP="T" D
..S:BWNTYP X(BWNTYP)=""
.E I SCNTYP="P" D
..S:BWNPURP X(BWNPURP)=""
.E I SCNTYP="O" D
..S:BWNOUT X(BWNOUT)=""
.E I SCNTYP="S" D
..S:$L(BWNSTAT) X(BWNSTAT)=""
.E I SCNTYP="N" D
..S X(BWNIEN)=""
Q
; Build Print array for Notification Types/Purposes
NOTIFPTP(SCNTYP) ;
N X,BWNIEN,VAL,BWNDTE,FLD
S SCNTYP=$G(SCNTYP)
S FLD=$S(SCNTYP="P":.04,SCNTYP="T":.03,SCNTYP="O":.05,SCNTYP="S":.14,1:"")
Q:'FLD
D NOTIFSCN("N")
S BWNIEN=0 F S BWNIEN=$O(X(BWNIEN)) Q:'BWNIEN D
.S BWNDTE=$$FMTE^XLFDT($$GET1^DIQ(9002086.4,BWNIEN,.02,"I"),"5Z")
.S VAL=$E($$GET1^DIQ(9002086.4,BWNIEN,FLD),1,20)
.S:SCNTYP'="S" VAL=$S('$L(VAL):"??",1:VAL)_" on "_BWNDTE
.S BWGRPCNT=$G(BWGRPCNT)+1,BWGRPRNM(BWGRPCNT)=VAL
Q
BWGRVLU2 ; IHS/CMI/LAB - GEN RETR UTILITIES - CON'T ;03-Sep-2003 20:09;PLS
+1 ;;2.0;WOMEN'S HEALTH;**9**;SEP 02, 2003
+2 ; Print Notifications Types that contain the TXT value in their name
+3 ; VIEN = Represents either Patient or Procedure IEN dependent upon report context
+4 ; TXT = Notification Type must contain this text if present
+5 ; PRM = 0= just time, 1=time and date, 2=time, date, and type
NOTIFP(VIEN,TXT,PRM) ;
+1 NEW NIEN,XRF,LP
+2 SET TXT=$GET(TXT,"")
SET PRM=$GET(PRM,0)
+3 IF BWGRPTVS="P"
Begin DoDot:1
+4 ; Process patient
+5 SET XRF="B"
+6 SET LP=VIEN
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 ; Process procedure
+9 SET XRF="C"
+10 SET LP=$$GET1^DIQ(9002086.1,VIEN,.01,"I")
End DoDot:1
+11 SET NIEN=0
FOR
SET NIEN=$ORDER(^BWNOT(XRF,LP,NIEN))
IF NIEN=""
QUIT
Begin DoDot:1
+12 DO ADDNOTIF(NIEN,TXT,PRM)
End DoDot:1
+13 QUIT
ADDNOTIF(NIEN,TXT,PRM) ; Add notification to array
+1 NEW NTYP,VAL
+2 SET NTYP=$$GET1^DIQ(9002086.4,NIEN,.03,"E")
+3 ; Check to see if notification types have been restricted
+4 IF ($LENGTH(TXT)&(NTYP'[TXT))
QUIT
+5 SET VAL=$$GET1^DIQ(9002086.4,NIEN,.15,"I")
+6 IF PRM>0
SET VAL=VAL_" "_$$FMTE^XLFDT($$GET1^DIQ(9002086.4,NIEN,.02,"I"),"5ZD")
+7 IF PRM>1
SET VAL=VAL_" "_NTYP
+8 SET BWGRPCNT=$GET(BWGRPCNT)+1
SET BWGRPRNM(BWGRPCNT)=VAL
+9 QUIT
+10 ; Time Required Notification Screen
+11 ; VIEN = Represents either Patient or Procedure IEN dependent upon report context
+12 ; TXT = Notification Type must contain this text if present
+13 ;
NOTIFS(VIEN,TXT) ;
+1 NEW NIEN,XRF,LP,TM,RVAL1,RVAL2
+2 SET TXT=$GET(TXT,"")
+3 IF BWGRPTVS="P"
Begin DoDot:1
+4 ; Process patient
+5 SET XRF="B"
+6 SET LP=VIEN
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 ; Process procedure
+9 SET XRF="C"
+10 SET LP=$$GET1^DIQ(9002086.1,VIEN,.01,"I")
End DoDot:1
+11 SET NIEN=0
FOR
SET NIEN=$ORDER(^BWNOT(XRF,LP,NIEN))
IF NIEN=""
QUIT
Begin DoDot:1
+12 SET RVAL1=$PIECE(^BWGRTRPT(BWGRRPT,11,BWGRI,11,1,0),U)
SET RVAL2=$PIECE(^(0),U,2)
+13 SET TM=$$GET1^DIQ(9002086.4,NIEN,.15,"I")
+14 IF RVAL1>TM!(X>RVAL2)
QUIT
+15 SET X(RVAL1)=""
End DoDot:1
+16 QUIT
+17 ; Notification Screen
+18 ; Populate X array with Notifications matching selected screen type
+19 ; Input: SCNTYP = Screen Type
+20 ; "P"= Purpose
+21 ; "T"= Type
+22 ; "S"= Status
+23 ; "N" = Notification IEN array
NOTIFSCN(SCNTYP) ;
+1 NEW BWNIEN,BWNTYP,BWNDT,BWNPURP,BWNOUT,BWNBDT,BWNEDT,BWNSTAT,NODE0
+2 IF $LENGTH($GET(SCNTYP))<1
QUIT
+3 SET BWNBDT=$GET(BWGRBD,0)
+4 SET BWNEDT=$GET(BWGRED,9999999)
+5 SET BWNIEN=0
+6 FOR
SET BWNIEN=$ORDER(^BWNOT("B",DFN,BWNIEN))
IF 'BWNIEN
QUIT
Begin DoDot:1
+7 SET NODE0=^BWNOT(BWNIEN,0)
+8 SET BWNTYP=$PIECE(NODE0,U,3)
+9 SET BWNDT=$PIECE(NODE0,U,2)
+10 SET BWNPURP=$PIECE(NODE0,U,4)
+11 SET BWNOUT=$PIECE(NODE0,U,5)
+12 SET BWNSTAT=$PIECE(NODE0,U,14)
+13 ; Compare notification date with date range
+14 IF BWNDT<BWNBDT!(BWNDT>BWNEDT)
QUIT
+15 IF SCNTYP="T"
Begin DoDot:2
+16 IF BWNTYP
SET X(BWNTYP)=""
End DoDot:2
+17 IF '$TEST
IF SCNTYP="P"
Begin DoDot:2
+18 IF BWNPURP
SET X(BWNPURP)=""
End DoDot:2
+19 IF '$TEST
IF SCNTYP="O"
Begin DoDot:2
+20 IF BWNOUT
SET X(BWNOUT)=""
End DoDot:2
+21 IF '$TEST
IF SCNTYP="S"
Begin DoDot:2
+22 IF $LENGTH(BWNSTAT)
SET X(BWNSTAT)=""
End DoDot:2
+23 IF '$TEST
IF SCNTYP="N"
Begin DoDot:2
+24 SET X(BWNIEN)=""
End DoDot:2
End DoDot:1
+25 QUIT
+26 ; Build Print array for Notification Types/Purposes
NOTIFPTP(SCNTYP) ;
+1 NEW X,BWNIEN,VAL,BWNDTE,FLD
+2 SET SCNTYP=$GET(SCNTYP)
+3 SET FLD=$SELECT(SCNTYP="P":.04,SCNTYP="T":.03,SCNTYP="O":.05,SCNTYP="S":.14,1:"")
+4 IF 'FLD
QUIT
+5 DO NOTIFSCN("N")
+6 SET BWNIEN=0
FOR
SET BWNIEN=$ORDER(X(BWNIEN))
IF 'BWNIEN
QUIT
Begin DoDot:1
+7 SET BWNDTE=$$FMTE^XLFDT($$GET1^DIQ(9002086.4,BWNIEN,.02,"I"),"5Z")
+8 SET VAL=$EXTRACT($$GET1^DIQ(9002086.4,BWNIEN,FLD),1,20)
+9 IF SCNTYP'="S"
SET VAL=$SELECT('$LENGTH(VAL):"??",1:VAL)_" on "_BWNDTE
+10 SET BWGRPCNT=$GET(BWGRPCNT)+1
SET BWGRPRNM(BWGRPCNT)=VAL
End DoDot:1
+11 QUIT
