| 1 | ORB3REC ; 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 | ;
|
|---|
| 4 | ERASE ;
|
|---|
| 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
|
|---|
| 16 | PFLAG ;
|
|---|
| 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 | ;
|
|---|
| 24 | FLGOB ;
|
|---|
| 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 | ;
|
|---|
| 32 | USRNOTS ; List notifications a user could receive
|
|---|
| 33 | D USRNOTS^ORB3U2(DUZ)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | TITLE(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 | ;
|
|---|
| 42 | PROC ; 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
|
|---|
| 47 | DASH(N) ;extrinsic function returns N dashes
|
|---|
| 48 | N X
|
|---|
| 49 | S $P(X,"-",N+1)=""
|
|---|
| 50 | Q X
|
|---|
