source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMXSD.m

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

initial load of WorldVistAEHR

File size: 5.2 KB
Line 
1PXRMXSD ; SLC/PJH - Reminder Reports DIR Prompts; 08/14/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4BED(YESNO) ;Option to sort by inpatient location and bed
5 N DIR,X,Y
6 K DIROUT,DIRUT,DTOUT,DUOUT
7 S DIR(0)="YA"
8 S DIR("A")="Sort by Inpatient Location/Bed: "
9 S DIR("B")="N"
10 S DIR("?")="Enter Y or N. For detailed help type ??"
11 S DIR("??")=U_"D HELP^PXRMXHLP(11)"
12 W !
13 D ^DIR
14 I $D(DIROUT) S DTOUT=1
15 I $D(DTOUT)!($D(DUOUT)) Q
16 S YESNO=$E(Y(0))
17 I YESNO="Y" S YESNO="B"
18 Q
19 ;
20COMB(YESNO,LIT,DEF) ;Option to combine report
21 N DIR,X,Y
22 K DIROUT,DIRUT,DTOUT,DUOUT
23 S DIR(0)="YA"
24 S DIR("A")="Combined report for all "_LIT_" : "
25 S DIR("B")=DEF
26 S DIR("?")="Enter Y or N. For detailed help type ??"
27 S DIR("??")=U_"D HELP^PXRMXHLP(9)"
28 W !
29 D ^DIR
30 I $D(DIROUT) S DTOUT=1
31 I $D(DTOUT)!($D(DUOUT)) Q
32 S YESNO=$E(Y(0))
33 Q
34 ;
35DELIMSEL() ;Select DELIMITER CHARACTER
36 N X,Y,DC,DIR
37 K DIROUT,DIRUT,DTOUT,DUOUT
38 S DIR(0)="S"_U_"C:Comma;"
39 S DIR(0)=DIR(0)_"M:Semicolon;"
40 S DIR(0)=DIR(0)_"L:Tilde;"
41 S DIR(0)=DIR(0)_"S:Space;"
42 S DIR(0)=DIR(0)_"T:Tab;"
43 S DIR(0)=DIR(0)_"U:Up arrow;"
44 S DIR("A")="Specify REPORT DELIMITER CHARACTER"
45 S DIR("B")="U"
46 S DIR("?")="Select from the codes displayed. For detailed help type ??"
47 S DIR("??")=U_"D HELP^PXRMXHLP(14)"
48 D ^DIR
49 I $D(DIROUT) S DTOUT=1
50 I $D(DTOUT)!($D(DUOUT)) Q ""
51 S DC=$S(Y="C":",",Y="M":";",Y="L":"~",Y="S":" ",Y="T":$C(9),Y="U":"^",1:"^")
52 Q DC
53 ;
54FUTURE(YESNO,PROMPT,NUM) ;Option to display all future appointments on detail report
55 N DIR,X,Y
56 K DIROUT,DIRUT,DTOUT,DUOUT
57 S DIR(0)="YA"
58 S DIR("A")=PROMPT
59 S DIR("B")="N"
60 S DIR("?")="Enter Y or N. For detailed help type ??"
61 S DIR("??")=U_"D HELP^PXRMXHLP("_NUM_")"
62 W !
63 D ^DIR
64 I $D(DIROUT) S DTOUT=1
65 I $D(DTOUT)!($D(DUOUT)) Q
66 S YESNO=$E(Y(0))
67 Q
68 ;
69PREV(TYPE) ;Future Appts/Prior Encounters selection
70 N X,Y,DIR
71 S NREM=0
72 K DIROUT,DIRUT,DTOUT,DUOUT
73 I 'PXRMINP D
74 .S DIR(0)="S"_U_"P:Previous Encounters;"
75 .S DIR(0)=DIR(0)_"F:Future Appointments;"
76 .S DIR("A")="PREVIOUS ENCOUNTERS OR FUTURE APPOINTMENTS"
77 .S DIR("B")="P"
78 .S DIR("??")=U_"D HELP^PXRMXHLP(3)"
79 I PXRMINP D
80 .S DIR(0)="S"_U_"A:Admissions to Location in date range;"
81 .S DIR(0)=DIR(0)_"C:Current Inpatients;"
82 .S DIR("A")="CURRENT INPATIENTS OR ADMISSIONS"
83 .S DIR("B")="C"
84 .S DIR("??")=U_"D HELP^PXRMXHLP(7)"
85 S DIR("?")="Select from the codes displayed. For detailed help type ??"
86 D ^DIR
87 I $D(DIROUT) S DTOUT=1
88 I $D(DTOUT)!($D(DUOUT)) Q
89 S TYPE=Y
90 Q
91 ;
92PRIME(TYPE) ;Primary Provider patients only or All
93 N X,Y,DIR
94 S NREM=0
95 K DIROUT,DIRUT,DTOUT,DUOUT
96 S DIR(0)="S"_U_"P:Primary care assigned patients only;"
97 S DIR(0)=DIR(0)_"A:All patients on list;"
98 S DIR("A")="PRIMARY CARE ONLY OR ALL"
99 S DIR("B")="P"
100 S DIR("?")="Select from the codes displayed. For detailed help type ??"
101 S DIR("??")=U_"D HELP^PXRMXHLP(4)"
102 D ^DIR
103 I $D(DIROUT) S DTOUT=1
104 I $D(DTOUT)!($D(DUOUT)) Q
105 S TYPE=Y
106 Q
107 ;
108REP(TYPE) ;Report type selection
109 N X,Y,DIR
110 S NREM=0
111 K DIROUT,DIRUT,DTOUT,DUOUT
112 S DIR(0)="S"_U_"D:Detailed;"
113 S DIR(0)=DIR(0)_"S:Summary;"
114 S DIR("A")="TYPE OF REPORT"
115 S DIR("B")="S"
116 I PXRMSEL="I" S DIR("B")="D"
117 S DIR("?")="Select from the codes displayed. For detailed help type ??"
118 S DIR("??")=U_"D HELP^PXRMXHLP(2)"
119 D ^DIR
120 I $D(DIROUT) S DTOUT=1
121 I $D(DTOUT)!($D(DUOUT)) Q
122 S TYPE=Y
123 Q
124 ;
125SELECT(TYPE) ;Patient Sample Selection
126 N X,Y,DIR
127 K DIROUT,DIRUT,DTOUT,DUOUT
128 S DIR(0)="S"_U_"I:Individual Patient;"
129 S DIR(0)=DIR(0)_"R:Reminder Patient List;"
130 S DIR(0)=DIR(0)_"L:Location;"
131 S DIR(0)=DIR(0)_"O:OE/RR Team;"
132 S DIR(0)=DIR(0)_"P:PCMM Provider;"
133 S DIR(0)=DIR(0)_"T:PCMM Team;"
134 S DIR("A")="PATIENT SAMPLE"
135 S DIR("B")="L"
136 S DIR("?")="Select from the codes displayed. For detailed help type ??"
137 S DIR("??")=U_"D HELP^PXRMXHLP(0)"
138 D ^DIR
139 I $D(DIROUT) S DTOUT=1
140 I $D(DTOUT)!($D(DUOUT)) Q
141 S TYPE=Y
142 Q
143 ;
144SRT(YESNO) ;Option to sort by next appointment date on detail report
145 N DIR,X,Y
146 K DIROUT,DIRUT,DTOUT,DUOUT
147 S DIR(0)="YA"
148 S DIR("A")="Sort by Next Appointment date: "
149 S DIR("B")="N"
150 S DIR("?")="Enter Y or N. For detailed help type ??"
151 S DIR("??")=U_"D HELP^PXRMXHLP(6)"
152 W !
153 D ^DIR
154 I $D(DIROUT) S DTOUT=1
155 I $D(DTOUT)!($D(DUOUT)) Q
156 S YESNO=$E(Y(0))
157 Q
158 ;
159SSN(YESNO) ;Option to print full SSN.
160 N DIR,X,Y
161 K DIROUT,DIRUT,DTOUT,DUOUT
162 S DIR(0)="YA"
163 S DIR("A")="Print full SSN: "
164 I $P($G(^PXRM(800,1,"FULL SSN")),U)="Y" S DIR("B")="Y"
165 E S DIR("B")="N"
166 S DIR("?")="Enter Y or N. For detailed help type ??"
167 S DIR("??")=U_"D HELP^PXRMXHLP(12)"
168 W !
169 D ^DIR
170 I $D(DIROUT) S DTOUT=1
171 I $D(DTOUT)!($D(DUOUT)) Q
172 S YESNO=$E(Y(0))
173 Q
174 ;
175TABS(YESNO) ;Option print compressed report
176 N DIR,X,Y
177 K DIROUT,DIRUT,DTOUT,DUOUT
178 S DIR(0)="YA"
179 S DIR("A")="Print delimited output only: "
180 S DIR("B")="N"
181 S DIR("?")="Enter Y or N. For detailed help type ??"
182 S DIR("??")=U_"D HELP^PXRMXHLP(13)"
183 W !
184 D ^DIR
185 I $D(DIROUT) S DTOUT=1
186 I $D(DTOUT)!($D(DUOUT)) Q
187 S YESNO=$E(Y(0))
188 Q
189 ;
190TOTALS(TYPE,LIT1,LIT2,LIT3) ;Totals Selection
191 N X,Y,DIR
192 K DIROUT,DIRUT,DTOUT,DUOUT
193 S DIR(0)="S"_U_"I:"_LIT1_";"
194 S DIR(0)=DIR(0)_"R:"_LIT2_";"
195 S DIR(0)=DIR(0)_"T:"_LIT3_";"
196 S DIR("A")="REPORT TOTALS"
197 S DIR("B")="I"
198 S DIR("?")="Select from the codes displayed. For detailed help type ??"
199 S DIR("??")=U_"D HELP^PXRMXHLP(10)"
200 D ^DIR
201 I $D(DIROUT) S DTOUT=1
202 I $D(DTOUT)!($D(DUOUT)) Q
203 S TYPE=Y
204 Q
Note: See TracBrowser for help on using the repository browser.