source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORXTABS5.m

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

initial load of WorldVistAEHR

File size: 5.1 KB
Line 
1ORXTABS5 ;SLC/PKS - Edit calls, tab parameters preferences. [11/22/00 11:16am]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,47,84**;Dec 17, 1997
3 ;
4 ; NOTES: The routines herein are called by those of the same tag
5 ; name in ORXTABS2. Most variables are NEW'd and assigned
6 ; by one or more routines in the preceding call chains.
7 ; Refer to comments and notes there for additional infor-
8 ; mation.
9 ;
10 ; Each tag in this routine must return one of the following:
11 ;
12 ; 1 - A new value entered or selected by the user,
13 ; 2 - A null string,
14 ; 3 - The string "*Invalid*" - to repeat due to invalid entry,
15 ; 4 - The "^" character, indicating user's cancel action.
16 ;
17 ; Some tags in this routine are functions or calls used by
18 ; other tags herein.
19 ;
20 Q
21 ;
22TYPE ; Type, for labs.
23 ;
24 ; Assign DIR variables:
25 S DIR("T")=120 ; Two minute maximum timeout for response.
26 S DIR("A")=" Enter "_ORXPDIS_": "
27 S DIR("A",1)=" L List Format"
28 S DIR("A",2)=" C Cumulative Format"
29 S DIR(0)="SAO^L:List Format;C:Cumulative Format" ; Optional, Set of Codes.
30 ;
31 ; Translate one value to match past practice:
32 I ORXNOW="R" S ORXNOW="L"
33 ;
34 ; Call tag to get/assign input:
35 D INPUT^ORXTABS2
36 ;
37 ; Re-translate one value to match past practice:
38 I ORXNOW="L" S ORXNOW="R"
39 ;
40 ; Present applicability message to user:
41 W !!,"(NOTE: This setting applies only to the LM version of CPRS.)",!
42 ;
43 Q
44 ;
45DISPGRP ; Display Group (service/section), for orders.
46 ;
47 ; Internal variables used:
48 ;
49 ; DIC,X,Y,DTOUT,DUOUT = Variables for FM calls.
50 ; ORXDONE = Flag for loop exit.
51 ; ORXTMP = Temporary variable for value holding.
52 ;
53 N DIR,X,Y,DTOUT,DUOUT,ORXDONE,ORXTMP
54 ;
55 ; Set/translate current setting into a display value:
56 I (('$D(ORXNOW))!(ORXNOW="")) S ORXNOW="ALL"
57 S ORXTMP=0
58 I ORXNOW'="" D
59 .S ORXTMP=$O(^ORD(100.98,"B",ORXNOW,ORXTMP))
60 .I ORXTMP>0 S ORXTMP=$P(^ORD(100.98,ORXTMP,0),U)
61 ;
62 ; Establish loop for input control:
63 S ORXDONE=0
64 F D Q:ORXDONE
65 .W !!," Enter "_ORXPDIS_" for display of orders."
66 .W !!," Select Service/Section: "_ORXTMP_"//"
67 .R X:DTIME S:'$T X="^" I X["^" S ORXDONE=1 Q
68 .I X="" S ORXDONE=1 Q ; No change.
69 .I X="@" S ORXDONE=1 Q ; Results in default.
70 .I X["?" W !!," Choose from:",! D DG^ORCHANG1(1,"DISP") Q
71 .S DIC=100.98,DIC(0)="NEQZ"
72 .D ^DIC
73 .S:Y>0 ORXNOW=$P(Y(0),U,3),ORXDONE=1
74 I X="@" S ORXNOW=X
75 I (ORXNOW="@") S ORXNOW="ALL" ; Bottom line default.
76 ;
77 Q
78 ;
79OUTPT ; Outpatient (0) or Inpatient (1) meds display.
80 ;
81 ; Assign DIR variables:
82 S DIR("T")=120 ; Two minute maximum timeout for response.
83 S DIR("A")=" Enter "_ORXPDIS_": "
84 S DIR("A",1)=" 0 Outpatient"
85 S DIR("A",2)=" 1 Inpatient"
86 S DIR(0)="SAO^0:Outpatient;1:Inpatient" ; Optional, Set of Codes.
87 ;
88 ; Call tag to get/assign input:
89 D INPUT^ORXTABS2
90 ;
91 Q
92 ;
93SUBJECT ; Subject, for notes.
94 ;
95 ; Assign DIR variables:
96 S DIR("T")=120 ; Two minute maximum timeout for response.
97 S DIR("A")=" Enter "_ORXPDIS_" setting: "
98 S DIR("A",1)=" 0 Off/Hide Subjects"
99 S DIR("A",2)=" 1 On/Show Subjects"
100 S DIR(0)="SAO^0:Off/Hide Subjects;1:On/Show Subjects"
101 ;
102 ; Call tag to get/assign input:
103 D INPUT^ORXTABS2
104 ;
105 Q
106 ;
107FORMAT ; Format, for orders.
108 ;
109 ; Assign DIR variables:
110 S DIR("T")=120 ; Two minute maximum timeout for response.
111 S DIR("A")=" Enter "_ORXPDIS_" setting for Orders: "
112 S DIR("A",1)=" L Long"
113 S DIR("A",2)=" S Short"
114 S DIR(0)="SAO^L:Long;S:Short"
115 ;
116 ; Call tag to get/assign input:
117 D INPUT^ORXTABS2
118 ;
119 Q
120 ;
121COMMENTS ; Comments, for problems.
122 ;
123 ; Assign DIR variables:
124 S DIR("T")=120 ; Two minute maximum timeout for response.
125 S DIR("A")=" Enter "_ORXPDIS_" setting for Problems: "
126 S DIR("A",1)=" 0 Off/Hide Comments"
127 S DIR("A",2)=" 1 On/Show Comments"
128 S DIR(0)="SAO^0:Off/Hide Comments;1:On/Show Comments"
129 ;
130 ; Call tag to get/assign input:
131 D INPUT^ORXTABS2
132 ;
133 Q
134 ;
135SERVICE ; Service, for consults.
136 ;
137 ; Internal variables used:
138 ;
139 ; DIC,X,Y,DTOUT,DUOUT = Variables for call to DIC.
140 ;
141 N DIC,X,Y,DTOUT,DUOUT
142 ;
143 ; Assign DIC variables and call DIC:
144 S DIC=123.5
145 S DIC(0)="AEFMQ"
146 S DIC("A")=" Select service for Consults: "
147 S DIC("B")="ALL"
148 S:$L($G(ORXNOW)) DIC("B")=ORXNOW
149 S DTIME=120
150 W !! ; Screen formatting.
151 D ^DIC
152 ;
153 I $D(DUOUT) S ORXNOW="^"
154 I $D(DTOUT) S ORXNOW="^"
155 ;
156 ; Examine user entry, treat if needed, and assign it for return:
157 I ORXNOW'="^" S:+Y'>0 Y=""
158 I ORXNOW'="^" S ORXNOW=+Y
159 ;
160 K DIC,X,Y,DTOUT,DUOUT ; Clean up before exit.
161 ;
162 Q
163 ;
164OCCLIM ; Occurrence Limit, for notes.
165 ;
166 ; Assign DIR variables:
167 S DIR("T")=120 ; Two minute maximum timeout for response.
168 S DIR("A")=" Enter "_ORXPDIS_" setting for Notes: "
169 S DIR("?")=" Entry must be between 1 and 9,999,999"
170 S DIR(0)="NA^1:9999999" ; Numerical, required.
171 ;
172 ; Call tag to get/assign input:
173 D INPUT^ORXTABS2
174 ;
175 I ORXNOW'="^" D
176 .W !!,"(NOTE: Setting may be overridden by your TIU Personal Preferences.)",!
177 .H 2
178 ;
179 Q
180 ;
Note: See TracBrowser for help on using the repository browser.