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