ORB3MGR1 ; SLC/AEB - Manager Options - Notifications Parameters ;9/22/97
;;3.0;ORDER ENTRY/RESULTS REPORTING;**31,74,85,88,105,139,173,220**;Dec 17, 1997
;
;Calls to Add/Change/Delete Parameters
;
URG ; Notification Urgency - By Entity
;
N ORBT,ORBPAR,PIEN
S ORBT="Set URGENCY Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB URGENCY",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
DEL ;
N ORBT,ORBPAR,PIEN
S ORBT="Set DELETE MECHANISM Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB DELETE MECHANISM",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
REGR ;
N ORBT,ORBPAR,PIEN
S ORBT="Set REGULAR (DEFAULT) RECIPIENTS Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB DEFAULT RECIPIENTS",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
REGDEV ;
N ORBT,ORBPAR,PIEN
S ORBT="Set REGULAR (DEFAULT) RECIPIENT DEVICES Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB DEFAULT RECIPIENT DEVICES",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
TITLR ;
N ORBT,ORBPAR,PIEN
S ORBT="Set PROVIDER RECIPIENTS Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB PROVIDER RECIPIENTS",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
PFLAG ;
N ORBT,ORBPAR,PIEN
S ORBT="Set PROCESSING FLAG Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB PROCESSING FLAG",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
ERASE ;
N ORBT,ORBX,ORBPAR,ORBER,DUOUT,DIRUT
S ORBT="Erase Notifications"
S ORBER=0
Q:$D(DUOUT)!(ORBER="")
D TITLE(ORBT)
W !!!,?5,"1. Erase all notifications for a User "
W !!,?5,"2. Erase all notifications for a Patient "
W !!,?5,"3. Erase all instances of a notification (regardless of Patient or User) "
W !!,?5,"4. Erase specific notifications for a User "
W !!,?5,"5. Edit Erase All Notifications parameter for a User ",!!
K DIR S DIR(0)="NAO^1:5",DIR("A")="Select Erase option: "
D ^DIR S ORBER=Y K DIR Q:$D(DIRUT)
K Y,X,DTOUT,DUOUT,DIRUT
I (ORBER=1) D RECIPURG^ORB3MGR2
I (ORBER=2) D PTPURG^ORB3MGR2
I (ORBER=3) D NOTIPURG^ORB3MGR2
I (ORBER=4) D USERDEL^ORB3MGR2
I (ORBER=5) D ERASEALL^ORB3MGR2
D ERASE
Q
;
FLGOI ;
N ORBT,ORBOI,DIRUT,DUOUT,Y
S ORBT="Flag ORDERABLE ITEMS to send Notifications"
F D Q:$D(DUOUT)!(Y="")
.S Y=0
.D TITLE(ORBT)
.W !!,"1. Flag INPATIENT orders/results/expiring orders."
.W !,"2. Flag OUTPATIENT orders/results/expiring orders."
.W !,"3. Flag Lab tests for Threshold Exceeded alerts.",!
.K DIR S DIR(0)="NAO^1:3",DIR("A")="Select ""1"" to flag INPT orders/results, ""2"" to flag OUTPT orders/results, ""3"" to set Lab Thresholds: "
.D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
.K X,DTOUT,DUOUT,DIRUT
.I ORBOI=1 D INPTOI
.I ORBOI=2 D OUTPTOI
.I ORBOI=3 D LABTHRES^ORB3MGR2
Q
INPTOI ;
N ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
S ORBT="Flag INPATIENT orderable items to send Notifications/Alerts"
F D Q:$D(DUOUT)!(Y="")
.D TITLE(ORBT)
.W !!,"1. Flag Inpatient ORDERS."
.W !,"2. Flag Inpatient ORDERS for PROVIDER RECIPIENTS."
.W !,"3. Flag Inpatient RESULTS."
.W !,"4. Flag Inpatient RESULTS for PROVIDER RECIPIENTS."
.W !,"5. Flag Inpatient EXPIRING orders."
.W !,"6. Flag Inpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
.S PIEN=0,Y=0
.K DIR S DIR(0)="NAO^1:6",DIR("A")="Select ""1 or 2"" to flag inpt ORDERS, ""3 or 4"" to flag inpt RESULTS, ""5 or 6"" to flag inpt EXPIRING orders: "
.D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
.K X,DTOUT,DUOUT,DIRUT
.I ORBOI=1 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - INPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=2 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - INPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=3 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - INPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=4 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - INPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=5 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - INPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=6 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - INPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.D PROC(ORBPAR)
Q
;
OUTPTOI ;
N ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
S ORBT="Flag OUTPATIENT orderable items to send Notifications"
F D Q:$D(DUOUT)!(Y="")
.D TITLE(ORBT)
.W !!,"1. Flag Outpatient ORDERS."
.W !,"2. Flag Outpatient ORDERS for PROVIDER RECIPIENTS."
.W !,"3. Flag Outpatient RESULTS."
.W !,"4. Flag Outpatient RESULTS for PROVIDER RECIPIENTS."
.W !,"5. Flag Outpatient EXPIRING orders."
.W !,"6. Flag Outpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
.S PIEN=0,Y=0
.K DIR S DIR(0)="NAO^1:6",DIR("A")="Select ""1 or 2"" to flag outpt ORDERS, ""3 or 4"" to flag outpt RESULTS, ""5 or 6"" to flag outpt EXPIRING orders: "
.D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
.K X,DTOUT,DUOUT,DIRUT
.I ORBOI=1 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=2 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=3 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=4 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=5 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.I ORBOI=6 D
..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT PR",PIEN)) Q:PIEN=""
..S ORBPAR=PIEN
.D PROC(ORBPAR)
Q
;
ARC ;
N ORBT,ORBPAR,PIEN
S ORBT="Set ARCHIVE PERIOD Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB ARCHIVE PERIOD",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
FSUPER ;
N ORBT,ORBPAR,PIEN
S ORBT="Set FORWARD SUPERVISOR Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD SUPERVISOR",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
FSURR ;
N ORBT,ORBPAR,PIEN
S ORBT="Set FORWARD SURROGATES Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD SURROGATES",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
FREVIEW ;
N ORBT,ORBPAR,PIEN
S ORBT="Set FORWARD BACKUP REVIEWER Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD BACKUP REVIEWER",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
FLGOB ;
N ORBT,ORBPAR,PIEN
S ORBT="Set FLAGGED ORDERS BULLETIN Parameters for Notifications",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB FLAGGED ORDERS BULLETIN",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
SYSEN ;
N ORBT,ORBPAR,PIEN
S ORBT="Enable or Disable Notification System",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB SYSTEM ENABLE/DISABLE",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
UVMED ;
N ORBT,ORBPAR,PIEN
S ORBT="Set Delay for Unverified Medication Orders",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB UNVERIFIED MED ORDER",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
UNVER ;
N ORBT,ORBPAR,PIEN
S ORBT="Set Delay for All Unverified Orders",PIEN=0
S PIEN=$O(^XTV(8989.51,"B","ORB UNVERIFIED ORDER",PIEN)) Q:PIEN=""
S ORBPAR=PIEN
D TITLE(ORBT) D PROC(ORBPAR)
Q
;
TITLE(ORBT) ;
; Center and write title - Parameter to be set
S IOP=0 D ^%ZIS K IOP W @IOF
W !,?(80-$L(ORBT)-1/2),ORBT
Q
;
PROC(ORBPAR) ; Process Parameter Settings
D EDITPAR^XPAREDIT(ORBPAR)
Q
ORB3MGR1 ; SLC/AEB - Manager Options - Notifications Parameters ;9/22/97
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31,74,85,88,105,139,173,220**;Dec 17, 1997
+2 ;
+3 ;Calls to Add/Change/Delete Parameters
+4 ;
URG ; Notification Urgency - By Entity
+1 ;
+2 NEW ORBT,ORBPAR,PIEN
+3 SET ORBT="Set URGENCY Parameters for Notifications"
SET PIEN=0
+4 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB URGENCY",PIEN))
IF PIEN=""
QUIT
+5 SET ORBPAR=PIEN
+6 DO TITLE(ORBT)
DO PROC(ORBPAR)
+7 QUIT
+8 ;
DEL ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set DELETE MECHANISM Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB DELETE MECHANISM",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
REGR ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set REGULAR (DEFAULT) RECIPIENTS Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB DEFAULT RECIPIENTS",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
REGDEV ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set REGULAR (DEFAULT) RECIPIENT DEVICES Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB DEFAULT RECIPIENT DEVICES",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
TITLR ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set PROVIDER RECIPIENTS Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB PROVIDER RECIPIENTS",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
PFLAG ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set PROCESSING FLAG Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB PROCESSING FLAG",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
ERASE ;
+1 NEW ORBT,ORBX,ORBPAR,ORBER,DUOUT,DIRUT
+2 SET ORBT="Erase Notifications"
+3 SET ORBER=0
+4 IF $DATA(DUOUT)!(ORBER="")
QUIT
+5 DO TITLE(ORBT)
+6 WRITE !!!,?5,"1. Erase all notifications for a User "
+7 WRITE !!,?5,"2. Erase all notifications for a Patient "
+8 WRITE !!,?5,"3. Erase all instances of a notification (regardless of Patient or User) "
+9 WRITE !!,?5,"4. Erase specific notifications for a User "
+10 WRITE !!,?5,"5. Edit Erase All Notifications parameter for a User ",!!
+11 KILL DIR
SET DIR(0)="NAO^1:5"
SET DIR("A")="Select Erase option: "
+12 DO ^DIR
SET ORBER=Y
KILL DIR
IF $DATA(DIRUT)
QUIT
+13 KILL Y,X,DTOUT,DUOUT,DIRUT
+14 IF (ORBER=1)
DO RECIPURG^ORB3MGR2
+15 IF (ORBER=2)
DO PTPURG^ORB3MGR2
+16 IF (ORBER=3)
DO NOTIPURG^ORB3MGR2
+17 IF (ORBER=4)
DO USERDEL^ORB3MGR2
+18 IF (ORBER=5)
DO ERASEALL^ORB3MGR2
+19 DO ERASE
+20 QUIT
+21 ;
FLGOI ;
+1 NEW ORBT,ORBOI,DIRUT,DUOUT,Y
+2 SET ORBT="Flag ORDERABLE ITEMS to send Notifications"
+3 FOR
Begin DoDot:1
+4 SET Y=0
+5 DO TITLE(ORBT)
+6 WRITE !!,"1. Flag INPATIENT orders/results/expiring orders."
+7 WRITE !,"2. Flag OUTPATIENT orders/results/expiring orders."
+8 WRITE !,"3. Flag Lab tests for Threshold Exceeded alerts.",!
+9 KILL DIR
SET DIR(0)="NAO^1:3"
SET DIR("A")="Select ""1"" to flag INPT orders/results, ""2"" to flag OUTPT orders/results, ""3"" to set Lab Thresholds: "
+10 DO ^DIR
SET ORBOI=Y
KILL DIR
IF $DATA(DIRUT)
QUIT
+11 KILL X,DTOUT,DUOUT,DIRUT
+12 IF ORBOI=1
DO INPTOI
+13 IF ORBOI=2
DO OUTPTOI
+14 IF ORBOI=3
DO LABTHRES^ORB3MGR2
End DoDot:1
IF $DATA(DUOUT)!(Y="")
QUIT
+15 QUIT
INPTOI ;
+1 NEW ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
+2 SET ORBT="Flag INPATIENT orderable items to send Notifications/Alerts"
+3 FOR
Begin DoDot:1
+4 DO TITLE(ORBT)
+5 WRITE !!,"1. Flag Inpatient ORDERS."
+6 WRITE !,"2. Flag Inpatient ORDERS for PROVIDER RECIPIENTS."
+7 WRITE !,"3. Flag Inpatient RESULTS."
+8 WRITE !,"4. Flag Inpatient RESULTS for PROVIDER RECIPIENTS."
+9 WRITE !,"5. Flag Inpatient EXPIRING orders."
+10 WRITE !,"6. Flag Inpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
+11 SET PIEN=0
SET Y=0
+12 KILL DIR
SET DIR(0)="NAO^1:6"
SET DIR("A")="Select ""1 or 2"" to flag inpt ORDERS, ""3 or 4"" to flag inpt RESULTS, ""5 or 6"" to flag inpt EXPIRING orders: "
+13 DO ^DIR
SET ORBOI=Y
KILL DIR
IF $DATA(DIRUT)
QUIT
+14 KILL X,DTOUT,DUOUT,DIRUT
+15 IF ORBOI=1
Begin DoDot:2
+16 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI ORDERED - INPT",PIEN))
IF PIEN=""
QUIT
+17 SET ORBPAR=PIEN
End DoDot:2
+18 IF ORBOI=2
Begin DoDot:2
+19 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI ORDERED - INPT PR",PIEN))
IF PIEN=""
QUIT
+20 SET ORBPAR=PIEN
End DoDot:2
+21 IF ORBOI=3
Begin DoDot:2
+22 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI RESULTS - INPT",PIEN))
IF PIEN=""
QUIT
+23 SET ORBPAR=PIEN
End DoDot:2
+24 IF ORBOI=4
Begin DoDot:2
+25 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI RESULTS - INPT PR",PIEN))
IF PIEN=""
QUIT
+26 SET ORBPAR=PIEN
End DoDot:2
+27 IF ORBOI=5
Begin DoDot:2
+28 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI EXPIRING - INPT",PIEN))
IF PIEN=""
QUIT
+29 SET ORBPAR=PIEN
End DoDot:2
+30 IF ORBOI=6
Begin DoDot:2
+31 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI EXPIRING - INPT PR",PIEN))
IF PIEN=""
QUIT
+32 SET ORBPAR=PIEN
End DoDot:2
+33 DO PROC(ORBPAR)
End DoDot:1
IF $DATA(DUOUT)!(Y="")
QUIT
+34 QUIT
+35 ;
OUTPTOI ;
+1 NEW ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
+2 SET ORBT="Flag OUTPATIENT orderable items to send Notifications"
+3 FOR
Begin DoDot:1
+4 DO TITLE(ORBT)
+5 WRITE !!,"1. Flag Outpatient ORDERS."
+6 WRITE !,"2. Flag Outpatient ORDERS for PROVIDER RECIPIENTS."
+7 WRITE !,"3. Flag Outpatient RESULTS."
+8 WRITE !,"4. Flag Outpatient RESULTS for PROVIDER RECIPIENTS."
+9 WRITE !,"5. Flag Outpatient EXPIRING orders."
+10 WRITE !,"6. Flag Outpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
+11 SET PIEN=0
SET Y=0
+12 KILL DIR
SET DIR(0)="NAO^1:6"
SET DIR("A")="Select ""1 or 2"" to flag outpt ORDERS, ""3 or 4"" to flag outpt RESULTS, ""5 or 6"" to flag outpt EXPIRING orders: "
+13 DO ^DIR
SET ORBOI=Y
KILL DIR
IF $DATA(DIRUT)
QUIT
+14 KILL X,DTOUT,DUOUT,DIRUT
+15 IF ORBOI=1
Begin DoDot:2
+16 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT",PIEN))
IF PIEN=""
QUIT
+17 SET ORBPAR=PIEN
End DoDot:2
+18 IF ORBOI=2
Begin DoDot:2
+19 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT PR",PIEN))
IF PIEN=""
QUIT
+20 SET ORBPAR=PIEN
End DoDot:2
+21 IF ORBOI=3
Begin DoDot:2
+22 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT",PIEN))
IF PIEN=""
QUIT
+23 SET ORBPAR=PIEN
End DoDot:2
+24 IF ORBOI=4
Begin DoDot:2
+25 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT PR",PIEN))
IF PIEN=""
QUIT
+26 SET ORBPAR=PIEN
End DoDot:2
+27 IF ORBOI=5
Begin DoDot:2
+28 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT",PIEN))
IF PIEN=""
QUIT
+29 SET ORBPAR=PIEN
End DoDot:2
+30 IF ORBOI=6
Begin DoDot:2
+31 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT PR",PIEN))
IF PIEN=""
QUIT
+32 SET ORBPAR=PIEN
End DoDot:2
+33 DO PROC(ORBPAR)
End DoDot:1
IF $DATA(DUOUT)!(Y="")
QUIT
+34 QUIT
+35 ;
ARC ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set ARCHIVE PERIOD Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB ARCHIVE PERIOD",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
FSUPER ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set FORWARD SUPERVISOR Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB FORWARD SUPERVISOR",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
FSURR ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set FORWARD SURROGATES Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB FORWARD SURROGATES",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
FREVIEW ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set FORWARD BACKUP REVIEWER Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB FORWARD BACKUP REVIEWER",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
FLGOB ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set FLAGGED ORDERS BULLETIN Parameters for Notifications"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB FLAGGED ORDERS BULLETIN",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
SYSEN ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Enable or Disable Notification System"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB SYSTEM ENABLE/DISABLE",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
UVMED ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set Delay for Unverified Medication Orders"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB UNVERIFIED MED ORDER",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
UNVER ;
+1 NEW ORBT,ORBPAR,PIEN
+2 SET ORBT="Set Delay for All Unverified Orders"
SET PIEN=0
+3 SET PIEN=$ORDER(^XTV(8989.51,"B","ORB UNVERIFIED ORDER",PIEN))
IF PIEN=""
QUIT
+4 SET ORBPAR=PIEN
+5 DO TITLE(ORBT)
DO PROC(ORBPAR)
+6 QUIT
+7 ;
TITLE(ORBT) ;
+1 ; Center and write title - Parameter to be set
+2 SET IOP=0
DO ^%ZIS
KILL IOP
WRITE @IOF
+3 WRITE !,?(80-$LENGTH(ORBT)-1/2),ORBT
+4 QUIT
+5 ;
PROC(ORBPAR) ; Process Parameter Settings
+1 DO EDITPAR^XPAREDIT(ORBPAR)
+2 QUIT
