- 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 Feb 19, 2025@00:04:07 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