Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORB3REC

ORB3REC.m

Go to the documentation of this file.
  1. ORB3REC ; SLC/AEB - Notification Management Options for Recipients/Users ;4/30/01 09:52
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85,105,173**;Dec 17, 1997
  1. ;
  1. ERASE ;
  1. N ORBT S ORBT="Erase All of My Notifications"
  1. D TITLE(ORBT)
  1. I '$$GET^XPAR("ALL^USR.`"_DUZ,"ORB ERASE ALL",1,"Q") D Q
  1. .W !,"You are not authorized to perform this function."
  1. W !!,"This option purges all your existing notifications",!!?20,"*** USE WITH CAUTION ***"
  1. W !!,$C(7),"Do you want to purge all notifications for recipient ",$P(^VA(200,DUZ,0),"^") S %=2 D YN^DICN D
  1. .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
  1. Q:%'=1 W !!,"Purging notifications...",!
  1. K %
  1. D RECIPURG^XQALBUTL(DUZ)
  1. Q
  1. PFLAG ;
  1. N ORBT,ENT,PAR,PIEN
  1. S ORBT="Enable/Disable My Notifications",PIEN=0
  1. S PIEN=$O(^XTV(8989.51,"B","ORB PROCESSING FLAG",PIEN)) Q:PIEN=""
  1. S PAR=PIEN
  1. D TITLE(ORBT) D PROC
  1. Q
  1. ;
  1. FLGOB ;
  1. N ORBT,ENT,PAR,PIEN
  1. S ORBT="Set My Flagged Orders Bulletin",PIEN=0
  1. S PIEN=$O(^XTV(8989.51,"B","ORB FLAGGED ORDERS BULLETIN",PIEN)) Q:PIEN=""
  1. S PAR=PIEN
  1. D TITLE(ORBT) D PROC
  1. Q
  1. ;
  1. USRNOTS ; List notifications a user could receive
  1. D USRNOTS^ORB3U2(DUZ)
  1. Q
  1. ;
  1. TITLE(ORBT) ;
  1. ; Center and write title
  1. S IOP=0 D ^%ZIS K IOP W @IOF
  1. W !,?(80-$L(ORBT)-1/2),ORBT
  1. Q
  1. ;
  1. PROC ; Process Parameter Settings
  1. S ENT=DUZ_";VA(200," ; Entity is the recipient/user
  1. W !,$$DASH($S($D(IOM):IOM-1,1:78))
  1. D EDIT^XPAREDIT(ENT,PAR)
  1. Q
  1. DASH(N) ;extrinsic function returns N dashes
  1. N X
  1. S $P(X,"-",N+1)=""
  1. Q X