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