ORWTPO ; SLC/STAFF Personal Preference - Order Checks ;5/1/01 12:27 [11/29/04 11:19am]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,195**;Dec 17, 1997
;
GETOTHER(INFO,USER) ; from ORWTPP
; get user's other parameter settings
S INFO=$$GET^XPAR("ALL^USR.`"_USER,"ORCH INITIAL TAB")
S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORCH USE LAST TAB")
S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR AUTOSAVE NOTE")
S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR VERIFY NOTE TITLE")
Q
;
SETOTHER(OK,INFO,USER) ; from ORWTPP
; save user's other parameter settings
N AUTO,LAST,TAB,VER
S OK=1
S TAB=$P(INFO,U),LAST=$P(INFO,U,2),AUTO=$P(INFO,U,3),VER=$P(INFO,U,4)
I $L(TAB) D EN^XPAR(USER_";VA(200,","ORCH INITIAL TAB",1,TAB)
I $L(LAST) D EN^XPAR(USER_";VA(200,","ORCH USE LAST TAB",1,$S(LAST:"YES",1:"NO"))
I $L(AUTO) D EN^XPAR(USER_";VA(200,","ORWOR AUTOSAVE NOTE",1,AUTO)
I $L(VER) D EN^XPAR(USER_";VA(200,","ORWOR VERIFY NOTE TITLE",1,$S(VER:"YES",1:"NO"))
Q
;
GETTABS(VALUES) ; RPC
; get tab names for patient chart
K VALUES
D PDSET^ORWTPUP("ORCH INITIAL TAB",.VALUES)
Q
;
CSLABD(INFO) ; RPC
; get lab defaults
N RNG
S INFO=""
F RNG="INPT","OUTPT" D
.S INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
Q
;
CSLAB(VAL,USER) ; from ORWTPP
; get user's lab date range defaults
N RNG
S VAL=""
F RNG="INPT","OUTPT" D
.S VAL=VAL_$$GET^XPAR("USR.`"_USER_"^DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
Q
;
CSARNGD(INFO) ; RPC
; get start, stop defaults
S INFO=$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
S INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
Q
;
CSARNG(VAL,USER) ; from ORWTPP
; get user's appt date range defaults
N ORSRV
S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
S VAL=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
S VAL=VAL_$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
Q
;
SAVECS(OK,INFO,USER) ; from ORWTPP
; save user's date range defaults
N INPT,OUTPT,START,STOP
S OK=1
S START=+$P(INFO,U,3) S START=$S(START=0:"T",START<0:"T"_START,1:"T+"_START)
S STOP=+$P(INFO,U,4) S STOP=$S(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
S INPT=+$P(INFO,U,1),INPT=$S('INPT:"@",1:INPT)
S OUTPT=+$P(INFO,U,2),OUTPT=$S('OUTPT:"@",1:OUTPT)
D EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE START",1,START)
D EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE STOP",1,STOP)
D EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE INPT",1,INPT)
D EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE OUTPT",1,OUTPT)
Q
GETIMGD(INFO) ; RPC
S INFO=$$GET^XPAR("SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
Q
;
GETIMG(INFO,USER) ; from ORWTPP
; get user's image report defaults
S INFO=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
Q
;
SETIMG(OK,MAX,START,STOP,USER) ; from ORWTPP
; save user's image report defaults
N VALUE S OK=0
I MAX'>0 Q
S START=$S(START=0:"T",START<0:"T"_START,1:"T+"_START)
S STOP=$S(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
S VALUE=START_";"_STOP_";;;"_MAX
S OK=1
D EN^XPAR(USER_";VA(200,","ORCH CONTEXT REPORTS",1,VALUE)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWTPO 3278 printed Apr 09, 2024@21:40:59 Page 2
ORWTPO ; SLC/STAFF Personal Preference - Order Checks ;5/1/01 12:27 [11/29/04 11:19am]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,195**;Dec 17, 1997
+2 ;
GETOTHER(INFO,USER) ; from ORWTPP
+1 ; get user's other parameter settings
+2 SET INFO=$$GET^XPAR("ALL^USR.`"_USER,"ORCH INITIAL TAB")
+3 SET INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORCH USE LAST TAB")
+4 SET INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR AUTOSAVE NOTE")
+5 SET INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR VERIFY NOTE TITLE")
+6 QUIT
+7 ;
SETOTHER(OK,INFO,USER) ; from ORWTPP
+1 ; save user's other parameter settings
+2 NEW AUTO,LAST,TAB,VER
+3 SET OK=1
+4 SET TAB=$PIECE(INFO,U)
SET LAST=$PIECE(INFO,U,2)
SET AUTO=$PIECE(INFO,U,3)
SET VER=$PIECE(INFO,U,4)
+5 IF $LENGTH(TAB)
DO EN^XPAR(USER_";VA(200,","ORCH INITIAL TAB",1,TAB)
+6 IF $LENGTH(LAST)
DO EN^XPAR(USER_";VA(200,","ORCH USE LAST TAB",1,$SELECT(LAST:"YES",1:"NO"))
+7 IF $LENGTH(AUTO)
DO EN^XPAR(USER_";VA(200,","ORWOR AUTOSAVE NOTE",1,AUTO)
+8 IF $LENGTH(VER)
DO EN^XPAR(USER_";VA(200,","ORWOR VERIFY NOTE TITLE",1,$SELECT(VER:"YES",1:"NO"))
+9 QUIT
+10 ;
GETTABS(VALUES) ; RPC
+1 ; get tab names for patient chart
+2 KILL VALUES
+3 DO PDSET^ORWTPUP("ORCH INITIAL TAB",.VALUES)
+4 QUIT
+5 ;
CSLABD(INFO) ; RPC
+1 ; get lab defaults
+2 NEW RNG
+3 SET INFO=""
+4 FOR RNG="INPT","OUTPT"
Begin DoDot:1
+5 SET INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
End DoDot:1
+6 QUIT
+7 ;
CSLAB(VAL,USER) ; from ORWTPP
+1 ; get user's lab date range defaults
+2 NEW RNG
+3 SET VAL=""
+4 FOR RNG="INPT","OUTPT"
Begin DoDot:1
+5 SET VAL=VAL_$$GET^XPAR("USR.`"_USER_"^DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
End DoDot:1
+6 QUIT
+7 ;
CSARNGD(INFO) ; RPC
+1 ; get start, stop defaults
+2 SET INFO=$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
+3 SET INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
+4 QUIT
+5 ;
CSARNG(VAL,USER) ; from ORWTPP
+1 ; get user's appt date range defaults
+2 NEW ORSRV
+3 ; Get S/S.
SET ORSRV=$GET(^VA(200,DUZ,5))
IF +ORSRV>0
SET ORSRV=$PIECE(ORSRV,U)
+4 SET VAL=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$GET(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
+5 SET VAL=VAL_$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$GET(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
+6 QUIT
+7 ;
SAVECS(OK,INFO,USER) ; from ORWTPP
+1 ; save user's date range defaults
+2 NEW INPT,OUTPT,START,STOP
+3 SET OK=1
+4 SET START=+$PIECE(INFO,U,3)
SET START=$SELECT(START=0:"T",START<0:"T"_START,1:"T+"_START)
+5 SET STOP=+$PIECE(INFO,U,4)
SET STOP=$SELECT(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
+6 SET INPT=+$PIECE(INFO,U,1)
SET INPT=$SELECT('INPT:"@",1:INPT)
+7 SET OUTPT=+$PIECE(INFO,U,2)
SET OUTPT=$SELECT('OUTPT:"@",1:OUTPT)
+8 DO EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE START",1,START)
+9 DO EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE STOP",1,STOP)
+10 DO EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE INPT",1,INPT)
+11 DO EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE OUTPT",1,OUTPT)
+12 QUIT
GETIMGD(INFO) ; RPC
+1 SET INFO=$$GET^XPAR("SRV.`"_+$GET(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
+2 QUIT
+3 ;
GETIMG(INFO,USER) ; from ORWTPP
+1 ; get user's image report defaults
+2 SET INFO=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$GET(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
+3 QUIT
+4 ;
SETIMG(OK,MAX,START,STOP,USER) ; from ORWTPP
+1 ; save user's image report defaults
+2 NEW VALUE
SET OK=0
+3 IF MAX'>0
QUIT
+4 SET START=$SELECT(START=0:"T",START<0:"T"_START,1:"T+"_START)
+5 SET STOP=$SELECT(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
+6 SET VALUE=START_";"_STOP_";;;"_MAX
+7 SET OK=1
+8 DO EN^XPAR(USER_";VA(200,","ORCH CONTEXT REPORTS",1,VALUE)
+9 QUIT
