1. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/1/2019 2:58:38 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 VSE_P2_SD_5.3_717.zip SD_5.3_717.KIDS Fri May 31 20:37:08 2019 UTC
2 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
  2   $KID SD*5. 3*717
  3   **INSTALL  NAME**
  4   SD*5.3*717
  5   "BLD",1036 4,0)
  6   SD*5.3*717 ^SCHEDULIN G^0^319032 6^y
  7   "BLD",1036 4,1,0)
  8   ^^294^294^ 3181106^
  9   "BLD",1036 4,1,1,0)
  10   This patch  corrects  the proble m of appoi ntment pro cessing in  VistA
  11   "BLD",1036 4,1,2,0)
  12   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM 
  13   "BLD",1036 4,1,3,0)
  14   APPOINTMEN T
  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
  17   "BLD",1036 4,1,5,0)
  18   to tie fun ctionality , includin g interfac es to exte rnal syste ms such as
  19   "BLD",1036 4,1,6,0)
  20   Pyxis, Omn icell, and  EDIS,to a ppointment  events. A ctions cur rently bei ng
  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
  23   "BLD",1036 4,1,8,0)
  24   appointmen ts when th ose events  (make app ointment,  check in,  undo check  in,
  25   "BLD",1036 4,1,9,0)
  26   check out,  undo chec k out, can cel appoin tment, no  show) are  triggered  by
  27   "BLD",1036 4,1,10,0)
  28   the GUI. ( However, t his patch  does not r equire a G UI update. )
  29   "BLD",1036 4,1,11,0)
  30     
  31   "BLD",1036 4,1,12,0)
  32   Patch Comp onents
  33   "BLD",1036 4,1,13,0)
  34   ========== ======
  35   "BLD",1036 4,1,14,0)
  36    
  37   "BLD",1036 4,1,15,0)
  38   Files & Fi elds Assoc iated:
  39   "BLD",1036 4,1,16,0)
  40    
  41   "BLD",1036 4,1,17,0)
  42   File Name  (#)                                                 Ne w/Modified /
  43   "BLD",1036 4,1,18,0)
  44     Sub-file  Name (#)    Field Na me (Number )                     Deleted
  45   "BLD",1036 4,1,19,0)
  46   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
  47   "BLD",1036 4,1,20,0)
  48   N/A
  49   "BLD",1036 4,1,21,0)
  50    
  51   "BLD",1036 4,1,22,0)
  52   Bulletins  Associated :
  53   "BLD",1036 4,1,23,0)
  54                                                                  Ne w/Modified /
  55   "BLD",1036 4,1,24,0)
  56   Bulletin N ame                                                    Deleted     
  57   "BLD",1036 4,1,25,0)
  58   ---------- ---                                                 -- ---------- -
  59   "BLD",1036 4,1,26,0)
  60   N/A
  61   "BLD",1036 4,1,27,0)
  62    
  63   "BLD",1036 4,1,28,0)
  64    
  65   "BLD",1036 4,1,29,0)
  66    
  67   "BLD",1036 4,1,30,0)
  68   Dialogs As sociated:
  69   "BLD",1036 4,1,31,0)
  70                                                                  Ne w/Modified /
  71   "BLD",1036 4,1,32,0)
  72   Dialog Nam e                                                      Deleted     
  73   "BLD",1036 4,1,33,0)
  74   ---------- -                                                   -- ---------- -
  75   "BLD",1036 4,1,34,0)
  76   N/A
  77   "BLD",1036 4,1,35,0)
  78    
  79   "BLD",1036 4,1,36,0)
  80    
  81   "BLD",1036 4,1,37,0)
  82    
  83   "BLD",1036 4,1,38,0)
  84   Forms Asso ciated:
  85   "BLD",1036 4,1,39,0)
  86                                                                  Ne w/Modified /
  87   "BLD",1036 4,1,40,0)
  88   Form Name                      F ile Name ( Number)               Deleted     
  89   "BLD",1036 4,1,41,0)
  90   ---------                      - ---------- -------            -- ---------- -
  91   "BLD",1036 4,1,42,0)
  92   N/A
  93   "BLD",1036 4,1,43,0)
  94    
  95   "BLD",1036 4,1,44,0)
  96    
  97   "BLD",1036 4,1,45,0)
  98    
  99   "BLD",1036 4,1,46,0)
  100   Functions  Associated :
  101   "BLD",1036 4,1,47,0)
  102                                                                  Ne w/Modified /
  103   "BLD",1036 4,1,48,0)
  104   Function N ame                                                    Deleted     
  105   "BLD",1036 4,1,49,0)
  106   ---------- ---                                                 -- ---------- -
  107   "BLD",1036 4,1,50,0)
  108   N/A
  109   "BLD",1036 4,1,51,0)
  110    
  111   "BLD",1036 4,1,52,0)
  112    
  113   "BLD",1036 4,1,53,0)
  114    
  115   "BLD",1036 4,1,54,0)
  116   HL Logical  Link:
  117   "BLD",1036 4,1,55,0)
  118                                                                  Ne w/Modified /
  119   "BLD",1036 4,1,56,0)
  120   HL Logical  Name                                                  Deleted     
  121   "BLD",1036 4,1,57,0)
  122   ---------- -----                                               -- ---------- -
  123   "BLD",1036 4,1,58,0)
  124   N/A
  125   "BLD",1036 4,1,59,0)
  126    
  127   "BLD",1036 4,1,60,0)
  128    
  129   "BLD",1036 4,1,61,0)
  130    
  131   "BLD",1036 4,1,62,0)
  132   HL7 Applic ation Para meters:
  133   "BLD",1036 4,1,63,0)
  134                                                                  Ne w/Modified /
  135   "BLD",1036 4,1,64,0)
  136   HL7 Parame ter Name                                               Deleted     
  137   "BLD",1036 4,1,65,0)
  138   ---------- --------                                            -- ---------- -
  139   "BLD",1036 4,1,66,0)
  140   N/A
  141   "BLD",1036 4,1,67,0)
  142    
  143   "BLD",1036 4,1,68,0)
  144    
  145   "BLD",1036 4,1,69,0)
  146    
  147   "BLD",1036 4,1,70,0)
  148   HLO Applic ation Regi stry:
  149   "BLD",1036 4,1,71,0)
  150                                                                  Ne w/Modified /
  151   "BLD",1036 4,1,72,0)
  152   HLO Regist ry Name                                                Deleted     
  153   "BLD",1036 4,1,73,0)
  154   ---------- -------                                             -- ---------- -
  155   "BLD",1036 4,1,74,0)
  156   N/A
  157   "BLD",1036 4,1,75,0)
  158    
  159   "BLD",1036 4,1,76,0)
  160    
  161   "BLD",1036 4,1,77,0)
  162    
  163   "BLD",1036 4,1,78,0)
  164   Help Frame s Associat ed:
  165   "BLD",1036 4,1,79,0)
  166                                                                  Ne w/Modified /
  167   "BLD",1036 4,1,80,0)
  168   Help Frame  Name                                                  Deleted     
  169   "BLD",1036 4,1,81,0)
  170   ---------- -----                                               -- ---------- -
  171   "BLD",1036 4,1,82,0)
  172   N/A
  173   "BLD",1036 4,1,83,0)
  174    
  175   "BLD",1036 4,1,84,0)
  176    
  177   "BLD",1036 4,1,85,0)
  178    
  179   "BLD",1036 4,1,86,0)
  180   Mail Group s Associat ed:
  181   "BLD",1036 4,1,87,0)
  182                                                                  Ne w/Modified /
  183   "BLD",1036 4,1,88,0)
  184   Mail Group  Name                                                  Deleted     
  185   "BLD",1036 4,1,89,0)
  186   ---------- -----                                               -- ---------- -
  187   "BLD",1036 4,1,90,0)
  188   N/A
  189   "BLD",1036 4,1,91,0)
  190    
  191   "BLD",1036 4,1,92,0)
  192    
  193   "BLD",1036 4,1,93,0)
  194    
  195   "BLD",1036 4,1,94,0)
  196   Options As sociated:
  197   "BLD",1036 4,1,95,0)
  198                                                                           
  199   "BLD",1036 4,1,96,0)
  200   New/Modifi ed/
  201   "BLD",1036 4,1,97,0)
  202   Option Nam e                                                  Typ e       
  203   "BLD",1036 4,1,98,0)
  204   Deleted     
  205   "BLD",1036 4,1,99,0)
  206   ---------- -                                                  --- -     
  207   "BLD",1036 4,1,100,0)
  208   ---------- ---
  209   "BLD",1036 4,1,101,0)
  210   N/A
  211   "BLD",1036 4,1,102,0)
  212    
  213   "BLD",1036 4,1,103,0)
  214    
  215   "BLD",1036 4,1,104,0)
  216    
  217   "BLD",1036 4,1,105,0)
  218   Parameter  Definition s:
  219   "BLD",1036 4,1,106,0)
  220                                                                  Ne w/Modified /
  221   "BLD",1036 4,1,107,0)
  222   Parameter  Name                                                   Deleted     
  223   "BLD",1036 4,1,108,0)
  224   ---------- ----                                                -- ---------- -
  225   "BLD",1036 4,1,109,0)
  226   N/A
  227   "BLD",1036 4,1,110,0)
  228    
  229   "BLD",1036 4,1,111,0)
  230    
  231   "BLD",1036 4,1,112,0)
  232    
  233   "BLD",1036 4,1,113,0)
  234   Parameter  Template:
  235   "BLD",1036 4,1,114,0)
  236                                                                  Ne w/Modified /
  237   "BLD",1036 4,1,115,0)
  238   Template N ame                                                    Deleted     
  239   "BLD",1036 4,1,116,0)
  240   ---------- ---                                                 -- ---------- -
  241   "BLD",1036 4,1,117,0)
  242   N/A
  243   "BLD",1036 4,1,118,0)
  244    
  245   "BLD",1036 4,1,119,0)
  246    
  247   "BLD",1036 4,1,120,0)
  248    
  249   "BLD",1036 4,1,121,0)
  250   Protocols  Associated :
  251   "BLD",1036 4,1,122,0)
  252                                                                  Ne w/Modified /
  253   "BLD",1036 4,1,123,0)
  254   Protocol N ame                                                    Deleted     
  255   "BLD",1036 4,1,124,0)
  256   ---------- ---                                                 -- ---------- -
  257   "BLD",1036 4,1,125,0)
  258   N/A
  259   "BLD",1036 4,1,126,0)
  260    
  261   "BLD",1036 4,1,127,0)
  262    
  263   "BLD",1036 4,1,128,0)
  264    
  265   "BLD",1036 4,1,129,0)
  266   Remote Pro cedures As sociated:
  267   "BLD",1036 4,1,130,0)
  268                                                                  Ne w/Modified /
  269   "BLD",1036 4,1,131,0)
  270   Remote Pro cedure Nam e                                           Deleted     
  271   "BLD",1036 4,1,132,0)
  272   ---------- ---------- -                                        -- ---------- -
  273   "BLD",1036 4,1,133,0)
  274   N/A
  275   "BLD",1036 4,1,134,0)
  276    
  277   "BLD",1036 4,1,135,0)
  278    
  279   "BLD",1036 4,1,136,0)
  280    
  281   "BLD",1036 4,1,137,0)
  282   Security K eys Associ ated:
  283   "BLD",1036 4,1,138,0)
  284                                                                  Ne w/Modified /
  285   "BLD",1036 4,1,139,0)
  286   Security K ey Name                                                Deleted     
  287   "BLD",1036 4,1,140,0)
  288   ---------- -------                                             -- ---------- -
  289   "BLD",1036 4,1,141,0)
  290   N/A
  291   "BLD",1036 4,1,142,0)
  292    
  293   "BLD",1036 4,1,143,0)
  294    
  295   "BLD",1036 4,1,144,0)
  296    
  297   "BLD",1036 4,1,145,0)
  298   Templates,  Input Ass ociated:
  299   "BLD",1036 4,1,146,0)
  300                                                                  Ne w/Modified /
  301   "BLD",1036 4,1,147,0)
  302   Template N ame      T ype      F ile Name ( Number)               Deleted     
  303   "BLD",1036 4,1,148,0)
  304   ---------- ---      - ---      - ---------- -------            -- ---------- -
  305   "BLD",1036 4,1,149,0)
  306   N/A
  307   "BLD",1036 4,1,150,0)
  308    
  309   "BLD",1036 4,1,151,0)
  310    
  311   "BLD",1036 4,1,152,0)
  312    
  313   "BLD",1036 4,1,153,0)
  314   Templates,  List Asso ciated:
  315   "BLD",1036 4,1,154,0)
  316                                                                  Ne w/Modified /
  317   "BLD",1036 4,1,155,0)
  318   Template N ame      T ype                                         Deleted     
  319   "BLD",1036 4,1,156,0)
  320   ---------- ---      - ---                                      -- ---------- -
  321   "BLD",1036 4,1,157,0)
  322   N/A
  323   "BLD",1036 4,1,158,0)
  324    
  325   "BLD",1036 4,1,159,0)
  326    
  327   "BLD",1036 4,1,160,0)
  328    
  329   "BLD",1036 4,1,161,0)
  330   Templates,  Print Ass ociated:
  331   "BLD",1036 4,1,162,0)
  332                                                                     New/Modifi ed/
  333   "BLD",1036 4,1,163,0)
  334   Template N ame          Type  Fi le Name (N umber)                   Deleted     
  335   "BLD",1036 4,1,164,0)
  336   ---------- ---          ----  -- ---------- ------                ---------- ---
  337   "BLD",1036 4,1,165,0)
  338   N/A
  339   "BLD",1036 4,1,166,0)
  340    
  341   "BLD",1036 4,1,167,0)
  342    
  343   "BLD",1036 4,1,168,0)
  344    
  345   "BLD",1036 4,1,169,0)
  346   Templates,  Sort Asso ciated:
  347   "BLD",1036 4,1,170,0)
  348                                                                        
  349   "BLD",1036 4,1,171,0)
  350   New/Modifi ed/
  351   "BLD",1036 4,1,172,0)
  352   Template N ame              Type  File Name  (Number)                   
  353   "BLD",1036 4,1,173,0)
  354   Deleted     
  355   "BLD",1036 4,1,174,0)
  356   ---------- ---              ----  --------- ---------                
  357   "BLD",1036 4,1,175,0)
  358   ---------- ---
  359   "BLD",1036 4,1,176,0)
  360   N/A
  361   "BLD",1036 4,1,177,0)
  362    
  363   "BLD",1036 4,1,178,0)
  364    
  365   "BLD",1036 4,1,179,0)
  366   Additional  Informati on:
  367   "BLD",1036 4,1,180,0)
  368   N/A
  369   "BLD",1036 4,1,181,0)
  370    
  371   "BLD",1036 4,1,182,0)
  372    
  373   "BLD",1036 4,1,183,0)
  374   New Servic e Requests  (NSRs)
  375   "BLD",1036 4,1,184,0)
  376   ---------- ---------- --------  
  377   "BLD",1036 4,1,185,0)
  378   N/A
  379   "BLD",1036 4,1,186,0)
  380    
  381   "BLD",1036 4,1,187,0)
  382    
  383   "BLD",1036 4,1,188,0)
  384   Patient Sa fety Issue s (PSIs)
  385   "BLD",1036 4,1,189,0)
  386   ---------- ---------- ---------
  387   "BLD",1036 4,1,190,0)
  388   N/A
  389   "BLD",1036 4,1,191,0)
  390    
  391   "BLD",1036 4,1,192,0)
  392    
  393   "BLD",1036 4,1,193,0)
  394   ServiceNow  Ticket(s)  & Overvie w
  395   "BLD",1036 4,1,194,0)
  396   ---------- ---------- ---------- ---------- -------
  397   "BLD",1036 4,1,195,0)
  398   I17005764F Y18  Pyxis  and EDIS  are not re cognizing  clinic che ck in acti ons
  399   "BLD",1036 4,1,196,0)
  400     
  401   "BLD",1036 4,1,197,0)
  402   Problem:
  403   "BLD",1036 4,1,198,0)
  404   -------
  405   "BLD",1036 4,1,199,0)
  406   When a use r performs  appointme nt actions  in VS GUI , downstre am systems  
  407   "BLD",1036 4,1,200,0)
  408   such
  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
  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
  413   "BLD",1036 4,1,203,0)
  414   VistA.
  415   "BLD",1036 4,1,204,0)
  416    
  417   "BLD",1036 4,1,205,0)
  418   Resolution :
  419   "BLD",1036 4,1,206,0)
  420   ----------
  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
  423   "BLD",1036 4,1,208,0)
  424   VistA, mea ning that  the downst ream syste ms will be  notified  in the sam e
  425   "BLD",1036 4,1,209,0)
  426   way whethe r actions  are taken  on them in  GUI or le gacy.
  427   "BLD",1036 4,1,210,0)
  428    
  429   "BLD",1036 4,1,211,0)
  430   Test Sites :
  431   "BLD",1036 4,1,212,0)
  432   ----------
  433   "BLD",1036 4,1,213,0)
  434   TBA
  435   "BLD",1036 4,1,214,0)
  436    
  437   "BLD",1036 4,1,215,0)
  438   Software a nd Documen tation Ret rieval Ins tructions:
  439   "BLD",1036 4,1,216,0)
  440   ---------- ---------- ---------- ---------- ---------- --
  441   "BLD",1036 4,1,217,0)
  442    
  443   "BLD",1036 4,1,218,0)
  444   Software b eing relea sed as a h ost file a nd/or docu mentation  describing
  445   "BLD",1036 4,1,219,0)
  446   the new fu nctionalit y introduc ed by this  patch are  available .
  447   "BLD",1036 4,1,220,0)
  448     
  449   "BLD",1036 4,1,221,0)
  450   The prefer red method  is to ret rieve file s from dow nload. DNS . URL
  451   "BLD",1036 4,1,222,0)
  452   This trans mits the f iles from  the first  available  server. Si tes may
  453   "BLD",1036 4,1,223,0)
  454   also elect  to retrie ve files d irectly fr om a speci fic server .  
  455   "BLD",1036 4,1,224,0)
  456     
  457   "BLD",1036 4,1,225,0)
  458   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  459   "BLD",1036 4,1,226,0)
  460   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE
  461   "BLD",1036 4,1,227,0)
  462   directory  at the fol lowing OI  Field Offi ces:
  463   "BLD",1036 4,1,228,0)
  464     
  465   "BLD",1036 4,1,229,0)
  466     Hines:            DNS     .U RL        
  467   "BLD",1036 4,1,230,0)
  468       Salt Lake  City:  DNS . URL        
  469   "BLD",1036 4,1,231,0)
  470    
  471   "BLD",1036 4,1,232,0)
  472    
  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 
  475   "BLD",1036 4,1,234,0)
  476   at:
  477   "BLD",1036 4,1,235,0)
  478   http:// URL              /
  479   "BLD",1036 4,1,236,0)
  480    
  481   "BLD",1036 4,1,237,0)
  482   Title                                              Fil e Name           FTP  Mode
  483   "BLD",1036 4,1,238,0)
  484   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  485   "BLD",1036 4,1,239,0)
  486   VistA Sche duling Enh ancements  GUI User G uide   SCH EDULING_UG .PDF  Bina ry
  487   "BLD",1036 4,1,240,0)
  488   VistA Sche duling Enh ancements  Technical  Manual SCH EDULING_TM .PDF  Bina ry
  489   "BLD",1036 4,1,241,0)
  490    
  491   "BLD",1036 4,1,242,0)
  492    
  493   "BLD",1036 4,1,243,0)
  494   Patch Inst allation:
  495   "BLD",1036 4,1,244,0)
  496    
  497   "BLD",1036 4,1,245,0)
  498    
  499   "BLD",1036 4,1,246,0)
  500   Pre/Post I nstallatio n Overview
  501   "BLD",1036 4,1,247,0)
  502   ---------- ---------- ----------
  503   "BLD",1036 4,1,248,0)
  504   There are  no pre- or  post-inst allation t asks for t his patch.
  505   "BLD",1036 4,1,249,0)
  506     
  507   "BLD",1036 4,1,250,0)
  508   Installati on Instruc tions
  509   "BLD",1036 4,1,251,0)
  510   ---------- ---------- -----
  511   "BLD",1036 4,1,252,0)
  512   Install Ti me - less  than 5 min utes.
  513   "BLD",1036 4,1,253,0)
  514       
  515   "BLD",1036 4,1,254,0)
  516      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.
  517   "BLD",1036 4,1,255,0)
  518      
  519   "BLD",1036 4,1,256,0)
  520      2. From  the Kerne l Installa tion & Dis tribution  System men u, select
  521   "BLD",1036 4,1,257,0)
  522         the  Installati on menu.
  523   "BLD",1036 4,1,258,0)
  524      
  525   "BLD",1036 4,1,259,0)
  526      3. From  this menu , you may  select to  use the fo llowing op tions
  527   "BLD",1036 4,1,260,0)
  528         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*717):
  529   "BLD",1036 4,1,261,0)
  530              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
  531   "BLD",1036 4,1,262,0)
  532   allow
  533   "BLD",1036 4,1,263,0)
  534                  you to  ensure th e integrit y of the r outines th at are in  the
  535   "BLD",1036 4,1,264,0)
  536                  transp ort global .
  537   "BLD",1036 4,1,265,0)
  538              b.  Print  Transport  Global - T his option  will allo w you to v iew
  539   "BLD",1036 4,1,266,0)
  540                  the co mponents o f the KIDS  build.
  541   "BLD",1036 4,1,267,0)
  542              c.  Compar e Transpor t Global t o Current  System - T his option  
  543   "BLD",1036 4,1,268,0)
  544   will
  545   "BLD",1036 4,1,269,0)
  546                  allow  you to vie w all chan ges that w ill be mad e when thi
  547   "BLD",1036 4,1,270,0)
  548                  patch  is install ed.  It co mpares all  component s of this
  549   "BLD",1036 4,1,271,0)
  550                  patch  (routines,  DD's, tem plates, et c.).
  551   "BLD",1036 4,1,272,0)
  552              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup
  553   "BLD",1036 4,1,273,0)
  554                  messag e of any r outines ex ported wit h this pat ch. It wil
  555   "BLD",1036 4,1,274,0)
  556   not
  557   "BLD",1036 4,1,275,0)
  558                  backup  any other  changes s uch as DD' s or templ ates.
  559   "BLD",1036 4,1,276,0)
  560      
  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.
  563   "BLD",1036 4,1,278,0)
  564      
  565   "BLD",1036 4,1,279,0)
  566      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"
  567   "BLD",1036 4,1,280,0)
  568         resp ond NO.
  569   "BLD",1036 4,1,281,0)
  570      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and
  571   "BLD",1036 4,1,282,0)
  572         Prot ocols? NO/ /", respon d NO
  573   "BLD",1036 4,1,283,0)
  574    
  575   "BLD",1036 4,1,284,0)
  576   Back-Out/R oll Back P lan:
  577   "BLD",1036 4,1,285,0)
  578   ---------- ---------- ----
  579   "BLD",1036 4,1,286,0)
  580   In the eve nt of a ca tastrophic  failure,  the Facili ty Chief I nformation  
  581   "BLD",1036 4,1,287,0)
  582   Officer ma y make the  decision  to back-ou t the patc h.
  583   "BLD",1036 4,1,288,0)
  584    
  585   "BLD",1036 4,1,289,0)
  586   It is impe rative tha t you have  performed  a backup  of the rou tines and
  587   "BLD",1036 4,1,290,0)
  588   the routin es include d matches  the pre-pa tch checks um from th e patch
  589   "BLD",1036 4,1,291,0)
  590   descriptio n.
  591   "BLD",1036 4,1,292,0)
  592    
  593   "BLD",1036 4,1,293,0)
  594   This patch  only cont ains routi ne updates . To back- out the pa tch please
  595   "BLD",1036 4,1,294,0)
  596   restore th e backup m essage fro m the patc h installa tion proce ss.
  597   "BLD",1036 4,4,0)
  598   ^9.64PA^^
  599   "BLD",1036 4,6)
  600   1^
  601   "BLD",1036 4,6.3)
  602   7
  603   "BLD",1036 4,"KRN",0)
  604   ^9.67PA^1. 61^23
  605   "BLD",1036 4,"KRN",.4 ,0)
  606   .4
  607   "BLD",1036 4,"KRN",.4 01,0)
  608   .401
  609   "BLD",1036 4,"KRN",.4 02,0)
  610   .402
  611   "BLD",1036 4,"KRN",.4 03,0)
  612   .403
  613   "BLD",1036 4,"KRN",.5 ,0)
  614   .5
  615   "BLD",1036 4,"KRN",.8 4,0)
  616   .84
  617   "BLD",1036 4,"KRN",1. 6,0)
  618   1.6
  619   "BLD",1036 4,"KRN",1. 61,0)
  620   1.61
  621   "BLD",1036 4,"KRN",1. 62,0)
  622   1.62
  623   "BLD",1036 4,"KRN",3. 6,0)
  624   3.6
  625   "BLD",1036 4,"KRN",3. 8,0)
  626   3.8
  627   "BLD",1036 4,"KRN",9. 2,0)
  628   9.2
  629   "BLD",1036 4,"KRN",9. 8,0)
  630   9.8
  631   "BLD",1036 4,"KRN",9. 8,"NM",0)
  632   ^9.68A^8^7
  633   "BLD",1036 4,"KRN",9. 8,"NM",1,0 )
  634   SDAMEVT^^0 ^B32857672
  635   "BLD",1036 4,"KRN",9. 8,"NM",2,0 )
  636   SDCO3^^0^B 4283789
  637   "BLD",1036 4,"KRN",9. 8,"NM",3,0 )
  638   SDCODEL^^0 ^B14749068
  639   "BLD",1036 4,"KRN",9. 8,"NM",4,0 )
  640   SDEC07B^^0 ^B86344811
  641   "BLD",1036 4,"KRN",9. 8,"NM",5,0 )
  642   SDEC08^^0^ B217036692
  643   "BLD",1036 4,"KRN",9. 8,"NM",6,0 )
  644   SDEC25^^0^ B151472805
  645   "BLD",1036 4,"KRN",9. 8,"NM",8,0 )
  646   SDEC31^^0^ B34969907
  647   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1)
  648  
  649   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 )
  650  
  651   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3)
  652  
  653   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4)
  654  
  655   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5)
  656  
  657   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6)
  658  
  659   "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8)
  660  
  661   "BLD",1036 4,"KRN",19 ,0)
  662   19
  663   "BLD",1036 4,"KRN",19 .1,0)
  664   19.1
  665   "BLD",1036 4,"KRN",10 1,0)
  666   101
  667   "BLD",1036 4,"KRN",40 9.61,0)
  668   409.61
  669   "BLD",1036 4,"KRN",77 1,0)
  670   771
  671   "BLD",1036 4,"KRN",77 9.2,0)
  672   779.2
  673   "BLD",1036 4,"KRN",87 0,0)
  674   870
  675   "BLD",1036 4,"KRN",89 89.51,0)
  676   8989.51
  677   "BLD",1036 4,"KRN",89 89.52,0)
  678   8989.52
  679   "BLD",1036 4,"KRN",89 94,0)
  680   8994
  681   "BLD",1036 4,"KRN","B ",.4,.4)
  682  
  683   "BLD",1036 4,"KRN","B ",.401,.40 1)
  684  
  685   "BLD",1036 4,"KRN","B ",.402,.40 2)
  686  
  687   "BLD",1036 4,"KRN","B ",.403,.40 3)
  688  
  689   "BLD",1036 4,"KRN","B ",.5,.5)
  690  
  691   "BLD",1036 4,"KRN","B ",.84,.84)
  692  
  693   "BLD",1036 4,"KRN","B ",1.6,1.6)
  694  
  695   "BLD",1036 4,"KRN","B ",1.61,1.6 1)
  696  
  697   "BLD",1036 4,"KRN","B ",1.62,1.6 2)
  698  
  699   "BLD",1036 4,"KRN","B ",3.6,3.6)
  700  
  701   "BLD",1036 4,"KRN","B ",3.8,3.8)
  702  
  703   "BLD",1036 4,"KRN","B ",9.2,9.2)
  704  
  705   "BLD",1036 4,"KRN","B ",9.8,9.8)
  706  
  707   "BLD",1036 4,"KRN","B ",19,19)
  708  
  709   "BLD",1036 4,"KRN","B ",19.1,19. 1)
  710  
  711   "BLD",1036 4,"KRN","B ",101,101)
  712  
  713   "BLD",1036 4,"KRN","B ",409.61,4 09.61)
  714  
  715   "BLD",1036 4,"KRN","B ",771,771)
  716  
  717   "BLD",1036 4,"KRN","B ",779.2,77 9.2)
  718  
  719   "BLD",1036 4,"KRN","B ",870,870)
  720  
  721   "BLD",1036 4,"KRN","B ",8989.51, 8989.51)
  722  
  723   "BLD",1036 4,"KRN","B ",8989.52, 8989.52)
  724  
  725   "BLD",1036 4,"KRN","B ",8994,899 4)
  726  
  727   "BLD",1036 4,"QUES",0 )
  728   ^9.62^^
  729   "BLD",1036 4,"REQB",0 )
  730   ^9.611^7^6
  731   "BLD",1036 4,"REQB",1 ,0)
  732   DVBA*2.7*2 08^2
  733   "BLD",1036 4,"REQB",2 ,0)
  734   SD*5.3*443 ^2
  735   "BLD",1036 4,"REQB",3 ,0)
  736   SD*5.3*466 ^2
  737   "BLD",1036 4,"REQB",5 ,0)
  738   SD*5.3*671 ^2
  739   "BLD",1036 4,"REQB",6 ,0)
  740   SD*5.3*683 ^2
  741   "BLD",1036 4,"REQB",7 ,0)
  742   SD*5.3*722 ^2
  743   "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1)
  744  
  745   "BLD",1036 4,"REQB"," B","SD*5.3 *443",2)
  746  
  747   "BLD",1036 4,"REQB"," B","SD*5.3 *466",3)
  748  
  749   "BLD",1036 4,"REQB"," B","SD*5.3 *671",5)
  750  
  751   "BLD",1036 4,"REQB"," B","SD*5.3 *683",6)
  752  
  753   "BLD",1036 4,"REQB"," B","SD*5.3 *722",7)
  754  
  755   "MBREQ")
  756   0
  757   "PKG",48,- 1)
  758   1^1
  759   "PKG",48,0 )
  760   SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS
  761   "PKG",48,2 2,0)
  762   ^9.49I^1^1
  763   "PKG",48,2 2,1,0)
  764   5.3^305111 9^2960613
  765   "PKG",48,2 2,1,"PAH", 1,0)
  766   717^319032 6^114
  767   "PKG",48,2 2,1,"PAH", 1,1,0)
  768   ^^294^294^ 3190326
  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
  771   "PKG",48,2 2,1,"PAH", 1,1,2,0)
  772   Scheduling  (VS) GUI  not invoki ng the eve nt driver  protocol ( SDAM 
  773   "PKG",48,2 2,1,"PAH", 1,1,3,0)
  774   APPOINTMEN T
  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
  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
  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
  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
  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,
  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
  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. )
  789   "PKG",48,2 2,1,"PAH", 1,1,11,0)
  790     
  791   "PKG",48,2 2,1,"PAH", 1,1,12,0)
  792   Patch Comp onents
  793   "PKG",48,2 2,1,"PAH", 1,1,13,0)
  794   ========== ======
  795   "PKG",48,2 2,1,"PAH", 1,1,14,0)
  796    
  797   "PKG",48,2 2,1,"PAH", 1,1,15,0)
  798   Files & Fi elds Assoc iated:
  799   "PKG",48,2 2,1,"PAH", 1,1,16,0)
  800    
  801   "PKG",48,2 2,1,"PAH", 1,1,17,0)
  802   File Name  (#)                                                 Ne w/Modified /
  803   "PKG",48,2 2,1,"PAH", 1,1,18,0)
  804     Sub-file  Name (#)    Field Na me (Number )                     Deleted
  805   "PKG",48,2 2,1,"PAH", 1,1,19,0)
  806   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
  807   "PKG",48,2 2,1,"PAH", 1,1,20,0)
  808   N/A
  809   "PKG",48,2 2,1,"PAH", 1,1,21,0)
  810    
  811   "PKG",48,2 2,1,"PAH", 1,1,22,0)
  812   Bulletins  Associated :
  813   "PKG",48,2 2,1,"PAH", 1,1,23,0)
  814                                                                  Ne w/Modified /
  815   "PKG",48,2 2,1,"PAH", 1,1,24,0)
  816   Bulletin N ame                                                    Deleted     
  817   "PKG",48,2 2,1,"PAH", 1,1,25,0)
  818   ---------- ---                                                 -- ---------- -
  819   "PKG",48,2 2,1,"PAH", 1,1,26,0)
  820   N/A
  821   "PKG",48,2 2,1,"PAH", 1,1,27,0)
  822    
  823   "PKG",48,2 2,1,"PAH", 1,1,28,0)
  824    
  825   "PKG",48,2 2,1,"PAH", 1,1,29,0)
  826    
  827   "PKG",48,2 2,1,"PAH", 1,1,30,0)
  828   Dialogs As sociated:
  829   "PKG",48,2 2,1,"PAH", 1,1,31,0)
  830                                                                  Ne w/Modified /
  831   "PKG",48,2 2,1,"PAH", 1,1,32,0)
  832   Dialog Nam e                                                      Deleted     
  833   "PKG",48,2 2,1,"PAH", 1,1,33,0)
  834   ---------- -                                                   -- ---------- -
  835   "PKG",48,2 2,1,"PAH", 1,1,34,0)
  836   N/A
  837   "PKG",48,2 2,1,"PAH", 1,1,35,0)
  838    
  839   "PKG",48,2 2,1,"PAH", 1,1,36,0)
  840    
  841   "PKG",48,2 2,1,"PAH", 1,1,37,0)
  842    
  843   "PKG",48,2 2,1,"PAH", 1,1,38,0)
  844   Forms Asso ciated:
  845   "PKG",48,2 2,1,"PAH", 1,1,39,0)
  846                                                                  Ne w/Modified /
  847   "PKG",48,2 2,1,"PAH", 1,1,40,0)
  848   Form Name                      F ile Name ( Number)               Deleted     
  849   "PKG",48,2 2,1,"PAH", 1,1,41,0)
  850   ---------                      - ---------- -------            -- ---------- -
  851   "PKG",48,2 2,1,"PAH", 1,1,42,0)
  852   N/A
  853   "PKG",48,2 2,1,"PAH", 1,1,43,0)
  854    
  855   "PKG",48,2 2,1,"PAH", 1,1,44,0)
  856    
  857   "PKG",48,2 2,1,"PAH", 1,1,45,0)
  858    
  859   "PKG",48,2 2,1,"PAH", 1,1,46,0)
  860   Functions  Associated :
  861   "PKG",48,2 2,1,"PAH", 1,1,47,0)
  862                                                                  Ne w/Modified /
  863   "PKG",48,2 2,1,"PAH", 1,1,48,0)
  864   Function N ame                                                    Deleted     
  865   "PKG",48,2 2,1,"PAH", 1,1,49,0)
  866   ---------- ---                                                 -- ---------- -
  867   "PKG",48,2 2,1,"PAH", 1,1,50,0)
  868   N/A
  869   "PKG",48,2 2,1,"PAH", 1,1,51,0)
  870    
  871   "PKG",48,2 2,1,"PAH", 1,1,52,0)
  872    
  873   "PKG",48,2 2,1,"PAH", 1,1,53,0)
  874    
  875   "PKG",48,2 2,1,"PAH", 1,1,54,0)
  876   HL Logical  Link:
  877   "PKG",48,2 2,1,"PAH", 1,1,55,0)
  878                                                                  Ne w/Modified /
  879   "PKG",48,2 2,1,"PAH", 1,1,56,0)
  880   HL Logical  Name                                                  Deleted     
  881   "PKG",48,2 2,1,"PAH", 1,1,57,0)
  882   ---------- -----                                               -- ---------- -
  883   "PKG",48,2 2,1,"PAH", 1,1,58,0)
  884   N/A
  885   "PKG",48,2 2,1,"PAH", 1,1,59,0)
  886    
  887   "PKG",48,2 2,1,"PAH", 1,1,60,0)
  888    
  889   "PKG",48,2 2,1,"PAH", 1,1,61,0)
  890    
  891   "PKG",48,2 2,1,"PAH", 1,1,62,0)
  892   HL7 Applic ation Para meters:
  893   "PKG",48,2 2,1,"PAH", 1,1,63,0)
  894                                                                  Ne w/Modified /
  895   "PKG",48,2 2,1,"PAH", 1,1,64,0)
  896   HL7 Parame ter Name                                               Deleted     
  897   "PKG",48,2 2,1,"PAH", 1,1,65,0)
  898   ---------- --------                                            -- ---------- -
  899   "PKG",48,2 2,1,"PAH", 1,1,66,0)
  900   N/A
  901   "PKG",48,2 2,1,"PAH", 1,1,67,0)
  902    
  903   "PKG",48,2 2,1,"PAH", 1,1,68,0)
  904    
  905   "PKG",48,2 2,1,"PAH", 1,1,69,0)
  906    
  907   "PKG",48,2 2,1,"PAH", 1,1,70,0)
  908   HLO Applic ation Regi stry:
  909   "PKG",48,2 2,1,"PAH", 1,1,71,0)
  910                                                                  Ne w/Modified /
  911   "PKG",48,2 2,1,"PAH", 1,1,72,0)
  912   HLO Regist ry Name                                                Deleted     
  913   "PKG",48,2 2,1,"PAH", 1,1,73,0)
  914   ---------- -------                                             -- ---------- -
  915   "PKG",48,2 2,1,"PAH", 1,1,74,0)
  916   N/A
  917   "PKG",48,2 2,1,"PAH", 1,1,75,0)
  918    
  919   "PKG",48,2 2,1,"PAH", 1,1,76,0)
  920    
  921   "PKG",48,2 2,1,"PAH", 1,1,77,0)
  922    
  923   "PKG",48,2 2,1,"PAH", 1,1,78,0)
  924   Help Frame s Associat ed:
  925   "PKG",48,2 2,1,"PAH", 1,1,79,0)
  926                                                                  Ne w/Modified /
  927   "PKG",48,2 2,1,"PAH", 1,1,80,0)
  928   Help Frame  Name                                                  Deleted     
  929   "PKG",48,2 2,1,"PAH", 1,1,81,0)
  930   ---------- -----                                               -- ---------- -
  931   "PKG",48,2 2,1,"PAH", 1,1,82,0)
  932   N/A
  933   "PKG",48,2 2,1,"PAH", 1,1,83,0)
  934    
  935   "PKG",48,2 2,1,"PAH", 1,1,84,0)
  936    
  937   "PKG",48,2 2,1,"PAH", 1,1,85,0)
  938    
  939   "PKG",48,2 2,1,"PAH", 1,1,86,0)
  940   Mail Group s Associat ed:
  941   "PKG",48,2 2,1,"PAH", 1,1,87,0)
  942                                                                  Ne w/Modified /
  943   "PKG",48,2 2,1,"PAH", 1,1,88,0)
  944   Mail Group  Name                                                  Deleted     
  945   "PKG",48,2 2,1,"PAH", 1,1,89,0)
  946   ---------- -----                                               -- ---------- -
  947   "PKG",48,2 2,1,"PAH", 1,1,90,0)
  948   N/A
  949   "PKG",48,2 2,1,"PAH", 1,1,91,0)
  950    
  951   "PKG",48,2 2,1,"PAH", 1,1,92,0)
  952    
  953   "PKG",48,2 2,1,"PAH", 1,1,93,0)
  954    
  955   "PKG",48,2 2,1,"PAH", 1,1,94,0)
  956   Options As sociated:
  957   "PKG",48,2 2,1,"PAH", 1,1,95,0)
  958                                                                           
  959   "PKG",48,2 2,1,"PAH", 1,1,96,0)
  960   New/Modifi ed/
  961   "PKG",48,2 2,1,"PAH", 1,1,97,0)
  962   Option Nam e                                                  Typ e       
  963   "PKG",48,2 2,1,"PAH", 1,1,98,0)
  964   Deleted     
  965   "PKG",48,2 2,1,"PAH", 1,1,99,0)
  966   ---------- -                                                  --- -     
  967   "PKG",48,2 2,1,"PAH", 1,1,100,0)
  968   ---------- ---
  969   "PKG",48,2 2,1,"PAH", 1,1,101,0)
  970   N/A
  971   "PKG",48,2 2,1,"PAH", 1,1,102,0)
  972    
  973   "PKG",48,2 2,1,"PAH", 1,1,103,0)
  974    
  975   "PKG",48,2 2,1,"PAH", 1,1,104,0)
  976    
  977   "PKG",48,2 2,1,"PAH", 1,1,105,0)
  978   Parameter  Definition s:
  979   "PKG",48,2 2,1,"PAH", 1,1,106,0)
  980                                                                  Ne w/Modified /
  981   "PKG",48,2 2,1,"PAH", 1,1,107,0)
  982   Parameter  Name                                                   Deleted     
  983   "PKG",48,2 2,1,"PAH", 1,1,108,0)
  984   ---------- ----                                                -- ---------- -
  985   "PKG",48,2 2,1,"PAH", 1,1,109,0)
  986   N/A
  987   "PKG",48,2 2,1,"PAH", 1,1,110,0)
  988    
  989   "PKG",48,2 2,1,"PAH", 1,1,111,0)
  990    
  991   "PKG",48,2 2,1,"PAH", 1,1,112,0)
  992    
  993   "PKG",48,2 2,1,"PAH", 1,1,113,0)
  994   Parameter  Template:
  995   "PKG",48,2 2,1,"PAH", 1,1,114,0)
  996                                                                  Ne w/Modified /
  997   "PKG",48,2 2,1,"PAH", 1,1,115,0)
  998   Template N ame                                                    Deleted     
  999   "PKG",48,2 2,1,"PAH", 1,1,116,0)
  1000   ---------- ---                                                 -- ---------- -
  1001   "PKG",48,2 2,1,"PAH", 1,1,117,0)
  1002   N/A
  1003   "PKG",48,2 2,1,"PAH", 1,1,118,0)
  1004    
  1005   "PKG",48,2 2,1,"PAH", 1,1,119,0)
  1006    
  1007   "PKG",48,2 2,1,"PAH", 1,1,120,0)
  1008    
  1009   "PKG",48,2 2,1,"PAH", 1,1,121,0)
  1010   Protocols  Associated :
  1011   "PKG",48,2 2,1,"PAH", 1,1,122,0)
  1012                                                                  Ne w/Modified /
  1013   "PKG",48,2 2,1,"PAH", 1,1,123,0)
  1014   Protocol N ame                                                    Deleted     
  1015   "PKG",48,2 2,1,"PAH", 1,1,124,0)
  1016   ---------- ---                                                 -- ---------- -
  1017   "PKG",48,2 2,1,"PAH", 1,1,125,0)
  1018   N/A
  1019   "PKG",48,2 2,1,"PAH", 1,1,126,0)
  1020    
  1021   "PKG",48,2 2,1,"PAH", 1,1,127,0)
  1022    
  1023   "PKG",48,2 2,1,"PAH", 1,1,128,0)
  1024    
  1025   "PKG",48,2 2,1,"PAH", 1,1,129,0)
  1026   Remote Pro cedures As sociated:
  1027   "PKG",48,2 2,1,"PAH", 1,1,130,0)
  1028                                                                  Ne w/Modified /
  1029   "PKG",48,2 2,1,"PAH", 1,1,131,0)
  1030   Remote Pro cedure Nam e                                           Deleted     
  1031   "PKG",48,2 2,1,"PAH", 1,1,132,0)
  1032   ---------- ---------- -                                        -- ---------- -
  1033   "PKG",48,2 2,1,"PAH", 1,1,133,0)
  1034   N/A
  1035   "PKG",48,2 2,1,"PAH", 1,1,134,0)
  1036    
  1037   "PKG",48,2 2,1,"PAH", 1,1,135,0)
  1038    
  1039   "PKG",48,2 2,1,"PAH", 1,1,136,0)
  1040    
  1041   "PKG",48,2 2,1,"PAH", 1,1,137,0)
  1042   Security K eys Associ ated:
  1043   "PKG",48,2 2,1,"PAH", 1,1,138,0)
  1044                                                                  Ne w/Modified /
  1045   "PKG",48,2 2,1,"PAH", 1,1,139,0)
  1046   Security K ey Name                                                Deleted     
  1047   "PKG",48,2 2,1,"PAH", 1,1,140,0)
  1048   ---------- -------                                             -- ---------- -
  1049   "PKG",48,2 2,1,"PAH", 1,1,141,0)
  1050   N/A
  1051   "PKG",48,2 2,1,"PAH", 1,1,142,0)
  1052    
  1053   "PKG",48,2 2,1,"PAH", 1,1,143,0)
  1054    
  1055   "PKG",48,2 2,1,"PAH", 1,1,144,0)
  1056    
  1057   "PKG",48,2 2,1,"PAH", 1,1,145,0)
  1058   Templates,  Input Ass ociated:
  1059   "PKG",48,2 2,1,"PAH", 1,1,146,0)
  1060                                                                  Ne w/Modified /
  1061   "PKG",48,2 2,1,"PAH", 1,1,147,0)
  1062   Template N ame      T ype      F ile Name ( Number)               Deleted     
  1063   "PKG",48,2 2,1,"PAH", 1,1,148,0)
  1064   ---------- ---      - ---      - ---------- -------            -- ---------- -
  1065   "PKG",48,2 2,1,"PAH", 1,1,149,0)
  1066   N/A
  1067   "PKG",48,2 2,1,"PAH", 1,1,150,0)
  1068    
  1069   "PKG",48,2 2,1,"PAH", 1,1,151,0)
  1070    
  1071   "PKG",48,2 2,1,"PAH", 1,1,152,0)
  1072    
  1073   "PKG",48,2 2,1,"PAH", 1,1,153,0)
  1074   Templates,  List Asso ciated:
  1075   "PKG",48,2 2,1,"PAH", 1,1,154,0)
  1076                                                                  Ne w/Modified /
  1077   "PKG",48,2 2,1,"PAH", 1,1,155,0)
  1078   Template N ame      T ype                                         Deleted     
  1079   "PKG",48,2 2,1,"PAH", 1,1,156,0)
  1080   ---------- ---      - ---                                      -- ---------- -
  1081   "PKG",48,2 2,1,"PAH", 1,1,157,0)
  1082   N/A
  1083   "PKG",48,2 2,1,"PAH", 1,1,158,0)
  1084    
  1085   "PKG",48,2 2,1,"PAH", 1,1,159,0)
  1086    
  1087   "PKG",48,2 2,1,"PAH", 1,1,160,0)
  1088    
  1089   "PKG",48,2 2,1,"PAH", 1,1,161,0)
  1090   Templates,  Print Ass ociated:
  1091   "PKG",48,2 2,1,"PAH", 1,1,162,0)
  1092                                                                     New/Modifi ed/
  1093   "PKG",48,2 2,1,"PAH", 1,1,163,0)
  1094   Template N ame          Type  Fi le Name (N umber)                   Deleted     
  1095   "PKG",48,2 2,1,"PAH", 1,1,164,0)
  1096   ---------- ---          ----  -- ---------- ------                ---------- ---
  1097   "PKG",48,2 2,1,"PAH", 1,1,165,0)
  1098   N/A
  1099   "PKG",48,2 2,1,"PAH", 1,1,166,0)
  1100    
  1101   "PKG",48,2 2,1,"PAH", 1,1,167,0)
  1102    
  1103   "PKG",48,2 2,1,"PAH", 1,1,168,0)
  1104    
  1105   "PKG",48,2 2,1,"PAH", 1,1,169,0)
  1106   Templates,  Sort Asso ciated:
  1107   "PKG",48,2 2,1,"PAH", 1,1,170,0)
  1108                                                                        
  1109   "PKG",48,2 2,1,"PAH", 1,1,171,0)
  1110   New/Modifi ed/
  1111   "PKG",48,2 2,1,"PAH", 1,1,172,0)
  1112   Template N ame              Type  File Name  (Number)                   
  1113   "PKG",48,2 2,1,"PAH", 1,1,173,0)
  1114   Deleted     
  1115   "PKG",48,2 2,1,"PAH", 1,1,174,0)
  1116   ---------- ---              ----  --------- ---------                
  1117   "PKG",48,2 2,1,"PAH", 1,1,175,0)
  1118   ---------- ---
  1119   "PKG",48,2 2,1,"PAH", 1,1,176,0)
  1120   N/A
  1121   "PKG",48,2 2,1,"PAH", 1,1,177,0)
  1122    
  1123   "PKG",48,2 2,1,"PAH", 1,1,178,0)
  1124    
  1125   "PKG",48,2 2,1,"PAH", 1,1,179,0)
  1126   Additional  Informati on:
  1127   "PKG",48,2 2,1,"PAH", 1,1,180,0)
  1128   N/A
  1129   "PKG",48,2 2,1,"PAH", 1,1,181,0)
  1130    
  1131   "PKG",48,2 2,1,"PAH", 1,1,182,0)
  1132    
  1133   "PKG",48,2 2,1,"PAH", 1,1,183,0)
  1134   New Servic e Requests  (NSRs)
  1135   "PKG",48,2 2,1,"PAH", 1,1,184,0)
  1136   ---------- ---------- --------  
  1137   "PKG",48,2 2,1,"PAH", 1,1,185,0)
  1138   N/A
  1139   "PKG",48,2 2,1,"PAH", 1,1,186,0)
  1140    
  1141   "PKG",48,2 2,1,"PAH", 1,1,187,0)
  1142    
  1143   "PKG",48,2 2,1,"PAH", 1,1,188,0)
  1144   Patient Sa fety Issue s (PSIs)
  1145   "PKG",48,2 2,1,"PAH", 1,1,189,0)
  1146   ---------- ---------- ---------
  1147   "PKG",48,2 2,1,"PAH", 1,1,190,0)
  1148   N/A
  1149   "PKG",48,2 2,1,"PAH", 1,1,191,0)
  1150    
  1151   "PKG",48,2 2,1,"PAH", 1,1,192,0)
  1152    
  1153   "PKG",48,2 2,1,"PAH", 1,1,193,0)
  1154   ServiceNow  Ticket(s)  & Overvie w
  1155   "PKG",48,2 2,1,"PAH", 1,1,194,0)
  1156   ---------- ---------- ---------- ---------- -------
  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
  1159   "PKG",48,2 2,1,"PAH", 1,1,196,0)
  1160     
  1161   "PKG",48,2 2,1,"PAH", 1,1,197,0)
  1162   Problem:
  1163   "PKG",48,2 2,1,"PAH", 1,1,198,0)
  1164   -------
  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  
  1167   "PKG",48,2 2,1,"PAH", 1,1,200,0)
  1168   such
  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
  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
  1173   "PKG",48,2 2,1,"PAH", 1,1,203,0)
  1174   VistA.
  1175   "PKG",48,2 2,1,"PAH", 1,1,204,0)
  1176    
  1177   "PKG",48,2 2,1,"PAH", 1,1,205,0)
  1178   Resolution :
  1179   "PKG",48,2 2,1,"PAH", 1,1,206,0)
  1180   ----------
  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
  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
  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.
  1187   "PKG",48,2 2,1,"PAH", 1,1,210,0)
  1188    
  1189   "PKG",48,2 2,1,"PAH", 1,1,211,0)
  1190   Test Sites :
  1191   "PKG",48,2 2,1,"PAH", 1,1,212,0)
  1192   ----------
  1193   "PKG",48,2 2,1,"PAH", 1,1,213,0)
  1194   TBA
  1195   "PKG",48,2 2,1,"PAH", 1,1,214,0)
  1196    
  1197   "PKG",48,2 2,1,"PAH", 1,1,215,0)
  1198   Software a nd Documen tation Ret rieval Ins tructions:
  1199   "PKG",48,2 2,1,"PAH", 1,1,216,0)
  1200   ---------- ---------- ---------- ---------- ---------- --
  1201   "PKG",48,2 2,1,"PAH", 1,1,217,0)
  1202    
  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
  1205   "PKG",48,2 2,1,"PAH", 1,1,219,0)
  1206   the new fu nctionalit y introduc ed by this  patch are  available .
  1207   "PKG",48,2 2,1,"PAH", 1,1,220,0)
  1208     
  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. DNS . URL
  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
  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 .  
  1215   "PKG",48,2 2,1,"PAH", 1,1,224,0)
  1216     
  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 
  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
  1221   "PKG",48,2 2,1,"PAH", 1,1,227,0)
  1222   directory  at the fol lowing OI  Field Offi ces:
  1223   "PKG",48,2 2,1,"PAH", 1,1,228,0)
  1224     
  1225   "PKG",48,2 2,1,"PAH", 1,1,229,0)
  1226     Hines:            DNS     .U RL        
  1227   "PKG",48,2 2,1,"PAH", 1,1,230,0)
  1228       Salt Lake  City:  DNS . URL        
  1229   "PKG",48,2 2,1,"PAH", 1,1,231,0)
  1230    
  1231   "PKG",48,2 2,1,"PAH", 1,1,232,0)
  1232    
  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 
  1235   "PKG",48,2 2,1,"PAH", 1,1,234,0)
  1236   at:
  1237   "PKG",48,2 2,1,"PAH", 1,1,235,0)
  1238   http:// URL              /
  1239   "PKG",48,2 2,1,"PAH", 1,1,236,0)
  1240    
  1241   "PKG",48,2 2,1,"PAH", 1,1,237,0)
  1242   Title                                              Fil e Name           FTP  Mode
  1243   "PKG",48,2 2,1,"PAH", 1,1,238,0)
  1244   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  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
  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
  1249   "PKG",48,2 2,1,"PAH", 1,1,241,0)
  1250    
  1251   "PKG",48,2 2,1,"PAH", 1,1,242,0)
  1252    
  1253   "PKG",48,2 2,1,"PAH", 1,1,243,0)
  1254   Patch Inst allation:
  1255   "PKG",48,2 2,1,"PAH", 1,1,244,0)
  1256    
  1257   "PKG",48,2 2,1,"PAH", 1,1,245,0)
  1258    
  1259   "PKG",48,2 2,1,"PAH", 1,1,246,0)
  1260   Pre/Post I nstallatio n Overview
  1261   "PKG",48,2 2,1,"PAH", 1,1,247,0)
  1262   ---------- ---------- ----------
  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.
  1265   "PKG",48,2 2,1,"PAH", 1,1,249,0)
  1266     
  1267   "PKG",48,2 2,1,"PAH", 1,1,250,0)
  1268   Installati on Instruc tions
  1269   "PKG",48,2 2,1,"PAH", 1,1,251,0)
  1270   ---------- ---------- -----
  1271   "PKG",48,2 2,1,"PAH", 1,1,252,0)
  1272   Install Ti me - less  than 5 min utes.
  1273   "PKG",48,2 2,1,"PAH", 1,1,253,0)
  1274       
  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.
  1277   "PKG",48,2 2,1,"PAH", 1,1,255,0)
  1278      
  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
  1281   "PKG",48,2 2,1,"PAH", 1,1,257,0)
  1282         the  Installati on menu.
  1283   "PKG",48,2 2,1,"PAH", 1,1,258,0)
  1284      
  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
  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):
  1289   "PKG",48,2 2,1,"PAH", 1,1,261,0)
  1290              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
  1291   "PKG",48,2 2,1,"PAH", 1,1,262,0)
  1292   allow
  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
  1295   "PKG",48,2 2,1,"PAH", 1,1,264,0)
  1296                  transp ort global .
  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
  1299   "PKG",48,2 2,1,"PAH", 1,1,266,0)
  1300                  the co mponents o f the KIDS  build.
  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  
  1303   "PKG",48,2 2,1,"PAH", 1,1,268,0)
  1304   will
  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
  1307   "PKG",48,2 2,1,"PAH", 1,1,270,0)
  1308                  patch  is install ed.  It co mpares all  component s of this
  1309   "PKG",48,2 2,1,"PAH", 1,1,271,0)
  1310                  patch  (routines,  DD's, tem plates, et c.).
  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
  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
  1315   "PKG",48,2 2,1,"PAH", 1,1,274,0)
  1316   not
  1317   "PKG",48,2 2,1,"PAH", 1,1,275,0)
  1318                  backup  any other  changes s uch as DD' s or templ ates.
  1319   "PKG",48,2 2,1,"PAH", 1,1,276,0)
  1320      
  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.
  1323   "PKG",48,2 2,1,"PAH", 1,1,278,0)
  1324      
  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//"
  1327   "PKG",48,2 2,1,"PAH", 1,1,280,0)
  1328         resp ond NO.
  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
  1331   "PKG",48,2 2,1,"PAH", 1,1,282,0)
  1332         Prot ocols? NO/ /", respon d NO
  1333   "PKG",48,2 2,1,"PAH", 1,1,283,0)
  1334    
  1335   "PKG",48,2 2,1,"PAH", 1,1,284,0)
  1336   Back-Out/R oll Back P lan:
  1337   "PKG",48,2 2,1,"PAH", 1,1,285,0)
  1338   ---------- ---------- ----
  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  
  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.
  1343   "PKG",48,2 2,1,"PAH", 1,1,288,0)
  1344    
  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
  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
  1349   "PKG",48,2 2,1,"PAH", 1,1,291,0)
  1350   descriptio n.
  1351   "PKG",48,2 2,1,"PAH", 1,1,292,0)
  1352    
  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
  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.
  1357   "QUES","XP F1",0)
  1358   Y
  1359   "QUES","XP F1","??")
  1360   ^D REP^XPD H
  1361   "QUES","XP F1","A")
  1362   Shall I wr ite over y our |FLAG|  File
  1363   "QUES","XP F1","B")
  1364   YES
  1365   "QUES","XP F1","M")
  1366   D XPF1^XPD IQ
  1367   "QUES","XP F2",0)
  1368   Y
  1369   "QUES","XP F2","??")
  1370   ^D DTA^XPD H
  1371   "QUES","XP F2","A")
  1372   Want my da ta |FLAG|  yours
  1373   "QUES","XP F2","B")
  1374   YES
  1375   "QUES","XP F2","M")
  1376   D XPF2^XPD IQ
  1377   "QUES","XP I1",0)
  1378   YO
  1379   "QUES","XP I1","??")
  1380   ^D INHIBIT ^XPDH
  1381   "QUES","XP I1","A")
  1382   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  1383   "QUES","XP I1","B")
  1384   NO
  1385   "QUES","XP I1","M")
  1386   D XPI1^XPD IQ
  1387   "QUES","XP M1",0)
  1388   PO^VA(200, :EM
  1389   "QUES","XP M1","??")
  1390   ^D MG^XPDH
  1391   "QUES","XP M1","A")
  1392   Enter the  Coordinato r for Mail  Group '|F LAG|'
  1393   "QUES","XP M1","B")
  1394  
  1395   "QUES","XP M1","M")
  1396   D XPM1^XPD IQ
  1397   "QUES","XP O1",0)
  1398   Y
  1399   "QUES","XP O1","??")
  1400   ^D MENU^XP DH
  1401   "QUES","XP O1","A")
  1402   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  1403   "QUES","XP O1","B")
  1404   NO
  1405   "QUES","XP O1","M")
  1406   D XPO1^XPD IQ
  1407   "QUES","XP Z1",0)
  1408   Y
  1409   "QUES","XP Z1","??")
  1410   ^D OPT^XPD H
  1411   "QUES","XP Z1","A")
  1412   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  1413   "QUES","XP Z1","B")
  1414   NO
  1415   "QUES","XP Z1","M")
  1416   D XPZ1^XPD IQ
  1417   "QUES","XP Z2",0)
  1418   Y
  1419   "QUES","XP Z2","??")
  1420   ^D RTN^XPD H
  1421   "QUES","XP Z2","A")
  1422   Want to MO VE routine s to other  CPUs
  1423   "QUES","XP Z2","B")
  1424   NO
  1425   "QUES","XP Z2","M")
  1426   D XPZ2^XPD IQ
  1427   "RTN")
  1428   7
  1429   "RTN","SDA MEVT")
  1430   0^1^B32857 672^B27512 966
  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 ]
  1433   "RTN","SDA MEVT",2,0)
  1434    ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug  13, 1993; Build 7
  1435   "RTN","SDA MEVT",3,0)
  1436    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  1437   "RTN","SDA MEVT",4,0)
  1438    ;
  1439   "RTN","SDA MEVT",5,0)
  1440   BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ;  -- get bef ore values
  1441   "RTN","SDA MEVT",6,0)
  1442    K ^TMP("S DAMEVT",$J )
  1443   "RTN","SDA MEVT",7,0)
  1444    D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL)
  1445   "RTN","SDA MEVT",8,0)
  1446    Q
  1447   "RTN","SDA MEVT",9,0)
  1448    ;
  1449   "RTN","SDA MEVT",10,0 )
  1450   AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values
  1451   "RTN","SDA MEVT",11,0 )
  1452    D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL)
  1453   "RTN","SDA MEVT",12,0 )
  1454    Q
  1455   "RTN","SDA MEVT",13,0 )
  1456    ;
  1457   "RTN","SDA MEVT",14,0 )
  1458   HANDLE(SDO RG) ; -- g et evt han dle
  1459   "RTN","SDA MEVT",15,0 )
  1460    ;  SDORG  = originat ing proces s (1=appt  , 2=a/e ,  3=disp)
  1461   "RTN","SDA MEVT",16,0 )
  1462    S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1
  1463   "RTN","SDA MEVT",17,0 )
  1464    Q Y
  1465   "RTN","SDA MEVT",18,0 )
  1466    ;
  1467   "RTN","SDA MEVT",19,0 )
  1468   CLEAN(SDHD L) ;
  1469   "RTN","SDA MEVT",20,0 )
  1470    K ^TMP("S DEVT",$J,S DHDL)
  1471   "RTN","SDA MEVT",21,0 )
  1472    Q
  1473   "RTN","SDA MEVT",22,0 )
  1474    ;
  1475   "RTN","SDA MEVT",23,0 )
  1476   HDLKILL ;  -- kill of f handle d ata
  1477   "RTN","SDA MEVT",24,0 )
  1478    K SDHDL,^ TMP("SDEVT  HANDLE",$ J),^TMP("S DEVT",$J)
  1479   "RTN","SDA MEVT",25,0 )
  1480    Q
  1481   "RTN","SDA MEVT",26,0 )
  1482    ;
  1483   "RTN","SDA MEVT",27,0 )
  1484   CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ;
  1485   "RTN","SDA MEVT",28,0 )
  1486    N Z
  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))
  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))
  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) ,";","^")
  1493   "RTN","SDA MEVT",32,0 )
  1494    D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL)
  1495   "RTN","SDA MEVT",33,0 )
  1496    Q
  1497   "RTN","SDA MEVT",34,0 )
  1498    ;
  1499   "RTN","SDA MEVT",35,0 )
  1500    ;
  1501   "RTN","SDA MEVT",36,0 )
  1502   EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol
  1503   "RTN","SDA MEVT",37,0 )
  1504    N OROLD
  1505   "RTN","SDA MEVT",38,0 )
  1506    K DTOUT,D IROUT
  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
  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))
  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
  1513   "RTN","SDA MEVT",42,0 )
  1514    S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT  EVENTS",0) )_";ORD(10 1,"
  1515   "RTN","SDA MEVT",43,0 )
  1516    D EN^XQOR
  1517   "RTN","SDA MEVT",44,0 )
  1518   EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL)  Q
  1519   "RTN","SDA MEVT",45,0 )
  1520    ;
  1521   "RTN","SDA MEVT",46,0 )
  1522    ;
  1523   "RTN","SDA MEVT",47,0 )
  1524   MAKE(DFN,S DT,SDCL,SD DA,SDMODE)  ; -- make  appt even t #1
  1525   "RTN","SDA MEVT",48,0 )
  1526    N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J)
  1527   "RTN","SDA MEVT",49,0 )
  1528    S SDMKHDL =$$HANDLE( 1)
  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")) =""
  1531   "RTN","SDA MEVT",51,0 )
  1532    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L)
  1533   "RTN","SDA MEVT",52,0 )
  1534    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
  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
  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
  1539   "RTN","SDA MEVT",55,0 )
  1540    ; -- if a ppt d/t is  less than  NOW then  check-in
  1541   "RTN","SDA MEVT",56,0 )
  1542    D NOW^%DT C
  1543   "RTN","SDA MEVT",57,0 )
  1544    I SDT<% W :'$G(SDMOD E) ! D
  1545   "RTN","SDA MEVT",58,0 )
  1546    .N SDACT, SDCOQUIT
  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
  1549   "RTN","SDA MEVT",60,0 )
  1550    .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D
  1551   "RTN","SDA MEVT",61,0 )
  1552    ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q
  1553   "RTN","SDA MEVT",62,0 )
  1554    ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT )
  1555   "RTN","SDA MEVT",63,0 )
  1556    .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT)
  1557   "RTN","SDA MEVT",64,0 )
  1558    Q
  1559   "RTN","SDA MEVT",65,0 )
  1560    ;
  1561   "RTN","SDA MEVT",66,0 )
  1562    ;
  1563   "RTN","SDA MEVT",67,0 )
  1564   CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  cancel eve nt #2
  1565   "RTN","SDA MEVT",68,0 )
  1566    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)
  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
  1569   "RTN","SDA MEVT",70,0 )
  1570    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
  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
  1573   "RTN","SDA MEVT",72,0 )
  1574    Q
  1575   "RTN","SDA MEVT",73,0 )
  1576    ;
  1577   "RTN","SDA MEVT",74,0 )
  1578    ;
  1579   "RTN","SDA MEVT",75,0 )
  1580   NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; --  no-show ev ent #3
  1581   "RTN","SDA MEVT",76,0 )
  1582    D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL)
  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)
  1585   "RTN","SDA MEVT",78,0 )
  1586    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
  1587   "RTN","SDA MEVT",79,0 )
  1588    D EVT(.SD ATA,3,0,SD HDL)
  1589   "RTN","SDA MEVT",80,0 )
  1590    Q
  1591   "RTN","SDA MEVT",81,0 )
  1592    ;
  1593   "RTN","SDA MEVT",82,0 )
  1594   OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata
  1595   "RTN","SDA MEVT",83,0 )
  1596    N I,OP,FI LE,X,SDKID
  1597   "RTN","SDA MEVT",84,0 )
  1598    ;
  1599   "RTN","SDA MEVT",85,0 )
  1600    ; -- set  up 'OP'pos ite variab le
  1601   "RTN","SDA MEVT",86,0 )
  1602    S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E")
  1603   "RTN","SDA MEVT",87,0 )
  1604    ;
  1605   "RTN","SDA MEVT",88,0 )
  1606    ; -- set  zero of oe
  1607   "RTN","SDA MEVT",89,0 )
  1608    S X=$G(^S CE(SDOE,0) )
  1609   "RTN","SDA MEVT",90,0 )
  1610    S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X
  1611   "RTN","SDA MEVT",91,0 )
  1612    S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= ""
  1613   "RTN","SDA MEVT",92,0 )
  1614    ;
  1615   "RTN","SDA MEVT",93,0 )
  1616    ; -- save  other dat a
  1617   "RTN","SDA MEVT",94,0 )
  1618    S FILE=40 9.42
  1619   "RTN","SDA MEVT",95,0 )
  1620    S I=0 F   S I=$O(^SD D(FILE,"OE ",SDOE,I))  Q:'I  D
  1621   "RTN","SDA MEVT",96,0 )
  1622    . S X=$G( ^SDD(FILE, I,0))
  1623   "RTN","SDA MEVT",97,0 )
  1624    . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X
  1625   "RTN","SDA MEVT",98,0 )
  1626    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" "
  1627   "RTN","SDA MEVT",99,0 )
  1628    ;
  1629   "RTN","SDA MEVT",100, 0)
  1630    IF SDORG' =1,SDORG'= 3 G OEQ
  1631   "RTN","SDA MEVT",101, 0)
  1632    ;
  1633   "RTN","SDA MEVT",102, 0)
  1634    ; -- gets  children  oe's
  1635   "RTN","SDA MEVT",103, 0)
  1636    S SDKID=0
  1637   "RTN","SDA MEVT",104, 0)
  1638    F  S SDKI D=$O(^SCE( "APAR",SDO E,SDKID))  Q:'SDKID   D
  1639   "RTN","SDA MEVT",105, 0)
  1640    . S X=$G( ^SCE(SDKID ,0))
  1641   "RTN","SDA MEVT",106, 0)
  1642    . IF $P(X ,U,8)'=4 Q   ; -- mus t be a cre dit stop e ncounter
  1643   "RTN","SDA MEVT",107, 0)
  1644    . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X
  1645   "RTN","SDA MEVT",108, 0)
  1646    . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" "
  1647   "RTN","SDA MEVT",109, 0)
  1648   OEQ Q
  1649   "RTN","SDA MEVT",110, 0)
  1650    ;
  1651   "RTN","SDA MEVT",111, 0)
  1652   OECHG(SDOR G,SDHDL) ;  -- compar e befores  and afters
  1653   "RTN","SDA MEVT",112, 0)
  1654    N Y,I,SDO E S (Y,SDO E)=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
  1657   "RTN","SDA MEVT",114, 0)
  1658    . S I=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
  1661   "RTN","SDA MEVT",116, 0)
  1662    Q Y
  1663   "RTN","SDA MEVT",117, 0)
  1664    ;
  1665   "RTN","SDA MEVT",118, 0)
  1666   OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; --  event driv er calls b y oe
  1667   "RTN","SDA MEVT",119, 0)
  1668    ; SDATA o nly requir ed for app ts
  1669   "RTN","SDA MEVT",120, 0)
  1670    ; SDOE0 o nly requir ed for che ck out del etion AFTE R
  1671   "RTN","SDA MEVT",121, 0)
  1672    ;
  1673   "RTN","SDA MEVT",122, 0)
  1674    N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP
  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)
  1677   "RTN","SDA MEVT",124, 0)
  1678    I SD0']"" !(SDOEP) G  OEVTQ
  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)
  1681   "RTN","SDA MEVT",126, 0)
  1682    I SDCAP=" BEFORE" D
  1683   "RTN","SDA MEVT",127, 0)
  1684    .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q
  1685   "RTN","SDA MEVT",128, 0)
  1686    .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q
  1687   "RTN","SDA MEVT",129, 0)
  1688    .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL)
  1689   "RTN","SDA MEVT",130, 0)
  1690    I SDCAP=" AFTER" D
  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
  1693   "RTN","SDA MEVT",132, 0)
  1694    .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL)  Q
  1695   "RTN","SDA MEVT",133, 0)
  1696    .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL)
  1697   "RTN","SDA MEVT",134, 0)
  1698   OEVTQ Q
  1699   "RTN","SDA MEVT",135, 0)
  1700    ;
  1701   "RTN","SDA MEVT",136, 0)
  1702    ; -- SEE  SDAMEVT0 F OR DOC ON  VARIABLES
  1703   "RTN","SDC O3")
  1704   0^2^B42837 89^B391393 5
  1705   "RTN","SDC O3",1,0)
  1706   SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08  DEC 1992  4:05 pm
  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
  1709   "RTN","SDC O3",3,0)
  1710    ;
  1711   "RTN","SDC O3",4,0)
  1712   EN ;Entry  point for  SDCO PROVI DER protoc ol
  1713   "RTN","SDC O3",5,0)
  1714    ; Input   -- SDOE
  1715   "RTN","SDC O3",6,0)
  1716    ;
  1717   "RTN","SDC O3",7,0)
  1718    S VALMBCK =""
  1719   "RTN","SDC O3",8,0)
  1720    ;
  1721   "RTN","SDC O3",9,0)
  1722    ; -- if O LD encount er, quit
  1723   "RTN","SDC O3",10,0)
  1724    IF '$$EDI TOK($G(SDO E),1) G EN Q
  1725   "RTN","SDC O3",11,0)
  1726    ;
  1727   "RTN","SDC O3",12,0)
  1728    ; -- call  PCE inter view
  1729   "RTN","SDC O3",13,0)
  1730    N SDVISIT ,SDHL
  1731   "RTN","SDC O3",14,0)
  1732    S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5)
  1733   "RTN","SDC O3",15,0)
  1734    S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT)
  1735   "RTN","SDC O3",16,0)
  1736    D BLD^SDC O S VALMBC K="R"
  1737   "RTN","SDC O3",17,0)
  1738   ENQ Q
  1739   "RTN","SDC O3",18,0)
  1740    ;
  1741   "RTN","SDC O3",19,0)
  1742   PRASK(SDOE ) ;Ask Pro vider on C heck Out
  1743   "RTN","SDC O3",20,0)
  1744    ; Input   -- SDOE       Outpati ent Encoun ter IEN
  1745   "RTN","SDC O3",21,0)
  1746    ; Output  -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red
  1747   "RTN","SDC O3",22,0)
  1748    N SDCL,SD OE0,SDORG, Y
  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 )
  1751   "RTN","SDC O3",24,0)
  1752    I $$REQ^S DM1A(+SDOE 0)'="CO" G  PRASKQ
  1753   "RTN","SDC O3",25,0)
  1754    I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q
  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 
  1757   "RTN","SDC O3",27,0)
  1758    I +SDOE0< 2961001 S  Y=2 G PRAS KQ
  1759   "RTN","SDC O3",28,0)
  1760    I SDCL S  Y=1 G PRAS KQ
  1761   "RTN","SDC O3",29,0)
  1762    I SDORG=3  S Y=1
  1763   "RTN","SDC O3",30,0)
  1764   PRASKQ Q + $G(Y)
  1765   "RTN","SDC O3",31,0)
  1766    ;
  1767   "RTN","SDC O3",32,0)
  1768   SET(SDOE)  ;Set-up Pr ovider Arr ay for Out patient En counter
  1769   "RTN","SDC O3",33,0)
  1770    ; Input   -- SDOE       Outpati ent Encoun ter IEN
  1771   "RTN","SDC O3",34,0)
  1772    ; Output  -- SDPRY      Provide r Array Su bscripted  by a Numbe r
  1773   "RTN","SDC O3",35,0)
  1774    ;            SDCNT      Number  of Array E ntries
  1775   "RTN","SDC O3",36,0)
  1776    N SDVA200 ,SDVPRV,SD PRVS
  1777   "RTN","SDC O3",37,0)
  1778    K SDPRY
  1779   "RTN","SDC O3",38,0)
  1780    D GETPRV^ SDOE(SDOE, "SDPRVS")
  1781   "RTN","SDC O3",39,0)
  1782    S (SDCNT, SDVPRV)=0
  1783   "RTN","SDC O3",40,0)
  1784    F  S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V  D
  1785   "RTN","SDC O3",41,0)
  1786    . S SDVA2 00=+$G(SDP RVS(SDVPRV ))
  1787   "RTN","SDC O3",42,0)
  1788    . S SDCNT =SDCNT+1
  1789   "RTN","SDC O3",43,0)
  1790    . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200
  1791   "RTN","SDC O3",44,0)
  1792   SETQ Q
  1793   "RTN","SDC O3",45,0)
  1794    ;
  1795   "RTN","SDC O3",46,0)
  1796   LIST(SDPRY ) ;List Pr ovider Arr ay
  1797   "RTN","SDC O3",47,0)
  1798    ; Input   -- SDPRY      Provide r Array Su bscripted  by a Numbe r
  1799   "RTN","SDC O3",48,0)
  1800    ; Output  -- List Pr ovider Arr ay
  1801   "RTN","SDC O3",49,0)
  1802    N I
  1803   "RTN","SDC O3",50,0)
  1804    W !
  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))
  1807   "RTN","SDC O3",52,0)
  1808    Q
  1809   "RTN","SDC O3",53,0)
  1810    ;
  1811   "RTN","SDC O3",54,0)
  1812   EDITOK(SDO E,SDMODE)  ; -- ok to  edit?
  1813   "RTN","SDC O3",55,0)
  1814    ; input:   SDOE   :=  ien of 40 9.68                    [require d]
  1815   "RTN","SDC O3",56,0)
  1816    ;          SDMODE :=  1 -- inte ractive ;  0 -- silen t [require d]
  1817   "RTN","SDC O3",57,0)
  1818    ;
  1819   "RTN","SDC O3",58,0)
  1820    ; returne d:  1 -- y es, it's o k to edit  or delete  SDOE entry
  1821   "RTN","SDC O3",59,0)
  1822    ;             0 -- n o, cannot  not change  SDOE entr y
  1823   "RTN","SDC O3",60,0)
  1824    ;
  1825   "RTN","SDC O3",61,0)
  1826    N DIR,SDO K
  1827   "RTN","SDC O3",62,0)
  1828    S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U))
  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
  1831   "RTN","SDC O3",64,0)
  1832   EDITOKQ Q  SDOK
  1833   "RTN","SDC O3",65,0)
  1834    ;
  1835   "RTN","SDC O3",66,0)
  1836   OLDMSG ; - - display  message to  user
  1837   "RTN","SDC O3",67,0)
  1838    W !!,">>>  Editing a nd deletin g old enco unters not  allowed." ,!
  1839   "RTN","SDC O3",68,0)
  1840    N DIR
  1841   "RTN","SDC O3",69,0)
  1842    S DIR(0)= "E"
  1843   "RTN","SDC O3",70,0)
  1844    S DIR("A" )="Press R eturn key  to continu e"
  1845   "RTN","SDC O3",71,0)
  1846    D ^DIR
  1847   "RTN","SDC O3",72,0)
  1848    Q
  1849   "RTN","SDC O3",73,0)
  1850    ;
  1851   "RTN","SDC ODEL")
  1852   0^3^B14749 068^B11313 917
  1853   "RTN","SDC ODEL",1,0)
  1854   SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN  15, 2016
  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
  1857   "RTN","SDC ODEL",3,0)
  1858    ;
  1859   "RTN","SDC ODEL",4,0)
  1860   EN(SDOE,SD MOD,SDELHD L,SDELSRC)  ;Delete C heck Out
  1861   "RTN","SDC ODEL",5,0)
  1862    ; Input   -- SDOE      Outpatie nt Encount er file IE N
  1863   "RTN","SDC ODEL",6,0)
  1864    ;            SDMOD     1=Intera ctive and  0=Non-inte ractive, 2 =Non-inter active/fro m GUI
  1865   "RTN","SDC ODEL",7,0)
  1866    ;            SDELHDL   Check Ou t Deletion  Handle  [ Optional]
  1867   "RTN","SDC ODEL",8,0)
  1868    ;            SDELSRC   Source o f delete
  1869   "RTN","SDC ODEL",9,0)
  1870    ; Output  -- Delete  Check Out
  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
  1873   "RTN","SDC ODEL",11,0 )
  1874    D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA)
  1875   "RTN","SDC ODEL",12,0 )
  1876    S SDVSAV= $P(SDOE0,U ,5)
  1877   "RTN","SDC ODEL",13,0 )
  1878    ;
  1879   "RTN","SDC ODEL",14,0 )
  1880    ; -- ok t o delete?
  1881   "RTN","SDC ODEL",15,0 )
  1882    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ
  1883   "RTN","SDC ODEL",16,0 )
  1884    ;
  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
  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)
  1889   "RTN","SDC ODEL",19,0 )
  1890    S SDVFLG= 1
  1891   "RTN","SDC ODEL",20,0 )
  1892    ;
  1893   "RTN","SDC ODEL",21,0 )
  1894    ; -- get  handle if  not passed  and do 'b efore'
  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
  1897   "RTN","SDC ODEL",23,0 )
  1898    ;
  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
  1901   "RTN","SDC ODEL",25,0 )
  1902    ;
  1903   "RTN","SDC ODEL",26,0 )
  1904    ; -- dele te child d ata for ap pts, dispo sition and  stop code  addition
  1905   "RTN","SDC ODEL",27,0 )
  1906    I "^1^2^3 ^"[("^"_SD ORG_"^") D  CHLD(SDOE ,SDMOD) ;S D/257
  1907   "RTN","SDC ODEL",28,0 )
  1908    ;
  1909   "RTN","SDC ODEL",29,0 )
  1910    ; -- dele te SDOE po inters and  co d/t
  1911   "RTN","SDC ODEL",30,0 )
  1912    I SDORG=1  D
  1913   "RTN","SDC ODEL",31,0 )
  1914    .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D  ^DIE
  1915   "RTN","SDC ODEL",32,0 )
  1916    .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me"
  1917   "RTN","SDC ODEL",33,0 )
  1918    .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR)
  1919   "RTN","SDC ODEL",34,0 )
  1920    I SDORG=3  D
  1921   "RTN","SDC ODEL",35,0 )
  1922    .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE
  1923   "RTN","SDC ODEL",36,0 )
  1924    ;
  1925   "RTN","SDC ODEL",37,0 )
  1926    ; -- do f inal delet es for sdo e
  1927   "RTN","SDC ODEL",38,0 )
  1928    D CO(SDOE ,SDMOD)
  1929   "RTN","SDC ODEL",39,0 )
  1930    D OE(SDOE ,SDMOD)
  1931   "RTN","SDC ODEL",40,0 )
  1932    D SDEC(DF N,SDT,SDCL )   ;delet e checkout  in SDEC A PPOINTMENT   ;alb/sat  627
  1933   "RTN","SDC ODEL",41,0 )
  1934    ;
  1935   "RTN","SDC ODEL",42,0 )
  1936    I $G(SDMO D) W !,">> > done."
  1937   "RTN","SDC ODEL",43,0 )
  1938    ;
  1939   "RTN","SDC ODEL",44,0 )
  1940    ; -- if h andle not  passed, th en 'after'  and event
  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
  1943   "RTN","SDC ODEL",46,0 )
  1944    ;
  1945   "RTN","SDC ODEL",47,0 )
  1946    ; -- call  pce to ma ke sure it s data is  gone
  1947   "RTN","SDC ODEL",48,0 )
  1948    I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV)
  1949   "RTN","SDC ODEL",49,0 )
  1950   ENQ Q
  1951   "RTN","SDC ODEL",50,0 )
  1952    ;
  1953   "RTN","SDC ODEL",51,0 )
  1954   CHLD(SDOEP ,SDMOD) ;D elete Chil dren
  1955   "RTN","SDC ODEL",52,0 )
  1956    N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT
  1957   "RTN","SDC ODEL",53,0 )
  1958    S SDOEC=0
  1959   "RTN","SDC ODEL",54,0 )
  1960    F  S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC))  Q:'SDOEC   D
  1961   "RTN","SDC ODEL",55,0 )
  1962    .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA)
  1963   "RTN","SDC ODEL",56,0 )
  1964    .D OE(SDO EC,SDMOD)
  1965   "RTN","SDC ODEL",57,0 )
  1966    Q
  1967   "RTN","SDC ODEL",58,0 )
  1968    ;
  1969   "RTN","SDC ODEL",59,0 )
  1970   SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA)  ;Set Varia bles
  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)
  1973   "RTN","SDC ODEL",61,0 )
  1974    Q
  1975   "RTN","SDC ODEL",62,0 )
  1976    ;
  1977   "RTN","SDC ODEL",63,0 )
  1978   CO(SDOE,SD MOD) ;Dele te Classif ication
  1979   "RTN","SDC ODEL",64,0 )
  1980    N DA,DIK, SDFL,SDI
  1981   "RTN","SDC ODEL",65,0 )
  1982    I $P($G(^ SCE(SDOE,0 )),"^",6)  G COQ
  1983   "RTN","SDC ODEL",66,0 )
  1984    I $O(^SDD (409.42,"A O",SDOE,0) )>0 D
  1985   "RTN","SDC ODEL",67,0 )
  1986    .I $G(SDM OD) W !?3, "...deleti ng classif ications"
  1987   "RTN","SDC ODEL",68,0 )
  1988    .D DEL(SD OE,409.42)
  1989   "RTN","SDC ODEL",69,0 )
  1990   COQ Q
  1991   "RTN","SDC ODEL",70,0 )
  1992    ;
  1993   "RTN","SDC ODEL",71,0 )
  1994   DEL(SDOE,S DFL) ;Dele te Classif ication
  1995   "RTN","SDC ODEL",72,0 )
  1996    N DA,DIK, SDI
  1997   "RTN","SDC ODEL",73,0 )
  1998    S DIK="^S DD("_SDFL_ ",",SDI=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
  2001   "RTN","SDC ODEL",75,0 )
  2002    Q
  2003   "RTN","SDC ODEL",76,0 )
  2004    ;
  2005   "RTN","SDC ODEL",77,0 )
  2006   OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter
  2007   "RTN","SDC ODEL",78,0 )
  2008    N DA,DIK, SDVSIT,SDO RG,SDAT
  2009   "RTN","SDC ODEL",79,0 )
  2010    IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ
  2011   "RTN","SDC ODEL",80,0 )
  2012    S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1)
  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)
  2015   "RTN","SDC ODEL",82,0 )
  2016    S DA=SDOE ,DIK="^SCE (" D ^DIK
  2017   "RTN","SDC ODEL",83,0 )
  2018    S X=$$KIL L^VSITKIL( SDVSIT)
  2019   "RTN","SDC ODEL",84,0 )
  2020   OEQ Q
  2021   "RTN","SDC ODEL",85,0 )
  2022    ;
  2023   "RTN","SDC ODEL",86,0 )
  2024   COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date
  2025   "RTN","SDC ODEL",87,0 )
  2026    N DA,DE,D IE,DQ,DR
  2027   "RTN","SDC ODEL",88,0 )
  2028    I $G(SDMO D) W !?3," ...deletin g check ou t process  completion  date"
  2029   "RTN","SDC ODEL",89,0 )
  2030    S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE
  2031   "RTN","SDC ODEL",90,0 )
  2032    Q
  2033   "RTN","SDC ODEL",91,0 )
  2034    ;
  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
  2037   "RTN","SDC ODEL",93,0 )
  2038    N SDECAPI D
  2039   "RTN","SDC ODEL",94,0 )
  2040    S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL)
  2041   "RTN","SDC ODEL",95,0 )
  2042    D CANAPPT ^SDEC25(SD ECAPID)
  2043   "RTN","SDC ODEL",96,0 )
  2044    Q
  2045   "RTN","SDE C07B")
  2046   0^4^B86344 811^B55538 827
  2047   "RTN","SDE C07B",1,0)
  2048   SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS  ; 26 Mar  2019  7:44  AM
  2049   "RTN","SDE C07B",2,0)
  2050    ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug  13, 1993;B uild 7
  2051   "RTN","SDE C07B",3,0)
  2052    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  2053   "RTN","SDE C07B",4,0)
  2054    ;
  2055   "RTN","SDE C07B",5,0)
  2056    Q
  2057   "RTN","SDE C07B",6,0)
  2058    ;
  2059   "RTN","SDE C07B",7,0)
  2060   MAKE(BSDR)  ;PEP; cal l to store  appt made
  2061   "RTN","SDE C07B",8,0)
  2062    ;
  2063   "RTN","SDE C07B",9,0)
  2064    ; Make ca ll using:  S ERR=$$MA KE^SDEC07B (.ARRAY)
  2065   "RTN","SDE C07B",10,0 )
  2066    ;
  2067   "RTN","SDE C07B",11,0 )
  2068    ; Input A rray -
  2069   "RTN","SDE C07B",12,0 )
  2070    ; BSDR("P AT") = ien  of patien t in file  2
  2071   "RTN","SDE C07B",13,0 )
  2072    ; BSDR("C LN") = ien  of clinic  in file 4 4
  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
  2075   "RTN","SDE C07B",15,0 )
  2076    ; BSDR("C OL") = col lateral if  appointme nt type is  COLLATERA L OF VET.
  2077   "RTN","SDE C07B",16,0 )
  2078    ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1
  2079   "RTN","SDE C07B",17,0 )
  2080    ; BSDR("A DT") = app ointment d ate and ti me
  2081   "RTN","SDE C07B",18,0 )
  2082    ; BSDR("L EN") = app ointment l ength in m inutes (5- 120)
  2083   "RTN","SDE C07B",19,0 )
  2084    ; BSDR("O I")  = rea son for ap pt - up to  150 chara cters
  2085   "RTN","SDE C07B",20,0 )
  2086    ; BSDR("U SR") = use r who made  appt
  2087   "RTN","SDE C07B",21,0 )
  2088    ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE  ^SDEC(409 .831,
  2089   "RTN","SDE C07B",22,0 )
  2090    ; BSDR("M TR") = MTR C flag (mu ltiple app ointments)  0=False ( default)   1=True
  2091   "RTN","SDE C07B",23,0 )
  2092    ; BSDR("D DT") = Des ired Date  of Appt in  fm format
  2093   "RTN","SDE C07B",24,0 )
  2094    ; BSDR("R EQ") = Req uested By  - valid va lues are 1 =PROVIDER   2=PATIENT  or ""
  2095   "RTN","SDE C07B",25,0 )
  2096    ; BSDR("L AB") = LAB  date/time  in fm for mat
  2097   "RTN","SDE C07B",26,0 )
  2098    ; BSDR("E KG") = EKG  date/time  in fm for mat
  2099   "RTN","SDE C07B",27,0 )
  2100    ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat
  2101   "RTN","SDE C07B",28,0 )
  2102    ; BSDR("C ON") = Con sult link  - pointer  to file 12 3
  2103   "RTN","SDE C07B",29,0 )
  2104    ; BSDR("O VB") = ove rbook flag  - 1=yes,  this is an  overbook
  2105   "RTN","SDE C07B",30,0 )
  2106    ; BSDR("E LG") = Pat ient Eligi bilty
  2107   "RTN","SDE C07B",31,0 )
  2108    ; 
  2109   "RTN","SDE C07B",32,0 )
  2110    ;Output:  error stat us and mes sage
  2111   "RTN","SDE C07B",33,0 )
  2112    ;   = 0 o r null:  e verything  okay
  2113   "RTN","SDE C07B",34,0 )
  2114    ;   = 1^m essage:  e rror and r eason
  2115   "RTN","SDE C07B",35,0 )
  2116    ;
  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"))
  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"))
  2121   "RTN","SDE C07B",38,0 )
  2122    I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error:  "_$G(BSDR ("TYP"))
  2123   "RTN","SDE C07B",39,0 )
  2124    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
  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"))
  2127   "RTN","SDE C07B",41,0 )
  2128    ;
  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"))
  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"))
  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" ))
  2135   "RTN","SDE C07B",45,0 )
  2136    ;
  2137   "RTN","SDE C07B",46,0 )
  2138    N DIC,DA, Y,X,DD,DO, DLAYGO
  2139   "RTN","SDE C07B",47,0 )
  2140    N SDECERR
  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
  2143   "RTN","SDE C07B",49,0 )
  2144    S PATCH72 2=$$PATCHS TS(722) ;
  2145   "RTN","SDE C07B",50,0 )
  2146    S PATCH71 7=$$PATCHS TS(717) ;
  2147   "RTN","SDE C07B",51,0 )
  2148    ;
  2149   "RTN","SDE C07B",52,0 )
  2150    S BSDR("A PT")=+$G(B SDR("APT") )
  2151   "RTN","SDE C07B",53,0 )
  2152    S BSDR("C OL")=+$G(B SDR("COL") )
  2153   "RTN","SDE C07B",54,0 )
  2154    ;get sche duling req uest type  AND next a va. appt.  indicator
  2155   "RTN","SDE C07B",55,0 )
  2156    S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ"))
  2157   "RTN","SDE C07B",56,0 )
  2158    ; next av a.appt. in dicator fi eld 26
  2159   "RTN","SDE C07B",57,0 )
  2160    S SDNA=$P (SDSRT,U,2 )
  2161   "RTN","SDE C07B",58,0 )
  2162    ; schedul ing reques t type fie ld 25
  2163   "RTN","SDE C07B",59,0 )
  2164    S SDSRT=$ P(SDSRT,U, 1)
  2165   "RTN","SDE C07B",60,0 )
  2166    ;determin e if Follo w-up visit  field 28
  2167   "RTN","SDE C07B",61,0 )
  2168    S SDRET=" "
  2169   "RTN","SDE C07B",62,0 )
  2170    D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN"))
  2171   "RTN","SDE C07B",63,0 )
  2172    S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1)
  2173   "RTN","SDE C07B",64,0 )
  2174    S SDFU=$S (SDFU="YES ":1,1:0)
  2175   "RTN","SDE C07B",65,0 )
  2176    K @SDRET
  2177   "RTN","SDE C07B",66,0 )
  2178    ;store
  2179   "RTN","SDE C07B",67,0 )
  2180    N SDECCON D ;  722/7 17 wtc 3/2 6/2019 
  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 ;
  2183   "RTN","SDE C07B",69,0 )
  2184    ;
  2185   "RTN","SDE C07B",70,0 )
  2186    I SDECCON D D
  2187   "RTN","SDE C07B",71,0 )
  2188    . ; "un-c ancel" exi sting appt  in file 2
  2189   "RTN","SDE C07B",72,0 )
  2190    . N SDECF DA,SDECIEN S,SDECMSG
  2191   "RTN","SDE C07B",73,0 )
  2192    . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_","
  2193   "RTN","SDE C07B",74,0 )
  2194    . ;
  2195   "RTN","SDE C07B",75,0 )
  2196    . I PATCH 722'=3 D   ;  Execute  code if p atch 722 n ot install ed.
  2197   "RTN","SDE C07B",76,0 )
  2198    .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN")
  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:"")
  2201   "RTN","SDE C07B",78,0 )
  2202    .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB")    ;l ab date/ti me
  2203   "RTN","SDE C07B",79,0 )
  2204    .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA")    ;x ray date/t ime
  2205   "RTN","SDE C07B",80,0 )
  2206    .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG")    ;e kg date/ti me
  2207   "RTN","SDE C07B",81,0 )
  2208    .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP")
  2209   "RTN","SDE C07B",82,0 )
  2210    .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT")
  2211   "RTN","SDE C07B",83,0 )
  2212    .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL")
  2213   "RTN","SDE C07B",84,0 )
  2214    .. S SDEC FDA(2.98,S DECIENS,"1 4")=""
  2215   "RTN","SDE C07B",85,0 )
  2216    .. S SDEC FDA(2.98,S DECIENS,"1 5")=""
  2217   "RTN","SDE C07B",86,0 )
  2218    .. S SDEC FDA(2.98,S DECIENS,"1 6")=""
  2219   "RTN","SDE C07B",87,0 )
  2220    .. S SDEC FDA(2.98,S DECIENS,"1 7")=""   ; alb/sat 65 8
  2221   "RTN","SDE C07B",88,0 )
  2222    .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ            ;d ata entry  clerk
  2223   "RTN","SDE C07B",89,0 )
  2224    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT
  2225   "RTN","SDE C07B",90,0 )
  2226    .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT          ;s cheduling  request ty pe
  2227   "RTN","SDE C07B",91,0 )
  2228    .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA           ;n ext ava. a ppt. indic ator
  2229   "RTN","SDE C07B",92,0 )
  2230    .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT")   ;d esired dat e of appt
  2231   "RTN","SDE C07B",93,0 )
  2232    .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU           ;f ollow-up v isit  yes/ no
  2233   "RTN","SDE C07B",94,0 )
  2234    . ;
  2235   "RTN","SDE C07B",95,0 )
  2236    . I PATCH 722=3 D  ;   Excecute  code if p atch 722 i s installe d
  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
  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:""))
  2241   "RTN","SDE C07B",98,0 )
  2242    .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB"))    ; lab date/t ime
  2243   "RTN","SDE C07B",99,0 )
  2244    .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA"))    ; xray date/ time
  2245   "RTN","SDE C07B",100, 0)
  2246    .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG"))    ; ekg date/t ime
  2247   "RTN","SDE C07B",101, 0)
  2248    .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP"))
  2249   "RTN","SDE C07B",102, 0)
  2250    .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT"))
  2251   "RTN","SDE C07B",103, 0)
  2252    .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL"))
  2253   "RTN","SDE C07B",104, 0)
  2254    .. S SDEC FDA(2.98,S DECIENS,"1 4")="@"
  2255   "RTN","SDE C07B",105, 0)
  2256    .. S SDEC FDA(2.98,S DECIENS,"1 5")="@"
  2257   "RTN","SDE C07B",106, 0)
  2258    .. S SDEC FDA(2.98,S DECIENS,"1 6")="@"
  2259   "RTN","SDE C07B",107, 0)
  2260    .. S SDEC FDA(2.98,S DECIENS,"1 7")="@"    ;alb/sat 6 58
  2261   "RTN","SDE C07B",108, 0)
  2262    .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ)            ; data entry  clerk
  2263   "RTN","SDE C07B",109, 0)
  2264    .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT
  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
  2267   "RTN","SDE C07B",111, 0)
  2268    .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT)          ; scheduling  request t ype
  2269   "RTN","SDE C07B",112, 0)
  2270    .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA)           ; next ava.  appt. indi cator
  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
  2273   "RTN","SDE C07B",114, 0)
  2274    .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU)           ; follow-up  visit  yes /no. ;
  2275   "RTN","SDE C07B",115, 0)
  2276    . ;
  2277   "RTN","SDE C07B",116, 0)
  2278    . D FILE^ DIE("","SD ECFDA","SD ECMSG")
  2279   "RTN","SDE C07B",117, 0)
  2280    . ;
  2281   "RTN","SDE C07B",118, 0)
  2282    . I PATCH 722'=3 N S DECTEMP S  SDECTEMP=$ G(SDECMSG)
  2283   "RTN","SDE C07B",119, 0)
  2284    . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG))
  2285   "RTN","SDE C07B",120, 0)
  2286    . ;
  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")
  2289   "RTN","SDE C07B",122, 0)
  2290    . ; add a ppt to fil e 2
  2291   "RTN","SDE C07B",123, 0)
  2292    . N SDECF DA,SDECIEN S,SDECMSG
  2293   "RTN","SDE C07B",124, 0)
  2294    . S SDECI ENS="?+2," _BSDR("PAT ")_","
  2295   "RTN","SDE C07B",125, 0)
  2296    . S SDECI ENS(2)=BSD R("ADT")
  2297   "RTN","SDE C07B",126, 0)
  2298    . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N")
  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:"")
  2301   "RTN","SDE C07B",128, 0)
  2302    . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B")    ;la b date/tim e
  2303   "RTN","SDE C07B",129, 0)
  2304    . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A")    ;xr ay date/ti me
  2305   "RTN","SDE C07B",130, 0)
  2306    . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G")    ;ek g date/tim e
  2307   "RTN","SDE C07B",131, 0)
  2308    . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P")
  2309   "RTN","SDE C07B",132, 0)
  2310    . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT")
  2311   "RTN","SDE C07B",133, 0)
  2312    . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL")
  2313   "RTN","SDE C07B",134, 0)
  2314    . S SDECF DA(2.98,SD ECIENS,"14 ")=""
  2315   "RTN","SDE C07B",135, 0)
  2316    . S SDECF DA(2.98,SD ECIENS,"15 ")=""
  2317   "RTN","SDE C07B",136, 0)
  2318    . S SDECF DA(2.98,SD ECIENS,"16 ")=""
  2319   "RTN","SDE C07B",137, 0)
  2320    . S SDECF DA(2.98,SD ECIENS,"17 ")=""   ;a lb/sat 658
  2321   "RTN","SDE C07B",138, 0)
  2322    . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ            ;da ta entry c lerk
  2323   "RTN","SDE C07B",139, 0)
  2324    . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT
  2325   "RTN","SDE C07B",140, 0)
  2326    . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT          ;sc heduling r equest typ e
  2327   "RTN","SDE C07B",141, 0)
  2328    . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA           ;ne xt ava. ap pt. indica tor
  2329   "RTN","SDE C07B",142, 0)
  2330    . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT")   ;de sired date  of appt
  2331   "RTN","SDE C07B",143, 0)
  2332    . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU           ;fo llow-up vi sit  yes/n o
  2333   "RTN","SDE C07B",144, 0)
  2334    . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )")
  2335   "RTN","SDE C07B",145, 0)
  2336    ;
  2337   "RTN","SDE C07B",146, 0)
  2338    ; add app t to file  44
  2339   "RTN","SDE C07B",147, 0)
  2340    K DIC,DA, X,Y,DLAYGO ,DD,DO
  2341   "RTN","SDE C07B",148, 0)
  2342    I '$D(^SC (BSDR("CLN "),"S",0))  S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^"
  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")
  2345   "RTN","SDE C07B",150, 0)
  2346    . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT")
  2347   "RTN","SDE C07B",151, 0)
  2348    . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001
  2349   "RTN","SDE C07B",152, 0)
  2350    . S Y=1 I  '$D(@(DIC _X_")")) D  FILE^DICN
  2351   "RTN","SDE C07B",153, 0)
  2352    ;
  2353   "RTN","SDE C07B",154, 0)
  2354    K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM
  2355   "RTN","SDE C07B",155, 0)
  2356    S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1,"
  2357   "RTN","SDE C07B",156, 0)
  2358    S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ")
  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:"")
  2361   "RTN","SDE C07B",158, 0)
  2362    S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003
  2363   "RTN","SDE C07B",159, 0)
  2364    D FILE^DI CN
  2365   "RTN","SDE C07B",160, 0)
  2366    ;add cons ult link
  2367   "RTN","SDE C07B",161, 0)
  2368    I $G(BSDR ("CON")) D
  2369   "RTN","SDE C07B",162, 0)
  2370    .N SDFDA, SDIEN
  2371   "RTN","SDE C07B",163, 0)
  2372    .S SDIEN= +Y
  2373   "RTN","SDE C07B",164, 0)
  2374    .Q:SDIEN= -1
  2375   "RTN","SDE C07B",165, 0)
  2376    .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON")
  2377   "RTN","SDE C07B",166, 0)
  2378    .D UPDATE ^DIE("","S DFDA")
  2379   "RTN","SDE C07B",167, 0)
  2380    ;
  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 .
  2383   "RTN","SDE C07B",169, 0)
  2384    ; call ev ent driver
  2385   "RTN","SDE C07B",170, 0)
  2386    NEW DFN,S DT,SDCL,SD DA,SDMODE
  2387   "RTN","SDE C07B",171, 0)
  2388    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2
  2389   "RTN","SDE C07B",172, 0)
  2390    S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT"))
  2391   "RTN","SDE C07B",173, 0)
  2392    D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE )
  2393   "RTN","SDE C07B",174, 0)
  2394    Q 0
  2395   "RTN","SDE C07B",175, 0)
  2396    ;
  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
  2399   "RTN","SDE C07B",177, 0)
  2400    Q $S(STR] "":STR,1:" @")
  2401   "RTN","SDE C07B",178, 0)
  2402    ;
  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
  2405   "RTN","SDE C07B",180, 0)
  2406    ;INPUT:
  2407   "RTN","SDE C07B",181, 0)
  2408    ; TYP =   3 for sche duled appt s, 4 for w alkins
  2409   "RTN","SDE C07B",182, 0)
  2410    ; MTR = M TRC flag ( multiple a ppointment s) 0=False  (default)   1=True
  2411   "RTN","SDE C07B",183, 0)
  2412    ; DDT = D esired Dat e of Appt  in fm form at
  2413   "RTN","SDE C07B",184, 0)
  2414    ; REQ = R equested B y - valid  values are  1=PROVIDE R  2=PATIE NT or ""
  2415   "RTN","SDE C07B",185, 0)
  2416    ;RETURN:  2 ^ pieces :
  2417   "RTN","SDE C07B",186, 0)
  2418    ;     1 -  SCHEDULIN G REQUEST  TYPE  inte rnal forma t - valid  values:
  2419   "RTN","SDE C07B",187, 0)
  2420    ;           N:'NEXT  AVAILABLE'  APPT.
  2421   "RTN","SDE C07B",188, 0)
  2422    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)
  2423   "RTN","SDE C07B",189, 0)
  2424    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )
  2425   "RTN","SDE C07B",190, 0)
  2426    ;           W:WALKIN  APPT.
  2427   "RTN","SDE C07B",191, 0)
  2428    ;           M:MULTIP LE APPT. B OOKING
  2429   "RTN","SDE C07B",192, 0)
  2430    ;           A:AUTO R EBOOK
  2431   "RTN","SDE C07B",193, 0)
  2432    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.
  2433   "RTN","SDE C07B",194, 0)
  2434    ;     2 -  NEXT AVA.  APPT. IND ICATOR  in ternal for mat - vali d values:
  2435   "RTN","SDE C07B",195, 0)
  2436    ;           N:'NEXT  AVAILABLE'  APPT.
  2437   "RTN","SDE C07B",196, 0)
  2438    ;           C:OTHER  THAN 'NEXT  AVA.' (CL INICIAN RE Q.)
  2439   "RTN","SDE C07B",197, 0)
  2440    ;           P:OTHER  THAN 'NEXT  AVA.' (PA TIENT REQ. )
  2441   "RTN","SDE C07B",198, 0)
  2442    ;           W:WALKIN  APPT.
  2443   "RTN","SDE C07B",199, 0)
  2444    ;           M:MULTIP LE APPT. B OOKING
  2445   "RTN","SDE C07B",200, 0)
  2446    ;           A:AUTO R EBOOK
  2447   "RTN","SDE C07B",201, 0)
  2448    ;           O:OTHER  THAN 'NEXT  AVA.' APP T.
  2449   "RTN","SDE C07B",202, 0)
  2450    ;
  2451   "RTN","SDE C07B",203, 0)
  2452    N RET
  2453   "RTN","SDE C07B",204, 0)
  2454    S RET=""
  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
  2457   "RTN","SDE C07B",206, 0)
  2458    I TYP=4 Q  "W^0"
  2459   "RTN","SDE C07B",207, 0)
  2460    ;2. If us er creates  an rm req uest with  MTRC flagg ed
  2461   "RTN","SDE C07B",208, 0)
  2462    ;   AND d esired dat e is 'toda y'
  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
  2465   "RTN","SDE C07B",210, 0)
  2466    I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 "
  2467   "RTN","SDE C07B",211, 0)
  2468    ;3. If us er creates  an rm req uest with  MTRC flagg ed
  2469   "RTN","SDE C07B",212, 0)
  2470    ;   AND d esired dat e is not ' today'
  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
  2473   "RTN","SDE C07B",214, 0)
  2474    I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 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
  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
  2479   "RTN","SDE C07B",217, 0)
  2480    I $P($$NO W^XLFDT(), ".",1)=DDT  Q "N^1"
  2481   "RTN","SDE C07B",218, 0)
  2482    ;5. If th e user ent ers a desi red date n ot today
  2483   "RTN","SDE C07B",219, 0)
  2484    ;   AND t he request  is by pat ient
  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.
  2487   "RTN","SDE C07B",221, 0)
  2488    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q  "P^0"
  2489   "RTN","SDE C07B",222, 0)
  2490    ;6. If th e user ent ers a desi red date n ot today
  2491   "RTN","SDE C07B",223, 0)
  2492    ;   AND t he request  is by pro vider
  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.
  2495   "RTN","SDE C07B",225, 0)
  2496    I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q  "C^0"
  2497   "RTN","SDE C07B",226, 0)
  2498    Q RET
  2499   "RTN","SDE C07B",227, 0)
  2500    ;
  2501   "RTN","SDE C07B",228, 0)
  2502    ;Create A ppointment   ;alb/sat  665 moved  from SDEC 07
  2503   "RTN","SDE C07B",229, 0)
  2504   APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI)  ;
  2505   "RTN","SDE C07B",230, 0)
  2506    N SDECC,S DECERR,SDE CRNOD
  2507   "RTN","SDE C07B",231, 0)
  2508    S SDECRNO D=$G(^SDEC (409.831,S DECRESD,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
  2511   "RTN","SDE C07B",233, 0)
  2512    S SDECERR =""
  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
  2515   "RTN","SDE C07B",235, 0)
  2516    . S SDECC ("PAT")=DF N
  2517   "RTN","SDE C07B",236, 0)
  2518    . S SDECC ("CLN")=SD CL
  2519   "RTN","SDE C07B",237, 0)
  2520    . S SDECC ("TYP")=3  ;3 for sch eduled app ts, 4 for  walkins
  2521   "RTN","SDE C07B",238, 0)
  2522    . S:SDECW KIN SDECC( "TYP")=4
  2523   "RTN","SDE C07B",239, 0)
  2524    . S SDECC ("ADT")=SD ECSTART
  2525   "RTN","SDE C07B",240, 0)
  2526    . S SDECC ("LEN")=SD ECLEN
  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
  2529   "RTN","SDE C07B",242, 0)
  2530    . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed
  2531   "RTN","SDE C07B",243, 0)
  2532    . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control  characters  from note
  2533   "RTN","SDE C07B",244, 0)
  2534    . S SDECC ("RES")=SD ECRESD
  2535   "RTN","SDE C07B",245, 0)
  2536    . S SDECC ("USR")=DU Z
  2537   "RTN","SDE C07B",246, 0)
  2538    . S SDECE RR=$$MAKE^ SDEC07B(.S DECC)
  2539   "RTN","SDE C07B",247, 0)
  2540    . Q:SDECE RR
  2541   "RTN","SDE C07B",248, 0)
  2542    . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N)
  2543   "RTN","SDE C07B",249, 0)
  2544    . ;L
  2545   "RTN","SDE C07B",250, 0)
  2546    . Q
  2547   "RTN","SDE C07B",251, 0)
  2548    Q +SDECER R
  2549   "RTN","SDE C07B",252, 0)
  2550    ;
  2551   "RTN","SDE C07B",253, 0)
  2552   PATCHSTS(N UMBER) ; 7 17/722 WTC  3/26/19
  2553   "RTN","SDE C07B",254, 0)
  2554    ;
  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).
  2557   "RTN","SDE C07B",256, 0)
  2558    ;
  2559   "RTN","SDE C07B",257, 0)
  2560    N X,DA ;
  2561   "RTN","SDE C07B",258, 0)
  2562    S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1)  I 'DA Q ""  ;
  2563   "RTN","SDE C07B",259, 0)
  2564    S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ;
  2565   "RTN","SDE C07B",260, 0)
  2566    ;
  2567   "RTN","SDE C08")
  2568   0^5^B21703 6692^B2096 47726
  2569   "RTN","SDE C08",1,0)
  2570   SDEC08 ;AL B/SAT/JSM  - VISTA SC HEDULING R PCS ;JUN 2 1, 2017
  2571   "RTN","SDE C08",2,0)
  2572    ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug  13, 1993;B uild 7
  2573   "RTN","SDE C08",3,0)
  2574    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  2575   "RTN","SDE C08",4,0)
  2576    ;
  2577   "RTN","SDE C08",5,0)
  2578    Q
  2579   "RTN","SDE C08",6,0)
  2580    ;
  2581   "RTN","SDE C08",7,0)
  2582   APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent
  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
  2585   "RTN","SDE C08",9,0)
  2586    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
  2587   "RTN","SDE C08",10,0)
  2588    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
  2589   "RTN","SDE C08",11,0)
  2590    ;                            C= CANCELLED  BY CLINIC
  2591   "RTN","SDE C08",12,0)
  2592    ;                           PC= CANCELLED  BY PATIENT
  2593   "RTN","SDE C08",13,0)
  2594    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
  2595   "RTN","SDE C08",14,0)
  2596    ;SDECNOT    - (optio nal) text  representi ng user no te
  2597   "RTN","SDE C08",15,0)
  2598    ;SDECDATE    - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW
  2599   "RTN","SDE C08",16,0)
  2600    ;SDUSER      - (opti onal) User  that canc elled appt ; defaults  to curren t user
  2601   "RTN","SDE C08",17,0)
  2602    ;Returns  error code  in record set field  ERRORID
  2603   "RTN","SDE C08",18,0)
  2604    ;
  2605   "RTN","SDE C08",19,0)
  2606    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR
  2607   "RTN","SDE C08",20,0)
  2608    N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1
  2609   "RTN","SDE C08",21,0)
  2610    N SDECNOE V,SDECSC1, SDRET
  2611   "RTN","SDE C08",22,0)
  2612    N %DT,X,Y
  2613   "RTN","SDE C08",23,0)
  2614    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l
  2615   "RTN","SDE C08",24,0)
  2616    S SDECSCI EN1=0
  2617   "RTN","SDE C08",25,0)
  2618    ;
  2619   "RTN","SDE C08",26,0)
  2620    S SDECI=0
  2621   "RTN","SDE C08",27,0)
  2622    S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")"
  2623   "RTN","SDE C08",28,0)
  2624    K @SDECY
  2625   "RTN","SDE C08",29,0)
  2626    S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30)
  2627   "RTN","SDE C08",30,0)
  2628    S SDECI=S DECI+1
  2629   "RTN","SDE C08",31,0)
  2630    ;validate  SDEC APPO INTMENT po inter (req uired)
  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
  2633   "RTN","SDE C08",33,0)
  2634    ;validate  appointme nt status  type (requ ired)
  2635   "RTN","SDE C08",34,0)
  2636    S SDECTYP =$G(SDECTY P)
  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: "")
  2639   "RTN","SDE C08",36,0)
  2640    I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status  type") Q
  2641   "RTN","SDE C08",37,0)
  2642    ;validate  CANCELLAT ION REASON  pointer ( optional)
  2643   "RTN","SDE C08",38,0)
  2644    S SDECCR= $G(SDECCR)
  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))
  2647   "RTN","SDE C08",40,0)
  2648    ;validate  SDECNOT
  2649   "RTN","SDE C08",41,0)
  2650    S SDECNOT =$TR(SDECN OT,"^"," " )  ;alb/sa t 658 - st rip out ^
  2651   "RTN","SDE C08",42,0)
  2652    ;validate  cancel da te/time
  2653   "RTN","SDE C08",43,0)
  2654    S SDECDAT E=$G(SDECD ATE)
  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=""
  2657   "RTN","SDE C08",45,0)
  2658    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T
  2659   "RTN","SDE C08",46,0)
  2660    ;validate  user
  2661   "RTN","SDE C08",47,0)
  2662    S SDUSER= $G(SDUSER)
  2663   "RTN","SDE C08",48,0)
  2664    I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0))  S SDUSER=" "
  2665   "RTN","SDE C08",49,0)
  2666    I SDUSER= "" S SDUSE R=DUZ
  2667   "RTN","SDE C08",50,0)
  2668    ;
  2669   "RTN","SDE C08",51,0)
  2670    TSTART
  2671   "RTN","SDE C08",52,0)
  2672    ;
  2673   "RTN","SDE C08",53,0)
  2674    ;Delete A PPOINTMENT  entries
  2675   "RTN","SDE C08",54,0)
  2676    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  2677   "RTN","SDE C08",55,0)
  2678    S SDECPAT ID=$P(SDEC NOD,U,5)
  2679   "RTN","SDE C08",56,0)
  2680    S SDECSTA RT=$P(SDEC NOD,U)
  2681   "RTN","SDE C08",57,0)
  2682    ;
  2683   "RTN","SDE C08",58,0)
  2684    ;Lock SDE C node
  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
  2687   "RTN","SDE C08",60,0)
  2688    ;cancel c heck-in if  walk-in
  2689   "RTN","SDE C08",61,0)
  2690    I $P(SDEC NOD,U,13)= "y" D
  2691   "RTN","SDE C08",62,0)
  2692    .S SDRET= ""
  2693   "RTN","SDE C08",63,0)
  2694    .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@")
  2695   "RTN","SDE C08",64,0)
  2696    ;cancel S DEC APPOIN TMENT reco rd
  2697   "RTN","SDE C08",65,0)
  2698    D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1)
  2699   "RTN","SDE C08",66,0)
  2700    ;
  2701   "RTN","SDE C08",67,0)
  2702    S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID
  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
  2705   "RTN","SDE C08",69,0)
  2706    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)
  2707   "RTN","SDE C08",70,0)
  2708    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION
  2709   "RTN","SDE C08",71,0)
  2710    . Q:'+SDE CLOC
  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
  2713   "RTN","SDE C08",73,0)
  2714    . . S SDE CERR="SDEC 08: Unable  to find a ssociated  appointmen t for this  patient.  "
  2715   "RTN","SDE C08",74,0)
  2716    . . S SDE CZ=1
  2717   "RTN","SDE C08",75,0)
  2718    . . I '$D (^SDEC(409 .831,SDECS C1,20)) S  SDECZ=0 Q
  2719   "RTN","SDE C08",76,0)
  2720    . . N SDE C1
  2721   "RTN","SDE C08",77,0)
  2722    . . S SDE C1=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
  2725   "RTN","SDE C08",79,0)
  2726    . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0))
  2727   "RTN","SDE C08",80,0)
  2728    . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U)
  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
  2731   "RTN","SDE C08",82,0)
  2732    . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned "
  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
  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
  2737   "RTN","SDE C08",85,0)
  2738    . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,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
  2741   "RTN","SDE C08",87,0)
  2742    . S SDECL EN=$P(SDEC NOD,U,2)
  2743   "RTN","SDE C08",88,0)
  2744    . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN)
  2745   "RTN","SDE C08",89,0)
  2746    . Q:+$G(S DECZ)
  2747   "RTN","SDE C08",90,0)
  2748    . D AVUPD T(SDECLOC, SDECSTART, SDECLEN)
  2749   "RTN","SDE C08",91,0)
  2750    . D AR433 D^SDECAR2( SDECAPTID)
  2751   "RTN","SDE C08",92,0)
  2752    . ;L
  2753   "RTN","SDE C08",93,0)
  2754    ;
  2755   "RTN","SDE C08",94,0)
  2756    TCOMMIT
  2757   "RTN","SDE C08",95,0)
  2758    L -^SDEC( 409.84,SDE CPATID)
  2759   "RTN","SDE C08",96,0)
  2760    S SDECI=S DECI+1
  2761   "RTN","SDE C08",97,0)
  2762    S @SDECY@ (SDECI)="" _$C(30)
  2763   "RTN","SDE C08",98,0)
  2764    S SDECI=S DECI+1
  2765   "RTN","SDE C08",99,0)
  2766    S @SDECY@ (SDECI)=$C (31)
  2767   "RTN","SDE C08",100,0 )
  2768    Q
  2769   "RTN","SDE C08",101,0 )
  2770    ;
  2771   "RTN","SDE C08",102,0 )
  2772   AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y
  2773   "RTN","SDE C08",103,0 )
  2774    ;See SDCN P0
  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
  2777   "RTN","SDE C08",105,0 )
  2778    S (SD,S)= SDECSTART
  2779   "RTN","SDE C08",106,0 )
  2780    S I=SDECS CD
  2781   "RTN","SDE C08",107,0 )
  2782    Q:'$D(^SC (I,"ST",SD \1,1))
  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 )
  2785   "RTN","SDE C08",109,0 )
  2786    S SL=SDEC LEN
  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
  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
  2791   "RTN","SDE C08",112,0 )
  2792    S ^SC(SDE CSCD,"ST", SD\1,1)=S
  2793   "RTN","SDE C08",113,0 )
  2794    Q
  2795   "RTN","SDE C08",114,0 )
  2796    ;
  2797   "RTN","SDE C08",115,0 )
  2798   APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ;
  2799   "RTN","SDE C08",116,0 )
  2800    ;Cancel a ppointment  for patie nt SDECDFN  in clinic  SDECSC1
  2801   "RTN","SDE C08",117,0 )
  2802    ;at time  SDECSD
  2803   "RTN","SDE C08",118,0 )
  2804    N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H
  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)
  2807   "RTN","SDE C08",120,0 )
  2808    S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0)
  2809   "RTN","SDE C08",121,0 )
  2810    S DPTST=$ P(SDECPNOD ,U,2)
  2811   "RTN","SDE C08",122,0 )
  2812    S DIE=409 .84
  2813   "RTN","SDE C08",123,0 )
  2814    S DA=SDEC APTID
  2815   "RTN","SDE C08",124,0 )
  2816    S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N
  2817   "RTN","SDE C08",125,0 )
  2818    D ^DIE
  2819   "RTN","SDE C08",126,0 )
  2820    S SDECC(" PAT")=SDEC DFN
  2821   "RTN","SDE C08",127,0 )
  2822    S SDECC(" CLN")=SDEC LOC
  2823   "RTN","SDE C08",128,0 )
  2824    S SDECC(" TYP")=SDEC TYP
  2825   "RTN","SDE C08",129,0 )
  2826    S SDECC(" ADT")=SDEC SD
  2827   "RTN","SDE C08",130,0 )
  2828    S %H=$H D  YMD^%DTC
  2829   "RTN","SDE C08",131,0 )
  2830    S SDECC(" CDT")=SDEC DATE   ;X+ %
  2831   "RTN","SDE C08",132,0 )
  2832    S SDECC(" NOT")=SDEC NOT
  2833   "RTN","SDE C08",133,0 )
  2834    S:+SDECCR  SDECC("CR ")=SDECCR
  2835   "RTN","SDE C08",134,0 )
  2836    S SDECC(" USR")=SDUS ER
  2837   "RTN","SDE C08",135,0 )
  2838    ;
  2839   "RTN","SDE C08",136,0 )
  2840    S SDECZ=$ $CANCEL(.S DECC)
  2841   "RTN","SDE C08",137,0 )
  2842    Q
  2843   "RTN","SDE C08",138,0 )
  2844    ;
  2845   "RTN","SDE C08",139,0 )
  2846   SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel  SDEC APPOI NTMENT ent ry
  2847   "RTN","SDE C08",140,0 )
  2848    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
  2849   "RTN","SDE C08",141,0 )
  2850    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
  2851   "RTN","SDE C08",142,0 )
  2852    ;                            C= CANCELLED  BY CLINIC
  2853   "RTN","SDE C08",143,0 )
  2854    ;                           PC= CANCELLED  BY PATIENT
  2855   "RTN","SDE C08",144,0 )
  2856    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
  2857   "RTN","SDE C08",145,0 )
  2858    ;SDECNOT    - (optio nal) text  representi ng user no te
  2859   "RTN","SDE C08",146,0 )
  2860    ;SDECDATE    - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ;
  2861   "RTN","SDE C08",147,0 )
  2862    ;SDF        - (optio nal) flags
  2863   "RTN","SDE C08",148,0 )
  2864    ;                         1. ca lled from  GUI (updat e consult  only if ca lled from  GUI)
  2865   "RTN","SDE C08",149,0 )
  2866    ;                         2. ca lled from  cancel in  SDAM (CAN^ SDCNP0) (d o not reop en appt)
  2867   "RTN","SDE C08",150,0 )
  2868    ;Cancel S DEC APPOIN TMENT entr y
  2869   "RTN","SDE C08",151,0 )
  2870    N DFN,PRO VIEN,Y
  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
  2873   "RTN","SDE C08",153,0 )
  2874    S SDF=$G( SDF,0)
  2875   "RTN","SDE C08",154,0 )
  2876    S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05)   ;alb /sat 658
  2877   "RTN","SDE C08",155,0 )
  2878    S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I")
  2879   "RTN","SDE C08",156,0 )
  2880    S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01)    ;alb/sat  651
  2881   "RTN","SDE C08",157,0 )
  2882    S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I")   ;alb/sat  651
  2883   "RTN","SDE C08",158,0 )
  2884    S SDECIEN S=SDECAPTI D_","
  2885   "RTN","SDE C08",159,0 )
  2886    S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT)
  2887   "RTN","SDE C08",160,0 )
  2888    S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ)
  2889   "RTN","SDE C08",161,0 )
  2890    S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR
  2891   "RTN","SDE C08",162,0 )
  2892    S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP
  2893   "RTN","SDE C08",163,0 )
  2894    K SDECMSG
  2895   "RTN","SDE C08",164,0 )
  2896    D FILE^DI E("","SDEC FDA","SDEC MSG")
  2897   "RTN","SDE C08",165,0 )
  2898    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
  2899   "RTN","SDE C08",166,0 )
  2900    ;alb/sat  658 modifi cation beg in
  2901   "RTN","SDE C08",167,0 )
  2902    S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160)
  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")
  2905   "RTN","SDE C08",169,0 )
  2906    ;alb/sat  658 modifi cation end
  2907   "RTN","SDE C08",170,0 )
  2908    I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D
  2909   "RTN","SDE C08",171,0 )
  2910    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
  2911   "RTN","SDE C08",172,0 )
  2912    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
  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
  2915   "RTN","SDE C08",174,0 )
  2916    I $P(SDAP TYP,";",2) ="SDWL(409 .3," D   ; update EWL
  2917   "RTN","SDE C08",175,0 )
  2918    .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I")
  2919   "RTN","SDE C08",176,0 )
  2920    .Q:DFN=""
  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
  2923   "RTN","SDE C08",178,0 )
  2924    ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D
  2925   "RTN","SDE C08",179,0 )
  2926    ...K SDEC FDA,SDECMS G,SDECWP
  2927   "RTN","SDE C08",180,0 )
  2928    ...;S SDI EN=$P(SDAP TYP,";",1)
  2929   "RTN","SDE C08",181,0 )
  2930    ...S SDEC FDA(409.3, SDIEN_",", 13)="@"
  2931   "RTN","SDE C08",182,0 )
  2932    ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@"
  2933   "RTN","SDE C08",183,0 )
  2934    ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@"
  2935   "RTN","SDE C08",184,0 )
  2936    ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@"
  2937   "RTN","SDE C08",185,0 )
  2938    ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@"
  2939   "RTN","SDE C08",186,0 )
  2940    ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@"
  2941   "RTN","SDE C08",187,0 )
  2942    ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@"
  2943   "RTN","SDE C08",188,0 )
  2944    ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@"
  2945   "RTN","SDE C08",189,0 )
  2946    ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@"
  2947   "RTN","SDE C08",190,0 )
  2948    ...D UPDA TE^DIE("", "SDECFDA")
  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
  2951   "RTN","SDE C08",192,0 )
  2952    I $P(SDAP TYP,";",2) ="SDEC(409 .85," D    ;update AP PT
  2953   "RTN","SDE C08",193,0 )
  2954    .K SDECFD A,SDECMSG, SDECWP
  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
  2957   "RTN","SDE C08",195,0 )
  2958    .S SDIEN= $P(SDAPTYP ,";",1)
  2959   "RTN","SDE C08",196,0 )
  2960    .S SDECFD A(409.85,S DIEN_",",1 3)="@"
  2961   "RTN","SDE C08",197,0 )
  2962    .S SDECFD A(409.85,S DIEN_",",1 3.1)="@"
  2963   "RTN","SDE C08",198,0 )
  2964    .S SDECFD A(409.85,S DIEN_",",1 3.2)="@"
  2965   "RTN","SDE C08",199,0 )
  2966    .S SDECFD A(409.85,S DIEN_",",1 3.3)="@"
  2967   "RTN","SDE C08",200,0 )
  2968    .S SDECFD A(409.85,S DIEN_",",1 3.4)="@"
  2969   "RTN","SDE C08",201,0 )
  2970    .S SDECFD A(409.85,S DIEN_",",1 3.5)="@"
  2971   "RTN","SDE C08",202,0 )
  2972    .S SDECFD A(409.85,S DIEN_",",1 3.6)="@"
  2973   "RTN","SDE C08",203,0 )
  2974    .S SDECFD A(409.85,S DIEN_",",1 3.7)="@"
  2975   "RTN","SDE C08",204,0 )
  2976    .S SDECFD A(409.85,S DIEN_",",1 3.8)="@"
  2977   "RTN","SDE C08",205,0 )
  2978    .D UPDATE ^DIE("","S DECFDA")
  2979   "RTN","SDE C08",206,0 )
  2980    Q
  2981   "RTN","SDE C08",207,0 )
  2982    ;
  2983   "RTN","SDE C08",208,0 )
  2984   CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT  event
  2985   "RTN","SDE C08",209,0 )
  2986    ;when app ointments  cancelled  via PIMS i nterface.
  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
  2989   "RTN","SDE C08",211,0 )
  2990    N SDECFOU ND,SDECRES
  2991   "RTN","SDE C08",212,0 )
  2992    Q:+$G(SDE CNOEV)
  2993   "RTN","SDE C08",213,0 )
  2994    Q:'+$G(SD ECSC)
  2995   "RTN","SDE C08",214,0 )
  2996    S SDECFOU ND=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)
  2999   "RTN","SDE C08",216,0 )
  3000    I SDECFOU ND D CANEV T3(SDECRES ) Q
  3001   "RTN","SDE C08",217,0 )
  3002    Q
  3003   "RTN","SDE C08",218,0 )
  3004    ;
  3005   "RTN","SDE C08",219,0 )
  3006   CANEVT1(SD ECRES,SDEC START,SDEC PAT) ;
  3007   "RTN","SDE C08",220,0 )
  3008    ;Get appo intment id  in SDECAP T
  3009   "RTN","SDE C08",221,0 )
  3010    ;If found , call SDE CCAN(SDECA PPT) and r eturn 1
  3011   "RTN","SDE C08",222,0 )
  3012    ;else ret urn 0
  3013   "RTN","SDE C08",223,0 )
  3014    N SDECFOU ND,SDECAPP T
  3015   "RTN","SDE C08",224,0 )
  3016    S SDECFOU ND=0
  3017   "RTN","SDE C08",225,0 )
  3018    Q:'+SDECR ES SDECFOU ND
  3019   "RTN","SDE C08",226,0 )
  3020    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
  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
  3023   "RTN","SDE C08",228,0 )
  3024    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
  3025   "RTN","SDE C08",229,0 )
  3026    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
  3027   "RTN","SDE C08",230,0 )
  3028    I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1)
  3029   "RTN","SDE C08",231,0 )
  3030    Q SDECFOU ND
  3031   "RTN","SDE C08",232,0 )
  3032    ;
  3033   "RTN","SDE C08",233,0 )
  3034   CANEVT3(SD ECRES) ;
  3035   "RTN","SDE C08",234,0 )
  3036    ;Call Rai seEvent to  notify GU I clients
  3037   "RTN","SDE C08",235,0 )
  3038    ;
  3039   "RTN","SDE C08",236,0 )
  3040    Q
  3041   "RTN","SDE C08",237,0 )
  3042    N SDECRES N
  3043   "RTN","SDE C08",238,0 )
  3044    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
  3045   "RTN","SDE C08",239,0 )
  3046    Q:SDECRES N=""
  3047   "RTN","SDE C08",240,0 )
  3048    S SDECRES N=$P(SDECR ESN,"^")
  3049   "RTN","SDE C08",241,0 )
  3050    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")
  3051   "RTN","SDE C08",242,0 )
  3052    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
  3053   "RTN","SDE C08",243,0 )
  3054    Q
  3055   "RTN","SDE C08",244,0 )
  3056    ;
  3057   "RTN","SDE C08",245,0 )
  3058   CANCEL(BSD R) ;EP; ca lled to ca ncel appt
  3059   "RTN","SDE C08",246,0 )
  3060    ;
  3061   "RTN","SDE C08",247,0 )
  3062    ; Make ca ll using:  S ERR=$$CA NCEL^SDEC0 8(.ARRAY)
  3063   "RTN","SDE C08",248,0 )
  3064    ;
  3065   "RTN","SDE C08",249,0 )
  3066    ; Input A rray -
  3067   "RTN","SDE C08",250,0 )
  3068    ; BSDR("P AT") = ien  of patien t in file  2
  3069   "RTN","SDE C08",251,0 )
  3070    ; BSDR("C LN") = ien  of clinic  in file 4 4
  3071   "RTN","SDE C08",252,0 )
  3072    ; BSDR("T YP") = C f or cancele d by clini c; PC for  patient ca nceled
  3073   "RTN","SDE C08",253,0 )
  3074    ; BSDR("A DT") = app ointment d ate and ti me
  3075   "RTN","SDE C08",254,0 )
  3076    ; BSDR("C DT") = can cel date a nd time
  3077   "RTN","SDE C08",255,0 )
  3078    ; BSDR("U SR") = use r who canc eled appt
  3079   "RTN","SDE C08",256,0 )
  3080    ; BSDR("C R")  = can cel reason  - pointer  to file 4 09.2
  3081   "RTN","SDE C08",257,0 )
  3082    ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters
  3083   "RTN","SDE C08",258,0 )
  3084    ;
  3085   "RTN","SDE C08",259,0 )
  3086    ;Output:  error stat us and mes sage
  3087   "RTN","SDE C08",260,0 )
  3088    ;   = 0 o r null:  e verything  okay
  3089   "RTN","SDE C08",261,0 )
  3090    ;   = 1^m essage:  e rror and r eason
  3091   "RTN","SDE C08",262,0 )
  3092    ;
  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"))
  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"))
  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"))
  3099   "RTN","SDE C08",266,0 )
  3100    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
  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"))
  3103   "RTN","SDE C08",268,0 )
  3104    I $G(BSDR ("CDT")) S  BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12)  ;rem ove second s
  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"))
  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"))
  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"))
  3111   "RTN","SDE C08",272,0 )
  3112    ;
  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
  3115   "RTN","SDE C08",274,0 )
  3116    S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N
  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")
  3119   "RTN","SDE C08",276,0 )
  3120    ;
  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")
  3123   "RTN","SDE C08",278,0 )
  3124    ;
  3125   "RTN","SDE C08",279,0 )
  3126    ; remembe r before s tatus
  3127   "RTN","SDE C08",280,0 )
  3128    NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL
  3129   "RTN","SDE C08",281,0 )
  3130    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN
  3131   "RTN","SDE C08",282,0 )
  3132    S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL
  3133   "RTN","SDE C08",283,0 )
  3134    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL )
  3135   "RTN","SDE C08",284,0 )
  3136    ;
  3137   "RTN","SDE C08",285,0 )
  3138    ; get use r who made  appt and  date appt  made from  ^SC
  3139   "RTN","SDE C08",286,0 )
  3140    ;    beca use data i n ^SC will  be delete d
  3141   "RTN","SDE C08",287,0 )
  3142    NEW USER, DATE
  3143   "RTN","SDE C08",288,0 )
  3144    S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6)
  3145   "RTN","SDE C08",289,0 )
  3146    S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7)
  3147   "RTN","SDE C08",290,0 )
  3148    ;
  3149   "RTN","SDE C08",291,0 )
  3150    ; update  file 2 inf o
  3151   "RTN","SDE C08",292,0 )
  3152    NEW DIE,D A,DR
  3153   "RTN","SDE C08",293,0 )
  3154    N SDFDA,S DIEN,SDMSG
  3155   "RTN","SDE C08",294,0 )
  3156    S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )"
  3157   "RTN","SDE C08",295,0 )
  3158    S @SDFDA@ (3)=BSDR(" TYP")
  3159   "RTN","SDE C08",296,0 )
  3160    S @SDFDA@ (14)=BSDR( "USR")
  3161   "RTN","SDE C08",297,0 )
  3162    S @SDFDA@ (15)=BSDR( "CDT")
  3163   "RTN","SDE C08",298,0 )
  3164    S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" )
  3165   "RTN","SDE C08",299,0 )
  3166    S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160)
  3167   "RTN","SDE C08",300,0 )
  3168    S @SDFDA@ (19)=USER
  3169   "RTN","SDE C08",301,0 )
  3170    S @SDFDA@ (20)=DATE
  3171   "RTN","SDE C08",302,0 )
  3172    D UPDATE^ DIE("","SD FDA")
  3173   "RTN","SDE C08",303,0 )
  3174    N SDPCE
  3175   "RTN","SDE C08",304,0 )
  3176    S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 )
  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
  3179   "RTN","SDE C08",306,0 )
  3180    ;
  3181   "RTN","SDE C08",307,0 )
  3182    ; cancel  appointmen t in ^SC
  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
  3185   "RTN","SDE C08",309,0 )
  3186    ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1,"
  3187   "RTN","SDE C08",310,0 )
  3188    ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN
  3189   "RTN","SDE C08",311,0 )
  3190    ;D ^DIK
  3191   "RTN","SDE C08",312,0 )
  3192    S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C"
  3193   "RTN","SDE C08",313,0 )
  3194    ; call ev ent driver
  3195   "RTN","SDE C08",314,0 )
  3196    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
  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
  3199   "RTN","SDE C08",316,0 )
  3200    Q 0
  3201   "RTN","SDE C08",317,0 )
  3202    ;
  3203   "RTN","SDE C08",318,0 )
  3204   UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment
  3205   "RTN","SDE C08",319,0 )
  3206    ;UNDOCANA (SDECY,SDE CAPTID)  e xternal pa rameter ta g in SDEC
  3207   "RTN","SDE C08",320,0 )
  3208    ;called b y SDEC UNC ANCEL APPT
  3209   "RTN","SDE C08",321,0 )
  3210    ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file  409.84
  3211   "RTN","SDE C08",322,0 )
  3212    N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT
  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?
  3215   "RTN","SDE C08",324,0 )
  3216    ;
  3217   "RTN","SDE C08",325,0 )
  3218    S SDECI=0
  3219   "RTN","SDE C08",326,0 )
  3220    K ^TMP("S DEC",$J)
  3221   "RTN","SDE C08",327,0 )
  3222    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  3223   "RTN","SDE C08",328,0 )
  3224    S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30)
  3225   "RTN","SDE C08",329,0 )
  3226    TSTART
  3227   "RTN","SDE C08",330,0 )
  3228    I '+SDECA PTID TROLL BACK  D ER R(SDECI+1, "Invalid A ppointment  ID.") Q
  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
  3231   "RTN","SDE C08",332,0 )
  3232    ;Make sur e appointm ent is can celled
  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
  3235   "RTN","SDE C08",334,0 )
  3236    S SDECNOD =^SDEC(409 .84,SDECAP TID,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 */
  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
  3241   "RTN","SDE C08",337,0 )
  3242    ;get appo intment da ta
  3243   "RTN","SDE C08",338,0 )
  3244    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  3245   "RTN","SDE C08",339,0 )
  3246    S SDECDAM =$P(SDECNO D,U,9)                    ;date  appt made
  3247   "RTN","SDE C08",340,0 )
  3248    S SDECDEC =$P(SDECNO D,U,8)                    ;data  entry cler k
  3249   "RTN","SDE C08",341,0 )
  3250    S SDECLEN =$P(SDECNO D,U,18)                   ;lengt h of appt  in minutes
  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
  3253   "RTN","SDE C08",343,0 )
  3254    S SDECPAT ID=$P(SDEC NOD,U,5)                  ;point er to VA P ATIENT fil e 2
  3255   "RTN","SDE C08",344,0 )
  3256    S SDECSC1 =$P($G(SDE CNOD),U,7)                ;resou rce
  3257   "RTN","SDE C08",345,0 )
  3258    S SDECSTA RT=$P(SDEC NOD,U)                    ;appt  start time
  3259   "RTN","SDE C08",346,0 )
  3260    S SDECWKI N=$P($G(SD ECNOD),U,1 3)             ;walk- in
  3261   "RTN","SDE C08",347,0 )
  3262    ;lock SDE C node
  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
  3265   "RTN","SDE C08",349,0 )
  3266    ;un-cance l SDEC APP OINTMENT
  3267   "RTN","SDE C08",350,0 )
  3268    D SDECUCA N(SDECAPTI D)
  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
  3271   "RTN","SDE C08",352,0 )
  3272    . S SDECL OC=""
  3273   "RTN","SDE C08",353,0 )
  3274    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,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
  3277   "RTN","SDE C08",355,0 )
  3278    . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID )  ;HOSPIT AL LOCATIO N
  3279   "RTN","SDE C08",356,0 )
  3280    . Q:'+SDE CLOC
  3281   "RTN","SDE C08",357,0 )
  3282    . ;un-can cel patien t appointm ent and re -instate c linic appo intment
  3283   "RTN","SDE C08",358,0 )
  3284    . S SDECZ =""
  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)
  3287   "RTN","SDE C08",360,0 )
  3288    TCOMMIT
  3289   "RTN","SDE C08",361,0 )
  3290    L -^SDEC( 409.84,SDE CPATID)
  3291   "RTN","SDE C08",362,0 )
  3292    S SDECI=S DECI+1
  3293   "RTN","SDE C08",363,0 )
  3294    S ^TMP("S DEC",$J,SD ECI)=""_$C (30)
  3295   "RTN","SDE C08",364,0 )
  3296    S SDECI=S DECI+1
  3297   "RTN","SDE C08",365,0 )
  3298    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  3299   "RTN","SDE C08",366,0 )
  3300    Q
  3301   "RTN","SDE C08",367,0 )
  3302    ;
  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
  3305   "RTN","SDE C08",369,0 )
  3306    N PROVIEN ,SDAPTYP,S DCL,SDRES
  3307   "RTN","SDE C08",370,0 )
  3308    S SDECIEN S=SDECAPTI D_","
  3309   "RTN","SDE C08",371,0 )
  3310    S SDECFDA (409.84,SD ECIENS,.12 )=""
  3311   "RTN","SDE C08",372,0 )
  3312    K SDECMSG
  3313   "RTN","SDE C08",373,0 )
  3314    D FILE^DI E("","SDEC FDA","SDEC MSG")
  3315   "RTN","SDE C08",374,0 )
  3316    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
  3317   "RTN","SDE C08",375,0 )
  3318    I $P(SDAP TYP,";",2) ="GMR(123, " D
  3319   "RTN","SDE C08",376,0 )
  3320    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
  3321   "RTN","SDE C08",377,0 )
  3322    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
  3323   "RTN","SDE C08",378,0 )
  3324    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1)
  3325   "RTN","SDE C08",379,0 )
  3326    Q
  3327   "RTN","SDE C08",380,0 )
  3328    ;
  3329   "RTN","SDE C08",381,0 )
  3330   APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ;
  3331   "RTN","SDE C08",382,0 )
  3332    ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1
  3333   "RTN","SDE C08",383,0 )
  3334    ;  SDECLO C   = poin ter to hos pital loca tion ^SC f ile 44
  3335   "RTN","SDE C08",384,0 )
  3336    ;  SDECPA TID = poin ter to VA  Patient ^D PT file 2
  3337   "RTN","SDE C08",385,0 )
  3338    ;  SDECST ART = Appo intment ti me
  3339   "RTN","SDE C08",386,0 )
  3340    ;  SDECDA M   = Date  appointme nt made in  FM format
  3341   "RTN","SDE C08",387,0 )
  3342    ;  SDECDE C   = Data  entry cle rk - point er to NEW  PERSON fil e 200
  3343   "RTN","SDE C08",388,0 )
  3344    N SDECC,% H
  3345   "RTN","SDE C08",389,0 )
  3346    S SDECC(" PAT")=SDEC PATID
  3347   "RTN","SDE C08",390,0 )
  3348    S SDECC(" CLN")=SDEC LOC
  3349   "RTN","SDE C08",391,0 )
  3350    S SDECC(" ADT")=SDEC START
  3351   "RTN","SDE C08",392,0 )
  3352    S SDECC(" NOTE")=SDE CNOTE  ;us er note
  3353   "RTN","SDE C08",393,0 )
  3354    S SDECC(" RES")=SDEC RES
  3355   "RTN","SDE C08",394,0 )
  3356    S SDECC(" USR")=DUZ
  3357   "RTN","SDE C08",395,0 )
  3358    S SDECC(" LEN")=SDEC LEN
  3359   "RTN","SDE C08",396,0 )
  3360    S SDECC(" WKIN")=SDE CWKIN
  3361   "RTN","SDE C08",397,0 )
  3362    ;
  3363   "RTN","SDE C08",398,0 )
  3364    S SDECZ=$ $UNCANCEL( .SDECC)
  3365   "RTN","SDE C08",399,0 )
  3366    Q
  3367   "RTN","SDE C08",400,0 )
  3368    ;
  3369   "RTN","SDE C08",401,0 )
  3370   UNCANCEL(B SDR) ;PEP;  called to  un-cancel  appt
  3371   "RTN","SDE C08",402,0 )
  3372    ;
  3373   "RTN","SDE C08",403,0 )
  3374    ; Make ca ll using:  S ERR=$$UN CANCEL(.AR RAY)
  3375   "RTN","SDE C08",404,0 )
  3376    ;
  3377   "RTN","SDE C08",405,0 )
  3378    ; Input A rray -
  3379   "RTN","SDE C08",406,0 )
  3380    ; BSDR("P AT") = ien  of patien t in file  2
  3381   "RTN","SDE C08",407,0 )
  3382    ; BSDR("C LN") = ien  of clinic  in file 4 4
  3383   "RTN","SDE C08",408,0 )
  3384    ; BSDR("A DT") = app ointment d ate and ti me
  3385   "RTN","SDE C08",409,0 )
  3386    ; BSDR("U SR") = use r who un-c anceled ap pt
  3387   "RTN","SDE C08",410,0 )
  3388    ; BSDR("N OTE") = ap pointment  note from  SDEC APPOI NTMENT
  3389   "RTN","SDE C08",411,0 )
  3390    ; BSDR("L EN") = app t length i n minutes  (numeric)
  3391   "RTN","SDE C08",412,0 )
  3392    ; BSDR("R ES") = res ource
  3393   "RTN","SDE C08",413,0 )
  3394    ; BSDR("W KIN")= wal k-in
  3395   "RTN","SDE C08",414,0 )
  3396    ;
  3397   "RTN","SDE C08",415,0 )
  3398    ;Output:  error stat us and mes sage
  3399   "RTN","SDE C08",416,0 )
  3400    ;   = 0 o r null:  e verything  okay
  3401   "RTN","SDE C08",417,0 )
  3402    ;   = 1^m essage:  e rror and r eason
  3403   "RTN","SDE C08",418,0 )
  3404    ;
  3405   "RTN","SDE C08",419,0 )
  3406    N DPTNOD, DPTNODR
  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"))
  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"))
  3411   "RTN","SDE C08",422,0 )
  3412    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
  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"))
  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"))
  3417   "RTN","SDE C08",425,0 )
  3418    ;
  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
  3421   "RTN","SDE C08",427,0 )
  3422    Q SDECERR
  3423   "RTN","SDE C08",428,0 )
  3424    ;
  3425   "RTN","SDE C08",429,0 )
  3426   ERR(SDECI, SDECERR) ; Error proc essing
  3427   "RTN","SDE C08",430,0 )
  3428    S SDECI=S DECI+1
  3429   "RTN","SDE C08",431,0 )
  3430    S SDECERR =$TR(SDECE RR,"^","~" )
  3431   "RTN","SDE C08",432,0 )
  3432    TROLLBACK
  3433   "RTN","SDE C08",433,0 )
  3434    S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30)
  3435   "RTN","SDE C08",434,0 )
  3436    S SDECI=S DECI+1
  3437   "RTN","SDE C08",435,0 )
  3438    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  3439   "RTN","SDE C08",436,0 )
  3440    Q
  3441   "RTN","SDE C08",437,0 )
  3442    ;
  3443   "RTN","SDE C08",438,0 )
  3444   ETRAP ;EP  Error trap  entry
  3445   "RTN","SDE C08",439,0 )
  3446    D ^%ZTER
  3447   "RTN","SDE C08",440,0 )
  3448    I '$D(SDE CI) N SDEC I S SDECI= 999999
  3449   "RTN","SDE C08",441,0 )
  3450    S SDECI=S DECI+1
  3451   "RTN","SDE C08",442,0 )
  3452    D ERR(SDE CI,"SDEC08  Error")
  3453   "RTN","SDE C08",443,0 )
  3454    Q
  3455   "RTN","SDE C25")
  3456   0^6^B15147 2805^B1152 73682
  3457   "RTN","SDE C25",1,0)
  3458   SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;MAY 15, 2 017
  3459   "RTN","SDE C25",2,0)
  3460    ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7
  3461   "RTN","SDE C25",3,0)
  3462    ;
  3463   "RTN","SDE C25",4,0)
  3464    Q
  3465   "RTN","SDE C25",5,0)
  3466    ;
  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
  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)
  3471   "RTN","SDE C25",8,0)
  3472    ;  extern al paramet er tag is  in SDEC
  3473   "RTN","SDE C25",9,0)
  3474    ;
  3475   "RTN","SDE C25",10,0)
  3476    ; INPUT:  SDECAPTID  - (require d) Appoint ment ID
  3477   "RTN","SDE C25",11,0)
  3478    ;         SDECCDT    - (optiona l) Check-i n date/tim e
  3479   "RTN","SDE C25",12,0)
  3480    ;                                  "@" - i ndicates d elete chec k-in
  3481   "RTN","SDE C25",13,0)
  3482    ;         SDECCC     - (??????? ?) Clinic  Stop point er to CLIN IC STOP fi le
  3483   "RTN","SDE C25",14,0)
  3484    ;         SDECPRV    - (optiona l) Provide r pointer  to NEW PER SON file
  3485   "RTN","SDE C25",15,0)
  3486    ;                                  default  to curren t user
  3487   "RTN","SDE C25",16,0)
  3488    ;         SDECROU    - (optiona l) Print R outing Sli p flag, va lid values :
  3489   "RTN","SDE C25",17,0)
  3490    ;                                    0=fal se   1=tru e
  3491   "RTN","SDE C25",18,0)
  3492    ;         SDECVCL    - (??????? ?) Clinic  pointer to  HOSPITAL  LOCATION
  3493   "RTN","SDE C25",19,0)
  3494    ;         SDECVFM    - FORM
  3495   "RTN","SDE C25",20,0)
  3496    ;         SDECOG     - OUTGUIDE  FLAG
  3497   "RTN","SDE C25",21,0)
  3498    ;         SDECCR     - Generate  Chart req uest upon  check-in?  (1-Yes, ot herwise no )
  3499   "RTN","SDE C25",22,0)
  3500    ;         SDECPCC    - ien of P WH Type in  HEALTH SU MMARY PWH  TYPE file  ^APCHPWHT
  3501   "RTN","SDE C25",23,0)
  3502    ;         SDECWHF    - Print Pa tient Well ness Hando ut flag
  3503   "RTN","SDE C25",24,0)
  3504    ;
  3505   "RTN","SDE C25",25,0)
  3506   ENDBG ;
  3507   "RTN","SDE C25",26,0)
  3508    N BSDVSTN ,EMSG
  3509   "RTN","SDE C25",27,0)
  3510    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN
  3511   "RTN","SDE C25",28,0)
  3512    N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y
  3513   "RTN","SDE C25",29,0)
  3514    S SDECNOE V=1 ;Don't  execute p rotocol
  3515   "RTN","SDE C25",30,0)
  3516    S SDECCAN =0
  3517   "RTN","SDE C25",31,0)
  3518    ;
  3519   "RTN","SDE C25",32,0)
  3520    S SDECI=0
  3521   "RTN","SDE C25",33,0)
  3522    K ^TMP("S DEC",$J)
  3523   "RTN","SDE C25",34,0)
  3524    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  3525   "RTN","SDE C25",35,0)
  3526    S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30)
  3527   "RTN","SDE C25",36,0)
  3528    ;validate  SDEC appo intment ID
  3529   "RTN","SDE C25",37,0)
  3530    I '+$G(SD ECAPTID) D  ERR("SDEC 25: Invali d Appointm ent ID") Q
  3531   "RTN","SDE C25",38,0)
  3532    I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25:  Invalid Ap pointment  ID") Q
  3533   "RTN","SDE C25",39,0)
  3534    ;validate  checkin d ate/time ( required)
  3535   "RTN","SDE C25",40,0)
  3536    S SDECCDT =$G(SDECCD T)
  3537   "RTN","SDE C25",41,0)
  3538    S:SDECCDT ="@" SDECC AN=1
  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=""
  3541   "RTN","SDE C25",43,0)
  3542    I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q
  3543   "RTN","SDE C25",44,0)
  3544    ;validate  clinic st op code
  3545   "RTN","SDE C25",45,0)
  3546    S SDECCC= $G(SDECCC)
  3547   "RTN","SDE C25",46,0)
  3548    I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0))  S SDECCC= ""
  3549   "RTN","SDE C25",47,0)
  3550    ;validate  provider  (optional)
  3551   "RTN","SDE C25",48,0)
  3552    S SDECPRV =$G(SDECPR V)
  3553   "RTN","SDE C25",49,0)
  3554    I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V=""
  3555   "RTN","SDE C25",50,0)
  3556    ;I SDECPR V="" S SDE CPRV=DUZ
  3557   "RTN","SDE C25",51,0)
  3558    ;I SDECPR V="" S SDE CPRV=""
  3559   "RTN","SDE C25",52,0)
  3560    ;validate  routine s lip flag ( optional)
  3561   "RTN","SDE C25",53,0)
  3562    S SDECROU =$$UP^XLFS TR($G(SDEC ROU))
  3563   "RTN","SDE C25",54,0)
  3564    S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0)
  3565   "RTN","SDE C25",55,0)
  3566    ;validate  clinic
  3567   "RTN","SDE C25",56,0)
  3568    S SDECVCL =$G(SDECVC L)
  3569   "RTN","SDE C25",57,0)
  3570    I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL=""
  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
  3573   "RTN","SDE C25",59,0)
  3574    ;
  3575   "RTN","SDE C25",60,0)
  3576    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  3577   "RTN","SDE C25",61,0)
  3578    S DFN=$P( SDECNOD,U, 5)
  3579   "RTN","SDE C25",62,0)
  3580    S SDECPAT ID=$P(SDEC NOD,U,5)
  3581   "RTN","SDE C25",63,0)
  3582    S SDECSTA RT=$P(SDEC NOD,U)
  3583   "RTN","SDE C25",64,0)
  3584    ;
  3585   "RTN","SDE C25",65,0)
  3586    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID
  3587   "RTN","SDE C25",66,0)
  3588    ;if resou rceId is n ot null AN D there is  a valid r esource re cord
  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
  3591   "RTN","SDE C25",68,0)
  3592    . S SDECN OD=^SDEC(4 09.831,SDE CR1,0)
  3593   "RTN","SDE C25",69,0)
  3594    . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION
  3595   "RTN","SDE C25",70,0)
  3596    . ;Hospit al Locatio n is requi red for CH ECKIN
  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
  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
  3601   "RTN","SDE C25",73,0)
  3602    . ;
  3603   "RTN","SDE C25",74,0)
  3604    . ;  Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8
  3605   "RTN","SDE C25",75,0)
  3606    . ;
  3607   "RTN","SDE C25",76,0)
  3608    . N SDATA ,SDDA,SDCI HDL ;
  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) ;
  3611   "RTN","SDE C25",78,0)
  3612    . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ;
  3613   "RTN","SDE C25",79,0)
  3614    . ;
  3615   "RTN","SDE C25",80,0)
  3616    . I 'SDEC CAN D  ;
  3617   "RTN","SDE C25",81,0)
  3618    .. ;
  3619   "RTN","SDE C25",82,0)
  3620    .. ;  Che ckin SDEC  APPOINTMEN T entry -  wtc SD*5.3 *717 10/24 /18
  3621   "RTN","SDE C25",83,0)
  3622    .. ;
  3623   "RTN","SDE C25",84,0)
  3624    .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets  field .03  (Checkin),  in file 4 09.84
  3625   "RTN","SDE C25",85,0)
  3626    .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART)
  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
  3629   "RTN","SDE C25",87,0)
  3630    . ;
  3631   "RTN","SDE C25",88,0)
  3632    . I SDECC AN D  ;
  3633   "RTN","SDE C25",89,0)
  3634    .. ;
  3635   "RTN","SDE C25",90,0)
  3636    .. ;  Can cel check  in - wtc S D*5.3*717  10/24/18
  3637   "RTN","SDE C25",91,0)
  3638    .. ;
  3639   "RTN","SDE C25",92,0)
  3640    .. D SDEC CHK(SDECAP TID,"") ;  sets field  .03 (Chec kin), in f ile 409.84
  3641   "RTN","SDE C25",93,0)
  3642    .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ;
  3643   "RTN","SDE C25",94,0)
  3644    . ;
  3645   "RTN","SDE C25",95,0)
  3646    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/24/18
  3647   "RTN","SDE C25",96,0)
  3648    . ;
  3649   "RTN","SDE C25",97,0)
  3650    . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ;
  3651   "RTN","SDE C25",98,0)
  3652    . ;
  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
  3655   "RTN","SDE C25",100,0 )
  3656    . ;
  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
  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
  3661   "RTN","SDE C25",103,0 )
  3662    ;
  3663   "RTN","SDE C25",104,0 )
  3664    S SDECI=S DECI+1
  3665   "RTN","SDE C25",105,0 )
  3666    S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30)
  3667   "RTN","SDE C25",106,0 )
  3668    S SDECI=S DECI+1
  3669   "RTN","SDE C25",107,0 )
  3670    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  3671   "RTN","SDE C25",108,0 )
  3672    Q
  3673   "RTN","SDE C25",109,0 )
  3674    ;
  3675   "RTN","SDE C25",110,0 )
  3676   SDECCHK(SD ECAPTID,SD ECCDT) ;
  3677   "RTN","SDE C25",111,0 )
  3678    N SDECFDA ,SDECMSG
  3679   "RTN","SDE C25",112,0 )
  3680    S SDECIEN S=SDECAPTI D_","
  3681   "RTN","SDE C25",113,0 )
  3682    S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT
  3683   "RTN","SDE C25",114,0 )
  3684    S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"")
  3685   "RTN","SDE C25",115,0 )
  3686    D FILE^DI E("","SDEC FDA","SDEC MSG")
  3687   "RTN","SDE C25",116,0 )
  3688    Q
  3689   "RTN","SDE C25",117,0 )
  3690    ;
  3691   "RTN","SDE C25",118,0 )
  3692   APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START)          ;
  3693   "RTN","SDE C25",119,0 )
  3694    ;Checkin  appointmen t for pati ent SDECDF N in clini c SDECSC1
  3695   "RTN","SDE C25",120,0 )
  3696    ;at time  SDECSD
  3697   "RTN","SDE C25",121,0 )
  3698    N APTN,BS DMSG,SDECC
  3699   "RTN","SDE C25",122,0 )
  3700    S SDECC(" PAT")=SDEC PATID
  3701   "RTN","SDE C25",123,0 )
  3702    S SDECC(" HOS LOC")= SDECSC1
  3703   "RTN","SDE C25",124,0 )
  3704    S SDECC(" CLINIC COD E")=SDECCC
  3705   "RTN","SDE C25",125,0 )
  3706    S SDECC(" PROVIDER") =SDECPRV
  3707   "RTN","SDE C25",126,0 )
  3708    S SDECC(" APPT DATE" )=SDECSTAR T
  3709   "RTN","SDE C25",127,0 )
  3710    S SDECC(" CDT")=SDEC CDT
  3711   "RTN","SDE C25",128,0 )
  3712    S SDECC(" USR")=DUZ
  3713   "RTN","SDE C25",129,0 )
  3714    ;find IEN  in ^SC mu ltiple or  null
  3715   "RTN","SDE C25",130,0 )
  3716    S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC"))
  3717   "RTN","SDE C25",131,0 )
  3718    ;
  3719   "RTN","SDE C25",132,0 )
  3720    ;Required  by NEW AP I:
  3721   "RTN","SDE C25",133,0 )
  3722    S SDECC(" SRV CAT")= "A"
  3723   "RTN","SDE C25",134,0 )
  3724    S SDECC(" TIME RANGE ")=-1
  3725   "RTN","SDE C25",135,0 )
  3726    S SDECC(" VISIT DATE ")=SDECCDT
  3727   "RTN","SDE C25",136,0 )
  3728    S SDECC(" SITE")=$G( DUZ(2))
  3729   "RTN","SDE C25",137,0 )
  3730    S SDECC(" VISIT TYPE ")="V"
  3731   "RTN","SDE C25",138,0 )
  3732    S SDECC(" CLN")=SDEC C("HOS LOC ")
  3733   "RTN","SDE C25",139,0 )
  3734    S SDECC(" ADT")=SDEC C("APPT DA TE")
  3735   "RTN","SDE C25",140,0 )
  3736    ;
  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
  3739   "RTN","SDE C25",142,0 )
  3740    ;These va lues come  from input  param
  3741   "RTN","SDE C25",143,0 )
  3742    S SDECVEN ("CLINIC") =SDECVCL
  3743   "RTN","SDE C25",144,0 )
  3744    S SDECVEN ("FORM")=S DECVFM
  3745   "RTN","SDE C25",145,0 )
  3746    S SDECVEN ("OUTGUIDE ")=SDECOG
  3747   "RTN","SDE C25",146,0 )
  3748    ;
  3749   "RTN","SDE C25",147,0 )
  3750    N SDECOUT
  3751   "RTN","SDE C25",148,0 )
  3752    D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT)
  3753   "RTN","SDE C25",149,0 )
  3754    ;K SDECC
  3755   "RTN","SDE C25",150,0 )
  3756    ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) )          ;if match  found, set  visit IEN
  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
  3759   "RTN","SDE C25",152,0 )
  3760    Q
  3761   "RTN","SDE C25",153,0 )
  3762    ;
  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 '@'
  3765   "RTN","SDE C25",155,0 )
  3766    ; input:   DFN := if n of patie nt
  3767   "RTN","SDE C25",156,0 )
  3768    ;         SDCL := cl inic#
  3769   "RTN","SDE C25",157,0 )
  3770    ;          SDT := ap pt d/t
  3771   "RTN","SDE C25",158,0 )
  3772    ;
  3773   "RTN","SDE C25",159,0 )
  3774    N SDDA
  3775   "RTN","SDE C25",160,0 )
  3776    S SDDA=$$ FIND(DFN,S DT,SDCL)
  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
  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
  3781   "RTN","SDE C25",163,0 )
  3782    ;
  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
  3785   "RTN","SDE C25",165,0 )
  3786    ;
  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)
  3789   "RTN","SDE C25",167,0 )
  3790    ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L)
  3791   "RTN","SDE C25",168,0 )
  3792    S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D  FILE^DIE(, "FDA","ERR ")
  3793   "RTN","SDE C25",169,0 )
  3794    ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL )
  3795   "RTN","SDE C25",170,0 )
  3796    ;D CHKEVT D(DFN,SDT, SDCL)
  3797   "RTN","SDE C25",171,0 )
  3798    K FDA,ERR
  3799   "RTN","SDE C25",172,0 )
  3800    Q
  3801   "RTN","SDE C25",173,0 )
  3802    ;
  3803   "RTN","SDE C25",174,0 )
  3804   FIND(DFN,S DT,SDCL) ;  -- return  appt ifn  for pat
  3805   "RTN","SDE C25",175,0 )
  3806    ;   input :        D FN := ifn  of pat.
  3807   "RTN","SDE C25",176,0 )
  3808    ;                  S DT := appt  d/t
  3809   "RTN","SDE C25",177,0 )
  3810    ;                 SD CL := ifn  of clinic
  3811   "RTN","SDE C25",178,0 )
  3812    ;  output : [returne d] := ifn  if pat has  appt on d ate/time
  3813   "RTN","SDE C25",179,0 )
  3814    ;
  3815   "RTN","SDE C25",180,0 )
  3816    N Y
  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
  3819   "RTN","SDE C25",182,0 )
  3820    Q Y
  3821   "RTN","SDE C25",183,0 )
  3822    ;
  3823   "RTN","SDE C25",184,0 )
  3824   VALID(DFN, SDCL,SDT,S DDA) ; --  return val id appt.
  3825   "RTN","SDE C25",185,0 )
  3826    ; **NOTE:   For spee d consider ation the  ^SC and ^D PT nodes m ust be
  3827   "RTN","SDE C25",186,0 )
  3828    ;           check to  see they  exist prio r to calli ng this en try point.
  3829   "RTN","SDE C25",187,0 )
  3830    ;   input :        D FN := ifn  of pat.
  3831   "RTN","SDE C25",188,0 )
  3832    ;                  S DT := appt  d/t
  3833   "RTN","SDE C25",189,0 )
  3834    ;                 SD CL := ifn  of clinic
  3835   "RTN","SDE C25",190,0 )
  3836    ;                 SD DA := ifn  of appt
  3837   "RTN","SDE C25",191,0 )
  3838    ;  output : [returne d] := 1 fo r valid ap pt., 0 for  not valid
  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)
  3841   "RTN","SDE C25",193,0 )
  3842    ;
  3843   "RTN","SDE C25",194,0 )
  3844   CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN  APPOINTMEN T event
  3845   "RTN","SDE C25",195,0 )
  3846    ;when app ointments  CHECKIN vi a PIMS int erface.
  3847   "RTN","SDE C25",196,0 )
  3848    ;Propagat es CHECKIN  to SDECAP PT and rai ses refres h event to  running G UI clients
  3849   "RTN","SDE C25",197,0 )
  3850    ;
  3851   "RTN","SDE C25",198,0 )
  3852    Q:+$G(SDE CNOEV)
  3853   "RTN","SDE C25",199,0 )
  3854    Q:'+$G(SD ECSC)
  3855   "RTN","SDE C25",200,0 )
  3856    N SDECSTA T,SDECFOUN D,SDECRES
  3857   "RTN","SDE C25",201,0 )
  3858    S SDECSTA T=""
  3859   "RTN","SDE C25",202,0 )
  3860    S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED  IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4)
  3861   "RTN","SDE C25",203,0 )
  3862    S SDECFOU ND=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)
  3865   "RTN","SDE C25",205,0 )
  3866    I SDECFOU ND D CHKEV T3(SDECRES ) Q
  3867   "RTN","SDE C25",206,0 )
  3868    Q
  3869   "RTN","SDE C25",207,0 )
  3870    ;
  3871   "RTN","SDE C25",208,0 )
  3872   CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;
  3873   "RTN","SDE C25",209,0 )
  3874    ;Get appo intment id  in SDECAP T
  3875   "RTN","SDE C25",210,0 )
  3876    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1
  3877   "RTN","SDE C25",211,0 )
  3878    ;else ret urn 0
  3879   "RTN","SDE C25",212,0 )
  3880    N SDECFOU ND,SDECAPP T
  3881   "RTN","SDE C25",213,0 )
  3882    S SDECFOU ND=0
  3883   "RTN","SDE C25",214,0 )
  3884    Q:'+$G(SD ECRES) SDE CFOUND
  3885   "RTN","SDE C25",215,0 )
  3886    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
  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
  3889   "RTN","SDE C25",217,0 )
  3890    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
  3891   "RTN","SDE C25",218,0 )
  3892    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
  3893   "RTN","SDE C25",219,0 )
  3894    I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT)
  3895   "RTN","SDE C25",220,0 )
  3896    Q SDECFOU ND
  3897   "RTN","SDE C25",221,0 )
  3898    ;
  3899   "RTN","SDE C25",222,0 )
  3900   CHKEVT3(SD ECRES) ;
  3901   "RTN","SDE C25",223,0 )
  3902    ;Call Rai seEvent to  notify GU I clients
  3903   "RTN","SDE C25",224,0 )
  3904    ;
  3905   "RTN","SDE C25",225,0 )
  3906    Q
  3907   "RTN","SDE C25",226,0 )
  3908    N SDECRES N
  3909   "RTN","SDE C25",227,0 )
  3910    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
  3911   "RTN","SDE C25",228,0 )
  3912    Q:SDECRES N=""
  3913   "RTN","SDE C25",229,0 )
  3914    S SDECRES N=$P(SDECR ESN,"^")
  3915   "RTN","SDE C25",230,0 )
  3916    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")
  3917   "RTN","SDE C25",231,0 )
  3918    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
  3919   "RTN","SDE C25",232,0 )
  3920    Q
  3921   "RTN","SDE C25",233,0 )
  3922    ;
  3923   "RTN","SDE C25",234,0 )
  3924   CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN  APPOINTME NT event
  3925   "RTN","SDE C25",235,0 )
  3926    ;when  an  appointme nt CHECKIN  is delete d via.
  3927   "RTN","SDE C25",236,0 )
  3928    ;Deletes  CHECKIN to  and raise s refresh  event to r unning GUI  clients
  3929   "RTN","SDE C25",237,0 )
  3930    ;
  3931   "RTN","SDE C25",238,0 )
  3932    ;
  3933   "RTN","SDE C25",239,0 )
  3934    Q:+$G(SDE CNOEV)
  3935   "RTN","SDE C25",240,0 )
  3936    Q:'+$G(SD ECSC)
  3937   "RTN","SDE C25",241,0 )
  3938    N SDECSTA T,SDECFOUN D,SDECRES
  3939   "RTN","SDE C25",242,0 )
  3940    S SDECSTA T=""
  3941   "RTN","SDE C25",243,0 )
  3942    S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED  IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4)
  3943   "RTN","SDE C25",244,0 )
  3944    I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0))
  3945   "RTN","SDE C25",245,0 )
  3946    I SDECRES  D CHKEVT3 (SDECRES)  Q
  3947   "RTN","SDE C25",246,0 )
  3948    S SDECFOU ND=0
  3949   "RTN","SDE C25",247,0 )
  3950    ;
  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)
  3953   "RTN","SDE C25",249,0 )
  3954    ;I SDECFO UND D CHKE VT3(SDECRE S) Q
  3955   "RTN","SDE C25",250,0 )
  3956    Q
  3957   "RTN","SDE C25",251,0 )
  3958    ;
  3959   "RTN","SDE C25",252,0 )
  3960    ;CHECK OU T APPOINTM ENT - RPC
  3961   "RTN","SDE C25",253,0 )
  3962   CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment
  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
  3965   "RTN","SDE C25",255,0 )
  3966    ; Returns    SDECY
  3967   "RTN","SDE C25",256,0 )
  3968    ; Input   -- DFN       Patient  file IEN
  3969   "RTN","SDE C25",257,0 )
  3970    ;            SDT       Appointm ent Date/T ime in FM  format
  3971   "RTN","SDE C25",258,0 )
  3972    ;            SDCODT    Date/Tim e of Check  Out FM FO RMAT [REQU IRED]
  3973   "RTN","SDE C25",259,0 )
  3974    ;            SDECAPT ID - Appoi ntment ID
  3975   "RTN","SDE C25",260,0 )
  3976    ;            VPRV       - V Pro vider
  3977   "RTN","SDE C25",261,0 )
  3978    ;SETUP ER ROR TRACKI NG
  3979   "RTN","SDE C25",262,0 )
  3980    N APIERR, CNT,ERR,%D T,X,Y
  3981   "RTN","SDE C25",263,0 )
  3982    N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET
  3983   "RTN","SDE C25",264,0 )
  3984    N SDECI,S DECNOD,RPC PERM
  3985   "RTN","SDE C25",265,0 )
  3986    S SDECI=0
  3987   "RTN","SDE C25",266,0 )
  3988    K ^TMP("S DEC",$J)
  3989   "RTN","SDE C25",267,0 )
  3990    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  3991   "RTN","SDE C25",268,0 )
  3992    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)
  3993   "RTN","SDE C25",269,0 )
  3994    S RPCPERM =""
  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
  3997   "RTN","SDE C25",271,0 )
  3998    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q
  3999   "RTN","SDE C25",272,0 )
  4000    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q
  4001   "RTN","SDE C25",273,0 )
  4002    ;INITIALI ZE VARIABL ES
  4003   "RTN","SDE C25",274,0 )
  4004    S %DT="T"
  4005   "RTN","SDE C25",275,0 )
  4006    S X=SDT
  4007   "RTN","SDE C25",276,0 )
  4008    D ^%DT    ; GET FM F ORMAT FOR  APPOINTMEN T DATE/TIM E
  4009   "RTN","SDE C25",277,0 )
  4010    S SDT=Y
  4011   "RTN","SDE C25",278,0 )
  4012    S X=SDCOD T
  4013   "RTN","SDE C25",279,0 )
  4014    D ^%DT    ; GET FM F ORMAT FOR  CHECKOUT D ATE/TIME
  4015   "RTN","SDE C25",280,0 )
  4016    ;ChecOut  time canno t be in th e future
  4017   "RTN","SDE C25",281,0 )
  4018    S SDCODT= Y
  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
  4021   "RTN","SDE C25",283,0 )
  4022    ;
  4023   "RTN","SDE C25",284,0 )
  4024    ;appointm ent record
  4025   "RTN","SDE C25",285,0 )
  4026    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  4027   "RTN","SDE C25",286,0 )
  4028    ;make sur e CHECKOUT  time is a fter CHECK IN time
  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
  4031   "RTN","SDE C25",288,0 )
  4032    ;Hospital  Location  of RESOURC E
  4033   "RTN","SDE C25",289,0 )
  4034    S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID
  4035   "RTN","SDE C25",290,0 )
  4036    S SDECNOD =^SDEC(409 .831,SDECR ES,0)
  4037   "RTN","SDE C25",291,0 )
  4038    S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON
  4039   "RTN","SDE C25",292,0 )
  4040    ;
  4041   "RTN","SDE C25",293,0 )
  4042    S SDDA=0
  4043   "RTN","SDE C25",294,0 )
  4044    S SDASK=0
  4045   "RTN","SDE C25",295,0 )
  4046    S SDCOALB F=""
  4047   "RTN","SDE C25",296,0 )
  4048    S SDCOACT ="CO"
  4049   "RTN","SDE C25",297,0 )
  4050    S SDLNE=" "
  4051   "RTN","SDE C25",298,0 )
  4052    S SDQUIET =1
  4053   "RTN","SDE C25",299,0 )
  4054    K APIERR
  4055   "RTN","SDE C25",300,0 )
  4056    S APIERR= 0
  4057   "RTN","SDE C25",301,0 )
  4058    ;
  4059   "RTN","SDE C25",302,0 )
  4060    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
  4061   "RTN","SDE C25",303,0 )
  4062    ;
  4063   "RTN","SDE C25",304,0 )
  4064    N SDATA,S DDA,SDCIHD L ;
  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) ;
  4067   "RTN","SDE C25",306,0 )
  4068    ;
  4069   "RTN","SDE C25",307,0 )
  4070    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
  4071   "RTN","SDE C25",308,0 )
  4072    ;
  4073   "RTN","SDE C25",309,0 )
  4074    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;
  4075   "RTN","SDE C25",310,0 )
  4076    ;
  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
  4079   "RTN","SDE C25",312,0 )
  4080    ;
  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
  4083   "RTN","SDE C25",314,0 )
  4084    ;
  4085   "RTN","SDE C25",315,0 )
  4086    I 'APIERR  D  ;
  4087   "RTN","SDE C25",316,0 )
  4088    . ;
  4089   "RTN","SDE C25",317,0 )
  4090    . ;  Even t driver " AFTER" act ions - wtc  SD*5.3*71 7 10/25/18
  4091   "RTN","SDE C25",318,0 )
  4092    . ;
  4093   "RTN","SDE C25",319,0 )
  4094    . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ;
  4095   "RTN","SDE C25",320,0 )
  4096    . ;
  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
  4099   "RTN","SDE C25",322,0 )
  4100    . ;
  4101   "RTN","SDE C25",323,0 )
  4102    . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ;
  4103   "RTN","SDE C25",324,0 )
  4104    ;
  4105   "RTN","SDE C25",325,0 )
  4106    ;ERROR(S)  FOUND
  4107   "RTN","SDE C25",326,0 )
  4108    I APIERR> 0 D
  4109   "RTN","SDE C25",327,0 )
  4110    . S CNT=" "
  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)
  4113   "RTN","SDE C25",329,0 )
  4114    ;NO ERROR
  4115   "RTN","SDE C25",330,0 )
  4116    I APIERR< 1 D
  4117   "RTN","SDE C25",331,0 )
  4118    . S SDECI =SDECI+1
  4119   "RTN","SDE C25",332,0 )
  4120    . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30)
  4121   "RTN","SDE C25",333,0 )
  4122    . S SDECI =SDECI+1
  4123   "RTN","SDE C25",334,0 )
  4124    . S ^TMP( "SDEC",$J, SDECI)=$C( 31)
  4125   "RTN","SDE C25",335,0 )
  4126    Q
  4127   "RTN","SDE C25",336,0 )
  4128    ;
  4129   "RTN","SDE C25",337,0 )
  4130    ;CHECK OU T APPOINTM ENT - RPC
  4131   "RTN","SDE C25",338,0 )
  4132   CANCKOUT(S DECY,SDECA PTID) ;Can cel Check  Out appoin tment
  4133   "RTN","SDE C25",339,0 )
  4134    ;CANCKOUT (SDECY,SDE CAPTID)  e xternal pa rameter ta g is in SD EC
  4135   "RTN","SDE C25",340,0 )
  4136    ; Returns    SDECY
  4137   "RTN","SDE C25",341,0 )
  4138    ; Input   -- SDECAPT ID - Appoi ntment ID
  4139   "RTN","SDE C25",342,0 )
  4140    N APS,DA, DFN,DIE,DR ,RES
  4141   "RTN","SDE C25",343,0 )
  4142    N SDCL,SD N,SDOE,SDT ,SDV
  4143   "RTN","SDE C25",344,0 )
  4144    N SDECI,S DECNOD,RPC PERM
  4145   "RTN","SDE C25",345,0 )
  4146    S SDECI=0
  4147   "RTN","SDE C25",346,0 )
  4148    K ^TMP("S DEC",$J)
  4149   "RTN","SDE C25",347,0 )
  4150    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  4151   "RTN","SDE C25",348,0 )
  4152    S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30)
  4153   "RTN","SDE C25",349,0 )
  4154    S RPCPERM =""
  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
  4157   "RTN","SDE C25",351,0 )
  4158    I '+SDECA PTID D ERR ("Invalid  Appointmen t ID.") Q
  4159   "RTN","SDE C25",352,0 )
  4160    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment  ID.") Q
  4161   "RTN","SDE C25",353,0 )
  4162    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  4163   "RTN","SDE C25",354,0 )
  4164    S APS=$P( SDECNOD,U, 19)
  4165   "RTN","SDE C25",355,0 )
  4166    S DFN=$P( SDECNOD,U, 5)
  4167   "RTN","SDE C25",356,0 )
  4168    S SDT=$P( SDECNOD,U)
  4169   "RTN","SDE C25",357,0 )
  4170    S RES=$P( SDECNOD,U, 7)
  4171   "RTN","SDE C25",358,0 )
  4172    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)
  4173   "RTN","SDE C25",359,0 )
  4174    I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q
  4175   "RTN","SDE C25",360,0 )
  4176    ;
  4177   "RTN","SDE C25",361,0 )
  4178    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
  4179   "RTN","SDE C25",362,0 )
  4180    ;
  4181   "RTN","SDE C25",363,0 )
  4182    N SDATA,S DDA,SDCIHD L ;
  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) ;
  4185   "RTN","SDE C25",365,0 )
  4186    ;
  4187   "RTN","SDE C25",366,0 )
  4188    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
  4189   "RTN","SDE C25",367,0 )
  4190    ;
  4191   "RTN","SDE C25",368,0 )
  4192    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ;
  4193   "RTN","SDE C25",369,0 )
  4194    ;
  4195   "RTN","SDE C25",370,0 )
  4196    ; ^SDECAP PT: update  piece 8:  Data Entry  Clerk; cl ear piece  14: CHECKO UT;
  4197   "RTN","SDE C25",371,0 )
  4198    S DIE="^S DEC(409.84 ,"
  4199   "RTN","SDE C25",372,0 )
  4200    S DA=SDEC APTID
  4201   "RTN","SDE C25",373,0 )
  4202    S DR=".14 ////@;.08/ //"_DUZ
  4203   "RTN","SDE C25",374,0 )
  4204    D ^DIE
  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
  4207   "RTN","SDE C25",376,0 )
  4208    S DIE="^S C("_SDCL_" ,""S"","_S DT_",1,"
  4209   "RTN","SDE C25",377,0 )
  4210    S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT )
  4211   "RTN","SDE C25",378,0 )
  4212    S DR="303 ///@;304// /@;306///@ "
  4213   "RTN","SDE C25",379,0 )
  4214    D ^DIE
  4215   "RTN","SDE C25",380,0 )
  4216    ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME
  4217   "RTN","SDE C25",381,0 )
  4218    S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL)
  4219   "RTN","SDE C25",382,0 )
  4220    S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I")
  4221   "RTN","SDE C25",383,0 )
  4222    I +SDV D
  4223   "RTN","SDE C25",384,0 )
  4224    . S DIE=" ^AUPNVSIT( ",DA=SDV
  4225   "RTN","SDE C25",385,0 )
  4226    . S DR=". 18///@"
  4227   "RTN","SDE C25",386,0 )
  4228    . D ^DIE
  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
  4231   "RTN","SDE C25",388,0 )
  4232    I +APS D
  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
  4235   "RTN","SDE C25",390,0 )
  4236    . D ^DIE
  4237   "RTN","SDE C25",391,0 )
  4238    ;
  4239   "RTN","SDE C25",392,0 )
  4240    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/25/18
  4241   "RTN","SDE C25",393,0 )
  4242    ;
  4243   "RTN","SDE C25",394,0 )
  4244    D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL)  ;
  4245   "RTN","SDE C25",395,0 )
  4246    ;
  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
  4249   "RTN","SDE C25",397,0 )
  4250    ;
  4251   "RTN","SDE C25",398,0 )
  4252    D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ;
  4253   "RTN","SDE C25",399,0 )
  4254    ;
  4255   "RTN","SDE C25",400,0 )
  4256    S SDECI=S DECI+1
  4257   "RTN","SDE C25",401,0 )
  4258    S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30)
  4259   "RTN","SDE C25",402,0 )
  4260    S SDECI=S DECI+1
  4261   "RTN","SDE C25",403,0 )
  4262    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  4263   "RTN","SDE C25",404,0 )
  4264    Q
  4265   "RTN","SDE C25",405,0 )
  4266    ;
  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
  4269   "RTN","SDE C25",407,0 )
  4270    N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT
  4271   "RTN","SDE C25",408,0 )
  4272    N SDECNOD
  4273   "RTN","SDE C25",409,0 )
  4274    I '+$G(SD ECAPTID) Q
  4275   "RTN","SDE C25",410,0 )
  4276    I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q
  4277   "RTN","SDE C25",411,0 )
  4278    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  4279   "RTN","SDE C25",412,0 )
  4280    S APS=$P( SDECNOD,U, 19)
  4281   "RTN","SDE C25",413,0 )
  4282    S DFN=$P( SDECNOD,U, 5)
  4283   "RTN","SDE C25",414,0 )
  4284    S SDT=$P( SDECNOD,U)
  4285   "RTN","SDE C25",415,0 )
  4286    S RES=$P( SDECNOD,U, 7)
  4287   "RTN","SDE C25",416,0 )
  4288    S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4)
  4289   "RTN","SDE C25",417,0 )
  4290    I $P(SDEC NOD,U,14)= "" Q
  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;
  4293   "RTN","SDE C25",419,0 )
  4294    S DIE="^S DEC(409.84 ,"
  4295   "RTN","SDE C25",420,0 )
  4296    S DA=SDEC APTID
  4297   "RTN","SDE C25",421,0 )
  4298    S DR=".14 ////@;.08/ //"_DUZ
  4299   "RTN","SDE C25",422,0 )
  4300    D ^DIE
  4301   "RTN","SDE C25",423,0 )
  4302    Q
  4303   "RTN","SDE C25",424,0 )
  4304    ;
  4305   "RTN","SDE C25",425,0 )
  4306   ERROR ;
  4307   "RTN","SDE C25",426,0 )
  4308    D ERR("VI STA Error" )
  4309   "RTN","SDE C25",427,0 )
  4310    Q
  4311   "RTN","SDE C25",428,0 )
  4312    ;
  4313   "RTN","SDE C25",429,0 )
  4314   ERR(ERRNO)  ;Error pr ocessing
  4315   "RTN","SDE C25",430,0 )
  4316    S SDECI=S DECI+1
  4317   "RTN","SDE C25",431,0 )
  4318    S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30)
  4319   "RTN","SDE C25",432,0 )
  4320    S SDECI=S DECI+1
  4321   "RTN","SDE C25",433,0 )
  4322    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  4323   "RTN","SDE C25",434,0 )
  4324    Q
  4325   "RTN","SDE C31")
  4326   0^8^B34969 907^B26336 338
  4327   "RTN","SDE C31",1,0)
  4328   SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS  ;JAN 15, 2 016
  4329   "RTN","SDE C31",2,0)
  4330    ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7
  4331   "RTN","SDE C31",3,0)
  4332    ;
  4333   "RTN","SDE C31",4,0)
  4334    Q
  4335   "RTN","SDE C31",5,0)
  4336    ;
  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
  4339   "RTN","SDE C31",7,0)
  4340    ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE)   external  parameter  tag is in  SDEC
  4341   "RTN","SDE C31",8,0)
  4342    ;Called b y SDEC NOS HOW
  4343   "RTN","SDE C31",9,0)
  4344    ;SDECAPTI D - (requi red) Appoi ntment ID  - Pointer  to SDEC AP POINTMENT  file
  4345   "RTN","SDE C31",10,0)
  4346    ;SDECNS     - (requi red) Cance l flag  1= YES (Set N OSHOW); 0= NO (Cancel  NOSHOW)
  4347   "RTN","SDE C31",11,0)
  4348    ;USERIEN    - (optio nal) User  that enter ed NoShow  pointer to  NEW PERSO N
  4349   "RTN","SDE C31",12,0)
  4350    ;                         defau lt to curr ent user
  4351   "RTN","SDE C31",13,0)
  4352    ;SDECDATE   - (optio nal) Date/ Time that  No-show wa s entered  in externa l format
  4353   "RTN","SDE C31",14,0)
  4354    ;                        defaul t to NOW.
  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
  4357   "RTN","SDE C31",16,0)
  4358    ;Returns  error code  in record set field  ERRORID
  4359   "RTN","SDE C31",17,0)
  4360    ;
  4361   "RTN","SDE C31",18,0)
  4362    N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS
  4363   "RTN","SDE C31",19,0)
  4364    N SDECNOE V,%DT,X,Y, SDECOE
  4365   "RTN","SDE C31",20,0)
  4366    S SDECNOE V=1 ;Don't  execute p rotocol
  4367   "RTN","SDE C31",21,0)
  4368    ;
  4369   "RTN","SDE C31",22,0)
  4370    S SDECI=0
  4371   "RTN","SDE C31",23,0)
  4372    K ^TMP("S DEC",$J)
  4373   "RTN","SDE C31",24,0)
  4374    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  4375   "RTN","SDE C31",25,0)
  4376    S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30)
  4377   "RTN","SDE C31",26,0)
  4378    S SDECI=S DECI+1
  4379   "RTN","SDE C31",27,0)
  4380    ;validate  SDEC appo intment ID
  4381   "RTN","SDE C31",28,0)
  4382    I '+SDECA PTID D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q
  4383   "RTN","SDE C31",29,0)
  4384    I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31:  Invalid A ppointment  ID") Q
  4385   "RTN","SDE C31",30,0)
  4386    ;validate  cancel fl ag
  4387   "RTN","SDE C31",31,0)
  4388    S SDECNS= $G(SDECNS)
  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:"")
  4391   "RTN","SDE C31",33,0)
  4392    I SDECNS= "" D ERR(0 ,"SDEC31:  Invalid No  Show valu e") Q
  4393   "RTN","SDE C31",34,0)
  4394    ;validate  user IEN  (optional)
  4395   "RTN","SDE C31",35,0)
  4396    S USERIEN =$G(USERIE N)
  4397   "RTN","SDE C31",36,0)
  4398    I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N=""
  4399   "RTN","SDE C31",37,0)
  4400    I USERIEN ="" S USER IEN=DUZ
  4401   "RTN","SDE C31",38,0)
  4402    ;validate  cancel da te/time (o ptional)
  4403   "RTN","SDE C31",39,0)
  4404    S SDECDAT E=$G(SDECD ATE)
  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=""
  4407   "RTN","SDE C31",41,0)
  4408    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T
  4409   "RTN","SDE C31",42,0)
  4410    TSTART
  4411   "RTN","SDE C31",43,0)
  4412    ;
  4413   "RTN","SDE C31",44,0)
  4414    ;Edit SDE C APPOINTM ENT entry  NOSHOW fie ld
  4415   "RTN","SDE C31",45,0)
  4416    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  4417   "RTN","SDE C31",46,0)
  4418    ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid  Appointmen t ID") Q
  4419   "RTN","SDE C31",47,0)
  4420    S DFN=$P( SDECNOD,U, 5)
  4421   "RTN","SDE C31",48,0)
  4422    S SDECSTA RT=$P(SDEC NOD,U)
  4423   "RTN","SDE C31",49,0)
  4424    ;
  4425   "RTN","SDE C31",50,0)
  4426    ;  Event  driver "BE FORE" acti ons - wtc  SD*5.3*717  10/25/18
  4427   "RTN","SDE C31",51,0)
  4428    ;
  4429   "RTN","SDE C31",52,0)
  4430    N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ;
  4431   "RTN","SDE C31",53,0)
  4432    S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID
  4433   "RTN","SDE C31",54,0)
  4434    I SDECR1= "" D ERR(0 ,"SDEC31:  Missing re source") Q   ;
  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  ;
  4437   "RTN","SDE C31",56,0)
  4438    S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION
  4439   "RTN","SDE C31",57,0)
  4440    I SDECSC1 =""  D ERR (0,"SDEC31 : No locat ion for re source") Q   ;
  4441   "RTN","SDE C31",58,0)
  4442    I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31:  Location n ode missin g") Q  ;
  4443   "RTN","SDE C31",59,0)
  4444    ;
  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 ) ;
  4447   "RTN","SDE C31",61,0)
  4448    D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL)  ;
  4449   "RTN","SDE C31",62,0)
  4450    ;
  4451   "RTN","SDE C31",63,0)
  4452    ;  Proces s no show
  4453   "RTN","SDE C31",64,0)
  4454    ;
  4455   "RTN","SDE C31",65,0)
  4456    D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ;
  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  ; 
  4459   "RTN","SDE C31",67,0)
  4460    D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ;
  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  ;
  4463   "RTN","SDE C31",69,0)
  4464    ;
  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
  4467   "RTN","SDE C31",71,0)
  4468    S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20)
  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
  4471   "RTN","SDE C31",73,0)
  4472    ;
  4473   "RTN","SDE C31",74,0)
  4474    ;  Event  driver "AF TER" actio ns - wtc S D*5.3*717  10/24/18
  4475   "RTN","SDE C31",75,0)
  4476    ;
  4477   "RTN","SDE C31",76,0)
  4478    D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL)  ;
  4479   "RTN","SDE C31",77,0)
  4480    ;
  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
  4483   "RTN","SDE C31",79,0)
  4484    ;
  4485   "RTN","SDE C31",80,0)
  4486    D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ;
  4487   "RTN","SDE C31",81,0)
  4488    ;
  4489   "RTN","SDE C31",82,0)
  4490    TCOMMIT
  4491   "RTN","SDE C31",83,0)
  4492    S SDECI=S DECI+1
  4493   "RTN","SDE C31",84,0)
  4494    S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30)
  4495   "RTN","SDE C31",85,0)
  4496    S SDECI=S DECI+1
  4497   "RTN","SDE C31",86,0)
  4498    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  4499   "RTN","SDE C31",87,0)
  4500    Q
  4501   "RTN","SDE C31",88,0)
  4502    ;
  4503   "RTN","SDE C31",89,0)
  4504   APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID)  ;
  4505   "RTN","SDE C31",90,0)
  4506    ; update  file 2 inf o
  4507   "RTN","SDE C31",91,0)
  4508    ;Set nosh ow for pat ient DFN i n clinic S DCL
  4509   "RTN","SDE C31",92,0)
  4510    ;at time  SDT
  4511   "RTN","SDE C31",93,0)
  4512    N SDECC,% H,SDECIEN, SDRTYP
  4513   "RTN","SDE C31",94,0)
  4514    N SDECIEN S,SDFDA,SD ECMSG,IEN
  4515   "RTN","SDE C31",95,0)
  4516    S %H=$H D  YMD^%DTC
  4517   "RTN","SDE C31",96,0)
  4518    ;
  4519   "RTN","SDE C31",97,0)
  4520    S SDECIEN S=SDT_","_ DFN_","
  4521   "RTN","SDE C31",98,0)
  4522    I +SDECNS  D
  4523   "RTN","SDE C31",99,0)
  4524    . S SDFDA (2.98,SDEC IENS,3)="N "
  4525   "RTN","SDE C31",100,0 )
  4526    . S SDFDA (2.98,SDEC IENS,14)=U SERIEN
  4527   "RTN","SDE C31",101,0 )
  4528    . S SDFDA (2.98,SDEC IENS,15)=S DECCDT
  4529   "RTN","SDE C31",102,0 )
  4530    E  D
  4531   "RTN","SDE C31",103,0 )
  4532    . S SDFDA (2.98,SDEC IENS,3)=""
  4533   "RTN","SDE C31",104,0 )
  4534    . S SDFDA (2.98,SDEC IENS,14)=" "
  4535   "RTN","SDE C31",105,0 )
  4536    . S SDFDA (2.98,SDEC IENS,15)=" "
  4537   "RTN","SDE C31",106,0 )
  4538    K SDECIEN
  4539   "RTN","SDE C31",107,0 )
  4540    D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG")
  4541   "RTN","SDE C31",108,0 )
  4542    S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1))
  4543   "RTN","SDE C31",109,0 )
  4544    S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I")
  4545   "RTN","SDE C31",110,0 )
  4546    I $P(SDRT YP,";",2)= "GMR(123,"  D
  4547   "RTN","SDE C31",111,0 )
  4548    .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT)
  4549   "RTN","SDE C31",112,0 )
  4550    .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN)     ;, AUTO,NSDIE ,NSDA)
  4551   "RTN","SDE C31",113,0 )
  4552    Q
  4553   "RTN","SDE C31",114,0 )
  4554    ;
  4555   "RTN","SDE C31",115,0 )
  4556   SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ;
  4557   "RTN","SDE C31",116,0 )
  4558    ;
  4559   "RTN","SDE C31",117,0 )
  4560    N SDFDA,S DECIENS
  4561   "RTN","SDE C31",118,0 )
  4562    S SDECIEN S=SDECAPTI D_","
  4563   "RTN","SDE C31",119,0 )
  4564    S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW
  4565   "RTN","SDE C31",120,0 )
  4566    S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"")  ;N OSHOW DATE
  4567   "RTN","SDE C31",121,0 )
  4568    S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"")   ;N OSHOW USER
  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
  4571   "RTN","SDE C31",123,0 )
  4572    D FILE^DI E("","SDFD A","SDECMS G")
  4573   "RTN","SDE C31",124,0 )
  4574    ;
  4575   "RTN","SDE C31",125,0 )
  4576    Q
  4577   "RTN","SDE C31",126,0 )
  4578    ;
  4579   "RTN","SDE C31",127,0 )
  4580   NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT  event
  4581   "RTN","SDE C31",128,0 )
  4582    ;when app ointments  NOSHOW via  PIMS inte rface.
  4583   "RTN","SDE C31",129,0 )
  4584    ;Propagat es NOSHOW  to SDECAPP T and rais es refresh  event to  running GU I clients
  4585   "RTN","SDE C31",130,0 )
  4586    ;
  4587   "RTN","SDE C31",131,0 )
  4588    Q:+$G(SDE CNOEV)
  4589   "RTN","SDE C31",132,0 )
  4590    Q:'+$G(SD ECSC)
  4591   "RTN","SDE C31",133,0 )
  4592    ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK"
  4593   "RTN","SDE C31",134,0 )
  4594    N SDECSTA T,SDECFOUN D,SDECRES
  4595   "RTN","SDE C31",135,0 )
  4596    S SDECSTA T=1
  4597   "RTN","SDE C31",136,0 )
  4598    ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0
  4599   "RTN","SDE C31",137,0 )
  4600    S SDECFOU ND=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)
  4603   "RTN","SDE C31",139,0 )
  4604    I SDECFOU ND D NOSEV T3(SDECRES ) Q
  4605   "RTN","SDE C31",140,0 )
  4606    Q
  4607   "RTN","SDE C31",141,0 )
  4608    ;
  4609   "RTN","SDE C31",142,0 )
  4610   NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ;
  4611   "RTN","SDE C31",143,0 )
  4612    ;Get appo intment id  in SDECAP T
  4613   "RTN","SDE C31",144,0 )
  4614    ;If found , call SDE CNOS(SDECA PPT) and r eturn 1
  4615   "RTN","SDE C31",145,0 )
  4616    ;else ret urn 0
  4617   "RTN","SDE C31",146,0 )
  4618    N SDECFOU ND,SDECAPP T
  4619   "RTN","SDE C31",147,0 )
  4620    S SDECFOU ND=0
  4621   "RTN","SDE C31",148,0 )
  4622    Q:'+$G(SD ECRES) SDE CFOUND
  4623   "RTN","SDE C31",149,0 )
  4624    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
  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
  4627   "RTN","SDE C31",151,0 )
  4628    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
  4629   "RTN","SDE C31",152,0 )
  4630    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
  4631   "RTN","SDE C31",153,0 )
  4632    I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT)
  4633   "RTN","SDE C31",154,0 )
  4634    Q SDECFOU ND
  4635   "RTN","SDE C31",155,0 )
  4636    ;
  4637   "RTN","SDE C31",156,0 )
  4638   NOSEVT3(SD ECRES) ;
  4639   "RTN","SDE C31",157,0 )
  4640    ;Call Rai seEvent to  notify GU I clients
  4641   "RTN","SDE C31",158,0 )
  4642    ;
  4643   "RTN","SDE C31",159,0 )
  4644    Q
  4645   "RTN","SDE C31",160,0 )
  4646    N SDECRES N
  4647   "RTN","SDE C31",161,0 )
  4648    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
  4649   "RTN","SDE C31",162,0 )
  4650    Q:SDECRES N=""
  4651   "RTN","SDE C31",163,0 )
  4652    S SDECRES N=$P(SDECR ESN,"^")
  4653   "RTN","SDE C31",164,0 )
  4654    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
  4655   "RTN","SDE C31",165,0 )
  4656    Q
  4657   "RTN","SDE C31",166,0 )
  4658    ;
  4659   "RTN","SDE C31",167,0 )
  4660    ;
  4661   "RTN","SDE C31",168,0 )
  4662   ERR(SDECER ID,ERRTXT)  ;Error pr ocessing
  4663   "RTN","SDE C31",169,0 )
  4664    S:'+$G(SD ECI) SDECI =999999
  4665   "RTN","SDE C31",170,0 )
  4666    S SDECI=S DECI+1
  4667   "RTN","SDE C31",171,0 )
  4668    TROLLBACK
  4669   "RTN","SDE C31",172,0 )
  4670    S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 )
  4671   "RTN","SDE C31",173,0 )
  4672    S SDECI=S DECI+1
  4673   "RTN","SDE C31",174,0 )
  4674    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  4675   "RTN","SDE C31",175,0 )
  4676    Q
  4677   "RTN","SDE C31",176,0 )
  4678    ;
  4679   "RTN","SDE C31",177,0 )
  4680   ETRAP ;EP  Error trap  entry
  4681   "RTN","SDE C31",178,0 )
  4682    D ^%ZTER
  4683   "RTN","SDE C31",179,0 )
  4684    I '$D(SDE CI) N SDEC I S SDECI= 999999
  4685   "RTN","SDE C31",180,0 )
  4686    S SDECI=S DECI+1
  4687   "RTN","SDE C31",181,0 )
  4688    D ERR(0," SDEC31 Err or")
  4689   "RTN","SDE C31",182,0 )
  4690    Q
  4691   "RTN","SDE C31",183,0 )
  4692    ;
  4693   "RTN","SDE C31",184,0 )
  4694   IMHERE(SDE CRES) ;I'm  Here
  4695   "RTN","SDE C31",185,0 )
  4696    ;IMHERE(S DECRES)  e xternal pa rameter ta g is in SD EC
  4697   "RTN","SDE C31",186,0 )
  4698    ;Entry po int for SD EC IM HERE  remote pr ocedure
  4699   "RTN","SDE C31",187,0 )
  4700    ; Returns  a simple  value to c lient.  Us ed to esta blish cont inued exis tence
  4701   "RTN","SDE C31",188,0 )
  4702    ; of the  client to  the server ; resets t he server  READ timeo ut.
  4703   "RTN","SDE C31",189,0 )
  4704    S SDECRES =1
  4705   "RTN","SDE C31",190,0 )
  4706    Q
  4707   "RTN","SDE C31",191,0 )
  4708    ;
  4709   "VER")
  4710   8.0^22.2
  4711   "BLD",1036 4,6)
  4712   4^
  4713   $END KID S D*5.3*717