source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWTPO.m@ 1801

Last change on this file since 1801 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.1 KB
Line 
1ORWTPO ; SLC/STAFF Personal Preference - Order Checks ;5/1/01 12:27 [11/29/04 11:19am]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,195**;Dec 17, 1997
3 ;
4GETOTHER(INFO,USER) ; from ORWTPP
5 ; get user's other parameter settings
6 S INFO=$$GET^XPAR("ALL^USR.`"_USER,"ORCH INITIAL TAB")
7 S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORCH USE LAST TAB")
8 S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR AUTOSAVE NOTE")
9 S INFO=INFO_U_$$GET^XPAR("ALL^USR.`"_USER,"ORWOR VERIFY NOTE TITLE")
10 Q
11 ;
12SETOTHER(OK,INFO,USER) ; from ORWTPP
13 ; save user's other parameter settings
14 N AUTO,LAST,TAB,VER
15 S OK=1
16 S TAB=$P(INFO,U),LAST=$P(INFO,U,2),AUTO=$P(INFO,U,3),VER=$P(INFO,U,4)
17 I $L(TAB) D EN^XPAR(USER_";VA(200,","ORCH INITIAL TAB",1,TAB)
18 I $L(LAST) D EN^XPAR(USER_";VA(200,","ORCH USE LAST TAB",1,$S(LAST:"YES",1:"NO"))
19 I $L(AUTO) D EN^XPAR(USER_";VA(200,","ORWOR AUTOSAVE NOTE",1,AUTO)
20 I $L(VER) D EN^XPAR(USER_";VA(200,","ORWOR VERIFY NOTE TITLE",1,$S(VER:"YES",1:"NO"))
21 Q
22 ;
23GETTABS(VALUES) ; RPC
24 ; get tab names for patient chart
25 K VALUES
26 D PDSET^ORWTPUP("ORCH INITIAL TAB",.VALUES)
27 Q
28 ;
29CSLABD(INFO) ; RPC
30 ; get lab defaults
31 N RNG
32 S INFO=""
33 F RNG="INPT","OUTPT" D
34 .S INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
35 Q
36 ;
37CSLAB(VAL,USER) ; from ORWTPP
38 ; get user's lab date range defaults
39 N RNG
40 S VAL=""
41 F RNG="INPT","OUTPT" D
42 .S VAL=VAL_$$GET^XPAR("USR.`"_USER_"^DIV^SYS^PKG","ORQQLR DATE RANGE "_RNG,1,"I")_U
43 Q
44 ;
45CSARNGD(INFO) ; RPC
46 ; get start, stop defaults
47 S INFO=$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
48 S INFO=INFO_$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
49 Q
50 ;
51CSARNG(VAL,USER) ; from ORWTPP
52 ; get user's appt date range defaults
53 N ORSRV
54 S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
55 S VAL=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")_U
56 S VAL=VAL_$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
57 Q
58 ;
59SAVECS(OK,INFO,USER) ; from ORWTPP
60 ; save user's date range defaults
61 N INPT,OUTPT,START,STOP
62 S OK=1
63 S START=+$P(INFO,U,3) S START=$S(START=0:"T",START<0:"T"_START,1:"T+"_START)
64 S STOP=+$P(INFO,U,4) S STOP=$S(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
65 S INPT=+$P(INFO,U,1),INPT=$S('INPT:"@",1:INPT)
66 S OUTPT=+$P(INFO,U,2),OUTPT=$S('OUTPT:"@",1:OUTPT)
67 D EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE START",1,START)
68 D EN^XPAR(USER_";VA(200,","ORQQCSDR CS RANGE STOP",1,STOP)
69 D EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE INPT",1,INPT)
70 D EN^XPAR(USER_";VA(200,","ORQQLR DATE RANGE OUTPT",1,OUTPT)
71 Q
72GETIMGD(INFO) ; RPC
73 S INFO=$$GET^XPAR("SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
74 Q
75 ;
76GETIMG(INFO,USER) ; from ORWTPP
77 ; get user's image report defaults
78 S INFO=$$GET^XPAR("USR.`"_USER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORCH CONTEXT REPORTS")
79 Q
80 ;
81SETIMG(OK,MAX,START,STOP,USER) ; from ORWTPP
82 ; save user's image report defaults
83 N VALUE S OK=0
84 I MAX'>0 Q
85 S START=$S(START=0:"T",START<0:"T"_START,1:"T+"_START)
86 S STOP=$S(STOP=0:"T",STOP<0:"T"_STOP,1:"T+"_STOP)
87 S VALUE=START_";"_STOP_";;;"_MAX
88 S OK=1
89 D EN^XPAR(USER_";VA(200,","ORCH CONTEXT REPORTS",1,VALUE)
90 Q
Note: See TracBrowser for help on using the repository browser.