source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORB3REC.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
RevLine 
[613]1ORB3REC ; SLC/AEB - Notification Management Options for Recipients/Users ;4/30/01 09:52
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85,105,173**;Dec 17, 1997
3 ;
4ERASE ;
5 N ORBT S ORBT="Erase All of My Notifications"
6 D TITLE(ORBT)
7 I '$$GET^XPAR("ALL^USR.`"_DUZ,"ORB ERASE ALL",1,"Q") D Q
8 .W !,"You are not authorized to perform this function."
9 W !!,"This option purges all your existing notifications",!!?20,"*** USE WITH CAUTION ***"
10 W !!,$C(7),"Do you want to purge all notifications for recipient ",$P(^VA(200,DUZ,0),"^") S %=2 D YN^DICN D
11 .I %=0 W !,"Enter 'YES' if you want to purge all existing notifications for this person.",!,"Do you want to purge all notifications for this recipient" S %=2 D YN^DICN
12 Q:%'=1 W !!,"Purging notifications...",!
13 K %
14 D RECIPURG^XQALBUTL(DUZ)
15 Q
16PFLAG ;
17 N ORBT,ENT,PAR,PIEN
18 S ORBT="Enable/Disable My Notifications",PIEN=0
19 S PIEN=$O(^XTV(8989.51,"B","ORB PROCESSING FLAG",PIEN)) Q:PIEN=""
20 S PAR=PIEN
21 D TITLE(ORBT) D PROC
22 Q
23 ;
24FLGOB ;
25 N ORBT,ENT,PAR,PIEN
26 S ORBT="Set My Flagged Orders Bulletin",PIEN=0
27 S PIEN=$O(^XTV(8989.51,"B","ORB FLAGGED ORDERS BULLETIN",PIEN)) Q:PIEN=""
28 S PAR=PIEN
29 D TITLE(ORBT) D PROC
30 Q
31 ;
32USRNOTS ; List notifications a user could receive
33 D USRNOTS^ORB3U2(DUZ)
34 Q
35 ;
36TITLE(ORBT) ;
37 ; Center and write title
38 S IOP=0 D ^%ZIS K IOP W @IOF
39 W !,?(80-$L(ORBT)-1/2),ORBT
40 Q
41 ;
42PROC ; Process Parameter Settings
43 S ENT=DUZ_";VA(200," ; Entity is the recipient/user
44 W !,$$DASH($S($D(IOM):IOM-1,1:78))
45 D EDIT^XPAREDIT(ENT,PAR)
46 Q
47DASH(N) ;extrinsic function returns N dashes
48 N X
49 S $P(X,"-",N+1)=""
50 Q X
Note: See TracBrowser for help on using the repository browser.