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

ORWTPP.m

Go to the documentation of this file. 
  1. ORWTPP ; SLC/STAFF Personal Preference - Personal ; 3/11/08 6:34am
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,149,243**;Oct 24, 2000;Build 242
  1.  ;
  1. NEWLIST(VAL,LISTNAME,ORVIZ) ; RPC
  1.  ; set current user's new personal list
  1.  D NEWLIST^ORWTPL(.VAL,LISTNAME,DUZ,$G(ORVIZ))
  1.  Q
  1.  ;
  1. DELLIST(OK,LISTNUM) ; RPC
  1.  ; delete current user's personal list
  1.  D DELLIST^ORWTPL(.OK,LISTNUM,DUZ)
  1.  Q
  1.  ;
  1. SAVELIST(OK,PLIST,LISTNUM,ORVIZ) ; RPC
  1.  ; save current user's personal list changes
  1.  D SAVELIST^ORWTPL(.OK,.PLIST,LISTNUM,DUZ,$G(ORVIZ))
  1.  Q
  1.  ;
  1. LSDEF(INFO) ; RPC
  1.  ; get current user's list sources
  1.  D LSDEF^ORWTPL(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SORTDEF(VALUE) ; RPC
  1.  ; get current user's sort order
  1.  D SORTDEF^ORWTPL(.VALUE,DUZ)
  1.  Q
  1.  ;
  1. CLDAYS(INFO) ; RPC
  1.  ; get current user's clinic defaults
  1.  D CLDAYS^ORWTPL(.INFO,DUZ)
  1.  Q
  1.  ;
  1. CLRANGE(INFO) ; RPC
  1.  ; get current user's default clinic start, stop dates
  1.  D CLRANGE^ORWTPL(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SAVECD(OK,INFO) ; RPC
  1.  ; save current user's clinic defaults
  1.  D SAVECD^ORWTPL(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. SAVEPLD(OK,INFO) ; RPC
  1.  ; save current user's list selection defaults
  1.  D SAVEPLD^ORWTPL(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. CSLAB(INFO) ; RPC
  1.  ; get lab date range defaults
  1.  D CSLAB^ORWTPO(.INFO,DUZ)
  1.  Q
  1.  ;
  1. CSARNG(INFO) ; RPC
  1.  ; get current user's start, stop defaults
  1.  D CSARNG^ORWTPO(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SAVECS(OK,INFO) ; RPC
  1.  ; save current user's date range defaults
  1.  D SAVECS^ORWTPO(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. GETIMG(INFO) ; RPC
  1.  ; get current user's image report defaults
  1.  D GETIMG^ORWTPO(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SETIMG(OK,MAX,START,STOP) ; RPC
  1.  ; save current user's image report defaults
  1.  D SETIMG^ORWTPO(.OK,MAX,START,STOP,DUZ)
  1.  Q
  1.  ;
  1. GETREM(VALUES) ; RPC
  1.  ; get current user's reminders
  1.  D GETREM^ORWTPR(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. SETREM(OK,VALUES) ; RPC
  1.  ; set current user's reminders
  1.  D SETREM^ORWTPR(.OK,.VALUES,DUZ)
  1.  Q
  1.  ;
  1. GETOC(VALUES) ; RPC
  1.  ; get current user's order checks
  1.  D GETOC^ORWTPR(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. SAVEOC(OK,VALUES) ; RPC
  1.  ; save current user's order checks
  1.  D SAVEOC^ORWTPR(.OK,.VALUES,DUZ)
  1.  Q
  1.  ;
  1. GETNOT(VALUES) ; RPC
  1.  ; get current user's notifications
  1.  D GETNOT^ORWTPR(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. SAVENOT(OK,VALUES) ; RPC
  1.  ; save current user's notifications
  1.  D SAVENOT^ORWTPR(.OK,.VALUES,DUZ)
  1.  Q
  1.  ;
  1. CLEARNOT(OK) ; RPC
  1.  ; clear current user's notifications
  1.  D CLEARNOT^ORWTPR(.OK,DUZ)
  1.  Q
  1.  ;
  1. GETNOTO(INFO) ; RPC
  1.  ; get current user's other info for notifications
  1.  D GETNOTO^ORWTPR(.INFO,DUZ)
  1.  Q
  1.  ;
  1. CHKSURR(OK,SURR) ; RPC
  1.  ; check if current user's surrogate is valid
  1.  S OK=$$CHKSURR^ORWTPUA(DUZ,SURR)
  1.  Q
  1.  ;
  1. GETSURR(INFO) ; RPC
  1.  ; get current user's surrogate info
  1.  D GETSURR^ORWTPR(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SAVESURR(OK,INFO) ; RPC
  1.  ; save current user's surrogate info
  1.  D SAVESURR^ORWTPR(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. SAVENOTO(OK,INFO) ; RPC
  1.  ; save current user's notification info
  1.  D SAVENOTO^ORWTPR(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. GETOTHER(INFO) ; RPC
  1.  ; get user's other parameter settings
  1.  D GETOTHER^ORWTPO(.INFO,DUZ)
  1.  Q
  1.  ;
  1. SETOTHER(OK,INFO) ; RPC
  1.  ; set current user's other parameter settings
  1.  D SETOTHER^ORWTPO(.OK,INFO,DUZ)
  1.  Q
  1.  ;
  1. GETSUB(VALUE) ; RPC
  1.  ; get Ask for Subject on notes for current user
  1.  D GETSUB^ORWTPN(.VALUE,DUZ)
  1.  Q
  1.  ;
  1. GETCOS(VALUES,FROM,DIR,VISITORS) ; RPC
  1.  ; get elgible cosigners for current user
  1.  I '$G(VISITORS) S VISITORS=""
  1.  D GETCOS^ORWTPN(.VALUES,DUZ,FROM,DIR,VISITORS)
  1.  Q
  1.  ;
  1. GETDCOS(VALUE) ; RPC
  1.  ; get default cosigner for current user
  1.  D GETDCOS^ORWTPN(.VALUE,DUZ)
  1.  Q
  1.  ;
  1. SETDCOS(OK,VALUE) ; RPC
  1.  ; set default cosigner for current user
  1.  D SETDCOS^ORWTPN(.OK,VALUE,DUZ)
  1.  Q
  1.  ;
  1. SETSUB(OK,VALUE) ; RPC
  1.  ; set Ask for Subject on note for current user
  1.  D SETSUB^ORWTPN(.OK,VALUE,DUZ)
  1.  Q
  1.  ;
  1. GETTU(VALUES,CLASS) ; RPC
  1.  ; get titles for current user
  1.  D GETTU^ORWTPN(.VALUES,CLASS,DUZ)
  1.  Q
  1.  ;
  1. GETTD(VALUE,CLASS) ; RPC
  1.  ; get default title for current user
  1.  D GETTD^ORWTPN(.VALUE,CLASS,DUZ)
  1.  Q
  1.  ;
  1. SAVET(OK,CLASS,DEFAULT,VALUES) ; RPC
  1.  ; save titles for current user
  1.  D SAVET^ORWTPN(.OK,CLASS,DEFAULT,.VALUES,DUZ)
  1.  Q
  1.  ;
  1. PLISTS(VALUES) ; RPC
  1.  ; get current user's personal lists
  1.  D PLISTS^ORWTPT(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. PLTEAMS(VALUES) ; RPC
  1.  ; get current user's teams and personal lists
  1.  D PLTEAMS^ORWTPT(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. TEAMS(VALUES) ; RPC
  1.  ; get teams for current user
  1.  D TEAMS^ORWTPT(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. ADDLIST(OK,VALUE) ; RPC
  1.  ; adds current user to a team
  1.  D ADDLIST^ORWTPT(.OK,VALUE,DUZ)
  1.  Q
  1.  ;
  1. REMLIST(OK,VALUE) ; RPC
  1.  ; removes current user from a team
  1.  D REMLIST^ORWTPT(.OK,VALUE,DUZ)
  1.  Q
  1.  ;
  1. GETCOMBO(VALUES) ; RPC
  1.  ; get current user's combo list definition
  1.  D GETCOMBO^ORWTPT(.VALUES,DUZ)
  1.  Q
  1.  ;
  1. SETCOMBO(OK,VALUES) ; RPC
  1.  ; set current user's combo list definition
  1.  D SETCOMBO^ORWTPT(.OK,.VALUES,DUZ)
  1.  Q