ORWTPP ; SLC/STAFF PERSONAL PREFERENCE - PERSONAL ;02/09/23 07:25
;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,149,243,377,539,405,596**;Oct 24, 2000;Build 7
;
Q
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
;
GETSURRS(INFO) ; RPC ;TDP - Added for CPRSv32 (*405) surrogate modifications
; get surrogate info for current user
D GETSURRS^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,ORSIM) ; RPC
; get elgible cosigners for current user
I '$G(VISITORS) S VISITORS=""
S ORSIM=+$G(ORSIM)
; *596 ajb
I $$GET^XPAR("SYS","ORNEWPERS ACTIVE") D Q ; use new entry point^routine only if value is YES (default is YES)
. N I,PARAMS,PRM S PARAMS("DFC")=1,PARAMS("HELP")=0,PRM(0)="FROM^DIR^RDV^SPN"
. S PRM=$P($P($P($T(GETCOS),"(",2),")"),",",2,$L($P($P($T(GETCOS),"(",2),")"))) ; set string of parameters from NEWPERS
. F I=1:1:$L(PRM,",") S PARAMS($P(PRM(0),U,I))=$G(@($P(PRM,",",I))) ; set variables to pass by reference
. D NEWPERSON^ORNEWPERS(.VALUES,.PARAMS)
; *596 ajb
D GETCOS^ORWTPN(.VALUES,DUZ,FROM,DIR,VISITORS,ORSIM)
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
;
PCMTEAMS(VALUES) ; RPC
; TDP - Added 5/21/2014
; get current user's PCMM teams
D PCMTEAMS^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
;
SURRDFLT(OK,ACTION,VALUES) ; RPC
; set or retrieve the surrogate tab default settings
I ACTION="SAVE" D SVSRDFLT^ORWTPR(.OK,VALUES) Q ; save default surrogate settings
I ACTION="GET" D GTSRDFLT^ORWTPR(.OK,VALUES) Q ; retrieve default surrogate settings
S OK="-1^ACTION IS INVALID"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWTPP 5937 printed Oct 16, 2024@18:38:09 Page 2
ORWTPP ; SLC/STAFF PERSONAL PREFERENCE - PERSONAL ;02/09/23 07:25
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,149,243,377,539,405,596**;Oct 24, 2000;Build 7
+2 ;
+3 QUIT
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 ;
GETSURRS(INFO) ; RPC ;TDP - Added for CPRSv32 (*405) surrogate modifications
+1 ; get surrogate info for current user
+2 DO GETSURRS^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,ORSIM) ; RPC
+1 ; get elgible cosigners for current user
+2 IF '$GET(VISITORS)
SET VISITORS=""
+3 SET ORSIM=+$GET(ORSIM)
+4 ; *596 ajb
+5 ; use new entry point^routine only if value is YES (default is YES)
IF $$GET^XPAR("SYS","ORNEWPERS ACTIVE")
Begin DoDot:1
+6 NEW I,PARAMS,PRM
SET PARAMS("DFC")=1
SET PARAMS("HELP")=0
SET PRM(0)="FROM^DIR^RDV^SPN"
+7 ; set string of parameters from NEWPERS
SET PRM=$PIECE($PIECE($PIECE($TEXT(GETCOS),"(",2),")"),",",2,$LENGTH($PIECE($PIECE($TEXT(GETCOS),"(",2),")")))
+8 ; set variables to pass by reference
FOR I=1:1:$LENGTH(PRM,",")
SET PARAMS($PIECE(PRM(0),U,I))=$GET(@($PIECE(PRM,",",I)))
+9 DO NEWPERSON^ORNEWPERS(.VALUES,.PARAMS)
End DoDot:1
QUIT
+10 ; *596 ajb
+11 DO GETCOS^ORWTPN(.VALUES,DUZ,FROM,DIR,VISITORS,ORSIM)
+12 QUIT
+13 ;
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 ;
PCMTEAMS(VALUES) ; RPC
+1 ; TDP - Added 5/21/2014
+2 ; get current user's PCMM teams
+3 DO PCMTEAMS^ORWTPT(.VALUES,DUZ)
+4 QUIT
+5 ;
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
+4 ;
SURRDFLT(OK,ACTION,VALUES) ; RPC
+1 ; set or retrieve the surrogate tab default settings
+2 ; save default surrogate settings
IF ACTION="SAVE"
DO SVSRDFLT^ORWTPR(.OK,VALUES)
QUIT
+3 ; retrieve default surrogate settings
IF ACTION="GET"
DO GTSRDFLT^ORWTPR(.OK,VALUES)
QUIT
+4 SET OK="-1^ACTION IS INVALID"
+5 QUIT
