source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORLP3MGR.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.8 KB
Line 
1ORLP3MGR ; SLC/AEB - Manager Options - Patient List Defaults ;9/22/97 [4/25/00 3:25pm]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,82**;Dec 17, 1997
3 ;
4CLSTRTD ;
5 N ORLPT,PARAM
6 S ORLPT="Set Default Clinic Start Date",PARAM="ORLP DEFAULT CLINIC START DATE"
7 D OPSETUP(ORLPT,PARAM)
8 Q
9 ;
10CLSTPD ;
11 N ORLPT,PARAM
12 S ORLPT="Set Default Clinic Stop Date",PARAM="ORLP DEFAULT CLINIC STOP DATE"
13 D OPSETUP(ORLPT,PARAM)
14 Q
15 ;
16CLSUN ;
17 N ORLPT,PARAM
18 S ORLPT="Set Default Clinic Sunday",PARAM="ORLP DEFAULT CLINIC SUNDAY"
19 D OPSETUP(ORLPT,PARAM)
20 Q
21 ;
22CLMON ;
23 N ORLPT,PARAM
24 S ORLPT="Set Default Clinic Monday",PARAM="ORLP DEFAULT CLINIC MONDAY"
25 D OPSETUP(ORLPT,PARAM)
26 Q
27 ;
28CLTUE ;
29 N ORLPT,PARAM
30 S ORLPT="Set Default Clinic Tuesday",PARAM="ORLP DEFAULT CLINIC TUESDAY"
31 D OPSETUP(ORLPT,PARAM)
32 Q
33 ;
34CLWED ;
35 N ORLPT,PARAM
36 S ORLPT="Set Default Clinic Wednesday",PARAM="ORLP DEFAULT CLINIC WEDNESDAY"
37 D OPSETUP(ORLPT,PARAM)
38 Q
39 ;
40CLTHUR ;
41 N ORLPT,PARAM
42 S ORLPT="Set Default Clinic Thursday",PARAM="ORLP DEFAULT CLINIC THURSDAY"
43 D OPSETUP(ORLPT,PARAM)
44 Q
45 ;
46CLFRI ;
47 N ORLPT,PARAM
48 S ORLPT="Set Default Clinic Friday",PARAM="ORLP DEFAULT CLINIC FRIDAY"
49 D OPSETUP(ORLPT,PARAM)
50 Q
51 ;
52CLSAT ;
53 N ORLPT,PARAM
54 S ORLPT="Set Default Clinic Saturday",PARAM="ORLP DEFAULT CLINIC SATURDAY"
55 D OPSETUP(ORLPT,PARAM)
56 Q
57 ;
58LSTORD ;
59 N ORLPT,PARAM
60 S ORLPT="Set Default Sort Order for Patient List",PARAM="ORLP DEFAULT LIST ORDER"
61 D OPSETUP(ORLPT,PARAM)
62 Q
63 ;
64LSTSRC ;
65 N ORLPT,PARAM
66 S ORLPT="Set Default List Source",PARAM="ORLP DEFAULT LIST SOURCE"
67 D OPSETUP(ORLPT,PARAM)
68 Q
69 ;
70PROVIDER ;
71 N ORLPT,PARAM
72 S ORLPT="Set Default Primary Provider",PARAM="ORLP DEFAULT PROVIDER"
73 D OPSETUP(ORLPT,PARAM)
74 Q
75 ;
76SPEC ;
77 N ORLPT,PARAM
78 S ORLPT="Set Default Treating Specialty",PARAM="ORLP DEFAULT SPECIALTY"
79 D OPSETUP(ORLPT,PARAM)
80 Q
81 ;
82TEAM ;
83 N ORLPT,PARAM
84 S ORLPT="Set Default Team List",PARAM="ORLP DEFAULT TEAM"
85 D OPSETUP(ORLPT,PARAM)
86 Q
87 ;
88WARD ;
89 N ORLPT,PARAM
90 S ORLPT="Set Default Ward",PARAM="ORLP DEFAULT WARD"
91 D OPSETUP(ORLPT,PARAM)
92 Q
93 ;
94OPSETUP(ORLPT,PARAM) ;
95 N ORLPPAR
96 S ORLPPAR=$O(^XTV(8989.51,"B",PARAM,0)) Q:ORLPPAR=""
97 D TITLE(ORLPT) D PROC(ORLPPAR)
98 Q
99 ;
100TITLE(ORLPT) ;
101 ; Center and write title
102 S IOP=0 D ^%ZIS K IOP W @IOF
103 W !,?(80-$L(ORLPT)-1/2),ORLPT
104 Q
105 ;
106PROC(PAR) ; Process Parameter Settings
107 D EDITPAR^XPAREDIT(PAR)
108 Q
109 ;
110DEFSRC ; default list source and value for user
111 N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
112 ; Get user DUZ number
113 K DIC,Y S DIC="^VA(200,",DIC(0)="AEQ",DIC("A")="Enter user's name: ",DIC("B")=DUZ D ^DIC Q:Y<1
114 S ORLPDUZ=$S(Y'<1:$P(Y,"^"),1:DUZ) K DIC,Y,DUOUT,DTOUT
115 Q:'$D(ORLPDUZ)
116 S ORX=$$FDEFSRC^ORQPTQ11(ORLPDUZ)
117 S ORLPLNM=$P(ORX,U,2)
118 W !!,"The user's default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
119 I ORLPLNM="Combination" D
120 .; Look for an existing record for this user:
121 .S ORLPDUZ=DUZ
122 .K ORLPERR
123 .S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
124 .K ORLPERR
125 .D CLEAN^DILF ; Clean up after DB call.
126 .;
127 .; If no combination record then punt:
128 .I +ORLPRTN<1 Q
129 .;
130 .; Print title for display of current entries:
131 .W !," User's current combination entries are:",!
132 .;
133 .; Call tag^routine to display existing combination sources:
134 .S ORLPCNT=0
135 .S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
136 .I ORLPCNT<1 W !,"No current combination entries...."
137 .W !
138 S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
139 I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
140 D ^DIR
141 K DIR,Y,X,DTOUT,DUOUT,DIRUT
142 ;
143 Q
144 ;
145UDEFSRC ; default list source and value for the user
146 ; SLC/PKS - 3/2000: Modified to display "Combination" sources.
147 ;
148 ; Variables used:
149 ;
150 ; ORLPCNT = Holds return value from function call.
151 ; ORLPDUZ = DUZ of current user.
152 ; ORLPERR = Error array for return from DB calls.
153 ; ORLPLNM = Name of default list source.
154 ; ORLPRTN = Return value from DB calls.
155 ; ORX = Holds default list source parameter.
156 ;
157 N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
158 Q:'$D(DUZ)
159 S ORX=$$FDEFSRC^ORQPTQ11(DUZ)
160 S ORLPLNM=$P(ORX,U,2)
161 W !!,"Your default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
162 I ORLPLNM="Combination" D
163 .; Look for an existing record for this user:
164 .S ORLPDUZ=DUZ
165 .K ORLPERR
166 .S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
167 .K ORLPERR
168 .D CLEAN^DILF ; Clean up after DB call.
169 .;
170 .; If no combination record then punt:
171 .I +ORLPRTN<1 Q
172 .;
173 .; Print title for display of current entries:
174 .W !," Your current combination entries are:",!
175 .;
176 .; Call tag^routine to display existing combination sources:
177 .S ORLPCNT=0
178 .S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
179 .I ORLPCNT<1 W !,"No current combination entries...."
180 .W !
181 .;
182 .Q
183 ;
184 ; Allow user viewing with default timeout:
185 S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
186 I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
187 D ^DIR
188 K DIR,Y,X,DTOUT,DUOUT,DIRUT
189 Q
190 ;
Note: See TracBrowser for help on using the repository browser.