- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORB3MGR1 7739 printed Jan 18, 2025@03:28:36 Page 2
- 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