1. Araxis Merge File Comparison Report

Produced by Araxis Merge on 6/1/2019 2:43:11 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

1.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pub_un\VSE_P2_SD_5.3_717.zip SD_5.3_717.KIDS Fri May 31 20:37:08 2019 UTC
2 C:\AraxisMergeCompare\Pub_re\VSE_P2_SD_5.3_717.zip SD_5.3_717.KIDS Sat Jun 1 18:35:50 2019 UTC

1.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 9 9410
Changed 8 16
Inserted 0 0
Removed 0 0

1.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

1.4 Active regular expressions

No regular expressions were active.

1.5 Comparison detail

1   $END TXT   1   $END TXT
2   $KID SD*5. 3*717   2   $KID SD*5. 3*717
3   **INSTALL  NAME**   3   **INSTALL  NAME**
4   SD*5.3*717   4   SD*5.3*717
5   "BLD",1036 4,0)   5   "BLD",1036 4,0)
6   SD*5.3*717 ^SCHEDULIN G^0^319032 6^y   6   SD*5.3*717 ^SCHEDULIN G^0^319032 6^y
7   "BLD",1036 4,1,0)   7   "BLD",1036 4,1,0)
8   ^^294^294^ 3181106^   8   ^^294^294^ 3181106^
9   "BLD",1036 4,1,1,0)   9   "BLD",1036 4,1,1,0)
10   This patch  corrects  the proble m of appoi ntment pro cessing in  VistA   10   This patch  corrects  the proble m of appoi ntment pro cessing in  VistA
11   "BLD",1036 4,1,2,0)   11   "BLD",1036 4,1,2,0)
12   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM    12   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM 
13   "BLD",1036 4,1,3,0)   13   "BLD",1036 4,1,3,0)
14   APPOINTMEN T   14   APPOINTMEN T
15   "BLD",1036 4,1,4,0)   15   "BLD",1036 4,1,4,0)
16   EVENTS) th at roll an d scroll V istA does.  This prot ocol allow s other ap ps   16   EVENTS) th at roll an d scroll V istA does.  This prot ocol allow s other ap ps
17   "BLD",1036 4,1,5,0)   17   "BLD",1036 4,1,5,0)
18   to tie fun ctionality , includin g interfac es to exte rnal syste ms such as   18   to tie fun ctionality , includin g interfac es to exte rnal syste ms such as
19   "BLD",1036 4,1,6,0)   19   "BLD",1036 4,1,6,0)
20   Pyxis, Omn icell, and  EDIS,to a ppointment  events. A ctions cur rently bei ng   20   Pyxis, Omn icell, and  EDIS,to a ppointment  events. A ctions cur rently bei ng
21   "BLD",1036 4,1,7,0)   21   "BLD",1036 4,1,7,0)
22   executed f or appoint ment event s in legac y VistA wi ll also be  executed  for   22   executed f or appoint ment event s in legac y VistA wi ll also be  executed  for
23   "BLD",1036 4,1,8,0)   23   "BLD",1036 4,1,8,0)
24   appointmen ts when th ose events  (make app ointment,  check in,  undo check  in,   24   appointmen ts when th ose events  (make app ointment,  check in,  undo check  in,
25   "BLD",1036 4,1,9,0)   25   "BLD",1036 4,1,9,0)
26   check out,  undo chec k out, can cel appoin tment, no  show) are  triggered  by   26   check out,  undo chec k out, can cel appoin tment, no  show) are  triggered  by
27   "BLD",1036 4,1,10,0)   27   "BLD",1036 4,1,10,0)
28   the GUI. ( However, t his patch  does not r equire a G UI update. )   28   the GUI. ( However, t his patch  does not r equire a G UI update. )
29   "BLD",1036 4,1,11,0)   29   "BLD",1036 4,1,11,0)
30        30     
31   "BLD",1036 4,1,12,0)   31   "BLD",1036 4,1,12,0)
32   Patch Comp onents   32   Patch Comp onents
33   "BLD",1036 4,1,13,0)   33   "BLD",1036 4,1,13,0)
34   ========== ======   34   ========== ======
35   "BLD",1036 4,1,14,0)   35   "BLD",1036 4,1,14,0)
36       36    
37   "BLD",1036 4,1,15,0)   37   "BLD",1036 4,1,15,0)
38   Files & Fi elds Assoc iated:   38   Files & Fi elds Assoc iated:
39   "BLD",1036 4,1,16,0)   39   "BLD",1036 4,1,16,0)
40       40    
41   "BLD",1036 4,1,17,0)   41   "BLD",1036 4,1,17,0)
42   File Name  (#)                                                 Ne w/Modified /   42   File Name  (#)                                                 Ne w/Modified /
43   "BLD",1036 4,1,18,0)   43   "BLD",1036 4,1,18,0)
44     Sub-file  Name (#)    Field Na me (Number )                     Deleted   44     Sub-file  Name (#)    Field Na me (Number )                     Deleted
45   "BLD",1036 4,1,19,0)   45   "BLD",1036 4,1,19,0)
46   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -   46   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
47   "BLD",1036 4,1,20,0)   47   "BLD",1036 4,1,20,0)
48   N/A   48   N/A
49   "BLD",1036 4,1,21,0)   49   "BLD",1036 4,1,21,0)
50       50    
51   "BLD",1036 4,1,22,0)   51   "BLD",1036 4,1,22,0)
52   Bulletins  Associated :   52   Bulletins  Associated :
53   "BLD",1036 4,1,23,0)   53   "BLD",1036 4,1,23,0)
54                                                                  Ne w/Modified /   54                                                                  Ne w/Modified /
55   "BLD",1036 4,1,24,0)   55   "BLD",1036 4,1,24,0)
56   Bulletin N ame                                                    Deleted        56   Bulletin N ame                                                    Deleted     
57   "BLD",1036 4,1,25,0)   57   "BLD",1036 4,1,25,0)
58   ---------- ---                                                 -- ---------- -   58   ---------- ---                                                 -- ---------- -
59   "BLD",1036 4,1,26,0)   59   "BLD",1036 4,1,26,0)
60   N/A   60   N/A
61   "BLD",1036 4,1,27,0)   61   "BLD",1036 4,1,27,0)
62       62    
63   "BLD",1036 4,1,28,0)   63   "BLD",1036 4,1,28,0)
64       64    
65   "BLD",1036 4,1,29,0)   65   "BLD",1036 4,1,29,0)
66       66    
67   "BLD",1036 4,1,30,0)   67   "BLD",1036 4,1,30,0)
68   Dialogs As sociated:   68   Dialogs As sociated:
69   "BLD",1036 4,1,31,0)   69   "BLD",1036 4,1,31,0)
70                                                                  Ne w/Modified /   70                                                                  Ne w/Modified /
71   "BLD",1036 4,1,32,0)   71   "BLD",1036 4,1,32,0)
72   Dialog Nam e                                                      Deleted        72   Dialog Nam e                                                      Deleted     
73   "BLD",1036 4,1,33,0)   73   "BLD",1036 4,1,33,0)
74   ---------- -                                                   -- ---------- -   74   ---------- -                                                   -- ---------- -
75   "BLD",1036 4,1,34,0)   75   "BLD",1036 4,1,34,0)
76   N/A   76   N/A
77   "BLD",1036 4,1,35,0)   77   "BLD",1036 4,1,35,0)
78       78    
79   "BLD",1036 4,1,36,0)   79   "BLD",1036 4,1,36,0)
80       80    
81   "BLD",1036 4,1,37,0)   81   "BLD",1036 4,1,37,0)
82       82    
83   "BLD",1036 4,1,38,0)   83   "BLD",1036 4,1,38,0)
84   Forms Asso ciated:   84   Forms Asso ciated:
85   "BLD",1036 4,1,39,0)   85   "BLD",1036 4,1,39,0)
86                                                                  Ne w/Modified /   86                                                                  Ne w/Modified /
87   "BLD",1036 4,1,40,0)   87   "BLD",1036 4,1,40,0)
88   Form Name                      F ile Name ( Number)               Deleted        88   Form Name                      F ile Name ( Number)               Deleted     
89   "BLD",1036 4,1,41,0)   89   "BLD",1036 4,1,41,0)
90   ---------                      - ---------- -------            -- ---------- -   90   ---------                      - ---------- -------            -- ---------- -
91   "BLD",1036 4,1,42,0)   91   "BLD",1036 4,1,42,0)
92   N/A   92   N/A
93   "BLD",1036 4,1,43,0)   93   "BLD",1036 4,1,43,0)
94       94    
95   "BLD",1036 4,1,44,0)   95   "BLD",1036 4,1,44,0)
96       96    
97   "BLD",1036 4,1,45,0)   97   "BLD",1036 4,1,45,0)
98       98    
99   "BLD",1036 4,1,46,0)   99   "BLD",1036 4,1,46,0)
100   Functions  Associated :   100   Functions  Associated :
101   "BLD",1036 4,1,47,0)   101   "BLD",1036 4,1,47,0)
102                                                                  Ne w/Modified /   102                                                                  Ne w/Modified /
103   "BLD",1036 4,1,48,0)   103   "BLD",1036 4,1,48,0)
104   Function N ame                                                    Deleted        104   Function N ame                                                    Deleted     
105   "BLD",1036 4,1,49,0)   105   "BLD",1036 4,1,49,0)
106   ---------- ---                                                 -- ---------- -   106   ---------- ---                                                 -- ---------- -
107   "BLD",1036 4,1,50,0)   107   "BLD",1036 4,1,50,0)
108   N/A   108   N/A
109   "BLD",1036 4,1,51,0)   109   "BLD",1036 4,1,51,0)
110       110    
111   "BLD",1036 4,1,52,0)   111   "BLD",1036 4,1,52,0)
112       112    
113   "BLD",1036 4,1,53,0)   113   "BLD",1036 4,1,53,0)
114       114    
115   "BLD",1036 4,1,54,0)   115   "BLD",1036 4,1,54,0)
116   HL Logical  Link:   116   HL Logical  Link:
117   "BLD",1036 4,1,55,0)   117   "BLD",1036 4,1,55,0)
118                                                                  Ne w/Modified /   118                                                                  Ne w/Modified /
119   "BLD",1036 4,1,56,0)   119   "BLD",1036 4,1,56,0)
120   HL Logical  Name                                                  Deleted        120   HL Logical  Name                                                  Deleted     
121   "BLD",1036 4,1,57,0)   121   "BLD",1036 4,1,57,0)
122   ---------- -----                                               -- ---------- -   122   ---------- -----                                               -- ---------- -
123   "BLD",1036 4,1,58,0)   123   "BLD",1036 4,1,58,0)
124   N/A   124   N/A
125   "BLD",1036 4,1,59,0)   125   "BLD",1036 4,1,59,0)
126       126    
127   "BLD",1036 4,1,60,0)   127   "BLD",1036 4,1,60,0)
128       128    
129   "BLD",1036 4,1,61,0)   129   "BLD",1036 4,1,61,0)
130       130    
131   "BLD",1036 4,1,62,0)   131   "BLD",1036 4,1,62,0)
132   HL7 Applic ation Para meters:   132   HL7 Applic ation Para meters:
133   "BLD",1036 4,1,63,0)   133   "BLD",1036 4,1,63,0)
134                                                                  Ne w/Modified /   134                                                                  Ne w/Modified /
135   "BLD",1036 4,1,64,0)   135   "BLD",1036 4,1,64,0)
136   HL7 Parame ter Name                                               Deleted        136   HL7 Parame ter Name                                               Deleted     
137   "BLD",1036 4,1,65,0)   137   "BLD",1036 4,1,65,0)
138   ---------- --------                                            -- ---------- -   138   ---------- --------                                            -- ---------- -
139   "BLD",1036 4,1,66,0)   139   "BLD",1036 4,1,66,0)
140   N/A   140   N/A
141   "BLD",1036 4,1,67,0)   141   "BLD",1036 4,1,67,0)
142       142    
143   "BLD",1036 4,1,68,0)   143   "BLD",1036 4,1,68,0)
144       144    
145   "BLD",1036 4,1,69,0)   145   "BLD",1036 4,1,69,0)
146       146    
147   "BLD",1036 4,1,70,0)   147   "BLD",1036 4,1,70,0)
148   HLO Applic ation Regi stry:   148   HLO Applic ation Regi stry:
149   "BLD",1036 4,1,71,0)   149   "BLD",1036 4,1,71,0)
150                                                                  Ne w/Modified /   150                                                                  Ne w/Modified /
151   "BLD",1036 4,1,72,0)   151   "BLD",1036 4,1,72,0)
152   HLO Regist ry Name                                                Deleted        152   HLO Regist ry Name                                                Deleted     
153   "BLD",1036 4,1,73,0)   153   "BLD",1036 4,1,73,0)
154   ---------- -------                                             -- ---------- -   154   ---------- -------                                             -- ---------- -
155   "BLD",1036 4,1,74,0)   155   "BLD",1036 4,1,74,0)
156   N/A   156   N/A
157   "BLD",1036 4,1,75,0)   157   "BLD",1036 4,1,75,0)
158       158    
159   "BLD",1036 4,1,76,0)   159   "BLD",1036 4,1,76,0)
160       160    
161   "BLD",1036 4,1,77,0)   161   "BLD",1036 4,1,77,0)
162       162    
163   "BLD",1036 4,1,78,0)   163   "BLD",1036 4,1,78,0)
164   Help Frame s Associat ed:   164   Help Frame s Associat ed:
165   "BLD",1036 4,1,79,0)   165   "BLD",1036 4,1,79,0)
166                                                                  Ne w/Modified /   166                                                                  Ne w/Modified /
167   "BLD",1036 4,1,80,0)   167   "BLD",1036 4,1,80,0)
168   Help Frame  Name                                                  Deleted        168   Help Frame  Name                                                  Deleted     
169   "BLD",1036 4,1,81,0)   169   "BLD",1036 4,1,81,0)
170   ---------- -----                                               -- ---------- -   170   ---------- -----                                               -- ---------- -
171   "BLD",1036 4,1,82,0)   171   "BLD",1036 4,1,82,0)
172   N/A   172   N/A
173   "BLD",1036 4,1,83,0)   173   "BLD",1036 4,1,83,0)
174       174    
175   "BLD",1036 4,1,84,0)   175   "BLD",1036 4,1,84,0)
176       176    
177   "BLD",1036 4,1,85,0)   177   "BLD",1036 4,1,85,0)
178       178    
179   "BLD",1036 4,1,86,0)   179   "BLD",1036 4,1,86,0)
180   Mail Group s Associat ed:   180   Mail Group s Associat ed:
181   "BLD",1036 4,1,87,0)   181   "BLD",1036 4,1,87,0)
182                                                                  Ne w/Modified /   182                                                                  Ne w/Modified /
183   "BLD",1036 4,1,88,0)   183   "BLD",1036 4,1,88,0)
184   Mail Group  Name                                                  Deleted        184   Mail Group  Name                                                  Deleted     
185   "BLD",1036 4,1,89,0)   185   "BLD",1036 4,1,89,0)
186   ---------- -----                                               -- ---------- -   186   ---------- -----                                               -- ---------- -
187   "BLD",1036 4,1,90,0)   187   "BLD",1036 4,1,90,0)
188   N/A   188   N/A
189   "BLD",1036 4,1,91,0)   189   "BLD",1036 4,1,91,0)
190       190    
191   "BLD",1036 4,1,92,0)   191   "BLD",1036 4,1,92,0)
192       192    
193   "BLD",1036 4,1,93,0)   193   "BLD",1036 4,1,93,0)
194       194    
195   "BLD",1036 4,1,94,0)   195   "BLD",1036 4,1,94,0)
196   Options As sociated:   196   Options As sociated:
197   "BLD",1036 4,1,95,0)   197   "BLD",1036 4,1,95,0)
198                                                                              198                                                                           
199   "BLD",1036 4,1,96,0)   199   "BLD",1036 4,1,96,0)
200   New/Modifi ed/   200   New/Modifi ed/
201   "BLD",1036 4,1,97,0)   201   "BLD",1036 4,1,97,0)
202   Option Nam e                                                  Typ e          202   Option Nam e                                                  Typ e       
203   "BLD",1036 4,1,98,0)   203   "BLD",1036 4,1,98,0)
204   Deleted        204   Deleted     
205   "BLD",1036 4,1,99,0)   205   "BLD",1036 4,1,99,0)
206   ---------- -                                                  --- -        206   ---------- -                                                  --- -     
207   "BLD",1036 4,1,100,0)   207   "BLD",1036 4,1,100,0)
208   ---------- ---   208   ---------- ---
209   "BLD",1036 4,1,101,0)   209   "BLD",1036 4,1,101,0)
210   N/A   210   N/A
211   "BLD",1036 4,1,102,0)   211   "BLD",1036 4,1,102,0)
212       212    
213   "BLD",1036 4,1,103,0)   213   "BLD",1036 4,1,103,0)
214       214    
215   "BLD",1036 4,1,104,0)   215   "BLD",1036 4,1,104,0)
216       216    
217   "BLD",1036 4,1,105,0)   217   "BLD",1036 4,1,105,0)
218   Parameter  Definition s:   218   Parameter  Definition s:
219   "BLD",1036 4,1,106,0)   219   "BLD",1036 4,1,106,0)
220                                                                  Ne w/Modified /   220                                                                  Ne w/Modified /
221   "BLD",1036 4,1,107,0)   221   "BLD",1036 4,1,107,0)
222   Parameter  Name                                                   Deleted        222   Parameter  Name                                                   Deleted     
223   "BLD",1036 4,1,108,0)   223   "BLD",1036 4,1,108,0)
224   ---------- ----                                                -- ---------- -   224   ---------- ----                                                -- ---------- -
225   "BLD",1036 4,1,109,0)   225   "BLD",1036 4,1,109,0)
226   N/A   226   N/A
227   "BLD",1036 4,1,110,0)   227   "BLD",1036 4,1,110,0)
228       228    
229   "BLD",1036 4,1,111,0)   229   "BLD",1036 4,1,111,0)
230       230    
231   "BLD",1036 4,1,112,0)   231   "BLD",1036 4,1,112,0)
232       232    
233   "BLD",1036 4,1,113,0)   233   "BLD",1036 4,1,113,0)
234   Parameter  Template:   234   Parameter  Template:
235   "BLD",1036 4,1,114,0)   235   "BLD",1036 4,1,114,0)
236                                                                  Ne w/Modified /   236                                                                  Ne w/Modified /
237   "BLD",1036 4,1,115,0)   237   "BLD",1036 4,1,115,0)
238   Template N ame                                                    Deleted        238   Template N ame                                                    Deleted     
239   "BLD",1036 4,1,116,0)   239   "BLD",1036 4,1,116,0)
240   ---------- ---                                                 -- ---------- -   240   ---------- ---                                                 -- ---------- -
241   "BLD",1036 4,1,117,0)   241   "BLD",1036 4,1,117,0)
242   N/A   242   N/A
243   "BLD",1036 4,1,118,0)   243   "BLD",1036 4,1,118,0)
244       244    
245   "BLD",1036 4,1,119,0)   245   "BLD",1036 4,1,119,0)
246       246    
247   "BLD",1036 4,1,120,0)   247   "BLD",1036 4,1,120,0)
248       248    
249   "BLD",1036 4,1,121,0)   249   "BLD",1036 4,1,121,0)
250   Protocols  Associated :   250   Protocols  Associated :
251   "BLD",1036 4,1,122,0)   251   "BLD",1036 4,1,122,0)
252                                                                  Ne w/Modified /   252                                                                  Ne w/Modified /
253   "BLD",1036 4,1,123,0)   253   "BLD",1036 4,1,123,0)
254   Protocol N ame                                                    Deleted        254   Protocol N ame                                                    Deleted     
255   "BLD",1036 4,1,124,0)   255   "BLD",1036 4,1,124,0)
256   ---------- ---                                                 -- ---------- -   256   ---------- ---                                                 -- ---------- -
257   "BLD",1036 4,1,125,0)   257   "BLD",1036 4,1,125,0)
258   N/A   258   N/A
259   "BLD",1036 4,1,126,0)   259   "BLD",1036 4,1,126,0)
260       260    
261   "BLD",1036 4,1,127,0)   261   "BLD",1036 4,1,127,0)
262       262    
263   "BLD",1036 4,1,128,0)   263   "BLD",1036 4,1,128,0)
264       264    
265   "BLD",1036 4,1,129,0)   265   "BLD",1036 4,1,129,0)
266   Remote Pro cedures As sociated:   266   Remote Pro cedures As sociated:
267   "BLD",1036 4,1,130,0)   267   "BLD",1036 4,1,130,0)
268                                                                  Ne w/Modified /   268                                                                  Ne w/Modified /
269   "BLD",1036 4,1,131,0)   269   "BLD",1036 4,1,131,0)
270   Remote Pro cedure Nam e                                           Deleted        270   Remote Pro cedure Nam e                                           Deleted     
271   "BLD",1036 4,1,132,0)   271   "BLD",1036 4,1,132,0)
272   ---------- ---------- -                                        -- ---------- -   272   ---------- ---------- -                                        -- ---------- -
273   "BLD",1036 4,1,133,0)   273   "BLD",1036 4,1,133,0)
274   N/A   274   N/A
275   "BLD",1036 4,1,134,0)   275   "BLD",1036 4,1,134,0)
276       276    
277   "BLD",1036 4,1,135,0)   277   "BLD",1036 4,1,135,0)
278       278    
279   "BLD",1036 4,1,136,0)   279   "BLD",1036 4,1,136,0)
280       280    
281   "BLD",1036 4,1,137,0)   281   "BLD",1036 4,1,137,0)
282   Security K eys Associ ated:   282   Security K eys Associ ated:
283   "BLD",1036 4,1,138,0)   283   "BLD",1036 4,1,138,0)
284                                                                  Ne w/Modified /   284                                                                  Ne w/Modified /
285   "BLD",1036 4,1,139,0)   285   "BLD",1036 4,1,139,0)
286   Security K ey Name                                                Deleted        286   Security K ey Name                                                Deleted     
287   "BLD",1036 4,1,140,0)   287   "BLD",1036 4,1,140,0)
288   ---------- -------                                             -- ---------- -   288   ---------- -------                                             -- ---------- -
289   "BLD",1036 4,1,141,0)   289   "BLD",1036 4,1,141,0)
290   N/A   290   N/A
291   "BLD",1036 4,1,142,0)   291   "BLD",1036 4,1,142,0)
292       292    
293   "BLD",1036 4,1,143,0)   293   "BLD",1036 4,1,143,0)
294       294    
295   "BLD",1036 4,1,144,0)   295   "BLD",1036 4,1,144,0)
296       296    
297   "BLD",1036 4,1,145,0)   297   "BLD",1036 4,1,145,0)
298   Templates,  Input Ass ociated:   298   Templates,  Input Ass ociated:
299   "BLD",1036 4,1,146,0)   299   "BLD",1036 4,1,146,0)
300                                                                  Ne w/Modified /   300                                                                  Ne w/Modified /
301   "BLD",1036 4,1,147,0)   301   "BLD",1036 4,1,147,0)
302   Template N ame      T ype      F ile Name ( Number)               Deleted        302   Template N ame      T ype      F ile Name ( Number)               Deleted     
303   "BLD",1036 4,1,148,0)   303   "BLD",1036 4,1,148,0)
304   ---------- ---      - ---      - ---------- -------            -- ---------- -   304   ---------- ---      - ---      - ---------- -------            -- ---------- -
305   "BLD",1036 4,1,149,0)   305   "BLD",1036 4,1,149,0)
306   N/A   306   N/A
307   "BLD",1036 4,1,150,0)   307   "BLD",1036 4,1,150,0)
308       308    
309   "BLD",1036 4,1,151,0)   309   "BLD",1036 4,1,151,0)
310       310    
311   "BLD",1036 4,1,152,0)   311   "BLD",1036 4,1,152,0)
312       312    
313   "BLD",1036 4,1,153,0)   313   "BLD",1036 4,1,153,0)
314   Templates,  List Asso ciated:   314   Templates,  List Asso ciated:
315   "BLD",1036 4,1,154,0)   315   "BLD",1036 4,1,154,0)
316                                                                  Ne w/Modified /   316                                                                  Ne w/Modified /
317   "BLD",1036 4,1,155,0)   317   "BLD",1036 4,1,155,0)
318   Template N ame      T ype                                         Deleted        318   Template N ame      T ype                                         Deleted     
319   "BLD",1036 4,1,156,0)   319   "BLD",1036 4,1,156,0)
320   ---------- ---      - ---                                      -- ---------- -   320   ---------- ---      - ---                                      -- ---------- -
321   "BLD",1036 4,1,157,0)   321   "BLD",1036 4,1,157,0)
322   N/A   322   N/A
323   "BLD",1036 4,1,158,0)   323   "BLD",1036 4,1,158,0)
324       324    
325   "BLD",1036 4,1,159,0)   325   "BLD",1036 4,1,159,0)
326       326    
327   "BLD",1036 4,1,160,0)   327   "BLD",1036 4,1,160,0)
328       328    
329   "BLD",1036 4,1,161,0)   329   "BLD",1036 4,1,161,0)
330   Templates,  Print Ass ociated:   330   Templates,  Print Ass ociated:
331   "BLD",1036 4,1,162,0)   331   "BLD",1036 4,1,162,0)
332                                                                     New/Modifi ed/   332                                                                     New/Modifi ed/
333   "BLD",1036 4,1,163,0)   333   "BLD",1036 4,1,163,0)
334   Template N ame          Type  Fi le Name (N umber)                   Deleted        334   Template N ame          Type  Fi le Name (N umber)                   Deleted     
335   "BLD",1036 4,1,164,0)   335   "BLD",1036 4,1,164,0)
336   ---------- ---          ----  -- ---------- ------                ---------- ---   336   ---------- ---          ----  -- ---------- ------                ---------- ---
337   "BLD",1036 4,1,165,0)   337   "BLD",1036 4,1,165,0)
338   N/A   338   N/A
339   "BLD",1036 4,1,166,0)   339   "BLD",1036 4,1,166,0)
340       340    
341   "BLD",1036 4,1,167,0)   341   "BLD",1036 4,1,167,0)
342       342    
343   "BLD",1036 4,1,168,0)   343   "BLD",1036 4,1,168,0)
344       344    
345   "BLD",1036 4,1,169,0)   345   "BLD",1036 4,1,169,0)
346   Templates,  Sort Asso ciated:   346   Templates,  Sort Asso ciated:
347   "BLD",1036 4,1,170,0)   347   "BLD",1036 4,1,170,0)
348                                                                           348                                                                        
349   "BLD",1036 4,1,171,0)   349   "BLD",1036 4,1,171,0)
350   New/Modifi ed/   350   New/Modifi ed/
351   "BLD",1036 4,1,172,0)   351   "BLD",1036 4,1,172,0)
352   Template N ame              Type  File Name  (Number)                      352   Template N ame              Type  File Name  (Number)                   
353   "BLD",1036 4,1,173,0)   353   "BLD",1036 4,1,173,0)
354   Deleted        354   Deleted     
355   "BLD",1036 4,1,174,0)   355   "BLD",1036 4,1,174,0)
356   ---------- ---              ----  --------- ---------                   356   ---------- ---              ----  --------- ---------                
357   "BLD",1036 4,1,175,0)   357   "BLD",1036 4,1,175,0)
358   ---------- ---   358   ---------- ---
359   "BLD",1036 4,1,176,0)   359   "BLD",1036 4,1,176,0)
360   N/A   360   N/A
361   "BLD",1036 4,1,177,0)   361   "BLD",1036 4,1,177,0)
362       362    
363   "BLD",1036 4,1,178,0)   363   "BLD",1036 4,1,178,0)
364       364    
365   "BLD",1036 4,1,179,0)   365   "BLD",1036 4,1,179,0)
366   Additional  Informati on:   366   Additional  Informati on:
367   "BLD",1036 4,1,180,0)   367   "BLD",1036 4,1,180,0)
368   N/A   368   N/A
369   "BLD",1036 4,1,181,0)   369   "BLD",1036 4,1,181,0)
370       370    
371   "BLD",1036 4,1,182,0)   371   "BLD",1036 4,1,182,0)
372       372    
373   "BLD",1036 4,1,183,0)   373   "BLD",1036 4,1,183,0)
374   New Servic e Requests  (NSRs)   374   New Servic e Requests  (NSRs)
375   "BLD",1036 4,1,184,0)   375   "BLD",1036 4,1,184,0)
376   ---------- ---------- --------     376   ---------- ---------- --------  
377   "BLD",1036 4,1,185,0)   377   "BLD",1036 4,1,185,0)
378   N/A   378   N/A
379   "BLD",1036 4,1,186,0)   379   "BLD",1036 4,1,186,0)
380       380    
381   "BLD",1036 4,1,187,0)   381   "BLD",1036 4,1,187,0)
382       382    
383   "BLD",1036 4,1,188,0)   383   "BLD",1036 4,1,188,0)
384   Patient Sa fety Issue s (PSIs)   384   Patient Sa fety Issue s (PSIs)
385   "BLD",1036 4,1,189,0)   385   "BLD",1036 4,1,189,0)
386   ---------- ---------- ---------   386   ---------- ---------- ---------
387   "BLD",1036 4,1,190,0)   387   "BLD",1036 4,1,190,0)
388   N/A   388   N/A
389   "BLD",1036 4,1,191,0)   389   "BLD",1036 4,1,191,0)
390       390    
391   "BLD",1036 4,1,192,0)   391   "BLD",1036 4,1,192,0)
392       392    
393   "BLD",1036 4,1,193,0)   393   "BLD",1036 4,1,193,0)
394   ServiceNow  Ticket(s)  & Overvie w   394   ServiceNow  Ticket(s)  & Overvie w
395   "BLD",1036 4,1,194,0)   395   "BLD",1036 4,1,194,0)
396   ---------- ---------- ---------- ---------- -------   396   ---------- ---------- ---------- ---------- -------
397   "BLD",1036 4,1,195,0)   397   "BLD",1036 4,1,195,0)
398   I17005764F Y18  Pyxis  and EDIS  are not re cognizing  clinic che ck in acti ons   398   I17005764F Y18  Pyxis  and EDIS  are not re cognizing  clinic che ck in acti ons
399   "BLD",1036 4,1,196,0)   399   "BLD",1036 4,1,196,0)
400        400     
401   "BLD",1036 4,1,197,0)   401   "BLD",1036 4,1,197,0)
402   Problem:   402   Problem:
403   "BLD",1036 4,1,198,0)   403   "BLD",1036 4,1,198,0)
404   -------   404   -------
405   "BLD",1036 4,1,199,0)   405   "BLD",1036 4,1,199,0)
406   When a use r performs  appointme nt actions  in VS GUI , downstre am systems     406   When a use r performs  appointme nt actions  in VS GUI , downstre am systems  
407   "BLD",1036 4,1,200,0)   407   "BLD",1036 4,1,200,0)
408   such   408   such
409   "BLD",1036 4,1,201,0)   409   "BLD",1036 4,1,201,0)
410   as Pyxis ( or other u nit dosing  devices,  such as Om nicell) an d EDIS are  not   410   as Pyxis ( or other u nit dosing  devices,  such as Om nicell) an d EDIS are  not
411   "BLD",1036 4,1,202,0)   411   "BLD",1036 4,1,202,0)
412   updated, w hereas the y are when  the appoi ntment act ions are t aken in le gacy   412   updated, w hereas the y are when  the appoi ntment act ions are t aken in le gacy
413   "BLD",1036 4,1,203,0)   413   "BLD",1036 4,1,203,0)
414   VistA.   414   VistA.
415   "BLD",1036 4,1,204,0)   415   "BLD",1036 4,1,204,0)
416       416    
417   "BLD",1036 4,1,205,0)   417   "BLD",1036 4,1,205,0)
418   Resolution :   418   Resolution :
419   "BLD",1036 4,1,206,0)   419   "BLD",1036 4,1,206,0)
420   ----------   420   ----------
421   "BLD",1036 4,1,207,0)   421   "BLD",1036 4,1,207,0)
422   The GUI no w invokes  the SDAM A PPOINTMENT  EVENTS pr otocol jus t like leg acy   422   The GUI no w invokes  the SDAM A PPOINTMENT  EVENTS pr otocol jus t like leg acy
423   "BLD",1036 4,1,208,0)   423   "BLD",1036 4,1,208,0)
424   VistA, mea ning that  the downst ream syste ms will be  notified  in the sam e   424   VistA, mea ning that  the downst ream syste ms will be  notified  in the sam e
425   "BLD",1036 4,1,209,0)   425   "BLD",1036 4,1,209,0)
426   way whethe r actions  are taken  on them in  GUI or le gacy.   426   way whethe r actions  are taken  on them in  GUI or le gacy.
427   "BLD",1036 4,1,210,0)   427   "BLD",1036 4,1,210,0)
428       428    
429   "BLD",1036 4,1,211,0)   429   "BLD",1036 4,1,211,0)
430   Test Sites :   430   Test Sites :
431   "BLD",1036 4,1,212,0)   431   "BLD",1036 4,1,212,0)
432   ----------   432   ----------
433   "BLD",1036 4,1,213,0)   433   "BLD",1036 4,1,213,0)
434   TBA   434   TBA
435   "BLD",1036 4,1,214,0)   435   "BLD",1036 4,1,214,0)
436       436    
437   "BLD",1036 4,1,215,0)   437   "BLD",1036 4,1,215,0)
438   Software a nd Documen tation Ret rieval Ins tructions:   438   Software a nd Documen tation Ret rieval Ins tructions:
439   "BLD",1036 4,1,216,0)   439   "BLD",1036 4,1,216,0)
440   ---------- ---------- ---------- ---------- ---------- --   440   ---------- ---------- ---------- ---------- ---------- --
441   "BLD",1036 4,1,217,0)   441   "BLD",1036 4,1,217,0)
442       442    
443   "BLD",1036 4,1,218,0)   443   "BLD",1036 4,1,218,0)
444   Software b eing relea sed as a h ost file a nd/or docu mentation  describing   444   Software b eing relea sed as a h ost file a nd/or docu mentation  describing
445   "BLD",1036 4,1,219,0)   445   "BLD",1036 4,1,219,0)
446   the new fu nctionalit y introduc ed by this  patch are  available .   446   the new fu nctionalit y introduc ed by this  patch are  available .
447   "BLD",1036 4,1,220,0)   447   "BLD",1036 4,1,220,0)
448        448     
449   "BLD",1036 4,1,221,0)   449   "BLD",1036 4,1,221,0)
450   The prefer red method  is to ret rieve file s from dow nload. vista.med. va.gov .
  450   The prefer red method  is to ret rieve file s from dow nload. DNS . URL
451   "BLD",1036 4,1,222,0)   451   "BLD",1036 4,1,222,0)
452   This trans mits the f iles from  the first  available  server. Si tes may   452   This trans mits the f iles from  the first  available  server. Si tes may
453   "BLD",1036 4,1,223,0)   453   "BLD",1036 4,1,223,0)
454   also elect  to retrie ve files d irectly fr om a speci fic server .     454   also elect  to retrie ve files d irectly fr om a speci fic server .  
455   "BLD",1036 4,1,224,0)   455   "BLD",1036 4,1,224,0)
456        456     
457   "BLD",1036 4,1,225,0)   457   "BLD",1036 4,1,225,0)
458   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using    458   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
459   "BLD",1036 4,1,226,0)   459   "BLD",1036 4,1,226,0)
460   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE   460   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE
461   "BLD",1036 4,1,227,0)   461   "BLD",1036 4,1,227,0)
462   directory  at the fol lowing OI  Field Offi ces:   462   directory  at the fol lowing OI  Field Offi ces:
463   "BLD",1036 4,1,228,0)   463   "BLD",1036 4,1,228,0)
464        464     
465   "BLD",1036 4,1,229,0)   465   "BLD",1036 4,1,229,0)
466     Hines:            fo-hines.m ed.va.gov   466     Hines:            DNS     .U RL        
467   "BLD",1036 4,1,230,0)   467   "BLD",1036 4,1,230,0)
468       Salt Lake  City:  fo-slc.med .va . gov   468       Salt Lake  City:  DNS . URL        
469   "BLD",1036 4,1,231,0)   469   "BLD",1036 4,1,231,0)
470       470    
471   "BLD",1036 4,1,232,0)   471   "BLD",1036 4,1,232,0)
472       472    
473   "BLD",1036 4,1,233,0)   473   "BLD",1036 4,1,233,0)
474   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry    474   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
475   "BLD",1036 4,1,234,0)   475   "BLD",1036 4,1,234,0)
476   at:   476   at:
477   "BLD",1036 4,1,235,0)   477   "BLD",1036 4,1,235,0)
478   http:// www4.va.go v/vdl /   478   http:// URL              /
479   "BLD",1036 4,1,236,0)   479   "BLD",1036 4,1,236,0)
480       480    
481   "BLD",1036 4,1,237,0)   481   "BLD",1036 4,1,237,0)
482   Title                                              Fil e Name           FTP  Mode   482   Title                                              Fil e Name           FTP  Mode
483   "BLD",1036 4,1,238,0)   483   "BLD",1036 4,1,238,0)
484   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----   484   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
485   "BLD",1036 4,1,239,0)   485   "BLD",1036 4,1,239,0)
486   VistA Sche duling Enh ancements  GUI User G uide   SCH EDULING_UG .PDF  Bina ry   486   VistA Sche duling Enh ancements  GUI User G uide   SCH EDULING_UG .PDF  Bina ry
487   "BLD",1036 4,1,240,0)   487   "BLD",1036 4,1,240,0)
488   VistA Sche duling Enh ancements  Technical  Manual SCH EDULING_TM .PDF  Bina ry   488   VistA Sche duling Enh ancements  Technical  Manual SCH EDULING_TM .PDF  Bina ry
489   "BLD",1036 4,1,241,0)   489   "BLD",1036 4,1,241,0)
490       490    
491   "BLD",1036 4,1,242,0)   491   "BLD",1036 4,1,242,0)
492       492    
493   "BLD",1036 4,1,243,0)   493   "BLD",1036 4,1,243,0)
494   Patch Inst allation:   494   Patch Inst allation:
495   "BLD",1036 4,1,244,0)   495   "BLD",1036 4,1,244,0)
496       496    
497   "BLD",1036 4,1,245,0)   497   "BLD",1036 4,1,245,0)
498       498    
499   "BLD",1036 4,1,246,0)   499   "BLD",1036 4,1,246,0)
500   Pre/Post I nstallatio n Overview   500   Pre/Post I nstallatio n Overview
501   "BLD",1036 4,1,247,0)   501   "BLD",1036 4,1,247,0)
502   ---------- ---------- ----------   502   ---------- ---------- ----------
503   "BLD",1036 4,1,248,0)   503   "BLD",1036 4,1,248,0)
504   There are  no pre- or  post-inst allation t asks for t his patch.   504   There are  no pre- or  post-inst allation t asks for t his patch.
505   "BLD",1036 4,1,249,0)   505   "BLD",1036 4,1,249,0)
506        506     
507   "BLD",1036 4,1,250,0)   507   "BLD",1036 4,1,250,0)
508   Installati on Instruc tions   508   Installati on Instruc tions
509   "BLD",1036 4,1,251,0)   509   "BLD",1036 4,1,251,0)
510   ---------- ---------- -----   510   ---------- ---------- -----
511   "BLD",1036 4,1,252,0)   511   "BLD",1036 4,1,252,0)
512   Install Ti me - less  than 5 min utes.   512   Install Ti me - less  than 5 min utes.
513   "BLD",1036 4,1,253,0)   513   "BLD",1036 4,1,253,0)
514          514       
515   "BLD",1036 4,1,254,0)   515   "BLD",1036 4,1,254,0)
516      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.   516      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.
517   "BLD",1036 4,1,255,0)   517   "BLD",1036 4,1,255,0)
518         518      
519   "BLD",1036 4,1,256,0)   519   "BLD",1036 4,1,256,0)
520      2. From  the Kerne l Installa tion & Dis tribution  System men u, select   520      2. From  the Kerne l Installa tion & Dis tribution  System men u, select
521   "BLD",1036 4,1,257,0)   521   "BLD",1036 4,1,257,0)
522         the  Installati on menu.   522         the  Installati on menu.
523   "BLD",1036 4,1,258,0)   523   "BLD",1036 4,1,258,0)
524         524      
525   "BLD",1036 4,1,259,0)   525   "BLD",1036 4,1,259,0)
526      3. From  this menu , you may  select to  use the fo llowing op tions   526      3. From  this menu , you may  select to  use the fo llowing op tions
527   "BLD",1036 4,1,260,0)   527   "BLD",1036 4,1,260,0)
528         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*717):   528         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*717):
529   "BLD",1036 4,1,261,0)   529   "BLD",1036 4,1,261,0)
530              a.  Verify  Checksums  in Transp ort Global  - This op tion will    530              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
531   "BLD",1036 4,1,262,0)   531   "BLD",1036 4,1,262,0)
532   allow   532   allow
533   "BLD",1036 4,1,263,0)   533   "BLD",1036 4,1,263,0)
534                  you to  ensure th e integrit y of the r outines th at are in  the   534                  you to  ensure th e integrit y of the r outines th at are in  the
535   "BLD",1036 4,1,264,0)   535   "BLD",1036 4,1,264,0)
536                  transp ort global .   536                  transp ort global .
537   "BLD",1036 4,1,265,0)   537   "BLD",1036 4,1,265,0)
538              b.  Print  Transport  Global - T his option  will allo w you to v iew   538              b.  Print  Transport  Global - T his option  will allo w you to v iew
539   "BLD",1036 4,1,266,0)   539   "BLD",1036 4,1,266,0)
540                  the co mponents o f the KIDS  build.   540                  the co mponents o f the KIDS  build.
541   "BLD",1036 4,1,267,0)   541   "BLD",1036 4,1,267,0)
542              c.  Compar e Transpor t Global t o Current  System - T his option     542              c.  Compar e Transpor t Global t o Current  System - T his option  
543   "BLD",1036 4,1,268,0)   543   "BLD",1036 4,1,268,0)
544   will   544   will
545   "BLD",1036 4,1,269,0)   545   "BLD",1036 4,1,269,0)
546                  allow  you to vie w all chan ges that w ill be mad e when thi   546                  allow  you to vie w all chan ges that w ill be mad e when thi
547   "BLD",1036 4,1,270,0)   547   "BLD",1036 4,1,270,0)
548                  patch  is install ed.  It co mpares all  component s of this   548                  patch  is install ed.  It co mpares all  component s of this
549   "BLD",1036 4,1,271,0)   549   "BLD",1036 4,1,271,0)
550                  patch  (routines,  DD's, tem plates, et c.).   550                  patch  (routines,  DD's, tem plates, et c.).
551   "BLD",1036 4,1,272,0)   551   "BLD",1036 4,1,272,0)
552              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup   552              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup
553   "BLD",1036 4,1,273,0)   553   "BLD",1036 4,1,273,0)
554                  messag e of any r outines ex ported wit h this pat ch. It wil   554                  messag e of any r outines ex ported wit h this pat ch. It wil
555   "BLD",1036 4,1,274,0)   555   "BLD",1036 4,1,274,0)
556   not   556   not
557   "BLD",1036 4,1,275,0)   557   "BLD",1036 4,1,275,0)
558                  backup  any other  changes s uch as DD' s or templ ates.   558                  backup  any other  changes s uch as DD' s or templ ates.
559   "BLD",1036 4,1,276,0)   559   "BLD",1036 4,1,276,0)
560         560      
561   "BLD",1036 4,1,277,0)   561   "BLD",1036 4,1,277,0)
562      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 717.   562      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 717.
563   "BLD",1036 4,1,278,0)   563   "BLD",1036 4,1,278,0)
564         564      
565   "BLD",1036 4,1,279,0)   565   "BLD",1036 4,1,279,0)
566      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"   566      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"
567   "BLD",1036 4,1,280,0)   567   "BLD",1036 4,1,280,0)
568         resp ond NO.   568         resp ond NO.
569   "BLD",1036 4,1,281,0)   569   "BLD",1036 4,1,281,0)
570      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and   570      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and
571   "BLD",1036 4,1,282,0)   571   "BLD",1036 4,1,282,0)
572         Prot ocols? NO/ /", respon d NO   572         Prot ocols? NO/ /", respon d NO
573   "BLD",1036 4,1,283,0)   573   "BLD",1036 4,1,283,0)
574       574    
575   "BLD",1036 4,1,284,0)   575   "BLD",1036 4,1,284,0)
576   Back-Out/R oll Back P lan:   576   Back-Out/R oll Back P lan:
577   "BLD",1036 4,1,285,0)   577   "BLD",1036 4,1,285,0)
578   ---------- ---------- ----   578   ---------- ---------- ----
579   "BLD",1036 4,1,286,0)   579   "BLD",1036 4,1,286,0)
580   In the eve nt of a ca tastrophic  failure,  the Facili ty Chief I nformation     580   In the eve nt of a ca tastrophic  failure,  the Facili ty Chief I nformation  
581   "BLD",1036 4,1,287,0)   581   "BLD",1036 4,1,287,0)
582   Officer ma y make the  decision  to back-ou t the patc h.   582   Officer ma y make the  decision  to back-ou t the patc h.
583   "BLD",1036 4,1,288,0)   583   "BLD",1036 4,1,288,0)
584       584    
585   "BLD",1036 4,1,289,0)   585   "BLD",1036 4,1,289,0)
586   It is impe rative tha t you have  performed  a backup  of the rou tines and   586   It is impe rative tha t you have  performed  a backup  of the rou tines and
587   "BLD",1036 4,1,290,0)   587   "BLD",1036 4,1,290,0)
588   the routin es include d matches  the pre-pa tch checks um from th e patch   588   the routin es include d matches  the pre-pa tch checks um from th e patch
589   "BLD",1036 4,1,291,0)   589   "BLD",1036 4,1,291,0)
590   descriptio n.   590   descriptio n.
591   "BLD",1036 4,1,292,0)   591   "BLD",1036 4,1,292,0)
592       592    
593   "BLD",1036 4,1,293,0)   593   "BLD",1036 4,1,293,0)
594   This patch  only cont ains routi ne updates . To back- out the pa tch please   594   This patch  only cont ains routi ne updates . To back- out the pa tch please
595   "BLD",1036 4,1,294,0)   595   "BLD",1036 4,1,294,0)
596   restore th e backup m essage fro m the patc h installa tion proce ss.   596   restore th e backup m essage fro m the patc h installa tion proce ss.
597   "BLD",1036 4,4,0)   597   "BLD",1036 4,4,0)
598   ^9.64PA^^   598   ^9.64PA^^
599   "BLD",1036 4,6)   599   "BLD",1036 4,6)
600   1^   600   1^
601   "BLD",1036 4,6.3)   601   "BLD",1036 4,6.3)
602   7   602   7
603   "BLD",1036 4,"KRN",0)   603   "BLD",1036 4,"KRN",0)
604   ^9.67PA^1. 61^23   604   ^9.67PA^1. 61^23
605   "BLD",1036 4,"KRN",.4 ,0)   605   "BLD",1036 4,"KRN",.4 ,0)
606   .4   606   .4
607   "BLD",1036 4,"KRN",.4 01,0)   607   "BLD",1036 4,"KRN",.4 01,0)
608   .401   608   .401
609   "BLD",1036 4,"KRN",.4 02,0)   609   "BLD",1036 4,"KRN",.4 02,0)
610   .402   610   .402
611   "BLD",1036 4,"KRN",.4 03,0)   611   "BLD",1036 4,"KRN",.4 03,0)
612   .403   612   .403
613   "BLD",1036 4,"KRN",.5 ,0)   613   "BLD",1036 4,"KRN",.5 ,0)
614   .5   614   .5
615   "BLD",1036 4,"KRN",.8 4,0)   615   "BLD",1036 4,"KRN",.8 4,0)
616   .84   616   .84
617   "BLD",1036 4,"KRN",1. 6,0)   617   "BLD",1036 4,"KRN",1. 6,0)
618   1.6   618   1.6
619   "BLD",1036 4,"KRN",1. 61,0)   619   "BLD",1036 4,"KRN",1. 61,0)
620   1.61   620   1.61
621   "BLD",1036 4,"KRN",1. 62,0)   621   "BLD",1036 4,"KRN",1. 62,0)
622   1.62   622   1.62
623   "BLD",1036 4,"KRN",3. 6,0)   623   "BLD",1036 4,"KRN",3. 6,0)
624   3.6   624   3.6
625   "BLD",1036 4,"KRN",3. 8,0)   625   "BLD",1036 4,"KRN",3. 8,0)
626   3.8   626   3.8
627   "BLD",1036 4,"KRN",9. 2,0)   627   "BLD",1036 4,"KRN",9. 2,0)
628   9.2   628   9.2
629   "BLD",1036 4,"KRN",9. 8,0)   629   "BLD",1036 4,"KRN",9. 8,0)
630   9.8   630   9.8
631   "BLD",1036 4,"KRN",9. 8,"NM",0)   631   "BLD",1036 4,"KRN",9. 8,"NM",0)
632   ^9.68A^8^7   632   ^9.68A^8^7
633   "BLD",1036 4,"KRN",9. 8,"NM",1,0 )   633   "BLD",1036 4,"KRN",9. 8,"NM",1,0 )
634   SDAMEVT^^0 ^B32857672   634   SDAMEVT^^0 ^B32857672
635   "BLD",1036 4,"KRN",9. 8,"NM",2,0 )   635   "BLD",1036 4,"KRN",9. 8,"NM",2,0 )
636   SDCO3^^0^B 4283789   636   SDCO3^^0^B 4283789
637   "BLD",1036 4,"KRN",9. 8,"NM",3,0 )   637   "BLD",1036 4,"KRN",9. 8,"NM",3,0 )
638   SDCODEL^^0 ^B14749068   638   SDCODEL^^0 ^B14749068
639   "BLD",1036 4,"KRN",9. 8,"NM",4,0 )   639   "BLD",1036 4,"KRN",9. 8,"NM",4,0 )
640   SDEC07B^^0 ^B86344811   640   SDEC07B^^0 ^B86344811
641   "BLD",1036 4,"KRN",9. 8,"NM",5,0 )   641   "BLD",1036 4,"KRN",9. 8,"NM",5,0 )
642   SDEC08^^0^ B217036692   642   SDEC08^^0^ B217036692
643   "BLD",1036 4,"KRN",9. 8,"NM",6,0 )   643   "BLD",1036 4,"KRN",9. 8,"NM",6,0 )
644   SDEC25^^0^ B151472805   644   SDEC25^^0^ B151472805
645   "BLD",1036 4,"KRN",9. 8,"NM",8,0 )   645   "BLD",1036 4,"KRN",9. 8,"NM",8,0 )
646   SDEC31^^0^ B34969907   646   SDEC31^^0^ B34969907
647   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1)   647   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1)
648     648  
649   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 )   649   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 )
650     650  
651   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3)   651   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3)
652     652  
653   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4)   653   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4)
654     654  
655   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5)   655   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5)
656     656  
657   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6)   657   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6)
658     658  
659   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8)   659   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8)
660     660  
661   "BLD",1036 4,"KRN",19 ,0)   661   "BLD",1036 4,"KRN",19 ,0)
662   19   662   19
663   "BLD",1036 4,"KRN",19 .1,0)   663   "BLD",1036 4,"KRN",19 .1,0)
664   19.1   664   19.1
665   "BLD",1036 4,"KRN",10 1,0)   665   "BLD",1036 4,"KRN",10 1,0)
666   101   666   101
667   "BLD",1036 4,"KRN",40 9.61,0)   667   "BLD",1036 4,"KRN",40 9.61,0)
668   409.61   668   409.61
669   "BLD",1036 4,"KRN",77 1,0)   669   "BLD",1036 4,"KRN",77 1,0)
670   771   670   771
671   "BLD",1036 4,"KRN",77 9.2,0)   671   "BLD",1036 4,"KRN",77 9.2,0)
672   779.2   672   779.2
673   "BLD",1036 4,"KRN",87 0,0)   673   "BLD",1036 4,"KRN",87 0,0)
674   870   674   870
675   "BLD",1036 4,"KRN",89 89.51,0)   675   "BLD",1036 4,"KRN",89 89.51,0)
676   8989.51   676   8989.51
677   "BLD",1036 4,"KRN",89 89.52,0)   677   "BLD",1036 4,"KRN",89 89.52,0)
678   8989.52   678   8989.52
679   "BLD",1036 4,"KRN",89 94,0)   679   "BLD",1036 4,"KRN",89 94,0)
680   8994   680   8994
681   "BLD",1036 4,"KRN","B ",.4,.4)   681   "BLD",1036 4,"KRN","B ",.4,.4)
682     682  
683   "BLD",1036 4,"KRN","B ",.401,.40 1)   683   "BLD",1036 4,"KRN","B ",.401,.40 1)
684     684  
685   "BLD",1036 4,"KRN","B ",.402,.40 2)   685   "BLD",1036 4,"KRN","B ",.402,.40 2)
686     686  
687   "BLD",1036 4,"KRN","B ",.403,.40 3)   687   "BLD",1036 4,"KRN","B ",.403,.40 3)
688     688  
689   "BLD",1036 4,"KRN","B ",.5,.5)   689   "BLD",1036 4,"KRN","B ",.5,.5)
690     690  
691   "BLD",1036 4,"KRN","B ",.84,.84)   691   "BLD",1036 4,"KRN","B ",.84,.84)
692     692  
693   "BLD",1036 4,"KRN","B ",1.6,1.6)   693   "BLD",1036 4,"KRN","B ",1.6,1.6)
694     694  
695   "BLD",1036 4,"KRN","B ",1.61,1.6 1)   695   "BLD",1036 4,"KRN","B ",1.61,1.6 1)
696     696  
697   "BLD",1036 4,"KRN","B ",1.62,1.6 2)   697   "BLD",1036 4,"KRN","B ",1.62,1.6 2)
698     698  
699   "BLD",1036 4,"KRN","B ",3.6,3.6)   699   "BLD",1036 4,"KRN","B ",3.6,3.6)
700     700  
701   "BLD",1036 4,"KRN","B ",3.8,3.8)   701   "BLD",1036 4,"KRN","B ",3.8,3.8)
702     702  
703   "BLD",1036 4,"KRN","B ",9.2,9.2)   703   "BLD",1036 4,"KRN","B ",9.2,9.2)
704     704  
705   "BLD",1036 4,"KRN","B ",9.8,9.8)   705   "BLD",1036 4,"KRN","B ",9.8,9.8)
706     706  
707   "BLD",1036 4,"KRN","B ",19,19)   707   "BLD",1036 4,"KRN","B ",19,19)
708     708  
709   "BLD",1036 4,"KRN","B ",19.1,19. 1)   709   "BLD",1036 4,"KRN","B ",19.1,19. 1)
710     710  
711   "BLD",1036 4,"KRN","B ",101,101)   711   "BLD",1036 4,"KRN","B ",101,101)
712     712  
713   "BLD",1036 4,"KRN","B ",409.61,4 09.61)   713   "BLD",1036 4,"KRN","B ",409.61,4 09.61)
714     714  
715   "BLD",1036 4,"KRN","B ",771,771)   715   "BLD",1036 4,"KRN","B ",771,771)
716     716  
717   "BLD",1036 4,"KRN","B ",779.2,77 9.2)   717   "BLD",1036 4,"KRN","B ",779.2,77 9.2)
718     718  
719   "BLD",1036 4,"KRN","B ",870,870)   719   "BLD",1036 4,"KRN","B ",870,870)
720     720  
721   "BLD",1036 4,"KRN","B ",8989.51, 8989.51)   721   "BLD",1036 4,"KRN","B ",8989.51, 8989.51)
722     722  
723   "BLD",1036 4,"KRN","B ",8989.52, 8989.52)   723   "BLD",1036 4,"KRN","B ",8989.52, 8989.52)
724     724  
725   "BLD",1036 4,"KRN","B ",8994,899 4)   725   "BLD",1036 4,"KRN","B ",8994,899 4)
726     726  
727   "BLD",1036 4,"QUES",0 )   727   "BLD",1036 4,"QUES",0 )
728   ^9.62^^   728   ^9.62^^
729   "BLD",1036 4,"REQB",0 )   729   "BLD",1036 4,"REQB",0 )
730   ^9.611^7^6   730   ^9.611^7^6
731   "BLD",1036 4,"REQB",1 ,0)   731   "BLD",1036 4,"REQB",1 ,0)
732   DVBA*2.7*2 08^2   732   DVBA*2.7*2 08^2
733   "BLD",1036 4,"REQB",2 ,0)   733   "BLD",1036 4,"REQB",2 ,0)
734   SD*5.3*443 ^2   734   SD*5.3*443 ^2
735   "BLD",1036 4,"REQB",3 ,0)   735   "BLD",1036 4,"REQB",3 ,0)
736   SD*5.3*466 ^2   736   SD*5.3*466 ^2
737   "BLD",1036 4,"REQB",5 ,0)   737   "BLD",1036 4,"REQB",5 ,0)
738   SD*5.3*671 ^2   738   SD*5.3*671 ^2
739   "BLD",1036 4,"REQB",6 ,0)   739   "BLD",1036 4,"REQB",6 ,0)
740   SD*5.3*683 ^2   740   SD*5.3*683 ^2
741   "BLD",1036 4,"REQB",7 ,0)   741   "BLD",1036 4,"REQB",7 ,0)
742   SD*5.3*722 ^2   742   SD*5.3*722 ^2
743   "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1)   743   "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1)
744     744  
745   "BLD",1036 4,"REQB"," B","SD*5.3 *443",2)   745   "BLD",1036 4,"REQB"," B","SD*5.3 *443",2)
746     746  
747   "BLD",1036 4,"REQB"," B","SD*5.3 *466",3)   747   "BLD",1036 4,"REQB"," B","SD*5.3 *466",3)
748     748  
749   "BLD",1036 4,"REQB"," B","SD*5.3 *671",5)   749   "BLD",1036 4,"REQB"," B","SD*5.3 *671",5)
750     750  
751   "BLD",1036 4,"REQB"," B","SD*5.3 *683",6)   751   "BLD",1036 4,"REQB"," B","SD*5.3 *683",6)
752     752  
753   "BLD",1036 4,"REQB"," B","SD*5.3 *722",7)   753   "BLD",1036 4,"REQB"," B","SD*5.3 *722",7)
754     754  
755   "MBREQ")   755   "MBREQ")
756   0   756   0
757   "PKG",48,- 1)   757   "PKG",48,- 1)
758   1^1   758   1^1
759   "PKG",48,0 )   759   "PKG",48,0 )
760   SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS   760   SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS
761   "PKG",48,2 2,0)   761   "PKG",48,2 2,0)
762   ^9.49I^1^1   762   ^9.49I^1^1
763   "PKG",48,2 2,1,0)   763   "PKG",48,2 2,1,0)
764   5.3^305111 9^2960613   764   5.3^305111 9^2960613
765   "PKG",48,2 2,1,"PAH", 1,0)   765   "PKG",48,2 2,1,"PAH", 1,0)
766   717^319032 6^114   766   717^319032 6^114
767   "PKG",48,2 2,1,"PAH", 1,1,0)   767   "PKG",48,2 2,1,"PAH", 1,1,0)
768   ^^294^294^ 3190326   768   ^^294^294^ 3190326
769   "PKG",48,2 2,1,"PAH", 1,1,1,0)   769   "PKG",48,2 2,1,"PAH", 1,1,1,0)
770   This patch  corrects  the proble m of appoi ntment pro cessing in  VistA   770   This patch  corrects  the proble m of appoi ntment pro cessing in  VistA
771   "PKG",48,2 2,1,"PAH", 1,1,2,0)   771   "PKG",48,2 2,1,"PAH", 1,1,2,0)
772   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM    772   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM 
773   "PKG",48,2 2,1,"PAH", 1,1,3,0)   773   "PKG",48,2 2,1,"PAH", 1,1,3,0)
774   APPOINTMEN T   774   APPOINTMEN T
775   "PKG",48,2 2,1,"PAH", 1,1,4,0)   775   "PKG",48,2 2,1,"PAH", 1,1,4,0)
776   EVENTS) th at roll an d scroll V istA does.  This prot ocol allow s other ap ps   776   EVENTS) th at roll an d scroll V istA does.  This prot ocol allow s other ap ps
777   "PKG",48,2 2,1,"PAH", 1,1,5,0)   777   "PKG",48,2 2,1,"PAH", 1,1,5,0)
778   to tie fun ctionality , includin g interfac es to exte rnal syste ms such as   778   to tie fun ctionality , includin g interfac es to exte rnal syste ms such as
779   "PKG",48,2 2,1,"PAH", 1,1,6,0)   779   "PKG",48,2 2,1,"PAH", 1,1,6,0)
780   Pyxis, Omn icell, and  EDIS,to a ppointment  events. A ctions cur rently bei ng   780   Pyxis, Omn icell, and  EDIS,to a ppointment  events. A ctions cur rently bei ng
781   "PKG",48,2 2,1,"PAH", 1,1,7,0)   781   "PKG",48,2 2,1,"PAH", 1,1,7,0)
782   executed f or appoint ment event s in legac y VistA wi ll also be  executed  for   782   executed f or appoint ment event s in legac y VistA wi ll also be  executed  for
783   "PKG",48,2 2,1,"PAH", 1,1,8,0)   783   "PKG",48,2 2,1,"PAH", 1,1,8,0)
784   appointmen ts when th ose events  (make app ointment,  check in,  undo check  in,   784   appointmen ts when th ose events  (make app ointment,  check in,  undo check  in,
785   "PKG",48,2 2,1,"PAH", 1,1,9,0)   785   "PKG",48,2 2,1,"PAH", 1,1,9,0)
786   check out,  undo chec k out, can cel appoin tment, no  show) are  triggered  by   786   check out,  undo chec k out, can cel appoin tment, no  show) are  triggered  by
787   "PKG",48,2 2,1,"PAH", 1,1,10,0)   787   "PKG",48,2 2,1,"PAH", 1,1,10,0)
788   the GUI. ( However, t his patch  does not r equire a G UI update. )   788   the GUI. ( However, t his patch  does not r equire a G UI update. )
789   "PKG",48,2 2,1,"PAH", 1,1,11,0)   789   "PKG",48,2 2,1,"PAH", 1,1,11,0)
790        790     
791   "PKG",48,2 2,1,"PAH", 1,1,12,0)   791   "PKG",48,2 2,1,"PAH", 1,1,12,0)
792   Patch Comp onents   792   Patch Comp onents
793   "PKG",48,2 2,1,"PAH", 1,1,13,0)   793   "PKG",48,2 2,1,"PAH", 1,1,13,0)
794   ========== ======   794   ========== ======
795   "PKG",48,2 2,1,"PAH", 1,1,14,0)   795   "PKG",48,2 2,1,"PAH", 1,1,14,0)
796       796    
797   "PKG",48,2 2,1,"PAH", 1,1,15,0)   797   "PKG",48,2 2,1,"PAH", 1,1,15,0)
798   Files & Fi elds Assoc iated:   798   Files & Fi elds Assoc iated:
799   "PKG",48,2 2,1,"PAH", 1,1,16,0)   799   "PKG",48,2 2,1,"PAH", 1,1,16,0)
800       800    
801   "PKG",48,2 2,1,"PAH", 1,1,17,0)   801   "PKG",48,2 2,1,"PAH", 1,1,17,0)
802   File Name  (#)                                                 Ne w/Modified /   802   File Name  (#)                                                 Ne w/Modified /
803   "PKG",48,2 2,1,"PAH", 1,1,18,0)   803   "PKG",48,2 2,1,"PAH", 1,1,18,0)
804     Sub-file  Name (#)    Field Na me (Number )                     Deleted   804     Sub-file  Name (#)    Field Na me (Number )                     Deleted
805   "PKG",48,2 2,1,"PAH", 1,1,19,0)   805   "PKG",48,2 2,1,"PAH", 1,1,19,0)
806   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -   806   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
807   "PKG",48,2 2,1,"PAH", 1,1,20,0)   807   "PKG",48,2 2,1,"PAH", 1,1,20,0)
808   N/A   808   N/A
809   "PKG",48,2 2,1,"PAH", 1,1,21,0)   809   "PKG",48,2 2,1,"PAH", 1,1,21,0)
810       810    
811   "PKG",48,2 2,1,"PAH", 1,1,22,0)   811   "PKG",48,2 2,1,"PAH", 1,1,22,0)
812   Bulletins  Associated :   812   Bulletins  Associated :
813   "PKG",48,2 2,1,"PAH", 1,1,23,0)   813   "PKG",48,2 2,1,"PAH", 1,1,23,0)
814                                                                  Ne w/Modified /   814                                                                  Ne w/Modified /
815   "PKG",48,2 2,1,"PAH", 1,1,24,0)   815   "PKG",48,2 2,1,"PAH", 1,1,24,0)
816   Bulletin N ame                                                    Deleted        816   Bulletin N ame                                                    Deleted     
817   "PKG",48,2 2,1,"PAH", 1,1,25,0)   817   "PKG",48,2 2,1,"PAH", 1,1,25,0)
818   ---------- ---                                                 -- ---------- -   818   ---------- ---                                                 -- ---------- -
819   "PKG",48,2 2,1,"PAH", 1,1,26,0)   819   "PKG",48,2 2,1,"PAH", 1,1,26,0)
820   N/A   820   N/A
821   "PKG",48,2 2,1,"PAH", 1,1,27,0)   821   "PKG",48,2 2,1,"PAH", 1,1,27,0)
822       822    
823   "PKG",48,2 2,1,"PAH", 1,1,28,0)   823   "PKG",48,2 2,1,"PAH", 1,1,28,0)
824       824    
825   "PKG",48,2 2,1,"PAH", 1,1,29,0)   825   "PKG",48,2 2,1,"PAH", 1,1,29,0)
826       826    
827   "PKG",48,2 2,1,"PAH", 1,1,30,0)   827   "PKG",48,2 2,1,"PAH", 1,1,30,0)
828   Dialogs As sociated:   828   Dialogs As sociated:
829   "PKG",48,2 2,1,"PAH", 1,1,31,0)   829   "PKG",48,2 2,1,"PAH", 1,1,31,0)
830                                                                  Ne w/Modified /   830                                                                  Ne w/Modified /
831   "PKG",48,2 2,1,"PAH", 1,1,32,0)   831   "PKG",48,2 2,1,"PAH", 1,1,32,0)
832   Dialog Nam e                                                      Deleted        832   Dialog Nam e                                                      Deleted     
833   "PKG",48,2 2,1,"PAH", 1,1,33,0)   833   "PKG",48,2 2,1,"PAH", 1,1,33,0)
834   ---------- -                                                   -- ---------- -   834   ---------- -                                                   -- ---------- -
835   "PKG",48,2 2,1,"PAH", 1,1,34,0)   835   "PKG",48,2 2,1,"PAH", 1,1,34,0)
836   N/A   836   N/A
837   "PKG",48,2 2,1,"PAH", 1,1,35,0)   837   "PKG",48,2 2,1,"PAH", 1,1,35,0)
838       838    
839   "PKG",48,2 2,1,"PAH", 1,1,36,0)   839   "PKG",48,2 2,1,"PAH", 1,1,36,0)
840       840    
841   "PKG",48,2 2,1,"PAH", 1,1,37,0)   841   "PKG",48,2 2,1,"PAH", 1,1,37,0)
842       842    
843   "PKG",48,2 2,1,"PAH", 1,1,38,0)   843   "PKG",48,2 2,1,"PAH", 1,1,38,0)
844   Forms Asso ciated:   844   Forms Asso ciated:
845   "PKG",48,2 2,1,"PAH", 1,1,39,0)   845   "PKG",48,2 2,1,"PAH", 1,1,39,0)
846                                                                  Ne w/Modified /   846                                                                  Ne w/Modified /
847   "PKG",48,2 2,1,"PAH", 1,1,40,0)   847   "PKG",48,2 2,1,"PAH", 1,1,40,0)
848   Form Name                      F ile Name ( Number)               Deleted        848   Form Name                      F ile Name ( Number)               Deleted     
849   "PKG",48,2 2,1,"PAH", 1,1,41,0)   849   "PKG",48,2 2,1,"PAH", 1,1,41,0)
850   ---------                      - ---------- -------            -- ---------- -   850   ---------                      - ---------- -------            -- ---------- -
851   "PKG",48,2 2,1,"PAH", 1,1,42,0)   851   "PKG",48,2 2,1,"PAH", 1,1,42,0)
852   N/A   852   N/A
853   "PKG",48,2 2,1,"PAH", 1,1,43,0)   853   "PKG",48,2 2,1,"PAH", 1,1,43,0)
854       854    
855   "PKG",48,2 2,1,"PAH", 1,1,44,0)   855   "PKG",48,2 2,1,"PAH", 1,1,44,0)
856       856    
857   "PKG",48,2 2,1,"PAH", 1,1,45,0)   857   "PKG",48,2 2,1,"PAH", 1,1,45,0)
858       858    
859   "PKG",48,2 2,1,"PAH", 1,1,46,0)   859   "PKG",48,2 2,1,"PAH", 1,1,46,0)
860   Functions  Associated :   860   Functions  Associated :
861   "PKG",48,2 2,1,"PAH", 1,1,47,0)   861   "PKG",48,2 2,1,"PAH", 1,1,47,0)
862                                                                  Ne w/Modified /   862                                                                  Ne w/Modified /
863   "PKG",48,2 2,1,"PAH", 1,1,48,0)   863   "PKG",48,2 2,1,"PAH", 1,1,48,0)
864   Function N ame                                                    Deleted        864   Function N ame                                                    Deleted     
865   "PKG",48,2 2,1,"PAH", 1,1,49,0)   865   "PKG",48,2 2,1,"PAH", 1,1,49,0)
866   ---------- ---                                                 -- ---------- -   866   ---------- ---                                                 -- ---------- -
867   "PKG",48,2 2,1,"PAH", 1,1,50,0)   867   "PKG",48,2 2,1,"PAH", 1,1,50,0)
868   N/A   868   N/A
869   "PKG",48,2 2,1,"PAH", 1,1,51,0)   869   "PKG",48,2 2,1,"PAH", 1,1,51,0)
870       870    
871   "PKG",48,2 2,1,"PAH", 1,1,52,0)   871   "PKG",48,2 2,1,"PAH", 1,1,52,0)
872       872    
873   "PKG",48,2 2,1,"PAH", 1,1,53,0)   873   "PKG",48,2 2,1,"PAH", 1,1,53,0)
874       874    
875   "PKG",48,2 2,1,"PAH", 1,1,54,0)   875   "PKG",48,2 2,1,"PAH", 1,1,54,0)
876   HL Logical  Link:   876   HL Logical  Link:
877   "PKG",48,2 2,1,"PAH", 1,1,55,0)   877   "PKG",48,2 2,1,"PAH", 1,1,55,0)
878                                                                  Ne w/Modified /   878                                                                  Ne w/Modified /
879   "PKG",48,2 2,1,"PAH", 1,1,56,0)   879   "PKG",48,2 2,1,"PAH", 1,1,56,0)
880   HL Logical  Name                                                  Deleted        880   HL Logical  Name                                                  Deleted     
881   "PKG",48,2 2,1,"PAH", 1,1,57,0)   881   "PKG",48,2 2,1,"PAH", 1,1,57,0)
882   ---------- -----                                               -- ---------- -   882   ---------- -----                                               -- ---------- -
883   "PKG",48,2 2,1,"PAH", 1,1,58,0)   883   "PKG",48,2 2,1,"PAH", 1,1,58,0)
884   N/A   884   N/A
885   "PKG",48,2 2,1,"PAH", 1,1,59,0)   885   "PKG",48,2 2,1,"PAH", 1,1,59,0)
886       886    
887   "PKG",48,2 2,1,"PAH", 1,1,60,0)   887   "PKG",48,2 2,1,"PAH", 1,1,60,0)
888       888    
889   "PKG",48,2 2,1,"PAH", 1,1,61,0)   889   "PKG",48,2 2,1,"PAH", 1,1,61,0)
890       890    
891   "PKG",48,2 2,1,"PAH", 1,1,62,0)   891   "PKG",48,2 2,1,"PAH", 1,1,62,0)
892   HL7 Applic ation Para meters:   892   HL7 Applic ation Para meters:
893   "PKG",48,2 2,1,"PAH", 1,1,63,0)   893   "PKG",48,2 2,1,"PAH", 1,1,63,0)
894                                                                  Ne w/Modified /   894                                                                  Ne w/Modified /
895   "PKG",48,2 2,1,"PAH", 1,1,64,0)   895   "PKG",48,2 2,1,"PAH", 1,1,64,0)
896   HL7 Parame ter Name                                               Deleted        896   HL7 Parame ter Name                                               Deleted     
897   "PKG",48,2 2,1,"PAH", 1,1,65,0)   897   "PKG",48,2 2,1,"PAH", 1,1,65,0)
898   ---------- --------                                            -- ---------- -   898   ---------- --------                                            -- ---------- -
899   "PKG",48,2 2,1,"PAH", 1,1,66,0)   899   "PKG",48,2 2,1,"PAH", 1,1,66,0)
900   N/A   900   N/A
901   "PKG",48,2 2,1,"PAH", 1,1,67,0)   901   "PKG",48,2 2,1,"PAH", 1,1,67,0)
902       902    
903   "PKG",48,2 2,1,"PAH", 1,1,68,0)   903   "PKG",48,2 2,1,"PAH", 1,1,68,0)
904       904    
905   "PKG",48,2 2,1,"PAH", 1,1,69,0)   905   "PKG",48,2 2,1,"PAH", 1,1,69,0)
906       906    
907   "PKG",48,2 2,1,"PAH", 1,1,70,0)   907   "PKG",48,2 2,1,"PAH", 1,1,70,0)
908   HLO Applic ation Regi stry:   908   HLO Applic ation Regi stry:
909   "PKG",48,2 2,1,"PAH", 1,1,71,0)   909   "PKG",48,2 2,1,"PAH", 1,1,71,0)
910                                                                  Ne w/Modified /   910                                                                  Ne w/Modified /
911   "PKG",48,2 2,1,"PAH", 1,1,72,0)   911   "PKG",48,2 2,1,"PAH", 1,1,72,0)
912   HLO Regist ry Name                                                Deleted        912   HLO Regist ry Name                                                Deleted     
913   "PKG",48,2 2,1,"PAH", 1,1,73,0)   913   "PKG",48,2 2,1,"PAH", 1,1,73,0)
914   ---------- -------                                             -- ---------- -   914   ---------- -------                                             -- ---------- -
915   "PKG",48,2 2,1,"PAH", 1,1,74,0)   915   "PKG",48,2 2,1,"PAH", 1,1,74,0)
916   N/A   916   N/A
917   "PKG",48,2 2,1,"PAH", 1,1,75,0)   917   "PKG",48,2 2,1,"PAH", 1,1,75,0)
918       918    
919   "PKG",48,2 2,1,"PAH", 1,1,76,0)   919   "PKG",48,2 2,1,"PAH", 1,1,76,0)
920       920    
921   "PKG",48,2 2,1,"PAH", 1,1,77,0)   921   "PKG",48,2 2,1,"PAH", 1,1,77,0)
922       922    
923   "PKG",48,2 2,1,"PAH", 1,1,78,0)   923   "PKG",48,2 2,1,"PAH", 1,1,78,0)
924   Help Frame s Associat ed:   924   Help Frame s Associat ed:
925   "PKG",48,2 2,1,"PAH", 1,1,79,0)   925   "PKG",48,2 2,1,"PAH", 1,1,79,0)
926                                                                  Ne w/Modified /   926                                                                  Ne w/Modified /
927   "PKG",48,2 2,1,"PAH", 1,1,80,0)   927   "PKG",48,2 2,1,"PAH", 1,1,80,0)
928   Help Frame  Name                                                  Deleted        928   Help Frame  Name                                                  Deleted     
929   "PKG",48,2 2,1,"PAH", 1,1,81,0)   929   "PKG",48,2 2,1,"PAH", 1,1,81,0)
930   ---------- -----                                               -- ---------- -   930   ---------- -----                                               -- ---------- -
931   "PKG",48,2 2,1,"PAH", 1,1,82,0)   931   "PKG",48,2 2,1,"PAH", 1,1,82,0)
932   N/A   932   N/A
933   "PKG",48,2 2,1,"PAH", 1,1,83,0)   933   "PKG",48,2 2,1,"PAH", 1,1,83,0)
934       934    
935   "PKG",48,2 2,1,"PAH", 1,1,84,0)   935   "PKG",48,2 2,1,"PAH", 1,1,84,0)
936       936    
937   "PKG",48,2 2,1,"PAH", 1,1,85,0)   937   "PKG",48,2 2,1,"PAH", 1,1,85,0)
938       938    
939   "PKG",48,2 2,1,"PAH", 1,1,86,0)   939   "PKG",48,2 2,1,"PAH", 1,1,86,0)
940   Mail Group s Associat ed:   940   Mail Group s Associat ed:
941   "PKG",48,2 2,1,"PAH", 1,1,87,0)   941   "PKG",48,2 2,1,"PAH", 1,1,87,0)
942                                                                  Ne w/Modified /   942                                                                  Ne w/Modified /
943   "PKG",48,2 2,1,"PAH", 1,1,88,0)   943   "PKG",48,2 2,1,"PAH", 1,1,88,0)
944   Mail Group  Name                                                  Deleted        944   Mail Group  Name                                                  Deleted     
945   "PKG",48,2 2,1,"PAH", 1,1,89,0)   945   "PKG",48,2 2,1,"PAH", 1,1,89,0)
946   ---------- -----                                               -- ---------- -   946   ---------- -----                                               -- ---------- -
947   "PKG",48,2 2,1,"PAH", 1,1,90,0)   947   "PKG",48,2 2,1,"PAH", 1,1,90,0)
948   N/A   948   N/A
949   "PKG",48,2 2,1,"PAH", 1,1,91,0)   949   "PKG",48,2 2,1,"PAH", 1,1,91,0)
950       950    
951   "PKG",48,2 2,1,"PAH", 1,1,92,0)   951   "PKG",48,2 2,1,"PAH", 1,1,92,0)
952       952    
953   "PKG",48,2 2,1,"PAH", 1,1,93,0)   953   "PKG",48,2 2,1,"PAH", 1,1,93,0)
954       954    
955   "PKG",48,2 2,1,"PAH", 1,1,94,0)   955   "PKG",48,2 2,1,"PAH", 1,1,94,0)
956   Options As sociated:   956   Options As sociated:
957   "PKG",48,2 2,1,"PAH", 1,1,95,0)   957   "PKG",48,2 2,1,"PAH", 1,1,95,0)
958                                                                              958                                                                           
959   "PKG",48,2 2,1,"PAH", 1,1,96,0)   959   "PKG",48,2 2,1,"PAH", 1,1,96,0)
960   New/Modifi ed/   960   New/Modifi ed/
961   "PKG",48,2 2,1,"PAH", 1,1,97,0)   961   "PKG",48,2 2,1,"PAH", 1,1,97,0)
962   Option Nam e                                                  Typ e          962   Option Nam e                                                  Typ e       
963   "PKG",48,2 2,1,"PAH", 1,1,98,0)   963   "PKG",48,2 2,1,"PAH", 1,1,98,0)
964   Deleted        964   Deleted     
965   "PKG",48,2 2,1,"PAH", 1,1,99,0)   965   "PKG",48,2 2,1,"PAH", 1,1,99,0)
966   ---------- -                                                  --- -        966   ---------- -                                                  --- -     
967   "PKG",48,2 2,1,"PAH", 1,1,100,0)   967   "PKG",48,2 2,1,"PAH", 1,1,100,0)
968   ---------- ---   968   ---------- ---
969   "PKG",48,2 2,1,"PAH", 1,1,101,0)   969   "PKG",48,2 2,1,"PAH", 1,1,101,0)
970   N/A   970   N/A
971   "PKG",48,2 2,1,"PAH", 1,1,102,0)   971   "PKG",48,2 2,1,"PAH", 1,1,102,0)
972       972    
973   "PKG",48,2 2,1,"PAH", 1,1,103,0)   973   "PKG",48,2 2,1,"PAH", 1,1,103,0)
974       974    
975   "PKG",48,2 2,1,"PAH", 1,1,104,0)   975   "PKG",48,2 2,1,"PAH", 1,1,104,0)
976       976    
977   "PKG",48,2 2,1,"PAH", 1,1,105,0)   977   "PKG",48,2 2,1,"PAH", 1,1,105,0)
978   Parameter  Definition s:   978   Parameter  Definition s:
979   "PKG",48,2 2,1,"PAH", 1,1,106,0)   979   "PKG",48,2 2,1,"PAH", 1,1,106,0)
980                                                                  Ne w/Modified /   980                                                                  Ne w/Modified /
981   "PKG",48,2 2,1,"PAH", 1,1,107,0)   981   "PKG",48,2 2,1,"PAH", 1,1,107,0)
982   Parameter  Name                                                   Deleted        982   Parameter  Name                                                   Deleted     
983   "PKG",48,2 2,1,"PAH", 1,1,108,0)   983   "PKG",48,2 2,1,"PAH", 1,1,108,0)
984   ---------- ----                                                -- ---------- -   984   ---------- ----                                                -- ---------- -
985   "PKG",48,2 2,1,"PAH", 1,1,109,0)   985   "PKG",48,2 2,1,"PAH", 1,1,109,0)
986   N/A   986   N/A
987   "PKG",48,2 2,1,"PAH", 1,1,110,0)   987   "PKG",48,2 2,1,"PAH", 1,1,110,0)
988       988    
989   "PKG",48,2 2,1,"PAH", 1,1,111,0)   989   "PKG",48,2 2,1,"PAH", 1,1,111,0)
990       990    
991   "PKG",48,2 2,1,"PAH", 1,1,112,0)   991   "PKG",48,2 2,1,"PAH", 1,1,112,0)
992       992    
993   "PKG",48,2 2,1,"PAH", 1,1,113,0)   993   "PKG",48,2 2,1,"PAH", 1,1,113,0)
994   Parameter  Template:   994   Parameter  Template:
995   "PKG",48,2 2,1,"PAH", 1,1,114,0)   995   "PKG",48,2 2,1,"PAH", 1,1,114,0)
996                                                                  Ne w/Modified /   996                                                                  Ne w/Modified /
997   "PKG",48,2 2,1,"PAH", 1,1,115,0)   997   "PKG",48,2 2,1,"PAH", 1,1,115,0)
998   Template N ame                                                    Deleted        998   Template N ame                                                    Deleted     
999   "PKG",48,2 2,1,"PAH", 1,1,116,0)   999   "PKG",48,2 2,1,"PAH", 1,1,116,0)
1000   ---------- ---                                                 -- ---------- -   1000   ---------- ---                                                 -- ---------- -
1001   "PKG",48,2 2,1,"PAH", 1,1,117,0)   1001   "PKG",48,2 2,1,"PAH", 1,1,117,0)
1002   N/A   1002   N/A
1003   "PKG",48,2 2,1,"PAH", 1,1,118,0)   1003   "PKG",48,2 2,1,"PAH", 1,1,118,0)
1004       1004    
1005   "PKG",48,2 2,1,"PAH", 1,1,119,0)   1005   "PKG",48,2 2,1,"PAH", 1,1,119,0)
1006       1006    
1007   "PKG",48,2 2,1,"PAH", 1,1,120,0)   1007   "PKG",48,2 2,1,"PAH", 1,1,120,0)
1008       1008    
1009   "PKG",48,2 2,1,"PAH", 1,1,121,0)   1009   "PKG",48,2 2,1,"PAH", 1,1,121,0)
1010   Protocols  Associated :   1010   Protocols  Associated :
1011   "PKG",48,2 2,1,"PAH", 1,1,122,0)   1011   "PKG",48,2 2,1,"PAH", 1,1,122,0)
1012                                                                  Ne w/Modified /   1012                                                                  Ne w/Modified /
1013   "PKG",48,2 2,1,"PAH", 1,1,123,0)   1013   "PKG",48,2 2,1,"PAH", 1,1,123,0)
1014   Protocol N ame                                                    Deleted        1014   Protocol N ame                                                    Deleted     
1015   "PKG",48,2 2,1,"PAH", 1,1,124,0)   1015   "PKG",48,2 2,1,"PAH", 1,1,124,0)
1016   ---------- ---                                                 -- ---------- -   1016   ---------- ---                                                 -- ---------- -
1017   "PKG",48,2 2,1,"PAH", 1,1,125,0)   1017   "PKG",48,2 2,1,"PAH", 1,1,125,0)
1018   N/A   1018   N/A
1019   "PKG",48,2 2,1,"PAH", 1,1,126,0)   1019   "PKG",48,2 2,1,"PAH", 1,1,126,0)
1020       1020    
1021   "PKG",48,2 2,1,"PAH", 1,1,127,0)   1021   "PKG",48,2 2,1,"PAH", 1,1,127,0)
1022       1022    
1023   "PKG",48,2 2,1,"PAH", 1,1,128,0)   1023   "PKG",48,2 2,1,"PAH", 1,1,128,0)
1024       1024    
1025   "PKG",48,2 2,1,"PAH", 1,1,129,0)   1025   "PKG",48,2 2,1,"PAH", 1,1,129,0)
1026   Remote Pro cedures As sociated:   1026   Remote Pro cedures As sociated:
1027   "PKG",48,2 2,1,"PAH", 1,1,130,0)   1027   "PKG",48,2 2,1,"PAH", 1,1,130,0)
1028                                                                  Ne w/Modified /   1028                                                                  Ne w/Modified /
1029   "PKG",48,2 2,1,"PAH", 1,1,131,0)   1029   "PKG",48,2 2,1,"PAH", 1,1,131,0)
1030   Remote Pro cedure Nam e                                           Deleted        1030   Remote Pro cedure Nam e                                           Deleted     
1031   "PKG",48,2 2,1,"PAH", 1,1,132,0)   1031   "PKG",48,2 2,1,"PAH", 1,1,132,0)
1032   ---------- ---------- -                                        -- ---------- -   1032   ---------- ---------- -                                        -- ---------- -
1033   "PKG",48,2 2,1,"PAH", 1,1,133,0)   1033   "PKG",48,2 2,1,"PAH", 1,1,133,0)
1034   N/A   1034   N/A
1035   "PKG",48,2 2,1,"PAH", 1,1,134,0)   1035   "PKG",48,2 2,1,"PAH", 1,1,134,0)
1036       1036    
1037   "PKG",48,2 2,1,"PAH", 1,1,135,0)   1037   "PKG",48,2 2,1,"PAH", 1,1,135,0)
1038       1038    
1039   "PKG",48,2 2,1,"PAH", 1,1,136,0)   1039   "PKG",48,2 2,1,"PAH", 1,1,136,0)
1040       1040    
1041   "PKG",48,2 2,1,"PAH", 1,1,137,0)   1041   "PKG",48,2 2,1,"PAH", 1,1,137,0)
1042   Security K eys Associ ated:   1042   Security K eys Associ ated:
1043   "PKG",48,2 2,1,"PAH", 1,1,138,0)   1043   "PKG",48,2 2,1,"PAH", 1,1,138,0)
1044                                                                  Ne w/Modified /   1044                                                                  Ne w/Modified /
1045   "PKG",48,2 2,1,"PAH", 1,1,139,0)   1045   "PKG",48,2 2,1,"PAH", 1,1,139,0)
1046   Security K ey Name                                                Deleted        1046   Security K ey Name                                                Deleted     
1047   "PKG",48,2 2,1,"PAH", 1,1,140,0)   1047   "PKG",48,2 2,1,"PAH", 1,1,140,0)
1048   ---------- -------                                             -- ---------- -   1048   ---------- -------                                             -- ---------- -
1049   "PKG",48,2 2,1,"PAH", 1,1,141,0)   1049   "PKG",48,2 2,1,"PAH", 1,1,141,0)
1050   N/A   1050   N/A
1051   "PKG",48,2 2,1,"PAH", 1,1,142,0)   1051   "PKG",48,2 2,1,"PAH", 1,1,142,0)
1052       1052    
1053   "PKG",48,2 2,1,"PAH", 1,1,143,0)   1053   "PKG",48,2 2,1,"PAH", 1,1,143,0)
1054       1054    
1055   "PKG",48,2 2,1,"PAH", 1,1,144,0)   1055   "PKG",48,2 2,1,"PAH", 1,1,144,0)
1056       1056    
1057   "PKG",48,2 2,1,"PAH", 1,1,145,0)   1057   "PKG",48,2 2,1,"PAH", 1,1,145,0)
1058   Templates,  Input Ass ociated:   1058   Templates,  Input Ass ociated:
1059   "PKG",48,2 2,1,"PAH", 1,1,146,0)   1059   "PKG",48,2 2,1,"PAH", 1,1,146,0)
1060                                                                  Ne w/Modified /   1060                                                                  Ne w/Modified /
1061   "PKG",48,2 2,1,"PAH", 1,1,147,0)   1061   "PKG",48,2 2,1,"PAH", 1,1,147,0)
1062   Template N ame      T ype      F ile Name ( Number)               Deleted        1062   Template N ame      T ype      F ile Name ( Number)               Deleted     
1063   "PKG",48,2 2,1,"PAH", 1,1,148,0)   1063   "PKG",48,2 2,1,"PAH", 1,1,148,0)
1064   ---------- ---      - ---      - ---------- -------            -- ---------- -   1064   ---------- ---      - ---      - ---------- -------            -- ---------- -
1065   "PKG",48,2 2,1,"PAH", 1,1,149,0)   1065   "PKG",48,2 2,1,"PAH", 1,1,149,0)
1066   N/A   1066   N/A
1067   "PKG",48,2 2,1,"PAH", 1,1,150,0)   1067   "PKG",48,2 2,1,"PAH", 1,1,150,0)
1068       1068    
1069   "PKG",48,2 2,1,"PAH", 1,1,151,0)   1069   "PKG",48,2 2,1,"PAH", 1,1,151,0)
1070       1070    
1071   "PKG",48,2 2,1,"PAH", 1,1,152,0)   1071   "PKG",48,2 2,1,"PAH", 1,1,152,0)
1072       1072    
1073   "PKG",48,2 2,1,"PAH", 1,1,153,0)   1073   "PKG",48,2 2,1,"PAH", 1,1,153,0)
1074   Templates,  List Asso ciated:   1074   Templates,  List Asso ciated:
1075   "PKG",48,2 2,1,"PAH", 1,1,154,0)   1075   "PKG",48,2 2,1,"PAH", 1,1,154,0)
1076                                                                  Ne w/Modified /   1076                                                                  Ne w/Modified /
1077   "PKG",48,2 2,1,"PAH", 1,1,155,0)   1077   "PKG",48,2 2,1,"PAH", 1,1,155,0)
1078   Template N ame      T ype                                         Deleted        1078   Template N ame      T ype                                         Deleted     
1079   "PKG",48,2 2,1,"PAH", 1,1,156,0)   1079   "PKG",48,2 2,1,"PAH", 1,1,156,0)
1080   ---------- ---      - ---                                      -- ---------- -   1080   ---------- ---      - ---                                      -- ---------- -
1081   "PKG",48,2 2,1,"PAH", 1,1,157,0)   1081   "PKG",48,2 2,1,"PAH", 1,1,157,0)
1082   N/A   1082   N/A
1083   "PKG",48,2 2,1,"PAH", 1,1,158,0)   1083   "PKG",48,2 2,1,"PAH", 1,1,158,0)
1084       1084    
1085   "PKG",48,2 2,1,"PAH", 1,1,159,0)   1085   "PKG",48,2 2,1,"PAH", 1,1,159,0)
1086       1086    
1087   "PKG",48,2 2,1,"PAH", 1,1,160,0)   1087   "PKG",48,2 2,1,"PAH", 1,1,160,0)
1088       1088    
1089   "PKG",48,2 2,1,"PAH", 1,1,161,0)   1089   "PKG",48,2 2,1,"PAH", 1,1,161,0)
1090   Templates,  Print Ass ociated:   1090   Templates,  Print Ass ociated:
1091   "PKG",48,2 2,1,"PAH", 1,1,162,0)   1091   "PKG",48,2 2,1,"PAH", 1,1,162,0)
1092                                                                     New/Modifi ed/   1092                                                                     New/Modifi ed/
1093   "PKG",48,2 2,1,"PAH", 1,1,163,0)   1093   "PKG",48,2 2,1,"PAH", 1,1,163,0)
1094   Template N ame          Type  Fi le Name (N umber)                   Deleted        1094   Template N ame          Type  Fi le Name (N umber)                   Deleted     
1095   "PKG",48,2 2,1,"PAH", 1,1,164,0)   1095   "PKG",48,2 2,1,"PAH", 1,1,164,0)
1096   ---------- ---          ----  -- ---------- ------                ---------- ---   1096   ---------- ---          ----  -- ---------- ------                ---------- ---
1097   "PKG",48,2 2,1,"PAH", 1,1,165,0)   1097   "PKG",48,2 2,1,"PAH", 1,1,165,0)
1098   N/A   1098   N/A
1099   "PKG",48,2 2,1,"PAH", 1,1,166,0)   1099   "PKG",48,2 2,1,"PAH", 1,1,166,0)
1100       1100    
1101   "PKG",48,2 2,1,"PAH", 1,1,167,0)   1101   "PKG",48,2 2,1,"PAH", 1,1,167,0)
1102       1102    
1103   "PKG",48,2 2,1,"PAH", 1,1,168,0)   1103   "PKG",48,2 2,1,"PAH", 1,1,168,0)
1104       1104    
1105   "PKG",48,2 2,1,"PAH", 1,1,169,0)   1105   "PKG",48,2 2,1,"PAH", 1,1,169,0)
1106   Templates,  Sort Asso ciated:   1106   Templates,  Sort Asso ciated:
1107   "PKG",48,2 2,1,"PAH", 1,1,170,0)   1107   "PKG",48,2 2,1,"PAH", 1,1,170,0)
1108                                                                           1108                                                                        
1109   "PKG",48,2 2,1,"PAH", 1,1,171,0)   1109   "PKG",48,2 2,1,"PAH", 1,1,171,0)
1110   New/Modifi ed/   1110   New/Modifi ed/
1111   "PKG",48,2 2,1,"PAH", 1,1,172,0)   1111   "PKG",48,2 2,1,"PAH", 1,1,172,0)
1112   Template N ame              Type  File Name  (Number)                      1112   Template N ame              Type  File Name  (Number)                   
1113   "PKG",48,2 2,1,"PAH", 1,1,173,0)   1113   "PKG",48,2 2,1,"PAH", 1,1,173,0)
1114   Deleted        1114   Deleted     
1115   "PKG",48,2 2,1,"PAH", 1,1,174,0)   1115   "PKG",48,2 2,1,"PAH", 1,1,174,0)
1116   ---------- ---              ----  --------- ---------                   1116   ---------- ---              ----  --------- ---------                
1117   "PKG",48,2 2,1,"PAH", 1,1,175,0)   1117   "PKG",48,2 2,1,"PAH", 1,1,175,0)
1118   ---------- ---   1118   ---------- ---
1119   "PKG",48,2 2,1,"PAH", 1,1,176,0)   1119   "PKG",48,2 2,1,"PAH", 1,1,176,0)
1120   N/A   1120   N/A
1121   "PKG",48,2 2,1,"PAH", 1,1,177,0)   1121   "PKG",48,2 2,1,"PAH", 1,1,177,0)
1122       1122    
1123   "PKG",48,2 2,1,"PAH", 1,1,178,0)   1123   "PKG",48,2 2,1,"PAH", 1,1,178,0)
1124       1124    
1125   "PKG",48,2 2,1,"PAH", 1,1,179,0)   1125   "PKG",48,2 2,1,"PAH", 1,1,179,0)
1126   Additional  Informati on:   1126   Additional  Informati on:
1127   "PKG",48,2 2,1,"PAH", 1,1,180,0)   1127   "PKG",48,2 2,1,"PAH", 1,1,180,0)
1128   N/A   1128   N/A
1129   "PKG",48,2 2,1,"PAH", 1,1,181,0)   1129   "PKG",48,2 2,1,"PAH", 1,1,181,0)
1130       1130    
1131   "PKG",48,2 2,1,"PAH", 1,1,182,0)   1131   "PKG",48,2 2,1,"PAH", 1,1,182,0)
1132       1132    
1133   "PKG",48,2 2,1,"PAH", 1,1,183,0)   1133   "PKG",48,2 2,1,"PAH", 1,1,183,0)
1134   New Servic e Requests  (NSRs)   1134   New Servic e Requests  (NSRs)
1135   "PKG",48,2 2,1,"PAH", 1,1,184,0)   1135   "PKG",48,2 2,1,"PAH", 1,1,184,0)
1136   ---------- ---------- --------     1136   ---------- ---------- --------  
1137   "PKG",48,2 2,1,"PAH", 1,1,185,0)   1137   "PKG",48,2 2,1,"PAH", 1,1,185,0)
1138   N/A   1138   N/A
1139   "PKG",48,2 2,1,"PAH", 1,1,186,0)   1139   "PKG",48,2 2,1,"PAH", 1,1,186,0)
1140       1140    
1141   "PKG",48,2 2,1,"PAH", 1,1,187,0)   1141   "PKG",48,2 2,1,"PAH", 1,1,187,0)
1142       1142    
1143   "PKG",48,2 2,1,"PAH", 1,1,188,0)   1143   "PKG",48,2 2,1,"PAH", 1,1,188,0)
1144   Patient Sa fety Issue s (PSIs)   1144   Patient Sa fety Issue s (PSIs)
1145   "PKG",48,2 2,1,"PAH", 1,1,189,0)   1145   "PKG",48,2 2,1,"PAH", 1,1,189,0)
1146   ---------- ---------- ---------   1146   ---------- ---------- ---------
1147   "PKG",48,2 2,1,"PAH", 1,1,190,0)   1147   "PKG",48,2 2,1,"PAH", 1,1,190,0)
1148   N/A   1148   N/A
1149   "PKG",48,2 2,1,"PAH", 1,1,191,0)   1149   "PKG",48,2 2,1,"PAH", 1,1,191,0)
1150       1150    
1151   "PKG",48,2 2,1,"PAH", 1,1,192,0)   1151   "PKG",48,2 2,1,"PAH", 1,1,192,0)
1152       1152    
1153   "PKG",48,2 2,1,"PAH", 1,1,193,0)   1153   "PKG",48,2 2,1,"PAH", 1,1,193,0)
1154   ServiceNow  Ticket(s)  & Overvie w   1154   ServiceNow  Ticket(s)  & Overvie w
1155   "PKG",48,2 2,1,"PAH", 1,1,194,0)   1155   "PKG",48,2 2,1,"PAH", 1,1,194,0)
1156   ---------- ---------- ---------- ---------- -------   1156   ---------- ---------- ---------- ---------- -------
1157   "PKG",48,2 2,1,"PAH", 1,1,195,0)   1157   "PKG",48,2 2,1,"PAH", 1,1,195,0)
1158   I17005764F Y18  Pyxis  and EDIS  are not re cognizing  clinic che ck in acti ons   1158   I17005764F Y18  Pyxis  and EDIS  are not re cognizing  clinic che ck in acti ons
1159   "PKG",48,2 2,1,"PAH", 1,1,196,0)   1159   "PKG",48,2 2,1,"PAH", 1,1,196,0)
1160        1160     
1161   "PKG",48,2 2,1,"PAH", 1,1,197,0)   1161   "PKG",48,2 2,1,"PAH", 1,1,197,0)
1162   Problem:   1162   Problem:
1163   "PKG",48,2 2,1,"PAH", 1,1,198,0)   1163   "PKG",48,2 2,1,"PAH", 1,1,198,0)
1164   -------   1164   -------
1165   "PKG",48,2 2,1,"PAH", 1,1,199,0)   1165   "PKG",48,2 2,1,"PAH", 1,1,199,0)
1166   When a use r performs  appointme nt actions  in VS GUI , downstre am systems     1166   When a use r performs  appointme nt actions  in VS GUI , downstre am systems  
1167   "PKG",48,2 2,1,"PAH", 1,1,200,0)   1167   "PKG",48,2 2,1,"PAH", 1,1,200,0)
1168   such   1168   such
1169   "PKG",48,2 2,1,"PAH", 1,1,201,0)   1169   "PKG",48,2 2,1,"PAH", 1,1,201,0)
1170   as Pyxis ( or other u nit dosing  devices,  such as Om nicell) an d EDIS are  not   1170   as Pyxis ( or other u nit dosing  devices,  such as Om nicell) an d EDIS are  not
1171   "PKG",48,2 2,1,"PAH", 1,1,202,0)   1171   "PKG",48,2 2,1,"PAH", 1,1,202,0)
1172   updated, w hereas the y are when  the appoi ntment act ions are t aken in le gacy   1172   updated, w hereas the y are when  the appoi ntment act ions are t aken in le gacy
1173   "PKG",48,2 2,1,"PAH", 1,1,203,0)   1173   "PKG",48,2 2,1,"PAH", 1,1,203,0)
1174   VistA.   1174   VistA.
1175   "PKG",48,2 2,1,"PAH", 1,1,204,0)   1175   "PKG",48,2 2,1,"PAH", 1,1,204,0)
1176       1176    
1177   "PKG",48,2 2,1,"PAH", 1,1,205,0)   1177   "PKG",48,2 2,1,"PAH", 1,1,205,0)
1178   Resolution :   1178   Resolution :
1179   "PKG",48,2 2,1,"PAH", 1,1,206,0)   1179   "PKG",48,2 2,1,"PAH", 1,1,206,0)
1180   ----------   1180   ----------
1181   "PKG",48,2 2,1,"PAH", 1,1,207,0)   1181   "PKG",48,2 2,1,"PAH", 1,1,207,0)
1182   The GUI no w invokes  the SDAM A PPOINTMENT  EVENTS pr otocol jus t like leg acy   1182   The GUI no w invokes  the SDAM A PPOINTMENT  EVENTS pr otocol jus t like leg acy
1183   "PKG",48,2 2,1,"PAH", 1,1,208,0)   1183   "PKG",48,2 2,1,"PAH", 1,1,208,0)
1184   VistA, mea ning that  the downst ream syste ms will be  notified  in the sam e   1184   VistA, mea ning that  the downst ream syste ms will be  notified  in the sam e
1185   "PKG",48,2 2,1,"PAH", 1,1,209,0)   1185   "PKG",48,2 2,1,"PAH", 1,1,209,0)
1186   way whethe r actions  are taken  on them in  GUI or le gacy.   1186   way whethe r actions  are taken  on them in  GUI or le gacy.
1187   "PKG",48,2 2,1,"PAH", 1,1,210,0)   1187   "PKG",48,2 2,1,"PAH", 1,1,210,0)
1188       1188    
1189   "PKG",48,2 2,1,"PAH", 1,1,211,0)   1189   "PKG",48,2 2,1,"PAH", 1,1,211,0)
1190   Test Sites :   1190   Test Sites :
1191   "PKG",48,2 2,1,"PAH", 1,1,212,0)   1191   "PKG",48,2 2,1,"PAH", 1,1,212,0)
1192   ----------   1192   ----------
1193   "PKG",48,2 2,1,"PAH", 1,1,213,0)   1193   "PKG",48,2 2,1,"PAH", 1,1,213,0)
1194   TBA   1194   TBA
1195   "PKG",48,2 2,1,"PAH", 1,1,214,0)   1195   "PKG",48,2 2,1,"PAH", 1,1,214,0)
1196       1196    
1197   "PKG",48,2 2,1,"PAH", 1,1,215,0)   1197   "PKG",48,2 2,1,"PAH", 1,1,215,0)
1198   Software a nd Documen tation Ret rieval Ins tructions:   1198   Software a nd Documen tation Ret rieval Ins tructions:
1199   "PKG",48,2 2,1,"PAH", 1,1,216,0)   1199   "PKG",48,2 2,1,"PAH", 1,1,216,0)
1200   ---------- ---------- ---------- ---------- ---------- --   1200   ---------- ---------- ---------- ---------- ---------- --
1201   "PKG",48,2 2,1,"PAH", 1,1,217,0)   1201   "PKG",48,2 2,1,"PAH", 1,1,217,0)
1202       1202    
1203   "PKG",48,2 2,1,"PAH", 1,1,218,0)   1203   "PKG",48,2 2,1,"PAH", 1,1,218,0)
1204   Software b eing relea sed as a h ost file a nd/or docu mentation  describing   1204   Software b eing relea sed as a h ost file a nd/or docu mentation  describing
1205   "PKG",48,2 2,1,"PAH", 1,1,219,0)   1205   "PKG",48,2 2,1,"PAH", 1,1,219,0)
1206   the new fu nctionalit y introduc ed by this  patch are  available .   1206   the new fu nctionalit y introduc ed by this  patch are  available .
1207   "PKG",48,2 2,1,"PAH", 1,1,220,0)   1207   "PKG",48,2 2,1,"PAH", 1,1,220,0)
1208        1208     
1209   "PKG",48,2 2,1,"PAH", 1,1,221,0)   1209   "PKG",48,2 2,1,"PAH", 1,1,221,0)
1210   The prefer red method  is to ret rieve file s from dow nload. vista.med. va.gov .
  1210   The prefer red method  is to ret rieve file s from dow nload. DNS . URL
1211   "PKG",48,2 2,1,"PAH", 1,1,222,0)   1211   "PKG",48,2 2,1,"PAH", 1,1,222,0)
1212   This trans mits the f iles from  the first  available  server. Si tes may   1212   This trans mits the f iles from  the first  available  server. Si tes may
1213   "PKG",48,2 2,1,"PAH", 1,1,223,0)   1213   "PKG",48,2 2,1,"PAH", 1,1,223,0)
1214   also elect  to retrie ve files d irectly fr om a speci fic server .     1214   also elect  to retrie ve files d irectly fr om a speci fic server .  
1215   "PKG",48,2 2,1,"PAH", 1,1,224,0)   1215   "PKG",48,2 2,1,"PAH", 1,1,224,0)
1216        1216     
1217   "PKG",48,2 2,1,"PAH", 1,1,225,0)   1217   "PKG",48,2 2,1,"PAH", 1,1,225,0)
1218   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using    1218   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
1219   "PKG",48,2 2,1,"PAH", 1,1,226,0)   1219   "PKG",48,2 2,1,"PAH", 1,1,226,0)
1220   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE   1220   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE
1221   "PKG",48,2 2,1,"PAH", 1,1,227,0)   1221   "PKG",48,2 2,1,"PAH", 1,1,227,0)
1222   directory  at the fol lowing OI  Field Offi ces:   1222   directory  at the fol lowing OI  Field Offi ces:
1223   "PKG",48,2 2,1,"PAH", 1,1,228,0)   1223   "PKG",48,2 2,1,"PAH", 1,1,228,0)
1224        1224     
1225   "PKG",48,2 2,1,"PAH", 1,1,229,0)   1225   "PKG",48,2 2,1,"PAH", 1,1,229,0)
1226     Hines:            fo-hines.m ed.va.gov   1226     Hines:            DNS     .U RL        
1227   "PKG",48,2 2,1,"PAH", 1,1,230,0)   1227   "PKG",48,2 2,1,"PAH", 1,1,230,0)
1228       Salt Lake  City:  fo-slc.med .va . gov   1228       Salt Lake  City:  DNS . URL        
1229   "PKG",48,2 2,1,"PAH", 1,1,231,0)   1229   "PKG",48,2 2,1,"PAH", 1,1,231,0)
1230       1230    
1231   "PKG",48,2 2,1,"PAH", 1,1,232,0)   1231   "PKG",48,2 2,1,"PAH", 1,1,232,0)
1232       1232    
1233   "PKG",48,2 2,1,"PAH", 1,1,233,0)   1233   "PKG",48,2 2,1,"PAH", 1,1,233,0)
1234   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry    1234   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
1235   "PKG",48,2 2,1,"PAH", 1,1,234,0)   1235   "PKG",48,2 2,1,"PAH", 1,1,234,0)
1236   at:   1236   at:
1237   "PKG",48,2 2,1,"PAH", 1,1,235,0)   1237   "PKG",48,2 2,1,"PAH", 1,1,235,0)
1238   http:// www4.va.go v/vdl /   1238   http:// URL              /
1239   "PKG",48,2 2,1,"PAH", 1,1,236,0)   1239   "PKG",48,2 2,1,"PAH", 1,1,236,0)
1240       1240    
1241   "PKG",48,2 2,1,"PAH", 1,1,237,0)   1241   "PKG",48,2 2,1,"PAH", 1,1,237,0)
1242   Title                                              Fil e Name           FTP  Mode   1242   Title                                              Fil e Name           FTP  Mode
1243   "PKG",48,2 2,1,"PAH", 1,1,238,0)   1243   "PKG",48,2 2,1,"PAH", 1,1,238,0)
1244   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----   1244   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
1245   "PKG",48,2 2,1,"PAH", 1,1,239,0)   1245   "PKG",48,2 2,1,"PAH", 1,1,239,0)
1246   VistA Sche duling Enh ancements  GUI User G uide   SCH EDULING_UG .PDF  Bina ry   1246   VistA Sche duling Enh ancements  GUI User G uide   SCH EDULING_UG .PDF  Bina ry
1247   "PKG",48,2 2,1,"PAH", 1,1,240,0)   1247   "PKG",48,2 2,1,"PAH", 1,1,240,0)
1248   VistA Sche duling Enh ancements  Technical  Manual SCH EDULING_TM .PDF  Bina ry   1248   VistA Sche duling Enh ancements  Technical  Manual SCH EDULING_TM .PDF  Bina ry
1249   "PKG",48,2 2,1,"PAH", 1,1,241,0)   1249   "PKG",48,2 2,1,"PAH", 1,1,241,0)
1250       1250    
1251   "PKG",48,2 2,1,"PAH", 1,1,242,0)   1251   "PKG",48,2 2,1,"PAH", 1,1,242,0)
1252       1252    
1253   "PKG",48,2 2,1,"PAH", 1,1,243,0)   1253   "PKG",48,2 2,1,"PAH", 1,1,243,0)
1254   Patch Inst allation:   1254   Patch Inst allation:
1255   "PKG",48,2 2,1,"PAH", 1,1,244,0)   1255   "PKG",48,2 2,1,"PAH", 1,1,244,0)
1256       1256    
1257   "PKG",48,2 2,1,"PAH", 1,1,245,0)   1257   "PKG",48,2 2,1,"PAH", 1,1,245,0)
1258       1258    
1259   "PKG",48,2 2,1,"PAH", 1,1,246,0)   1259   "PKG",48,2 2,1,"PAH", 1,1,246,0)
1260   Pre/Post I nstallatio n Overview   1260   Pre/Post I nstallatio n Overview
1261   "PKG",48,2 2,1,"PAH", 1,1,247,0)   1261   "PKG",48,2 2,1,"PAH", 1,1,247,0)
1262   ---------- ---------- ----------   1262   ---------- ---------- ----------
1263   "PKG",48,2 2,1,"PAH", 1,1,248,0)   1263   "PKG",48,2 2,1,"PAH", 1,1,248,0)
1264   There are  no pre- or  post-inst allation t asks for t his patch.   1264   There are  no pre- or  post-inst allation t asks for t his patch.
1265   "PKG",48,2 2,1,"PAH", 1,1,249,0)   1265   "PKG",48,2 2,1,"PAH", 1,1,249,0)
1266        1266     
1267   "PKG",48,2 2,1,"PAH", 1,1,250,0)   1267   "PKG",48,2 2,1,"PAH", 1,1,250,0)
1268   Installati on Instruc tions   1268   Installati on Instruc tions
1269   "PKG",48,2 2,1,"PAH", 1,1,251,0)   1269   "PKG",48,2 2,1,"PAH", 1,1,251,0)
1270   ---------- ---------- -----   1270   ---------- ---------- -----
1271   "PKG",48,2 2,1,"PAH", 1,1,252,0)   1271   "PKG",48,2 2,1,"PAH", 1,1,252,0)
1272   Install Ti me - less  than 5 min utes.   1272   Install Ti me - less  than 5 min utes.
1273   "PKG",48,2 2,1,"PAH", 1,1,253,0)   1273   "PKG",48,2 2,1,"PAH", 1,1,253,0)
1274          1274       
1275   "PKG",48,2 2,1,"PAH", 1,1,254,0)   1275   "PKG",48,2 2,1,"PAH", 1,1,254,0)
1276      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.   1276      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.
1277   "PKG",48,2 2,1,"PAH", 1,1,255,0)   1277   "PKG",48,2 2,1,"PAH", 1,1,255,0)
1278         1278      
1279   "PKG",48,2 2,1,"PAH", 1,1,256,0)   1279   "PKG",48,2 2,1,"PAH", 1,1,256,0)
1280      2. From  the Kerne l Installa tion & Dis tribution  System men u, select   1280      2. From  the Kerne l Installa tion & Dis tribution  System men u, select
1281   "PKG",48,2 2,1,"PAH", 1,1,257,0)   1281   "PKG",48,2 2,1,"PAH", 1,1,257,0)
1282         the  Installati on menu.   1282         the  Installati on menu.
1283   "PKG",48,2 2,1,"PAH", 1,1,258,0)   1283   "PKG",48,2 2,1,"PAH", 1,1,258,0)
1284         1284      
1285   "PKG",48,2 2,1,"PAH", 1,1,259,0)   1285   "PKG",48,2 2,1,"PAH", 1,1,259,0)
1286      3. From  this menu , you may  select to  use the fo llowing op tions   1286      3. From  this menu , you may  select to  use the fo llowing op tions
1287   "PKG",48,2 2,1,"PAH", 1,1,260,0)   1287   "PKG",48,2 2,1,"PAH", 1,1,260,0)
1288         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*717):   1288         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*717):
1289   "PKG",48,2 2,1,"PAH", 1,1,261,0)   1289   "PKG",48,2 2,1,"PAH", 1,1,261,0)
1290              a.  Verify  Checksums  in Transp ort Global  - This op tion will    1290              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
1291   "PKG",48,2 2,1,"PAH", 1,1,262,0)   1291   "PKG",48,2 2,1,"PAH", 1,1,262,0)
1292   allow   1292   allow
1293   "PKG",48,2 2,1,"PAH", 1,1,263,0)   1293   "PKG",48,2 2,1,"PAH", 1,1,263,0)
1294                  you to  ensure th e integrit y of the r outines th at are in  the   1294                  you to  ensure th e integrit y of the r outines th at are in  the
1295   "PKG",48,2 2,1,"PAH", 1,1,264,0)   1295   "PKG",48,2 2,1,"PAH", 1,1,264,0)
1296                  transp ort global .   1296                  transp ort global .
1297   "PKG",48,2 2,1,"PAH", 1,1,265,0)   1297   "PKG",48,2 2,1,"PAH", 1,1,265,0)
1298              b.  Print  Transport  Global - T his option  will allo w you to v iew   1298              b.  Print  Transport  Global - T his option  will allo w you to v iew
1299   "PKG",48,2 2,1,"PAH", 1,1,266,0)   1299   "PKG",48,2 2,1,"PAH", 1,1,266,0)
1300                  the co mponents o f the KIDS  build.   1300                  the co mponents o f the KIDS  build.
1301   "PKG",48,2 2,1,"PAH", 1,1,267,0)   1301   "PKG",48,2 2,1,"PAH", 1,1,267,0)
1302              c.  Compar e Transpor t Global t o Current  System - T his option     1302              c.  Compar e Transpor t Global t o Current  System - T his option  
1303   "PKG",48,2 2,1,"PAH", 1,1,268,0)   1303   "PKG",48,2 2,1,"PAH", 1,1,268,0)
1304   will   1304   will
1305   "PKG",48,2 2,1,"PAH", 1,1,269,0)   1305   "PKG",48,2 2,1,"PAH", 1,1,269,0)
1306                  allow  you to vie w all chan ges that w ill be mad e when thi   1306                  allow  you to vie w all chan ges that w ill be mad e when thi
1307   "PKG",48,2 2,1,"PAH", 1,1,270,0)   1307   "PKG",48,2 2,1,"PAH", 1,1,270,0)
1308                  patch  is install ed.  It co mpares all  component s of this   1308                  patch  is install ed.  It co mpares all  component s of this
1309   "PKG",48,2 2,1,"PAH", 1,1,271,0)   1309   "PKG",48,2 2,1,"PAH", 1,1,271,0)
1310                  patch  (routines,  DD's, tem plates, et c.).   1310                  patch  (routines,  DD's, tem plates, et c.).
1311   "PKG",48,2 2,1,"PAH", 1,1,272,0)   1311   "PKG",48,2 2,1,"PAH", 1,1,272,0)
1312              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup   1312              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup
1313   "PKG",48,2 2,1,"PAH", 1,1,273,0)   1313   "PKG",48,2 2,1,"PAH", 1,1,273,0)
1314                  messag e of any r outines ex ported wit h this pat ch. It wil   1314                  messag e of any r outines ex ported wit h this pat ch. It wil
1315   "PKG",48,2 2,1,"PAH", 1,1,274,0)   1315   "PKG",48,2 2,1,"PAH", 1,1,274,0)
1316   not   1316   not
1317   "PKG",48,2 2,1,"PAH", 1,1,275,0)   1317   "PKG",48,2 2,1,"PAH", 1,1,275,0)
1318                  backup  any other  changes s uch as DD' s or templ ates.   1318                  backup  any other  changes s uch as DD' s or templ ates.
1319   "PKG",48,2 2,1,"PAH", 1,1,276,0)   1319   "PKG",48,2 2,1,"PAH", 1,1,276,0)
1320         1320      
1321   "PKG",48,2 2,1,"PAH", 1,1,277,0)   1321   "PKG",48,2 2,1,"PAH", 1,1,277,0)
1322      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 717.   1322      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 717.
1323   "PKG",48,2 2,1,"PAH", 1,1,278,0)   1323   "PKG",48,2 2,1,"PAH", 1,1,278,0)
1324         1324      
1325   "PKG",48,2 2,1,"PAH", 1,1,279,0)   1325   "PKG",48,2 2,1,"PAH", 1,1,279,0)
1326      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"   1326      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"
1327   "PKG",48,2 2,1,"PAH", 1,1,280,0)   1327   "PKG",48,2 2,1,"PAH", 1,1,280,0)
1328         resp ond NO.   1328         resp ond NO.
1329   "PKG",48,2 2,1,"PAH", 1,1,281,0)   1329   "PKG",48,2 2,1,"PAH", 1,1,281,0)
1330      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and   1330      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and
1331   "PKG",48,2 2,1,"PAH", 1,1,282,0)   1331   "PKG",48,2 2,1,"PAH", 1,1,282,0)
1332         Prot ocols? NO/ /", respon d NO   1332         Prot ocols? NO/ /", respon d NO
1333   "PKG",48,2 2,1,"PAH", 1,1,283,0)   1333   "PKG",48,2 2,1,"PAH", 1,1,283,0)
1334       1334    
1335   "PKG",48,2 2,1,"PAH", 1,1,284,0)   1335   "PKG",48,2 2,1,"PAH", 1,1,284,0)
1336   Back-Out/R oll Back P lan:   1336   Back-Out/R oll Back P lan:
1337   "PKG",48,2 2,1,"PAH", 1,1,285,0)   1337   "PKG",48,2 2,1,"PAH", 1,1,285,0)
1338   ---------- ---------- ----   1338   ---------- ---------- ----
1339   "PKG",48,2 2,1,"PAH", 1,1,286,0)   1339   "PKG",48,2 2,1,"PAH", 1,1,286,0)
1340   In the eve nt of a ca tastrophic  failure,  the Facili ty Chief I nformation     1340   In the eve nt of a ca tastrophic  failure,  the Facili ty Chief I nformation  
1341   "PKG",48,2 2,1,"PAH", 1,1,287,0)   1341   "PKG",48,2 2,1,"PAH", 1,1,287,0)
1342   Officer ma y make the  decision  to back-ou t the patc h.   1342   Officer ma y make the  decision  to back-ou t the patc h.
1343   "PKG",48,2 2,1,"PAH", 1,1,288,0)   1343   "PKG",48,2 2,1,"PAH", 1,1,288,0)
1344       1344    
1345   "PKG",48,2 2,1,"PAH", 1,1,289,0)   1345   "PKG",48,2 2,1,"PAH", 1,1,289,0)
1346   It is impe rative tha t you have  performed  a backup  of the rou tines and   1346   It is impe rative tha t you have  performed  a backup  of the rou tines and
1347   "PKG",48,2 2,1,"PAH", 1,1,290,0)   1347   "PKG",48,2 2,1,"PAH", 1,1,290,0)
1348   the routin es include d matches  the pre-pa tch checks um from th e patch   1348   the routin es include d matches  the pre-pa tch checks um from th e patch
1349   "PKG",48,2 2,1,"PAH", 1,1,291,0)   1349   "PKG",48,2 2,1,"PAH", 1,1,291,0)
1350   descriptio n.   1350   descriptio n.
1351   "PKG",48,2 2,1,"PAH", 1,1,292,0)   1351   "PKG",48,2 2,1,"PAH", 1,1,292,0)
1352       1352    
1353   "PKG",48,2 2,1,"PAH", 1,1,293,0)   1353   "PKG",48,2 2,1,"PAH", 1,1,293,0)
1354   This patch  only cont ains routi ne updates . To back- out the pa tch please   1354   This patch  only cont ains routi ne updates . To back- out the pa tch please
1355   "PKG",48,2 2,1,"PAH", 1,1,294,0)   1355   "PKG",48,2 2,1,"PAH", 1,1,294,0)
1356   restore th e backup m essage fro m the patc h installa tion proce ss.   1356   restore th e backup m essage fro m the patc h installa tion proce ss.
1357   "QUES","XP F1",0)   1357   "QUES","XP F1",0)
1358   Y   1358   Y
1359   "QUES","XP F1","??")   1359   "QUES","XP F1","??")
1360   ^D REP^XPD H   1360   ^D REP^XPD H
1361   "QUES","XP F1","A")   1361   "QUES","XP F1","A")
1362   Shall I wr ite over y our |FLAG|  File   1362   Shall I wr ite over y our |FLAG|  File
1363   "QUES","XP F1","B")   1363   "QUES","XP F1","B")
1364   YES   1364   YES
1365   "QUES","XP F1","M")   1365   "QUES","XP F1","M")
1366   D XPF1^XPD IQ   1366   D XPF1^XPD IQ
1367   "QUES","XP F2",0)   1367   "QUES","XP F2",0)
1368   Y   1368   Y
1369   "QUES","XP F2","??")   1369   "QUES","XP F2","??")
1370   ^D DTA^XPD H   1370   ^D DTA^XPD H
1371   "QUES","XP F2","A")   1371   "QUES","XP F2","A")
1372   Want my da ta |FLAG|  yours   1372   Want my da ta |FLAG|  yours
1373   "QUES","XP F2","B")   1373   "QUES","XP F2","B")
1374   YES   1374   YES
1375   "QUES","XP F2","M")   1375   "QUES","XP F2","M")
1376   D XPF2^XPD IQ   1376   D XPF2^XPD IQ
1377   "QUES","XP I1",0)   1377   "QUES","XP I1",0)
1378   YO   1378   YO
1379   "QUES","XP I1","??")   1379   "QUES","XP I1","??")
1380   ^D INHIBIT ^XPDH   1380   ^D INHIBIT ^XPDH
1381   "QUES","XP I1","A")   1381   "QUES","XP I1","A")
1382   Want KIDS  to INHIBIT  LOGONs du ring the i nstall   1382   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
1383   "QUES","XP I1","B")   1383   "QUES","XP I1","B")
1384   NO   1384   NO
1385   "QUES","XP I1","M")   1385   "QUES","XP I1","M")
1386   D XPI1^XPD IQ   1386   D XPI1^XPD IQ
1387   "QUES","XP M1",0)   1387   "QUES","XP M1",0)
1388   PO^VA(200, :EM   1388   PO^VA(200, :EM
1389   "QUES","XP M1","??")   1389   "QUES","XP M1","??")
1390   ^D MG^XPDH   1390   ^D MG^XPDH
1391   "QUES","XP M1","A")   1391   "QUES","XP M1","A")
1392   Enter the  Coordinato r for Mail  Group '|F LAG|'   1392   Enter the  Coordinato r for Mail  Group '|F LAG|'
1393   "QUES","XP M1","B")   1393   "QUES","XP M1","B")
1394     1394  
1395   "QUES","XP M1","M")   1395   "QUES","XP M1","M")
1396   D XPM1^XPD IQ   1396   D XPM1^XPD IQ
1397   "QUES","XP O1",0)   1397   "QUES","XP O1",0)
1398   Y   1398   Y
1399   "QUES","XP O1","??")   1399   "QUES","XP O1","??")
1400   ^D MENU^XP DH   1400   ^D MENU^XP DH
1401   "QUES","XP O1","A")   1401   "QUES","XP O1","A")
1402   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install   1402   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
1403   "QUES","XP O1","B")   1403   "QUES","XP O1","B")
1404   NO   1404   NO
1405   "QUES","XP O1","M")   1405   "QUES","XP O1","M")
1406   D XPO1^XPD IQ   1406   D XPO1^XPD IQ
1407   "QUES","XP Z1",0)   1407   "QUES","XP Z1",0)
1408   Y   1408   Y
1409   "QUES","XP Z1","??")   1409   "QUES","XP Z1","??")
1410   ^D OPT^XPD H   1410   ^D OPT^XPD H
1411   "QUES","XP Z1","A")   1411   "QUES","XP Z1","A")
1412   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls   1412   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
1413   "QUES","XP Z1","B")   1413   "QUES","XP Z1","B")
1414   NO   1414   NO
1415   "QUES","XP Z1","M")   1415   "QUES","XP Z1","M")
1416   D XPZ1^XPD IQ   1416   D XPZ1^XPD IQ
1417   "QUES","XP Z2",0)   1417   "QUES","XP Z2",0)
1418   Y   1418   Y
1419   "QUES","XP Z2","??")   1419   "QUES","XP Z2","??")
1420   ^D RTN^XPD H   1420   ^D RTN^XPD H
1421   "QUES","XP Z2","A")   1421   "QUES","XP Z2","A")
1422   Want to MO VE routine s to other  CPUs   1422   Want to MO VE routine s to other  CPUs
1423   "QUES","XP Z2","B")   1423   "QUES","XP Z2","B")
1424   NO   1424   NO
1425   "QUES","XP Z2","M")   1425   "QUES","XP Z2","M")
1426   D XPZ2^XPD IQ   1426   D XPZ2^XPD IQ
1427   "RTN")   1427   "RTN")
1428   7   1428   7
1429   "RTN","SDA MEVT")   1429   "RTN","SDA MEVT")
1430   0^1^B32857 672^B27512 966   1430   0^1^B32857 672^B27512 966
1431   "RTN","SDA MEVT",1,0)   1431   "RTN","SDA MEVT",1,0)
1432   SDAMEVT ;A LB/MJK - A ppt Event  Driver Uti lities ; 1 2/1/91 [ 0 9/19/96  1 :39 PM ]   1432   SDAMEVT ;A LB/MJK - A ppt Event  Driver Uti lities ; 1 2/1/91 [ 0 9/19/96  1 :39 PM ]
1433   "RTN","SDA MEVT",2,0)   1433   "RTN","SDA MEVT",2,0)
1434    ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug  13, 1993; Build 7   1434    ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug  13, 1993; Build 7
1435   "RTN","SDA MEVT",3,0)   1435   "RTN","SDA MEVT",3,0)
1436    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified   1436    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
1437   "RTN","SDA MEVT",4,0)   1437   "RTN","SDA MEVT",4,0)
1438    ;   1438    ;
1439   "RTN","SDA MEVT",5,0)   1439   "RTN","SDA MEVT",5,0)
1440   BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ;  -- get bef ore values   1440   BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ;  -- get bef ore values
1441   "RTN","SDA MEVT",6,0)   1441   "RTN","SDA MEVT",6,0)
1442    K ^TMP("S DAMEVT",$J )   1442    K ^TMP("S DAMEVT",$J )
1443   "RTN","SDA MEVT",7,0)   1443   "RTN","SDA MEVT",7,0)
1444    D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL)   1444    D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL)
1445   "RTN","SDA MEVT",8,0)   1445   "RTN","SDA MEVT",8,0)
1446    Q   1446    Q
1447   "RTN","SDA MEVT",9,0)   1447   "RTN","SDA MEVT",9,0)
1448    ;   1448    ;
1449   "RTN","SDA MEVT",10,0 )   1449   "RTN","SDA MEVT",10,0 )
1450   AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values   1450   AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values
1451   "RTN","SDA MEVT",11,0 )   1451   "RTN","SDA MEVT",11,0 )
1452    D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL)   1452    D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL)
1453   "RTN","SDA MEVT",12,0 )   1453   "RTN","SDA MEVT",12,0 )
1454    Q   1454    Q
1455   "RTN","SDA MEVT",13,0 )   1455   "RTN","SDA MEVT",13,0 )
1456    ;   1456    ;
1457   "RTN","SDA MEVT",14,0 )   1457   "RTN","SDA MEVT",14,0 )
1458   HANDLE(SDO RG) ; -- g et evt han dle   1458   HANDLE(SDO RG) ; -- g et evt han dle
1459   "RTN","SDA MEVT",15,0 )   1459   "RTN","SDA MEVT",15,0 )
1460    ;  SDORG  = originat ing proces s (1=appt  , 2=a/e ,  3=disp)   1460    ;  SDORG  = originat ing proces s (1=appt  , 2=a/e ,  3=disp)
1461   "RTN","SDA MEVT",16,0 )   1461   "RTN","SDA MEVT",16,0 )
1462    S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1   1462    S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1
1463   "RTN","SDA MEVT",17,0 )   1463   "RTN","SDA MEVT",17,0 )
1464    Q Y   1464    Q Y
1465   "RTN","SDA MEVT",18,0 )   1465   "RTN","SDA MEVT",18,0 )
1466    ;   1466    ;
1467   "RTN","SDA MEVT",19,0 )   1467   "RTN","SDA MEVT",19,0 )
1468   CLEAN(SDHD L) ;   1468   CLEAN(SDHD L) ;
1469   "RTN","SDA MEVT",20,0 )   1469   "RTN","SDA MEVT",20,0 )
1470    K ^TMP("S DEVT",$J,S DHDL)   1470    K ^TMP("S DEVT",$J,S DHDL)
1471   "RTN","SDA MEVT",21,0 )   1471   "RTN","SDA MEVT",21,0 )
1472    Q   1472    Q
1473   "RTN","SDA MEVT",22,0 )   1473   "RTN","SDA MEVT",22,0 )
1474    ;   1474    ;
1475   "RTN","SDA MEVT",23,0 )   1475   "RTN","SDA MEVT",23,0 )
1476   HDLKILL ;  -- kill of f handle d ata   1476   HDLKILL ;  -- kill of f handle d ata
1477   "RTN","SDA MEVT",24,0 )   1477   "RTN","SDA MEVT",24,0 )
1478    K SDHDL,^ TMP("SDEVT  HANDLE",$ J),^TMP("S DEVT",$J)   1478    K SDHDL,^ TMP("SDEVT  HANDLE",$ J),^TMP("S DEVT",$J)
1479   "RTN","SDA MEVT",25,0 )   1479   "RTN","SDA MEVT",25,0 )
1480    Q   1480    Q
1481   "RTN","SDA MEVT",26,0 )   1481   "RTN","SDA MEVT",26,0 )
1482    ;   1482    ;
1483   "RTN","SDA MEVT",27,0 )   1483   "RTN","SDA MEVT",27,0 )
1484   CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ;   1484   CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ;
1485   "RTN","SDA MEVT",28,0 )   1485   "RTN","SDA MEVT",28,0 )
1486    N Z   1486    N Z
1487   "RTN","SDA MEVT",29,0 )   1487   "RTN","SDA MEVT",29,0 )
1488    S (Z,^TMP ("SDAMEVT" ,$J,SDCAP, "DPT"),^TM P("SDEVT", $J,SDHDL,1 ,"DPT",0,S DCAP))=$G( ^DPT(DFN," S",SDT,0))   1488    S (Z,^TMP ("SDAMEVT" ,$J,SDCAP, "DPT"),^TM P("SDEVT", $J,SDHDL,1 ,"DPT",0,S DCAP))=$G( ^DPT(DFN," S",SDT,0))
1489   "RTN","SDA MEVT",30,0 )   1489   "RTN","SDA MEVT",30,0 )
1490    S (^TMP(" SDAMEVT",$ J,SDCAP,"S C"),^TMP(" SDEVT",$J, SDHDL,1,"S C",0,SDCAP ))=$G(^SC( SDCL,"S",S DT,1,+SDDA ,0))   1490    S (^TMP(" SDAMEVT",$ J,SDCAP,"S C"),^TMP(" SDEVT",$J, SDHDL,1,"S C",0,SDCAP ))=$G(^SC( SDCL,"S",S DT,1,+SDDA ,0))
1491   "RTN","SDA MEVT",31,0 )   1491   "RTN","SDA MEVT",31,0 )
1492    S (^TMP(" SDAMEVT",$ J,SDCAP,"S TATUS"),SD ATA(SDCAP, "STATUS")) =$TR($$STA TUS^SDAM1( DFN,SDT,SD CL,Z,SDDA) ,";","^")   1492    S (^TMP(" SDAMEVT",$ J,SDCAP,"S TATUS"),SD ATA(SDCAP, "STATUS")) =$TR($$STA TUS^SDAM1( DFN,SDT,SD CL,Z,SDDA) ,";","^")
1493   "RTN","SDA MEVT",32,0 )   1493   "RTN","SDA MEVT",32,0 )
1494    D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL)   1494    D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL)
1495   "RTN","SDA MEVT",33,0 )   1495   "RTN","SDA MEVT",33,0 )
1496    Q   1496    Q
1497   "RTN","SDA MEVT",34,0 )   1497   "RTN","SDA MEVT",34,0 )
1498    ;   1498    ;
1499   "RTN","SDA MEVT",35,0 )   1499   "RTN","SDA MEVT",35,0 )
1500    ;   1500    ;
1501   "RTN","SDA MEVT",36,0 )   1501   "RTN","SDA MEVT",36,0 )
1502   EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol   1502   EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol
1503   "RTN","SDA MEVT",37,0 )   1503   "RTN","SDA MEVT",37,0 )
1504    N OROLD   1504    N OROLD
1505   "RTN","SDA MEVT",38,0 )   1505   "RTN","SDA MEVT",38,0 )
1506    K DTOUT,D IROUT   1506    K DTOUT,D IROUT
1507   "RTN","SDA MEVT",39,0 )   1507   "RTN","SDA MEVT",39,0 )
1508    I $G(SDAT A("BEFORE" ,"STATUS") )=$G(SDATA ("AFTER"," STATUS")), '$$COMP^SD AMEVT4(SDH DL,SDAMEVT ) G EVTQ   ; SD*5.3*4 43   1508    I $G(SDAT A("BEFORE" ,"STATUS") )=$G(SDATA ("AFTER"," STATUS")), '$$COMP^SD AMEVT4(SDH DL,SDAMEVT ) G EVTQ   ; SD*5.3*4 43
1509   "RTN","SDA MEVT",40,0 )   1509   "RTN","SDA MEVT",40,0 )
1510    S:$P(SDAT A,U,3) $P( SDATA,U,5) =$$REQ^SDM 1A(+$P(SDA TA,U,3))   1510    S:$P(SDAT A,U,3) $P( SDATA,U,5) =$$REQ^SDM 1A(+$P(SDA TA,U,3))
1511   "RTN","SDA MEVT",41,0 )   1511   "RTN","SDA MEVT",41,0 )
1512    I SDMODE= 2 N DGQUIE T S DGQUIE T=1  ;*zeb  10/4/18 7 17 set DGQ UIET to su ppress use r interact ion when c alled from  GUI   1512    I SDMODE= 2 N DGQUIE T S DGQUIE T=1  ;*zeb  10/4/18 7 17 set DGQ UIET to su ppress use r interact ion when c alled from  GUI
1513   "RTN","SDA MEVT",42,0 )   1513   "RTN","SDA MEVT",42,0 )
1514    S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT  EVENTS",0) )_";ORD(10 1,"   1514    S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT  EVENTS",0) )_";ORD(10 1,"
1515   "RTN","SDA MEVT",43,0 )   1515   "RTN","SDA MEVT",43,0 )
1516    D EN^XQOR   1516    D EN^XQOR
1517   "RTN","SDA MEVT",44,0 )   1517   "RTN","SDA MEVT",44,0 )
1518   EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL)  Q   1518   EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL)  Q
1519   "RTN","SDA MEVT",45,0 )   1519   "RTN","SDA MEVT",45,0 )
1520    ;   1520    ;
1521   "RTN","SDA MEVT",46,0 )   1521   "RTN","SDA MEVT",46,0 )
1522    ;   1522    ;
1523   "RTN","SDA MEVT",47,0 )   1523   "RTN","SDA MEVT",47,0 )
1524   MAKE(DFN,S DT,SDCL,SD DA,SDMODE)  ; -- make  appt even t #1   1524   MAKE(DFN,S DT,SDCL,SD DA,SDMODE)  ; -- make  appt even t #1
1525   "RTN","SDA MEVT",48,0 )   1525   "RTN","SDA MEVT",48,0 )
1526    N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J)   1526    N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J)
1527   "RTN","SDA MEVT",49,0 )   1527   "RTN","SDA MEVT",49,0 )
1528    S SDMKHDL =$$HANDLE( 1)   1528    S SDMKHDL =$$HANDLE( 1)
1529   "RTN","SDA MEVT",50,0 )   1529   "RTN","SDA MEVT",50,0 )
1530    S (^TMP(" SDAMEVT",$ J,"BEFORE" ,"DPT"),^T MP("SDAMEV T",$J,"BEF ORE","SC") ,SDATA("BE FORE","STA TUS"),^TMP ("SDAMEVT" ,$J,"BEFOR E","STATUS "),^TMP("S DEVT",$J,S DMKHDL,1," DPT",0,"BE FORE"),^TM P("SDEVT", $J,SDMKHDL ,1,"SC",0, "BEFORE")) =""   1530    S (^TMP(" SDAMEVT",$ J,"BEFORE" ,"DPT"),^T MP("SDAMEV T",$J,"BEF ORE","SC") ,SDATA("BE FORE","STA TUS"),^TMP ("SDAMEVT" ,$J,"BEFOR E","STATUS "),^TMP("S DEVT",$J,S DMKHDL,1," DPT",0,"BE FORE"),^TM P("SDEVT", $J,SDMKHDL ,1,"SC",0, "BEFORE")) =""
1531   "RTN","SDA MEVT",51,0 )   1531   "RTN","SDA MEVT",51,0 )
1532    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L)   1532    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L)
1533   "RTN","SDA MEVT",52,0 )   1533   "RTN","SDA MEVT",52,0 )
1534    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL   1534    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
1535   "RTN","SDA MEVT",53,0 )   1535   "RTN","SDA MEVT",53,0 )
1536    D EVT(.SD ATA,1,+$G( SDMODE),SD MKHDL)  ;* zeb 10/25/ 18 717 fix  typo with  SDMODE so  SDMODE is  passed co rrectly   1536    D EVT(.SD ATA,1,+$G( SDMODE),SD MKHDL)  ;* zeb 10/25/ 18 717 fix  typo with  SDMODE so  SDMODE is  passed co rrectly
1537   "RTN","SDA MEVT",54,0 )   1537   "RTN","SDA MEVT",54,0 )
1538    Q:SDMODE= 2  ;*zeb 1 0/24/18 71 7 don't ne ed check i n/out code  below if  calling fr om GUI   1538    Q:SDMODE= 2  ;*zeb 1 0/24/18 71 7 don't ne ed check i n/out code  below if  calling fr om GUI
1539   "RTN","SDA MEVT",55,0 )   1539   "RTN","SDA MEVT",55,0 )
1540    ; -- if a ppt d/t is  less than  NOW then  check-in   1540    ; -- if a ppt d/t is  less than  NOW then  check-in
1541   "RTN","SDA MEVT",56,0 )   1541   "RTN","SDA MEVT",56,0 )
1542    D NOW^%DT C   1542    D NOW^%DT C
1543   "RTN","SDA MEVT",57,0 )   1543   "RTN","SDA MEVT",57,0 )
1544    I SDT<% W :'$G(SDMOD E) ! D   1544    I SDT<% W :'$G(SDMOD E) ! D
1545   "RTN","SDA MEVT",58,0 )   1545   "RTN","SDA MEVT",58,0 )
1546    .N SDACT, SDCOQUIT   1546    .N SDACT, SDCOQUIT
1547   "RTN","SDA MEVT",59,0 )   1547   "RTN","SDA MEVT",59,0 )
1548    .S SDDA=+ SDATA,DFN= $P(SDATA,U ,2),SDT=$P (SDATA,U,3 ),SDCL=$P( SDATA,U,4)  K SDATA   1548    .S SDDA=+ SDATA,DFN= $P(SDATA,U ,2),SDT=$P (SDATA,U,3 ),SDCL=$P( SDATA,U,4)  K SDATA
1549   "RTN","SDA MEVT",60,0 )   1549   "RTN","SDA MEVT",60,0 )
1550    .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D   1550    .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D
1551   "RTN","SDA MEVT",61,0 )   1551   "RTN","SDA MEVT",61,0 )
1552    ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q   1552    ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q
1553   "RTN","SDA MEVT",62,0 )   1553   "RTN","SDA MEVT",62,0 )
1554    ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT )   1554    ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT )
1555   "RTN","SDA MEVT",63,0 )   1555   "RTN","SDA MEVT",63,0 )
1556    .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT)   1556    .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT)
1557   "RTN","SDA MEVT",64,0 )   1557   "RTN","SDA MEVT",64,0 )
1558    Q   1558    Q
1559   "RTN","SDA MEVT",65,0 )   1559   "RTN","SDA MEVT",65,0 )
1560    ;   1560    ;
1561   "RTN","SDA MEVT",66,0 )   1561   "RTN","SDA MEVT",66,0 )
1562    ;   1562    ;
1563   "RTN","SDA MEVT",67,0 )   1563   "RTN","SDA MEVT",67,0 )
1564   CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  cancel eve nt #2   1564   CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  cancel eve nt #2
1565   "RTN","SDA MEVT",68,0 )   1565   "RTN","SDA MEVT",68,0 )
1566    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)   1566    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)
1567   "RTN","SDA MEVT",69,0 )   1567   "RTN","SDA MEVT",69,0 )
1568    I (SDMODE '=2),("^5^ 7^9^10^"[( "^"_+SDATA ("AFTER"," STATUS")_" ^")),($P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) ) D EN^SDC ODEL(+$P(^ (0),"^",20 ),0,SDHDL) ,OENUL^SDA MEVT1("AFT ER",SDHDL)   ;*zeb 10 /25/18 717  status ha s already  changed fo r GUI call s   1568    I (SDMODE '=2),("^5^ 7^9^10^"[( "^"_+SDATA ("AFTER"," STATUS")_" ^")),($P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) ) D EN^SDC ODEL(+$P(^ (0),"^",20 ),0,SDHDL) ,OENUL^SDA MEVT1("AFT ER",SDHDL)   ;*zeb 10 /25/18 717  status ha s already  changed fo r GUI call s
1569   "RTN","SDA MEVT",70,0 )   1569   "RTN","SDA MEVT",70,0 )
1570    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL   1570    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
1571   "RTN","SDA MEVT",71,0 )   1571   "RTN","SDA MEVT",71,0 )
1572    D EVT(.SD ATA,2,$S(S DMODE=2:2, 1:0),SDHDL )  ;*zeb 1 0/25/18 71 7 don't as sume SDMOD E is 0 if  it is 2   1572    D EVT(.SD ATA,2,$S(S DMODE=2:2, 1:0),SDHDL )  ;*zeb 1 0/25/18 71 7 don't as sume SDMOD E is 0 if  it is 2
1573   "RTN","SDA MEVT",72,0 )   1573   "RTN","SDA MEVT",72,0 )
1574    Q   1574    Q
1575   "RTN","SDA MEVT",73,0 )   1575   "RTN","SDA MEVT",73,0 )
1576    ;   1576    ;
1577   "RTN","SDA MEVT",74,0 )   1577   "RTN","SDA MEVT",74,0 )
1578    ;   1578    ;
1579   "RTN","SDA MEVT",75,0 )   1579   "RTN","SDA MEVT",75,0 )
1580   NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  no-show ev ent #3   1580   NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  no-show ev ent #3
1581   "RTN","SDA MEVT",76,0 )   1581   "RTN","SDA MEVT",76,0 )
1582    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)   1582    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)
1583   "RTN","SDA MEVT",77,0 )   1583   "RTN","SDA MEVT",77,0 )
1584    I "^4^6^" [("^"_+SDA TA("AFTER" ,"STATUS") _"^"),$P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20)  D EN^SDCO DEL(+$P(^( 0),"^",20) ,0,SDHDL), OENUL^SDAM EVT1("AFTE R",SDHDL)   1584    I "^4^6^" [("^"_+SDA TA("AFTER" ,"STATUS") _"^"),$P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20)  D EN^SDCO DEL(+$P(^( 0),"^",20) ,0,SDHDL), OENUL^SDAM EVT1("AFTE R",SDHDL)
1585   "RTN","SDA MEVT",78,0 )   1585   "RTN","SDA MEVT",78,0 )
1586    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL   1586    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
1587   "RTN","SDA MEVT",79,0 )   1587   "RTN","SDA MEVT",79,0 )
1588    D EVT(.SD ATA,3,0,SD HDL)   1588    D EVT(.SD ATA,3,0,SD HDL)
1589   "RTN","SDA MEVT",80,0 )   1589   "RTN","SDA MEVT",80,0 )
1590    Q   1590    Q
1591   "RTN","SDA MEVT",81,0 )   1591   "RTN","SDA MEVT",81,0 )
1592    ;   1592    ;
1593   "RTN","SDA MEVT",82,0 )   1593   "RTN","SDA MEVT",82,0 )
1594   OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata   1594   OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata
1595   "RTN","SDA MEVT",83,0 )   1595   "RTN","SDA MEVT",83,0 )
1596    N I,OP,FI LE,X,SDKID   1596    N I,OP,FI LE,X,SDKID
1597   "RTN","SDA MEVT",84,0 )   1597   "RTN","SDA MEVT",84,0 )
1598    ;   1598    ;
1599   "RTN","SDA MEVT",85,0 )   1599   "RTN","SDA MEVT",85,0 )
1600    ; -- set  up 'OP'pos ite variab le   1600    ; -- set  up 'OP'pos ite variab le
1601   "RTN","SDA MEVT",86,0 )   1601   "RTN","SDA MEVT",86,0 )
1602    S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E")   1602    S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E")
1603   "RTN","SDA MEVT",87,0 )   1603   "RTN","SDA MEVT",87,0 )
1604    ;   1604    ;
1605   "RTN","SDA MEVT",88,0 )   1605   "RTN","SDA MEVT",88,0 )
1606    ; -- set  zero of oe   1606    ; -- set  zero of oe
1607   "RTN","SDA MEVT",89,0 )   1607   "RTN","SDA MEVT",89,0 )
1608    S X=$G(^S CE(SDOE,0) )   1608    S X=$G(^S CE(SDOE,0) )
1609   "RTN","SDA MEVT",90,0 )   1609   "RTN","SDA MEVT",90,0 )
1610    S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X   1610    S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X
1611   "RTN","SDA MEVT",91,0 )   1611   "RTN","SDA MEVT",91,0 )
1612    S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= ""   1612    S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= ""
1613   "RTN","SDA MEVT",92,0 )   1613   "RTN","SDA MEVT",92,0 )
1614    ;   1614    ;
1615   "RTN","SDA MEVT",93,0 )   1615   "RTN","SDA MEVT",93,0 )
1616    ; -- save  other dat a   1616    ; -- save  other dat a
1617   "RTN","SDA MEVT",94,0 )   1617   "RTN","SDA MEVT",94,0 )
1618    S FILE=40 9.42   1618    S FILE=40 9.42
1619   "RTN","SDA MEVT",95,0 )   1619   "RTN","SDA MEVT",95,0 )
1620    S I=0 F   S I=$O(^SD D(FILE,"OE ",SDOE,I))  Q:'I  D   1620    S I=0 F   S I=$O(^SD D(FILE,"OE ",SDOE,I))  Q:'I  D
1621   "RTN","SDA MEVT",96,0 )   1621   "RTN","SDA MEVT",96,0 )
1622    . S X=$G( ^SDD(FILE, I,0))   1622    . S X=$G( ^SDD(FILE, I,0))
1623   "RTN","SDA MEVT",97,0 )   1623   "RTN","SDA MEVT",97,0 )
1624    . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X   1624    . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X
1625   "RTN","SDA MEVT",98,0 )   1625   "RTN","SDA MEVT",98,0 )
1626    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" "   1626    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" "
1627   "RTN","SDA MEVT",99,0 )   1627   "RTN","SDA MEVT",99,0 )
1628    ;   1628    ;
1629   "RTN","SDA MEVT",100, 0)   1629   "RTN","SDA MEVT",100, 0)
1630    IF SDORG' =1,SDORG'= 3 G OEQ   1630    IF SDORG' =1,SDORG'= 3 G OEQ
1631   "RTN","SDA MEVT",101, 0)   1631   "RTN","SDA MEVT",101, 0)
1632    ;   1632    ;
1633   "RTN","SDA MEVT",102, 0)   1633   "RTN","SDA MEVT",102, 0)
1634    ; -- gets  children  oe's   1634    ; -- gets  children  oe's
1635   "RTN","SDA MEVT",103, 0)   1635   "RTN","SDA MEVT",103, 0)
1636    S SDKID=0   1636    S SDKID=0
1637   "RTN","SDA MEVT",104, 0)   1637   "RTN","SDA MEVT",104, 0)
1638    F  S SDKI D=$O(^SCE( "APAR",SDO E,SDKID))  Q:'SDKID   D   1638    F  S SDKI D=$O(^SCE( "APAR",SDO E,SDKID))  Q:'SDKID   D
1639   "RTN","SDA MEVT",105, 0)   1639   "RTN","SDA MEVT",105, 0)
1640    . S X=$G( ^SCE(SDKID ,0))   1640    . S X=$G( ^SCE(SDKID ,0))
1641   "RTN","SDA MEVT",106, 0)   1641   "RTN","SDA MEVT",106, 0)
1642    . IF $P(X ,U,8)'=4 Q   ; -- mus t be a cre dit stop e ncounter   1642    . IF $P(X ,U,8)'=4 Q   ; -- mus t be a cre dit stop e ncounter
1643   "RTN","SDA MEVT",107, 0)   1643   "RTN","SDA MEVT",107, 0)
1644    . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X   1644    . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X
1645   "RTN","SDA MEVT",108, 0)   1645   "RTN","SDA MEVT",108, 0)
1646    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" "   1646    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" "
1647   "RTN","SDA MEVT",109, 0)   1647   "RTN","SDA MEVT",109, 0)
1648   OEQ Q   1648   OEQ Q
1649   "RTN","SDA MEVT",110, 0)   1649   "RTN","SDA MEVT",110, 0)
1650    ;   1650    ;
1651   "RTN","SDA MEVT",111, 0)   1651   "RTN","SDA MEVT",111, 0)
1652   OECHG(SDOR G,SDHDL) ;  -- compar e befores  and afters   1652   OECHG(SDOR G,SDHDL) ;  -- compar e befores  and afters
1653   "RTN","SDA MEVT",112, 0)   1653   "RTN","SDA MEVT",112, 0)
1654    N Y,I,SDO E S (Y,SDO E)=0   1654    N Y,I,SDO E S (Y,SDO E)=0
1655   "RTN","SDA MEVT",113, 0)   1655   "RTN","SDA MEVT",113, 0)
1656    F  S SDOE =$O(^TMP(" SDEVT",$J, SDHDL,SDOR G,"SDOE",S DOE)) Q:'S DOE  D  Q: Y   1656    F  S SDOE =$O(^TMP(" SDEVT",$J, SDHDL,SDOR G,"SDOE",S DOE)) Q:'S DOE  D  Q: Y
1657   "RTN","SDA MEVT",114, 0)   1657   "RTN","SDA MEVT",114, 0)
1658    . S I=0   1658    . S I=0
1659   "RTN","SDA MEVT",115, 0)   1659   "RTN","SDA MEVT",115, 0)
1660    . F  S I= $O(^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,"CL",I) ) Q:'I  I  $G(^(I,0," BEFORE"))= '$G(^("AFT ER")) S Y= 1 Q   1660    . F  S I= $O(^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,"CL",I) ) Q:'I  I  $G(^(I,0," BEFORE"))= '$G(^("AFT ER")) S Y= 1 Q
1661   "RTN","SDA MEVT",116, 0)   1661   "RTN","SDA MEVT",116, 0)
1662    Q Y   1662    Q Y
1663   "RTN","SDA MEVT",117, 0)   1663   "RTN","SDA MEVT",117, 0)
1664    ;   1664    ;
1665   "RTN","SDA MEVT",118, 0)   1665   "RTN","SDA MEVT",118, 0)
1666   OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; --  event driv er calls b y oe   1666   OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; --  event driv er calls b y oe
1667   "RTN","SDA MEVT",119, 0)   1667   "RTN","SDA MEVT",119, 0)
1668    ; SDATA o nly requir ed for app ts   1668    ; SDATA o nly requir ed for app ts
1669   "RTN","SDA MEVT",120, 0)   1669   "RTN","SDA MEVT",120, 0)
1670    ; SDOE0 o nly requir ed for che ck out del etion AFTE R   1670    ; SDOE0 o nly requir ed for che ck out del etion AFTE R
1671   "RTN","SDA MEVT",121, 0)   1671   "RTN","SDA MEVT",121, 0)
1672    ;   1672    ;
1673   "RTN","SDA MEVT",122, 0)   1673   "RTN","SDA MEVT",122, 0)
1674    N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP   1674    N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP
1675   "RTN","SDA MEVT",123, 0)   1675   "RTN","SDA MEVT",123, 0)
1676    S SD0=$S( $D(^SCE(SD OE,0)):^(0 ),1:$G(SDO E0)),SDOEP =$P(SD0,U, 6)   1676    S SD0=$S( $D(^SCE(SD OE,0)):^(0 ),1:$G(SDO E0)),SDOEP =$P(SD0,U, 6)
1677   "RTN","SDA MEVT",124, 0)   1677   "RTN","SDA MEVT",124, 0)
1678    I SD0']"" !(SDOEP) G  OEVTQ   1678    I SD0']"" !(SDOEP) G  OEVTQ
1679   "RTN","SDA MEVT",125, 0)   1679   "RTN","SDA MEVT",125, 0)
1680    S SDT=+SD 0,DFN=+$P( SD0,U,2),S DCL=+$P(SD 0,U,4),SDO RG=+$P(SD0 ,U,8),SDDA =$P(SD0,U, 9)   1680    S SDT=+SD 0,DFN=+$P( SD0,U,2),S DCL=+$P(SD 0,U,4),SDO RG=+$P(SD0 ,U,8),SDDA =$P(SD0,U, 9)
1681   "RTN","SDA MEVT",126, 0)   1681   "RTN","SDA MEVT",126, 0)
1682    I SDCAP=" BEFORE" D   1682    I SDCAP=" BEFORE" D
1683   "RTN","SDA MEVT",127, 0)   1683   "RTN","SDA MEVT",127, 0)
1684    .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q   1684    .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q
1685   "RTN","SDA MEVT",128, 0)   1685   "RTN","SDA MEVT",128, 0)
1686    .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q   1686    .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q
1687   "RTN","SDA MEVT",129, 0)   1687   "RTN","SDA MEVT",129, 0)
1688    .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL)   1688    .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL)
1689   "RTN","SDA MEVT",130, 0)   1689   "RTN","SDA MEVT",130, 0)
1690    I SDCAP=" AFTER" D   1690    I SDCAP=" AFTER" D
1691   "RTN","SDA MEVT",131, 0)   1691   "RTN","SDA MEVT",131, 0)
1692    .I SDORG= 1 S SDATA= SDDA_"^"_D FN_"^"_SDT _"^"_SDCL  D AFTER(.S DATA,DFN,S DT,SDCL,SD DA,SDHDL), EVT(.SDATA ,5,0,SDHDL ) Q   1692    .I SDORG= 1 S SDATA= SDDA_"^"_D FN_"^"_SDT _"^"_SDCL  D AFTER(.S DATA,DFN,S DT,SDCL,SD DA,SDHDL), EVT(.SDATA ,5,0,SDHDL ) Q
1693   "RTN","SDA MEVT",132, 0)   1693   "RTN","SDA MEVT",132, 0)
1694    .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL)  Q   1694    .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL)  Q
1695   "RTN","SDA MEVT",133, 0)   1695   "RTN","SDA MEVT",133, 0)
1696    .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL)   1696    .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL)
1697   "RTN","SDA MEVT",134, 0)   1697   "RTN","SDA MEVT",134, 0)
1698   OEVTQ Q   1698   OEVTQ Q
1699   "RTN","SDA MEVT",135, 0)   1699   "RTN","SDA MEVT",135, 0)
1700    ;   1700    ;
1701   "RTN","SDA MEVT",136, 0)   1701   "RTN","SDA MEVT",136, 0)
1702    ; -- SEE  SDAMEVT0 F OR DOC ON  VARIABLES   1702    ; -- SEE  SDAMEVT0 F OR DOC ON  VARIABLES
1703   "RTN","SDC O3")   1703   "RTN","SDC O3")
1704   0^2^B42837 89^B391393 5   1704   0^2^B42837 89^B391393 5
1705   "RTN","SDC O3",1,0)   1705   "RTN","SDC O3",1,0)
1706   SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08  DEC 1992  4:05 pm   1706   SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08  DEC 1992  4:05 pm
1707   "RTN","SDC O3",2,0)   1707   "RTN","SDC O3",2,0)
1708    ;;5.3;Sch eduling;** 28,27,44,6 7,71,132,4 66,717**;0 8/13/93;Bu ild 7   1708    ;;5.3;Sch eduling;** 28,27,44,6 7,71,132,4 66,717**;0 8/13/93;Bu ild 7
1709   "RTN","SDC O3",3,0)   1709   "RTN","SDC O3",3,0)
1710    ;   1710    ;
1711   "RTN","SDC O3",4,0)   1711   "RTN","SDC O3",4,0)
1712   EN ;Entry  point for  SDCO PROVI DER protoc ol   1712   EN ;Entry  point for  SDCO PROVI DER protoc ol
1713   "RTN","SDC O3",5,0)   1713   "RTN","SDC O3",5,0)
1714    ; Input   -- SDOE   1714    ; Input   -- SDOE
1715   "RTN","SDC O3",6,0)   1715   "RTN","SDC O3",6,0)
1716    ;   1716    ;
1717   "RTN","SDC O3",7,0)   1717   "RTN","SDC O3",7,0)
1718    S VALMBCK =""   1718    S VALMBCK =""
1719   "RTN","SDC O3",8,0)   1719   "RTN","SDC O3",8,0)
1720    ;   1720    ;
1721   "RTN","SDC O3",9,0)   1721   "RTN","SDC O3",9,0)
1722    ; -- if O LD encount er, quit   1722    ; -- if O LD encount er, quit
1723   "RTN","SDC O3",10,0)   1723   "RTN","SDC O3",10,0)
1724    IF '$$EDI TOK($G(SDO E),1) G EN Q   1724    IF '$$EDI TOK($G(SDO E),1) G EN Q
1725   "RTN","SDC O3",11,0)   1725   "RTN","SDC O3",11,0)
1726    ;   1726    ;
1727   "RTN","SDC O3",12,0)   1727   "RTN","SDC O3",12,0)
1728    ; -- call  PCE inter view   1728    ; -- call  PCE inter view
1729   "RTN","SDC O3",13,0)   1729   "RTN","SDC O3",13,0)
1730    N SDVISIT ,SDHL   1730    N SDVISIT ,SDHL
1731   "RTN","SDC O3",14,0)   1731   "RTN","SDC O3",14,0)
1732    S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5)   1732    S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5)
1733   "RTN","SDC O3",15,0)   1733   "RTN","SDC O3",15,0)
1734    S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT)   1734    S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT)
1735   "RTN","SDC O3",16,0)   1735   "RTN","SDC O3",16,0)
1736    D BLD^SDC O S VALMBC K="R"   1736    D BLD^SDC O S VALMBC K="R"
1737   "RTN","SDC O3",17,0)   1737   "RTN","SDC O3",17,0)
1738   ENQ Q   1738   ENQ Q
1739   "RTN","SDC O3",18,0)   1739   "RTN","SDC O3",18,0)
1740    ;   1740    ;
1741   "RTN","SDC O3",19,0)   1741   "RTN","SDC O3",19,0)
1742   PRASK(SDOE ) ;Ask Pro vider on C heck Out   1742   PRASK(SDOE ) ;Ask Pro vider on C heck Out
1743   "RTN","SDC O3",20,0)   1743   "RTN","SDC O3",20,0)
1744    ; Input   -- SDOE       Outpati ent Encoun ter IEN   1744    ; Input   -- SDOE       Outpati ent Encoun ter IEN
1745   "RTN","SDC O3",21,0)   1745   "RTN","SDC O3",21,0)
1746    ; Output  -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red   1746    ; Output  -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red
1747   "RTN","SDC O3",22,0)   1747   "RTN","SDC O3",22,0)
1748    N SDCL,SD OE0,SDORG, Y   1748    N SDCL,SD OE0,SDORG, Y
1749   "RTN","SDC O3",23,0)   1749   "RTN","SDC O3",23,0)
1750    S SDOE0=$ G(^SCE(+SD OE,0)),SDC L=+$P(SDOE 0,"^",4),S DORG=+$P(S DOE0,"^",8 )   1750    S SDOE0=$ G(^SCE(+SD OE,0)),SDC L=+$P(SDOE 0,"^",4),S DORG=+$P(S DOE0,"^",8 )
1751   "RTN","SDC O3",24,0)   1751   "RTN","SDC O3",24,0)
1752    I $$REQ^S DM1A(+SDOE 0)'="CO" G  PRASKQ   1752    I $$REQ^S DM1A(+SDOE 0)'="CO" G  PRASKQ
1753   "RTN","SDC O3",25,0)   1753   "RTN","SDC O3",25,0)
1754    I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q   1754    I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q
1755   "RTN","SDC O3",26,0)   1755   "RTN","SDC O3",26,0)
1756    ;I "^1^2^ "[("^"_SDO RG_"^"),$$ INP^SDAM2( +$P(SDOE0, "^",2),+SD OE0)="I" G  PRASKQ  ; SD*5.3*466  allow pro vider chec k for inpa tients    1756    ;I "^1^2^ "[("^"_SDO RG_"^"),$$ INP^SDAM2( +$P(SDOE0, "^",2),+SD OE0)="I" G  PRASKQ  ; SD*5.3*466  allow pro vider chec k for inpa tients 
1757   "RTN","SDC O3",27,0)   1757   "RTN","SDC O3",27,0)
1758    I +SDOE0< 2961001 S  Y=2 G PRAS KQ   1758    I +SDOE0< 2961001 S  Y=2 G PRAS KQ
1759   "RTN","SDC O3",28,0)   1759   "RTN","SDC O3",28,0)
1760    I SDCL S  Y=1 G PRAS KQ   1760    I SDCL S  Y=1 G PRAS KQ
1761   "RTN","SDC O3",29,0)   1761   "RTN","SDC O3",29,0)
1762    I SDORG=3  S Y=1   1762    I SDORG=3  S Y=1
1763   "RTN","SDC O3",30,0)   1763   "RTN","SDC O3",30,0)
1764   PRASKQ Q + $G(Y)   1764   PRASKQ Q + $G(Y)
1765   "RTN","SDC O3",31,0)   1765   "RTN","SDC O3",31,0)
1766    ;   1766    ;
1767   "RTN","SDC O3",32,0)   1767   "RTN","SDC O3",32,0)
1768   SET(SDOE)  ;Set-up Pr ovider Arr ay for Out patient En counter   1768   SET(SDOE)  ;Set-up Pr ovider Arr ay for Out patient En counter
1769   "RTN","SDC O3",33,0)   1769   "RTN","SDC O3",33,0)
1770    ; Input   -- SDOE       Outpati ent Encoun ter IEN   1770    ; Input   -- SDOE       Outpati ent Encoun ter IEN
1771   "RTN","SDC O3",34,0)   1771   "RTN","SDC O3",34,0)
1772    ; Output  -- SDPRY      Provide r Array Su bscripted  by a Numbe r   1772    ; Output  -- SDPRY      Provide r Array Su bscripted  by a Numbe r
1773   "RTN","SDC O3",35,0)   1773   "RTN","SDC O3",35,0)
1774    ;            SDCNT      Number  of Array E ntries   1774    ;            SDCNT      Number  of Array E ntries
1775   "RTN","SDC O3",36,0)   1775   "RTN","SDC O3",36,0)
1776    N SDVA200 ,SDVPRV,SD PRVS   1776    N SDVA200 ,SDVPRV,SD PRVS
1777   "RTN","SDC O3",37,0)   1777   "RTN","SDC O3",37,0)
1778    K SDPRY   1778    K SDPRY
1779   "RTN","SDC O3",38,0)   1779   "RTN","SDC O3",38,0)
1780    D GETPRV^ SDOE(SDOE, "SDPRVS")   1780    D GETPRV^ SDOE(SDOE, "SDPRVS")
1781   "RTN","SDC O3",39,0)   1781   "RTN","SDC O3",39,0)
1782    S (SDCNT, SDVPRV)=0   1782    S (SDCNT, SDVPRV)=0
1783   "RTN","SDC O3",40,0)   1783   "RTN","SDC O3",40,0)
1784    F  S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V  D   1784    F  S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V  D
1785   "RTN","SDC O3",41,0)   1785   "RTN","SDC O3",41,0)
1786    . S SDVA2 00=+$G(SDP RVS(SDVPRV ))   1786    . S SDVA2 00=+$G(SDP RVS(SDVPRV ))
1787   "RTN","SDC O3",42,0)   1787   "RTN","SDC O3",42,0)
1788    . S SDCNT =SDCNT+1   1788    . S SDCNT =SDCNT+1
1789   "RTN","SDC O3",43,0)   1789   "RTN","SDC O3",43,0)
1790    . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200   1790    . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200
1791   "RTN","SDC O3",44,0)   1791   "RTN","SDC O3",44,0)
1792   SETQ Q   1792   SETQ Q
1793   "RTN","SDC O3",45,0)   1793   "RTN","SDC O3",45,0)
1794    ;   1794    ;
1795   "RTN","SDC O3",46,0)   1795   "RTN","SDC O3",46,0)
1796   LIST(SDPRY ) ;List Pr ovider Arr ay   1796   LIST(SDPRY ) ;List Pr ovider Arr ay
1797   "RTN","SDC O3",47,0)   1797   "RTN","SDC O3",47,0)
1798    ; Input   -- SDPRY      Provide r Array Su bscripted  by a Numbe r   1798    ; Input   -- SDPRY      Provide r Array Su bscripted  by a Numbe r
1799   "RTN","SDC O3",48,0)   1799   "RTN","SDC O3",48,0)
1800    ; Output  -- List Pr ovider Arr ay   1800    ; Output  -- List Pr ovider Arr ay
1801   "RTN","SDC O3",49,0)   1801   "RTN","SDC O3",49,0)
1802    N I   1802    N I
1803   "RTN","SDC O3",50,0)   1803   "RTN","SDC O3",50,0)
1804    W !   1804    W !
1805   "RTN","SDC O3",51,0)   1805   "RTN","SDC O3",51,0)
1806    S I=0 F   S I=$O(SDP RY(I)) Q:' I  W !?2,I ,"  ",$$PR ^SDCO31(+$ P(SDPRY(I) ,"^",2))   1806    S I=0 F   S I=$O(SDP RY(I)) Q:' I  W !?2,I ,"  ",$$PR ^SDCO31(+$ P(SDPRY(I) ,"^",2))
1807   "RTN","SDC O3",52,0)   1807   "RTN","SDC O3",52,0)
1808    Q   1808    Q
1809   "RTN","SDC O3",53,0)   1809   "RTN","SDC O3",53,0)
1810    ;   1810    ;
1811   "RTN","SDC O3",54,0)   1811   "RTN","SDC O3",54,0)
1812   EDITOK(SDO E,SDMODE)  ; -- ok to  edit?   1812   EDITOK(SDO E,SDMODE)  ; -- ok to  edit?
1813   "RTN","SDC O3",55,0)   1813   "RTN","SDC O3",55,0)
1814    ; input:   SDOE   :=  ien of 40 9.68                    [require d]   1814    ; input:   SDOE   :=  ien of 40 9.68                    [require d]
1815   "RTN","SDC O3",56,0)   1815   "RTN","SDC O3",56,0)
1816    ;          SDMODE :=  1 -- inte ractive ;  0 -- silen t [require d]   1816    ;          SDMODE :=  1 -- inte ractive ;  0 -- silen t [require d]
1817   "RTN","SDC O3",57,0)   1817   "RTN","SDC O3",57,0)
1818    ;   1818    ;
1819   "RTN","SDC O3",58,0)   1819   "RTN","SDC O3",58,0)
1820    ; returne d:  1 -- y es, it's o k to edit  or delete  SDOE entry   1820    ; returne d:  1 -- y es, it's o k to edit  or delete  SDOE entry
1821   "RTN","SDC O3",59,0)   1821   "RTN","SDC O3",59,0)
1822    ;             0 -- n o, cannot  not change  SDOE entr y   1822    ;             0 -- n o, cannot  not change  SDOE entr y
1823   "RTN","SDC O3",60,0)   1823   "RTN","SDC O3",60,0)
1824    ;   1824    ;
1825   "RTN","SDC O3",61,0)   1825   "RTN","SDC O3",61,0)
1826    N DIR,SDO K   1826    N DIR,SDO K
1827   "RTN","SDC O3",62,0)   1827   "RTN","SDC O3",62,0)
1828    S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U))   1828    S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U))
1829   "RTN","SDC O3",63,0)   1829   "RTN","SDC O3",63,0)
1830    IF 'SDOK, SDMODE=1 D  OLDMSG  ; *zeb 10/25 /18 717 su pport SDMO DE=2 for G UI   1830    IF 'SDOK, SDMODE=1 D  OLDMSG  ; *zeb 10/25 /18 717 su pport SDMO DE=2 for G UI
1831   "RTN","SDC O3",64,0)   1831   "RTN","SDC O3",64,0)
1832   EDITOKQ Q  SDOK   1832   EDITOKQ Q  SDOK
1833   "RTN","SDC O3",65,0)   1833   "RTN","SDC O3",65,0)
1834    ;   1834    ;
1835   "RTN","SDC O3",66,0)   1835   "RTN","SDC O3",66,0)
1836   OLDMSG ; - - display  message to  user   1836   OLDMSG ; - - display  message to  user
1837   "RTN","SDC O3",67,0)   1837   "RTN","SDC O3",67,0)
1838    W !!,">>>  Editing a nd deletin g old enco unters not  allowed." ,!   1838    W !!,">>>  Editing a nd deletin g old enco unters not  allowed." ,!
1839   "RTN","SDC O3",68,0)   1839   "RTN","SDC O3",68,0)
1840    N DIR   1840    N DIR
1841   "RTN","SDC O3",69,0)   1841   "RTN","SDC O3",69,0)
1842    S DIR(0)= "E"   1842    S DIR(0)= "E"
1843   "RTN","SDC O3",70,0)   1843   "RTN","SDC O3",70,0)
1844    S DIR("A" )="Press R eturn key  to continu e"   1844    S DIR("A" )="Press R eturn key  to continu e"
1845   "RTN","SDC O3",71,0)   1845   "RTN","SDC O3",71,0)
1846    D ^DIR   1846    D ^DIR
1847   "RTN","SDC O3",72,0)   1847   "RTN","SDC O3",72,0)
1848    Q   1848    Q
1849   "RTN","SDC O3",73,0)   1849   "RTN","SDC O3",73,0)
1850    ;   1850    ;
1851   "RTN","SDC ODEL")   1851   "RTN","SDC ODEL")
1852   0^3^B14749 068^B11313 917   1852   0^3^B14749 068^B11313 917
1853   "RTN","SDC ODEL",1,0)   1853   "RTN","SDC ODEL",1,0)
1854   SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN  15, 2016   1854   SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN  15, 2016
1855   "RTN","SDC ODEL",2,0)   1855   "RTN","SDC ODEL",2,0)
1856    ;;5.3;Sch eduling;** 20,27,44,9 7,105,110, 132,257,62 7,717**;Au g 13, 1993 ;Build 7   1856    ;;5.3;Sch eduling;** 20,27,44,9 7,105,110, 132,257,62 7,717**;Au g 13, 1993 ;Build 7
1857   "RTN","SDC ODEL",3,0)   1857   "RTN","SDC ODEL",3,0)
1858    ;   1858    ;
1859   "RTN","SDC ODEL",4,0)   1859   "RTN","SDC ODEL",4,0)
1860   EN(SDOE,SD MOD,SDELHD L,SDELSRC)  ;Delete C heck Out   1860   EN(SDOE,SD MOD,SDELHD L,SDELSRC)  ;Delete C heck Out
1861   "RTN","SDC ODEL",5,0)   1861   "RTN","SDC ODEL",5,0)
1862    ; Input   -- SDOE      Outpatie nt Encount er file IE N   1862    ; Input   -- SDOE      Outpatie nt Encount er file IE N
1863   "RTN","SDC ODEL",6,0)   1863   "RTN","SDC ODEL",6,0)
1864    ;            SDMOD     1=Intera ctive and  0=Non-inte ractive, 2 =Non-inter active/fro m GUI   1864    ;            SDMOD     1=Intera ctive and  0=Non-inte ractive, 2 =Non-inter active/fro m GUI
1865   "RTN","SDC ODEL",7,0)   1865   "RTN","SDC ODEL",7,0)
1866    ;            SDELHDL   Check Ou t Deletion  Handle  [ Optional]   1866    ;            SDELHDL   Check Ou t Deletion  Handle  [ Optional]
1867   "RTN","SDC ODEL",8,0)   1867   "RTN","SDC ODEL",8,0)
1868    ;            SDELSRC   Source o f delete   1868    ;            SDELSRC   Source o f delete
1869   "RTN","SDC ODEL",9,0)   1869   "RTN","SDC ODEL",9,0)
1870    ; Output  -- Delete  Check Out   1870    ; Output  -- Delete  Check Out
1871   "RTN","SDC ODEL",10,0 )   1871   "RTN","SDC ODEL",10,0 )
1872    N DA,DFN, DE,DIE,DR, SDCL,SDDA, SDEVTF,SDO E0,SDOEP,S DORG,SDT,S DVSAV,SDVF LG   1872    N DA,DFN, DE,DIE,DR, SDCL,SDDA, SDEVTF,SDO E0,SDOEP,S DORG,SDT,S DVSAV,SDVF LG
1873   "RTN","SDC ODEL",11,0 )   1873   "RTN","SDC ODEL",11,0 )
1874    D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA)   1874    D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA)
1875   "RTN","SDC ODEL",12,0 )   1875   "RTN","SDC ODEL",12,0 )
1876    S SDVSAV= $P(SDOE0,U ,5)   1876    S SDVSAV= $P(SDOE0,U ,5)
1877   "RTN","SDC ODEL",13,0 )   1877   "RTN","SDC ODEL",13,0 )
1878    ;   1878    ;
1879   "RTN","SDC ODEL",14,0 )   1879   "RTN","SDC ODEL",14,0 )
1880    ; -- ok t o delete?   1880    ; -- ok t o delete?
1881   "RTN","SDC ODEL",15,0 )   1881   "RTN","SDC ODEL",15,0 )
1882    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ   1882    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ
1883   "RTN","SDC ODEL",16,0 )   1883   "RTN","SDC ODEL",16,0 )
1884    ;   1884    ;
1885   "RTN","SDC ODEL",17,0 )   1885   "RTN","SDC ODEL",17,0 )
1886    S SDELSRC =$G(SDELSR C)  ;*zeb+ 1 717 11/6 /18 suppre ss event i f coming f rom cancel  appointme nt   1886    S SDELSRC =$G(SDELSR C)  ;*zeb+ 1 717 11/6 /18 suppre ss event i f coming f rom cancel  appointme nt
1887   "RTN","SDC ODEL",18,0 )   1887   "RTN","SDC ODEL",18,0 )
1888    IF SDELSR C'="PCE" S  X=$$DELVF ILE^PXAPI( "ALL",$P($ G(^SCE(SDO E,0)),U,5) ,"","","", 1)   1888    IF SDELSR C'="PCE" S  X=$$DELVF ILE^PXAPI( "ALL",$P($ G(^SCE(SDO E,0)),U,5) ,"","","", 1)
1889   "RTN","SDC ODEL",19,0 )   1889   "RTN","SDC ODEL",19,0 )
1890    S SDVFLG= 1   1890    S SDVFLG= 1
1891   "RTN","SDC ODEL",20,0 )   1891   "RTN","SDC ODEL",20,0 )
1892    ;   1892    ;
1893   "RTN","SDC ODEL",21,0 )   1893   "RTN","SDC ODEL",21,0 )
1894    ; -- get  handle if  not passed  and do 'b efore'   1894    ; -- get  handle if  not passed  and do 'b efore'
1895   "RTN","SDC ODEL",22,0 )   1895   "RTN","SDC ODEL",22,0 )
1896    I '$G(SDE LHDL),("^C ANCEL^NOSH OW^"'["^"_ SDELSRC_"^ ") N SDATA ,SDELHDL S  SDEVTF=1  D EVT^SDCO U1(SDOE,"B EFORE",.SD ELHDL,.SDA TA)  ;*zeb  717 11/6/ 18 suppres s event if  coming fr om cancel  or no show   1896    I '$G(SDE LHDL),("^C ANCEL^NOSH OW^"'["^"_ SDELSRC_"^ ") N SDATA ,SDELHDL S  SDEVTF=1  D EVT^SDCO U1(SDOE,"B EFORE",.SD ELHDL,.SDA TA)  ;*zeb  717 11/6/ 18 suppres s event if  coming fr om cancel  or no show
1897   "RTN","SDC ODEL",23,0 )   1897   "RTN","SDC ODEL",23,0 )
1898    ;   1898    ;
1899   "RTN","SDC ODEL",24,0 )   1899   "RTN","SDC ODEL",24,0 )
1900    I $G(SDMO D)=1 W !!, ">>> Delet ing check  out inform ation..."   ;*zeb 10/ 25/18 717  fix test f or SDMOD=2  for GUI   1900    I $G(SDMO D)=1 W !!, ">>> Delet ing check  out inform ation..."   ;*zeb 10/ 25/18 717  fix test f or SDMOD=2  for GUI
1901   "RTN","SDC ODEL",25,0 )   1901   "RTN","SDC ODEL",25,0 )
1902    ;   1902    ;
1903   "RTN","SDC ODEL",26,0 )   1903   "RTN","SDC ODEL",26,0 )
1904    ; -- dele te child d ata for ap pts, dispo sition and  stop code  addition   1904    ; -- dele te child d ata for ap pts, dispo sition and  stop code  addition
1905   "RTN","SDC ODEL",27,0 )   1905   "RTN","SDC ODEL",27,0 )
1906    I "^1^2^3 ^"[("^"_SD ORG_"^") D  CHLD(SDOE ,SDMOD) ;S D/257   1906    I "^1^2^3 ^"[("^"_SD ORG_"^") D  CHLD(SDOE ,SDMOD) ;S D/257
1907   "RTN","SDC ODEL",28,0 )   1907   "RTN","SDC ODEL",28,0 )
1908    ;   1908    ;
1909   "RTN","SDC ODEL",29,0 )   1909   "RTN","SDC ODEL",29,0 )
1910    ; -- dele te SDOE po inters and  co d/t   1910    ; -- dele te SDOE po inters and  co d/t
1911   "RTN","SDC ODEL",30,0 )   1911   "RTN","SDC ODEL",30,0 )
1912    I SDORG=1  D   1912    I SDORG=1  D
1913   "RTN","SDC ODEL",31,0 )   1913   "RTN","SDC ODEL",31,0 )
1914    .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D  ^DIE   1914    .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D  ^DIE
1915   "RTN","SDC ODEL",32,0 )   1915   "RTN","SDC ODEL",32,0 )
1916    .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me"   1916    .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me"
1917   "RTN","SDC ODEL",33,0 )   1917   "RTN","SDC ODEL",33,0 )
1918    .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR)   1918    .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR)
1919   "RTN","SDC ODEL",34,0 )   1919   "RTN","SDC ODEL",34,0 )
1920    I SDORG=3  D   1920    I SDORG=3  D
1921   "RTN","SDC ODEL",35,0 )   1921   "RTN","SDC ODEL",35,0 )
1922    .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE   1922    .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE
1923   "RTN","SDC ODEL",36,0 )   1923   "RTN","SDC ODEL",36,0 )
1924    ;   1924    ;
1925   "RTN","SDC ODEL",37,0 )   1925   "RTN","SDC ODEL",37,0 )
1926    ; -- do f inal delet es for sdo e   1926    ; -- do f inal delet es for sdo e
1927   "RTN","SDC ODEL",38,0 )   1927   "RTN","SDC ODEL",38,0 )
1928    D CO(SDOE ,SDMOD)   1928    D CO(SDOE ,SDMOD)
1929   "RTN","SDC ODEL",39,0 )   1929   "RTN","SDC ODEL",39,0 )
1930    D OE(SDOE ,SDMOD)   1930    D OE(SDOE ,SDMOD)
1931   "RTN","SDC ODEL",40,0 )   1931   "RTN","SDC ODEL",40,0 )
1932    D SDEC(DF N,SDT,SDCL )   ;delet e checkout  in SDEC A PPOINTMENT   ;alb/sat  627   1932    D SDEC(DF N,SDT,SDCL )   ;delet e checkout  in SDEC A PPOINTMENT   ;alb/sat  627
1933   "RTN","SDC ODEL",41,0 )   1933   "RTN","SDC ODEL",41,0 )
1934    ;   1934    ;
1935   "RTN","SDC ODEL",42,0 )   1935   "RTN","SDC ODEL",42,0 )
1936    I $G(SDMO D) W !,">> > done."   1936    I $G(SDMO D) W !,">> > done."
1937   "RTN","SDC ODEL",43,0 )   1937   "RTN","SDC ODEL",43,0 )
1938    ;   1938    ;
1939   "RTN","SDC ODEL",44,0 )   1939   "RTN","SDC ODEL",44,0 )
1940    ; -- if h andle not  passed, th en 'after'  and event   1940    ; -- if h andle not  passed, th en 'after'  and event
1941   "RTN","SDC ODEL",45,0 )   1941   "RTN","SDC ODEL",45,0 )
1942    I $G(SDEV TF),(SDELS RC'="CANCE L") D EVT^ SDCOU1(SDO E,"AFTER", SDELHDL,.S DATA,SDOE0 )  ;*zeb 7 17 11/6/18  suppress  event if c oming from  cancel ap pointment   1942    I $G(SDEV TF),(SDELS RC'="CANCE L") D EVT^ SDCOU1(SDO E,"AFTER", SDELHDL,.S DATA,SDOE0 )  ;*zeb 7 17 11/6/18  suppress  event if c oming from  cancel ap pointment
1943   "RTN","SDC ODEL",46,0 )   1943   "RTN","SDC ODEL",46,0 )
1944    ;   1944    ;
1945   "RTN","SDC ODEL",47,0 )   1945   "RTN","SDC ODEL",47,0 )
1946    ; -- call  pce to ma ke sure it s data is  gone   1946    ; -- call  pce to ma ke sure it s data is  gone
1947   "RTN","SDC ODEL",48,0 )   1947   "RTN","SDC ODEL",48,0 )
1948    I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV)   1948    I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV)
1949   "RTN","SDC ODEL",49,0 )   1949   "RTN","SDC ODEL",49,0 )
1950   ENQ Q   1950   ENQ Q
1951   "RTN","SDC ODEL",50,0 )   1951   "RTN","SDC ODEL",50,0 )
1952    ;   1952    ;
1953   "RTN","SDC ODEL",51,0 )   1953   "RTN","SDC ODEL",51,0 )
1954   CHLD(SDOEP ,SDMOD) ;D elete Chil dren   1954   CHLD(SDOEP ,SDMOD) ;D elete Chil dren
1955   "RTN","SDC ODEL",52,0 )   1955   "RTN","SDC ODEL",52,0 )
1956    N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT   1956    N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT
1957   "RTN","SDC ODEL",53,0 )   1957   "RTN","SDC ODEL",53,0 )
1958    S SDOEC=0   1958    S SDOEC=0
1959   "RTN","SDC ODEL",54,0 )   1959   "RTN","SDC ODEL",54,0 )
1960    F  S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC))  Q:'SDOEC   D   1960    F  S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC))  Q:'SDOEC   D
1961   "RTN","SDC ODEL",55,0 )   1961   "RTN","SDC ODEL",55,0 )
1962    .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA)   1962    .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA)
1963   "RTN","SDC ODEL",56,0 )   1963   "RTN","SDC ODEL",56,0 )
1964    .D OE(SDO EC,SDMOD)   1964    .D OE(SDO EC,SDMOD)
1965   "RTN","SDC ODEL",57,0 )   1965   "RTN","SDC ODEL",57,0 )
1966    Q   1966    Q
1967   "RTN","SDC ODEL",58,0 )   1967   "RTN","SDC ODEL",58,0 )
1968    ;   1968    ;
1969   "RTN","SDC ODEL",59,0 )   1969   "RTN","SDC ODEL",59,0 )
1970   SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA)  ;Set Varia bles   1970   SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA)  ;Set Varia bles
1971   "RTN","SDC ODEL",60,0 )   1971   "RTN","SDC ODEL",60,0 )
1972    S SDOE0=$ G(^SCE(+SD OE,0)),SDT =+SDOE0,DF N=+$P(SDOE 0,"^",2),S DCL=+$P(SD OE0,"^",4) ,SDORG=+$P (SDOE0,"^" ,8),SDDA=$ P(SDOE0,"^ ",9)   1972    S SDOE0=$ G(^SCE(+SD OE,0)),SDT =+SDOE0,DF N=+$P(SDOE 0,"^",2),S DCL=+$P(SD OE0,"^",4) ,SDORG=+$P (SDOE0,"^" ,8),SDDA=$ P(SDOE0,"^ ",9)
1973   "RTN","SDC ODEL",61,0 )   1973   "RTN","SDC ODEL",61,0 )
1974    Q   1974    Q
1975   "RTN","SDC ODEL",62,0 )   1975   "RTN","SDC ODEL",62,0 )
1976    ;   1976    ;
1977   "RTN","SDC ODEL",63,0 )   1977   "RTN","SDC ODEL",63,0 )
1978   CO(SDOE,SD MOD) ;Dele te Classif ication   1978   CO(SDOE,SD MOD) ;Dele te Classif ication
1979   "RTN","SDC ODEL",64,0 )   1979   "RTN","SDC ODEL",64,0 )
1980    N DA,DIK, SDFL,SDI   1980    N DA,DIK, SDFL,SDI
1981   "RTN","SDC ODEL",65,0 )   1981   "RTN","SDC ODEL",65,0 )
1982    I $P($G(^ SCE(SDOE,0 )),"^",6)  G COQ   1982    I $P($G(^ SCE(SDOE,0 )),"^",6)  G COQ
1983   "RTN","SDC ODEL",66,0 )   1983   "RTN","SDC ODEL",66,0 )
1984    I $O(^SDD (409.42,"A O",SDOE,0) )>0 D   1984    I $O(^SDD (409.42,"A O",SDOE,0) )>0 D
1985   "RTN","SDC ODEL",67,0 )   1985   "RTN","SDC ODEL",67,0 )
1986    .I $G(SDM OD) W !?3, "...deleti ng classif ications"   1986    .I $G(SDM OD) W !?3, "...deleti ng classif ications"
1987   "RTN","SDC ODEL",68,0 )   1987   "RTN","SDC ODEL",68,0 )
1988    .D DEL(SD OE,409.42)   1988    .D DEL(SD OE,409.42)
1989   "RTN","SDC ODEL",69,0 )   1989   "RTN","SDC ODEL",69,0 )
1990   COQ Q   1990   COQ Q
1991   "RTN","SDC ODEL",70,0 )   1991   "RTN","SDC ODEL",70,0 )
1992    ;   1992    ;
1993   "RTN","SDC ODEL",71,0 )   1993   "RTN","SDC ODEL",71,0 )
1994   DEL(SDOE,S DFL) ;Dele te Classif ication   1994   DEL(SDOE,S DFL) ;Dele te Classif ication
1995   "RTN","SDC ODEL",72,0 )   1995   "RTN","SDC ODEL",72,0 )
1996    N DA,DIK, SDI   1996    N DA,DIK, SDI
1997   "RTN","SDC ODEL",73,0 )   1997   "RTN","SDC ODEL",73,0 )
1998    S DIK="^S DD("_SDFL_ ",",SDI=0   1998    S DIK="^S DD("_SDFL_ ",",SDI=0
1999   "RTN","SDC ODEL",74,0 )   1999   "RTN","SDC ODEL",74,0 )
2000    F  S SDI= $O(^SDD(SD FL,"AO",SD OE,SDI)) Q :'SDI  S D A=+$O(^(SD I,0)) D ^D IK   2000    F  S SDI= $O(^SDD(SD FL,"AO",SD OE,SDI)) Q :'SDI  S D A=+$O(^(SD I,0)) D ^D IK
2001   "RTN","SDC ODEL",75,0 )   2001   "RTN","SDC ODEL",75,0 )
2002    Q   2002    Q
2003   "RTN","SDC ODEL",76,0 )   2003   "RTN","SDC ODEL",76,0 )
2004    ;   2004    ;
2005   "RTN","SDC ODEL",77,0 )   2005   "RTN","SDC ODEL",77,0 )
2006   OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter   2006   OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter
2007   "RTN","SDC ODEL",78,0 )   2007   "RTN","SDC ODEL",78,0 )
2008    N DA,DIK, SDVSIT,SDO RG,SDAT   2008    N DA,DIK, SDVSIT,SDO RG,SDAT
2009   "RTN","SDC ODEL",79,0 )   2009   "RTN","SDC ODEL",79,0 )
2010    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ   2010    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ
2011   "RTN","SDC ODEL",80,0 )   2011   "RTN","SDC ODEL",80,0 )
2012    S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1)   2012    S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1)
2013   "RTN","SDC ODEL",81,0 )   2013   "RTN","SDC ODEL",81,0 )
2014    S SDVSIT= $P($G(^SCE (SDOE,0)), U,5),SDORG =$P($G(^SC E(SDOE,0)) ,U,8)   2014    S SDVSIT= $P($G(^SCE (SDOE,0)), U,5),SDORG =$P($G(^SC E(SDOE,0)) ,U,8)
2015   "RTN","SDC ODEL",82,0 )   2015   "RTN","SDC ODEL",82,0 )
2016    S DA=SDOE ,DIK="^SCE (" D ^DIK   2016    S DA=SDOE ,DIK="^SCE (" D ^DIK
2017   "RTN","SDC ODEL",83,0 )   2017   "RTN","SDC ODEL",83,0 )
2018    S X=$$KIL L^VSITKIL( SDVSIT)   2018    S X=$$KIL L^VSITKIL( SDVSIT)
2019   "RTN","SDC ODEL",84,0 )   2019   "RTN","SDC ODEL",84,0 )
2020   OEQ Q   2020   OEQ Q
2021   "RTN","SDC ODEL",85,0 )   2021   "RTN","SDC ODEL",85,0 )
2022    ;   2022    ;
2023   "RTN","SDC ODEL",86,0 )   2023   "RTN","SDC ODEL",86,0 )
2024   COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date   2024   COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date
2025   "RTN","SDC ODEL",87,0 )   2025   "RTN","SDC ODEL",87,0 )
2026    N DA,DE,D IE,DQ,DR   2026    N DA,DE,D IE,DQ,DR
2027   "RTN","SDC ODEL",88,0 )   2027   "RTN","SDC ODEL",88,0 )
2028    I $G(SDMO D) W !?3," ...deletin g check ou t process  completion  date"   2028    I $G(SDMO D) W !?3," ...deletin g check ou t process  completion  date"
2029   "RTN","SDC ODEL",89,0 )   2029   "RTN","SDC ODEL",89,0 )
2030    S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE   2030    S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE
2031   "RTN","SDC ODEL",90,0 )   2031   "RTN","SDC ODEL",90,0 )
2032    Q   2032    Q
2033   "RTN","SDC ODEL",91,0 )   2033   "RTN","SDC ODEL",91,0 )
2034    ;   2034    ;
2035   "RTN","SDC ODEL",92,0 )   2035   "RTN","SDC ODEL",92,0 )
2036   SDEC(DFN,S DT,SDCL)    ;delete c heck out i n SDEC APP OINTMENT   ;alb/sat 6 27   2036   SDEC(DFN,S DT,SDCL)    ;delete c heck out i n SDEC APP OINTMENT   ;alb/sat 6 27
2037   "RTN","SDC ODEL",93,0 )   2037   "RTN","SDC ODEL",93,0 )
2038    N SDECAPI D   2038    N SDECAPI D
2039   "RTN","SDC ODEL",94,0 )   2039   "RTN","SDC ODEL",94,0 )
2040    S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL)   2040    S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL)
2041   "RTN","SDC ODEL",95,0 )   2041   "RTN","SDC ODEL",95,0 )
2042    D CANAPPT ^SDEC25(SD ECAPID)   2042    D CANAPPT ^SDEC25(SD ECAPID)
2043   "RTN","SDC ODEL",96,0 )   2043   "RTN","SDC ODEL",96,0 )
2044    Q   2044    Q
2045   "RTN","SDE C07B")   2045   "RTN","SDE C07B")
2046   0^4^B86344 811^B55538 827   2046   0^4^B86344 811^B55538 827
2047   "RTN","SDE C07B",1,0)   2047   "RTN","SDE C07B",1,0)
2048   SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS  ; 26 Mar  2019  7:44  AM   2048   SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS  ; 26 Mar  2019  7:44  AM
2049   "RTN","SDE C07B",2,0)   2049   "RTN","SDE C07B",2,0)
2050    ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug  13, 1993;B uild 7   2050    ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug  13, 1993;B uild 7
2051   "RTN","SDE C07B",3,0)   2051   "RTN","SDE C07B",3,0)
2052    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified   2052    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
2053   "RTN","SDE C07B",4,0)   2053   "RTN","SDE C07B",4,0)
2054    ;   2054    ;
2055   "RTN","SDE C07B",5,0)   2055   "RTN","SDE C07B",5,0)
2056    Q   2056    Q
2057   "RTN","SDE C07B",6,0)   2057   "RTN","SDE C07B",6,0)
2058    ;   2058    ;
2059   "RTN","SDE C07B",7,0)   2059   "RTN","SDE C07B",7,0)
2060   MAKE(BSDR)  ;PEP; cal l to store  appt made   2060   MAKE(BSDR)  ;PEP; cal l to store  appt made
2061   "RTN","SDE C07B",8,0)   2061   "RTN","SDE C07B",8,0)
2062    ;   2062    ;
2063   "RTN","SDE C07B",9,0)   2063   "RTN","SDE C07B",9,0)
2064    ; Make ca ll using:  S ERR=$$MA KE^SDEC07B (.ARRAY)   2064    ; Make ca ll using:  S ERR=$$MA KE^SDEC07B (.ARRAY)
2065   "RTN","SDE C07B",10,0 )   2065   "RTN","SDE C07B",10,0 )
2066    ;   2066    ;
2067   "RTN","SDE C07B",11,0 )   2067   "RTN","SDE C07B",11,0 )
2068    ; Input A rray -   2068    ; Input A rray -
2069   "RTN","SDE C07B",12,0 )   2069   "RTN","SDE C07B",12,0 )
2070    ; BSDR("P AT") = ien  of patien t in file  2   2070    ; BSDR("P AT") = ien  of patien t in file  2
2071   "RTN","SDE C07B",13,0 )   2071   "RTN","SDE C07B",13,0 )
2072    ; BSDR("C LN") = ien  of clinic  in file 4 4   2072    ; BSDR("C LN") = ien  of clinic  in file 4 4
2073   "RTN","SDE C07B",14,0 )   2073   "RTN","SDE C07B",14,0 )
2074    ; BSDR("T YP") = C&P  if appoin tment type  is C&P, 3  for sched uled appts , 4 for wa lkins   2074    ; BSDR("T YP") = C&P  if appoin tment type  is C&P, 3  for sched uled appts , 4 for wa lkins
2075   "RTN","SDE C07B",15,0 )   2075   "RTN","SDE C07B",15,0 )
2076    ; BSDR("C OL") = col lateral if  appointme nt type is  COLLATERA L OF VET.   2076    ; BSDR("C OL") = col lateral if  appointme nt type is  COLLATERA L OF VET.
2077   "RTN","SDE C07B",16,0 )   2077   "RTN","SDE C07B",16,0 )
2078    ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1   2078    ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1
2079   "RTN","SDE C07B",17,0 )   2079   "RTN","SDE C07B",17,0 )
2080    ; BSDR("A DT") = app ointment d ate and ti me   2080    ; BSDR("A DT") = app ointment d ate and ti me
2081   "RTN","SDE C07B",18,0 )   2081   "RTN","SDE C07B",18,0 )
2082    ; BSDR("L EN") = app ointment l ength in m inutes (5- 120)   2082    ; BSDR("L EN") = app ointment l ength in m inutes (5- 120)
2083   "RTN","SDE C07B",19,0 )   2083   "RTN","SDE C07B",19,0 )
2084    ; BSDR("O I")  = rea son for ap pt - up to  150 chara cters   2084    ; BSDR("O I")  = rea son for ap pt - up to  150 chara cters
2085   "RTN","SDE C07B",20,0 )   2085   "RTN","SDE C07B",20,0 )
2086    ; BSDR("U SR") = use r who made  appt   2086    ; BSDR("U SR") = use r who made  appt
2087   "RTN","SDE C07B",21,0 )   2087   "RTN","SDE C07B",21,0 )
2088    ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE  ^SDEC(409 .831,   2088    ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE  ^SDEC(409 .831,
2089   "RTN","SDE C07B",22,0 )   2089   "RTN","SDE C07B",22,0 )
2090    ; BSDR("M TR") = MTR C flag (mu ltiple app ointments)  0=False ( default)   1=True   2090    ; BSDR("M TR") = MTR C flag (mu ltiple app ointments)  0=False ( default)   1=True
2091   "RTN","SDE C07B",23,0 )   2091   "RTN","SDE C07B",23,0 )
2092    ; BSDR("D DT") = Des ired Date  of Appt in  fm format   2092    ; BSDR("D DT") = Des ired Date  of Appt in  fm format
2093   "RTN","SDE C07B",24,0 )   2093   "RTN","SDE C07B",24,0 )
2094    ; BSDR("R EQ") = Req uested By  - valid va lues are 1 =PROVIDER   2=PATIENT  or ""   2094    ; BSDR("R EQ") = Req uested By  - valid va lues are 1 =PROVIDER   2=PATIENT  or ""
2095   "RTN","SDE C07B",25,0 )   2095   "RTN","SDE C07B",25,0 )
2096    ; BSDR("L AB") = LAB  date/time  in fm for mat   2096    ; BSDR("L AB") = LAB  date/time  in fm for mat
2097   "RTN","SDE C07B",26,0 )   2097   "RTN","SDE C07B",26,0 )
2098    ; BSDR("E KG") = EKG  date/time  in fm for mat   2098    ; BSDR("E KG") = EKG  date/time  in fm for mat
2099   "RTN","SDE C07B",27,0 )   2099   "RTN","SDE C07B",27,0 )
2100    ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat   2100    ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat
2101   "RTN","SDE C07B",28,0 )   2101   "RTN","SDE C07B",28,0 )
2102    ; BSDR("C ON") = Con sult link  - pointer  to file 12 3   2102    ; BSDR("C ON") = Con sult link  - pointer  to file 12 3
2103   "RTN","SDE C07B",29,0 )   2103   "RTN","SDE C07B",29,0 )
2104    ; BSDR("O VB") = ove rbook flag  - 1=yes,  this is an  overbook   2104    ; BSDR("O VB") = ove rbook flag  - 1=yes,  this is an  overbook
2105   "RTN","SDE C07B",30,0 )   2105   "RTN","SDE C07B",30,0 )
2106    ; BSDR("E LG") = Pat ient Eligi bilty   2106    ; BSDR("E LG") = Pat ient Eligi bilty
2107   "RTN","SDE C07B",31,0 )   2107   "RTN","SDE C07B",31,0 )
2108    ;    2108    ; 
2109   "RTN","SDE C07B",32,0 )   2109   "RTN","SDE C07B",32,0 )
2110    ;Output:  error stat us and mes sage   2110    ;Output:  error stat us and mes sage
2111   "RTN","SDE C07B",33,0 )   2111   "RTN","SDE C07B",33,0 )
2112    ;   = 0 o r null:  e verything  okay   2112    ;   = 0 o r null:  e verything  okay
2113   "RTN","SDE C07B",34,0 )   2113   "RTN","SDE C07B",34,0 )
2114    ;   = 1^m essage:  e rror and r eason   2114    ;   = 1^m essage:  e rror and r eason
2115   "RTN","SDE C07B",35,0 )   2115   "RTN","SDE C07B",35,0 )
2116    ;   2116    ;
2117   "RTN","SDE C07B",36,0 )   2117   "RTN","SDE C07B",36,0 )
2118    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))   2118    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))
2119   "RTN","SDE C07B",37,0 )   2119   "RTN","SDE C07B",37,0 )
2120    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))   2120    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))
2121   "RTN","SDE C07B",38,0 )   2121   "RTN","SDE C07B",38,0 )
2122    I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error:  "_$G(BSDR ("TYP"))   2122    I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error:  "_$G(BSDR ("TYP"))
2123   "RTN","SDE C07B",39,0 )   2123   "RTN","SDE C07B",39,0 )
2124    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s   2124    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
2125   "RTN","SDE C07B",40,0 )   2125   "RTN","SDE C07B",40,0 )
2126    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))   2126    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))
2127   "RTN","SDE C07B",41,0 )   2127   "RTN","SDE C07B",41,0 )
2128    ;   2128    ;
2129   "RTN","SDE C07B",42,0 )   2129   "RTN","SDE C07B",42,0 )
2130    I ($G(BSD R("LEN"))< 5)!($G(BSD R("LEN"))> 240) Q 1_U _"Appt Len gth error:  "_$G(BSDR ("LEN"))   2130    I ($G(BSD R("LEN"))< 5)!($G(BSD R("LEN"))> 240) Q 1_U _"Appt Len gth error:  "_$G(BSDR ("LEN"))
2131   "RTN","SDE C07B",43,0 )   2131   "RTN","SDE C07B",43,0 )
2132    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Made App t Error: " _$G(BSDR(" USR"))   2132    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Made App t Error: " _$G(BSDR(" USR"))
2133   "RTN","SDE C07B",44,0 )   2133   "RTN","SDE C07B",44,0 )
2134    I $D(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 )),$P(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 ),U,2)'="C ",$P(^DPT( BSDR("PAT" ),"S",BSDR ("ADT"),0) ,U,2)'="PC " Q 1_U_"P atient "_$ $GET1^DIQ( 2,BSDR("PA T")_",",.0 1)_" alrea dy has app t at "_$$F MTE^XLFDT( BSDR("ADT" ))   2134    I $D(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 )),$P(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 ),U,2)'="C ",$P(^DPT( BSDR("PAT" ),"S",BSDR ("ADT"),0) ,U,2)'="PC " Q 1_U_"P atient "_$ $GET1^DIQ( 2,BSDR("PA T")_",",.0 1)_" alrea dy has app t at "_$$F MTE^XLFDT( BSDR("ADT" ))
2135   "RTN","SDE C07B",45,0 )   2135   "RTN","SDE C07B",45,0 )
2136    ;   2136    ;
2137   "RTN","SDE C07B",46,0 )   2137   "RTN","SDE C07B",46,0 )
2138    N DIC,DA, Y,X,DD,DO, DLAYGO   2138    N DIC,DA, Y,X,DD,DO, DLAYGO
2139   "RTN","SDE C07B",47,0 )   2139   "RTN","SDE C07B",47,0 )
2140    N SDECERR   2140    N SDECERR
2141   "RTN","SDE C07B",48,0 )   2141   "RTN","SDE C07B",48,0 )
2142    N SDFU,SD NA,SDRET,S DSRT,PATCH 722,PATCH7 17 ; 717/7 22 WTC 3/2 6/19   2142    N SDFU,SD NA,SDRET,S DSRT,PATCH 722,PATCH7 17 ; 717/7 22 WTC 3/2 6/19
2143   "RTN","SDE C07B",49,0 )   2143   "RTN","SDE C07B",49,0 )
2144    S PATCH72 2=$$PATCHS TS(722) ;   2144    S PATCH72 2=$$PATCHS TS(722) ;
2145   "RTN","SDE C07B",50,0 )   2145   "RTN","SDE C07B",50,0 )
2146    S PATCH71 7=$$PATCHS TS(717) ;   2146    S PATCH71 7=$$PATCHS TS(717) ;
2147   "RTN","SDE C07B",51,0 )   2147   "RTN","SDE C07B",51,0 )
2148    ;   2148    ;
2149   "RTN","SDE C07B",52,0 )   2149   "RTN","SDE C07B",52,0 )
2150    S BSDR("A PT")=+$G(B SDR("APT") )   2150    S BSDR("A PT")=+$G(B SDR("APT") )
2151   "RTN","SDE C07B",53,0 )   2151   "RTN","SDE C07B",53,0 )
2152    S BSDR("C OL")=+$G(B SDR("COL") )   2152    S BSDR("C OL")=+$G(B SDR("COL") )
2153   "RTN","SDE C07B",54,0 )   2153   "RTN","SDE C07B",54,0 )
2154    ;get sche duling req uest type  AND next a va. appt.  indicator   2154    ;get sche duling req uest type  AND next a va. appt.  indicator
2155   "RTN","SDE C07B",55,0 )   2155   "RTN","SDE C07B",55,0 )
2156    S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ"))   2156    S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ"))
2157   "RTN","SDE C07B",56,0 )   2157   "RTN","SDE C07B",56,0 )
2158    ; next av a.appt. in dicator fi eld 26   2158    ; next av a.appt. in dicator fi eld 26
2159   "RTN","SDE C07B",57,0 )   2159   "RTN","SDE C07B",57,0 )
2160    S SDNA=$P (SDSRT,U,2 )   2160    S SDNA=$P (SDSRT,U,2 )
2161   "RTN","SDE C07B",58,0 )   2161   "RTN","SDE C07B",58,0 )
2162    ; schedul ing reques t type fie ld 25   2162    ; schedul ing reques t type fie ld 25
2163   "RTN","SDE C07B",59,0 )   2163   "RTN","SDE C07B",59,0 )
2164    S SDSRT=$ P(SDSRT,U, 1)   2164    S SDSRT=$ P(SDSRT,U, 1)
2165   "RTN","SDE C07B",60,0 )   2165   "RTN","SDE C07B",60,0 )
2166    ;determin e if Follo w-up visit  field 28   2166    ;determin e if Follo w-up visit  field 28
2167   "RTN","SDE C07B",61,0 )   2167   "RTN","SDE C07B",61,0 )
2168    S SDRET=" "   2168    S SDRET=" "
2169   "RTN","SDE C07B",62,0 )   2169   "RTN","SDE C07B",62,0 )
2170    D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN"))   2170    D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN"))
2171   "RTN","SDE C07B",63,0 )   2171   "RTN","SDE C07B",63,0 )
2172    S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1)   2172    S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1)
2173   "RTN","SDE C07B",64,0 )   2173   "RTN","SDE C07B",64,0 )
2174    S SDFU=$S (SDFU="YES ":1,1:0)   2174    S SDFU=$S (SDFU="YES ":1,1:0)
2175   "RTN","SDE C07B",65,0 )   2175   "RTN","SDE C07B",65,0 )
2176    K @SDRET   2176    K @SDRET
2177   "RTN","SDE C07B",66,0 )   2177   "RTN","SDE C07B",66,0 )
2178    ;store   2178    ;store
2179   "RTN","SDE C07B",67,0 )   2179   "RTN","SDE C07B",67,0 )
2180    N SDECCON D ;  722/7 17 wtc 3/2 6/2019    2180    N SDECCON D ;  722/7 17 wtc 3/2 6/2019 
2181   "RTN","SDE C07B",68,0 )   2181   "RTN","SDE C07B",68,0 )
2182    S SDECCON D=0 I $D(^ DPT(BSDR(" PAT"),"S", BSDR("ADT" ),0)),(($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="C")!($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="PC")) S  SDECCOND= 1 ;   2182    S SDECCON D=0 I $D(^ DPT(BSDR(" PAT"),"S", BSDR("ADT" ),0)),(($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="C")!($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="PC")) S  SDECCOND= 1 ;
2183   "RTN","SDE C07B",69,0 )   2183   "RTN","SDE C07B",69,0 )
2184    ;   2184    ;
2185   "RTN","SDE C07B",70,0 )   2185   "RTN","SDE C07B",70,0 )
2186    I SDECCON D D   2186    I SDECCON D D
2187   "RTN","SDE C07B",71,0 )   2187   "RTN","SDE C07B",71,0 )
2188    . ; "un-c ancel" exi sting appt  in file 2   2188    . ; "un-c ancel" exi sting appt  in file 2
2189   "RTN","SDE C07B",72,0 )   2189   "RTN","SDE C07B",72,0 )
2190    . N SDECF DA,SDECIEN S,SDECMSG   2190    . N SDECF DA,SDECIEN S,SDECMSG
2191   "RTN","SDE C07B",73,0 )   2191   "RTN","SDE C07B",73,0 )
2192    . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_","   2192    . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_","
2193   "RTN","SDE C07B",74,0 )   2193   "RTN","SDE C07B",74,0 )
2194    . ;   2194    . ;
2195   "RTN","SDE C07B",75,0 )   2195   "RTN","SDE C07B",75,0 )
2196    . I PATCH 722'=3 D   ;  Execute  code if p atch 722 n ot install ed.   2196    . I PATCH 722'=3 D   ;  Execute  code if p atch 722 n ot install ed.
2197   "RTN","SDE C07B",76,0 )   2197   "RTN","SDE C07B",76,0 )
2198    .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN")   2198    .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN")
2199   "RTN","SDE C07B",77,0 )   2199   "RTN","SDE C07B",77,0 )
2200    .. S SDEC FDA(2.98,S DECIENS,"3 ")=$S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"")   2200    .. S SDEC FDA(2.98,S DECIENS,"3 ")=$S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"")
2201   "RTN","SDE C07B",78,0 )   2201   "RTN","SDE C07B",78,0 )
2202    .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB")    ;l ab date/ti me   2202    .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB")    ;l ab date/ti me
2203   "RTN","SDE C07B",79,0 )   2203   "RTN","SDE C07B",79,0 )
2204    .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA")    ;x ray date/t ime   2204    .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA")    ;x ray date/t ime
2205   "RTN","SDE C07B",80,0 )   2205   "RTN","SDE C07B",80,0 )
2206    .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG")    ;e kg date/ti me   2206    .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG")    ;e kg date/ti me
2207   "RTN","SDE C07B",81,0 )   2207   "RTN","SDE C07B",81,0 )
2208    .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP")   2208    .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP")
2209   "RTN","SDE C07B",82,0 )   2209   "RTN","SDE C07B",82,0 )
2210    .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT")   2210    .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT")
2211   "RTN","SDE C07B",83,0 )   2211   "RTN","SDE C07B",83,0 )
2212    .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL")   2212    .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL")
2213   "RTN","SDE C07B",84,0 )   2213   "RTN","SDE C07B",84,0 )
2214    .. S SDEC FDA(2.98,S DECIENS,"1 4")=""   2214    .. S SDEC FDA(2.98,S DECIENS,"1 4")=""
2215   "RTN","SDE C07B",85,0 )   2215   "RTN","SDE C07B",85,0 )
2216    .. S SDEC FDA(2.98,S DECIENS,"1 5")=""   2216    .. S SDEC FDA(2.98,S DECIENS,"1 5")=""
2217   "RTN","SDE C07B",86,0 )   2217   "RTN","SDE C07B",86,0 )
2218    .. S SDEC FDA(2.98,S DECIENS,"1 6")=""   2218    .. S SDEC FDA(2.98,S DECIENS,"1 6")=""
2219   "RTN","SDE C07B",87,0 )   2219   "RTN","SDE C07B",87,0 )
2220    .. S SDEC FDA(2.98,S DECIENS,"1 7")=""   ; alb/sat 65 8   2220    .. S SDEC FDA(2.98,S DECIENS,"1 7")=""   ; alb/sat 65 8
2221   "RTN","SDE C07B",88,0 )   2221   "RTN","SDE C07B",88,0 )
2222    .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ            ;d ata entry  clerk   2222    .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ            ;d ata entry  clerk
2223   "RTN","SDE C07B",89,0 )   2223   "RTN","SDE C07B",89,0 )
2224    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT   2224    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT
2225   "RTN","SDE C07B",90,0 )   2225   "RTN","SDE C07B",90,0 )
2226    .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT          ;s cheduling  request ty pe   2226    .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT          ;s cheduling  request ty pe
2227   "RTN","SDE C07B",91,0 )   2227   "RTN","SDE C07B",91,0 )
2228    .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA           ;n ext ava. a ppt. indic ator   2228    .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA           ;n ext ava. a ppt. indic ator
2229   "RTN","SDE C07B",92,0 )   2229   "RTN","SDE C07B",92,0 )
2230    .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT")   ;d esired dat e of appt   2230    .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT")   ;d esired dat e of appt
2231   "RTN","SDE C07B",93,0 )   2231   "RTN","SDE C07B",93,0 )
2232    .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU           ;f ollow-up v isit  yes/ no   2232    .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU           ;f ollow-up v isit  yes/ no
2233   "RTN","SDE C07B",94,0 )   2233   "RTN","SDE C07B",94,0 )
2234    . ;   2234    . ;
2235   "RTN","SDE C07B",95,0 )   2235   "RTN","SDE C07B",95,0 )
2236    . I PATCH 722=3 D  ;   Excecute  code if p atch 722 i s installe d   2236    . I PATCH 722=3 D  ;   Excecute  code if p atch 722 i s installe d
2237   "RTN","SDE C07B",96,0 )   2237   "RTN","SDE C07B",96,0 )
2238    .. S SDEC FDA(2.98,S DECIENS,". 01")=$$NUL LDEL(BSDR( "CLN")) ;* zeb+19 722  2/19/19 c ompletely  replace ol d appt's d ata if ove rlaying; p revent chi mera appt   2238    .. S SDEC FDA(2.98,S DECIENS,". 01")=$$NUL LDEL(BSDR( "CLN")) ;* zeb+19 722  2/19/19 c ompletely  replace ol d appt's d ata if ove rlaying; p revent chi mera appt
2239   "RTN","SDE C07B",97,0 )   2239   "RTN","SDE C07B",97,0 )
2240    .. S SDEC FDA(2.98,S DECIENS,"3 ")=$$NULLD EL($S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:""))   2240    .. S SDEC FDA(2.98,S DECIENS,"3 ")=$$NULLD EL($S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:""))
2241   "RTN","SDE C07B",98,0 )   2241   "RTN","SDE C07B",98,0 )
2242    .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB"))    ; lab date/t ime   2242    .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB"))    ; lab date/t ime
2243   "RTN","SDE C07B",99,0 )   2243   "RTN","SDE C07B",99,0 )
2244    .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA"))    ; xray date/ time   2244    .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA"))    ; xray date/ time
2245   "RTN","SDE C07B",100, 0)   2245   "RTN","SDE C07B",100, 0)
2246    .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG"))    ; ekg date/t ime   2246    .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG"))    ; ekg date/t ime
2247   "RTN","SDE C07B",101, 0)   2247   "RTN","SDE C07B",101, 0)
2248    .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP"))   2248    .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP"))
2249   "RTN","SDE C07B",102, 0)   2249   "RTN","SDE C07B",102, 0)
2250    .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT"))   2250    .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT"))
2251   "RTN","SDE C07B",103, 0)   2251   "RTN","SDE C07B",103, 0)
2252    .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL"))   2252    .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL"))
2253   "RTN","SDE C07B",104, 0)   2253   "RTN","SDE C07B",104, 0)
2254    .. S SDEC FDA(2.98,S DECIENS,"1 4")="@"   2254    .. S SDEC FDA(2.98,S DECIENS,"1 4")="@"
2255   "RTN","SDE C07B",105, 0)   2255   "RTN","SDE C07B",105, 0)
2256    .. S SDEC FDA(2.98,S DECIENS,"1 5")="@"   2256    .. S SDEC FDA(2.98,S DECIENS,"1 5")="@"
2257   "RTN","SDE C07B",106, 0)   2257   "RTN","SDE C07B",106, 0)
2258    .. S SDEC FDA(2.98,S DECIENS,"1 6")="@"   2258    .. S SDEC FDA(2.98,S DECIENS,"1 6")="@"
2259   "RTN","SDE C07B",107, 0)   2259   "RTN","SDE C07B",107, 0)
2260    .. S SDEC FDA(2.98,S DECIENS,"1 7")="@"    ;alb/sat 6 58   2260    .. S SDEC FDA(2.98,S DECIENS,"1 7")="@"    ;alb/sat 6 58
2261   "RTN","SDE C07B",108, 0)   2261   "RTN","SDE C07B",108, 0)
2262    .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ)            ; data entry  clerk   2262    .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ)            ; data entry  clerk
2263   "RTN","SDE C07B",109, 0)   2263   "RTN","SDE C07B",109, 0)
2264    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT   2264    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT
2265   "RTN","SDE C07B",110, 0)   2265   "RTN","SDE C07B",110, 0)
2266    .. S SDEC FDA(2.98,S DECIENS,"2 1")="@"                        ; outpatient  encounter  ;*zeb 722  2/26/19 c lear to fi x OE link  issue if c ancelled a gain   2266    .. S SDEC FDA(2.98,S DECIENS,"2 1")="@"                        ; outpatient  encounter  ;*zeb 722  2/26/19 c lear to fi x OE link  issue if c ancelled a gain
2267   "RTN","SDE C07B",111, 0)   2267   "RTN","SDE C07B",111, 0)
2268    .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT)          ; scheduling  request t ype   2268    .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT)          ; scheduling  request t ype
2269   "RTN","SDE C07B",112, 0)   2269   "RTN","SDE C07B",112, 0)
2270    .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA)           ; next ava.  appt. indi cator   2270    .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA)           ; next ava.  appt. indi cator
2271   "RTN","SDE C07B",113, 0)   2271   "RTN","SDE C07B",113, 0)
2272    .. S SDEC FDA(2.98,S DECIENS,"2 7")=$$NULL DEL(BSDR(" DDT"))   ; desired da te of appt   2272    .. S SDEC FDA(2.98,S DECIENS,"2 7")=$$NULL DEL(BSDR(" DDT"))   ; desired da te of appt
2273   "RTN","SDE C07B",114, 0)   2273   "RTN","SDE C07B",114, 0)
2274    .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU)           ; follow-up  visit  yes /no. ;   2274    .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU)           ; follow-up  visit  yes /no. ;
2275   "RTN","SDE C07B",115, 0)   2275   "RTN","SDE C07B",115, 0)
2276    . ;   2276    . ;
2277   "RTN","SDE C07B",116, 0)   2277   "RTN","SDE C07B",116, 0)
2278    . D FILE^ DIE("","SD ECFDA","SD ECMSG")   2278    . D FILE^ DIE("","SD ECFDA","SD ECMSG")
2279   "RTN","SDE C07B",117, 0)   2279   "RTN","SDE C07B",117, 0)
2280    . ;   2280    . ;
2281   "RTN","SDE C07B",118, 0)   2281   "RTN","SDE C07B",118, 0)
2282    . I PATCH 722'=3 N S DECTEMP S  SDECTEMP=$ G(SDECMSG)   2282    . I PATCH 722'=3 N S DECTEMP S  SDECTEMP=$ G(SDECMSG)
2283   "RTN","SDE C07B",119, 0)   2283   "RTN","SDE C07B",119, 0)
2284    . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG))   2284    . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG))
2285   "RTN","SDE C07B",120, 0)   2285   "RTN","SDE C07B",120, 0)
2286    . ;   2286    . ;
2287   "RTN","SDE C07B",121, 0)   2287   "RTN","SDE C07B",121, 0)
2288    I 'SDECCO ND D  I $G (SDECERR(1 )) Q 1_U_" FileMan ad d to DPT e rror: Pati ent="_BSDR ("PAT")_"  Appt="_BSD R("ADT")   2288    I 'SDECCO ND D  I $G (SDECERR(1 )) Q 1_U_" FileMan ad d to DPT e rror: Pati ent="_BSDR ("PAT")_"  Appt="_BSD R("ADT")
2289   "RTN","SDE C07B",122, 0)   2289   "RTN","SDE C07B",122, 0)
2290    . ; add a ppt to fil e 2   2290    . ; add a ppt to fil e 2
2291   "RTN","SDE C07B",123, 0)   2291   "RTN","SDE C07B",123, 0)
2292    . N SDECF DA,SDECIEN S,SDECMSG   2292    . N SDECF DA,SDECIEN S,SDECMSG
2293   "RTN","SDE C07B",124, 0)   2293   "RTN","SDE C07B",124, 0)
2294    . S SDECI ENS="?+2," _BSDR("PAT ")_","   2294    . S SDECI ENS="?+2," _BSDR("PAT ")_","
2295   "RTN","SDE C07B",125, 0)   2295   "RTN","SDE C07B",125, 0)
2296    . S SDECI ENS(2)=BSD R("ADT")   2296    . S SDECI ENS(2)=BSD R("ADT")
2297   "RTN","SDE C07B",126, 0)   2297   "RTN","SDE C07B",126, 0)
2298    . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N")   2298    . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N")
2299   "RTN","SDE C07B",127, 0)   2299   "RTN","SDE C07B",127, 0)
2300    . S SDECF DA(2.98,SD ECIENS,"3" )=$S($G(^D PT(+$G(BSD R("PAT")), .1))'="":" I",1:"")   2300    . S SDECF DA(2.98,SD ECIENS,"3" )=$S($G(^D PT(+$G(BSD R("PAT")), .1))'="":" I",1:"")
2301   "RTN","SDE C07B",128, 0)   2301   "RTN","SDE C07B",128, 0)
2302    . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B")    ;la b date/tim e   2302    . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B")    ;la b date/tim e
2303   "RTN","SDE C07B",129, 0)   2303   "RTN","SDE C07B",129, 0)
2304    . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A")    ;xr ay date/ti me   2304    . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A")    ;xr ay date/ti me
2305   "RTN","SDE C07B",130, 0)   2305   "RTN","SDE C07B",130, 0)
2306    . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G")    ;ek g date/tim e   2306    . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G")    ;ek g date/tim e
2307   "RTN","SDE C07B",131, 0)   2307   "RTN","SDE C07B",131, 0)
2308    . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P")   2308    . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P")
2309   "RTN","SDE C07B",132, 0)   2309   "RTN","SDE C07B",132, 0)
2310    . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT")   2310    . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT")
2311   "RTN","SDE C07B",133, 0)   2311   "RTN","SDE C07B",133, 0)
2312    . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL")   2312    . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL")
2313   "RTN","SDE C07B",134, 0)   2313   "RTN","SDE C07B",134, 0)
2314    . S SDECF DA(2.98,SD ECIENS,"14 ")=""   2314    . S SDECF DA(2.98,SD ECIENS,"14 ")=""
2315   "RTN","SDE C07B",135, 0)   2315   "RTN","SDE C07B",135, 0)
2316    . S SDECF DA(2.98,SD ECIENS,"15 ")=""   2316    . S SDECF DA(2.98,SD ECIENS,"15 ")=""
2317   "RTN","SDE C07B",136, 0)   2317   "RTN","SDE C07B",136, 0)
2318    . S SDECF DA(2.98,SD ECIENS,"16 ")=""   2318    . S SDECF DA(2.98,SD ECIENS,"16 ")=""
2319   "RTN","SDE C07B",137, 0)   2319   "RTN","SDE C07B",137, 0)
2320    . S SDECF DA(2.98,SD ECIENS,"17 ")=""   ;a lb/sat 658   2320    . S SDECF DA(2.98,SD ECIENS,"17 ")=""   ;a lb/sat 658
2321   "RTN","SDE C07B",138, 0)   2321   "RTN","SDE C07B",138, 0)
2322    . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ            ;da ta entry c lerk   2322    . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ            ;da ta entry c lerk
2323   "RTN","SDE C07B",139, 0)   2323   "RTN","SDE C07B",139, 0)
2324    . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT   2324    . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT
2325   "RTN","SDE C07B",140, 0)   2325   "RTN","SDE C07B",140, 0)
2326    . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT          ;sc heduling r equest typ e   2326    . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT          ;sc heduling r equest typ e
2327   "RTN","SDE C07B",141, 0)   2327   "RTN","SDE C07B",141, 0)
2328    . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA           ;ne xt ava. ap pt. indica tor   2328    . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA           ;ne xt ava. ap pt. indica tor
2329   "RTN","SDE C07B",142, 0)   2329   "RTN","SDE C07B",142, 0)
2330    . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT")   ;de sired date  of appt   2330    . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT")   ;de sired date  of appt
2331   "RTN","SDE C07B",143, 0)   2331   "RTN","SDE C07B",143, 0)
2332    . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU           ;fo llow-up vi sit  yes/n o   2332    . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU           ;fo llow-up vi sit  yes/n o
2333   "RTN","SDE C07B",144, 0)   2333   "RTN","SDE C07B",144, 0)
2334    . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )")   2334    . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )")
2335   "RTN","SDE C07B",145, 0)   2335   "RTN","SDE C07B",145, 0)
2336    ;   2336    ;
2337   "RTN","SDE C07B",146, 0)   2337   "RTN","SDE C07B",146, 0)
2338    ; add app t to file  44   2338    ; add app t to file  44
2339   "RTN","SDE C07B",147, 0)   2339   "RTN","SDE C07B",147, 0)
2340    K DIC,DA, X,Y,DLAYGO ,DD,DO   2340    K DIC,DA, X,Y,DLAYGO ,DD,DO
2341   "RTN","SDE C07B",148, 0)   2341   "RTN","SDE C07B",148, 0)
2342    I '$D(^SC (BSDR("CLN "),"S",0))  S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^"   2342    I '$D(^SC (BSDR("CLN "),"S",0))  S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^"
2343   "RTN","SDE C07B",149, 0)   2343   "RTN","SDE C07B",149, 0)
2344    I '$D(^SC (BSDR("CLN "),"S",BSD R("ADT"),0 )) D  I Y< 1 Q 1_U_"E rror addin g date to  file 44: C linic="_BS DR("CLN")_ " Date="_B SDR("ADT")   2344    I '$D(^SC (BSDR("CLN "),"S",BSD R("ADT"),0 )) D  I Y< 1 Q 1_U_"E rror addin g date to  file 44: C linic="_BS DR("CLN")_ " Date="_B SDR("ADT")
2345   "RTN","SDE C07B",150, 0)   2345   "RTN","SDE C07B",150, 0)
2346    . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT")   2346    . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT")
2347   "RTN","SDE C07B",151, 0)   2347   "RTN","SDE C07B",151, 0)
2348    . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001   2348    . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001
2349   "RTN","SDE C07B",152, 0)   2349   "RTN","SDE C07B",152, 0)
2350    . S Y=1 I  '$D(@(DIC _X_")")) D  FILE^DICN   2350    . S Y=1 I  '$D(@(DIC _X_")")) D  FILE^DICN
2351   "RTN","SDE C07B",153, 0)   2351   "RTN","SDE C07B",153, 0)
2352    ;   2352    ;
2353   "RTN","SDE C07B",154, 0)   2353   "RTN","SDE C07B",154, 0)
2354    K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM   2354    K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM
2355   "RTN","SDE C07B",155, 0)   2355   "RTN","SDE C07B",155, 0)
2356    S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1,"   2356    S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1,"
2357   "RTN","SDE C07B",156, 0)   2357   "RTN","SDE C07B",156, 0)
2358    S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ")   2358    S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ")
2359   "RTN","SDE C07B",157, 0)   2359   "RTN","SDE C07B",157, 0)
2360    S DIC("DR ")="1////" _BSDR("LEN ")_";3///" _$E($G(BSD R("OI")),1 ,150)_";7/ ///"_BSDR( "USR")_";8 ////"_$$NO W^XLFDT_"; 30////"_BS DR("ELG")_ $S(+$G(BSD R("OVB")): ";9////O", 1:"")   2360    S DIC("DR ")="1////" _BSDR("LEN ")_";3///" _$E($G(BSD R("OI")),1 ,150)_";7/ ///"_BSDR( "USR")_";8 ////"_$$NO W^XLFDT_"; 30////"_BS DR("ELG")_ $S(+$G(BSD R("OVB")): ";9////O", 1:"")
2361   "RTN","SDE C07B",158, 0)   2361   "RTN","SDE C07B",158, 0)
2362    S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003   2362    S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003
2363   "RTN","SDE C07B",159, 0)   2363   "RTN","SDE C07B",159, 0)
2364    D FILE^DI CN   2364    D FILE^DI CN
2365   "RTN","SDE C07B",160, 0)   2365   "RTN","SDE C07B",160, 0)
2366    ;add cons ult link   2366    ;add cons ult link
2367   "RTN","SDE C07B",161, 0)   2367   "RTN","SDE C07B",161, 0)
2368    I $G(BSDR ("CON")) D   2368    I $G(BSDR ("CON")) D
2369   "RTN","SDE C07B",162, 0)   2369   "RTN","SDE C07B",162, 0)
2370    .N SDFDA, SDIEN   2370    .N SDFDA, SDIEN
2371   "RTN","SDE C07B",163, 0)   2371   "RTN","SDE C07B",163, 0)
2372    .S SDIEN= +Y   2372    .S SDIEN= +Y
2373   "RTN","SDE C07B",164, 0)   2373   "RTN","SDE C07B",164, 0)
2374    .Q:SDIEN= -1   2374    .Q:SDIEN= -1
2375   "RTN","SDE C07B",165, 0)   2375   "RTN","SDE C07B",165, 0)
2376    .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON")   2376    .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON")
2377   "RTN","SDE C07B",166, 0)   2377   "RTN","SDE C07B",166, 0)
2378    .D UPDATE ^DIE("","S DFDA")   2378    .D UPDATE ^DIE("","S DFDA")
2379   "RTN","SDE C07B",167, 0)   2379   "RTN","SDE C07B",167, 0)
2380    ;   2380    ;
2381   "RTN","SDE C07B",168, 0)   2381   "RTN","SDE C07B",168, 0)
2382    I PATCH71 7'=3 Q 0   ;*zeb 10/2 4/18 717 c omment out  quit to e nable even t driver ;  WTC 3/26/ 19 Enable  line only  if patch 7 17 not ins talled yet .   2382    I PATCH71 7'=3 Q 0   ;*zeb 10/2 4/18 717 c omment out  quit to e nable even t driver ;  WTC 3/26/ 19 Enable  line only  if patch 7 17 not ins talled yet .
2383   "RTN","SDE C07B",169, 0)   2383   "RTN","SDE C07B",169, 0)
2384    ; call ev ent driver   2384    ; call ev ent driver
2385   "RTN","SDE C07B",170, 0)   2385   "RTN","SDE C07B",170, 0)
2386    NEW DFN,S DT,SDCL,SD DA,SDMODE   2386    NEW DFN,S DT,SDCL,SD DA,SDMODE
2387   "RTN","SDE C07B",171, 0)   2387   "RTN","SDE C07B",171, 0)
2388    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2   2388    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2
2389   "RTN","SDE C07B",172, 0)   2389   "RTN","SDE C07B",172, 0)
2390    S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT"))   2390    S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT"))
2391   "RTN","SDE C07B",173, 0)   2391   "RTN","SDE C07B",173, 0)
2392    D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE )   2392    D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE )
2393   "RTN","SDE C07B",174, 0)   2393   "RTN","SDE C07B",174, 0)
2394    Q 0   2394    Q 0
2395   "RTN","SDE C07B",175, 0)   2395   "RTN","SDE C07B",175, 0)
2396    ;   2396    ;
2397   "RTN","SDE C07B",176, 0)   2397   "RTN","SDE C07B",176, 0)
2398   NULLDEL(ST R) ;return  "@" to de lete a fie ld if the  new data w ould be nu ll ;*zeb+t ag 722 2/1 9/19 added  to suppor t APPADD   2398   NULLDEL(ST R) ;return  "@" to de lete a fie ld if the  new data w ould be nu ll ;*zeb+t ag 722 2/1 9/19 added  to suppor t APPADD
2399   "RTN","SDE C07B",177, 0)   2399   "RTN","SDE C07B",177, 0)
2400    Q $S(STR] "":STR,1:" @")   2400    Q $S(STR] "":STR,1:" @")
2401   "RTN","SDE C07B",178, 0)   2401   "RTN","SDE C07B",178, 0)
2402    ;   2402    ;
2403   "RTN","SDE C07B",179, 0)   2403   "RTN","SDE C07B",179, 0)
2404   SDSRT(TYP, MTR,DDT,RE Q) ;get SC HEDULING R EQUEST TYP E and NEXT  AVA.APPT.  INDICATOR   2404   SDSRT(TYP, MTR,DDT,RE Q) ;get SC HEDULING R EQUEST TYP E and NEXT  AVA.APPT.  INDICATOR
2405   "RTN","SDE C07B",180, 0)   2405   "RTN","SDE C07B",180, 0)
2406    ;INPUT:   2406    ;INPUT:
2407   "RTN","SDE C07B",181, 0)   2407   "RTN","SDE C07B",181, 0)
2408    ; TYP =   3 for sche duled appt s, 4 for w alkins   2408    ; TYP =   3 for sche duled appt s, 4 for w alkins
2409   "RTN","SDE C07B",182, 0)   2409   "RTN","SDE C07B",182, 0)
2410    ; MTR = M TRC flag ( multiple a ppointment s) 0=False  (default)   1=True   2410    ; MTR = M TRC flag ( multiple a ppointment s) 0=False  (default)   1=True
2411   "RTN","SDE C07B",183, 0)   2411   "RTN","SDE C07B",183, 0)
2412    ; DDT = D esired Dat e of Appt  in fm form at   2412    ; DDT = D esired Dat e of Appt  in fm form at
2413   "RTN","SDE C07B",184, 0)   2413   "RTN","SDE C07B",184, 0)
2414    ; REQ = R equested B y - valid  values are  1=PROVIDE R  2=PATIE NT or ""   2414    ; REQ = R equested B y - valid  values are  1=PROVIDE R  2=PATIE NT or ""
2415   "RTN","SDE C07B",185, 0)   2415   "RTN","SDE C07B",185, 0)
2416    ;RETURN:  2 ^ pieces :   2416    ;RETURN:  2 ^ pieces :
2417   "RTN","SDE C07B",186, 0)   2417   "RTN","SDE C07B",186, 0)
2418    ;     1 -  SCHEDULIN G REQUEST  TYPE  inte rnal forma t - valid  values:   2418    ;     1 -  SCHEDULIN G REQUEST  TYPE  inte rnal forma t - valid  values:
2419   "RTN","SDE C07B",187, 0)   2419   "RTN","SDE C07B",187, 0)
2420    ;           N:'NEXT  AVAILABLE'  APPT.   2420    ;           N:'NEXT  AVAILABLE'  APPT.
2421   "RTN","SDE C07B",188, 0)   2421   "RTN","SDE C07B",188, 0)
2422    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)   2422    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)
2423   "RTN","SDE C07B",189, 0)   2423   "RTN","SDE C07B",189, 0)
2424    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )   2424    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )
2425   "RTN","SDE C07B",190, 0)   2425   "RTN","SDE C07B",190, 0)
2426    ;           W:WALKIN  APPT.   2426    ;           W:WALKIN  APPT.
2427   "RTN","SDE C07B",191, 0)   2427   "RTN","SDE C07B",191, 0)
2428    ;           M:MULTIP LE APPT. B OOKING   2428    ;           M:MULTIP LE APPT. B OOKING
2429   "RTN","SDE C07B",192, 0)   2429   "RTN","SDE C07B",192, 0)
2430    ;           A:AUTO R EBOOK   2430    ;           A:AUTO R EBOOK
2431   "RTN","SDE C07B",193, 0)   2431   "RTN","SDE C07B",193, 0)
2432    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.   2432    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.
2433   "RTN","SDE C07B",194, 0)   2433   "RTN","SDE C07B",194, 0)
2434    ;     2 -  NEXT AVA.  APPT. IND ICATOR  in ternal for mat - vali d values:   2434    ;     2 -  NEXT AVA.  APPT. IND ICATOR  in ternal for mat - vali d values:
2435   "RTN","SDE C07B",195, 0)   2435   "RTN","SDE C07B",195, 0)
2436    ;           N:'NEXT  AVAILABLE'  APPT.   2436    ;           N:'NEXT  AVAILABLE'  APPT.
2437   "RTN","SDE C07B",196, 0)   2437   "RTN","SDE C07B",196, 0)
2438    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)   2438    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)
2439   "RTN","SDE C07B",197, 0)   2439   "RTN","SDE C07B",197, 0)
2440    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )   2440    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )
2441   "RTN","SDE C07B",198, 0)   2441   "RTN","SDE C07B",198, 0)
2442    ;           W:WALKIN  APPT.   2442    ;           W:WALKIN  APPT.
2443   "RTN","SDE C07B",199, 0)   2443   "RTN","SDE C07B",199, 0)
2444    ;           M:MULTIP LE APPT. B OOKING   2444    ;           M:MULTIP LE APPT. B OOKING
2445   "RTN","SDE C07B",200, 0)   2445   "RTN","SDE C07B",200, 0)
2446    ;           A:AUTO R EBOOK   2446    ;           A:AUTO R EBOOK
2447   "RTN","SDE C07B",201, 0)   2447   "RTN","SDE C07B",201, 0)
2448    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.   2448    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.
2449   "RTN","SDE C07B",202, 0)   2449   "RTN","SDE C07B",202, 0)
2450    ;   2450    ;
2451   "RTN","SDE C07B",203, 0)   2451   "RTN","SDE C07B",203, 0)
2452    N RET   2452    N RET
2453   "RTN","SDE C07B",204, 0)   2453   "RTN","SDE C07B",204, 0)
2454    S RET=""   2454    S RET=""
2455   "RTN","SDE C07B",205, 0)   2455   "RTN","SDE C07B",205, 0)
2456    ;1. If us er creates  a walkin  appointmen t would be  W:WALKIN  APPT, 0:NO T INDICATE D TO BE A  'NEXT AVA. ' APPT   2456    ;1. If us er creates  a walkin  appointmen t would be  W:WALKIN  APPT, 0:NO T INDICATE D TO BE A  'NEXT AVA. ' APPT
2457   "RTN","SDE C07B",206, 0)   2457   "RTN","SDE C07B",206, 0)
2458    I TYP=4 Q  "W^0"   2458    I TYP=4 Q  "W^0"
2459   "RTN","SDE C07B",207, 0)   2459   "RTN","SDE C07B",207, 0)
2460    ;2. If us er creates  an rm req uest with  MTRC flagg ed   2460    ;2. If us er creates  an rm req uest with  MTRC flagg ed
2461   "RTN","SDE C07B",208, 0)   2461   "RTN","SDE C07B",208, 0)
2462    ;   AND d esired dat e is 'toda y'   2462    ;   AND d esired dat e is 'toda y'
2463   "RTN","SDE C07B",209, 0)   2463   "RTN","SDE C07B",209, 0)
2464    ; would b e M:MULTIP LE APPT. B OOKING, 3: 'NEXT AVA. ' APPT. IN DICATED BY  USER & CA LCULATION   2464    ; would b e M:MULTIP LE APPT. B OOKING, 3: 'NEXT AVA. ' APPT. IN DICATED BY  USER & CA LCULATION
2465   "RTN","SDE C07B",210, 0)   2465   "RTN","SDE C07B",210, 0)
2466    I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 "   2466    I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 "
2467   "RTN","SDE C07B",211, 0)   2467   "RTN","SDE C07B",211, 0)
2468    ;3. If us er creates  an rm req uest with  MTRC flagg ed   2468    ;3. If us er creates  an rm req uest with  MTRC flagg ed
2469   "RTN","SDE C07B",212, 0)   2469   "RTN","SDE C07B",212, 0)
2470    ;   AND d esired dat e is not ' today'   2470    ;   AND d esired dat e is not ' today'
2471   "RTN","SDE C07B",213, 0)   2471   "RTN","SDE C07B",213, 0)
2472    ; would b e M:MULTIP LE APPT. B OOKING, 0: 'NOT INDIC ATED TO BE  A 'NEXT A VA.' APPT   2472    ; would b e M:MULTIP LE APPT. B OOKING, 0: 'NOT INDIC ATED TO BE  A 'NEXT A VA.' APPT
2473   "RTN","SDE C07B",214, 0)   2473   "RTN","SDE C07B",214, 0)
2474    I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 0"   2474    I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 0"
2475   "RTN","SDE C07B",215, 0)   2475   "RTN","SDE C07B",215, 0)
2476    ;4. If th e user ent ers a desi red date f or the cli nic stop t hat is tod ay   2476    ;4. If th e user ent ers a desi red date f or the cli nic stop t hat is tod ay
2477   "RTN","SDE C07B",216, 0)   2477   "RTN","SDE C07B",216, 0)
2478    ;  then N :'NEXT AVA ILABLE' AP PT., 1:'NE XT AVA.' A PPT. INDIC ATED BY US ER   2478    ;  then N :'NEXT AVA ILABLE' AP PT., 1:'NE XT AVA.' A PPT. INDIC ATED BY US ER
2479   "RTN","SDE C07B",217, 0)   2479   "RTN","SDE C07B",217, 0)
2480    I $P($$NO W^XLFDT(), ".",1)=DDT  Q "N^1"   2480    I $P($$NO W^XLFDT(), ".",1)=DDT  Q "N^1"
2481   "RTN","SDE C07B",218, 0)   2481   "RTN","SDE C07B",218, 0)
2482    ;5. If th e user ent ers a desi red date n ot today   2482    ;5. If th e user ent ers a desi red date n ot today
2483   "RTN","SDE C07B",219, 0)   2483   "RTN","SDE C07B",219, 0)
2484    ;   AND t he request  is by pat ient   2484    ;   AND t he request  is by pat ient
2485   "RTN","SDE C07B",220, 0)   2485   "RTN","SDE C07B",220, 0)
2486    ; then P: OTHER THAN  'NEXT AVA .' (PATIEN T REQ.); 0 :NOT INDIC ATED TO BE  A 'NEXT A VA.' APPT.   2486    ; then P: OTHER THAN  'NEXT AVA .' (PATIEN T REQ.); 0 :NOT INDIC ATED TO BE  A 'NEXT A VA.' APPT.
2487   "RTN","SDE C07B",221, 0)   2487   "RTN","SDE C07B",221, 0)
2488    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q  "P^0"   2488    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q  "P^0"
2489   "RTN","SDE C07B",222, 0)   2489   "RTN","SDE C07B",222, 0)
2490    ;6. If th e user ent ers a desi red date n ot today   2490    ;6. If th e user ent ers a desi red date n ot today
2491   "RTN","SDE C07B",223, 0)   2491   "RTN","SDE C07B",223, 0)
2492    ;   AND t he request  is by pro vider   2492    ;   AND t he request  is by pro vider
2493   "RTN","SDE C07B",224, 0)   2493   "RTN","SDE C07B",224, 0)
2494    ; then C: OTHER THAN  'NEXT AVA .' (CLINIC IAN REQ.);  0:NOT IND ICATED TO  BE A 'NEXT  AVA.' APP T.   2494    ; then C: OTHER THAN  'NEXT AVA .' (CLINIC IAN REQ.);  0:NOT IND ICATED TO  BE A 'NEXT  AVA.' APP T.
2495   "RTN","SDE C07B",225, 0)   2495   "RTN","SDE C07B",225, 0)
2496    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q  "C^0"   2496    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q  "C^0"
2497   "RTN","SDE C07B",226, 0)   2497   "RTN","SDE C07B",226, 0)
2498    Q RET   2498    Q RET
2499   "RTN","SDE C07B",227, 0)   2499   "RTN","SDE C07B",227, 0)
2500    ;   2500    ;
2501   "RTN","SDE C07B",228, 0)   2501   "RTN","SDE C07B",228, 0)
2502    ;Create A ppointment   ;alb/sat  665 moved  from SDEC 07   2502    ;Create A ppointment   ;alb/sat  665 moved  from SDEC 07
2503   "RTN","SDE C07B",229, 0)   2503   "RTN","SDE C07B",229, 0)
2504   APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI)  ;   2504   APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI)  ;
2505   "RTN","SDE C07B",230, 0)   2505   "RTN","SDE C07B",230, 0)
2506    N SDECC,S DECERR,SDE CRNOD   2506    N SDECC,S DECERR,SDE CRNOD
2507   "RTN","SDE C07B",231, 0)   2507   "RTN","SDE C07B",231, 0)
2508    S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) )   2508    S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) )
2509   "RTN","SDE C07B",232, 0)   2509   "RTN","SDE C07B",232, 0)
2510    I SDECRNO D="" D ERR ^SDEC07(SD ECI+1,"SDE C07 Error:  Unable to  add appoi ntment --  invalid Re source ent ry.") Q 1   2510    I SDECRNO D="" D ERR ^SDEC07(SD ECI+1,"SDE C07 Error:  Unable to  add appoi ntment --  invalid Re source ent ry.") Q 1
2511   "RTN","SDE C07B",233, 0)   2511   "RTN","SDE C07B",233, 0)
2512    S SDECERR =""   2512    S SDECERR =""
2513   "RTN","SDE C07B",234, 0)   2513   "RTN","SDE C07B",234, 0)
2514    I +SDCL,$ D(^SC(SDCL ,0)) D  I  +SDECERR D  ERR^SDEC0 7(SDECI+1, SDECERR) Q  SDECERR   2514    I +SDCL,$ D(^SC(SDCL ,0)) D  I  +SDECERR D  ERR^SDEC0 7(SDECI+1, SDECERR) Q  SDECERR
2515   "RTN","SDE C07B",235, 0)   2515   "RTN","SDE C07B",235, 0)
2516    . S SDECC ("PAT")=DF N   2516    . S SDECC ("PAT")=DF N
2517   "RTN","SDE C07B",236, 0)   2517   "RTN","SDE C07B",236, 0)
2518    . S SDECC ("CLN")=SD CL   2518    . S SDECC ("CLN")=SD CL
2519   "RTN","SDE C07B",237, 0)   2519   "RTN","SDE C07B",237, 0)
2520    . S SDECC ("TYP")=3  ;3 for sch eduled app ts, 4 for  walkins   2520    . S SDECC ("TYP")=3  ;3 for sch eduled app ts, 4 for  walkins
2521   "RTN","SDE C07B",238, 0)   2521   "RTN","SDE C07B",238, 0)
2522    . S:SDECW KIN SDECC( "TYP")=4   2522    . S:SDECW KIN SDECC( "TYP")=4
2523   "RTN","SDE C07B",239, 0)   2523   "RTN","SDE C07B",239, 0)
2524    . S SDECC ("ADT")=SD ECSTART   2524    . S SDECC ("ADT")=SD ECSTART
2525   "RTN","SDE C07B",240, 0)   2525   "RTN","SDE C07B",240, 0)
2526    . S SDECC ("LEN")=SD ECLEN   2526    . S SDECC ("LEN")=SD ECLEN
2527   "RTN","SDE C07B",241, 0)   2527   "RTN","SDE C07B",241, 0)
2528    . S SDECC ("OI")=$E( $G(SDECNOT E),1,150)  ;File 44 h as 150 cha racter lim it on OTHE R field   2528    . S SDECC ("OI")=$E( $G(SDECNOT E),1,150)  ;File 44 h as 150 cha racter lim it on OTHE R field
2529   "RTN","SDE C07B",242, 0)   2529   "RTN","SDE C07B",242, 0)
2530    . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed   2530    . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed
2531   "RTN","SDE C07B",243, 0)   2531   "RTN","SDE C07B",243, 0)
2532    . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control  characters  from note   2532    . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control  characters  from note
2533   "RTN","SDE C07B",244, 0)   2533   "RTN","SDE C07B",244, 0)
2534    . S SDECC ("RES")=SD ECRESD   2534    . S SDECC ("RES")=SD ECRESD
2535   "RTN","SDE C07B",245, 0)   2535   "RTN","SDE C07B",245, 0)
2536    . S SDECC ("USR")=DU Z   2536    . S SDECC ("USR")=DU Z
2537   "RTN","SDE C07B",246, 0)   2537   "RTN","SDE C07B",246, 0)
2538    . S SDECE RR=$$MAKE^ SDEC07B(.S DECC)   2538    . S SDECE RR=$$MAKE^ SDEC07B(.S DECC)
2539   "RTN","SDE C07B",247, 0)   2539   "RTN","SDE C07B",247, 0)
2540    . Q:SDECE RR   2540    . Q:SDECE RR
2541   "RTN","SDE C07B",248, 0)   2541   "RTN","SDE C07B",248, 0)
2542    . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N)   2542    . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N)
2543   "RTN","SDE C07B",249, 0)   2543   "RTN","SDE C07B",249, 0)
2544    . ;L   2544    . ;L
2545   "RTN","SDE C07B",250, 0)   2545   "RTN","SDE C07B",250, 0)
2546    . Q   2546    . Q
2547   "RTN","SDE C07B",251, 0)   2547   "RTN","SDE C07B",251, 0)
2548    Q +SDECER R   2548    Q +SDECER R
2549   "RTN","SDE C07B",252, 0)   2549   "RTN","SDE C07B",252, 0)
2550    ;   2550    ;
2551   "RTN","SDE C07B",253, 0)   2551   "RTN","SDE C07B",253, 0)
2552   PATCHSTS(N UMBER) ; 7 17/722 WTC  3/26/19   2552   PATCHSTS(N UMBER) ; 7 17/722 WTC  3/26/19
2553   "RTN","SDE C07B",254, 0)   2553   "RTN","SDE C07B",254, 0)
2554    ;   2554    ;
2555   "RTN","SDE C07B",255, 0)   2555   "RTN","SDE C07B",255, 0)
2556    ;  Determ ine if pat ch has bee n installe d.  Return  status fr om Install  file (#9. 7).   2556    ;  Determ ine if pat ch has bee n installe d.  Return  status fr om Install  file (#9. 7).
2557   "RTN","SDE C07B",256, 0)   2557   "RTN","SDE C07B",256, 0)
2558    ;   2558    ;
2559   "RTN","SDE C07B",257, 0)   2559   "RTN","SDE C07B",257, 0)
2560    N X,DA ;   2560    N X,DA ;
2561   "RTN","SDE C07B",258, 0)   2561   "RTN","SDE C07B",258, 0)
2562    S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1)  I 'DA Q ""  ;   2562    S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1)  I 'DA Q ""  ;
2563   "RTN","SDE C07B",259, 0)   2563   "RTN","SDE C07B",259, 0)
2564    S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ;   2564    S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ;
2565   "RTN","SDE C07B",260, 0)   2565   "RTN","SDE C07B",260, 0)
2566    ;   2566    ;
2567   "RTN","SDE C08")   2567   "RTN","SDE C08")
2568   0^5^B21703 6692^B2096 47726   2568   0^5^B21703 6692^B2096 47726
2569   "RTN","SDE C08",1,0)   2569   "RTN","SDE C08",1,0)
2570   SDEC08 ;AL B/SAT/JSM  - VISTA SC HEDULING R PCS ;JUN 2 1, 2017   2570   SDEC08 ;AL B/SAT/JSM  - VISTA SC HEDULING R PCS ;JUN 2 1, 2017
2571   "RTN","SDE C08",2,0)   2571   "RTN","SDE C08",2,0)
2572    ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug  13, 1993;B uild 7   2572    ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug  13, 1993;B uild 7
2573   "RTN","SDE C08",3,0)   2573   "RTN","SDE C08",3,0)
2574    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified   2574    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
2575   "RTN","SDE C08",4,0)   2575   "RTN","SDE C08",4,0)
2576    ;   2576    ;
2577   "RTN","SDE C08",5,0)   2577   "RTN","SDE C08",5,0)
2578    Q   2578    Q
2579   "RTN","SDE C08",6,0)   2579   "RTN","SDE C08",6,0)
2580    ;   2580    ;
2581   "RTN","SDE C08",7,0)   2581   "RTN","SDE C08",7,0)
2582   APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent   2582   APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent
2583   "RTN","SDE C08",8,0)   2583   "RTN","SDE C08",8,0)
2584    ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER)  exte rnal param eter tag i s in SDEC   2584    ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER)  exte rnal param eter tag i s in SDEC
2585   "RTN","SDE C08",9,0)   2585   "RTN","SDE C08",9,0)
2586    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file   2586    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
2587   "RTN","SDE C08",10,0)   2587   "RTN","SDE C08",10,0)
2588    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:   2588    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
2589   "RTN","SDE C08",11,0)   2589   "RTN","SDE C08",11,0)
2590    ;                            C= CANCELLED  BY CLINIC   2590    ;                            C= CANCELLED  BY CLINIC
2591   "RTN","SDE C08",12,0)   2591   "RTN","SDE C08",12,0)
2592    ;                           PC= CANCELLED  BY PATIENT   2592    ;                           PC= CANCELLED  BY PATIENT
2593   "RTN","SDE C08",13,0)   2593   "RTN","SDE C08",13,0)
2594    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)   2594    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
2595   "RTN","SDE C08",14,0)   2595   "RTN","SDE C08",14,0)
2596    ;SDECNOT    - (optio nal) text  representi ng user no te   2596    ;SDECNOT    - (optio nal) text  representi ng user no te
2597   "RTN","SDE C08",15,0)   2597   "RTN","SDE C08",15,0)
2598    ;SDECDATE    - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW   2598    ;SDECDATE    - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW
2599   "RTN","SDE C08",16,0)   2599   "RTN","SDE C08",16,0)
2600    ;SDUSER      - (opti onal) User  that canc elled appt ; defaults  to curren t user   2600    ;SDUSER      - (opti onal) User  that canc elled appt ; defaults  to curren t user
2601   "RTN","SDE C08",17,0)   2601   "RTN","SDE C08",17,0)
2602    ;Returns  error code  in record set field  ERRORID   2602    ;Returns  error code  in record set field  ERRORID
2603   "RTN","SDE C08",18,0)   2603   "RTN","SDE C08",18,0)
2604    ;   2604    ;
2605   "RTN","SDE C08",19,0)   2605   "RTN","SDE C08",19,0)
2606    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR   2606    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR
2607   "RTN","SDE C08",20,0)   2607   "RTN","SDE C08",20,0)
2608    N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1   2608    N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1
2609   "RTN","SDE C08",21,0)   2609   "RTN","SDE C08",21,0)
2610    N SDECNOE V,SDECSC1, SDRET   2610    N SDECNOE V,SDECSC1, SDRET
2611   "RTN","SDE C08",22,0)   2611   "RTN","SDE C08",22,0)
2612    N %DT,X,Y   2612    N %DT,X,Y
2613   "RTN","SDE C08",23,0)   2613   "RTN","SDE C08",23,0)
2614    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l   2614    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l
2615   "RTN","SDE C08",24,0)   2615   "RTN","SDE C08",24,0)
2616    S SDECSCI EN1=0   2616    S SDECSCI EN1=0
2617   "RTN","SDE C08",25,0)   2617   "RTN","SDE C08",25,0)
2618    ;   2618    ;
2619   "RTN","SDE C08",26,0)   2619   "RTN","SDE C08",26,0)
2620    S SDECI=0   2620    S SDECI=0
2621   "RTN","SDE C08",27,0)   2621   "RTN","SDE C08",27,0)
2622    S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")"   2622    S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")"
2623   "RTN","SDE C08",28,0)   2623   "RTN","SDE C08",28,0)
2624    K @SDECY   2624    K @SDECY
2625   "RTN","SDE C08",29,0)   2625   "RTN","SDE C08",29,0)
2626    S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30)   2626    S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30)
2627   "RTN","SDE C08",30,0)   2627   "RTN","SDE C08",30,0)
2628    S SDECI=S DECI+1   2628    S SDECI=S DECI+1
2629   "RTN","SDE C08",31,0)   2629   "RTN","SDE C08",31,0)
2630    ;validate  SDEC APPO INTMENT po inter (req uired)   2630    ;validate  SDEC APPO INTMENT po inter (req uired)
2631   "RTN","SDE C08",32,0)   2631   "RTN","SDE C08",32,0)
2632    I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D  ERR(SDECI ,"SDEC08:  Invalid Ap pointment  ID") Q   2632    I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D  ERR(SDECI ,"SDEC08:  Invalid Ap pointment  ID") Q
2633   "RTN","SDE C08",33,0)   2633   "RTN","SDE C08",33,0)
2634    ;validate  appointme nt status  type (requ ired)   2634    ;validate  appointme nt status  type (requ ired)
2635   "RTN","SDE C08",34,0)   2635   "RTN","SDE C08",34,0)
2636    S SDECTYP =$G(SDECTY P)   2636    S SDECTYP =$G(SDECTY P)
2637   "RTN","SDE C08",35,0)   2637   "RTN","SDE C08",35,0)
2638    S SDECTYP =$S(SDECTY P="C":"C", SDECTYP="C ANCELLED B Y CLINIC": "C",SDECTY P="PC":"PC ",SDECTYP= "CANCELLED  BY PATIEN T":"PC",1: "")   2638    S SDECTYP =$S(SDECTY P="C":"C", SDECTYP="C ANCELLED B Y CLINIC": "C",SDECTY P="PC":"PC ",SDECTYP= "CANCELLED  BY PATIEN T":"PC",1: "")
2639   "RTN","SDE C08",36,0)   2639   "RTN","SDE C08",36,0)
2640    I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status  type") Q   2640    I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status  type") Q
2641   "RTN","SDE C08",37,0)   2641   "RTN","SDE C08",37,0)
2642    ;validate  CANCELLAT ION REASON  pointer ( optional)   2642    ;validate  CANCELLAT ION REASON  pointer ( optional)
2643   "RTN","SDE C08",38,0)   2643   "RTN","SDE C08",38,0)
2644    S SDECCR= $G(SDECCR)   2644    S SDECCR= $G(SDECCR)
2645   "RTN","SDE C08",39,0)   2645   "RTN","SDE C08",39,0)
2646    I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0))   2646    I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0))
2647   "RTN","SDE C08",40,0)   2647   "RTN","SDE C08",40,0)
2648    ;validate  SDECNOT   2648    ;validate  SDECNOT
2649   "RTN","SDE C08",41,0)   2649   "RTN","SDE C08",41,0)
2650    S SDECNOT =$TR(SDECN OT,"^"," " )  ;alb/sa t 658 - st rip out ^   2650    S SDECNOT =$TR(SDECN OT,"^"," " )  ;alb/sa t 658 - st rip out ^
2651   "RTN","SDE C08",42,0)   2651   "RTN","SDE C08",42,0)
2652    ;validate  cancel da te/time   2652    ;validate  cancel da te/time
2653   "RTN","SDE C08",43,0)   2653   "RTN","SDE C08",43,0)
2654    S SDECDAT E=$G(SDECD ATE)   2654    S SDECDAT E=$G(SDECD ATE)
2655   "RTN","SDE C08",44,0)   2655   "RTN","SDE C08",44,0)
2656    I SDECDAT E'="" S %D T="T" S X= SDECDATE D  ^%DT S SD ECDATE=Y I  Y=-1 S SD ECDATE=""   2656    I SDECDAT E'="" S %D T="T" S X= SDECDATE D  ^%DT S SD ECDATE=Y I  Y=-1 S SD ECDATE=""
2657   "RTN","SDE C08",45,0)   2657   "RTN","SDE C08",45,0)
2658    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T   2658    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T
2659   "RTN","SDE C08",46,0)   2659   "RTN","SDE C08",46,0)
2660    ;validate  user   2660    ;validate  user
2661   "RTN","SDE C08",47,0)   2661   "RTN","SDE C08",47,0)
2662    S SDUSER= $G(SDUSER)   2662    S SDUSER= $G(SDUSER)
2663   "RTN","SDE C08",48,0)   2663   "RTN","SDE C08",48,0)
2664    I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0))  S SDUSER=" "   2664    I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0))  S SDUSER=" "
2665   "RTN","SDE C08",49,0)   2665   "RTN","SDE C08",49,0)
2666    I SDUSER= "" S SDUSE R=DUZ   2666    I SDUSER= "" S SDUSE R=DUZ
2667   "RTN","SDE C08",50,0)   2667   "RTN","SDE C08",50,0)
2668    ;   2668    ;
2669   "RTN","SDE C08",51,0)   2669   "RTN","SDE C08",51,0)
2670    TSTART   2670    TSTART
2671   "RTN","SDE C08",52,0)   2671   "RTN","SDE C08",52,0)
2672    ;   2672    ;
2673   "RTN","SDE C08",53,0)   2673   "RTN","SDE C08",53,0)
2674    ;Delete A PPOINTMENT  entries   2674    ;Delete A PPOINTMENT  entries
2675   "RTN","SDE C08",54,0)   2675   "RTN","SDE C08",54,0)
2676    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   2676    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
2677   "RTN","SDE C08",55,0)   2677   "RTN","SDE C08",55,0)
2678    S SDECPAT ID=$P(SDEC NOD,U,5)   2678    S SDECPAT ID=$P(SDEC NOD,U,5)
2679   "RTN","SDE C08",56,0)   2679   "RTN","SDE C08",56,0)
2680    S SDECSTA RT=$P(SDEC NOD,U)   2680    S SDECSTA RT=$P(SDEC NOD,U)
2681   "RTN","SDE C08",57,0)   2681   "RTN","SDE C08",57,0)
2682    ;   2682    ;
2683   "RTN","SDE C08",58,0)   2683   "RTN","SDE C08",58,0)
2684    ;Lock SDE C node   2684    ;Lock SDE C node
2685   "RTN","SDE C08",59,0)   2685   "RTN","SDE C08",59,0)
2686    L +^SDEC( 409.84,SDE CPATID):5  I '$T D ER R(SDECI+1, "Another u ser is wor king with  this patie nt's recor d.  Please  try again  later") T ROLLBACK   Q   2686    L +^SDEC( 409.84,SDE CPATID):5  I '$T D ER R(SDECI+1, "Another u ser is wor king with  this patie nt's recor d.  Please  try again  later") T ROLLBACK   Q
2687   "RTN","SDE C08",60,0)   2687   "RTN","SDE C08",60,0)
2688    ;cancel c heck-in if  walk-in   2688    ;cancel c heck-in if  walk-in
2689   "RTN","SDE C08",61,0)   2689   "RTN","SDE C08",61,0)
2690    I $P(SDEC NOD,U,13)= "y" D   2690    I $P(SDEC NOD,U,13)= "y" D
2691   "RTN","SDE C08",62,0)   2691   "RTN","SDE C08",62,0)
2692    .S SDRET= ""   2692    .S SDRET= ""
2693   "RTN","SDE C08",63,0)   2693   "RTN","SDE C08",63,0)
2694    .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@")   2694    .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@")
2695   "RTN","SDE C08",64,0)   2695   "RTN","SDE C08",64,0)
2696    ;cancel S DEC APPOIN TMENT reco rd   2696    ;cancel S DEC APPOIN TMENT reco rd
2697   "RTN","SDE C08",65,0)   2697   "RTN","SDE C08",65,0)
2698    D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1)   2698    D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1)
2699   "RTN","SDE C08",66,0)   2699   "RTN","SDE C08",66,0)
2700    ;   2700    ;
2701   "RTN","SDE C08",67,0)   2701   "RTN","SDE C08",67,0)
2702    S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID   2702    S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID
2703   "RTN","SDE C08",68,0)   2703   "RTN","SDE C08",68,0)
2704    I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D  I +$ G(SDECZ) S  SDECERR=+ SDECZ D ER R(SDECI,$P (SDECZ,U,2 )) Q   2704    I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D  I +$ G(SDECZ) S  SDECERR=+ SDECZ D ER R(SDECI,$P (SDECZ,U,2 )) Q
2705   "RTN","SDE C08",69,0)   2705   "RTN","SDE C08",69,0)
2706    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)   2706    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)
2707   "RTN","SDE C08",70,0)   2707   "RTN","SDE C08",70,0)
2708    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION   2708    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION
2709   "RTN","SDE C08",71,0)   2709   "RTN","SDE C08",71,0)
2710    . Q:'+SDE CLOC   2710    . Q:'+SDE CLOC
2711   "RTN","SDE C08",72,0)   2711   "RTN","SDE C08",72,0)
2712    . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I  SDECSCIEN ="" D  I ' SDECZ Q  ; Q:SDECZ   2712    . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I  SDECSCIEN ="" D  I ' SDECZ Q  ; Q:SDECZ
2713   "RTN","SDE C08",73,0)   2713   "RTN","SDE C08",73,0)
2714    . . S SDE CERR="SDEC 08: Unable  to find a ssociated  appointmen t for this  patient.  "   2714    . . S SDE CERR="SDEC 08: Unable  to find a ssociated  appointmen t for this  patient.  "
2715   "RTN","SDE C08",74,0)   2715   "RTN","SDE C08",74,0)
2716    . . S SDE CZ=1   2716    . . S SDE CZ=1
2717   "RTN","SDE C08",75,0)   2717   "RTN","SDE C08",75,0)
2718    . . I '$D (^SDEC(409 .831,SDECS C1,20)) S  SDECZ=0 Q   2718    . . I '$D (^SDEC(409 .831,SDECS C1,20)) S  SDECZ=0 Q
2719   "RTN","SDE C08",76,0)   2719   "RTN","SDE C08",76,0)
2720    . . N SDE C1   2720    . . N SDE C1
2721   "RTN","SDE C08",77,0)   2721   "RTN","SDE C08",77,0)
2722    . . S SDE C1=0   2722    . . S SDE C1=0
2723   "RTN","SDE C08",78,0)   2723   "RTN","SDE C08",78,0)
2724    . . F  S  SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1  Q:SDECZ =0  D   2724    . . F  S  SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1  Q:SDECZ =0  D
2725   "RTN","SDE C08",79,0)   2725   "RTN","SDE C08",79,0)
2726    . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0))   2726    . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0))
2727   "RTN","SDE C08",80,0)   2727   "RTN","SDE C08",80,0)
2728    . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U)   2728    . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U)
2729   "RTN","SDE C08",81,0)   2729   "RTN","SDE C08",81,0)
2730    . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q   2730    . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q
2731   "RTN","SDE C08",82,0)   2731   "RTN","SDE C08",82,0)
2732    . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned "   2732    . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned "
2733   "RTN","SDE C08",83,0)   2733   "RTN","SDE C08",83,0)
2734    . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for  this patie nt." Q   2734    . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for  this patie nt." Q
2735   "RTN","SDE C08",84,0)   2735   "RTN","SDE C08",84,0)
2736    . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find  associate d appointm ent for th is patient ." Q   2736    . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find  associate d appointm ent for th is patient ." Q
2737   "RTN","SDE C08",85,0)   2737   "RTN","SDE C08",85,0)
2738    . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0))   2738    . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0))
2739   "RTN","SDE C08",86,0)   2739   "RTN","SDE C08",86,0)
2740    . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q   2740    . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q
2741   "RTN","SDE C08",87,0)   2741   "RTN","SDE C08",87,0)
2742    . S SDECL EN=$P(SDEC NOD,U,2)   2742    . S SDECL EN=$P(SDEC NOD,U,2)
2743   "RTN","SDE C08",88,0)   2743   "RTN","SDE C08",88,0)
2744    . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN)   2744    . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN)
2745   "RTN","SDE C08",89,0)   2745   "RTN","SDE C08",89,0)
2746    . Q:+$G(S DECZ)   2746    . Q:+$G(S DECZ)
2747   "RTN","SDE C08",90,0)   2747   "RTN","SDE C08",90,0)
2748    . D AVUPD T(SDECLOC, SDECSTART, SDECLEN)   2748    . D AVUPD T(SDECLOC, SDECSTART, SDECLEN)
2749   "RTN","SDE C08",91,0)   2749   "RTN","SDE C08",91,0)
2750    . D AR433 D^SDECAR2( SDECAPTID)   2750    . D AR433 D^SDECAR2( SDECAPTID)
2751   "RTN","SDE C08",92,0)   2751   "RTN","SDE C08",92,0)
2752    . ;L   2752    . ;L
2753   "RTN","SDE C08",93,0)   2753   "RTN","SDE C08",93,0)
2754    ;   2754    ;
2755   "RTN","SDE C08",94,0)   2755   "RTN","SDE C08",94,0)
2756    TCOMMIT   2756    TCOMMIT
2757   "RTN","SDE C08",95,0)   2757   "RTN","SDE C08",95,0)
2758    L -^SDEC( 409.84,SDE CPATID)   2758    L -^SDEC( 409.84,SDE CPATID)
2759   "RTN","SDE C08",96,0)   2759   "RTN","SDE C08",96,0)
2760    S SDECI=S DECI+1   2760    S SDECI=S DECI+1
2761   "RTN","SDE C08",97,0)   2761   "RTN","SDE C08",97,0)
2762    S @SDECY@ (SDECI)="" _$C(30)   2762    S @SDECY@ (SDECI)="" _$C(30)
2763   "RTN","SDE C08",98,0)   2763   "RTN","SDE C08",98,0)
2764    S SDECI=S DECI+1   2764    S SDECI=S DECI+1
2765   "RTN","SDE C08",99,0)   2765   "RTN","SDE C08",99,0)
2766    S @SDECY@ (SDECI)=$C (31)   2766    S @SDECY@ (SDECI)=$C (31)
2767   "RTN","SDE C08",100,0 )   2767   "RTN","SDE C08",100,0 )
2768    Q   2768    Q
2769   "RTN","SDE C08",101,0 )   2769   "RTN","SDE C08",101,0 )
2770    ;   2770    ;
2771   "RTN","SDE C08",102,0 )   2771   "RTN","SDE C08",102,0 )
2772   AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y   2772   AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y
2773   "RTN","SDE C08",103,0 )   2773   "RTN","SDE C08",103,0 )
2774    ;See SDCN P0   2774    ;See SDCN P0
2775   "RTN","SDE C08",104,0 )   2775   "RTN","SDE C08",104,0 )
2776    N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y   2776    N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y
2777   "RTN","SDE C08",105,0 )   2777   "RTN","SDE C08",105,0 )
2778    S (SD,S)= SDECSTART   2778    S (SD,S)= SDECSTART
2779   "RTN","SDE C08",106,0 )   2779   "RTN","SDE C08",106,0 )
2780    S I=SDECS CD   2780    S I=SDECS CD
2781   "RTN","SDE C08",107,0 )   2781   "RTN","SDE C08",107,0 )
2782    Q:'$D(^SC (I,"ST",SD \1,1))   2782    Q:'$D(^SC (I,"ST",SD \1,1))
2783   "RTN","SDE C08",108,0 )   2783   "RTN","SDE C08",108,0 )
2784    S SL=^SC( I,"SL"),X= $P(SL,U,3) ,STARTDAY= $S($L(X):X ,1:8),SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X:X,1: 4),SI=$S(X ="":4,X<3: 4,X:X,1:4) ,STR="#@!$ * XXWVUTSR QPONMLKJIH GFEDCBA012 3456789jkl mnopqrstuv wxyz",SDDI F=$S(HSI<3 :8/HSI,1:2 )   2784    S SL=^SC( I,"SL"),X= $P(SL,U,3) ,STARTDAY= $S($L(X):X ,1:8),SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X:X,1: 4),SI=$S(X ="":4,X<3: 4,X:X,1:4) ,STR="#@!$ * XXWVUTSR QPONMLKJIH GFEDCBA012 3456789jkl mnopqrstuv wxyz",SDDI F=$S(HSI<3 :8/HSI,1:2 )
2785   "RTN","SDE C08",109,0 )   2785   "RTN","SDE C08",109,0 )
2786    S SL=SDEC LEN   2786    S SL=SDEC LEN
2787   "RTN","SDE C08",110,0 )   2787   "RTN","SDE C08",110,0 )
2788    S S=^SC(I ,"ST",SD\1 ,1),Y=SD#1 -SB*100,ST =Y#1*SI\.6 +(Y\1*SI), SS=SL*HSI/ 60   2788    S S=^SC(I ,"ST",SD\1 ,1),Y=SD#1 -SB*100,ST =Y#1*SI\.6 +(Y\1*SI), SS=SL*HSI/ 60
2789   "RTN","SDE C08",111,0 )   2789   "RTN","SDE C08",111,0 )
2790    I Y'<1 F  I=ST+ST:SD DIF S Y=$E (STR,$F(ST R,$E(S,I+1 ))) Q:Y=""   S S=$E(S ,1,I)_Y_$E (S,I+2,999 ),SS=SS-1  Q:SS'>0   2790    I Y'<1 F  I=ST+ST:SD DIF S Y=$E (STR,$F(ST R,$E(S,I+1 ))) Q:Y=""   S S=$E(S ,1,I)_Y_$E (S,I+2,999 ),SS=SS-1  Q:SS'>0
2791   "RTN","SDE C08",112,0 )   2791   "RTN","SDE C08",112,0 )
2792    S ^SC(SDE CSCD,"ST", SD\1,1)=S   2792    S ^SC(SDE CSCD,"ST", SD\1,1)=S
2793   "RTN","SDE C08",113,0 )   2793   "RTN","SDE C08",113,0 )
2794    Q   2794    Q
2795   "RTN","SDE C08",114,0 )   2795   "RTN","SDE C08",114,0 )
2796    ;   2796    ;
2797   "RTN","SDE C08",115,0 )   2797   "RTN","SDE C08",115,0 )
2798   APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ;   2798   APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ;
2799   "RTN","SDE C08",116,0 )   2799   "RTN","SDE C08",116,0 )
2800    ;Cancel a ppointment  for patie nt SDECDFN  in clinic  SDECSC1   2800    ;Cancel a ppointment  for patie nt SDECDFN  in clinic  SDECSC1
2801   "RTN","SDE C08",117,0 )   2801   "RTN","SDE C08",117,0 )
2802    ;at time  SDECSD   2802    ;at time  SDECSD
2803   "RTN","SDE C08",118,0 )   2803   "RTN","SDE C08",118,0 )
2804    N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H   2804    N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H
2805   "RTN","SDE C08",119,0 )   2805   "RTN","SDE C08",119,0 )
2806    ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt  length)   2806    ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt  length)
2807   "RTN","SDE C08",120,0 )   2807   "RTN","SDE C08",120,0 )
2808    S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0)   2808    S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0)
2809   "RTN","SDE C08",121,0 )   2809   "RTN","SDE C08",121,0 )
2810    S DPTST=$ P(SDECPNOD ,U,2)   2810    S DPTST=$ P(SDECPNOD ,U,2)
2811   "RTN","SDE C08",122,0 )   2811   "RTN","SDE C08",122,0 )
2812    S DIE=409 .84   2812    S DIE=409 .84
2813   "RTN","SDE C08",123,0 )   2813   "RTN","SDE C08",123,0 )
2814    S DA=SDEC APTID   2814    S DA=SDEC APTID
2815   "RTN","SDE C08",124,0 )   2815   "RTN","SDE C08",124,0 )
2816    S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N   2816    S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N
2817   "RTN","SDE C08",125,0 )   2817   "RTN","SDE C08",125,0 )
2818    D ^DIE   2818    D ^DIE
2819   "RTN","SDE C08",126,0 )   2819   "RTN","SDE C08",126,0 )
2820    S SDECC(" PAT")=SDEC DFN   2820    S SDECC(" PAT")=SDEC DFN
2821   "RTN","SDE C08",127,0 )   2821   "RTN","SDE C08",127,0 )
2822    S SDECC(" CLN")=SDEC LOC   2822    S SDECC(" CLN")=SDEC LOC
2823   "RTN","SDE C08",128,0 )   2823   "RTN","SDE C08",128,0 )
2824    S SDECC(" TYP")=SDEC TYP   2824    S SDECC(" TYP")=SDEC TYP
2825   "RTN","SDE C08",129,0 )   2825   "RTN","SDE C08",129,0 )
2826    S SDECC(" ADT")=SDEC SD   2826    S SDECC(" ADT")=SDEC SD
2827   "RTN","SDE C08",130,0 )   2827   "RTN","SDE C08",130,0 )
2828    S %H=$H D  YMD^%DTC   2828    S %H=$H D  YMD^%DTC
2829   "RTN","SDE C08",131,0 )   2829   "RTN","SDE C08",131,0 )
2830    S SDECC(" CDT")=SDEC DATE   ;X+ %   2830    S SDECC(" CDT")=SDEC DATE   ;X+ %
2831   "RTN","SDE C08",132,0 )   2831   "RTN","SDE C08",132,0 )
2832    S SDECC(" NOT")=SDEC NOT   2832    S SDECC(" NOT")=SDEC NOT
2833   "RTN","SDE C08",133,0 )   2833   "RTN","SDE C08",133,0 )
2834    S:+SDECCR  SDECC("CR ")=SDECCR   2834    S:+SDECCR  SDECC("CR ")=SDECCR
2835   "RTN","SDE C08",134,0 )   2835   "RTN","SDE C08",134,0 )
2836    S SDECC(" USR")=SDUS ER   2836    S SDECC(" USR")=SDUS ER
2837   "RTN","SDE C08",135,0 )   2837   "RTN","SDE C08",135,0 )
2838    ;   2838    ;
2839   "RTN","SDE C08",136,0 )   2839   "RTN","SDE C08",136,0 )
2840    S SDECZ=$ $CANCEL(.S DECC)   2840    S SDECZ=$ $CANCEL(.S DECC)
2841   "RTN","SDE C08",137,0 )   2841   "RTN","SDE C08",137,0 )
2842    Q   2842    Q
2843   "RTN","SDE C08",138,0 )   2843   "RTN","SDE C08",138,0 )
2844    ;   2844    ;
2845   "RTN","SDE C08",139,0 )   2845   "RTN","SDE C08",139,0 )
2846   SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel  SDEC APPOI NTMENT ent ry   2846   SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel  SDEC APPOI NTMENT ent ry
2847   "RTN","SDE C08",140,0 )   2847   "RTN","SDE C08",140,0 )
2848    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file   2848    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
2849   "RTN","SDE C08",141,0 )   2849   "RTN","SDE C08",141,0 )
2850    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:   2850    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
2851   "RTN","SDE C08",142,0 )   2851   "RTN","SDE C08",142,0 )
2852    ;                            C= CANCELLED  BY CLINIC   2852    ;                            C= CANCELLED  BY CLINIC
2853   "RTN","SDE C08",143,0 )   2853   "RTN","SDE C08",143,0 )
2854    ;                           PC= CANCELLED  BY PATIENT   2854    ;                           PC= CANCELLED  BY PATIENT
2855   "RTN","SDE C08",144,0 )   2855   "RTN","SDE C08",144,0 )
2856    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)   2856    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
2857   "RTN","SDE C08",145,0 )   2857   "RTN","SDE C08",145,0 )
2858    ;SDECNOT    - (optio nal) text  representi ng user no te   2858    ;SDECNOT    - (optio nal) text  representi ng user no te
2859   "RTN","SDE C08",146,0 )   2859   "RTN","SDE C08",146,0 )
2860    ;SDECDATE    - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ;   2860    ;SDECDATE    - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ;
2861   "RTN","SDE C08",147,0 )   2861   "RTN","SDE C08",147,0 )
2862    ;SDF        - (optio nal) flags   2862    ;SDF        - (optio nal) flags
2863   "RTN","SDE C08",148,0 )   2863   "RTN","SDE C08",148,0 )
2864    ;                         1. ca lled from  GUI (updat e consult  only if ca lled from  GUI)   2864    ;                         1. ca lled from  GUI (updat e consult  only if ca lled from  GUI)
2865   "RTN","SDE C08",149,0 )   2865   "RTN","SDE C08",149,0 )
2866    ;                         2. ca lled from  cancel in  SDAM (CAN^ SDCNP0) (d o not reop en appt)   2866    ;                         2. ca lled from  cancel in  SDAM (CAN^ SDCNP0) (d o not reop en appt)
2867   "RTN","SDE C08",150,0 )   2867   "RTN","SDE C08",150,0 )
2868    ;Cancel S DEC APPOIN TMENT entr y   2868    ;Cancel S DEC APPOIN TMENT entr y
2869   "RTN","SDE C08",151,0 )   2869   "RTN","SDE C08",151,0 )
2870    N DFN,PRO VIEN,Y   2870    N DFN,PRO VIEN,Y
2871   "RTN","SDE C08",152,0 )   2871   "RTN","SDE C08",152,0 )
2872    N SAVESTR T,SDAPTYP, SDCL,SDI,S DIEN,SDECI ENS,SDECFD A,SDECMSG, SDECWP,SDR ES,SDT   ; alb/sat 65 1 add SAVE STRT and S DRES   2872    N SAVESTR T,SDAPTYP, SDCL,SDI,S DIEN,SDECI ENS,SDECFD A,SDECMSG, SDECWP,SDR ES,SDT   ; alb/sat 65 1 add SAVE STRT and S DRES
2873   "RTN","SDE C08",153,0 )   2873   "RTN","SDE C08",153,0 )
2874    S SDF=$G( SDF,0)   2874    S SDF=$G( SDF,0)
2875   "RTN","SDE C08",154,0 )   2875   "RTN","SDE C08",154,0 )
2876    S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05)   ;alb /sat 658   2876    S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05)   ;alb /sat 658
2877   "RTN","SDE C08",155,0 )   2877   "RTN","SDE C08",155,0 )
2878    S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I")   2878    S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I")
2879   "RTN","SDE C08",156,0 )   2879   "RTN","SDE C08",156,0 )
2880    S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01)    ;alb/sat  651   2880    S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01)    ;alb/sat  651
2881   "RTN","SDE C08",157,0 )   2881   "RTN","SDE C08",157,0 )
2882    S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I")   ;alb/sat  651   2882    S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I")   ;alb/sat  651
2883   "RTN","SDE C08",158,0 )   2883   "RTN","SDE C08",158,0 )
2884    S SDECIEN S=SDECAPTI D_","   2884    S SDECIEN S=SDECAPTI D_","
2885   "RTN","SDE C08",159,0 )   2885   "RTN","SDE C08",159,0 )
2886    S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT)   2886    S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT)
2887   "RTN","SDE C08",160,0 )   2887   "RTN","SDE C08",160,0 )
2888    S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ)   2888    S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ)
2889   "RTN","SDE C08",161,0 )   2889   "RTN","SDE C08",161,0 )
2890    S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR   2890    S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR
2891   "RTN","SDE C08",162,0 )   2891   "RTN","SDE C08",162,0 )
2892    S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP   2892    S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP
2893   "RTN","SDE C08",163,0 )   2893   "RTN","SDE C08",163,0 )
2894    K SDECMSG   2894    K SDECMSG
2895   "RTN","SDE C08",164,0 )   2895   "RTN","SDE C08",164,0 )
2896    D FILE^DI E("","SDEC FDA","SDEC MSG")   2896    D FILE^DI E("","SDEC FDA","SDEC MSG")
2897   "RTN","SDE C08",165,0 )   2897   "RTN","SDE C08",165,0 )
2898    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )   2898    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
2899   "RTN","SDE C08",166,0 )   2899   "RTN","SDE C08",166,0 )
2900    ;alb/sat  658 modifi cation beg in   2900    ;alb/sat  658 modifi cation beg in
2901   "RTN","SDE C08",167,0 )   2901   "RTN","SDE C08",167,0 )
2902    S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160)   2902    S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160)
2903   "RTN","SDE C08",168,0 )   2903   "RTN","SDE C08",168,0 )
2904    I $L(SDEC NOT)>2,'$E (SDF,2) K  SDECFDA S  SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT  D UPDATE^ DIE("","SD ECFDA")   2904    I $L(SDEC NOT)>2,'$E (SDF,2) K  SDECFDA S  SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT  D UPDATE^ DIE("","SD ECFDA")
2905   "RTN","SDE C08",169,0 )   2905   "RTN","SDE C08",169,0 )
2906    ;alb/sat  658 modifi cation end   2906    ;alb/sat  658 modifi cation end
2907   "RTN","SDE C08",170,0 )   2907   "RTN","SDE C08",170,0 )
2908    I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D   2908    I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D
2909   "RTN","SDE C08",171,0 )   2909   "RTN","SDE C08",171,0 )
2910    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)   2910    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
2911   "RTN","SDE C08",172,0 )   2911   "RTN","SDE C08",172,0 )
2912    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")   2912    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
2913   "RTN","SDE C08",173,0 )   2913   "RTN","SDE C08",173,0 )
2914    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES )  ;alb/sa t 651 adde d SAVESTRT   2914    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES )  ;alb/sa t 651 adde d SAVESTRT
2915   "RTN","SDE C08",174,0 )   2915   "RTN","SDE C08",174,0 )
2916    I $P(SDAP TYP,";",2) ="SDWL(409 .3," D   ; update EWL   2916    I $P(SDAP TYP,";",2) ="SDWL(409 .3," D   ; update EWL
2917   "RTN","SDE C08",175,0 )   2917   "RTN","SDE C08",175,0 )
2918    .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I")   2918    .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I")
2919   "RTN","SDE C08",176,0 )   2919   "RTN","SDE C08",176,0 )
2920    .Q:DFN=""   2920    .Q:DFN=""
2921   "RTN","SDE C08",177,0 )   2921   "RTN","SDE C08",177,0 )
2922    .S SDIEN= 0 F  S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N=""  D   2922    .S SDIEN= 0 F  S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N=""  D
2923   "RTN","SDE C08",178,0 )   2923   "RTN","SDE C08",178,0 )
2924    ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D   2924    ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D
2925   "RTN","SDE C08",179,0 )   2925   "RTN","SDE C08",179,0 )
2926    ...K SDEC FDA,SDECMS G,SDECWP   2926    ...K SDEC FDA,SDECMS G,SDECWP
2927   "RTN","SDE C08",180,0 )   2927   "RTN","SDE C08",180,0 )
2928    ...;S SDI EN=$P(SDAP TYP,";",1)   2928    ...;S SDI EN=$P(SDAP TYP,";",1)
2929   "RTN","SDE C08",181,0 )   2929   "RTN","SDE C08",181,0 )
2930    ...S SDEC FDA(409.3, SDIEN_",", 13)="@"   2930    ...S SDEC FDA(409.3, SDIEN_",", 13)="@"
2931   "RTN","SDE C08",182,0 )   2931   "RTN","SDE C08",182,0 )
2932    ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@"   2932    ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@"
2933   "RTN","SDE C08",183,0 )   2933   "RTN","SDE C08",183,0 )
2934    ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@"   2934    ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@"
2935   "RTN","SDE C08",184,0 )   2935   "RTN","SDE C08",184,0 )
2936    ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@"   2936    ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@"
2937   "RTN","SDE C08",185,0 )   2937   "RTN","SDE C08",185,0 )
2938    ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@"   2938    ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@"
2939   "RTN","SDE C08",186,0 )   2939   "RTN","SDE C08",186,0 )
2940    ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@"   2940    ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@"
2941   "RTN","SDE C08",187,0 )   2941   "RTN","SDE C08",187,0 )
2942    ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@"   2942    ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@"
2943   "RTN","SDE C08",188,0 )   2943   "RTN","SDE C08",188,0 )
2944    ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@"   2944    ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@"
2945   "RTN","SDE C08",189,0 )   2945   "RTN","SDE C08",189,0 )
2946    ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@"   2946    ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@"
2947   "RTN","SDE C08",190,0 )   2947   "RTN","SDE C08",190,0 )
2948    ...D UPDA TE^DIE("", "SDECFDA")   2948    ...D UPDA TE^DIE("", "SDECFDA")
2949   "RTN","SDE C08",191,0 )   2949   "RTN","SDE C08",191,0 )
2950    ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN)  ;alb/ jsm 658 do  not reope n if calle d from SDE C^SDCNP0   2950    ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN)  ;alb/ jsm 658 do  not reope n if calle d from SDE C^SDCNP0
2951   "RTN","SDE C08",192,0 )   2951   "RTN","SDE C08",192,0 )
2952    I $P(SDAP TYP,";",2) ="SDEC(409 .85," D    ;update AP PT   2952    I $P(SDAP TYP,";",2) ="SDEC(409 .85," D    ;update AP PT
2953   "RTN","SDE C08",193,0 )   2953   "RTN","SDE C08",193,0 )
2954    .K SDECFD A,SDECMSG, SDECWP   2954    .K SDECFD A,SDECMSG, SDECWP
2955   "RTN","SDE C08",194,0 )   2955   "RTN","SDE C08",194,0 )
2956    .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D)  ;alb/j sm 658 do  not reopen  if called  from SDEC ^SDCNP0   2956    .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D)  ;alb/j sm 658 do  not reopen  if called  from SDEC ^SDCNP0
2957   "RTN","SDE C08",195,0 )   2957   "RTN","SDE C08",195,0 )
2958    .S SDIEN= $P(SDAPTYP ,";",1)   2958    .S SDIEN= $P(SDAPTYP ,";",1)
2959   "RTN","SDE C08",196,0 )   2959   "RTN","SDE C08",196,0 )
2960    .S SDECFD A(409.85,S DIEN_",",1 3)="@"   2960    .S SDECFD A(409.85,S DIEN_",",1 3)="@"
2961   "RTN","SDE C08",197,0 )   2961   "RTN","SDE C08",197,0 )
2962    .S SDECFD A(409.85,S DIEN_",",1 3.1)="@"   2962    .S SDECFD A(409.85,S DIEN_",",1 3.1)="@"
2963   "RTN","SDE C08",198,0 )   2963   "RTN","SDE C08",198,0 )
2964    .S SDECFD A(409.85,S DIEN_",",1 3.2)="@"   2964    .S SDECFD A(409.85,S DIEN_",",1 3.2)="@"
2965   "RTN","SDE C08",199,0 )   2965   "RTN","SDE C08",199,0 )
2966    .S SDECFD A(409.85,S DIEN_",",1 3.3)="@"   2966    .S SDECFD A(409.85,S DIEN_",",1 3.3)="@"
2967   "RTN","SDE C08",200,0 )   2967   "RTN","SDE C08",200,0 )
2968    .S SDECFD A(409.85,S DIEN_",",1 3.4)="@"   2968    .S SDECFD A(409.85,S DIEN_",",1 3.4)="@"
2969   "RTN","SDE C08",201,0 )   2969   "RTN","SDE C08",201,0 )
2970    .S SDECFD A(409.85,S DIEN_",",1 3.5)="@"   2970    .S SDECFD A(409.85,S DIEN_",",1 3.5)="@"
2971   "RTN","SDE C08",202,0 )   2971   "RTN","SDE C08",202,0 )
2972    .S SDECFD A(409.85,S DIEN_",",1 3.6)="@"   2972    .S SDECFD A(409.85,S DIEN_",",1 3.6)="@"
2973   "RTN","SDE C08",203,0 )   2973   "RTN","SDE C08",203,0 )
2974    .S SDECFD A(409.85,S DIEN_",",1 3.7)="@"   2974    .S SDECFD A(409.85,S DIEN_",",1 3.7)="@"
2975   "RTN","SDE C08",204,0 )   2975   "RTN","SDE C08",204,0 )
2976    .S SDECFD A(409.85,S DIEN_",",1 3.8)="@"   2976    .S SDECFD A(409.85,S DIEN_",",1 3.8)="@"
2977   "RTN","SDE C08",205,0 )   2977   "RTN","SDE C08",205,0 )
2978    .D UPDATE ^DIE("","S DECFDA")   2978    .D UPDATE ^DIE("","S DECFDA")
2979   "RTN","SDE C08",206,0 )   2979   "RTN","SDE C08",206,0 )
2980    Q   2980    Q
2981   "RTN","SDE C08",207,0 )   2981   "RTN","SDE C08",207,0 )
2982    ;   2982    ;
2983   "RTN","SDE C08",208,0 )   2983   "RTN","SDE C08",208,0 )
2984   CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT  event   2984   CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT  event
2985   "RTN","SDE C08",209,0 )   2985   "RTN","SDE C08",209,0 )
2986    ;when app ointments  cancelled  via PIMS i nterface.   2986    ;when app ointments  cancelled  via PIMS i nterface.
2987   "RTN","SDE C08",210,0 )   2987   "RTN","SDE C08",210,0 )
2988    ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients   2988    ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients
2989   "RTN","SDE C08",211,0 )   2989   "RTN","SDE C08",211,0 )
2990    N SDECFOU ND,SDECRES   2990    N SDECFOU ND,SDECRES
2991   "RTN","SDE C08",212,0 )   2991   "RTN","SDE C08",212,0 )
2992    Q:+$G(SDE CNOEV)   2992    Q:+$G(SDE CNOEV)
2993   "RTN","SDE C08",213,0 )   2993   "RTN","SDE C08",213,0 )
2994    Q:'+$G(SD ECSC)   2994    Q:'+$G(SD ECSC)
2995   "RTN","SDE C08",214,0 )   2995   "RTN","SDE C08",214,0 )
2996    S SDECFOU ND=0   2996    S SDECFOU ND=0
2997   "RTN","SDE C08",215,0 )   2997   "RTN","SDE C08",215,0 )
2998    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$CANEV T1(SDECRES ,SDECSTART ,SDECPAT)   2998    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$CANEV T1(SDECRES ,SDECSTART ,SDECPAT)
2999   "RTN","SDE C08",216,0 )   2999   "RTN","SDE C08",216,0 )
3000    I SDECFOU ND D CANEV T3(SDECRES ) Q   3000    I SDECFOU ND D CANEV T3(SDECRES ) Q
3001   "RTN","SDE C08",217,0 )   3001   "RTN","SDE C08",217,0 )
3002    Q   3002    Q
3003   "RTN","SDE C08",218,0 )   3003   "RTN","SDE C08",218,0 )
3004    ;   3004    ;
3005   "RTN","SDE C08",219,0 )   3005   "RTN","SDE C08",219,0 )
3006   CANEVT1(SD ECRES,SDEC START,SDEC PAT) ;   3006   CANEVT1(SD ECRES,SDEC START,SDEC PAT) ;
3007   "RTN","SDE C08",220,0 )   3007   "RTN","SDE C08",220,0 )
3008    ;Get appo intment id  in SDECAP T   3008    ;Get appo intment id  in SDECAP T
3009   "RTN","SDE C08",221,0 )   3009   "RTN","SDE C08",221,0 )
3010    ;If found , call SDE CCAN(SDECA PPT) and r eturn 1   3010    ;If found , call SDE CCAN(SDECA PPT) and r eturn 1
3011   "RTN","SDE C08",222,0 )   3011   "RTN","SDE C08",222,0 )
3012    ;else ret urn 0   3012    ;else ret urn 0
3013   "RTN","SDE C08",223,0 )   3013   "RTN","SDE C08",223,0 )
3014    N SDECFOU ND,SDECAPP T   3014    N SDECFOU ND,SDECAPP T
3015   "RTN","SDE C08",224,0 )   3015   "RTN","SDE C08",224,0 )
3016    S SDECFOU ND=0   3016    S SDECFOU ND=0
3017   "RTN","SDE C08",225,0 )   3017   "RTN","SDE C08",225,0 )
3018    Q:'+SDECR ES SDECFOU ND   3018    Q:'+SDECR ES SDECFOU ND
3019   "RTN","SDE C08",226,0 )   3019   "RTN","SDE C08",226,0 )
3020    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND   3020    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
3021   "RTN","SDE C08",227,0 )   3021   "RTN","SDE C08",227,0 )
3022    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND   3022    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND
3023   "RTN","SDE C08",228,0 )   3023   "RTN","SDE C08",228,0 )
3024    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""   3024    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
3025   "RTN","SDE C08",229,0 )   3025   "RTN","SDE C08",229,0 )
3026    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q   3026    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
3027   "RTN","SDE C08",230,0 )   3027   "RTN","SDE C08",230,0 )
3028    I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1)   3028    I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1)
3029   "RTN","SDE C08",231,0 )   3029   "RTN","SDE C08",231,0 )
3030    Q SDECFOU ND   3030    Q SDECFOU ND
3031   "RTN","SDE C08",232,0 )   3031   "RTN","SDE C08",232,0 )
3032    ;   3032    ;
3033   "RTN","SDE C08",233,0 )   3033   "RTN","SDE C08",233,0 )
3034   CANEVT3(SD ECRES) ;   3034   CANEVT3(SD ECRES) ;
3035   "RTN","SDE C08",234,0 )   3035   "RTN","SDE C08",234,0 )
3036    ;Call Rai seEvent to  notify GU I clients   3036    ;Call Rai seEvent to  notify GU I clients
3037   "RTN","SDE C08",235,0 )   3037   "RTN","SDE C08",235,0 )
3038    ;   3038    ;
3039   "RTN","SDE C08",236,0 )   3039   "RTN","SDE C08",236,0 )
3040    Q   3040    Q
3041   "RTN","SDE C08",237,0 )   3041   "RTN","SDE C08",237,0 )
3042    N SDECRES N   3042    N SDECRES N
3043   "RTN","SDE C08",238,0 )   3043   "RTN","SDE C08",238,0 )
3044    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))   3044    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
3045   "RTN","SDE C08",239,0 )   3045   "RTN","SDE C08",239,0 )
3046    Q:SDECRES N=""   3046    Q:SDECRES N=""
3047   "RTN","SDE C08",240,0 )   3047   "RTN","SDE C08",240,0 )
3048    S SDECRES N=$P(SDECR ESN,"^")   3048    S SDECRES N=$P(SDECR ESN,"^")
3049   "RTN","SDE C08",241,0 )   3049   "RTN","SDE C08",241,0 )
3050    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")   3050    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")
3051   "RTN","SDE C08",242,0 )   3051   "RTN","SDE C08",242,0 )
3052    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)   3052    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
3053   "RTN","SDE C08",243,0 )   3053   "RTN","SDE C08",243,0 )
3054    Q   3054    Q
3055   "RTN","SDE C08",244,0 )   3055   "RTN","SDE C08",244,0 )
3056    ;   3056    ;
3057   "RTN","SDE C08",245,0 )   3057   "RTN","SDE C08",245,0 )
3058   CANCEL(BSD R) ;EP; ca lled to ca ncel appt   3058   CANCEL(BSD R) ;EP; ca lled to ca ncel appt
3059   "RTN","SDE C08",246,0 )   3059   "RTN","SDE C08",246,0 )
3060    ;   3060    ;
3061   "RTN","SDE C08",247,0 )   3061   "RTN","SDE C08",247,0 )
3062    ; Make ca ll using:  S ERR=$$CA NCEL^SDEC0 8(.ARRAY)   3062    ; Make ca ll using:  S ERR=$$CA NCEL^SDEC0 8(.ARRAY)
3063   "RTN","SDE C08",248,0 )   3063   "RTN","SDE C08",248,0 )
3064    ;   3064    ;
3065   "RTN","SDE C08",249,0 )   3065   "RTN","SDE C08",249,0 )
3066    ; Input A rray -   3066    ; Input A rray -
3067   "RTN","SDE C08",250,0 )   3067   "RTN","SDE C08",250,0 )
3068    ; BSDR("P AT") = ien  of patien t in file  2   3068    ; BSDR("P AT") = ien  of patien t in file  2
3069   "RTN","SDE C08",251,0 )   3069   "RTN","SDE C08",251,0 )
3070    ; BSDR("C LN") = ien  of clinic  in file 4 4   3070    ; BSDR("C LN") = ien  of clinic  in file 4 4
3071   "RTN","SDE C08",252,0 )   3071   "RTN","SDE C08",252,0 )
3072    ; BSDR("T YP") = C f or cancele d by clini c; PC for  patient ca nceled   3072    ; BSDR("T YP") = C f or cancele d by clini c; PC for  patient ca nceled
3073   "RTN","SDE C08",253,0 )   3073   "RTN","SDE C08",253,0 )
3074    ; BSDR("A DT") = app ointment d ate and ti me   3074    ; BSDR("A DT") = app ointment d ate and ti me
3075   "RTN","SDE C08",254,0 )   3075   "RTN","SDE C08",254,0 )
3076    ; BSDR("C DT") = can cel date a nd time   3076    ; BSDR("C DT") = can cel date a nd time
3077   "RTN","SDE C08",255,0 )   3077   "RTN","SDE C08",255,0 )
3078    ; BSDR("U SR") = use r who canc eled appt   3078    ; BSDR("U SR") = use r who canc eled appt
3079   "RTN","SDE C08",256,0 )   3079   "RTN","SDE C08",256,0 )
3080    ; BSDR("C R")  = can cel reason  - pointer  to file 4 09.2   3080    ; BSDR("C R")  = can cel reason  - pointer  to file 4 09.2
3081   "RTN","SDE C08",257,0 )   3081   "RTN","SDE C08",257,0 )
3082    ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters   3082    ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters
3083   "RTN","SDE C08",258,0 )   3083   "RTN","SDE C08",258,0 )
3084    ;   3084    ;
3085   "RTN","SDE C08",259,0 )   3085   "RTN","SDE C08",259,0 )
3086    ;Output:  error stat us and mes sage   3086    ;Output:  error stat us and mes sage
3087   "RTN","SDE C08",260,0 )   3087   "RTN","SDE C08",260,0 )
3088    ;   = 0 o r null:  e verything  okay   3088    ;   = 0 o r null:  e verything  okay
3089   "RTN","SDE C08",261,0 )   3089   "RTN","SDE C08",261,0 )
3090    ;   = 1^m essage:  e rror and r eason   3090    ;   = 1^m essage:  e rror and r eason
3091   "RTN","SDE C08",262,0 )   3091   "RTN","SDE C08",262,0 )
3092    ;   3092    ;
3093   "RTN","SDE C08",263,0 )   3093   "RTN","SDE C08",263,0 )
3094    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))   3094    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))
3095   "RTN","SDE C08",264,0 )   3095   "RTN","SDE C08",264,0 )
3096    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))   3096    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))
3097   "RTN","SDE C08",265,0 )   3097   "RTN","SDE C08",265,0 )
3098    I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC")  Q 1_U_"Can cel Status  error: "_ $G(BSDR("T YP"))   3098    I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC")  Q 1_U_"Can cel Status  error: "_ $G(BSDR("T YP"))
3099   "RTN","SDE C08",266,0 )   3099   "RTN","SDE C08",266,0 )
3100    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s   3100    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
3101   "RTN","SDE C08",267,0 )   3101   "RTN","SDE C08",267,0 )
3102    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))   3102    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))
3103   "RTN","SDE C08",268,0 )   3103   "RTN","SDE C08",268,0 )
3104    I $G(BSDR ("CDT")) S  BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12)  ;rem ove second s   3104    I $G(BSDR ("CDT")) S  BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12)  ;rem ove second s
3105   "RTN","SDE C08",269,0 )   3105   "RTN","SDE C08",269,0 )
3106    I $G(BSDR ("CDT"))'? 7N1".".4N  Q 1_U_"Can cel Date/T ime error:  "_$G(BSDR ("CDT"))   3106    I $G(BSDR ("CDT"))'? 7N1".".4N  Q 1_U_"Can cel Date/T ime error:  "_$G(BSDR ("CDT"))
3107   "RTN","SDE C08",270,0 )   3107   "RTN","SDE C08",270,0 )
3108    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))   3108    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))
3109   "RTN","SDE C08",271,0 )   3109   "RTN","SDE C08",271,0 )
3110    I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR"))   3110    I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR"))
3111   "RTN","SDE C08",272,0 )   3111   "RTN","SDE C08",272,0 )
3112    ;   3112    ;
3113   "RTN","SDE C08",273,0 )   3113   "RTN","SDE C08",273,0 )
3114    NEW IEN,D IE,DA,DR,S DMODE,HLAP TIEN ;*zeb +1 722 2/2 1/19 save  IEN for ca nceling ap pt   3114    NEW IEN,D IE,DA,DR,S DMODE,HLAP TIEN ;*zeb +1 722 2/2 1/19 save  IEN for ca nceling ap pt
3115   "RTN","SDE C08",274,0 )   3115   "RTN","SDE C08",274,0 )
3116    S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N   3116    S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N
3117   "RTN","SDE C08",275,0 )   3117   "RTN","SDE C08",275,0 )
3118    I 'IEN Q  1_U_"Error  trying to  find appo intment fo r cancel:  Patient="_ BSDR("PAT" )_" Clinic ="_BSDR("C LN")_" App t="_BSDR(" ADT")   3118    I 'IEN Q  1_U_"Error  trying to  find appo intment fo r cancel:  Patient="_ BSDR("PAT" )_" Clinic ="_BSDR("C LN")_" App t="_BSDR(" ADT")
3119   "RTN","SDE C08",276,0 )   3119   "RTN","SDE C08",276,0 )
3120    ;   3120    ;
3121   "RTN","SDE C08",277,0 )   3121   "RTN","SDE C08",277,0 )
3122    I $$CI^SD ECU2(BSDR( "PAT"),BSD R("CLN"),B SDR("ADT") ,IEN) Q 1_ U_"Patient  already c hecked in;  cannot ca ncel until  check-in  deleted: P atient="_B SDR("PAT") _" Clinic= "_BSDR("CL N")_" Appt ="_BSDR("A DT")   3122    I $$CI^SD ECU2(BSDR( "PAT"),BSD R("CLN"),B SDR("ADT") ,IEN) Q 1_ U_"Patient  already c hecked in;  cannot ca ncel until  check-in  deleted: P atient="_B SDR("PAT") _" Clinic= "_BSDR("CL N")_" Appt ="_BSDR("A DT")
3123   "RTN","SDE C08",278,0 )   3123   "RTN","SDE C08",278,0 )
3124    ;   3124    ;
3125   "RTN","SDE C08",279,0 )   3125   "RTN","SDE C08",279,0 )
3126    ; remembe r before s tatus   3126    ; remembe r before s tatus
3127   "RTN","SDE C08",280,0 )   3127   "RTN","SDE C08",280,0 )
3128    NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL   3128    NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL
3129   "RTN","SDE C08",281,0 )   3129   "RTN","SDE C08",281,0 )
3130    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN   3130    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN
3131   "RTN","SDE C08",282,0 )   3131   "RTN","SDE C08",282,0 )
3132    S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL   3132    S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL
3133   "RTN","SDE C08",283,0 )   3133   "RTN","SDE C08",283,0 )
3134    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL )   3134    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL )
3135   "RTN","SDE C08",284,0 )   3135   "RTN","SDE C08",284,0 )
3136    ;   3136    ;
3137   "RTN","SDE C08",285,0 )   3137   "RTN","SDE C08",285,0 )
3138    ; get use r who made  appt and  date appt  made from  ^SC   3138    ; get use r who made  appt and  date appt  made from  ^SC
3139   "RTN","SDE C08",286,0 )   3139   "RTN","SDE C08",286,0 )
3140    ;    beca use data i n ^SC will  be delete d   3140    ;    beca use data i n ^SC will  be delete d
3141   "RTN","SDE C08",287,0 )   3141   "RTN","SDE C08",287,0 )
3142    NEW USER, DATE   3142    NEW USER, DATE
3143   "RTN","SDE C08",288,0 )   3143   "RTN","SDE C08",288,0 )
3144    S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6)   3144    S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6)
3145   "RTN","SDE C08",289,0 )   3145   "RTN","SDE C08",289,0 )
3146    S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7)   3146    S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7)
3147   "RTN","SDE C08",290,0 )   3147   "RTN","SDE C08",290,0 )
3148    ;   3148    ;
3149   "RTN","SDE C08",291,0 )   3149   "RTN","SDE C08",291,0 )
3150    ; update  file 2 inf o   3150    ; update  file 2 inf o
3151   "RTN","SDE C08",292,0 )   3151   "RTN","SDE C08",292,0 )
3152    NEW DIE,D A,DR   3152    NEW DIE,D A,DR
3153   "RTN","SDE C08",293,0 )   3153   "RTN","SDE C08",293,0 )
3154    N SDFDA,S DIEN,SDMSG   3154    N SDFDA,S DIEN,SDMSG
3155   "RTN","SDE C08",294,0 )   3155   "RTN","SDE C08",294,0 )
3156    S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )"   3156    S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )"
3157   "RTN","SDE C08",295,0 )   3157   "RTN","SDE C08",295,0 )
3158    S @SDFDA@ (3)=BSDR(" TYP")   3158    S @SDFDA@ (3)=BSDR(" TYP")
3159   "RTN","SDE C08",296,0 )   3159   "RTN","SDE C08",296,0 )
3160    S @SDFDA@ (14)=BSDR( "USR")   3160    S @SDFDA@ (14)=BSDR( "USR")
3161   "RTN","SDE C08",297,0 )   3161   "RTN","SDE C08",297,0 )
3162    S @SDFDA@ (15)=BSDR( "CDT")   3162    S @SDFDA@ (15)=BSDR( "CDT")
3163   "RTN","SDE C08",298,0 )   3163   "RTN","SDE C08",298,0 )
3164    S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" )   3164    S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" )
3165   "RTN","SDE C08",299,0 )   3165   "RTN","SDE C08",299,0 )
3166    S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160)   3166    S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160)
3167   "RTN","SDE C08",300,0 )   3167   "RTN","SDE C08",300,0 )
3168    S @SDFDA@ (19)=USER   3168    S @SDFDA@ (19)=USER
3169   "RTN","SDE C08",301,0 )   3169   "RTN","SDE C08",301,0 )
3170    S @SDFDA@ (20)=DATE   3170    S @SDFDA@ (20)=DATE
3171   "RTN","SDE C08",302,0 )   3171   "RTN","SDE C08",302,0 )
3172    D UPDATE^ DIE("","SD FDA")   3172    D UPDATE^ DIE("","SD FDA")
3173   "RTN","SDE C08",303,0 )   3173   "RTN","SDE C08",303,0 )
3174    N SDPCE   3174    N SDPCE
3175   "RTN","SDE C08",304,0 )   3175   "RTN","SDE C08",304,0 )
3176    S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 )   3176    S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 )
3177   "RTN","SDE C08",305,0 )   3177   "RTN","SDE C08",305,0 )
3178    D:+SDPCE  EN^SDCODEL (SDPCE,2," ","CANCEL" )  ;remove  OUTPATIEN T ENCOUNTE R link  ;* zeb 10/25/ 18 717 pas s in corre ct SDMODE  and delete  source   3178    D:+SDPCE  EN^SDCODEL (SDPCE,2," ","CANCEL" )  ;remove  OUTPATIEN T ENCOUNTE R link  ;* zeb 10/25/ 18 717 pas s in corre ct SDMODE  and delete  source
3179   "RTN","SDE C08",306,0 )   3179   "RTN","SDE C08",306,0 )
3180    ;   3180    ;
3181   "RTN","SDE C08",307,0 )   3181   "RTN","SDE C08",307,0 )
3182    ; cancel  appointmen t in ^SC   3182    ; cancel  appointmen t in ^SC
3183   "RTN","SDE C08",308,0 )   3183   "RTN","SDE C08",308,0 )
3184    ;NEW DIK, DA  ;*zeb+ 4 722 2/21 /19 mark a s canceled  instead o f (failing  to) delet e so expan d entry wo rks correc tly   3184    ;NEW DIK, DA  ;*zeb+ 4 722 2/21 /19 mark a s canceled  instead o f (failing  to) delet e so expan d entry wo rks correc tly
3185   "RTN","SDE C08",309,0 )   3185   "RTN","SDE C08",309,0 )
3186    ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1,"   3186    ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1,"
3187   "RTN","SDE C08",310,0 )   3187   "RTN","SDE C08",310,0 )
3188    ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN   3188    ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN
3189   "RTN","SDE C08",311,0 )   3189   "RTN","SDE C08",311,0 )
3190    ;D ^DIK   3190    ;D ^DIK
3191   "RTN","SDE C08",312,0 )   3191   "RTN","SDE C08",312,0 )
3192    S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C"   3192    S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C"
3193   "RTN","SDE C08",313,0 )   3193   "RTN","SDE C08",313,0 )
3194    ; call ev ent driver   3194    ; call ev ent driver
3195   "RTN","SDE C08",314,0 )   3195   "RTN","SDE C08",314,0 )
3196    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL   3196    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
3197   "RTN","SDE C08",315,0 )   3197   "RTN","SDE C08",315,0 )
3198    D CANCEL^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDMODE, SDCPHDL)   ;*zeb 10/2 5/18 717 u ncomment t o re-enabl e event dr iver   3198    D CANCEL^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDMODE, SDCPHDL)   ;*zeb 10/2 5/18 717 u ncomment t o re-enabl e event dr iver
3199   "RTN","SDE C08",316,0 )   3199   "RTN","SDE C08",316,0 )
3200    Q 0   3200    Q 0
3201   "RTN","SDE C08",317,0 )   3201   "RTN","SDE C08",317,0 )
3202    ;   3202    ;
3203   "RTN","SDE C08",318,0 )   3203   "RTN","SDE C08",318,0 )
3204   UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment   3204   UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment
3205   "RTN","SDE C08",319,0 )   3205   "RTN","SDE C08",319,0 )
3206    ;UNDOCANA (SDECY,SDE CAPTID)  e xternal pa rameter ta g in SDEC   3206    ;UNDOCANA (SDECY,SDE CAPTID)  e xternal pa rameter ta g in SDEC
3207   "RTN","SDE C08",320,0 )   3207   "RTN","SDE C08",320,0 )
3208    ;called b y SDEC UNC ANCEL APPT   3208    ;called b y SDEC UNC ANCEL APPT
3209   "RTN","SDE C08",321,0 )   3209   "RTN","SDE C08",321,0 )
3210    ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file  409.84   3210    ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file  409.84
3211   "RTN","SDE C08",322,0 )   3211   "RTN","SDE C08",322,0 )
3212    N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT   3212    N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT
3213   "RTN","SDE C08",323,0 )   3213   "RTN","SDE C08",323,0 )
3214    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l  ;is thi s used?   3214    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l  ;is thi s used?
3215   "RTN","SDE C08",324,0 )   3215   "RTN","SDE C08",324,0 )
3216    ;   3216    ;
3217   "RTN","SDE C08",325,0 )   3217   "RTN","SDE C08",325,0 )
3218    S SDECI=0   3218    S SDECI=0
3219   "RTN","SDE C08",326,0 )   3219   "RTN","SDE C08",326,0 )
3220    K ^TMP("S DEC",$J)   3220    K ^TMP("S DEC",$J)
3221   "RTN","SDE C08",327,0 )   3221   "RTN","SDE C08",327,0 )
3222    S SDECY=" ^TMP(""SDE C"","_$J_" )"   3222    S SDECY=" ^TMP(""SDE C"","_$J_" )"
3223   "RTN","SDE C08",328,0 )   3223   "RTN","SDE C08",328,0 )
3224    S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30)   3224    S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30)
3225   "RTN","SDE C08",329,0 )   3225   "RTN","SDE C08",329,0 )
3226    TSTART   3226    TSTART
3227   "RTN","SDE C08",330,0 )   3227   "RTN","SDE C08",330,0 )
3228    I '+SDECA PTID TROLL BACK  D ER R(SDECI+1, "Invalid A ppointment  ID.") Q   3228    I '+SDECA PTID TROLL BACK  D ER R(SDECI+1, "Invalid A ppointment  ID.") Q
3229   "RTN","SDE C08",331,0 )   3229   "RTN","SDE C08",331,0 )
3230    I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK  D ERR (SDECI+1," Invalid Ap pointment  ID") Q   3230    I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK  D ERR (SDECI+1," Invalid Ap pointment  ID") Q
3231   "RTN","SDE C08",332,0 )   3231   "RTN","SDE C08",332,0 )
3232    ;Make sur e appointm ent is can celled   3232    ;Make sur e appointm ent is can celled
3233   "RTN","SDE C08",333,0 )   3233   "RTN","SDE C08",333,0 )
3234    I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK  D ERR( SDECI+1,"A ppointment  is not Ca ncelled.")  Q   3234    I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK  D ERR( SDECI+1,"A ppointment  is not Ca ncelled.")  Q
3235   "RTN","SDE C08",334,0 )   3235   "RTN","SDE C08",334,0 )
3236    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   3236    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
3237   "RTN","SDE C08",335,0 )   3237   "RTN","SDE C08",335,0 )
3238    ;appts ca ncelled by  patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */   3238    ;appts ca ncelled by  patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */
3239   "RTN","SDE C08",336,0 )   3239   "RTN","SDE C08",336,0 )
3240    ;I $P(^DP T($P(SDECN OD,U,5),"S ",$P(SDECN OD,U,1),0) ,U,2)="PC"  TROLLBACK   D ERR(SD ECI+1,"Can celled by  patient ap pointment  cannot be  uncancelle d.") Q   3240    ;I $P(^DP T($P(SDECN OD,U,5),"S ",$P(SDECN OD,U,1),0) ,U,2)="PC"  TROLLBACK   D ERR(SD ECI+1,"Can celled by  patient ap pointment  cannot be  uncancelle d.") Q
3241   "RTN","SDE C08",337,0 )   3241   "RTN","SDE C08",337,0 )
3242    ;get appo intment da ta   3242    ;get appo intment da ta
3243   "RTN","SDE C08",338,0 )   3243   "RTN","SDE C08",338,0 )
3244    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   3244    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
3245   "RTN","SDE C08",339,0 )   3245   "RTN","SDE C08",339,0 )
3246    S SDECDAM =$P(SDECNO D,U,9)                    ;date  appt made   3246    S SDECDAM =$P(SDECNO D,U,9)                    ;date  appt made
3247   "RTN","SDE C08",340,0 )   3247   "RTN","SDE C08",340,0 )
3248    S SDECDEC =$P(SDECNO D,U,8)                    ;data  entry cler k   3248    S SDECDEC =$P(SDECNO D,U,8)                    ;data  entry cler k
3249   "RTN","SDE C08",341,0 )   3249   "RTN","SDE C08",341,0 )
3250    S SDECLEN =$P(SDECNO D,U,18)                   ;lengt h of appt  in minutes   3250    S SDECLEN =$P(SDECNO D,U,18)                   ;lengt h of appt  in minutes
3251   "RTN","SDE C08",342,0 )   3251   "RTN","SDE C08",342,0 )
3252    S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0))  ;no te from SD EC APPOINT MENT   3252    S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0))  ;no te from SD EC APPOINT MENT
3253   "RTN","SDE C08",343,0 )   3253   "RTN","SDE C08",343,0 )
3254    S SDECPAT ID=$P(SDEC NOD,U,5)                  ;point er to VA P ATIENT fil e 2   3254    S SDECPAT ID=$P(SDEC NOD,U,5)                  ;point er to VA P ATIENT fil e 2
3255   "RTN","SDE C08",344,0 )   3255   "RTN","SDE C08",344,0 )
3256    S SDECSC1 =$P($G(SDE CNOD),U,7)                ;resou rce   3256    S SDECSC1 =$P($G(SDE CNOD),U,7)                ;resou rce
3257   "RTN","SDE C08",345,0 )   3257   "RTN","SDE C08",345,0 )
3258    S SDECSTA RT=$P(SDEC NOD,U)                    ;appt  start time   3258    S SDECSTA RT=$P(SDEC NOD,U)                    ;appt  start time
3259   "RTN","SDE C08",346,0 )   3259   "RTN","SDE C08",346,0 )
3260    S SDECWKI N=$P($G(SD ECNOD),U,1 3)             ;walk- in   3260    S SDECWKI N=$P($G(SD ECNOD),U,1 3)             ;walk- in
3261   "RTN","SDE C08",347,0 )   3261   "RTN","SDE C08",347,0 )
3262    ;lock SDE C node   3262    ;lock SDE C node
3263   "RTN","SDE C08",348,0 )   3263   "RTN","SDE C08",348,0 )
3264    L +^SDEC( 409.84,SDE CPATID):5  I '$T D ER R(SDECI+1, "Another u ser is wor king with  this patie nt's recor d.  Please  try again  later") T ROLLBACK   Q   3264    L +^SDEC( 409.84,SDE CPATID):5  I '$T D ER R(SDECI+1, "Another u ser is wor king with  this patie nt's recor d.  Please  try again  later") T ROLLBACK   Q
3265   "RTN","SDE C08",349,0 )   3265   "RTN","SDE C08",349,0 )
3266    ;un-cance l SDEC APP OINTMENT   3266    ;un-cance l SDEC APP OINTMENT
3267   "RTN","SDE C08",350,0 )   3267   "RTN","SDE C08",350,0 )
3268    D SDECUCA N(SDECAPTI D)   3268    D SDECUCA N(SDECAPTI D)
3269   "RTN","SDE C08",351,0 )   3269   "RTN","SDE C08",351,0 )
3270    I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D  I +$ G(SDECZ) S  SDECERR=S DECERR_$P( SDECZ,U,2)  D ERR(SDE CI,SDECERR ) Q   3270    I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D  I +$ G(SDECZ) S  SDECERR=S DECERR_$P( SDECZ,U,2)  D ERR(SDE CI,SDECERR ) Q
3271   "RTN","SDE C08",352,0 )   3271   "RTN","SDE C08",352,0 )
3272    . S SDECL OC=""   3272    . S SDECL OC=""
3273   "RTN","SDE C08",353,0 )   3273   "RTN","SDE C08",353,0 )
3274    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)   3274    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)
3275   "RTN","SDE C08",354,0 )   3275   "RTN","SDE C08",354,0 )
3276    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION    ;support f or single  HOSPITAL L OCATION in  SDEC RESO URCE   3276    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION    ;support f or single  HOSPITAL L OCATION in  SDEC RESO URCE
3277   "RTN","SDE C08",355,0 )   3277   "RTN","SDE C08",355,0 )
3278    . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID )  ;HOSPIT AL LOCATIO N   3278    . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID )  ;HOSPIT AL LOCATIO N
3279   "RTN","SDE C08",356,0 )   3279   "RTN","SDE C08",356,0 )
3280    . Q:'+SDE CLOC   3280    . Q:'+SDE CLOC
3281   "RTN","SDE C08",357,0 )   3281   "RTN","SDE C08",357,0 )
3282    . ;un-can cel patien t appointm ent and re -instate c linic appo intment   3282    . ;un-can cel patien t appointm ent and re -instate c linic appo intment
3283   "RTN","SDE C08",358,0 )   3283   "RTN","SDE C08",358,0 )
3284    . S SDECZ =""   3284    . S SDECZ =""
3285   "RTN","SDE C08",359,0 )   3285   "RTN","SDE C08",359,0 )
3286    . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN)   3286    . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN)
3287   "RTN","SDE C08",360,0 )   3287   "RTN","SDE C08",360,0 )
3288    TCOMMIT   3288    TCOMMIT
3289   "RTN","SDE C08",361,0 )   3289   "RTN","SDE C08",361,0 )
3290    L -^SDEC( 409.84,SDE CPATID)   3290    L -^SDEC( 409.84,SDE CPATID)
3291   "RTN","SDE C08",362,0 )   3291   "RTN","SDE C08",362,0 )
3292    S SDECI=S DECI+1   3292    S SDECI=S DECI+1
3293   "RTN","SDE C08",363,0 )   3293   "RTN","SDE C08",363,0 )
3294    S ^TMP("S DEC",$J,SD ECI)=""_$C (30)   3294    S ^TMP("S DEC",$J,SD ECI)=""_$C (30)
3295   "RTN","SDE C08",364,0 )   3295   "RTN","SDE C08",364,0 )
3296    S SDECI=S DECI+1   3296    S SDECI=S DECI+1
3297   "RTN","SDE C08",365,0 )   3297   "RTN","SDE C08",365,0 )
3298    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   3298    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
3299   "RTN","SDE C08",366,0 )   3299   "RTN","SDE C08",366,0 )
3300    Q   3300    Q
3301   "RTN","SDE C08",367,0 )   3301   "RTN","SDE C08",367,0 )
3302    ;   3302    ;
3303   "RTN","SDE C08",368,0 )   3303   "RTN","SDE C08",368,0 )
3304   SDECUCAN(S DECAPTID)  ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time   3304   SDECUCAN(S DECAPTID)  ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time
3305   "RTN","SDE C08",369,0 )   3305   "RTN","SDE C08",369,0 )
3306    N PROVIEN ,SDAPTYP,S DCL,SDRES   3306    N PROVIEN ,SDAPTYP,S DCL,SDRES
3307   "RTN","SDE C08",370,0 )   3307   "RTN","SDE C08",370,0 )
3308    S SDECIEN S=SDECAPTI D_","   3308    S SDECIEN S=SDECAPTI D_","
3309   "RTN","SDE C08",371,0 )   3309   "RTN","SDE C08",371,0 )
3310    S SDECFDA (409.84,SD ECIENS,.12 )=""   3310    S SDECFDA (409.84,SD ECIENS,.12 )=""
3311   "RTN","SDE C08",372,0 )   3311   "RTN","SDE C08",372,0 )
3312    K SDECMSG   3312    K SDECMSG
3313   "RTN","SDE C08",373,0 )   3313   "RTN","SDE C08",373,0 )
3314    D FILE^DI E("","SDEC FDA","SDEC MSG")   3314    D FILE^DI E("","SDEC FDA","SDEC MSG")
3315   "RTN","SDE C08",374,0 )   3315   "RTN","SDE C08",374,0 )
3316    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )   3316    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
3317   "RTN","SDE C08",375,0 )   3317   "RTN","SDE C08",375,0 )
3318    I $P(SDAP TYP,";",2) ="GMR(123, " D   3318    I $P(SDAP TYP,";",2) ="GMR(123, " D
3319   "RTN","SDE C08",376,0 )   3319   "RTN","SDE C08",376,0 )
3320    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)   3320    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
3321   "RTN","SDE C08",377,0 )   3321   "RTN","SDE C08",377,0 )
3322    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")   3322    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
3323   "RTN","SDE C08",378,0 )   3323   "RTN","SDE C08",378,0 )
3324    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1)   3324    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1)
3325   "RTN","SDE C08",379,0 )   3325   "RTN","SDE C08",379,0 )
3326    Q   3326    Q
3327   "RTN","SDE C08",380,0 )   3327   "RTN","SDE C08",380,0 )
3328    ;   3328    ;
3329   "RTN","SDE C08",381,0 )   3329   "RTN","SDE C08",381,0 )
3330   APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ;   3330   APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ;
3331   "RTN","SDE C08",382,0 )   3331   "RTN","SDE C08",382,0 )
3332    ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1   3332    ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1
3333   "RTN","SDE C08",383,0 )   3333   "RTN","SDE C08",383,0 )
3334    ;  SDECLO C   = poin ter to hos pital loca tion ^SC f ile 44   3334    ;  SDECLO C   = poin ter to hos pital loca tion ^SC f ile 44
3335   "RTN","SDE C08",384,0 )   3335   "RTN","SDE C08",384,0 )
3336    ;  SDECPA TID = poin ter to VA  Patient ^D PT file 2   3336    ;  SDECPA TID = poin ter to VA  Patient ^D PT file 2
3337   "RTN","SDE C08",385,0 )   3337   "RTN","SDE C08",385,0 )
3338    ;  SDECST ART = Appo intment ti me   3338    ;  SDECST ART = Appo intment ti me
3339   "RTN","SDE C08",386,0 )   3339   "RTN","SDE C08",386,0 )
3340    ;  SDECDA M   = Date  appointme nt made in  FM format   3340    ;  SDECDA M   = Date  appointme nt made in  FM format
3341   "RTN","SDE C08",387,0 )   3341   "RTN","SDE C08",387,0 )
3342    ;  SDECDE C   = Data  entry cle rk - point er to NEW  PERSON fil e 200   3342    ;  SDECDE C   = Data  entry cle rk - point er to NEW  PERSON fil e 200
3343   "RTN","SDE C08",388,0 )   3343   "RTN","SDE C08",388,0 )
3344    N SDECC,% H   3344    N SDECC,% H
3345   "RTN","SDE C08",389,0 )   3345   "RTN","SDE C08",389,0 )
3346    S SDECC(" PAT")=SDEC PATID   3346    S SDECC(" PAT")=SDEC PATID
3347   "RTN","SDE C08",390,0 )   3347   "RTN","SDE C08",390,0 )
3348    S SDECC(" CLN")=SDEC LOC   3348    S SDECC(" CLN")=SDEC LOC
3349   "RTN","SDE C08",391,0 )   3349   "RTN","SDE C08",391,0 )
3350    S SDECC(" ADT")=SDEC START   3350    S SDECC(" ADT")=SDEC START
3351   "RTN","SDE C08",392,0 )   3351   "RTN","SDE C08",392,0 )
3352    S SDECC(" NOTE")=SDE CNOTE  ;us er note   3352    S SDECC(" NOTE")=SDE CNOTE  ;us er note
3353   "RTN","SDE C08",393,0 )   3353   "RTN","SDE C08",393,0 )
3354    S SDECC(" RES")=SDEC RES   3354    S SDECC(" RES")=SDEC RES
3355   "RTN","SDE C08",394,0 )   3355   "RTN","SDE C08",394,0 )
3356    S SDECC(" USR")=DUZ   3356    S SDECC(" USR")=DUZ
3357   "RTN","SDE C08",395,0 )   3357   "RTN","SDE C08",395,0 )
3358    S SDECC(" LEN")=SDEC LEN   3358    S SDECC(" LEN")=SDEC LEN
3359   "RTN","SDE C08",396,0 )   3359   "RTN","SDE C08",396,0 )
3360    S SDECC(" WKIN")=SDE CWKIN   3360    S SDECC(" WKIN")=SDE CWKIN
3361   "RTN","SDE C08",397,0 )   3361   "RTN","SDE C08",397,0 )
3362    ;   3362    ;
3363   "RTN","SDE C08",398,0 )   3363   "RTN","SDE C08",398,0 )
3364    S SDECZ=$ $UNCANCEL( .SDECC)   3364    S SDECZ=$ $UNCANCEL( .SDECC)
3365   "RTN","SDE C08",399,0 )   3365   "RTN","SDE C08",399,0 )
3366    Q   3366    Q
3367   "RTN","SDE C08",400,0 )   3367   "RTN","SDE C08",400,0 )
3368    ;   3368    ;
3369   "RTN","SDE C08",401,0 )   3369   "RTN","SDE C08",401,0 )
3370   UNCANCEL(B SDR) ;PEP;  called to  un-cancel  appt   3370   UNCANCEL(B SDR) ;PEP;  called to  un-cancel  appt
3371   "RTN","SDE C08",402,0 )   3371   "RTN","SDE C08",402,0 )
3372    ;   3372    ;
3373   "RTN","SDE C08",403,0 )   3373   "RTN","SDE C08",403,0 )
3374    ; Make ca ll using:  S ERR=$$UN CANCEL(.AR RAY)   3374    ; Make ca ll using:  S ERR=$$UN CANCEL(.AR RAY)
3375   "RTN","SDE C08",404,0 )   3375   "RTN","SDE C08",404,0 )
3376    ;   3376    ;
3377   "RTN","SDE C08",405,0 )   3377   "RTN","SDE C08",405,0 )
3378    ; Input A rray -   3378    ; Input A rray -
3379   "RTN","SDE C08",406,0 )   3379   "RTN","SDE C08",406,0 )
3380    ; BSDR("P AT") = ien  of patien t in file  2   3380    ; BSDR("P AT") = ien  of patien t in file  2
3381   "RTN","SDE C08",407,0 )   3381   "RTN","SDE C08",407,0 )
3382    ; BSDR("C LN") = ien  of clinic  in file 4 4   3382    ; BSDR("C LN") = ien  of clinic  in file 4 4
3383   "RTN","SDE C08",408,0 )   3383   "RTN","SDE C08",408,0 )
3384    ; BSDR("A DT") = app ointment d ate and ti me   3384    ; BSDR("A DT") = app ointment d ate and ti me
3385   "RTN","SDE C08",409,0 )   3385   "RTN","SDE C08",409,0 )
3386    ; BSDR("U SR") = use r who un-c anceled ap pt   3386    ; BSDR("U SR") = use r who un-c anceled ap pt
3387   "RTN","SDE C08",410,0 )   3387   "RTN","SDE C08",410,0 )
3388    ; BSDR("N OTE") = ap pointment  note from  SDEC APPOI NTMENT   3388    ; BSDR("N OTE") = ap pointment  note from  SDEC APPOI NTMENT
3389   "RTN","SDE C08",411,0 )   3389   "RTN","SDE C08",411,0 )
3390    ; BSDR("L EN") = app t length i n minutes  (numeric)   3390    ; BSDR("L EN") = app t length i n minutes  (numeric)
3391   "RTN","SDE C08",412,0 )   3391   "RTN","SDE C08",412,0 )
3392    ; BSDR("R ES") = res ource   3392    ; BSDR("R ES") = res ource
3393   "RTN","SDE C08",413,0 )   3393   "RTN","SDE C08",413,0 )
3394    ; BSDR("W KIN")= wal k-in   3394    ; BSDR("W KIN")= wal k-in
3395   "RTN","SDE C08",414,0 )   3395   "RTN","SDE C08",414,0 )
3396    ;   3396    ;
3397   "RTN","SDE C08",415,0 )   3397   "RTN","SDE C08",415,0 )
3398    ;Output:  error stat us and mes sage   3398    ;Output:  error stat us and mes sage
3399   "RTN","SDE C08",416,0 )   3399   "RTN","SDE C08",416,0 )
3400    ;   = 0 o r null:  e verything  okay   3400    ;   = 0 o r null:  e verything  okay
3401   "RTN","SDE C08",417,0 )   3401   "RTN","SDE C08",417,0 )
3402    ;   = 1^m essage:  e rror and r eason   3402    ;   = 1^m essage:  e rror and r eason
3403   "RTN","SDE C08",418,0 )   3403   "RTN","SDE C08",418,0 )
3404    ;   3404    ;
3405   "RTN","SDE C08",419,0 )   3405   "RTN","SDE C08",419,0 )
3406    N DPTNOD, DPTNODR   3406    N DPTNOD, DPTNODR
3407   "RTN","SDE C08",420,0 )   3407   "RTN","SDE C08",420,0 )
3408    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))   3408    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))
3409   "RTN","SDE C08",421,0 )   3409   "RTN","SDE C08",421,0 )
3410    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))   3410    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))
3411   "RTN","SDE C08",422,0 )   3411   "RTN","SDE C08",422,0 )
3412    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s   3412    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
3413   "RTN","SDE C08",423,0 )   3413   "RTN","SDE C08",423,0 )
3414    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))   3414    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))
3415   "RTN","SDE C08",424,0 )   3415   "RTN","SDE C08",424,0 )
3416    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))   3416    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))
3417   "RTN","SDE C08",425,0 )   3417   "RTN","SDE C08",425,0 )
3418    ;   3418    ;
3419   "RTN","SDE C08",426,0 )   3419   "RTN","SDE C08",426,0 )
3420    S SDECERR =$$APPVIST A^SDEC07B( BSDR("LEN" ),BSDR("NO TE"),BSDR( "PAT"),BSD R("RES"),B SDR("ADT") ,BSDR("WKI N"),BSDR(" CLN"),.SDE CI)  ;alb/ sat 665 AP PVISTA mov ed to SDEC 07B   3420    S SDECERR =$$APPVIST A^SDEC07B( BSDR("LEN" ),BSDR("NO TE"),BSDR( "PAT"),BSD R("RES"),B SDR("ADT") ,BSDR("WKI N"),BSDR(" CLN"),.SDE CI)  ;alb/ sat 665 AP PVISTA mov ed to SDEC 07B
3421   "RTN","SDE C08",427,0 )   3421   "RTN","SDE C08",427,0 )
3422    Q SDECERR   3422    Q SDECERR
3423   "RTN","SDE C08",428,0 )   3423   "RTN","SDE C08",428,0 )
3424    ;   3424    ;
3425   "RTN","SDE C08",429,0 )   3425   "RTN","SDE C08",429,0 )
3426   ERR(SDECI, SDECERR) ; Error proc essing   3426   ERR(SDECI, SDECERR) ; Error proc essing
3427   "RTN","SDE C08",430,0 )   3427   "RTN","SDE C08",430,0 )
3428    S SDECI=S DECI+1   3428    S SDECI=S DECI+1
3429   "RTN","SDE C08",431,0 )   3429   "RTN","SDE C08",431,0 )
3430    S SDECERR =$TR(SDECE RR,"^","~" )   3430    S SDECERR =$TR(SDECE RR,"^","~" )
3431   "RTN","SDE C08",432,0 )   3431   "RTN","SDE C08",432,0 )
3432    TROLLBACK   3432    TROLLBACK
3433   "RTN","SDE C08",433,0 )   3433   "RTN","SDE C08",433,0 )
3434    S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30)   3434    S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30)
3435   "RTN","SDE C08",434,0 )   3435   "RTN","SDE C08",434,0 )
3436    S SDECI=S DECI+1   3436    S SDECI=S DECI+1
3437   "RTN","SDE C08",435,0 )   3437   "RTN","SDE C08",435,0 )
3438    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   3438    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
3439   "RTN","SDE C08",436,0 )   3439   "RTN","SDE C08",436,0 )
3440    Q   3440    Q
3441   "RTN","SDE C08",437,0 )   3441   "RTN","SDE C08",437,0 )
3442    ;   3442    ;
3443   "RTN","SDE C08",438,0 )   3443   "RTN","SDE C08",438,0 )
3444   ETRAP ;EP  Error trap  entry   3444   ETRAP ;EP  Error trap  entry
3445   "RTN","SDE C08",439,0 )   3445   "RTN","SDE C08",439,0 )
3446    D ^%ZTER   3446    D ^%ZTER
3447   "RTN","SDE C08",440,0 )   3447   "RTN","SDE C08",440,0 )
3448    I '$D(SDE CI) N SDEC I S SDECI= 999999   3448    I '$D(SDE CI) N SDEC I S SDECI= 999999
3449   "RTN","SDE C08",441,0 )   3449   "RTN","SDE C08",441,0 )
3450    S SDECI=S DECI+1   3450    S SDECI=S DECI+1
3451   "RTN","SDE C08",442,0 )   3451   "RTN","SDE C08",442,0 )
3452    D ERR(SDE CI,"SDEC08  Error")   3452    D ERR(SDE CI,"SDEC08  Error")
3453   "RTN","SDE C08",443,0 )   3453   "RTN","SDE C08",443,0 )
3454    Q   3454    Q
3455   "RTN","SDE C25")   3455   "RTN","SDE C25")
3456   0^6^B15147 2805^B1152 73682   3456   0^6^B15147 2805^B1152 73682
3457   "RTN","SDE C25",1,0)   3457   "RTN","SDE C25",1,0)
3458   SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;MAY 15, 2 017   3458   SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;MAY 15, 2 017
3459   "RTN","SDE C25",2,0)   3459   "RTN","SDE C25",2,0)
3460    ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7   3460    ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7
3461   "RTN","SDE C25",3,0)   3461   "RTN","SDE C25",3,0)
3462    ;   3462    ;
3463   "RTN","SDE C25",4,0)   3463   "RTN","SDE C25",4,0)
3464    Q   3464    Q
3465   "RTN","SDE C25",5,0)   3465   "RTN","SDE C25",5,0)
3466    ;   3466    ;
3467   "RTN","SDE C25",6,0)   3467   "RTN","SDE C25",6,0)
3468   CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;Check i n appointm ent   3468   CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;Check i n appointm ent
3469   "RTN","SDE C25",7,0)   3469   "RTN","SDE C25",7,0)
3470    ;CHECKIN( SDECY,SDEC APTID,SDEC CDT,SDECCC ,SDECPRV,S DECROU,SDE CVCL,SDECV FM,SDECOG, SDECCR,SDE CPCC,SDECW HF)   3470    ;CHECKIN( SDECY,SDEC APTID,SDEC CDT,SDECCC ,SDECPRV,S DECROU,SDE CVCL,SDECV FM,SDECOG, SDECCR,SDE CPCC,SDECW HF)
3471   "RTN","SDE C25",8,0)   3471   "RTN","SDE C25",8,0)
3472    ;  extern al paramet er tag is  in SDEC   3472    ;  extern al paramet er tag is  in SDEC
3473   "RTN","SDE C25",9,0)   3473   "RTN","SDE C25",9,0)
3474    ;   3474    ;
3475   "RTN","SDE C25",10,0)   3475   "RTN","SDE C25",10,0)
3476    ; INPUT:  SDECAPTID  - (require d) Appoint ment ID   3476    ; INPUT:  SDECAPTID  - (require d) Appoint ment ID
3477   "RTN","SDE C25",11,0)   3477   "RTN","SDE C25",11,0)
3478    ;         SDECCDT    - (optiona l) Check-i n date/tim e   3478    ;         SDECCDT    - (optiona l) Check-i n date/tim e
3479   "RTN","SDE C25",12,0)   3479   "RTN","SDE C25",12,0)
3480    ;                                  "@" - i ndicates d elete chec k-in   3480    ;                                  "@" - i ndicates d elete chec k-in
3481   "RTN","SDE C25",13,0)   3481   "RTN","SDE C25",13,0)
3482    ;         SDECCC     - (??????? ?) Clinic  Stop point er to CLIN IC STOP fi le   3482    ;         SDECCC     - (??????? ?) Clinic  Stop point er to CLIN IC STOP fi le
3483   "RTN","SDE C25",14,0)   3483   "RTN","SDE C25",14,0)
3484    ;         SDECPRV    - (optiona l) Provide r pointer  to NEW PER SON file   3484    ;         SDECPRV    - (optiona l) Provide r pointer  to NEW PER SON file
3485   "RTN","SDE C25",15,0)   3485   "RTN","SDE C25",15,0)
3486    ;                                  default  to curren t user   3486    ;                                  default  to curren t user
3487   "RTN","SDE C25",16,0)   3487   "RTN","SDE C25",16,0)
3488    ;         SDECROU    - (optiona l) Print R outing Sli p flag, va lid values :   3488    ;         SDECROU    - (optiona l) Print R outing Sli p flag, va lid values :
3489   "RTN","SDE C25",17,0)   3489   "RTN","SDE C25",17,0)
3490    ;                                    0=fal se   1=tru e   3490    ;                                    0=fal se   1=tru e
3491   "RTN","SDE C25",18,0)   3491   "RTN","SDE C25",18,0)
3492    ;         SDECVCL    - (??????? ?) Clinic  pointer to  HOSPITAL  LOCATION   3492    ;         SDECVCL    - (??????? ?) Clinic  pointer to  HOSPITAL  LOCATION
3493   "RTN","SDE C25",19,0)   3493   "RTN","SDE C25",19,0)
3494    ;         SDECVFM    - FORM   3494    ;         SDECVFM    - FORM
3495   "RTN","SDE C25",20,0)   3495   "RTN","SDE C25",20,0)
3496    ;         SDECOG     - OUTGUIDE  FLAG   3496    ;         SDECOG     - OUTGUIDE  FLAG
3497   "RTN","SDE C25",21,0)   3497   "RTN","SDE C25",21,0)
3498    ;         SDECCR     - Generate  Chart req uest upon  check-in?  (1-Yes, ot herwise no )   3498    ;         SDECCR     - Generate  Chart req uest upon  check-in?  (1-Yes, ot herwise no )
3499   "RTN","SDE C25",22,0)   3499   "RTN","SDE C25",22,0)
3500    ;         SDECPCC    - ien of P WH Type in  HEALTH SU MMARY PWH  TYPE file  ^APCHPWHT   3500    ;         SDECPCC    - ien of P WH Type in  HEALTH SU MMARY PWH  TYPE file  ^APCHPWHT
3501   "RTN","SDE C25",23,0)   3501   "RTN","SDE C25",23,0)
3502    ;         SDECWHF    - Print Pa tient Well ness Hando ut flag   3502    ;         SDECWHF    - Print Pa tient Well ness Hando ut flag
3503   "RTN","SDE C25",24,0)   3503   "RTN","SDE C25",24,0)
3504    ;   3504    ;
3505   "RTN","SDE C25",25,0)   3505   "RTN","SDE C25",25,0)
3506   ENDBG ;   3506   ENDBG ;
3507   "RTN","SDE C25",26,0)   3507   "RTN","SDE C25",26,0)
3508    N BSDVSTN ,EMSG   3508    N BSDVSTN ,EMSG
3509   "RTN","SDE C25",27,0)   3509   "RTN","SDE C25",27,0)
3510    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN   3510    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN
3511   "RTN","SDE C25",28,0)   3511   "RTN","SDE C25",28,0)
3512    N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y   3512    N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y
3513   "RTN","SDE C25",29,0)   3513   "RTN","SDE C25",29,0)
3514    S SDECNOE V=1 ;Don't  execute p rotocol   3514    S SDECNOE V=1 ;Don't  execute p rotocol
3515   "RTN","SDE C25",30,0)   3515   "RTN","SDE C25",30,0)
3516    S SDECCAN =0   3516    S SDECCAN =0
3517   "RTN","SDE C25",31,0)   3517   "RTN","SDE C25",31,0)
3518    ;   3518    ;
3519   "RTN","SDE C25",32,0)   3519   "RTN","SDE C25",32,0)
3520    S SDECI=0   3520    S SDECI=0
3521   "RTN","SDE C25",33,0)   3521   "RTN","SDE C25",33,0)
3522    K ^TMP("S DEC",$J)   3522    K ^TMP("S DEC",$J)
3523   "RTN","SDE C25",34,0)   3523   "RTN","SDE C25",34,0)
3524    S SDECY=" ^TMP(""SDE C"","_$J_" )"   3524    S SDECY=" ^TMP(""SDE C"","_$J_" )"
3525   "RTN","SDE C25",35,0)   3525   "RTN","SDE C25",35,0)
3526    S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30)   3526    S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30)
3527   "RTN","SDE C25",36,0)   3527   "RTN","SDE C25",36,0)
3528    ;validate  SDEC appo intment ID   3528    ;validate  SDEC appo intment ID
3529   "RTN","SDE C25",37,0)   3529   "RTN","SDE C25",37,0)
3530    I '+$G(SD ECAPTID) D  ERR("SDEC 25: Invali d Appointm ent ID") Q   3530    I '+$G(SD ECAPTID) D  ERR("SDEC 25: Invali d Appointm ent ID") Q
3531   "RTN","SDE C25",38,0)   3531   "RTN","SDE C25",38,0)
3532    I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25:  Invalid Ap pointment  ID") Q   3532    I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25:  Invalid Ap pointment  ID") Q
3533   "RTN","SDE C25",39,0)   3533   "RTN","SDE C25",39,0)
3534    ;validate  checkin d ate/time ( required)   3534    ;validate  checkin d ate/time ( required)
3535   "RTN","SDE C25",40,0)   3535   "RTN","SDE C25",40,0)
3536    S SDECCDT =$G(SDECCD T)   3536    S SDECCDT =$G(SDECCD T)
3537   "RTN","SDE C25",41,0)   3537   "RTN","SDE C25",41,0)
3538    S:SDECCDT ="@" SDECC AN=1   3538    S:SDECCDT ="@" SDECC AN=1
3539   "RTN","SDE C25",42,0)   3539   "RTN","SDE C25",42,0)
3540    I 'SDECCA N,SDECCDT' ="" S %DT= "T" S X=SD ECCDT D ^% DT S SDECC DT=Y I Y=- 1 S SDECCD T=""   3540    I 'SDECCA N,SDECCDT' ="" S %DT= "T" S X=SD ECCDT D ^% DT S SDECC DT=Y I Y=- 1 S SDECCD T=""
3541   "RTN","SDE C25",43,0)   3541   "RTN","SDE C25",43,0)
3542    I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q   3542    I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q
3543   "RTN","SDE C25",44,0)   3543   "RTN","SDE C25",44,0)
3544    ;validate  clinic st op code   3544    ;validate  clinic st op code
3545   "RTN","SDE C25",45,0)   3545   "RTN","SDE C25",45,0)
3546    S SDECCC= $G(SDECCC)   3546    S SDECCC= $G(SDECCC)
3547   "RTN","SDE C25",46,0)   3547   "RTN","SDE C25",46,0)
3548    I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0))  S SDECCC= ""   3548    I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0))  S SDECCC= ""
3549   "RTN","SDE C25",47,0)   3549   "RTN","SDE C25",47,0)
3550    ;validate  provider  (optional)   3550    ;validate  provider  (optional)
3551   "RTN","SDE C25",48,0)   3551   "RTN","SDE C25",48,0)
3552    S SDECPRV =$G(SDECPR V)   3552    S SDECPRV =$G(SDECPR V)
3553   "RTN","SDE C25",49,0)   3553   "RTN","SDE C25",49,0)
3554    I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V=""   3554    I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V=""
3555   "RTN","SDE C25",50,0)   3555   "RTN","SDE C25",50,0)
3556    ;I SDECPR V="" S SDE CPRV=DUZ   3556    ;I SDECPR V="" S SDE CPRV=DUZ
3557   "RTN","SDE C25",51,0)   3557   "RTN","SDE C25",51,0)
3558    ;I SDECPR V="" S SDE CPRV=""   3558    ;I SDECPR V="" S SDE CPRV=""
3559   "RTN","SDE C25",52,0)   3559   "RTN","SDE C25",52,0)
3560    ;validate  routine s lip flag ( optional)   3560    ;validate  routine s lip flag ( optional)
3561   "RTN","SDE C25",53,0)   3561   "RTN","SDE C25",53,0)
3562    S SDECROU =$$UP^XLFS TR($G(SDEC ROU))   3562    S SDECROU =$$UP^XLFS TR($G(SDEC ROU))
3563   "RTN","SDE C25",54,0)   3563   "RTN","SDE C25",54,0)
3564    S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0)   3564    S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0)
3565   "RTN","SDE C25",55,0)   3565   "RTN","SDE C25",55,0)
3566    ;validate  clinic   3566    ;validate  clinic
3567   "RTN","SDE C25",56,0)   3567   "RTN","SDE C25",56,0)
3568    S SDECVCL =$G(SDECVC L)   3568    S SDECVCL =$G(SDECVC L)
3569   "RTN","SDE C25",57,0)   3569   "RTN","SDE C25",57,0)
3570    I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL=""   3570    I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL=""
3571   "RTN","SDE C25",58,0)   3571   "RTN","SDE C25",58,0)
3572    I SDECCC= "",SDECVCL '="" S SDE CCC=$P($G( ^SC(SDECVC L,0)),U,7)    ;get cl inic stop  from 44   3572    I SDECCC= "",SDECVCL '="" S SDE CCC=$P($G( ^SC(SDECVC L,0)),U,7)    ;get cl inic stop  from 44
3573   "RTN","SDE C25",59,0)   3573   "RTN","SDE C25",59,0)
3574    ;   3574    ;
3575   "RTN","SDE C25",60,0)   3575   "RTN","SDE C25",60,0)
3576    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   3576    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
3577   "RTN","SDE C25",61,0)   3577   "RTN","SDE C25",61,0)
3578    S DFN=$P( SDECNOD,U, 5)   3578    S DFN=$P( SDECNOD,U, 5)
3579   "RTN","SDE C25",62,0)   3579   "RTN","SDE C25",62,0)
3580    S SDECPAT ID=$P(SDEC NOD,U,5)   3580    S SDECPAT ID=$P(SDEC NOD,U,5)
3581   "RTN","SDE C25",63,0)   3581   "RTN","SDE C25",63,0)
3582    S SDECSTA RT=$P(SDEC NOD,U)   3582    S SDECSTA RT=$P(SDEC NOD,U)
3583   "RTN","SDE C25",64,0)   3583   "RTN","SDE C25",64,0)
3584    ;   3584    ;
3585   "RTN","SDE C25",65,0)   3585   "RTN","SDE C25",65,0)
3586    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID   3586    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID
3587   "RTN","SDE C25",66,0)   3587   "RTN","SDE C25",66,0)
3588    ;if resou rceId is n ot null AN D there is  a valid r esource re cord   3588    ;if resou rceId is n ot null AN D there is  a valid r esource re cord
3589   "RTN","SDE C25",67,0)   3589   "RTN","SDE C25",67,0)
3590    I SDECR1] "",$D(^SDE C(409.831, SDECR1,0))  D  I +$G( SDECZ) D E RR($P(SDEC Z,U,2)) Q   3590    I SDECR1] "",$D(^SDE C(409.831, SDECR1,0))  D  I +$G( SDECZ) D E RR($P(SDEC Z,U,2)) Q
3591   "RTN","SDE C25",68,0)   3591   "RTN","SDE C25",68,0)
3592    . S SDECN OD=^SDEC(4 09.831,SDE CR1,0)   3592    . S SDECN OD=^SDEC(4 09.831,SDE CR1,0)
3593   "RTN","SDE C25",69,0)   3593   "RTN","SDE C25",69,0)
3594    . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION   3594    . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION
3595   "RTN","SDE C25",70,0)   3595   "RTN","SDE C25",70,0)
3596    . ;Hospit al Locatio n is requi red for CH ECKIN   3596    . ;Hospit al Locatio n is requi red for CH ECKIN
3597   "RTN","SDE C25",71,0)   3597   "RTN","SDE C25",71,0)
3598    . ;I 'SDE CSC1]"",'$ D(^SC(+SDE CSC1,0)) D  ERR("SDEC 25: Clinic  not defin ed for thi s Resource : "_$P(SDE CNOD,U,1)_ " ("_SDECS C1_")") Q   3598    . ;I 'SDE CSC1]"",'$ D(^SC(+SDE CSC1,0)) D  ERR("SDEC 25: Clinic  not defin ed for thi s Resource : "_$P(SDE CNOD,U,1)_ " ("_SDECS C1_")") Q
3599   "RTN","SDE C25",72,0)   3599   "RTN","SDE C25",72,0)
3600    . I 'SDEC SC1]"",'$D (^SC(+SDEC SC1,0)) D  ERR("Clini c not defi ned for th is Resourc e: "_$P(SD ECNOD,U,1) _" ("_SDEC SC1_")") Q   3600    . I 'SDEC SC1]"",'$D (^SC(+SDEC SC1,0)) D  ERR("Clini c not defi ned for th is Resourc e: "_$P(SD ECNOD,U,1) _" ("_SDEC SC1_")") Q
3601   "RTN","SDE C25",73,0)   3601   "RTN","SDE C25",73,0)
3602    . ;   3602    . ;
3603   "RTN","SDE C25",74,0)   3603   "RTN","SDE C25",74,0)
3604    . ;  Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8   3604    . ;  Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8
3605   "RTN","SDE C25",75,0)   3605   "RTN","SDE C25",75,0)
3606    . ;   3606    . ;
3607   "RTN","SDE C25",76,0)   3607   "RTN","SDE C25",76,0)
3608    . N SDATA ,SDDA,SDCI HDL ;   3608    . N SDATA ,SDDA,SDCI HDL ;
3609   "RTN","SDE C25",77,0)   3609   "RTN","SDE C25",77,0)
3610    . S SDDA= $$FIND(DFN ,SDECSTART ,SDECSC1), SDATA=SDDA _U_DFN_U_S DECSTART_U _SDECSC1,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;   3610    . S SDDA= $$FIND(DFN ,SDECSTART ,SDECSC1), SDATA=SDDA _U_DFN_U_S DECSTART_U _SDECSC1,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;
3611   "RTN","SDE C25",78,0)   3611   "RTN","SDE C25",78,0)
3612    . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ;   3612    . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ;
3613   "RTN","SDE C25",79,0)   3613   "RTN","SDE C25",79,0)
3614    . ;   3614    . ;
3615   "RTN","SDE C25",80,0)   3615   "RTN","SDE C25",80,0)
3616    . I 'SDEC CAN D  ;   3616    . I 'SDEC CAN D  ;
3617   "RTN","SDE C25",81,0)   3617   "RTN","SDE C25",81,0)
3618    .. ;   3618    .. ;
3619   "RTN","SDE C25",82,0)   3619   "RTN","SDE C25",82,0)
3620    .. ;  Che ckin SDEC  APPOINTMEN T entry -  wtc SD*5.3 *717 10/24 /18   3620    .. ;  Che ckin SDEC  APPOINTMEN T entry -  wtc SD*5.3 *717 10/24 /18
3621   "RTN","SDE C25",83,0)   3621   "RTN","SDE C25",83,0)
3622    .. ;   3622    .. ;
3623   "RTN","SDE C25",84,0)   3623   "RTN","SDE C25",84,0)
3624    .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets  field .03  (Checkin),  in file 4 09.84   3624    .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets  field .03  (Checkin),  in file 4 09.84
3625   "RTN","SDE C25",85,0)   3625   "RTN","SDE C25",85,0)
3626    .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART)   3626    .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART)
3627   "RTN","SDE C25",86,0)   3627   "RTN","SDE C25",86,0)
3628    .. I $G(S DECPRV) S  DIE="^SDEC (409.84,", DA=SDECAPT ID,DR=".16 ///"_SDECP RV D ^DIE   3628    .. I $G(S DECPRV) S  DIE="^SDEC (409.84,", DA=SDECAPT ID,DR=".16 ///"_SDECP RV D ^DIE
3629   "RTN","SDE C25",87,0)   3629   "RTN","SDE C25",87,0)
3630    . ;   3630    . ;
3631   "RTN","SDE C25",88,0)   3631   "RTN","SDE C25",88,0)
3632    . I SDECC AN D  ;   3632    . I SDECC AN D  ;
3633   "RTN","SDE C25",89,0)   3633   "RTN","SDE C25",89,0)
3634    .. ;   3634    .. ;
3635   "RTN","SDE C25",90,0)   3635   "RTN","SDE C25",90,0)
3636    .. ;  Can cel check  in - wtc S D*5.3*717  10/24/18   3636    .. ;  Can cel check  in - wtc S D*5.3*717  10/24/18
3637   "RTN","SDE C25",91,0)   3637   "RTN","SDE C25",91,0)
3638    .. ;   3638    .. ;
3639   "RTN","SDE C25",92,0)   3639   "RTN","SDE C25",92,0)
3640    .. D SDEC CHK(SDECAP TID,"") ;  sets field  .03 (Chec kin), in f ile 409.84   3640    .. D SDEC CHK(SDECAP TID,"") ;  sets field  .03 (Chec kin), in f ile 409.84
3641   "RTN","SDE C25",93,0)   3641   "RTN","SDE C25",93,0)
3642    .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ;   3642    .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ;
3643   "RTN","SDE C25",94,0)   3643   "RTN","SDE C25",94,0)
3644    . ;   3644    . ;
3645   "RTN","SDE C25",95,0)   3645   "RTN","SDE C25",95,0)
3646    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/24/18   3646    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/24/18
3647   "RTN","SDE C25",96,0)   3647   "RTN","SDE C25",96,0)
3648    . ;   3648    . ;
3649   "RTN","SDE C25",97,0)   3649   "RTN","SDE C25",97,0)
3650    . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ;   3650    . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ;
3651   "RTN","SDE C25",98,0)   3651   "RTN","SDE C25",98,0)
3652    . ;   3652    . ;
3653   "RTN","SDE C25",99,0)   3653   "RTN","SDE C25",99,0)
3654    . ;  Exec ute event  driver.  4 =check in  (see #409. 66), 2=non -interacti ve - wtc S D*5.3*717  10/25/18   3654    . ;  Exec ute event  driver.  4 =check in  (see #409. 66), 2=non -interacti ve - wtc S D*5.3*717  10/25/18
3655   "RTN","SDE C25",100,0 )   3655   "RTN","SDE C25",100,0 )
3656    . ;   3656    . ;
3657   "RTN","SDE C25",101,0 )   3657   "RTN","SDE C25",101,0 )
3658    . ;*zeb+1  717 3/19/ 19 prevent  extra can cel check- in when ca nceling a  checked-in  appointme nt   3658    . ;*zeb+1  717 3/19/ 19 prevent  extra can cel check- in when ca nceling a  checked-in  appointme nt
3659   "RTN","SDE C25",102,0 )   3659   "RTN","SDE C25",102,0 )
3660    . I '((SD ECCDT="@") &($G(SDECT YP)]"")) D  EVT^SDAME VT(.SDATA, 4,2,SDCIHD L) ;assume s SDECTYP,  which is  defined if  coming fr om APPDEL^ SDEC08   3660    . I '((SD ECCDT="@") &($G(SDECT YP)]"")) D  EVT^SDAME VT(.SDATA, 4,2,SDCIHD L) ;assume s SDECTYP,  which is  defined if  coming fr om APPDEL^ SDEC08
3661   "RTN","SDE C25",103,0 )   3661   "RTN","SDE C25",103,0 )
3662    ;   3662    ;
3663   "RTN","SDE C25",104,0 )   3663   "RTN","SDE C25",104,0 )
3664    S SDECI=S DECI+1   3664    S SDECI=S DECI+1
3665   "RTN","SDE C25",105,0 )   3665   "RTN","SDE C25",105,0 )
3666    S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30)   3666    S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30)
3667   "RTN","SDE C25",106,0 )   3667   "RTN","SDE C25",106,0 )
3668    S SDECI=S DECI+1   3668    S SDECI=S DECI+1
3669   "RTN","SDE C25",107,0 )   3669   "RTN","SDE C25",107,0 )
3670    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   3670    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
3671   "RTN","SDE C25",108,0 )   3671   "RTN","SDE C25",108,0 )
3672    Q   3672    Q
3673   "RTN","SDE C25",109,0 )   3673   "RTN","SDE C25",109,0 )
3674    ;   3674    ;
3675   "RTN","SDE C25",110,0 )   3675   "RTN","SDE C25",110,0 )
3676   SDECCHK(SD ECAPTID,SD ECCDT) ;   3676   SDECCHK(SD ECAPTID,SD ECCDT) ;
3677   "RTN","SDE C25",111,0 )   3677   "RTN","SDE C25",111,0 )
3678    N SDECFDA ,SDECMSG   3678    N SDECFDA ,SDECMSG
3679   "RTN","SDE C25",112,0 )   3679   "RTN","SDE C25",112,0 )
3680    S SDECIEN S=SDECAPTI D_","   3680    S SDECIEN S=SDECAPTI D_","
3681   "RTN","SDE C25",113,0 )   3681   "RTN","SDE C25",113,0 )
3682    S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT   3682    S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT
3683   "RTN","SDE C25",114,0 )   3683   "RTN","SDE C25",114,0 )
3684    S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"")   3684    S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"")
3685   "RTN","SDE C25",115,0 )   3685   "RTN","SDE C25",115,0 )
3686    D FILE^DI E("","SDEC FDA","SDEC MSG")   3686    D FILE^DI E("","SDEC FDA","SDEC MSG")
3687   "RTN","SDE C25",116,0 )   3687   "RTN","SDE C25",116,0 )
3688    Q   3688    Q
3689   "RTN","SDE C25",117,0 )   3689   "RTN","SDE C25",117,0 )
3690    ;   3690    ;
3691   "RTN","SDE C25",118,0 )   3691   "RTN","SDE C25",118,0 )
3692   APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START)          ;   3692   APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START)          ;
3693   "RTN","SDE C25",119,0 )   3693   "RTN","SDE C25",119,0 )
3694    ;Checkin  appointmen t for pati ent SDECDF N in clini c SDECSC1   3694    ;Checkin  appointmen t for pati ent SDECDF N in clini c SDECSC1
3695   "RTN","SDE C25",120,0 )   3695   "RTN","SDE C25",120,0 )
3696    ;at time  SDECSD   3696    ;at time  SDECSD
3697   "RTN","SDE C25",121,0 )   3697   "RTN","SDE C25",121,0 )
3698    N APTN,BS DMSG,SDECC   3698    N APTN,BS DMSG,SDECC
3699   "RTN","SDE C25",122,0 )   3699   "RTN","SDE C25",122,0 )
3700    S SDECC(" PAT")=SDEC PATID   3700    S SDECC(" PAT")=SDEC PATID
3701   "RTN","SDE C25",123,0 )   3701   "RTN","SDE C25",123,0 )
3702    S SDECC(" HOS LOC")= SDECSC1   3702    S SDECC(" HOS LOC")= SDECSC1
3703   "RTN","SDE C25",124,0 )   3703   "RTN","SDE C25",124,0 )
3704    S SDECC(" CLINIC COD E")=SDECCC   3704    S SDECC(" CLINIC COD E")=SDECCC
3705   "RTN","SDE C25",125,0 )   3705   "RTN","SDE C25",125,0 )
3706    S SDECC(" PROVIDER") =SDECPRV   3706    S SDECC(" PROVIDER") =SDECPRV
3707   "RTN","SDE C25",126,0 )   3707   "RTN","SDE C25",126,0 )
3708    S SDECC(" APPT DATE" )=SDECSTAR T   3708    S SDECC(" APPT DATE" )=SDECSTAR T
3709   "RTN","SDE C25",127,0 )   3709   "RTN","SDE C25",127,0 )
3710    S SDECC(" CDT")=SDEC CDT   3710    S SDECC(" CDT")=SDEC CDT
3711   "RTN","SDE C25",128,0 )   3711   "RTN","SDE C25",128,0 )
3712    S SDECC(" USR")=DUZ   3712    S SDECC(" USR")=DUZ
3713   "RTN","SDE C25",129,0 )   3713   "RTN","SDE C25",129,0 )
3714    ;find IEN  in ^SC mu ltiple or  null   3714    ;find IEN  in ^SC mu ltiple or  null
3715   "RTN","SDE C25",130,0 )   3715   "RTN","SDE C25",130,0 )
3716    S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC"))   3716    S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC"))
3717   "RTN","SDE C25",131,0 )   3717   "RTN","SDE C25",131,0 )
3718    ;   3718    ;
3719   "RTN","SDE C25",132,0 )   3719   "RTN","SDE C25",132,0 )
3720    ;Required  by NEW AP I:   3720    ;Required  by NEW AP I:
3721   "RTN","SDE C25",133,0 )   3721   "RTN","SDE C25",133,0 )
3722    S SDECC(" SRV CAT")= "A"   3722    S SDECC(" SRV CAT")= "A"
3723   "RTN","SDE C25",134,0 )   3723   "RTN","SDE C25",134,0 )
3724    S SDECC(" TIME RANGE ")=-1   3724    S SDECC(" TIME RANGE ")=-1
3725   "RTN","SDE C25",135,0 )   3725   "RTN","SDE C25",135,0 )
3726    S SDECC(" VISIT DATE ")=SDECCDT   3726    S SDECC(" VISIT DATE ")=SDECCDT
3727   "RTN","SDE C25",136,0 )   3727   "RTN","SDE C25",136,0 )
3728    S SDECC(" SITE")=$G( DUZ(2))   3728    S SDECC(" SITE")=$G( DUZ(2))
3729   "RTN","SDE C25",137,0 )   3729   "RTN","SDE C25",137,0 )
3730    S SDECC(" VISIT TYPE ")="V"   3730    S SDECC(" VISIT TYPE ")="V"
3731   "RTN","SDE C25",138,0 )   3731   "RTN","SDE C25",138,0 )
3732    S SDECC(" CLN")=SDEC C("HOS LOC ")   3732    S SDECC(" CLN")=SDEC C("HOS LOC ")
3733   "RTN","SDE C25",139,0 )   3733   "RTN","SDE C25",139,0 )
3734    S SDECC(" ADT")=SDEC C("APPT DA TE")   3734    S SDECC(" ADT")=SDEC C("APPT DA TE")
3735   "RTN","SDE C25",140,0 )   3735   "RTN","SDE C25",140,0 )
3736    ;   3736    ;
3737   "RTN","SDE C25",141,0 )   3737   "RTN","SDE C25",141,0 )
3738    ;Set up S DECVEN arr ay contain ing VEN EH P CLINIC,  VEN EHP FO RM, OUTGUI DE FLAG   3738    ;Set up S DECVEN arr ay contain ing VEN EH P CLINIC,  VEN EHP FO RM, OUTGUI DE FLAG
3739   "RTN","SDE C25",142,0 )   3739   "RTN","SDE C25",142,0 )
3740    ;These va lues come  from input  param   3740    ;These va lues come  from input  param
3741   "RTN","SDE C25",143,0 )   3741   "RTN","SDE C25",143,0 )
3742    S SDECVEN ("CLINIC") =SDECVCL   3742    S SDECVEN ("CLINIC") =SDECVCL
3743   "RTN","SDE C25",144,0 )   3743   "RTN","SDE C25",144,0 )
3744    S SDECVEN ("FORM")=S DECVFM   3744    S SDECVEN ("FORM")=S DECVFM
3745   "RTN","SDE C25",145,0 )   3745   "RTN","SDE C25",145,0 )
3746    S SDECVEN ("OUTGUIDE ")=SDECOG   3746    S SDECVEN ("OUTGUIDE ")=SDECOG
3747   "RTN","SDE C25",146,0 )   3747   "RTN","SDE C25",146,0 )
3748    ;   3748    ;
3749   "RTN","SDE C25",147,0 )   3749   "RTN","SDE C25",147,0 )
3750    N SDECOUT   3750    N SDECOUT
3751   "RTN","SDE C25",148,0 )   3751   "RTN","SDE C25",148,0 )
3752    D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT)   3752    D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT)
3753   "RTN","SDE C25",149,0 )   3753   "RTN","SDE C25",149,0 )
3754    ;K SDECC   3754    ;K SDECC
3755   "RTN","SDE C25",150,0 )   3755   "RTN","SDE C25",150,0 )
3756    ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) )          ;if match  found, set  visit IEN   3756    ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) )          ;if match  found, set  visit IEN
3757   "RTN","SDE C25",151,0 )   3757   "RTN","SDE C25",151,0 )
3758    ;D VISIT^ SDECV(SDEC C("HOS LOC "),SDECC(" APPT DATE" ),APTN,SDE CC("PAT"), SDECC("CLI NIC CODE") ,SDECC("PR OVIDER"),, .BSDMSG,.B SDVSTN,.SD ECC)   ;re place GETV ISIT^SDECA PI4 to mak e sure all  visit dat a is updat ed   3758    ;D VISIT^ SDECV(SDEC C("HOS LOC "),SDECC(" APPT DATE" ),APTN,SDE CC("PAT"), SDECC("CLI NIC CODE") ,SDECC("PR OVIDER"),, .BSDMSG,.B SDVSTN,.SD ECC)   ;re place GETV ISIT^SDECA PI4 to mak e sure all  visit dat a is updat ed
3759   "RTN","SDE C25",152,0 )   3759   "RTN","SDE C25",152,0 )
3760    Q   3760    Q
3761   "RTN","SDE C25",153,0 )   3761   "RTN","SDE C25",153,0 )
3762    ;   3762    ;
3763   "RTN","SDE C25",154,0 )   3763   "RTN","SDE C25",154,0 )
3764   CANCHKIN(D FN,SDCL,SD T) ; Logic  to cancel  a checkin  if the ch eckin date /time is p assed in a s '@'   3764   CANCHKIN(D FN,SDCL,SD T) ; Logic  to cancel  a checkin  if the ch eckin date /time is p assed in a s '@'
3765   "RTN","SDE C25",155,0 )   3765   "RTN","SDE C25",155,0 )
3766    ; input:   DFN := if n of patie nt   3766    ; input:   DFN := if n of patie nt
3767   "RTN","SDE C25",156,0 )   3767   "RTN","SDE C25",156,0 )
3768    ;         SDCL := cl inic#   3768    ;         SDCL := cl inic#
3769   "RTN","SDE C25",157,0 )   3769   "RTN","SDE C25",157,0 )
3770    ;          SDT := ap pt d/t   3770    ;          SDT := ap pt d/t
3771   "RTN","SDE C25",158,0 )   3771   "RTN","SDE C25",158,0 )
3772    ;   3772    ;
3773   "RTN","SDE C25",159,0 )   3773   "RTN","SDE C25",159,0 )
3774    N SDDA   3774    N SDDA
3775   "RTN","SDE C25",160,0 )   3775   "RTN","SDE C25",160,0 )
3776    S SDDA=$$ FIND(DFN,S DT,SDCL)   3776    S SDDA=$$ FIND(DFN,S DT,SDCL)
3777   "RTN","SDE C25",161,0 )   3777   "RTN","SDE C25",161,0 )
3778    ;I 'SDDA  D ERR("SDE C25: Could  not locat e appointm ent in dat abase or a ppointment  is cancel led.") Q   3778    ;I 'SDDA  D ERR("SDE C25: Could  not locat e appointm ent in dat abase or a ppointment  is cancel led.") Q
3779   "RTN","SDE C25",162,0 )   3779   "RTN","SDE C25",162,0 )
3780    ;I 'SDDA  D ERR("Cou ld not loc ate appoin tment in d atabase or  appointme nt is canc elled.") Q   3780    ;I 'SDDA  D ERR("Cou ld not loc ate appoin tment in d atabase or  appointme nt is canc elled.") Q
3781   "RTN","SDE C25",163,0 )   3781   "RTN","SDE C25",163,0 )
3782    ;   3782    ;
3783   "RTN","SDE C25",164,0 )   3783   "RTN","SDE C25",164,0 )
3784    ;  Disabl ed event d river call s as they  are presen t above in  CHECKIN.   SD*5.3*71 7 wtc 10/2 5/2018   3784    ;  Disabl ed event d river call s as they  are presen t above in  CHECKIN.   SD*5.3*71 7 wtc 10/2 5/2018
3785   "RTN","SDE C25",165,0 )   3785   "RTN","SDE C25",165,0 )
3786    ;   3786    ;
3787   "RTN","SDE C25",166,0 )   3787   "RTN","SDE C25",166,0 )
3788    ;N SDATA, SDCIHDL,X  S SDATA=SD DA_U_DFN_U _SDT_U_SDC L,SDCIHDL= $$HANDLE^S DAMEVT(1)   3788    ;N SDATA, SDCIHDL,X  S SDATA=SD DA_U_DFN_U _SDT_U_SDC L,SDCIHDL= $$HANDLE^S DAMEVT(1)
3789   "RTN","SDE C25",167,0 )   3789   "RTN","SDE C25",167,0 )
3790    ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L)   3790    ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L)
3791   "RTN","SDE C25",168,0 )   3791   "RTN","SDE C25",168,0 )
3792    S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D  FILE^DIE(, "FDA","ERR ")   3792    S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D  FILE^DIE(, "FDA","ERR ")
3793   "RTN","SDE C25",169,0 )   3793   "RTN","SDE C25",169,0 )
3794    ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL )   3794    ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL )
3795   "RTN","SDE C25",170,0 )   3795   "RTN","SDE C25",170,0 )
3796    ;D CHKEVT D(DFN,SDT, SDCL)   3796    ;D CHKEVT D(DFN,SDT, SDCL)
3797   "RTN","SDE C25",171,0 )   3797   "RTN","SDE C25",171,0 )
3798    K FDA,ERR   3798    K FDA,ERR
3799   "RTN","SDE C25",172,0 )   3799   "RTN","SDE C25",172,0 )
3800    Q   3800    Q
3801   "RTN","SDE C25",173,0 )   3801   "RTN","SDE C25",173,0 )
3802    ;   3802    ;
3803   "RTN","SDE C25",174,0 )   3803   "RTN","SDE C25",174,0 )
3804   FIND(DFN,S DT,SDCL) ;  -- return  appt ifn  for pat   3804   FIND(DFN,S DT,SDCL) ;  -- return  appt ifn  for pat
3805   "RTN","SDE C25",175,0 )   3805   "RTN","SDE C25",175,0 )
3806    ;   input :        D FN := ifn  of pat.   3806    ;   input :        D FN := ifn  of pat.
3807   "RTN","SDE C25",176,0 )   3807   "RTN","SDE C25",176,0 )
3808    ;                  S DT := appt  d/t   3808    ;                  S DT := appt  d/t
3809   "RTN","SDE C25",177,0 )   3809   "RTN","SDE C25",177,0 )
3810    ;                 SD CL := ifn  of clinic   3810    ;                 SD CL := ifn  of clinic
3811   "RTN","SDE C25",178,0 )   3811   "RTN","SDE C25",178,0 )
3812    ;  output : [returne d] := ifn  if pat has  appt on d ate/time   3812    ;  output : [returne d] := ifn  if pat has  appt on d ate/time
3813   "RTN","SDE C25",179,0 )   3813   "RTN","SDE C25",179,0 )
3814    ;   3814    ;
3815   "RTN","SDE C25",180,0 )   3815   "RTN","SDE C25",180,0 )
3816    N Y   3816    N Y
3817   "RTN","SDE C25",181,0 )   3817   "RTN","SDE C25",181,0 )
3818    S Y=0 F   S Y=$O(^SC (SDCL,"S", SDT,1,Y))  Q:'Y  I $D (^(Y,0)),D FN=+^(0),$ D(^DPT(+DF N,"S",SDT, 0)),$$VALI D(DFN,SDCL ,SDT,Y) Q   3818    S Y=0 F   S Y=$O(^SC (SDCL,"S", SDT,1,Y))  Q:'Y  I $D (^(Y,0)),D FN=+^(0),$ D(^DPT(+DF N,"S",SDT, 0)),$$VALI D(DFN,SDCL ,SDT,Y) Q
3819   "RTN","SDE C25",182,0 )   3819   "RTN","SDE C25",182,0 )
3820    Q Y   3820    Q Y
3821   "RTN","SDE C25",183,0 )   3821   "RTN","SDE C25",183,0 )
3822    ;   3822    ;
3823   "RTN","SDE C25",184,0 )   3823   "RTN","SDE C25",184,0 )
3824   VALID(DFN, SDCL,SDT,S DDA) ; --  return val id appt.   3824   VALID(DFN, SDCL,SDT,S DDA) ; --  return val id appt.
3825   "RTN","SDE C25",185,0 )   3825   "RTN","SDE C25",185,0 )
3826    ; **NOTE:   For spee d consider ation the  ^SC and ^D PT nodes m ust be   3826    ; **NOTE:   For spee d consider ation the  ^SC and ^D PT nodes m ust be
3827   "RTN","SDE C25",186,0 )   3827   "RTN","SDE C25",186,0 )
3828    ;           check to  see they  exist prio r to calli ng this en try point.   3828    ;           check to  see they  exist prio r to calli ng this en try point.
3829   "RTN","SDE C25",187,0 )   3829   "RTN","SDE C25",187,0 )
3830    ;   input :        D FN := ifn  of pat.   3830    ;   input :        D FN := ifn  of pat.
3831   "RTN","SDE C25",188,0 )   3831   "RTN","SDE C25",188,0 )
3832    ;                  S DT := appt  d/t   3832    ;                  S DT := appt  d/t
3833   "RTN","SDE C25",189,0 )   3833   "RTN","SDE C25",189,0 )
3834    ;                 SD CL := ifn  of clinic   3834    ;                 SD CL := ifn  of clinic
3835   "RTN","SDE C25",190,0 )   3835   "RTN","SDE C25",190,0 )
3836    ;                 SD DA := ifn  of appt   3836    ;                 SD DA := ifn  of appt
3837   "RTN","SDE C25",191,0 )   3837   "RTN","SDE C25",191,0 )
3838    ;  output : [returne d] := 1 fo r valid ap pt., 0 for  not valid   3838    ;  output : [returne d] := 1 fo r valid ap pt., 0 for  not valid
3839   "RTN","SDE C25",192,0 )   3839   "RTN","SDE C25",192,0 )
3840    Q $S($P(^ SC(SDCL,"S ",SDT,1,SD DA,0),U,9) '="C":1,$P (^DPT(DFN, "S",SDT,0) ,U,2)["C": 1,1:0)   3840    Q $S($P(^ SC(SDCL,"S ",SDT,1,SD DA,0),U,9) '="C":1,$P (^DPT(DFN, "S",SDT,0) ,U,2)["C": 1,1:0)
3841   "RTN","SDE C25",193,0 )   3841   "RTN","SDE C25",193,0 )
3842    ;   3842    ;
3843   "RTN","SDE C25",194,0 )   3843   "RTN","SDE C25",194,0 )
3844   CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN  APPOINTMEN T event   3844   CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN  APPOINTMEN T event
3845   "RTN","SDE C25",195,0 )   3845   "RTN","SDE C25",195,0 )
3846    ;when app ointments  CHECKIN vi a PIMS int erface.   3846    ;when app ointments  CHECKIN vi a PIMS int erface.
3847   "RTN","SDE C25",196,0 )   3847   "RTN","SDE C25",196,0 )
3848    ;Propagat es CHECKIN  to SDECAP PT and rai ses refres h event to  running G UI clients   3848    ;Propagat es CHECKIN  to SDECAP PT and rai ses refres h event to  running G UI clients
3849   "RTN","SDE C25",197,0 )   3849   "RTN","SDE C25",197,0 )
3850    ;   3850    ;
3851   "RTN","SDE C25",198,0 )   3851   "RTN","SDE C25",198,0 )
3852    Q:+$G(SDE CNOEV)   3852    Q:+$G(SDE CNOEV)
3853   "RTN","SDE C25",199,0 )   3853   "RTN","SDE C25",199,0 )
3854    Q:'+$G(SD ECSC)   3854    Q:'+$G(SD ECSC)
3855   "RTN","SDE C25",200,0 )   3855   "RTN","SDE C25",200,0 )
3856    N SDECSTA T,SDECFOUN D,SDECRES   3856    N SDECSTA T,SDECFOUN D,SDECRES
3857   "RTN","SDE C25",201,0 )   3857   "RTN","SDE C25",201,0 )
3858    S SDECSTA T=""   3858    S SDECSTA T=""
3859   "RTN","SDE C25",202,0 )   3859   "RTN","SDE C25",202,0 )
3860    S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED  IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4)   3860    S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED  IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4)
3861   "RTN","SDE C25",203,0 )   3861   "RTN","SDE C25",203,0 )
3862    S SDECFOU ND=0   3862    S SDECFOU ND=0
3863   "RTN","SDE C25",204,0 )   3863   "RTN","SDE C25",204,0 )
3864    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$CHKEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT)   3864    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$CHKEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT)
3865   "RTN","SDE C25",205,0 )   3865   "RTN","SDE C25",205,0 )
3866    I SDECFOU ND D CHKEV T3(SDECRES ) Q   3866    I SDECFOU ND D CHKEV T3(SDECRES ) Q
3867   "RTN","SDE C25",206,0 )   3867   "RTN","SDE C25",206,0 )
3868    Q   3868    Q
3869   "RTN","SDE C25",207,0 )   3869   "RTN","SDE C25",207,0 )
3870    ;   3870    ;
3871   "RTN","SDE C25",208,0 )   3871   "RTN","SDE C25",208,0 )
3872   CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;   3872   CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;
3873   "RTN","SDE C25",209,0 )   3873   "RTN","SDE C25",209,0 )
3874    ;Get appo intment id  in SDECAP T   3874    ;Get appo intment id  in SDECAP T
3875   "RTN","SDE C25",210,0 )   3875   "RTN","SDE C25",210,0 )
3876    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1   3876    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1
3877   "RTN","SDE C25",211,0 )   3877   "RTN","SDE C25",211,0 )
3878    ;else ret urn 0   3878    ;else ret urn 0
3879   "RTN","SDE C25",212,0 )   3879   "RTN","SDE C25",212,0 )
3880    N SDECFOU ND,SDECAPP T   3880    N SDECFOU ND,SDECAPP T
3881   "RTN","SDE C25",213,0 )   3881   "RTN","SDE C25",213,0 )
3882    S SDECFOU ND=0   3882    S SDECFOU ND=0
3883   "RTN","SDE C25",214,0 )   3883   "RTN","SDE C25",214,0 )
3884    Q:'+$G(SD ECRES) SDE CFOUND   3884    Q:'+$G(SD ECRES) SDE CFOUND
3885   "RTN","SDE C25",215,0 )   3885   "RTN","SDE C25",215,0 )
3886    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND   3886    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
3887   "RTN","SDE C25",216,0 )   3887   "RTN","SDE C25",216,0 )
3888    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND   3888    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND
3889   "RTN","SDE C25",217,0 )   3889   "RTN","SDE C25",217,0 )
3890    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""   3890    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
3891   "RTN","SDE C25",218,0 )   3891   "RTN","SDE C25",218,0 )
3892    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q   3892    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
3893   "RTN","SDE C25",219,0 )   3893   "RTN","SDE C25",219,0 )
3894    I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT)   3894    I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT)
3895   "RTN","SDE C25",220,0 )   3895   "RTN","SDE C25",220,0 )
3896    Q SDECFOU ND   3896    Q SDECFOU ND
3897   "RTN","SDE C25",221,0 )   3897   "RTN","SDE C25",221,0 )
3898    ;   3898    ;
3899   "RTN","SDE C25",222,0 )   3899   "RTN","SDE C25",222,0 )
3900   CHKEVT3(SD ECRES) ;   3900   CHKEVT3(SD ECRES) ;
3901   "RTN","SDE C25",223,0 )   3901   "RTN","SDE C25",223,0 )
3902    ;Call Rai seEvent to  notify GU I clients   3902    ;Call Rai seEvent to  notify GU I clients
3903   "RTN","SDE C25",224,0 )   3903   "RTN","SDE C25",224,0 )
3904    ;   3904    ;
3905   "RTN","SDE C25",225,0 )   3905   "RTN","SDE C25",225,0 )
3906    Q   3906    Q
3907   "RTN","SDE C25",226,0 )   3907   "RTN","SDE C25",226,0 )
3908    N SDECRES N   3908    N SDECRES N
3909   "RTN","SDE C25",227,0 )   3909   "RTN","SDE C25",227,0 )
3910    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))   3910    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
3911   "RTN","SDE C25",228,0 )   3911   "RTN","SDE C25",228,0 )
3912    Q:SDECRES N=""   3912    Q:SDECRES N=""
3913   "RTN","SDE C25",229,0 )   3913   "RTN","SDE C25",229,0 )
3914    S SDECRES N=$P(SDECR ESN,"^")   3914    S SDECRES N=$P(SDECR ESN,"^")
3915   "RTN","SDE C25",230,0 )   3915   "RTN","SDE C25",230,0 )
3916    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")   3916    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")
3917   "RTN","SDE C25",231,0 )   3917   "RTN","SDE C25",231,0 )
3918    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)   3918    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
3919   "RTN","SDE C25",232,0 )   3919   "RTN","SDE C25",232,0 )
3920    Q   3920    Q
3921   "RTN","SDE C25",233,0 )   3921   "RTN","SDE C25",233,0 )
3922    ;   3922    ;
3923   "RTN","SDE C25",234,0 )   3923   "RTN","SDE C25",234,0 )
3924   CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN  APPOINTME NT event   3924   CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN  APPOINTME NT event
3925   "RTN","SDE C25",235,0 )   3925   "RTN","SDE C25",235,0 )
3926    ;when  an  appointme nt CHECKIN  is delete d via.   3926    ;when  an  appointme nt CHECKIN  is delete d via.
3927   "RTN","SDE C25",236,0 )   3927   "RTN","SDE C25",236,0 )
3928    ;Deletes  CHECKIN to  and raise s refresh  event to r unning GUI  clients   3928    ;Deletes  CHECKIN to  and raise s refresh  event to r unning GUI  clients
3929   "RTN","SDE C25",237,0 )   3929   "RTN","SDE C25",237,0 )
3930    ;   3930    ;
3931   "RTN","SDE C25",238,0 )   3931   "RTN","SDE C25",238,0 )
3932    ;   3932    ;
3933   "RTN","SDE C25",239,0 )   3933   "RTN","SDE C25",239,0 )
3934    Q:+$G(SDE CNOEV)   3934    Q:+$G(SDE CNOEV)
3935   "RTN","SDE C25",240,0 )   3935   "RTN","SDE C25",240,0 )
3936    Q:'+$G(SD ECSC)   3936    Q:'+$G(SD ECSC)
3937   "RTN","SDE C25",241,0 )   3937   "RTN","SDE C25",241,0 )
3938    N SDECSTA T,SDECFOUN D,SDECRES   3938    N SDECSTA T,SDECFOUN D,SDECRES
3939   "RTN","SDE C25",242,0 )   3939   "RTN","SDE C25",242,0 )
3940    S SDECSTA T=""   3940    S SDECSTA T=""
3941   "RTN","SDE C25",243,0 )   3941   "RTN","SDE C25",243,0 )
3942    S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED  IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4)   3942    S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED  IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4)
3943   "RTN","SDE C25",244,0 )   3943   "RTN","SDE C25",244,0 )
3944    I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0))   3944    I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0))
3945   "RTN","SDE C25",245,0 )   3945   "RTN","SDE C25",245,0 )
3946    I SDECRES  D CHKEVT3 (SDECRES)  Q   3946    I SDECRES  D CHKEVT3 (SDECRES)  Q
3947   "RTN","SDE C25",246,0 )   3947   "RTN","SDE C25",246,0 )
3948    S SDECFOU ND=0   3948    S SDECFOU ND=0
3949   "RTN","SDE C25",247,0 )   3949   "RTN","SDE C25",247,0 )
3950    ;   3950    ;
3951   "RTN","SDE C25",248,0 )   3951   "RTN","SDE C25",248,0 )
3952    ;I $D(^SD EC(409.831 ,"ALOC",SD ECSC)) S S DECRES=$O( ^SDEC(409. 831,"ALOC" ,SDECSC,0) ) S SDECFO UND=$$CHKE VT1(SDECRE S,SDECSTAR T,SDECPAT, SDECSTAT)   3952    ;I $D(^SD EC(409.831 ,"ALOC",SD ECSC)) S S DECRES=$O( ^SDEC(409. 831,"ALOC" ,SDECSC,0) ) S SDECFO UND=$$CHKE VT1(SDECRE S,SDECSTAR T,SDECPAT, SDECSTAT)
3953   "RTN","SDE C25",249,0 )   3953   "RTN","SDE C25",249,0 )
3954    ;I SDECFO UND D CHKE VT3(SDECRE S) Q   3954    ;I SDECFO UND D CHKE VT3(SDECRE S) Q
3955   "RTN","SDE C25",250,0 )   3955   "RTN","SDE C25",250,0 )
3956    Q   3956    Q
3957   "RTN","SDE C25",251,0 )   3957   "RTN","SDE C25",251,0 )
3958    ;   3958    ;
3959   "RTN","SDE C25",252,0 )   3959   "RTN","SDE C25",252,0 )
3960    ;CHECK OU T APPOINTM ENT - RPC   3960    ;CHECK OU T APPOINTM ENT - RPC
3961   "RTN","SDE C25",253,0 )   3961   "RTN","SDE C25",253,0 )
3962   CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment   3962   CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment
3963   "RTN","SDE C25",254,0 )   3963   "RTN","SDE C25",254,0 )
3964    ;CHECKOUT (SDECY,DFN ,SDT,SDCOD T,SDECAPTI D,VPRV)  e xternal pa rameter ta g is in SD EC   3964    ;CHECKOUT (SDECY,DFN ,SDT,SDCOD T,SDECAPTI D,VPRV)  e xternal pa rameter ta g is in SD EC
3965   "RTN","SDE C25",255,0 )   3965   "RTN","SDE C25",255,0 )
3966    ; Returns    SDECY   3966    ; Returns    SDECY
3967   "RTN","SDE C25",256,0 )   3967   "RTN","SDE C25",256,0 )
3968    ; Input   -- DFN       Patient  file IEN   3968    ; Input   -- DFN       Patient  file IEN
3969   "RTN","SDE C25",257,0 )   3969   "RTN","SDE C25",257,0 )
3970    ;            SDT       Appointm ent Date/T ime in FM  format   3970    ;            SDT       Appointm ent Date/T ime in FM  format
3971   "RTN","SDE C25",258,0 )   3971   "RTN","SDE C25",258,0 )
3972    ;            SDCODT    Date/Tim e of Check  Out FM FO RMAT [REQU IRED]   3972    ;            SDCODT    Date/Tim e of Check  Out FM FO RMAT [REQU IRED]
3973   "RTN","SDE C25",259,0 )   3973   "RTN","SDE C25",259,0 )
3974    ;            SDECAPT ID - Appoi ntment ID   3974    ;            SDECAPT ID - Appoi ntment ID
3975   "RTN","SDE C25",260,0 )   3975   "RTN","SDE C25",260,0 )
3976    ;            VPRV       - V Pro vider   3976    ;            VPRV       - V Pro vider
3977   "RTN","SDE C25",261,0 )   3977   "RTN","SDE C25",261,0 )
3978    ;SETUP ER ROR TRACKI NG   3978    ;SETUP ER ROR TRACKI NG
3979   "RTN","SDE C25",262,0 )   3979   "RTN","SDE C25",262,0 )
3980    N APIERR, CNT,ERR,%D T,X,Y   3980    N APIERR, CNT,ERR,%D T,X,Y
3981   "RTN","SDE C25",263,0 )   3981   "RTN","SDE C25",263,0 )
3982    N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET   3982    N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET
3983   "RTN","SDE C25",264,0 )   3983   "RTN","SDE C25",264,0 )
3984    N SDECI,S DECNOD,RPC PERM   3984    N SDECI,S DECNOD,RPC PERM
3985   "RTN","SDE C25",265,0 )   3985   "RTN","SDE C25",265,0 )
3986    S SDECI=0   3986    S SDECI=0
3987   "RTN","SDE C25",266,0 )   3987   "RTN","SDE C25",266,0 )
3988    K ^TMP("S DEC",$J)   3988    K ^TMP("S DEC",$J)
3989   "RTN","SDE C25",267,0 )   3989   "RTN","SDE C25",267,0 )
3990    S SDECY=" ^TMP(""SDE C"","_$J_" )"   3990    S SDECY=" ^TMP(""SDE C"","_$J_" )"
3991   "RTN","SDE C25",268,0 )   3991   "RTN","SDE C25",268,0 )
3992    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)   3992    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)
3993   "RTN","SDE C25",269,0 )   3993   "RTN","SDE C25",269,0 )
3994    S RPCPERM =""   3994    S RPCPERM =""
3995   "RTN","SDE C25",270,0 )   3995   "RTN","SDE C25",270,0 )
3996    S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD  SUPERVISO R KEY IS R EQUIRED TO  PERFORM T HIS ACTION .") Q   3996    S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD  SUPERVISO R KEY IS R EQUIRED TO  PERFORM T HIS ACTION .") Q
3997   "RTN","SDE C25",271,0 )   3997   "RTN","SDE C25",271,0 )
3998    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q   3998    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q
3999   "RTN","SDE C25",272,0 )   3999   "RTN","SDE C25",272,0 )
4000    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q   4000    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q
4001   "RTN","SDE C25",273,0 )   4001   "RTN","SDE C25",273,0 )
4002    ;INITIALI ZE VARIABL ES   4002    ;INITIALI ZE VARIABL ES
4003   "RTN","SDE C25",274,0 )   4003   "RTN","SDE C25",274,0 )
4004    S %DT="T"   4004    S %DT="T"
4005   "RTN","SDE C25",275,0 )   4005   "RTN","SDE C25",275,0 )
4006    S X=SDT   4006    S X=SDT
4007   "RTN","SDE C25",276,0 )   4007   "RTN","SDE C25",276,0 )
4008    D ^%DT    ; GET FM F ORMAT FOR  APPOINTMEN T DATE/TIM E   4008    D ^%DT    ; GET FM F ORMAT FOR  APPOINTMEN T DATE/TIM E
4009   "RTN","SDE C25",277,0 )   4009   "RTN","SDE C25",277,0 )
4010    S SDT=Y   4010    S SDT=Y
4011   "RTN","SDE C25",278,0 )   4011   "RTN","SDE C25",278,0 )
4012    S X=SDCOD T   4012    S X=SDCOD T
4013   "RTN","SDE C25",279,0 )   4013   "RTN","SDE C25",279,0 )
4014    D ^%DT    ; GET FM F ORMAT FOR  CHECKOUT D ATE/TIME   4014    D ^%DT    ; GET FM F ORMAT FOR  CHECKOUT D ATE/TIME
4015   "RTN","SDE C25",280,0 )   4015   "RTN","SDE C25",280,0 )
4016    ;ChecOut  time canno t be in th e future   4016    ;ChecOut  time canno t be in th e future
4017   "RTN","SDE C25",281,0 )   4017   "RTN","SDE C25",281,0 )
4018    S SDCODT= Y   4018    S SDCODT= Y
4019   "RTN","SDE C25",282,0 )   4019   "RTN","SDE C25",282,0 )
4020    I SDCODT> $$HTFM^XLF DT($H) D E RR("Check  Out time c annot be i n the futu re.") Q   4020    I SDCODT> $$HTFM^XLF DT($H) D E RR("Check  Out time c annot be i n the futu re.") Q
4021   "RTN","SDE C25",283,0 )   4021   "RTN","SDE C25",283,0 )
4022    ;   4022    ;
4023   "RTN","SDE C25",284,0 )   4023   "RTN","SDE C25",284,0 )
4024    ;appointm ent record   4024    ;appointm ent record
4025   "RTN","SDE C25",285,0 )   4025   "RTN","SDE C25",285,0 )
4026    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   4026    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
4027   "RTN","SDE C25",286,0 )   4027   "RTN","SDE C25",286,0 )
4028    ;make sur e CHECKOUT  time is a fter CHECK IN time   4028    ;make sur e CHECKOUT  time is a fter CHECK IN time
4029   "RTN","SDE C25",287,0 )   4029   "RTN","SDE C25",287,0 )
4030    I SDCODT' >$P(SDECNO D,U,3) D E RR("Check  Out time m ust be at  least 1 mi nute after  the Check  In time o f "_$TR($$ FMTE^XLFDT ($P(SDECNO D,U,3)),"@ "," ")_"." ) Q   ;alb /sat 665   4030    I SDCODT' >$P(SDECNO D,U,3) D E RR("Check  Out time m ust be at  least 1 mi nute after  the Check  In time o f "_$TR($$ FMTE^XLFDT ($P(SDECNO D,U,3)),"@ "," ")_"." ) Q   ;alb /sat 665
4031   "RTN","SDE C25",288,0 )   4031   "RTN","SDE C25",288,0 )
4032    ;Hospital  Location  of RESOURC E   4032    ;Hospital  Location  of RESOURC E
4033   "RTN","SDE C25",289,0 )   4033   "RTN","SDE C25",289,0 )
4034    S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID   4034    S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID
4035   "RTN","SDE C25",290,0 )   4035   "RTN","SDE C25",290,0 )
4036    S SDECNOD =^SDEC(409 .831,SDECR ES,0)   4036    S SDECNOD =^SDEC(409 .831,SDECR ES,0)
4037   "RTN","SDE C25",291,0 )   4037   "RTN","SDE C25",291,0 )
4038    S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON   4038    S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON
4039   "RTN","SDE C25",292,0 )   4039   "RTN","SDE C25",292,0 )
4040    ;   4040    ;
4041   "RTN","SDE C25",293,0 )   4041   "RTN","SDE C25",293,0 )
4042    S SDDA=0   4042    S SDDA=0
4043   "RTN","SDE C25",294,0 )   4043   "RTN","SDE C25",294,0 )
4044    S SDASK=0   4044    S SDASK=0
4045   "RTN","SDE C25",295,0 )   4045   "RTN","SDE C25",295,0 )
4046    S SDCOALB F=""   4046    S SDCOALB F=""
4047   "RTN","SDE C25",296,0 )   4047   "RTN","SDE C25",296,0 )
4048    S SDCOACT ="CO"   4048    S SDCOACT ="CO"
4049   "RTN","SDE C25",297,0 )   4049   "RTN","SDE C25",297,0 )
4050    S SDLNE=" "   4050    S SDLNE=" "
4051   "RTN","SDE C25",298,0 )   4051   "RTN","SDE C25",298,0 )
4052    S SDQUIET =1   4052    S SDQUIET =1
4053   "RTN","SDE C25",299,0 )   4053   "RTN","SDE C25",299,0 )
4054    K APIERR   4054    K APIERR
4055   "RTN","SDE C25",300,0 )   4055   "RTN","SDE C25",300,0 )
4056    S APIERR= 0   4056    S APIERR= 0
4057   "RTN","SDE C25",301,0 )   4057   "RTN","SDE C25",301,0 )
4058    ;   4058    ;
4059   "RTN","SDE C25",302,0 )   4059   "RTN","SDE C25",302,0 )
4060    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18   4060    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
4061   "RTN","SDE C25",303,0 )   4061   "RTN","SDE C25",303,0 )
4062    ;   4062    ;
4063   "RTN","SDE C25",304,0 )   4063   "RTN","SDE C25",304,0 )
4064    N SDATA,S DDA,SDCIHD L ;   4064    N SDATA,S DDA,SDCIHD L ;
4065   "RTN","SDE C25",305,0 )   4065   "RTN","SDE C25",305,0 )
4066    S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;   4066    S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;
4067   "RTN","SDE C25",306,0 )   4067   "RTN","SDE C25",306,0 )
4068    ;   4068    ;
4069   "RTN","SDE C25",307,0 )   4069   "RTN","SDE C25",307,0 )
4070    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18   4070    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
4071   "RTN","SDE C25",308,0 )   4071   "RTN","SDE C25",308,0 )
4072    ;   4072    ;
4073   "RTN","SDE C25",309,0 )   4073   "RTN","SDE C25",309,0 )
4074    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;   4074    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;
4075   "RTN","SDE C25",310,0 )   4075   "RTN","SDE C25",310,0 )
4076    ;   4076    ;
4077   "RTN","SDE C25",311,0 )   4077   "RTN","SDE C25",311,0 )
4078    D CO^SDEC 25A(DFN,SD T,SDCL,SDD A,SDASK,SD CODT,SDCOA CT,SDLNE,. SDCOALBF,S DECAPTID,S DQUIET,VPR V,.APIERR)  ;Appt Che ck Out   4078    D CO^SDEC 25A(DFN,SD T,SDCL,SDD A,SDASK,SD CODT,SDCOA CT,SDLNE,. SDCOALBF,S DECAPTID,S DQUIET,VPR V,.APIERR)  ;Appt Che ck Out
4079   "RTN","SDE C25",312,0 )   4079   "RTN","SDE C25",312,0 )
4080    ;   4080    ;
4081   "RTN","SDE C25",313,0 )   4081   "RTN","SDE C25",313,0 )
4082    ;  Skip e vent drive r actions  if error o ccurred ch ecking app ointment o ut. - wtc  SD*5.3*717  10/25/201 8   4082    ;  Skip e vent drive r actions  if error o ccurred ch ecking app ointment o ut. - wtc  SD*5.3*717  10/25/201 8
4083   "RTN","SDE C25",314,0 )   4083   "RTN","SDE C25",314,0 )
4084    ;   4084    ;
4085   "RTN","SDE C25",315,0 )   4085   "RTN","SDE C25",315,0 )
4086    I 'APIERR  D  ;   4086    I 'APIERR  D  ;
4087   "RTN","SDE C25",316,0 )   4087   "RTN","SDE C25",316,0 )
4088    . ;   4088    . ;
4089   "RTN","SDE C25",317,0 )   4089   "RTN","SDE C25",317,0 )
4090    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/25/18   4090    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/25/18
4091   "RTN","SDE C25",318,0 )   4091   "RTN","SDE C25",318,0 )
4092    . ;   4092    . ;
4093   "RTN","SDE C25",319,0 )   4093   "RTN","SDE C25",319,0 )
4094    . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ;   4094    . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ;
4095   "RTN","SDE C25",320,0 )   4095   "RTN","SDE C25",320,0 )
4096    . ;   4096    . ;
4097   "RTN","SDE C25",321,0 )   4097   "RTN","SDE C25",321,0 )
4098    . ;  Exec ute event  driver.  5 =check out  (see #409 .66), 2=no n-interact ive - wtc  SD*5.3*717  10/25/18   4098    . ;  Exec ute event  driver.  5 =check out  (see #409 .66), 2=no n-interact ive - wtc  SD*5.3*717  10/25/18
4099   "RTN","SDE C25",322,0 )   4099   "RTN","SDE C25",322,0 )
4100    . ;   4100    . ;
4101   "RTN","SDE C25",323,0 )   4101   "RTN","SDE C25",323,0 )
4102    . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ;   4102    . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ;
4103   "RTN","SDE C25",324,0 )   4103   "RTN","SDE C25",324,0 )
4104    ;   4104    ;
4105   "RTN","SDE C25",325,0 )   4105   "RTN","SDE C25",325,0 )
4106    ;ERROR(S)  FOUND   4106    ;ERROR(S)  FOUND
4107   "RTN","SDE C25",326,0 )   4107   "RTN","SDE C25",326,0 )
4108    I APIERR> 0 D   4108    I APIERR> 0 D
4109   "RTN","SDE C25",327,0 )   4109   "RTN","SDE C25",327,0 )
4110    . S CNT=" "   4110    . S CNT=" "
4111   "RTN","SDE C25",328,0 )   4111   "RTN","SDE C25",328,0 )
4112    . F  S CN T=$O(APIER R(CNT)) Q: CNT=""  S  ERR=APIERR (CNT) S SD ECI=SDECI+ 1 D ERR(ER R)   4112    . F  S CN T=$O(APIER R(CNT)) Q: CNT=""  S  ERR=APIERR (CNT) S SD ECI=SDECI+ 1 D ERR(ER R)
4113   "RTN","SDE C25",329,0 )   4113   "RTN","SDE C25",329,0 )
4114    ;NO ERROR   4114    ;NO ERROR
4115   "RTN","SDE C25",330,0 )   4115   "RTN","SDE C25",330,0 )
4116    I APIERR< 1 D   4116    I APIERR< 1 D
4117   "RTN","SDE C25",331,0 )   4117   "RTN","SDE C25",331,0 )
4118    . S SDECI =SDECI+1   4118    . S SDECI =SDECI+1
4119   "RTN","SDE C25",332,0 )   4119   "RTN","SDE C25",332,0 )
4120    . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30)   4120    . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30)
4121   "RTN","SDE C25",333,0 )   4121   "RTN","SDE C25",333,0 )
4122    . S SDECI =SDECI+1   4122    . S SDECI =SDECI+1
4123   "RTN","SDE C25",334,0 )   4123   "RTN","SDE C25",334,0 )
4124    . S ^TMP( "SDEC",$J, SDECI)=$C( 31)   4124    . S ^TMP( "SDEC",$J, SDECI)=$C( 31)
4125   "RTN","SDE C25",335,0 )   4125   "RTN","SDE C25",335,0 )
4126    Q   4126    Q
4127   "RTN","SDE C25",336,0 )   4127   "RTN","SDE C25",336,0 )
4128    ;   4128    ;
4129   "RTN","SDE C25",337,0 )   4129   "RTN","SDE C25",337,0 )
4130    ;CHECK OU T APPOINTM ENT - RPC   4130    ;CHECK OU T APPOINTM ENT - RPC
4131   "RTN","SDE C25",338,0 )   4131   "RTN","SDE C25",338,0 )
4132   CANCKOUT(S DECY,SDECA PTID) ;Can cel Check  Out appoin tment   4132   CANCKOUT(S DECY,SDECA PTID) ;Can cel Check  Out appoin tment
4133   "RTN","SDE C25",339,0 )   4133   "RTN","SDE C25",339,0 )
4134    ;CANCKOUT (SDECY,SDE CAPTID)  e xternal pa rameter ta g is in SD EC   4134    ;CANCKOUT (SDECY,SDE CAPTID)  e xternal pa rameter ta g is in SD EC
4135   "RTN","SDE C25",340,0 )   4135   "RTN","SDE C25",340,0 )
4136    ; Returns    SDECY   4136    ; Returns    SDECY
4137   "RTN","SDE C25",341,0 )   4137   "RTN","SDE C25",341,0 )
4138    ; Input   -- SDECAPT ID - Appoi ntment ID   4138    ; Input   -- SDECAPT ID - Appoi ntment ID
4139   "RTN","SDE C25",342,0 )   4139   "RTN","SDE C25",342,0 )
4140    N APS,DA, DFN,DIE,DR ,RES   4140    N APS,DA, DFN,DIE,DR ,RES
4141   "RTN","SDE C25",343,0 )   4141   "RTN","SDE C25",343,0 )
4142    N SDCL,SD N,SDOE,SDT ,SDV   4142    N SDCL,SD N,SDOE,SDT ,SDV
4143   "RTN","SDE C25",344,0 )   4143   "RTN","SDE C25",344,0 )
4144    N SDECI,S DECNOD,RPC PERM   4144    N SDECI,S DECNOD,RPC PERM
4145   "RTN","SDE C25",345,0 )   4145   "RTN","SDE C25",345,0 )
4146    S SDECI=0   4146    S SDECI=0
4147   "RTN","SDE C25",346,0 )   4147   "RTN","SDE C25",346,0 )
4148    K ^TMP("S DEC",$J)   4148    K ^TMP("S DEC",$J)
4149   "RTN","SDE C25",347,0 )   4149   "RTN","SDE C25",347,0 )
4150    S SDECY=" ^TMP(""SDE C"","_$J_" )"   4150    S SDECY=" ^TMP(""SDE C"","_$J_" )"
4151   "RTN","SDE C25",348,0 )   4151   "RTN","SDE C25",348,0 )
4152    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)   4152    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)
4153   "RTN","SDE C25",349,0 )   4153   "RTN","SDE C25",349,0 )
4154    S RPCPERM =""   4154    S RPCPERM =""
4155   "RTN","SDE C25",350,0 )   4155   "RTN","SDE C25",350,0 )
4156    S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD  SUPERVISO R KEY IS R EQUIRED TO  PERFORM T HIS ACTION .") Q   4156    S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD  SUPERVISO R KEY IS R EQUIRED TO  PERFORM T HIS ACTION .") Q
4157   "RTN","SDE C25",351,0 )   4157   "RTN","SDE C25",351,0 )
4158    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q   4158    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q
4159   "RTN","SDE C25",352,0 )   4159   "RTN","SDE C25",352,0 )
4160    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q   4160    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q
4161   "RTN","SDE C25",353,0 )   4161   "RTN","SDE C25",353,0 )
4162    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   4162    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
4163   "RTN","SDE C25",354,0 )   4163   "RTN","SDE C25",354,0 )
4164    S APS=$P( SDECNOD,U, 19)   4164    S APS=$P( SDECNOD,U, 19)
4165   "RTN","SDE C25",355,0 )   4165   "RTN","SDE C25",355,0 )
4166    S DFN=$P( SDECNOD,U, 5)   4166    S DFN=$P( SDECNOD,U, 5)
4167   "RTN","SDE C25",356,0 )   4167   "RTN","SDE C25",356,0 )
4168    S SDT=$P( SDECNOD,U)   4168    S SDT=$P( SDECNOD,U)
4169   "RTN","SDE C25",357,0 )   4169   "RTN","SDE C25",357,0 )
4170    S RES=$P( SDECNOD,U, 7)   4170    S RES=$P( SDECNOD,U, 7)
4171   "RTN","SDE C25",358,0 )   4171   "RTN","SDE C25",358,0 )
4172    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)   4172    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)
4173   "RTN","SDE C25",359,0 )   4173   "RTN","SDE C25",359,0 )
4174    I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q   4174    I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q
4175   "RTN","SDE C25",360,0 )   4175   "RTN","SDE C25",360,0 )
4176    ;   4176    ;
4177   "RTN","SDE C25",361,0 )   4177   "RTN","SDE C25",361,0 )
4178    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18   4178    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
4179   "RTN","SDE C25",362,0 )   4179   "RTN","SDE C25",362,0 )
4180    ;   4180    ;
4181   "RTN","SDE C25",363,0 )   4181   "RTN","SDE C25",363,0 )
4182    N SDATA,S DDA,SDCIHD L ;   4182    N SDATA,S DDA,SDCIHD L ;
4183   "RTN","SDE C25",364,0 )   4183   "RTN","SDE C25",364,0 )
4184    S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;   4184    S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ;
4185   "RTN","SDE C25",365,0 )   4185   "RTN","SDE C25",365,0 )
4186    ;   4186    ;
4187   "RTN","SDE C25",366,0 )   4187   "RTN","SDE C25",366,0 )
4188    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18   4188    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
4189   "RTN","SDE C25",367,0 )   4189   "RTN","SDE C25",367,0 )
4190    ;   4190    ;
4191   "RTN","SDE C25",368,0 )   4191   "RTN","SDE C25",368,0 )
4192    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;   4192    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;
4193   "RTN","SDE C25",369,0 )   4193   "RTN","SDE C25",369,0 )
4194    ;   4194    ;
4195   "RTN","SDE C25",370,0 )   4195   "RTN","SDE C25",370,0 )
4196    ; ^SDECAP PT: update  piece 8:  Data Entry  Clerk; cl ear piece  14: CHECKO UT;   4196    ; ^SDECAP PT: update  piece 8:  Data Entry  Clerk; cl ear piece  14: CHECKO UT;
4197   "RTN","SDE C25",371,0 )   4197   "RTN","SDE C25",371,0 )
4198    S DIE="^S DEC(409.84 ,"   4198    S DIE="^S DEC(409.84 ,"
4199   "RTN","SDE C25",372,0 )   4199   "RTN","SDE C25",372,0 )
4200    S DA=SDEC APTID   4200    S DA=SDEC APTID
4201   "RTN","SDE C25",373,0 )   4201   "RTN","SDE C25",373,0 )
4202    S DR=".14 ////@;.08/ //"_DUZ   4202    S DR=".14 ////@;.08/ //"_DUZ
4203   "RTN","SDE C25",374,0 )   4203   "RTN","SDE C25",374,0 )
4204    D ^DIE   4204    D ^DIE
4205   "RTN","SDE C25",375,0 )   4205   "RTN","SDE C25",375,0 )
4206    ; ^SC fil e 44: clea r piece C; 3: CHECKED  OUT; clea r piece C; 4: CHECK O UT USER; c lear C;6:  CHECK OUT  ENTERED   4206    ; ^SC fil e 44: clea r piece C; 3: CHECKED  OUT; clea r piece C; 4: CHECK O UT USER; c lear C;6:  CHECK OUT  ENTERED
4207   "RTN","SDE C25",376,0 )   4207   "RTN","SDE C25",376,0 )
4208    S DIE="^S C("_SDCL_" ,""S"","_S DT_",1,"   4208    S DIE="^S C("_SDCL_" ,""S"","_S DT_",1,"
4209   "RTN","SDE C25",377,0 )   4209   "RTN","SDE C25",377,0 )
4210    S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT )   4210    S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT )
4211   "RTN","SDE C25",378,0 )   4211   "RTN","SDE C25",378,0 )
4212    S DR="303 ///@;304// /@;306///@ "   4212    S DR="303 ///@;304// /@;306///@ "
4213   "RTN","SDE C25",379,0 )   4213   "RTN","SDE C25",379,0 )
4214    D ^DIE   4214    D ^DIE
4215   "RTN","SDE C25",380,0 )   4215   "RTN","SDE C25",380,0 )
4216    ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME   4216    ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME
4217   "RTN","SDE C25",381,0 )   4217   "RTN","SDE C25",381,0 )
4218    S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL)   4218    S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL)
4219   "RTN","SDE C25",382,0 )   4219   "RTN","SDE C25",382,0 )
4220    S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I")   4220    S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I")
4221   "RTN","SDE C25",383,0 )   4221   "RTN","SDE C25",383,0 )
4222    I +SDV D   4222    I +SDV D
4223   "RTN","SDE C25",384,0 )   4223   "RTN","SDE C25",384,0 )
4224    . S DIE=" ^AUPNVSIT( ",DA=SDV   4224    . S DIE=" ^AUPNVSIT( ",DA=SDV
4225   "RTN","SDE C25",385,0 )   4225   "RTN","SDE C25",385,0 )
4226    . S DR=". 18///@"   4226    . S DR=". 18///@"
4227   "RTN","SDE C25",386,0 )   4227   "RTN","SDE C25",386,0 )
4228    . D ^DIE   4228    . D ^DIE
4229   "RTN","SDE C25",387,0 )   4229   "RTN","SDE C25",387,0 )
4230    ; ^SCE fi le 409.68:  Set piece  12 back t o CHECKED  IN, pointe r to APPOI NTMENT STA TUS file 4 09.63; cle ar piece 7 : CHECK OU T PROCESS  COMPLETION   4230    ; ^SCE fi le 409.68:  Set piece  12 back t o CHECKED  IN, pointe r to APPOI NTMENT STA TUS file 4 09.63; cle ar piece 7 : CHECK OU T PROCESS  COMPLETION
4231   "RTN","SDE C25",388,0 )   4231   "RTN","SDE C25",388,0 )
4232    I +APS D   4232    I +APS D
4233   "RTN","SDE C25",389,0 )   4233   "RTN","SDE C25",389,0 )
4234    . S DIE=4 09.68,DA=S DOE,DR=".0 7///@;.12/ //"_APS_"; 101///"_DU Z_";102/// "_$$NOW^XL FDT   4234    . S DIE=4 09.68,DA=S DOE,DR=".0 7///@;.12/ //"_APS_"; 101///"_DU Z_";102/// "_$$NOW^XL FDT
4235   "RTN","SDE C25",390,0 )   4235   "RTN","SDE C25",390,0 )
4236    . D ^DIE   4236    . D ^DIE
4237   "RTN","SDE C25",391,0 )   4237   "RTN","SDE C25",391,0 )
4238    ;   4238    ;
4239   "RTN","SDE C25",392,0 )   4239   "RTN","SDE C25",392,0 )
4240    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/25/18   4240    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/25/18
4241   "RTN","SDE C25",393,0 )   4241   "RTN","SDE C25",393,0 )
4242    ;   4242    ;
4243   "RTN","SDE C25",394,0 )   4243   "RTN","SDE C25",394,0 )
4244    D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL)  ;   4244    D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL)  ;
4245   "RTN","SDE C25",395,0 )   4245   "RTN","SDE C25",395,0 )
4246    ;   4246    ;
4247   "RTN","SDE C25",396,0 )   4247   "RTN","SDE C25",396,0 )
4248    ;  Execut e event dr iver.  5=c heck out ( see #409.6 6), 2=non- interactiv e - wtc SD *5.3*717 1 0/25/18   4248    ;  Execut e event dr iver.  5=c heck out ( see #409.6 6), 2=non- interactiv e - wtc SD *5.3*717 1 0/25/18
4249   "RTN","SDE C25",397,0 )   4249   "RTN","SDE C25",397,0 )
4250    ;   4250    ;
4251   "RTN","SDE C25",398,0 )   4251   "RTN","SDE C25",398,0 )
4252    D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ;   4252    D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ;
4253   "RTN","SDE C25",399,0 )   4253   "RTN","SDE C25",399,0 )
4254    ;   4254    ;
4255   "RTN","SDE C25",400,0 )   4255   "RTN","SDE C25",400,0 )
4256    S SDECI=S DECI+1   4256    S SDECI=S DECI+1
4257   "RTN","SDE C25",401,0 )   4257   "RTN","SDE C25",401,0 )
4258    S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30)   4258    S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30)
4259   "RTN","SDE C25",402,0 )   4259   "RTN","SDE C25",402,0 )
4260    S SDECI=S DECI+1   4260    S SDECI=S DECI+1
4261   "RTN","SDE C25",403,0 )   4261   "RTN","SDE C25",403,0 )
4262    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   4262    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
4263   "RTN","SDE C25",404,0 )   4263   "RTN","SDE C25",404,0 )
4264    Q   4264    Q
4265   "RTN","SDE C25",405,0 )   4265   "RTN","SDE C25",405,0 )
4266    ;   4266    ;
4267   "RTN","SDE C25",406,0 )   4267   "RTN","SDE C25",406,0 )
4268   CANAPPT(SD ECAPTID)   ;external  call to ca ncel check  out in SD EC APPOINT MENT calle d by SDCOD EL for Vis tA Delete  Check Out   4268   CANAPPT(SD ECAPTID)   ;external  call to ca ncel check  out in SD EC APPOINT MENT calle d by SDCOD EL for Vis tA Delete  Check Out
4269   "RTN","SDE C25",407,0 )   4269   "RTN","SDE C25",407,0 )
4270    N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT   4270    N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT
4271   "RTN","SDE C25",408,0 )   4271   "RTN","SDE C25",408,0 )
4272    N SDECNOD   4272    N SDECNOD
4273   "RTN","SDE C25",409,0 )   4273   "RTN","SDE C25",409,0 )
4274    I '+$G(SD ECAPTID) Q   4274    I '+$G(SD ECAPTID) Q
4275   "RTN","SDE C25",410,0 )   4275   "RTN","SDE C25",410,0 )
4276    I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q   4276    I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q
4277   "RTN","SDE C25",411,0 )   4277   "RTN","SDE C25",411,0 )
4278    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   4278    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
4279   "RTN","SDE C25",412,0 )   4279   "RTN","SDE C25",412,0 )
4280    S APS=$P( SDECNOD,U, 19)   4280    S APS=$P( SDECNOD,U, 19)
4281   "RTN","SDE C25",413,0 )   4281   "RTN","SDE C25",413,0 )
4282    S DFN=$P( SDECNOD,U, 5)   4282    S DFN=$P( SDECNOD,U, 5)
4283   "RTN","SDE C25",414,0 )   4283   "RTN","SDE C25",414,0 )
4284    S SDT=$P( SDECNOD,U)   4284    S SDT=$P( SDECNOD,U)
4285   "RTN","SDE C25",415,0 )   4285   "RTN","SDE C25",415,0 )
4286    S RES=$P( SDECNOD,U, 7)   4286    S RES=$P( SDECNOD,U, 7)
4287   "RTN","SDE C25",416,0 )   4287   "RTN","SDE C25",416,0 )
4288    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)   4288    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)
4289   "RTN","SDE C25",417,0 )   4289   "RTN","SDE C25",417,0 )
4290    I $P(SDEC NOD,U,14)= "" Q   4290    I $P(SDEC NOD,U,14)= "" Q
4291   "RTN","SDE C25",418,0 )   4291   "RTN","SDE C25",418,0 )
4292    ; ^SDEC(4 09.84: upd ate piece  8: Data En try Clerk;  clear pie ce 14: CHE CKOUT;   4292    ; ^SDEC(4 09.84: upd ate piece  8: Data En try Clerk;  clear pie ce 14: CHE CKOUT;
4293   "RTN","SDE C25",419,0 )   4293   "RTN","SDE C25",419,0 )
4294    S DIE="^S DEC(409.84 ,"   4294    S DIE="^S DEC(409.84 ,"
4295   "RTN","SDE C25",420,0 )   4295   "RTN","SDE C25",420,0 )
4296    S DA=SDEC APTID   4296    S DA=SDEC APTID
4297   "RTN","SDE C25",421,0 )   4297   "RTN","SDE C25",421,0 )
4298    S DR=".14 ////@;.08/ //"_DUZ   4298    S DR=".14 ////@;.08/ //"_DUZ
4299   "RTN","SDE C25",422,0 )   4299   "RTN","SDE C25",422,0 )
4300    D ^DIE   4300    D ^DIE
4301   "RTN","SDE C25",423,0 )   4301   "RTN","SDE C25",423,0 )
4302    Q   4302    Q
4303   "RTN","SDE C25",424,0 )   4303   "RTN","SDE C25",424,0 )
4304    ;   4304    ;
4305   "RTN","SDE C25",425,0 )   4305   "RTN","SDE C25",425,0 )
4306   ERROR ;   4306   ERROR ;
4307   "RTN","SDE C25",426,0 )   4307   "RTN","SDE C25",426,0 )
4308    D ERR("VI STA Error" )   4308    D ERR("VI STA Error" )
4309   "RTN","SDE C25",427,0 )   4309   "RTN","SDE C25",427,0 )
4310    Q   4310    Q
4311   "RTN","SDE C25",428,0 )   4311   "RTN","SDE C25",428,0 )
4312    ;   4312    ;
4313   "RTN","SDE C25",429,0 )   4313   "RTN","SDE C25",429,0 )
4314   ERR(ERRNO)  ;Error pr ocessing   4314   ERR(ERRNO)  ;Error pr ocessing
4315   "RTN","SDE C25",430,0 )   4315   "RTN","SDE C25",430,0 )
4316    S SDECI=S DECI+1   4316    S SDECI=S DECI+1
4317   "RTN","SDE C25",431,0 )   4317   "RTN","SDE C25",431,0 )
4318    S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30)   4318    S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30)
4319   "RTN","SDE C25",432,0 )   4319   "RTN","SDE C25",432,0 )
4320    S SDECI=S DECI+1   4320    S SDECI=S DECI+1
4321   "RTN","SDE C25",433,0 )   4321   "RTN","SDE C25",433,0 )
4322    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   4322    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
4323   "RTN","SDE C25",434,0 )   4323   "RTN","SDE C25",434,0 )
4324    Q   4324    Q
4325   "RTN","SDE C31")   4325   "RTN","SDE C31")
4326   0^8^B34969 907^B26336 338   4326   0^8^B34969 907^B26336 338
4327   "RTN","SDE C31",1,0)   4327   "RTN","SDE C31",1,0)
4328   SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;JAN 15, 2 016   4328   SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;JAN 15, 2 016
4329   "RTN","SDE C31",2,0)   4329   "RTN","SDE C31",2,0)
4330    ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7   4330    ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7
4331   "RTN","SDE C31",3,0)   4331   "RTN","SDE C31",3,0)
4332    ;   4332    ;
4333   "RTN","SDE C31",4,0)   4333   "RTN","SDE C31",4,0)
4334    Q   4334    Q
4335   "RTN","SDE C31",5,0)   4335   "RTN","SDE C31",5,0)
4336    ;   4336    ;
4337   "RTN","SDE C31",6,0)   4337   "RTN","SDE C31",6,0)
4338   NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE)  ; Sets appoi ntment nos how flag i n SDEC APP OINTMENT f ile   4338   NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE)  ; Sets appoi ntment nos how flag i n SDEC APP OINTMENT f ile
4339   "RTN","SDE C31",7,0)   4339   "RTN","SDE C31",7,0)
4340    ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE)   external  parameter  tag is in  SDEC   4340    ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE)   external  parameter  tag is in  SDEC
4341   "RTN","SDE C31",8,0)   4341   "RTN","SDE C31",8,0)
4342    ;Called b y SDEC NOS HOW   4342    ;Called b y SDEC NOS HOW
4343   "RTN","SDE C31",9,0)   4343   "RTN","SDE C31",9,0)
4344    ;SDECAPTI D - (requi red) Appoi ntment ID  - Pointer  to SDEC AP POINTMENT  file   4344    ;SDECAPTI D - (requi red) Appoi ntment ID  - Pointer  to SDEC AP POINTMENT  file
4345   "RTN","SDE C31",10,0)   4345   "RTN","SDE C31",10,0)
4346    ;SDECNS     - (requi red) Cance l flag  1= YES (Set N OSHOW); 0= NO (Cancel  NOSHOW)   4346    ;SDECNS     - (requi red) Cance l flag  1= YES (Set N OSHOW); 0= NO (Cancel  NOSHOW)
4347   "RTN","SDE C31",11,0)   4347   "RTN","SDE C31",11,0)
4348    ;USERIEN    - (optio nal) User  that enter ed NoShow  pointer to  NEW PERSO N   4348    ;USERIEN    - (optio nal) User  that enter ed NoShow  pointer to  NEW PERSO N
4349   "RTN","SDE C31",12,0)   4349   "RTN","SDE C31",12,0)
4350    ;                         defau lt to curr ent user   4350    ;                         defau lt to curr ent user
4351   "RTN","SDE C31",13,0)   4351   "RTN","SDE C31",13,0)
4352    ;SDECDATE   - (optio nal) Date/ Time that  No-show wa s entered  in externa l format   4352    ;SDECDATE   - (optio nal) Date/ Time that  No-show wa s entered  in externa l format
4353   "RTN","SDE C31",14,0)   4353   "RTN","SDE C31",14,0)
4354    ;                        defaul t to NOW.   4354    ;                        defaul t to NOW.
4355   "RTN","SDE C31",15,0)   4355   "RTN","SDE C31",15,0)
4356    ;Calls CA NCEL^SDEC0 8 to set n oshow data  in ^DPT   <<== NOT T RUE wtc 10 /25/18   4356    ;Calls CA NCEL^SDEC0 8 to set n oshow data  in ^DPT   <<== NOT T RUE wtc 10 /25/18
4357   "RTN","SDE C31",16,0)   4357   "RTN","SDE C31",16,0)
4358    ;Returns  error code  in record set field  ERRORID   4358    ;Returns  error code  in record set field  ERRORID
4359   "RTN","SDE C31",17,0)   4359   "RTN","SDE C31",17,0)
4360    ;   4360    ;
4361   "RTN","SDE C31",18,0)   4361   "RTN","SDE C31",18,0)
4362    N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS   4362    N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS
4363   "RTN","SDE C31",19,0)   4363   "RTN","SDE C31",19,0)
4364    N SDECNOE V,%DT,X,Y, SDECOE   4364    N SDECNOE V,%DT,X,Y, SDECOE
4365   "RTN","SDE C31",20,0)   4365   "RTN","SDE C31",20,0)
4366    S SDECNOE V=1 ;Don't  execute p rotocol   4366    S SDECNOE V=1 ;Don't  execute p rotocol
4367   "RTN","SDE C31",21,0)   4367   "RTN","SDE C31",21,0)
4368    ;   4368    ;
4369   "RTN","SDE C31",22,0)   4369   "RTN","SDE C31",22,0)
4370    S SDECI=0   4370    S SDECI=0
4371   "RTN","SDE C31",23,0)   4371   "RTN","SDE C31",23,0)
4372    K ^TMP("S DEC",$J)   4372    K ^TMP("S DEC",$J)
4373   "RTN","SDE C31",24,0)   4373   "RTN","SDE C31",24,0)
4374    S SDECY=" ^TMP(""SDE C"","_$J_" )"   4374    S SDECY=" ^TMP(""SDE C"","_$J_" )"
4375   "RTN","SDE C31",25,0)   4375   "RTN","SDE C31",25,0)
4376    S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30)   4376    S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30)
4377   "RTN","SDE C31",26,0)   4377   "RTN","SDE C31",26,0)
4378    S SDECI=S DECI+1   4378    S SDECI=S DECI+1
4379   "RTN","SDE C31",27,0)   4379   "RTN","SDE C31",27,0)
4380    ;validate  SDEC appo intment ID   4380    ;validate  SDEC appo intment ID
4381   "RTN","SDE C31",28,0)   4381   "RTN","SDE C31",28,0)
4382    I '+SDECA PTID D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q   4382    I '+SDECA PTID D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q
4383   "RTN","SDE C31",29,0)   4383   "RTN","SDE C31",29,0)
4384    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31:  Invalid A ppointment  ID") Q   4384    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31:  Invalid A ppointment  ID") Q
4385   "RTN","SDE C31",30,0)   4385   "RTN","SDE C31",30,0)
4386    ;validate  cancel fl ag   4386    ;validate  cancel fl ag
4387   "RTN","SDE C31",31,0)   4387   "RTN","SDE C31",31,0)
4388    S SDECNS= $G(SDECNS)   4388    S SDECNS= $G(SDECNS)
4389   "RTN","SDE C31",32,0)   4389   "RTN","SDE C31",32,0)
4390    S SDECNS= $S(SDECNS= "YES":1,SD ECNS=1:1,S DECNS="NO" :0,SDECNS= 0:0,1:"")   4390    S SDECNS= $S(SDECNS= "YES":1,SD ECNS=1:1,S DECNS="NO" :0,SDECNS= 0:0,1:"")
4391   "RTN","SDE C31",33,0)   4391   "RTN","SDE C31",33,0)
4392    I SDECNS= "" D ERR(0 ,"SDEC31:  Invalid No  Show valu e") Q   4392    I SDECNS= "" D ERR(0 ,"SDEC31:  Invalid No  Show valu e") Q
4393   "RTN","SDE C31",34,0)   4393   "RTN","SDE C31",34,0)
4394    ;validate  user IEN  (optional)   4394    ;validate  user IEN  (optional)
4395   "RTN","SDE C31",35,0)   4395   "RTN","SDE C31",35,0)
4396    S USERIEN =$G(USERIE N)   4396    S USERIEN =$G(USERIE N)
4397   "RTN","SDE C31",36,0)   4397   "RTN","SDE C31",36,0)
4398    I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N=""   4398    I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N=""
4399   "RTN","SDE C31",37,0)   4399   "RTN","SDE C31",37,0)
4400    I USERIEN ="" S USER IEN=DUZ   4400    I USERIEN ="" S USER IEN=DUZ
4401   "RTN","SDE C31",38,0)   4401   "RTN","SDE C31",38,0)
4402    ;validate  cancel da te/time (o ptional)   4402    ;validate  cancel da te/time (o ptional)
4403   "RTN","SDE C31",39,0)   4403   "RTN","SDE C31",39,0)
4404    S SDECDAT E=$G(SDECD ATE)   4404    S SDECDAT E=$G(SDECD ATE)
4405   "RTN","SDE C31",40,0)   4405   "RTN","SDE C31",40,0)
4406    I SDECDAT E'="" S %D T="T" S X= SDECDATE D  ^%DT S SD ECDATE=Y I  Y=-1 S SD ECDATE=""   4406    I SDECDAT E'="" S %D T="T" S X= SDECDATE D  ^%DT S SD ECDATE=Y I  Y=-1 S SD ECDATE=""
4407   "RTN","SDE C31",41,0)   4407   "RTN","SDE C31",41,0)
4408    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T   4408    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T
4409   "RTN","SDE C31",42,0)   4409   "RTN","SDE C31",42,0)
4410    TSTART   4410    TSTART
4411   "RTN","SDE C31",43,0)   4411   "RTN","SDE C31",43,0)
4412    ;   4412    ;
4413   "RTN","SDE C31",44,0)   4413   "RTN","SDE C31",44,0)
4414    ;Edit SDE C APPOINTM ENT entry  NOSHOW fie ld   4414    ;Edit SDE C APPOINTM ENT entry  NOSHOW fie ld
4415   "RTN","SDE C31",45,0)   4415   "RTN","SDE C31",45,0)
4416    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)   4416    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
4417   "RTN","SDE C31",46,0)   4417   "RTN","SDE C31",46,0)
4418    ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q   4418    ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q
4419   "RTN","SDE C31",47,0)   4419   "RTN","SDE C31",47,0)
4420    S DFN=$P( SDECNOD,U, 5)   4420    S DFN=$P( SDECNOD,U, 5)
4421   "RTN","SDE C31",48,0)   4421   "RTN","SDE C31",48,0)
4422    S SDECSTA RT=$P(SDEC NOD,U)   4422    S SDECSTA RT=$P(SDEC NOD,U)
4423   "RTN","SDE C31",49,0)   4423   "RTN","SDE C31",49,0)
4424    ;   4424    ;
4425   "RTN","SDE C31",50,0)   4425   "RTN","SDE C31",50,0)
4426    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18   4426    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
4427   "RTN","SDE C31",51,0)   4427   "RTN","SDE C31",51,0)
4428    ;   4428    ;
4429   "RTN","SDE C31",52,0)   4429   "RTN","SDE C31",52,0)
4430    N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ;   4430    N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ;
4431   "RTN","SDE C31",53,0)   4431   "RTN","SDE C31",53,0)
4432    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID   4432    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID
4433   "RTN","SDE C31",54,0)   4433   "RTN","SDE C31",54,0)
4434    I SDECR1= "" D ERR(0 ,"SDEC31:  Missing re source") Q   ;   4434    I SDECR1= "" D ERR(0 ,"SDEC31:  Missing re source") Q   ;
4435   "RTN","SDE C31",55,0)   4435   "RTN","SDE C31",55,0)
4436    S SDECNOD =$G(^SDEC( 409.831,SD ECR1,0)) I  SDECNOD=" " D ERR(0, "SDEC31: R esource no de missing ") Q  ;   4436    S SDECNOD =$G(^SDEC( 409.831,SD ECR1,0)) I  SDECNOD=" " D ERR(0, "SDEC31: R esource no de missing ") Q  ;
4437   "RTN","SDE C31",56,0)   4437   "RTN","SDE C31",56,0)
4438    S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION   4438    S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION
4439   "RTN","SDE C31",57,0)   4439   "RTN","SDE C31",57,0)
4440    I SDECSC1 =""  D ERR (0,"SDEC31 : No locat ion for re source") Q   ;   4440    I SDECSC1 =""  D ERR (0,"SDEC31 : No locat ion for re source") Q   ;
4441   "RTN","SDE C31",58,0)   4441   "RTN","SDE C31",58,0)
4442    I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31:  Location n ode missin g") Q  ;   4442    I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31:  Location n ode missin g") Q  ;
4443   "RTN","SDE C31",59,0)   4443   "RTN","SDE C31",59,0)
4444    ;   4444    ;
4445   "RTN","SDE C31",60,0)   4445   "RTN","SDE C31",60,0)
4446    S SDDA=$$ FIND^SDEC2 5(DFN,SDEC START,SDEC SC1),SDATA =SDDA_U_DF N_U_SDECST ART_U_SDEC SC1,SDCIHD L=$$HANDLE ^SDAMEVT(1 ) ;   4446    S SDDA=$$ FIND^SDEC2 5(DFN,SDEC START,SDEC SC1),SDATA =SDDA_U_DF N_U_SDECST ART_U_SDEC SC1,SDCIHD L=$$HANDLE ^SDAMEVT(1 ) ;
4447   "RTN","SDE C31",61,0)   4447   "RTN","SDE C31",61,0)
4448    D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL)  ;   4448    D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL)  ;
4449   "RTN","SDE C31",62,0)   4449   "RTN","SDE C31",62,0)
4450    ;   4450    ;
4451   "RTN","SDE C31",63,0)   4451   "RTN","SDE C31",63,0)
4452    ;  Proces s no show   4452    ;  Proces s no show
4453   "RTN","SDE C31",64,0)   4453   "RTN","SDE C31",64,0)
4454    ;   4454    ;
4455   "RTN","SDE C31",65,0)   4455   "RTN","SDE C31",65,0)
4456    D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ;   4456    D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ;
4457   "RTN","SDE C31",66,0)   4457   "RTN","SDE C31",66,0)
4458    I $D(SDEC MSG("DIERR ")) S SDEC MSG=$G(SDE CMSG("DIER R",1,"TEXT ",1)) D ER R(0,"SDEC3 1: "_SDECM SG) Q  ;    4458    I $D(SDEC MSG("DIERR ")) S SDEC MSG=$G(SDE CMSG("DIER R",1,"TEXT ",1)) D ER R(0,"SDEC3 1: "_SDECM SG) Q  ; 
4459   "RTN","SDE C31",67,0)   4459   "RTN","SDE C31",67,0)
4460    D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ;   4460    D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ;
4461   "RTN","SDE C31",68,0)   4461   "RTN","SDE C31",68,0)
4462    I +$G(SDE CZ) S SDEC ERR="SDEC3 1: APNOSHO  Returned:  "_SDECZ D  ERR(0,SDE CERR) Q  ;   4462    I +$G(SDE CZ) S SDEC ERR="SDEC3 1: APNOSHO  Returned:  "_SDECZ D  ERR(0,SDE CERR) Q  ;
4463   "RTN","SDE C31",69,0)   4463   "RTN","SDE C31",69,0)
4464    ;   4464    ;
4465   "RTN","SDE C31",70,0)   4465   "RTN","SDE C31",70,0)
4466    ;*zeb+2 6 83 2/6/18  fix action  required  in PCE aft er no-show  from GUI   4466    ;*zeb+2 6 83 2/6/18  fix action  required  in PCE aft er no-show  from GUI
4467   "RTN","SDE C31",71,0)   4467   "RTN","SDE C31",71,0)
4468    S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20)   4468    S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20)
4469   "RTN","SDE C31",72,0)   4469   "RTN","SDE C31",72,0)
4470    I SDECOE  D EN^SDCOD EL(SDECOE, 2,"","NOSH OW")  ;*ze b 717 11/1 3/18 suppr ess event  logging fo r cancel c heckout wh en no-show ing   4470    I SDECOE  D EN^SDCOD EL(SDECOE, 2,"","NOSH OW")  ;*ze b 717 11/1 3/18 suppr ess event  logging fo r cancel c heckout wh en no-show ing
4471   "RTN","SDE C31",73,0)   4471   "RTN","SDE C31",73,0)
4472    ;   4472    ;
4473   "RTN","SDE C31",74,0)   4473   "RTN","SDE C31",74,0)
4474    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/24/18   4474    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/24/18
4475   "RTN","SDE C31",75,0)   4475   "RTN","SDE C31",75,0)
4476    ;   4476    ;
4477   "RTN","SDE C31",76,0)   4477   "RTN","SDE C31",76,0)
4478    D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL)  ;   4478    D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL)  ;
4479   "RTN","SDE C31",77,0)   4479   "RTN","SDE C31",77,0)
4480    ;   4480    ;
4481   "RTN","SDE C31",78,0)   4481   "RTN","SDE C31",78,0)
4482    ;  Execut e event dr iver.  3=n o show (se e #409.66) , 2=non-in teractive  - wtc SD*5 .3*717 10/ 25/18   4482    ;  Execut e event dr iver.  3=n o show (se e #409.66) , 2=non-in teractive  - wtc SD*5 .3*717 10/ 25/18
4483   "RTN","SDE C31",79,0)   4483   "RTN","SDE C31",79,0)
4484    ;   4484    ;
4485   "RTN","SDE C31",80,0)   4485   "RTN","SDE C31",80,0)
4486    D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ;   4486    D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ;
4487   "RTN","SDE C31",81,0)   4487   "RTN","SDE C31",81,0)
4488    ;   4488    ;
4489   "RTN","SDE C31",82,0)   4489   "RTN","SDE C31",82,0)
4490    TCOMMIT   4490    TCOMMIT
4491   "RTN","SDE C31",83,0)   4491   "RTN","SDE C31",83,0)
4492    S SDECI=S DECI+1   4492    S SDECI=S DECI+1
4493   "RTN","SDE C31",84,0)   4493   "RTN","SDE C31",84,0)
4494    S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30)   4494    S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30)
4495   "RTN","SDE C31",85,0)   4495   "RTN","SDE C31",85,0)
4496    S SDECI=S DECI+1   4496    S SDECI=S DECI+1
4497   "RTN","SDE C31",86,0)   4497   "RTN","SDE C31",86,0)
4498    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   4498    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
4499   "RTN","SDE C31",87,0)   4499   "RTN","SDE C31",87,0)
4500    Q   4500    Q
4501   "RTN","SDE C31",88,0)   4501   "RTN","SDE C31",88,0)
4502    ;   4502    ;
4503   "RTN","SDE C31",89,0)   4503   "RTN","SDE C31",89,0)
4504   APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID)  ;   4504   APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID)  ;
4505   "RTN","SDE C31",90,0)   4505   "RTN","SDE C31",90,0)
4506    ; update  file 2 inf o   4506    ; update  file 2 inf o
4507   "RTN","SDE C31",91,0)   4507   "RTN","SDE C31",91,0)
4508    ;Set nosh ow for pat ient DFN i n clinic S DCL   4508    ;Set nosh ow for pat ient DFN i n clinic S DCL
4509   "RTN","SDE C31",92,0)   4509   "RTN","SDE C31",92,0)
4510    ;at time  SDT   4510    ;at time  SDT
4511   "RTN","SDE C31",93,0)   4511   "RTN","SDE C31",93,0)
4512    N SDECC,% H,SDECIEN, SDRTYP   4512    N SDECC,% H,SDECIEN, SDRTYP
4513   "RTN","SDE C31",94,0)   4513   "RTN","SDE C31",94,0)
4514    N SDECIEN S,SDFDA,SD ECMSG,IEN   4514    N SDECIEN S,SDFDA,SD ECMSG,IEN
4515   "RTN","SDE C31",95,0)   4515   "RTN","SDE C31",95,0)
4516    S %H=$H D  YMD^%DTC   4516    S %H=$H D  YMD^%DTC
4517   "RTN","SDE C31",96,0)   4517   "RTN","SDE C31",96,0)
4518    ;   4518    ;
4519   "RTN","SDE C31",97,0)   4519   "RTN","SDE C31",97,0)
4520    S SDECIEN S=SDT_","_ DFN_","   4520    S SDECIEN S=SDT_","_ DFN_","
4521   "RTN","SDE C31",98,0)   4521   "RTN","SDE C31",98,0)
4522    I +SDECNS  D   4522    I +SDECNS  D
4523   "RTN","SDE C31",99,0)   4523   "RTN","SDE C31",99,0)
4524    . S SDFDA (2.98,SDEC IENS,3)="N "   4524    . S SDFDA (2.98,SDEC IENS,3)="N "
4525   "RTN","SDE C31",100,0 )   4525   "RTN","SDE C31",100,0 )
4526    . S SDFDA (2.98,SDEC IENS,14)=U SERIEN   4526    . S SDFDA (2.98,SDEC IENS,14)=U SERIEN
4527   "RTN","SDE C31",101,0 )   4527   "RTN","SDE C31",101,0 )
4528    . S SDFDA (2.98,SDEC IENS,15)=S DECCDT   4528    . S SDFDA (2.98,SDEC IENS,15)=S DECCDT
4529   "RTN","SDE C31",102,0 )   4529   "RTN","SDE C31",102,0 )
4530    E  D   4530    E  D
4531   "RTN","SDE C31",103,0 )   4531   "RTN","SDE C31",103,0 )
4532    . S SDFDA (2.98,SDEC IENS,3)=""   4532    . S SDFDA (2.98,SDEC IENS,3)=""
4533   "RTN","SDE C31",104,0 )   4533   "RTN","SDE C31",104,0 )
4534    . S SDFDA (2.98,SDEC IENS,14)=" "   4534    . S SDFDA (2.98,SDEC IENS,14)=" "
4535   "RTN","SDE C31",105,0 )   4535   "RTN","SDE C31",105,0 )
4536    . S SDFDA (2.98,SDEC IENS,15)=" "   4536    . S SDFDA (2.98,SDEC IENS,15)=" "
4537   "RTN","SDE C31",106,0 )   4537   "RTN","SDE C31",106,0 )
4538    K SDECIEN   4538    K SDECIEN
4539   "RTN","SDE C31",107,0 )   4539   "RTN","SDE C31",107,0 )
4540    D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG")   4540    D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG")
4541   "RTN","SDE C31",108,0 )   4541   "RTN","SDE C31",108,0 )
4542    S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1))   4542    S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1))
4543   "RTN","SDE C31",109,0 )   4543   "RTN","SDE C31",109,0 )
4544    S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I")   4544    S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I")
4545   "RTN","SDE C31",110,0 )   4545   "RTN","SDE C31",110,0 )
4546    I $P(SDRT YP,";",2)= "GMR(123,"  D   4546    I $P(SDRT YP,";",2)= "GMR(123,"  D
4547   "RTN","SDE C31",111,0 )   4547   "RTN","SDE C31",111,0 )
4548    .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT)   4548    .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT)
4549   "RTN","SDE C31",112,0 )   4549   "RTN","SDE C31",112,0 )
4550    .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN)     ;, AUTO,NSDIE ,NSDA)   4550    .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN)     ;, AUTO,NSDIE ,NSDA)
4551   "RTN","SDE C31",113,0 )   4551   "RTN","SDE C31",113,0 )
4552    Q   4552    Q
4553   "RTN","SDE C31",114,0 )   4553   "RTN","SDE C31",114,0 )
4554    ;   4554    ;
4555   "RTN","SDE C31",115,0 )   4555   "RTN","SDE C31",115,0 )
4556   SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ;   4556   SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ;
4557   "RTN","SDE C31",116,0 )   4557   "RTN","SDE C31",116,0 )
4558    ;   4558    ;
4559   "RTN","SDE C31",117,0 )   4559   "RTN","SDE C31",117,0 )
4560    N SDFDA,S DECIENS   4560    N SDFDA,S DECIENS
4561   "RTN","SDE C31",118,0 )   4561   "RTN","SDE C31",118,0 )
4562    S SDECIEN S=SDECAPTI D_","   4562    S SDECIEN S=SDECAPTI D_","
4563   "RTN","SDE C31",119,0 )   4563   "RTN","SDE C31",119,0 )
4564    S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW   4564    S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW
4565   "RTN","SDE C31",120,0 )   4565   "RTN","SDE C31",120,0 )
4566    S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"")  ;N OSHOW DATE   4566    S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"")  ;N OSHOW DATE
4567   "RTN","SDE C31",121,0 )   4567   "RTN","SDE C31",121,0 )
4568    S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"")   ;N OSHOW USER   4568    S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"")   ;N OSHOW USER
4569   "RTN","SDE C31",122,0 )   4569   "RTN","SDE C31",122,0 )
4570    S SDFDA(4 09.84,SDEC IENS,.17)= $S(+SDECNS :"N",1:"")  ;  Update  STATUS SD *5.3*717 w tc 10/25/1 8   4570    S SDFDA(4 09.84,SDEC IENS,.17)= $S(+SDECNS :"N",1:"")  ;  Update  STATUS SD *5.3*717 w tc 10/25/1 8
4571   "RTN","SDE C31",123,0 )   4571   "RTN","SDE C31",123,0 )
4572    D FILE^DI E("","SDFD A","SDECMS G")   4572    D FILE^DI E("","SDFD A","SDECMS G")
4573   "RTN","SDE C31",124,0 )   4573   "RTN","SDE C31",124,0 )
4574    ;   4574    ;
4575   "RTN","SDE C31",125,0 )   4575   "RTN","SDE C31",125,0 )
4576    Q   4576    Q
4577   "RTN","SDE C31",126,0 )   4577   "RTN","SDE C31",126,0 )
4578    ;   4578    ;
4579   "RTN","SDE C31",127,0 )   4579   "RTN","SDE C31",127,0 )
4580   NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT  event   4580   NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT  event
4581   "RTN","SDE C31",128,0 )   4581   "RTN","SDE C31",128,0 )
4582    ;when app ointments  NOSHOW via  PIMS inte rface.   4582    ;when app ointments  NOSHOW via  PIMS inte rface.
4583   "RTN","SDE C31",129,0 )   4583   "RTN","SDE C31",129,0 )
4584    ;Propagat es NOSHOW  to SDECAPP T and rais es refresh  event to  running GU I clients   4584    ;Propagat es NOSHOW  to SDECAPP T and rais es refresh  event to  running GU I clients
4585   "RTN","SDE C31",130,0 )   4585   "RTN","SDE C31",130,0 )
4586    ;   4586    ;
4587   "RTN","SDE C31",131,0 )   4587   "RTN","SDE C31",131,0 )
4588    Q:+$G(SDE CNOEV)   4588    Q:+$G(SDE CNOEV)
4589   "RTN","SDE C31",132,0 )   4589   "RTN","SDE C31",132,0 )
4590    Q:'+$G(SD ECSC)   4590    Q:'+$G(SD ECSC)
4591   "RTN","SDE C31",133,0 )   4591   "RTN","SDE C31",133,0 )
4592    ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK"   4592    ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK"
4593   "RTN","SDE C31",134,0 )   4593   "RTN","SDE C31",134,0 )
4594    N SDECSTA T,SDECFOUN D,SDECRES   4594    N SDECSTA T,SDECFOUN D,SDECRES
4595   "RTN","SDE C31",135,0 )   4595   "RTN","SDE C31",135,0 )
4596    S SDECSTA T=1   4596    S SDECSTA T=1
4597   "RTN","SDE C31",136,0 )   4597   "RTN","SDE C31",136,0 )
4598    ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0   4598    ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0
4599   "RTN","SDE C31",137,0 )   4599   "RTN","SDE C31",137,0 )
4600    S SDECFOU ND=0   4600    S SDECFOU ND=0
4601   "RTN","SDE C31",138,0 )   4601   "RTN","SDE C31",138,0 )
4602    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$NOSEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT)   4602    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))  S SDECFOU ND=$$NOSEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT)
4603   "RTN","SDE C31",139,0 )   4603   "RTN","SDE C31",139,0 )
4604    I SDECFOU ND D NOSEV T3(SDECRES ) Q   4604    I SDECFOU ND D NOSEV T3(SDECRES ) Q
4605   "RTN","SDE C31",140,0 )   4605   "RTN","SDE C31",140,0 )
4606    Q   4606    Q
4607   "RTN","SDE C31",141,0 )   4607   "RTN","SDE C31",141,0 )
4608    ;   4608    ;
4609   "RTN","SDE C31",142,0 )   4609   "RTN","SDE C31",142,0 )
4610   NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;   4610   NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;
4611   "RTN","SDE C31",143,0 )   4611   "RTN","SDE C31",143,0 )
4612    ;Get appo intment id  in SDECAP T   4612    ;Get appo intment id  in SDECAP T
4613   "RTN","SDE C31",144,0 )   4613   "RTN","SDE C31",144,0 )
4614    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1   4614    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1
4615   "RTN","SDE C31",145,0 )   4615   "RTN","SDE C31",145,0 )
4616    ;else ret urn 0   4616    ;else ret urn 0
4617   "RTN","SDE C31",146,0 )   4617   "RTN","SDE C31",146,0 )
4618    N SDECFOU ND,SDECAPP T   4618    N SDECFOU ND,SDECAPP T
4619   "RTN","SDE C31",147,0 )   4619   "RTN","SDE C31",147,0 )
4620    S SDECFOU ND=0   4620    S SDECFOU ND=0
4621   "RTN","SDE C31",148,0 )   4621   "RTN","SDE C31",148,0 )
4622    Q:'+$G(SD ECRES) SDE CFOUND   4622    Q:'+$G(SD ECRES) SDE CFOUND
4623   "RTN","SDE C31",149,0 )   4623   "RTN","SDE C31",149,0 )
4624    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND   4624    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
4625   "RTN","SDE C31",150,0 )   4625   "RTN","SDE C31",150,0 )
4626    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND   4626    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND
4627   "RTN","SDE C31",151,0 )   4627   "RTN","SDE C31",151,0 )
4628    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""   4628    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
4629   "RTN","SDE C31",152,0 )   4629   "RTN","SDE C31",152,0 )
4630    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q   4630    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
4631   "RTN","SDE C31",153,0 )   4631   "RTN","SDE C31",153,0 )
4632    I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT)   4632    I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT)
4633   "RTN","SDE C31",154,0 )   4633   "RTN","SDE C31",154,0 )
4634    Q SDECFOU ND   4634    Q SDECFOU ND
4635   "RTN","SDE C31",155,0 )   4635   "RTN","SDE C31",155,0 )
4636    ;   4636    ;
4637   "RTN","SDE C31",156,0 )   4637   "RTN","SDE C31",156,0 )
4638   NOSEVT3(SD ECRES) ;   4638   NOSEVT3(SD ECRES) ;
4639   "RTN","SDE C31",157,0 )   4639   "RTN","SDE C31",157,0 )
4640    ;Call Rai seEvent to  notify GU I clients   4640    ;Call Rai seEvent to  notify GU I clients
4641   "RTN","SDE C31",158,0 )   4641   "RTN","SDE C31",158,0 )
4642    ;   4642    ;
4643   "RTN","SDE C31",159,0 )   4643   "RTN","SDE C31",159,0 )
4644    Q   4644    Q
4645   "RTN","SDE C31",160,0 )   4645   "RTN","SDE C31",160,0 )
4646    N SDECRES N   4646    N SDECRES N
4647   "RTN","SDE C31",161,0 )   4647   "RTN","SDE C31",161,0 )
4648    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))   4648    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
4649   "RTN","SDE C31",162,0 )   4649   "RTN","SDE C31",162,0 )
4650    Q:SDECRES N=""   4650    Q:SDECRES N=""
4651   "RTN","SDE C31",163,0 )   4651   "RTN","SDE C31",163,0 )
4652    S SDECRES N=$P(SDECR ESN,"^")   4652    S SDECRES N=$P(SDECR ESN,"^")
4653   "RTN","SDE C31",164,0 )   4653   "RTN","SDE C31",164,0 )
4654    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)   4654    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
4655   "RTN","SDE C31",165,0 )   4655   "RTN","SDE C31",165,0 )
4656    Q   4656    Q
4657   "RTN","SDE C31",166,0 )   4657   "RTN","SDE C31",166,0 )
4658    ;   4658    ;
4659   "RTN","SDE C31",167,0 )   4659   "RTN","SDE C31",167,0 )
4660    ;   4660    ;
4661   "RTN","SDE C31",168,0 )   4661   "RTN","SDE C31",168,0 )
4662   ERR(SDECER ID,ERRTXT)  ;Error pr ocessing   4662   ERR(SDECER ID,ERRTXT)  ;Error pr ocessing
4663   "RTN","SDE C31",169,0 )   4663   "RTN","SDE C31",169,0 )
4664    S:'+$G(SD ECI) SDECI =999999   4664    S:'+$G(SD ECI) SDECI =999999
4665   "RTN","SDE C31",170,0 )   4665   "RTN","SDE C31",170,0 )
4666    S SDECI=S DECI+1   4666    S SDECI=S DECI+1
4667   "RTN","SDE C31",171,0 )   4667   "RTN","SDE C31",171,0 )
4668    TROLLBACK   4668    TROLLBACK
4669   "RTN","SDE C31",172,0 )   4669   "RTN","SDE C31",172,0 )
4670    S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 )   4670    S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 )
4671   "RTN","SDE C31",173,0 )   4671   "RTN","SDE C31",173,0 )
4672    S SDECI=S DECI+1   4672    S SDECI=S DECI+1
4673   "RTN","SDE C31",174,0 )   4673   "RTN","SDE C31",174,0 )
4674    S ^TMP("S DEC",$J,SD ECI)=$C(31 )   4674    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
4675   "RTN","SDE C31",175,0 )   4675   "RTN","SDE C31",175,0 )
4676    Q   4676    Q
4677   "RTN","SDE C31",176,0 )   4677   "RTN","SDE C31",176,0 )
4678    ;   4678    ;
4679   "RTN","SDE C31",177,0 )   4679   "RTN","SDE C31",177,0 )
4680   ETRAP ;EP  Error trap  entry   4680   ETRAP ;EP  Error trap  entry
4681   "RTN","SDE C31",178,0 )   4681   "RTN","SDE C31",178,0 )
4682    D ^%ZTER   4682    D ^%ZTER
4683   "RTN","SDE C31",179,0 )   4683   "RTN","SDE C31",179,0 )
4684    I '$D(SDE CI) N SDEC I S SDECI= 999999   4684    I '$D(SDE CI) N SDEC I S SDECI= 999999
4685   "RTN","SDE C31",180,0 )   4685   "RTN","SDE C31",180,0 )
4686    S SDECI=S DECI+1   4686    S SDECI=S DECI+1
4687   "RTN","SDE C31",181,0 )   4687   "RTN","SDE C31",181,0 )
4688    D ERR(0," SDEC31 Err or")   4688    D ERR(0," SDEC31 Err or")
4689   "RTN","SDE C31",182,0 )   4689   "RTN","SDE C31",182,0 )
4690    Q   4690    Q
4691   "RTN","SDE C31",183,0 )   4691   "RTN","SDE C31",183,0 )
4692    ;   4692    ;
4693   "RTN","SDE C31",184,0 )   4693   "RTN","SDE C31",184,0 )
4694   IMHERE(SDE CRES) ;I'm  Here   4694   IMHERE(SDE CRES) ;I'm  Here
4695   "RTN","SDE C31",185,0 )   4695   "RTN","SDE C31",185,0 )
4696    ;IMHERE(S DECRES)  e xternal pa rameter ta g is in SD EC   4696    ;IMHERE(S DECRES)  e xternal pa rameter ta g is in SD EC
4697   "RTN","SDE C31",186,0 )   4697   "RTN","SDE C31",186,0 )
4698    ;Entry po int for SD EC IM HERE  remote pr ocedure   4698    ;Entry po int for SD EC IM HERE  remote pr ocedure
4699   "RTN","SDE C31",187,0 )   4699   "RTN","SDE C31",187,0 )
4700    ; Returns  a simple  value to c lient.  Us ed to esta blish cont inued exis tence   4700    ; Returns  a simple  value to c lient.  Us ed to esta blish cont inued exis tence
4701   "RTN","SDE C31",188,0 )   4701   "RTN","SDE C31",188,0 )
4702    ; of the  client to  the server ; resets t he server  READ timeo ut.   4702    ; of the  client to  the server ; resets t he server  READ timeo ut.
4703   "RTN","SDE C31",189,0 )   4703   "RTN","SDE C31",189,0 )
4704    S SDECRES =1   4704    S SDECRES =1
4705   "RTN","SDE C31",190,0 )   4705   "RTN","SDE C31",190,0 )
4706    Q   4706    Q
4707   "RTN","SDE C31",191,0 )   4707   "RTN","SDE C31",191,0 )
4708    ;   4708    ;
4709   "VER")   4709   "VER")
4710   8.0^22.2   4710   8.0^22.2
4711   "BLD",1036 4,6)   4711   "BLD",1036 4,6)
4712   4^   4712   4^
4713   $END KID S D*5.3*717   4713   $END KID S D*5.3*717