7. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/5/2018 3:28:15 PM Eastern Standard 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.

7.1 Files compared

# Location File Last Modified
1 VSE_P2_SD5.3686_v8.zip SD5.3686_v8.KID Mon Dec 3 14:44:10 2018 UTC
2 VSE_P2_SD5.3686_v8.zip SD5.3686_v8.KID Wed Dec 5 16:25:27 2018 UTC

7.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 7 22752
Changed 6 21
Inserted 0 0
Removed 0 0

7.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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1  
  2  
  3   $KID SD*5. 3*686
  4   **INSTALL  NAME**
  5   SD*5.3*686
  6   "BLD",1034 0,0)
  7   SD*5.3*686 ^SCHEDULIN G^0^318111 4^n
  8   "BLD",1034 0,1,0)
  9   ^^505^505^ 3180405^
  10   "BLD",1034 0,1,1,0)
  11   ********** ********** ********** ********** ********** ********** ********** ****
  12   "BLD",1034 0,1,2,0)
  13   **
  14   "BLD",1034 0,1,3,0)
  15   *                                GUI UPDATE  
  16   "BLD",1034 0,1,4,0)
  17   NOTICE                               *
  18   "BLD",1034 0,1,5,0)
  19   *--------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  20   "BLD",1034 0,1,6,0)
  21   -*
  22   "BLD",1034 0,1,7,0)
  23   * This pat ch MUST be  installed  before th e GUI upda te for rel ease 
  24   "BLD",1034 0,1,8,0)
  25   1.5.1      *  
  26   "BLD",1034 0,1,9,0)
  27   * of VistA  Schedulin g GUI is i nstalled.  The previo us 1.5 rel ease will 
  28   "BLD",1034 0,1,10,0)
  29   work *
  30   "BLD",1034 0,1,11,0)
  31   * with no  problems a fter this  patch has  been insta lled. Howe ver, if 
  32   "BLD",1034 0,1,12,0)
  33   the    *
  34   "BLD",1034 0,1,13,0)
  35   * 1.5.1 ve rsion is u sed withou t this pat ch, then a ll fields  for 
  36   "BLD",1034 0,1,14,0)
  37   selecting   *
  38   "BLD",1034 0,1,15,0)
  39   * clinics,  as well a s the Audi t Report,  will not w ork 
  40   "BLD",1034 0,1,16,0)
  41   properly.              *
  42   "BLD",1034 0,1,17,0)
  43   ********** ********** ********** ********** ********** ********** ********** ****
  44   "BLD",1034 0,1,18,0)
  45   **
  46   "BLD",1034 0,1,19,0)
  47    
  48   "BLD",1034 0,1,20,0)
  49   This patch  contains  the VistA  components  necessary  to suppor t the 1.5.
  50   "BLD",1034 0,1,21,0)
  51   release of  VistA Sch eduling En hancements  (VSE) as  well as ad dressing t he
  52   "BLD",1034 0,1,22,0)
  53   following  issues:
  54   "BLD",1034 0,1,23,0)
  55    
  56   "BLD",1034 0,1,24,0)
  57   1. R181207 03FY18  -  The VS GUI  applicati on freezes  when the  Audit Repo rt 
  58   "BLD",1034 0,1,25,0)
  59   is
  60   "BLD",1034 0,1,26,0)
  61                         run for al l schedule rs due to  performanc e issues.
  62   "BLD",1034 0,1,27,0)
  63    
  64   "BLD",1034 0,1,28,0)
  65   2. R178569 00FY18, -  If an appo intment ha d been sch eduled for  a consult
  66   "BLD",1034 0,1,29,0)
  67      R185649 68FY18,    then that  consult wa s complete d, and fin ally the
  68   "BLD",1034 0,1,30,0)
  69      R186483 21FY18     appointmen t was canc eled, the  consult wi ll be mark ed
  70   "BLD",1034 0,1,31,0)
  71                         as active,  even thou gh it shou ld remain  as complet e.
  72   "BLD",1034 0,1,32,0)
  73    
  74   "BLD",1034 0,1,33,0)
  75   3. R174153 67FY18  -  If a user  locks an a ppointment  request ( in this ca se,
  76   "BLD",1034 0,1,34,0)
  77                         a consult  request in  particula r) by sele cting it i
  78   "BLD",1034 0,1,35,0)
  79   the
  80   "BLD",1034 0,1,36,0)
  81                         RM grid, t hen exits  the GUI wi th it stil l locked, 
  82   "BLD",1034 0,1,37,0)
  83   user
  84   "BLD",1034 0,1,38,0)
  85                         in VistA w ill be una ble to sel ect the sa me request ,
  86   "BLD",1034 0,1,39,0)
  87                         instead re ceiving a  message st ating that  the reque st 
  88   "BLD",1034 0,1,40,0)
  89   is
  90   "BLD",1034 0,1,41,0)
  91                         locked.
  92   "BLD",1034 0,1,42,0)
  93    
  94   "BLD",1034 0,1,43,0)
  95   4. R170391 75FY18  -  When using  clinic lo okup, if t he user pa uses the i nput
  96   "BLD",1034 0,1,44,0)
  97                                 is  wiped out  and has t o be re-en tered.
  98   "BLD",1034 0,1,45,0)
  99    
  100   "BLD",1034 0,1,46,0)
  101   5. R184776 70FY18  -  When sched uling an a ppointment  for an In ter-Facili ty
  102   "BLD",1034 0,1,47,0)
  103                                 Co nsult (IFC ), the rem ote facili ty is not 
  104   "BLD",1034 0,1,48,0)
  105   notified.
  106   "BLD",1034 0,1,49,0)
  107    
  108   "BLD",1034 0,1,50,0)
  109   This patch  also cont ains modif ications t o routines  (SDECAR1  and SDECAR 2)
  110   "BLD",1034 0,1,51,0)
  111   and RPCs ( SDEC ARGET  and SDEC  ARSET) as  well chang es to File Man files
  112   "BLD",1034 0,1,52,0)
  113   (Appointme nt Request  #409.85)  related to  a future  enhancemen t - the 
  114   "BLD",1034 0,1,53,0)
  115   integratio n of Sched uling Mana ger functi onality in to the VS  GUI.
  116   "BLD",1034 0,1,54,0)
  117    
  118   "BLD",1034 0,1,55,0)
  119    
  120   "BLD",1034 0,1,56,0)
  121    
  122   "BLD",1034 0,1,57,0)
  123   Patch Comp onents
  124   "BLD",1034 0,1,58,0)
  125   ========== ======
  126   "BLD",1034 0,1,59,0)
  127    
  128   "BLD",1034 0,1,60,0)
  129   Files & Fi elds Assoc iated:
  130   "BLD",1034 0,1,61,0)
  131    
  132   "BLD",1034 0,1,62,0)
  133   File Name  (#)                                                 Ne w/Modified /
  134   "BLD",1034 0,1,63,0)
  135     Sub-file  Name (#)    Field Na me (Number )                     Deleted
  136   "BLD",1034 0,1,64,0)
  137   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
  138   "BLD",1034 0,1,65,0)
  139   SDEC APPT  REQUEST (# 409.85)                                  MO DIFIED
  140   "BLD",1034 0,1,66,0)
  141                                    VAOS GUID  (#5)                                 
  142   "BLD",1034 0,1,67,0)
  143   NEW
  144   "BLD",1034 0,1,68,0)
  145    
  146   "BLD",1034 0,1,69,0)
  147   SDEC CONTA CT (#409.8 6)                                       MO DIFIED
  148   "BLD",1034 0,1,70,0)
  149    
  150   "BLD",1034 0,1,71,0)
  151   SD AUDIT S TATISTICS  (#409.97)                                NE W
  152   "BLD",1034 0,1,72,0)
  153                           SCHEDULE R (#.01)                      NE W
  154   "BLD",1034 0,1,73,0)
  155                           DATE (#1 )                             NE W
  156   "BLD",1034 0,1,74,0)
  157                           PATIENT  CONTACTS ( #2)                NE W
  158   "BLD",1034 0,1,75,0)
  159                           APPT REQ UESTS (#3)                    NE W
  160   "BLD",1034 0,1,76,0)
  161                           APPT APP OINTMENTS  MADE (#4)          NE W
  162   "BLD",1034 0,1,77,0)
  163                           APPT CLO SED (#5)                      NE W
  164   "BLD",1034 0,1,78,0)
  165                           MRTC OPE NED (#6)                      NE W
  166   "BLD",1034 0,1,79,0)
  167                           MRTC CLO SED (#7)                      NE W
  168   "BLD",1034 0,1,80,0)
  169                           EWL ENTR IES (#8)                      NE W
  170   "BLD",1034 0,1,81,0)
  171                           EWL APPO INTMENTS M ADE (#9)           NE W
  172   "BLD",1034 0,1,82,0)
  173                           EWL CLOS ED (#10)                      NE W
  174   "BLD",1034 0,1,83,0)
  175                           PtCSch E NTRIES (#1 1)                 NE W
  176   "BLD",1034 0,1,84,0)
  177                           PtCSch A PPOINTMENT S MADE (#1 2)      NE W
  178   "BLD",1034 0,1,85,0)
  179                           CONSULT  APPOINTMEN TS MADE (# 13)     NE W
  180   "BLD",1034 0,1,86,0)
  181                           APPOINTM ENTS CANCE LLED (#14)         NE W
  182   "BLD",1034 0,1,87,0)
  183                           TOTAL AC TIONS (#15 )                  NE W
  184   "BLD",1034 0,1,88,0)
  185    
  186   "BLD",1034 0,1,89,0)
  187   Bulletins  Associated :
  188   "BLD",1034 0,1,90,0)
  189                                                                  Ne w/Modified /
  190   "BLD",1034 0,1,91,0)
  191   Bulletin N ame                                                    Deleted     
  192   "BLD",1034 0,1,92,0)
  193   ---------- ---                                                 -- ---------- -
  194   "BLD",1034 0,1,93,0)
  195   N/A
  196   "BLD",1034 0,1,94,0)
  197    
  198   "BLD",1034 0,1,95,0)
  199    
  200   "BLD",1034 0,1,96,0)
  201    
  202   "BLD",1034 0,1,97,0)
  203   Dialogs As sociated:
  204   "BLD",1034 0,1,98,0)
  205                                                                  Ne w/Modified /
  206   "BLD",1034 0,1,99,0)
  207   Dialog Nam e                                                      Deleted     
  208   "BLD",1034 0,1,100,0)
  209   ---------- -                                                   -- ---------- -
  210   "BLD",1034 0,1,101,0)
  211   N/A
  212   "BLD",1034 0,1,102,0)
  213    
  214   "BLD",1034 0,1,103,0)
  215    
  216   "BLD",1034 0,1,104,0)
  217    
  218   "BLD",1034 0,1,105,0)
  219   Forms Asso ciated:
  220   "BLD",1034 0,1,106,0)
  221                                                                  Ne w/Modified /
  222   "BLD",1034 0,1,107,0)
  223   Form Name                      F ile Name ( Number)               Deleted     
  224   "BLD",1034 0,1,108,0)
  225   ---------                      - ---------- -------            -- ---------- -
  226   "BLD",1034 0,1,109,0)
  227   N/A
  228   "BLD",1034 0,1,110,0)
  229    
  230   "BLD",1034 0,1,111,0)
  231    
  232   "BLD",1034 0,1,112,0)
  233    
  234   "BLD",1034 0,1,113,0)
  235   Functions  Associated :
  236   "BLD",1034 0,1,114,0)
  237                                                                  Ne w/Modified /
  238   "BLD",1034 0,1,115,0)
  239   Function N ame                                                    Deleted     
  240   "BLD",1034 0,1,116,0)
  241   ---------- ---                                                 -- ---------- -
  242   "BLD",1034 0,1,117,0)
  243   N/A
  244   "BLD",1034 0,1,118,0)
  245    
  246   "BLD",1034 0,1,119,0)
  247    
  248   "BLD",1034 0,1,120,0)
  249    
  250   "BLD",1034 0,1,121,0)
  251   HL Logical  Link:
  252   "BLD",1034 0,1,122,0)
  253                                                                  Ne w/Modified /
  254   "BLD",1034 0,1,123,0)
  255   HL Logical  Name                                                  Deleted     
  256   "BLD",1034 0,1,124,0)
  257   ---------- -----                                               -- ---------- -
  258   "BLD",1034 0,1,125,0)
  259   N/A
  260   "BLD",1034 0,1,126,0)
  261    
  262   "BLD",1034 0,1,127,0)
  263    
  264   "BLD",1034 0,1,128,0)
  265    
  266   "BLD",1034 0,1,129,0)
  267   HL7 Applic ation Para meters:
  268   "BLD",1034 0,1,130,0)
  269                                                                  Ne w/Modified /
  270   "BLD",1034 0,1,131,0)
  271   HL7 Parame ter Name                                               Deleted     
  272   "BLD",1034 0,1,132,0)
  273   ---------- --------                                            -- ---------- -
  274   "BLD",1034 0,1,133,0)
  275   N/A
  276   "BLD",1034 0,1,134,0)
  277    
  278   "BLD",1034 0,1,135,0)
  279    
  280   "BLD",1034 0,1,136,0)
  281    
  282   "BLD",1034 0,1,137,0)
  283   HLO Applic ation Regi stry:
  284   "BLD",1034 0,1,138,0)
  285                                                                  Ne w/Modified /
  286   "BLD",1034 0,1,139,0)
  287   HLO Regist ry Name                                                Deleted     
  288   "BLD",1034 0,1,140,0)
  289   ---------- -------                                             -- ---------- -
  290   "BLD",1034 0,1,141,0)
  291   N/A
  292   "BLD",1034 0,1,142,0)
  293    
  294   "BLD",1034 0,1,143,0)
  295    
  296   "BLD",1034 0,1,144,0)
  297    
  298   "BLD",1034 0,1,145,0)
  299   Help Frame s Associat ed:
  300   "BLD",1034 0,1,146,0)
  301                                                                  Ne w/Modified /
  302   "BLD",1034 0,1,147,0)
  303   Help Frame  Name                                                  Deleted     
  304   "BLD",1034 0,1,148,0)
  305   ---------- -----                                               -- ---------- -
  306   "BLD",1034 0,1,149,0)
  307   N/A
  308   "BLD",1034 0,1,150,0)
  309    
  310   "BLD",1034 0,1,151,0)
  311    
  312   "BLD",1034 0,1,152,0)
  313    
  314   "BLD",1034 0,1,153,0)
  315   Mail Group s Associat ed:
  316   "BLD",1034 0,1,154,0)
  317                                                                  Ne w/Modified /
  318   "BLD",1034 0,1,155,0)
  319   Mail Group  Name                                                  Deleted     
  320   "BLD",1034 0,1,156,0)
  321   ---------- -----                                               -- ---------- -
  322   "BLD",1034 0,1,157,0)
  323   N/A
  324   "BLD",1034 0,1,158,0)
  325    
  326   "BLD",1034 0,1,159,0)
  327    
  328   "BLD",1034 0,1,160,0)
  329    
  330   "BLD",1034 0,1,161,0)
  331   Options As sociated:
  332   "BLD",1034 0,1,162,0)
  333                                                                           
  334   "BLD",1034 0,1,163,0)
  335   New/Modifi ed/
  336   "BLD",1034 0,1,164,0)
  337   Option Nam e                                                  Typ e       
  338   "BLD",1034 0,1,165,0)
  339   Deleted     
  340   "BLD",1034 0,1,166,0)
  341   ---------- -                                                  --- -     
  342   "BLD",1034 0,1,167,0)
  343   ---------- ---
  344   "BLD",1034 0,1,168,0)
  345   CLINICAL S CHEDULING  PROCEDURE  CALLS [SDE CRPC]             Bro ker   MODI FIED
  346   "BLD",1034 0,1,169,0)
  347   COMPILE AU DIT REPORT  FOR A SEL ECTED                        Rou tine  NEW
  348   "BLD",1034 0,1,170,0)
  349      DATE [S DEC COMPIL E AUDIT RE PORT]
  350   "BLD",1034 0,1,171,0)
  351   COMPILE YE STERDAY'S  AUDIT REPO RT [SDEC A UDIT REPOR T JOB] Rou tine  NEW
  352   "BLD",1034 0,1,172,0)
  353   RELEASE AP POINTMENT  REQUEST LO CKS[SDEC R ELEASE LOC KS]    Rou tine  NEW
  354   "BLD",1034 0,1,173,0)
  355   SUPERVISOR  MENU [SDS UP]                                     Men u     MODI FIED
  356   "BLD",1034 0,1,174,0)
  357    
  358   "BLD",1034 0,1,175,0)
  359    
  360   "BLD",1034 0,1,176,0)
  361    
  362   "BLD",1034 0,1,177,0)
  363   Parameter  Definition s:
  364   "BLD",1034 0,1,178,0)
  365                                                                  Ne w/Modified /
  366   "BLD",1034 0,1,179,0)
  367   Parameter  Name                                                   Deleted     
  368   "BLD",1034 0,1,180,0)
  369   ---------- ----                                                -- ---------- -
  370   "BLD",1034 0,1,181,0)
  371   N/A
  372   "BLD",1034 0,1,182,0)
  373    
  374   "BLD",1034 0,1,183,0)
  375    
  376   "BLD",1034 0,1,184,0)
  377    
  378   "BLD",1034 0,1,185,0)
  379   Parameter  Template:
  380   "BLD",1034 0,1,186,0)
  381                                                                  Ne w/Modified /
  382   "BLD",1034 0,1,187,0)
  383   Template N ame                                                    Deleted     
  384   "BLD",1034 0,1,188,0)
  385   ---------- ---                                                 -- ---------- -
  386   "BLD",1034 0,1,189,0)
  387   N/A
  388   "BLD",1034 0,1,190,0)
  389    
  390   "BLD",1034 0,1,191,0)
  391    
  392   "BLD",1034 0,1,192,0)
  393    
  394   "BLD",1034 0,1,193,0)
  395   Protocols  Associated :
  396   "BLD",1034 0,1,194,0)
  397                                                                  Ne w/Modified /
  398   "BLD",1034 0,1,195,0)
  399   Protocol N ame                                                    Deleted     
  400   "BLD",1034 0,1,196,0)
  401   ---------- ---                                                 -- ---------- -
  402   "BLD",1034 0,1,197,0)
  403   N/A
  404   "BLD",1034 0,1,198,0)
  405    
  406   "BLD",1034 0,1,199,0)
  407    
  408   "BLD",1034 0,1,200,0)
  409    
  410   "BLD",1034 0,1,201,0)
  411   Remote Pro cedures As sociated:
  412   "BLD",1034 0,1,202,0)
  413                                                                  Ne w/Modified /
  414   "BLD",1034 0,1,203,0)
  415   Remote Pro cedure Nam e                                           Deleted     
  416   "BLD",1034 0,1,204,0)
  417   ---------- ---------- -                                        -- ---------- -
  418   "BLD",1034 0,1,205,0)
  419   SDEC ARGET                                                     MO DIFIED
  420   "BLD",1034 0,1,206,0)
  421   SDEC ARSET                                                     MO DIFIED
  422   "BLD",1034 0,1,207,0)
  423   SDEC RESCE                                                     NE W
  424   "BLD",1034 0,1,208,0)
  425   SDEC SUMMG ET2                                                 NE W
  426   "BLD",1034 0,1,209,0)
  427    
  428   "BLD",1034 0,1,210,0)
  429    
  430   "BLD",1034 0,1,211,0)
  431    
  432   "BLD",1034 0,1,212,0)
  433   Security K eys Associ ated:
  434   "BLD",1034 0,1,213,0)
  435                                                                  Ne w/Modified /
  436   "BLD",1034 0,1,214,0)
  437   Security K ey Name                                                Deleted     
  438   "BLD",1034 0,1,215,0)
  439   ---------- -------                                             -- ---------- -
  440   "BLD",1034 0,1,216,0)
  441   N/A
  442   "BLD",1034 0,1,217,0)
  443    
  444   "BLD",1034 0,1,218,0)
  445    
  446   "BLD",1034 0,1,219,0)
  447    
  448   "BLD",1034 0,1,220,0)
  449   Templates,  Input Ass ociated:
  450   "BLD",1034 0,1,221,0)
  451                                                                  Ne w/Modified /
  452   "BLD",1034 0,1,222,0)
  453   Template N ame      T ype      F ile Name ( Number)               Deleted     
  454   "BLD",1034 0,1,223,0)
  455   ---------- ---      - ---      - ---------- -------            -- ---------- -
  456   "BLD",1034 0,1,224,0)
  457   N/A
  458   "BLD",1034 0,1,225,0)
  459    
  460   "BLD",1034 0,1,226,0)
  461    
  462   "BLD",1034 0,1,227,0)
  463    
  464   "BLD",1034 0,1,228,0)
  465   Templates,  List Asso ciated:
  466   "BLD",1034 0,1,229,0)
  467                                                                  Ne w/Modified /
  468   "BLD",1034 0,1,230,0)
  469   Template N ame      T ype                                         Deleted     
  470   "BLD",1034 0,1,231,0)
  471   ---------- ---      - ---                                      -- ---------- -
  472   "BLD",1034 0,1,232,0)
  473   N/A
  474   "BLD",1034 0,1,233,0)
  475    
  476   "BLD",1034 0,1,234,0)
  477    
  478   "BLD",1034 0,1,235,0)
  479    
  480   "BLD",1034 0,1,236,0)
  481   Templates,  Print Ass ociated:
  482   "BLD",1034 0,1,237,0)
  483                                                                     New/Modifi ed/
  484   "BLD",1034 0,1,238,0)
  485   Template N ame          Type  Fi le Name (N umber)                   Deleted     
  486   "BLD",1034 0,1,239,0)
  487   ---------- ---          ----  -- ---------- ------                ---------- ---
  488   "BLD",1034 0,1,240,0)
  489   SDEC AUDIT  DATE PRIN T Print SD EC AUDIT S TATISTICS  (#409.97)  NEW
  490   "BLD",1034 0,1,241,0)
  491    
  492   "BLD",1034 0,1,242,0)
  493    
  494   "BLD",1034 0,1,243,0)
  495    
  496   "BLD",1034 0,1,244,0)
  497   Templates,  Sort Asso ciated:
  498   "BLD",1034 0,1,245,0)
  499                                                                        
  500   "BLD",1034 0,1,246,0)
  501   New/Modifi ed/
  502   "BLD",1034 0,1,247,0)
  503   Template N ame              Type  File Name  (Number)                   
  504   "BLD",1034 0,1,248,0)
  505   Deleted     
  506   "BLD",1034 0,1,249,0)
  507   ---------- ---              ----  --------- ---------                
  508   "BLD",1034 0,1,250,0)
  509   ---------- ---
  510   "BLD",1034 0,1,251,0)
  511   SDEC AUDIT  REPORT BY  DATE Sort  SDEC AUDI T STATISTI CS (#409.9 7) NEW
  512   "BLD",1034 0,1,252,0)
  513    
  514   "BLD",1034 0,1,253,0)
  515    
  516   "BLD",1034 0,1,254,0)
  517   Additional  Informati on:
  518   "BLD",1034 0,1,255,0)
  519   N/A
  520   "BLD",1034 0,1,256,0)
  521    
  522   "BLD",1034 0,1,257,0)
  523    
  524   "BLD",1034 0,1,258,0)
  525   New Servic e Requests  (NSRs)
  526   "BLD",1034 0,1,259,0)
  527   ---------- ---------- --------  
  528   "BLD",1034 0,1,260,0)
  529   N/A
  530   "BLD",1034 0,1,261,0)
  531    
  532   "BLD",1034 0,1,262,0)
  533    
  534   "BLD",1034 0,1,263,0)
  535   Patient Sa fety Issue s (PSIs)
  536   "BLD",1034 0,1,264,0)
  537   ---------- ---------- ---------
  538   "BLD",1034 0,1,265,0)
  539   N/A
  540   "BLD",1034 0,1,266,0)
  541    
  542   "BLD",1034 0,1,267,0)
  543    
  544   "BLD",1034 0,1,268,0)
  545   Service De sk Manager  (SDM) Tic ket(s) & O verview
  546   "BLD",1034 0,1,269,0)
  547   ---------- ---------- ---------- ---------- -------
  548   "BLD",1034 0,1,270,0)
  549   1. R181207 03FY18  Ca ncel Audit  Data Erro r after se lecting AL L in Audit  
  550   "BLD",1034 0,1,271,0)
  551   Report
  552   "BLD",1034 0,1,272,0)
  553     
  554   "BLD",1034 0,1,273,0)
  555   Problem:
  556   "BLD",1034 0,1,274,0)
  557   -------
  558   "BLD",1034 0,1,275,0)
  559   In the Aud it Report,  when the  user choos es ALL in  order to r un the rep ort 
  560   "BLD",1034 0,1,276,0)
  561   for
  562   "BLD",1034 0,1,277,0)
  563   all schedu lers, the  system han gs for sev eral minut es attempt ing to loa
  564   "BLD",1034 0,1,278,0)
  565   data,
  566   "BLD",1034 0,1,279,0)
  567   then final ly returns  an RPCExc eption whe n the conn ection tim es out. Th is 
  568   "BLD",1034 0,1,280,0)
  569   also
  570   "BLD",1034 0,1,281,0)
  571   terminate' s the user 's connect ion to Vis tA until t hey close  and reopen  VS 
  572   "BLD",1034 0,1,282,0)
  573   GUI. 
  574   "BLD",1034 0,1,283,0)
  575    
  576   "BLD",1034 0,1,284,0)
  577   Resolution :
  578   "BLD",1034 0,1,285,0)
  579   ----------
  580   "BLD",1034 0,1,286,0)
  581   The data f or the Aud it Report  is now com piled by a  nightly j ob so that  
  582   "BLD",1034 0,1,287,0)
  583   much
  584   "BLD",1034 0,1,288,0)
  585   less data  needs to b e transmit ted to the  client in  order to  use the 
  586   "BLD",1034 0,1,289,0)
  587   report.
  588   "BLD",1034 0,1,290,0)
  589   Users will  now be ab le to run  the report  for all s chedulers  without
  590   "BLD",1034 0,1,291,0)
  591   encounteri ng the tim eout.
  592   "BLD",1034 0,1,292,0)
  593    
  594   "BLD",1034 0,1,293,0)
  595   2. R178569 00FY18, R1 8564968FY1 8, R186483 21FY18 Rea ctivating  completed 
  596   "BLD",1034 0,1,294,0)
  597   consults
  598   "BLD",1034 0,1,295,0)
  599     
  600   "BLD",1034 0,1,296,0)
  601   Problem:
  602   "BLD",1034 0,1,297,0)
  603   -------
  604   "BLD",1034 0,1,298,0)
  605   If an appo intment is  created f or a consu lt, then t he consult  is marked  as
  606   "BLD",1034 0,1,299,0)
  607   complete,  then final ly the app ointment i s canceled , the cons ult return
  608   "BLD",1034 0,1,300,0)
  609   to the
  610   "BLD",1034 0,1,301,0)
  611   active sta tus instea d of remai ning compl ete. 
  612   "BLD",1034 0,1,302,0)
  613    
  614   "BLD",1034 0,1,303,0)
  615   Resolution :
  616   "BLD",1034 0,1,304,0)
  617   ----------
  618   "BLD",1034 0,1,305,0)
  619   In this si tuation, t he consult  will now  remain in  the comple te status.
  620   "BLD",1034 0,1,306,0)
  621    
  622   "BLD",1034 0,1,307,0)
  623   3. R174153 67FY18 Inc orrect loc k handling  in RM Gri d
  624   "BLD",1034 0,1,308,0)
  625     
  626   "BLD",1034 0,1,309,0)
  627   Problem:
  628   "BLD",1034 0,1,310,0)
  629   -------
  630   "BLD",1034 0,1,311,0)
  631   When a use r selects  a request  in the RM  grid, the  request is  locked un til
  632   "BLD",1034 0,1,312,0)
  633   another re quest is s elected. I f the user  exits the  program,  the lock i
  634   "BLD",1034 0,1,313,0)
  635   not
  636   "BLD",1034 0,1,314,0)
  637   released.  If a VistA  user trie s to use t he previou sly locked  request,  they
  638   "BLD",1034 0,1,315,0)
  639   will be pr evented fr om doing s o. (To exa cerbate th is, the GU I was not 
  640   "BLD",1034 0,1,316,0)
  641   handling
  642   "BLD",1034 0,1,317,0)
  643   locks corr ectly and  would give  the lock  to any use r that tri ed to get  it 
  644   "BLD",1034 0,1,318,0)
  645   even
  646   "BLD",1034 0,1,319,0)
  647   if another  user held  the lock,  so this i ssue was n ot visible  to GUI
  648   "BLD",1034 0,1,320,0)
  649   users.)
  650   "BLD",1034 0,1,321,0)
  651    
  652   "BLD",1034 0,1,322,0)
  653   Resolution :
  654   "BLD",1034 0,1,323,0)
  655   ----------
  656   "BLD",1034 0,1,324,0)
  657   The reques t that a u ser had lo cked when  they log o ut is now  unlocked
  658   "BLD",1034 0,1,325,0)
  659   correctly.  In additi on, if a u ser tries  to work a  request in  the GUI t hat
  660   "BLD",1034 0,1,326,0)
  661   another us er has loc ked, they  will recei ve a messa ge that th e request  is
  662   "BLD",1034 0,1,327,0)
  663   locked and  which use r holds th e lock. Fi nally, a V istA optio n on the
  664   "BLD",1034 0,1,328,0)
  665   Supervisor  menu has  been added  that will  release a ll locks h eld by a u ser.
  666   "BLD",1034 0,1,329,0)
  667       
  668   "BLD",1034 0,1,330,0)
  669   4. R170391 75FY18 Con sult looku p interact ion errors
  670   "BLD",1034 0,1,331,0)
  671    
  672   "BLD",1034 0,1,332,0)
  673   Problem:
  674   "BLD",1034 0,1,333,0)
  675   -------
  676   "BLD",1034 0,1,334,0)
  677   When using  clinic lo okup in th e VS GUI,  if the use r pauses t yping, the  
  678   "BLD",1034 0,1,335,0)
  679   input 
  680   "BLD",1034 0,1,336,0)
  681   is wiped o ut and has  to be re- entered. A  pop-up wi ndow appea rs if the 
  682   "BLD",1034 0,1,337,0)
  683   user's 
  684   "BLD",1034 0,1,338,0)
  685   input resu lts in mor e than 50  matches an d the inpu t is erase d. In 
  686   "BLD",1034 0,1,339,0)
  687   addtion, 
  688   "BLD",1034 0,1,340,0)
  689   the user c annot refi ne the lis t of clini cs returne d by typin g addition al 
  690   "BLD",1034 0,1,341,0)
  691   characters .
  692   "BLD",1034 0,1,342,0)
  693    
  694   "BLD",1034 0,1,343,0)
  695   Resolution :
  696   "BLD",1034 0,1,344,0)
  697   ----------
  698   "BLD",1034 0,1,345,0)
  699   GUI change s made, el iminating  the pop-up  window an d respondi ng to the 
  700   "BLD",1034 0,1,346,0)
  701   user's
  702   "BLD",1034 0,1,347,0)
  703   input incl uding narr owing the  list of re turned val ues when e ach additi onal
  704   "BLD",1034 0,1,348,0)
  705   character  is entered . A new RP C was crea ted for th e GUI to s upport thi s
  706   "BLD",1034 0,1,349,0)
  707   change. Th e new RPC  returns a  more limit ed amount  of data so  that the
  708   "BLD",1034 0,1,350,0)
  709   GUI can re spond more  quickly t o the user 's input.
  710   "BLD",1034 0,1,351,0)
  711    
  712   "BLD",1034 0,1,352,0)
  713   5. R184776 70FY18 Rem ote facili ty not upd ated when  appointmen ts made fo
  714   "BLD",1034 0,1,353,0)
  715   IFCs
  716   "BLD",1034 0,1,354,0)
  717    
  718   "BLD",1034 0,1,355,0)
  719   Problem:
  720   "BLD",1034 0,1,356,0)
  721   -------
  722   "BLD",1034 0,1,357,0)
  723   When sched uling an a ppointment  for an IF C, the rem ote facili ty is not 
  724   "BLD",1034 0,1,358,0)
  725   notified.
  726   "BLD",1034 0,1,359,0)
  727   RPC code f or VS GUI  did not in clude func tionality  in VistA S cheduling  for 
  728   "BLD",1034 0,1,360,0)
  729   the 
  730   "BLD",1034 0,1,361,0)
  731   generation  of IFC no tification s.
  732   "BLD",1034 0,1,362,0)
  733    
  734   "BLD",1034 0,1,363,0)
  735   Resolution :
  736   "BLD",1034 0,1,364,0)
  737   ----------
  738   "BLD",1034 0,1,365,0)
  739   Modified t he RPC cod e to call  a VistA Sc heduling A PI that ge nerates IF
  740   "BLD",1034 0,1,366,0)
  741   notificati ons.
  742   "BLD",1034 0,1,367,0)
  743    
  744   "BLD",1034 0,1,368,0)
  745   Test Sites :
  746   "BLD",1034 0,1,369,0)
  747   ----------
  748   "BLD",1034 0,1,370,0)
  749   TBA
  750   "BLD",1034 0,1,371,0)
  751    
  752   "BLD",1034 0,1,372,0)
  753    
  754   "BLD",1034 0,1,373,0)
  755   Documentat ion Retrie val Instru ctions
  756   "BLD",1034 0,1,374,0)
  757   ---------- ---------- ---------- ------ 
  758   "BLD",1034 0,1,375,0)
  759   Updated do cumentatio n describi ng the new  functiona lity intro duced by t his 
  760   "BLD",1034 0,1,376,0)
  761   patch is a vailable.
  762   "BLD",1034 0,1,377,0)
  763    
  764   "BLD",1034 0,1,378,0)
  765   The prefer red method  is to FTP  the files  from 
  766   "BLD",1034 0,1,379,0)
  767   ftp://down load. DNS . URL /.
  768   "BLD",1034 0,1,380,0)
  769   This trans mits the f iles from  the first  available  FTP server . Sites ma
  770   "BLD",1034 0,1,381,0)
  771   also elect  to retrie ve softwar e directly  from a sp ecific ser ver as 
  772   "BLD",1034 0,1,382,0)
  773   follows:
  774   "BLD",1034 0,1,383,0)
  775    
  776   "BLD",1034 0,1,38  DNS       .URL            DNS       .URL         >
  777   "BLD",1034 0,1,385,0) DNS.URL         >
       
       
  778   "BLD",1034 0,1,386,0)
  779    
  780   "BLD",1034 0,1,387,0)
  781   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  782   "BLD",1034 0,1,388,0)
  783   at:
  784   "BLD",1034 0,1,389,0)
  785   http://DNS .URL/
  786   "BLD",1034 0,1,390,0)
  787    
  788   "BLD",1034 0,1,391,0)
  789   Title                                              Fil e Name           FTP  Mode
  790   "BLD",1034 0,1,392,0)
  791   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  792   "BLD",1034 0,1,393,0)
  793   VistA Sche duling Enh ancements  GUI User G uide   VSE _VA_GUI_UG .PDF  Bina ry
  794   "BLD",1034 0,1,394,0)
  795   VistA Sche duling Enh ancements  Technical  Manual VSE _TM.PDF          Bina ry
  796   "BLD",1034 0,1,395,0)
  797    
  798   "BLD",1034 0,1,396,0)
  799    
  800   "BLD",1034 0,1,397,0)
  801   Patch Inst allation:
  802   "BLD",1034 0,1,398,0)
  803    
  804   "BLD",1034 0,1,399,0)
  805    
  806   "BLD",1034 0,1,400,0)
  807   Pre/Post I nstallatio n Overview
  808   "BLD",1034 0,1,401,0)
  809   ---------- ---------- ----------
  810   "BLD",1034 0,1,402,0)
  811   Post-insta llation, t here are 3  tasks: 1)  re-index  the SDEC C ONTACT fil e,
  812   "BLD",1034 0,1,403,0)
  813   2) schedul e the audi t statisti cs compile r to run e arly each  morning in  
  814   "BLD",1034 0,1,404,0)
  815   TaskMan an d 3) compi le enough  previous a udit stati stics for  reporting 
  816   "BLD",1034 0,1,405,0)
  817   users.
  818   "BLD",1034 0,1,406,0)
  819   These task s will be  detailed i n the Post -Installat ion Instru ctions 
  820   "BLD",1034 0,1,407,0)
  821   section.
  822   "BLD",1034 0,1,408,0)
  823     
  824   "BLD",1034 0,1,409,0)
  825   Installati on Instruc tions
  826   "BLD",1034 0,1,410,0)
  827   ---------- ---------- -----
  828   "BLD",1034 0,1,411,0)
  829   Install Ti me - less  than 5 min utes.
  830   "BLD",1034 0,1,412,0)
  831       
  832   "BLD",1034 0,1,413,0)
  833      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.
  834   "BLD",1034 0,1,414,0)
  835      
  836   "BLD",1034 0,1,415,0)
  837      2. From  the Kerne l Installa tion & Dis tribution  System men u, select
  838   "BLD",1034 0,1,416,0)
  839         the  Installati on menu.
  840   "BLD",1034 0,1,417,0)
  841      
  842   "BLD",1034 0,1,418,0)
  843      3. From  this menu , you may  select to  use the fo llowing op tions
  844   "BLD",1034 0,1,419,0)
  845         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*686):
  846   "BLD",1034 0,1,420,0)
  847              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
  848   "BLD",1034 0,1,421,0)
  849   allow
  850   "BLD",1034 0,1,422,0)
  851                  you to  ensure th e integrit y of the r outines th at are in  the
  852   "BLD",1034 0,1,423,0)
  853                  transp ort global .
  854   "BLD",1034 0,1,424,0)
  855              b.  Print  Transport  Global - T his option  will allo w you to v iew
  856   "BLD",1034 0,1,425,0)
  857                  the co mponents o f the KIDS  build.
  858   "BLD",1034 0,1,426,0)
  859              c.  Compar e Transpor t Global t o Current  System - T his option  
  860   "BLD",1034 0,1,427,0)
  861   will
  862   "BLD",1034 0,1,428,0)
  863                  allow  you to vie w all chan ges that w ill be mad e when thi
  864   "BLD",1034 0,1,429,0)
  865                  patch  is install ed.  It co mpares all  component s of this
  866   "BLD",1034 0,1,430,0)
  867                  patch  (routines,  DD's, tem plates, et c.).
  868   "BLD",1034 0,1,431,0)
  869              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup
  870   "BLD",1034 0,1,432,0)
  871                  messag e of any r outines ex ported wit h this pat ch. It wil
  872   "BLD",1034 0,1,433,0)
  873   not
  874   "BLD",1034 0,1,434,0)
  875                  backup  any other  changes s uch as DD' s or templ ates.
  876   "BLD",1034 0,1,435,0)
  877      
  878   "BLD",1034 0,1,436,0)
  879      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 686.
  880   "BLD",1034 0,1,437,0)
  881      
  882   "BLD",1034 0,1,438,0)
  883      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"
  884   "BLD",1034 0,1,439,0)
  885         resp ond NO.
  886   "BLD",1034 0,1,440,0)
  887      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and
  888   "BLD",1034 0,1,441,0)
  889         Prot ocols? NO/ /", respon d NO
  890   "BLD",1034 0,1,442,0)
  891    
  892   "BLD",1034 0,1,443,0)
  893   Post-Insta llation In structions
  894   "BLD",1034 0,1,444,0)
  895   ---------- ---------- ----------
  896   "BLD",1034 0,1,445,0)
  897   1.  RE-IND EX THE SDE C CONTACT  FILE
  898   "BLD",1034 0,1,446,0)
  899       ------ ---------- ---------- ----
  900   "BLD",1034 0,1,447,0)
  901       VA Fil eMan 22.2
  902   "BLD",1034 0,1,448,0)
  903         
  904   "BLD",1034 0,1,449,0)
  905       Select  OPTION: U TILITY FUN CTIONS  
  906   "BLD",1034 0,1,450,0)
  907                       - ---
  908   "BLD",1034 0,1,451,0)
  909           
  910   "BLD",1034 0,1,452,0)
  911       Select  UTILITY O PTION: 4   RE-INDEX F ILE
  912   "BLD",1034 0,1,453,0)
  913                                -
  914   "BLD",1034 0,1,454,0)
  915        
  916   "BLD",1034 0,1,455,0)
  917       MODIFY  WHAT FILE : SD Audit  Statistic s// 409.86   SDEC CON TACT
  918   "BLD",1034 0,1,456,0)
  919                                                   ------
  920   "BLD",1034 0,1,457,0)
  921                                                     (0 e ntries)
  922   "BLD",1034 0,1,458,0)
  923        
  924   "BLD",1034 0,1,459,0)
  925       THERE  ARE 3 INDI CES WITHIN  THIS FILE
  926   "BLD",1034 0,1,460,0)
  927       DO YOU  WISH TO R E-CROSS-RE FERENCE ON E PARTICUL AR INDEX?  No// Y  (Y es)
  928   "BLD",1034 0,1,461,0)
  929                                                                          -
  930   "BLD",1034 0,1,462,0)
  931        
  932   "BLD",1034 0,1,463,0)
  933       What t ype of cro ss-referen ce (Tradit ional or N ew)? Tradi tional// N EW
  934   "BLD",1034 0,1,464,0)
  935                                                                              - --
  936   "BLD",1034 0,1,465,0)
  937        
  938   "BLD",1034 0,1,466,0)
  939                  File:  SDEC CONTA CT (#409.8 6)
  940   "BLD",1034 0,1,467,0)
  941       Select  Subfile:  3  DATE/TI ME of CONT ACT  (Subf ile #409.8 63)
  942   "BLD",1034 0,1,468,0)
  943                         -
  944   "BLD",1034 0,1,469,0)
  945        
  946   "BLD",1034 0,1,470,0)
  947       Curren t Indexes  on subfile  #409.863:
  948   "BLD",1034 0,1,471,0)
  949         1404    'AD' wh ole file i ndex (resi des on fil e #409.86)
  950   "BLD",1034 0,1,472,0)
  951        
  952   "BLD",1034 0,1,473,0)
  953       Which  Index do y ou wish to  re-cross- reference?  1404//    AD
  954   "BLD",1034 0,1,474,0)
  955                                                                     --
  956   "BLD",1034 0,1,475,0)
  957        
  958   "BLD",1034 0,1,476,0)
  959       Do you  want to d elete the  existing ' AD' cross- reference?  YES
  960   "BLD",1034 0,1,477,0)
  961                                                                      ---
  962   "BLD",1034 0,1,478,0)
  963       Do you  want to r e-build th e 'AD' cro ss referen ce? YES  . ..DONE! 
  964   "BLD",1034 0,1,479,0)
  965                                                              ---
  966   "BLD",1034 0,1,480,0)
  967    
  968   "BLD",1034 0,1,481,0)
  969   2.  SCHEDU LE THE AUD IT REPORT  JOB
  970   "BLD",1034 0,1,482,0)
  971       ------ ---------- ---------- ---
  972   "BLD",1034 0,1,483,0)
  973       Access  the TASKM AN MANAGEM ENT option  then sele ct Schedul e/Unschedu le 
  974   "BLD",1034 0,1,484,0)
  975       option s. Schedul e the SDEC  AUDIT REP ORT JOB op tion to ru n at some 
  976   "BLD",1034 0,1,485,0)
  977   point 
  978   "BLD",1034 0,1,486,0)
  979       in the  early mor ning tomor row (such  as 1:00 am ) with a r eschedulin g
  980   "BLD",1034 0,1,487,0)
  981       freque ncy of one  day (1D).
  982   "BLD",1034 0,1,488,0)
  983    
  984   "BLD",1034 0,1,489,0)
  985   3.  COMPIL E DATA FOR  THE AUDIT  REPORT
  986   "BLD",1034 0,1,490,0)
  987       ------ ---------- ---------- -------
  988   "BLD",1034 0,1,491,0)
  989       Access  the SDEC  COMPILE AU DIT REPORT  option. E nter the d ate range 
  990   "BLD",1034 0,1,492,0)
  991   that 
  992   "BLD",1034 0,1,493,0)
  993       you wa nt to be a ble to rep ort statis tics for.   
  994   "BLD",1034 0,1,494,0)
  995    
  996   "BLD",1034 0,1,495,0)
  997       NOTE:  You can ru n the opti on as many  times as  needed to  compile th e
  998   "BLD",1034 0,1,496,0)
  999       report  statistic s. Compili ng will be  skipped i f it has a lready bee
  1000   "BLD",1034 0,1,497,0)
  1001   done
  1002   "BLD",1034 0,1,498,0)
  1003       for a  day. It is  recommend ed that yo u compile  a single d ay the fir st 
  1004   "BLD",1034 0,1,499,0)
  1005   time
  1006   "BLD",1034 0,1,500,0)
  1007       you us e the opti on to gaug e the amou nt of time  required  at your 
  1008   "BLD",1034 0,1,501,0)
  1009   facility.
  1010   "BLD",1034 0,1,502,0)
  1011       Compil ing audit  statistics  can be do ne at any  time after  installat ion 
  1012   "BLD",1034 0,1,503,0)
  1013   that
  1014   "BLD",1034 0,1,504,0)
  1015       is con venient, b ut users w ill only b e able to  get data o n the audi t
  1016   "BLD",1034 0,1,505,0)
  1017       report  that has  been compi led.
  1018   "BLD",1034 0,4,0)
  1019   ^9.64PA^40 9.85^3
  1020   "BLD",1034 0,4,409.85 ,0)
  1021   409.85
  1022   "BLD",1034 0,4,409.85 ,222)
  1023   y^y^f^^^^n
  1024   "BLD",1034 0,4,409.86 ,0)
  1025   409.86
  1026   "BLD",1034 0,4,409.86 ,222)
  1027   y^y^f^^^^n
  1028   "BLD",1034 0,4,409.97 ,0)
  1029   409.97
  1030   "BLD",1034 0,4,409.97 ,222)
  1031   y^y^f^^^^n
  1032   "BLD",1034 0,4,"B",40 9.85,409.8 5)
  1033  
  1034   "BLD",1034 0,4,"B",40 9.86,409.8 6)
  1035  
  1036   "BLD",1034 0,4,"B",40 9.97,409.9 7)
  1037  
  1038   "BLD",1034 0,6)
  1039   2^
  1040   "BLD",1034 0,6.3)
  1041   39
  1042   "BLD",1034 0,"KRN",0)
  1043   ^9.67PA^77 9.2^20
  1044   "BLD",1034 0,"KRN",.4 ,0)
  1045   .4
  1046   "BLD",1034 0,"KRN",.4 ,"NM",0)
  1047   ^9.68A^1^1
  1048   "BLD",1034 0,"KRN",.4 ,"NM",1,0)
  1049   SDEC AUDIT  DATE PRIN T    FILE  #409.97^40 9.97^0
  1050   "BLD",1034 0,"KRN",.4 ,"NM","B", "SDEC AUDI T DATE PRI NT    FILE  #409.97", 1)
  1051  
  1052   "BLD",1034 0,"KRN",.4 01,0)
  1053   .401
  1054   "BLD",1034 0,"KRN",.4 01,"NM",0)
  1055   ^9.68A^1^1
  1056   "BLD",1034 0,"KRN",.4 01,"NM",1, 0)
  1057   SDEC AUDIT  REPORT BY  DATE    F ILE #409.9 7^409.97^0
  1058   "BLD",1034 0,"KRN",.4 01,"NM","B ","SDEC AU DIT REPORT  BY DATE     FILE #40 9.97",1)
  1059  
  1060   "BLD",1034 0,"KRN",.4 02,0)
  1061   .402
  1062   "BLD",1034 0,"KRN",.4 03,0)
  1063   .403
  1064   "BLD",1034 0,"KRN",.5 ,0)
  1065   .5
  1066   "BLD",1034 0,"KRN",.8 4,0)
  1067   .84
  1068   "BLD",1034 0,"KRN",3. 6,0)
  1069   3.6
  1070   "BLD",1034 0,"KRN",3. 8,0)
  1071   3.8
  1072   "BLD",1034 0,"KRN",9. 2,0)
  1073   9.2
  1074   "BLD",1034 0,"KRN",9. 8,0)
  1075   9.8
  1076   "BLD",1034 0,"KRN",9. 8,"NM",0)
  1077   ^9.68A^11^ 11
  1078   "BLD",1034 0,"KRN",9. 8,"NM",1,0 )
  1079   SDEC01C^^0 ^B69927064
  1080   "BLD",1034 0,"KRN",9. 8,"NM",2,0 )
  1081   SDECAUD^^0 ^B10112112 2
  1082   "BLD",1034 0,"KRN",9. 8,"NM",3,0 )
  1083   SDEC^^0^B1 33133924
  1084   "BLD",1034 0,"KRN",9. 8,"NM",4,0 )
  1085   SDECCON^^0 ^B17988891
  1086   "BLD",1034 0,"KRN",9. 8,"NM",5,0 )
  1087   SDEC07A^^0 ^B86375854
  1088   "BLD",1034 0,"KRN",9. 8,"NM",6,0 )
  1089   SDECLK^^0^ B22769738
  1090   "BLD",1034 0,"KRN",9. 8,"NM",7,0 )
  1091   SDECAR1^^0 ^B16735125 1
  1092   "BLD",1034 0,"KRN",9. 8,"NM",8,0 )
  1093   SDECAR2^^0 ^B19996780 8
  1094   "BLD",1034 0,"KRN",9. 8,"NM",9,0 )
  1095   SDCNSLT^^0 ^B45406127
  1096   "BLD",1034 0,"KRN",9. 8,"NM",10, 0)
  1097   SDEC07^^0^ B206327125
  1098   "BLD",1034 0,"KRN",9. 8,"NM",11, 0)
  1099   SDEC08^^0^ B213030286
  1100   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDCNSLT" ,9)
  1101  
  1102   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC",3)
  1103  
  1104   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC01C" ,1)
  1105  
  1106   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC07", 10)
  1107  
  1108   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC07A" ,5)
  1109  
  1110   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC08", 11)
  1111  
  1112   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAR1" ,7)
  1113  
  1114   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAR2" ,8)
  1115  
  1116   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAUD" ,2)
  1117  
  1118   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECCON" ,4)
  1119  
  1120   "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECLK", 6)
  1121  
  1122   "BLD",1034 0,"KRN",19 ,0)
  1123   19
  1124   "BLD",1034 0,"KRN",19 ,"NM",0)
  1125   ^9.68A^6^6
  1126   "BLD",1034 0,"KRN",19 ,"NM",1,0)
  1127   SDECRPC^^0
  1128   "BLD",1034 0,"KRN",19 ,"NM",2,0)
  1129   SDEC AUDIT  REPORT JO B^^0
  1130   "BLD",1034 0,"KRN",19 ,"NM",3,0)
  1131   SDEC COMPI LE AUDIT R EPORT^^0
  1132   "BLD",1034 0,"KRN",19 ,"NM",4,0)
  1133   SDEC RELEA SE LOCKS^^ 0
  1134   "BLD",1034 0,"KRN",19 ,"NM",5,0)
  1135   SDSUP^^2
  1136   "BLD",1034 0,"KRN",19 ,"NM",6,0)
  1137   SDEC PRINT  AUDIT REP ORT^^0
  1138   "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC AUDI T REPORT J OB",2)
  1139  
  1140   "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC COMP ILE AUDIT  REPORT",3)
  1141  
  1142   "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC PRIN T AUDIT RE PORT",6)
  1143  
  1144   "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC RELE ASE LOCKS" ,4)
  1145  
  1146   "BLD",1034 0,"KRN",19 ,"NM","B", "SDECRPC", 1)
  1147  
  1148   "BLD",1034 0,"KRN",19 ,"NM","B", "SDSUP",5)
  1149  
  1150   "BLD",1034 0,"KRN",19 .1,0)
  1151   19.1
  1152   "BLD",1034 0,"KRN",19 .1,"NM",0)
  1153   ^9.68A^^
  1154   "BLD",1034 0,"KRN",10 1,0)
  1155   101
  1156   "BLD",1034 0,"KRN",40 9.61,0)
  1157   409.61
  1158   "BLD",1034 0,"KRN",77 1,0)
  1159   771
  1160   "BLD",1034 0,"KRN",77 9.2,0)
  1161   779.2
  1162   "BLD",1034 0,"KRN",87 0,0)
  1163   870
  1164   "BLD",1034 0,"KRN",89 89.51,0)
  1165   8989.51
  1166   "BLD",1034 0,"KRN",89 89.52,0)
  1167   8989.52
  1168   "BLD",1034 0,"KRN",89 94,0)
  1169   8994
  1170   "BLD",1034 0,"KRN",89 94,"NM",0)
  1171   ^9.68A^5^5
  1172   "BLD",1034 0,"KRN",89 94,"NM",1, 0)
  1173   SDEC SUMMG ET2^^0
  1174   "BLD",1034 0,"KRN",89 94,"NM",2, 0)
  1175   SDEC RESCE ^^0
  1176   "BLD",1034 0,"KRN",89 94,"NM",3, 0)
  1177   SDEC ARSET ^^0
  1178   "BLD",1034 0,"KRN",89 94,"NM",4, 0)
  1179   SDEC ARGET ^^0
  1180   "BLD",1034 0,"KRN",89 94,"NM",5, 0)
  1181   SDECAR1 AR GUID^^0
  1182   "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC AR GET",4)
  1183  
  1184   "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC AR SET",3)
  1185  
  1186   "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC RE SCE",2)
  1187  
  1188   "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC SU MMGET2",1)
  1189  
  1190   "BLD",1034 0,"KRN",89 94,"NM","B ","SDECAR1  ARGUID",5 )
  1191  
  1192   "BLD",1034 0,"KRN","B ",.4,.4)
  1193  
  1194   "BLD",1034 0,"KRN","B ",.401,.40 1)
  1195  
  1196   "BLD",1034 0,"KRN","B ",.402,.40 2)
  1197  
  1198   "BLD",1034 0,"KRN","B ",.403,.40 3)
  1199  
  1200   "BLD",1034 0,"KRN","B ",.5,.5)
  1201  
  1202   "BLD",1034 0,"KRN","B ",.84,.84)
  1203  
  1204   "BLD",1034 0,"KRN","B ",3.6,3.6)
  1205  
  1206   "BLD",1034 0,"KRN","B ",3.8,3.8)
  1207  
  1208   "BLD",1034 0,"KRN","B ",9.2,9.2)
  1209  
  1210   "BLD",1034 0,"KRN","B ",9.8,9.8)
  1211  
  1212   "BLD",1034 0,"KRN","B ",19,19)
  1213  
  1214   "BLD",1034 0,"KRN","B ",19.1,19. 1)
  1215  
  1216   "BLD",1034 0,"KRN","B ",101,101)
  1217  
  1218   "BLD",1034 0,"KRN","B ",409.61,4 09.61)
  1219  
  1220   "BLD",1034 0,"KRN","B ",771,771)
  1221  
  1222   "BLD",1034 0,"KRN","B ",779.2,77 9.2)
  1223  
  1224   "BLD",1034 0,"KRN","B ",870,870)
  1225  
  1226   "BLD",1034 0,"KRN","B ",8989.51, 8989.51)
  1227  
  1228   "BLD",1034 0,"KRN","B ",8989.52, 8989.52)
  1229  
  1230   "BLD",1034 0,"KRN","B ",8994,899 4)
  1231  
  1232   "BLD",1034 0,"QDEF")
  1233   ^^^^^^^^YE S
  1234   "BLD",1034 0,"QUES",0 )
  1235   ^9.62^^
  1236   "BLD",1034 0,"REQB",0 )
  1237   ^9.611^3^3
  1238   "BLD",1034 0,"REQB",1 ,0)
  1239   SD*5.3*679 ^2
  1240   "BLD",1034 0,"REQB",2 ,0)
  1241   SD*5.3*671 ^2
  1242   "BLD",1034 0,"REQB",3 ,0)
  1243   SD*5.3*669 ^2
  1244   "BLD",1034 0,"REQB"," B","SD*5.3 *669",3)
  1245  
  1246   "BLD",1034 0,"REQB"," B","SD*5.3 *671",2)
  1247  
  1248   "BLD",1034 0,"REQB"," B","SD*5.3 *679",1)
  1249  
  1250   "FIA",409. 85)
  1251   SDEC APPT  REQUEST
  1252   "FIA",409. 85,0)
  1253   ^SDEC(409. 85,
  1254   "FIA",409. 85,0,0)
  1255   409.85P
  1256   "FIA",409. 85,0,1)
  1257   y^y^f^^^^n
  1258   "FIA",409. 85,0,10)
  1259  
  1260   "FIA",409. 85,0,11)
  1261  
  1262   "FIA",409. 85,0,"RLRO ")
  1263  
  1264   "FIA",409. 85,0,"VR")
  1265   5.3^SD
  1266   "FIA",409. 85,409.85)
  1267   0
  1268   "FIA",409. 85,409.851 )
  1269   0
  1270   "FIA",409. 85,409.852 )
  1271   0
  1272   "FIA",409. 85,409.854 4)
  1273   0
  1274   "FIA",409. 85,409.854 5)
  1275   0
  1276   "FIA",409. 85,409.854 8)
  1277   0
  1278   "FIA",409. 86)
  1279   SDEC CONTA CT
  1280   "FIA",409. 86,0)
  1281   ^SDEC(409. 86,
  1282   "FIA",409. 86,0,0)
  1283   409.86P
  1284   "FIA",409. 86,0,1)
  1285   y^y^f^^^^n
  1286   "FIA",409. 86,0,10)
  1287  
  1288   "FIA",409. 86,0,11)
  1289  
  1290   "FIA",409. 86,0,"RLRO ")
  1291  
  1292   "FIA",409. 86,0,"VR")
  1293   5.3^SD
  1294   "FIA",409. 86,409.86)
  1295   0
  1296   "FIA",409. 86,409.863 )
  1297   0
  1298   "FIA",409. 97)
  1299   SD Audit S tatistics
  1300   "FIA",409. 97,0)
  1301   ^SDAUDIT(
  1302   "FIA",409. 97,0,0)
  1303   409.97P
  1304   "FIA",409. 97,0,1)
  1305   y^y^f^^^^n
  1306   "FIA",409. 97,0,10)
  1307  
  1308   "FIA",409. 97,0,11)
  1309  
  1310   "FIA",409. 97,0,"RLRO ")
  1311  
  1312   "FIA",409. 97,0,"VR")
  1313   5.3^SD
  1314   "FIA",409. 97,409.97)
  1315   0
  1316   "IX",409.8 5,409.85," AC",0)
  1317   409.85^AC^ Index by C REATE DATE  and ORIGI NATING USE R^R^^R^IR^ I^409.85^^ ^^^S
  1318   "IX",409.8 5,409.85," AC",.1,0)
  1319   ^^2^2^3160 607
  1320   "IX",409.8 5,409.85," AC",.1,1,0 )
  1321   This cross  reference  is used t o sort by  CREATE DAT E and
  1322   "IX",409.8 5,409.85," AC",.1,2,0 )
  1323   ORIGINATIN G USER.
  1324   "IX",409.8 5,409.85," AC",1)
  1325   S ^SDEC(40 9.85,"AC", X(1),X(2), DA)=""
  1326   "IX",409.8 5,409.85," AC",2)
  1327   K ^SDEC(40 9.85,"AC", X(1),X(2), DA)
  1328   "IX",409.8 5,409.85," AC",2.5)
  1329   K ^SDEC(40 9.85,"AC")
  1330   "IX",409.8 5,409.85," AC",11.1,0 )
  1331   ^.114IA^2^ 2
  1332   "IX",409.8 5,409.85," AC",11.1,1 ,0)
  1333   1^F^409.85 ^9.5^^1^F
  1334   "IX",409.8 5,409.85," AC",11.1,2 ,0)
  1335   2^F^409.85 ^9^^2^F
  1336   "IX",409.8 5,409.85," AD",0)
  1337   409.85^AD^ Sort by DA TE ENTERED  and ENTER ED BY USER  of PATIEN T CONTACTS ^R^^R^IR^W ^409.8544^ ^^^^S
  1338   "IX",409.8 5,409.85," AD",.1,0)
  1339   ^^3^3^3160 607
  1340   "IX",409.8 5,409.85," AD",.1,1,0 )
  1341   This cross  reference  sorts the  whole SDE C APPT REQ UEST file  by the
  1342   "IX",409.8 5,409.85," AD",.1,2,0 )
  1343   DATE ENTER ED and ENT ERED BY US ER of the  PATIENT CO NTACTS mul tiple
  1344   "IX",409.8 5,409.85," AD",.1,3,0 )
  1345   field #44.
  1346   "IX",409.8 5,409.85," AD",1)
  1347   S ^SDEC(40 9.85,"AD", X(1),X(2), DA(1),DA)= ""
  1348   "IX",409.8 5,409.85," AD",2)
  1349   K ^SDEC(40 9.85,"AD", X(1),X(2), DA(1),DA)
  1350   "IX",409.8 5,409.85," AD",2.5)
  1351   K ^SDEC(40 9.85,"AD")
  1352   "IX",409.8 5,409.85," AD",11.1,0 )
  1353   ^.114IA^2^ 2
  1354   "IX",409.8 5,409.85," AD",11.1,1 ,0)
  1355   1^F^409.85 44^.01^^1^ F
  1356   "IX",409.8 5,409.85," AD",11.1,2 ,0)
  1357   2^F^409.85 44^2^^2^F
  1358   "IX",409.8 5,409.85," E",0)
  1359   409.85^E^I ndex by CU RRENT STAT US and CRE ATE DATE.^ R^^R^IR^I^ 409.85^^^^ ^S
  1360   "IX",409.8 5,409.85," E",.1,0)
  1361   ^^1^1^3160 506
  1362   "IX",409.8 5,409.85," E",.1,1,0)
  1363   This cross  reference  is used t o sort by  CURRENT ST ATUS and C REATE DATE .
  1364   "IX",409.8 5,409.85," E",1)
  1365   S ^SDEC(40 9.85,"E",X (1),X(2),D A)=""
  1366   "IX",409.8 5,409.85," E",2)
  1367   K ^SDEC(40 9.85,"E",X (1),X(2),D A)
  1368   "IX",409.8 5,409.85," E",2.5)
  1369   K ^SDEC(40 9.85,"E")
  1370   "IX",409.8 5,409.85," E",11.1,0)
  1371   ^.114IA^2^ 2
  1372   "IX",409.8 5,409.85," E",11.1,1, 0)
  1373   1^F^409.85 ^23^^1^F
  1374   "IX",409.8 5,409.85," E",11.1,2, 0)
  1375   2^F^409.85 ^1^^2^F
  1376   "IX",409.8 5,409.85," GC",0)
  1377   409.85^GC^ SORT BY CL INIC AND O RIGINATING  DATE^R^^R ^IR^I^409. 85^^^^^LS
  1378   "IX",409.8 5,409.85," GC",.1,0)
  1379   ^^2^2^3170 510
  1380   "IX",409.8 5,409.85," GC",.1,1,0 )
  1381   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ SPECI FIC 
  1382   "IX",409.8 5,409.85," GC",.1,2,0 )
  1383   CLINIC fie ld (#8) an d the CREA TE DATE fi eld (#1).
  1384   "IX",409.8 5,409.85," GC",1)
  1385   S ^SDEC(40 9.85,"GC", X(1),X(2), DA)=""
  1386   "IX",409.8 5,409.85," GC",2)
  1387   K ^SDEC(40 9.85,"GC", X(1),X(2), DA)
  1388   "IX",409.8 5,409.85," GC",2.5)
  1389   K ^SDEC(40 9.85,"GC")
  1390   "IX",409.8 5,409.85," GC",11.1,0 )
  1391   ^.114IA^2^ 2
  1392   "IX",409.8 5,409.85," GC",11.1,1 ,0)
  1393   1^F^409.85 ^8^^1^F
  1394   "IX",409.8 5,409.85," GC",11.1,2 ,0)
  1395   2^F^409.85 ^1^^2^F
  1396   "IX",409.8 5,409.85," GCC",0)
  1397   409.85^GCC ^SORT BY C LINIC AND  CID/PREFER RED DATE^R ^^R^IR^I^4 09.85^^^^^ LS
  1398   "IX",409.8 5,409.85," GCC",.1,0)
  1399   ^^2^2^3170 510
  1400   "IX",409.8 5,409.85," GCC",.1,1, 0)
  1401   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ SPECI FIC 
  1402   "IX",409.8 5,409.85," GCC",.1,2, 0)
  1403   CLINIC fie ld (#8) an d the CID  PREFERRED  DATE OF AP PT field ( #22).
  1404   "IX",409.8 5,409.85," GCC",1)
  1405   S ^SDEC(40 9.85,"GCC" ,X(1),X(2) ,DA)=""
  1406   "IX",409.8 5,409.85," GCC",2)
  1407   K ^SDEC(40 9.85,"GCC" ,X(1),X(2) ,DA)
  1408   "IX",409.8 5,409.85," GCC",2.5)
  1409   K ^SDEC(40 9.85,"GCC" )
  1410   "IX",409.8 5,409.85," GCC",11.1, 0)
  1411   ^.114IA^2^ 2
  1412   "IX",409.8 5,409.85," GCC",11.1, 1,0)
  1413   1^F^409.85 ^8^^1^F
  1414   "IX",409.8 5,409.85," GCC",11.1, 2,0)
  1415   2^F^409.85 ^22^^2^F
  1416   "IX",409.8 5,409.85," GS",0)
  1417   409.85^GS^ SORT BY RE Q SERVICE/ SPECIALTY  ID AND ORI GINATING D ATE^R^^R^I R^I^409.85 ^^^^^LS
  1418   "IX",409.8 5,409.85," GS",.1,0)
  1419   ^^2^2^3170 510
  1420   "IX",409.8 5,409.85," GS",.1,1,0 )
  1421   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ 
  1422   "IX",409.8 5,409.85," GS",.1,2,0 )
  1423   SERVICE/SP ECIALTY fi eld (#8.5)  and the C REATE DATE  field (#1 ).
  1424   "IX",409.8 5,409.85," GS",1)
  1425   S ^SDEC(40 9.85,"GS", X(1),X(2), DA)=""
  1426   "IX",409.8 5,409.85," GS",2)
  1427   K ^SDEC(40 9.85,"GS", X(1),X(2), DA)
  1428   "IX",409.8 5,409.85," GS",2.5)
  1429   K ^SDEC(40 9.85,"GS")
  1430   "IX",409.8 5,409.85," GS",11.1,0 )
  1431   ^.114IA^2^ 2
  1432   "IX",409.8 5,409.85," GS",11.1,1 ,0)
  1433   1^F^409.85 ^8.5^^1^F
  1434   "IX",409.8 5,409.85," GS",11.1,2 ,0)
  1435   2^F^409.85 ^1^^2^F
  1436   "IX",409.8 5,409.85," GSA",0)
  1437   409.85^GSA ^SORT BY R EQ SERVICE /SPECIALTY , SVC CONN ECTED, AND  CREATE DA TE^R^^R^IR ^I^409.85^ ^^^^LS
  1438   "IX",409.8 5,409.85," GSA",.1,0)
  1439   ^^5^5^3170 510
  1440   "IX",409.8 5,409.85," GSA",.1,1, 0)
  1441   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ 
  1442   "IX",409.8 5,409.85," GSA",.1,2, 0)
  1443   SERVICE/SP ECIALTY fi eld (#8.5) , SERVICE  CONNECTED,  and the C REATE DATE  
  1444   "IX",409.8 5,409.85," GSA",.1,3, 0)
  1445   field (#1) .
  1446   "IX",409.8 5,409.85," GSA",.1,4, 0)
  1447   SERVICE CO NNECTED is  the SERVI CE CONNECT ED? field  (#.301) in  the PATIE NT 
  1448   "IX",409.8 5,409.85," GSA",.1,5, 0)
  1449   file (#2).
  1450   "IX",409.8 5,409.85," GSA",1)
  1451   S ^SDEC(40 9.85,"GSA" ,X(1),X(2) ,X(3),DA)= ""
  1452   "IX",409.8 5,409.85," GSA",2)
  1453   K ^SDEC(40 9.85,"GSA" ,X(1),X(2) ,X(3),DA)
  1454   "IX",409.8 5,409.85," GSA",2.5)
  1455   K ^SDEC(40 9.85,"GSA" )
  1456   "IX",409.8 5,409.85," GSA",11.1, 0)
  1457   ^.114IA^3^ 3
  1458   "IX",409.8 5,409.85," GSA",11.1, 1,0)
  1459   1^F^409.85 ^8.5^^1^F
  1460   "IX",409.8 5,409.85," GSA",11.1, 2,0)
  1461   2^C^^^^2^F
  1462   "IX",409.8 5,409.85," GSA",11.1, 2,1.5)
  1463   N DFN S DF N=$P($G(^S DEC(409.85 ,DA,0)),U, 1) S X=$P( $G(^DPT(+D FN,.3)),U, 1) S:X=""  X=0
  1464   "IX",409.8 5,409.85," GSA",11.1, 3,0)
  1465   3^F^409.85 ^1^^3^F
  1466   "IX",409.8 5,409.85," GSB",0)
  1467   409.85^GSB ^SORT BY R EQ SERVICE /SPECIALTY , SVC CONN ECTED PRIO RITY, AND  CREATE DAT E^R^^R^IR^ I^409.85^^ ^^^LS
  1468   "IX",409.8 5,409.85," GSB",.1,0)
  1469   ^^3^3^3170 510
  1470   "IX",409.8 5,409.85," GSB",.1,1, 0)
  1471   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ 
  1472   "IX",409.8 5,409.85," GSB",.1,2, 0)
  1473   SERVICE/SP ECIALTY fi eld (#8.5) , SERVICE  CONNECTED  PRIORITY f ield (#15)
  1474   "IX",409.8 5,409.85," GSB",.1,3, 0)
  1475   and the CR EATE DATE  field (#1) .
  1476   "IX",409.8 5,409.85," GSB",1)
  1477   S ^SDEC(40 9.85,"GSB" ,X(1),X(2) ,X(3),DA)= ""
  1478   "IX",409.8 5,409.85," GSB",2)
  1479   K ^SDEC(40 9.85,"GSB" ,X(1),X(2) ,X(3),DA)
  1480   "IX",409.8 5,409.85," GSB",2.5)
  1481   K ^SDEC(40 9.85,"GSB" )
  1482   "IX",409.8 5,409.85," GSB",11.1, 0)
  1483   ^.114IA^3^ 3
  1484   "IX",409.8 5,409.85," GSB",11.1, 1,0)
  1485   1^F^409.85 ^8.5^^1^F
  1486   "IX",409.8 5,409.85," GSB",11.1, 2,0)
  1487   2^F^409.85 ^15^^2^F
  1488   "IX",409.8 5,409.85," GSB",11.1, 3,0)
  1489   3^F^409.85 ^1^^3^F
  1490   "IX",409.8 5,409.85," GSC",0)
  1491   409.85^GSC ^SORT BY R EQ SERVICE /SPECIALTY  ID AND CI D/PREFERRE D DATE OF  APPT^R^^R^ IR^I^409.8 5^^^^^LS
  1492   "IX",409.8 5,409.85," GSC",.1,0)
  1493   ^^3^3^3170 510
  1494   "IX",409.8 5,409.85," GSC",.1,1, 0)
  1495   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ 
  1496   "IX",409.8 5,409.85," GSC",.1,2, 0)
  1497   SERVICE/SP ECIALTY fi eld (#8.5)  and the C ID/PREFERR ED DATE OF  APPT fiel
  1498   "IX",409.8 5,409.85," GSC",.1,3, 0)
  1499   (#22).
  1500   "IX",409.8 5,409.85," GSC",1)
  1501   S ^SDEC(40 9.85,"GSC" ,X(1),X(2) ,DA)=""
  1502   "IX",409.8 5,409.85," GSC",2)
  1503   K ^SDEC(40 9.85,"GSC" ,X(1),X(2) ,DA)
  1504   "IX",409.8 5,409.85," GSC",2.5)
  1505   K ^SDEC(40 9.85,"GSC" )
  1506   "IX",409.8 5,409.85," GSC",11.1, 0)
  1507   ^.114IA^2^ 2
  1508   "IX",409.8 5,409.85," GSC",11.1, 1,0)
  1509   1^F^409.85 ^8.5^^1^F
  1510   "IX",409.8 5,409.85," GSC",11.1, 2,0)
  1511   2^F^409.85 ^22^^2^F
  1512   "IX",409.8 5,409.85," GSP",0)
  1513   409.85^GSP ^SORT BY R EQ SERVICE /SPECIALTY , ENROLLME NT PRIORIT Y, AND CRE ATE DATE^R ^^R^IR^I^4 09.85^^^^^ LS
  1514   "IX",409.8 5,409.85," GSP",.1,0)
  1515   ^^7^7^3170 510
  1516   "IX",409.8 5,409.85," GSP",.1,1, 0)
  1517   This xref  is used to  sort Appo intment Re quest entr ies by the  REQ 
  1518   "IX",409.8 5,409.85," GSP",.1,2, 0)
  1519   SERVICE/SP ECIALTY fi eld (#8.5) , Patient' s ENROLLME NT PRIORIT Y, and the  
  1520   "IX",409.8 5,409.85," GSP",.1,3, 0)
  1521   CREATE DAT E field (# 1).
  1522   "IX",409.8 5,409.85," GSP",.1,4, 0)
  1523   The Patien t's ENROLL MENT PRIOR ITY comes  from the E NROLLMENT  PRIORITY 
  1524   "IX",409.8 5,409.85," GSP",.1,5, 0)
  1525   field (#.0 7) of the  PATIENT EN ROLLMENT f ile (#27.1 1).
  1526   "IX",409.8 5,409.85," GSP",.1,6, 0)
  1527   The CURREN T ENROLLME NT field ( #27.01) of  the PATIE NT file (# 2) contain
  1528   "IX",409.8 5,409.85," GSP",.1,7, 0)
  1529   the pointe r into the  PATIENT E NROLLMENT  FILE.
  1530   "IX",409.8 5,409.85," GSP",1)
  1531   S ^SDEC(40 9.85,"GSP" ,X(1),X(2) ,X(3),DA)= ""
  1532   "IX",409.8 5,409.85," GSP",2)
  1533   K ^SDEC(40 9.85,"GSP" ,X(1),X(2) ,X(3),DA)
  1534   "IX",409.8 5,409.85," GSP",2.5)
  1535   K ^SDEC(40 9.85,"GSP" )
  1536   "IX",409.8 5,409.85," GSP",11.1, 0)
  1537   ^.114IA^3^ 3
  1538   "IX",409.8 5,409.85," GSP",11.1, 1,0)
  1539   1^F^409.85 ^8.5^^1^F
  1540   "IX",409.8 5,409.85," GSP",11.1, 2,0)
  1541   2^C^^^^2^F
  1542   "IX",409.8 5,409.85," GSP",11.1, 2,1.5)
  1543   N DFN,PCE  S DFN=$P($ G(^SDEC(40 9.85,DA,0) ),U,1),PCE =$P($G(^DP T(+DFN,"EN R")),U,1), X=+$P($G(^ DGEN(27.11 ,+PCE,0)), U,7)
  1544   "IX",409.8 5,409.85," GSP",11.1, 3,0)
  1545   3^F^409.85 ^1^^3^F
  1546   "IX",409.8 5,409.85," GUID",0)
  1547   409.85^GUI D^Stores p ointer to  Oracle dat abase wher e VAOS app ointment r equests ar e stored.^ R^^F^IR^I^ 409.85^^^^ ^LS
  1548   "IX",409.8 5,409.85," GUID",.1,0 )
  1549   ^^5^5^3180 420^
  1550   "IX",409.8 5,409.85," GUID",.1,1 ,0)
  1551   The GUID i s the data base point er in the  Oracle dat abase that  stores VA OS 
  1552   "IX",409.8 5,409.85," GUID",.1,2 ,0)
  1553   requests f or appoint ments.  It  is a 32 c haracter v alue.  Thi
  1554   "IX",409.8 5,409.85," GUID",.1,3 ,0)
  1555   cross-refe rence is u sed to lin k the VAOS  request t o the Appo intment 
  1556   "IX",409.8 5,409.85," GUID",.1,4 ,0)
  1557   Request st ored in Vi stA so tha t the VAOS  database  can be upd ated with 
  1558   "IX",409.8 5,409.85," GUID",.1,5 ,0)
  1559   status cha nges when  appointmen ts are mad e or cance lled using  VS GUI.
  1560   "IX",409.8 5,409.85," GUID",1)
  1561   S ^SDEC(40 9.85,"GUID ",$E(X,1,3 2),DA)=""
  1562   "IX",409.8 5,409.85," GUID",2)
  1563   K ^SDEC(40 9.85,"GUID ",$E(X,1,3 2),DA)
  1564   "IX",409.8 5,409.85," GUID",2.5)
  1565   K ^SDEC(40 9.85,"GUID ")
  1566   "IX",409.8 5,409.85," GUID",11.1 ,0)
  1567   ^.114IA^1^ 1
  1568   "IX",409.8 5,409.85," GUID",11.1 ,1,0)
  1569   1^F^409.85 ^5^32^1^F
  1570   "IX",409.8 6,409.86," AD",0)
  1571   409.86^AD^ Date/user  entered cr oss-refere nce^R^^R^I R^W^409.86 3^^^^^S
  1572   "IX",409.8 6,409.86," AD",.1,0)
  1573   ^^2^2^3180 306^
  1574   "IX",409.8 6,409.86," AD",.1,1,0 )
  1575   Cross-refe rence by d ate/time e ntered and  user ente red.  Used  by audit 
  1576   "IX",409.8 6,409.86," AD",.1,2,0 )
  1577   statistics  compiler  (SDECAUD).
  1578   "IX",409.8 6,409.86," AD",1)
  1579   S ^SDEC(40 9.86,"AD", X(1),X(2), DA(1),DA)= ""
  1580   "IX",409.8 6,409.86," AD",2)
  1581   K ^SDEC(40 9.86,"AD", X(1),X(2), DA(1),DA)
  1582   "IX",409.8 6,409.86," AD",2.5)
  1583   K ^SDEC(40 9.86,"AD")
  1584   "IX",409.8 6,409.86," AD",11.1,0 )
  1585   ^.114IA^2^ 2
  1586   "IX",409.8 6,409.86," AD",11.1,1 ,0)
  1587   1^F^409.86 3^6^^1^F
  1588   "IX",409.8 6,409.86," AD",11.1,1 ,3)
  1589  
  1590   "IX",409.8 6,409.86," AD",11.1,2 ,0)
  1591   2^F^409.86 3^5^^2^F
  1592   "IX",409.8 6,409.86," AD",11.1,2 ,3)
  1593  
  1594   "IX",409.9 7,409.97," D",0)
  1595   409.97^D^D ATE AND SC HEDULER^R^ ^R^IR^I^40 9.97^^^^^L S
  1596   "IX",409.9 7,409.97," D",.1,0)
  1597   ^^1^1^3180 222^
  1598   "IX",409.9 7,409.97," D",.1,1,0)
  1599   Used to se lect recor ds for pri nting on r eport by d ate.
  1600   "IX",409.9 7,409.97," D",1)
  1601   S ^SDAUDIT ("D",$E(X( 1),1,7),$E (X(2),1,20 ),DA)=""
  1602   "IX",409.9 7,409.97," D",2)
  1603   K ^SDAUDIT ("D",$E(X( 1),1,7),$E (X(2),1,20 ),DA)
  1604   "IX",409.9 7,409.97," D",2.5)
  1605   K ^SDAUDIT ("D")
  1606   "IX",409.9 7,409.97," D",11.1,0)
  1607   ^.114IA^2^ 2
  1608   "IX",409.9 7,409.97," D",11.1,1, 0)
  1609   1^F^409.97 ^1^7^1^F^D ATE AND SC HEDULER
  1610   "IX",409.9 7,409.97," D",11.1,2, 0)
  1611   2^F^409.97 ^.01^20^2^ F^SCHEDULE R
  1612   "IX",409.9 7,409.97," E",0)
  1613   409.97^E^S CHEDULER A ND DATE^R^ ^R^IR^I^40 9.97^^^^^L S
  1614   "IX",409.9 7,409.97," E",.1,0)
  1615   ^^2^2^3180 222^
  1616   "IX",409.9 7,409.97," E",.1,1,0)
  1617   Used to se lect recor ds for pri nting on r eport by s cheduler f or a date 
  1618   "IX",409.9 7,409.97," E",.1,2,0)
  1619   range.
  1620   "IX",409.9 7,409.97," E",1)
  1621   S ^SDAUDIT ("E",$E(X( 1),1,20),$ E(X(2),1,7 ),DA)=""
  1622   "IX",409.9 7,409.97," E",2)
  1623   K ^SDAUDIT ("E",$E(X( 1),1,20),$ E(X(2),1,7 ),DA)
  1624   "IX",409.9 7,409.97," E",2.5)
  1625   K ^SDAUDIT ("E")
  1626   "IX",409.9 7,409.97," E",11.1,0)
  1627   ^.114IA^2^ 2
  1628   "IX",409.9 7,409.97," E",11.1,1, 0)
  1629   1^F^409.97 ^.01^20^1^ F
  1630   "IX",409.9 7,409.97," E",11.1,2, 0)
  1631   2^F^409.97 ^1^7^2^F^D ATE
  1632   "KRN",.4,1 554,-1)
  1633   0^1
  1634   "KRN",.4,1 554,0)
  1635   SDEC AUDIT  DATE PRIN T^3180312. 0648^@^409 .97^^@^318 0412
  1636   "KRN",.4,1 554,"DCL", "409.97^10 ")
  1637   &
  1638   "KRN",.4,1 554,"DCL", "409.97^11 ")
  1639   &
  1640   "KRN",.4,1 554,"DCL", "409.97^12 ")
  1641   &
  1642   "KRN",.4,1 554,"DCL", "409.97^13 ")
  1643   &
  1644   "KRN",.4,1 554,"DCL", "409.97^14 ")
  1645   &
  1646   "KRN",.4,1 554,"DCL", "409.97^15 ")
  1647   &
  1648   "KRN",.4,1 554,"DCL", "409.97^2" )
  1649   &
  1650   "KRN",.4,1 554,"DCL", "409.97^3" )
  1651   &
  1652   "KRN",.4,1 554,"DCL", "409.97^4" )
  1653   &
  1654   "KRN",.4,1 554,"DCL", "409.97^5" )
  1655   &
  1656   "KRN",.4,1 554,"DCL", "409.97^6" )
  1657   &
  1658   "KRN",.4,1 554,"DCL", "409.97^7" )
  1659   &
  1660   "KRN",.4,1 554,"DCL", "409.97^8" )
  1661   &
  1662   "KRN",.4,1 554,"DCL", "409.97^9" )
  1663   &
  1664   "KRN",.4,1 554,"F",1)
  1665   1~.01~S DI P(1)=$S($D (^SDAUDIT( D0,0)):^(0 ),1:"") S  X=$P(DIP(1 ),U,1),X=X  W X K DIP ;"Schedule rIEN";Z;"I NTERNAL(SC HEDULER)"~ 2~3~4~5~6~ 7~8~9~10~1 1~12~13~14 ~
  1666   "KRN",.4,1 554,"F",2)
  1667   15~
  1668   "KRN",.4,1 554,"H")
  1669   SD Audit S tatistics  STATISTICS
  1670   "KRN",.401 ,936,-1)
  1671   0^1
  1672   "KRN",.401 ,936,0)
  1673   SDEC AUDIT  REPORT BY  DATE^3180 307.1024^@ ^409.97^^@ ^3180412
  1674   "KRN",.401 ,936,2,0)
  1675   ^.4014^2^2
  1676   "KRN",.401 ,936,2,1,0 )
  1677   409.97^1^D ATE^^^^^^^ 1
  1678   "KRN",.401 ,936,2,1," ASK")
  1679   1
  1680   "KRN",.401 ,936,2,1," F")
  1681   3150100.99 9999^JAN 1 ,2015^JAN  1,2015
  1682   "KRN",.401 ,936,2,1," GET")
  1683   S DISX(1)= $P($G(^SDA UDIT(D0,0) ),U,2)
  1684   "KRN",.401 ,936,2,1," IX")
  1685   ^SDAUDIT(" C",^SDAUDI T(^2
  1686   "KRN",.401 ,936,2,1," QCON")
  1687   I (DISX(1) ]]3150100. 999999)&(D ISX(1)']]3 180411.24)
  1688   "KRN",.401 ,936,2,1," SER")
  1689   0.0000^0.0 000
  1690   "KRN",.401 ,936,2,1," T")
  1691   3180411.24 ^T-1@2400^ APR 11,201 8@24:00
  1692   "KRN",.401 ,936,2,1," TXT")
  1693   DATE from  JAN 1,2015  to APR 11 ,2018@24:0 0
  1694   "KRN",.401 ,936,2,2,0 )
  1695   409.97^^SC HEDULER^". 01^^^^^^4
  1696   "KRN",.401 ,936,2,2," CM")
  1697   S Y(1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"")  S X=$P($G( ^VA(200,+$ P(Y(1),U,1 ),0)),U) I  D0>0 S DI SX(2)=X
  1698   "KRN",.401 ,936,2,2," GET")
  1699   S Y(1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"")  S X=$P($G( ^VA(200,+$ P(Y(1),U,1 ),0)),U) I  D0>0 S DI SX(2)=X
  1700   "KRN",.401 ,936,2,2," IX")
  1701   ^SDAUDIT(" B",^SDAUDI T(^2
  1702   "KRN",.401 ,936,2,2," PTRIX")
  1703   ^VA(200,"B ",
  1704   "KRN",.401 ,936,2,2," QCON")
  1705   I DISX(2)' =""
  1706   "KRN",.401 ,936,2,2," SER")
  1707   0.0000^0.0 000
  1708   "KRN",.401 ,936,2,2," TXT")
  1709    SCHEDULER  not null
  1710   "KRN",.401 ,936,2,"B" ,409.97,1)
  1711  
  1712   "KRN",.401 ,936,2,"B" ,409.97,2)
  1713  
  1714   "KRN",19,2 202,-1)
  1715   2^5
  1716   "KRN",19,2 202,0)
  1717   SDSUP^Supe rvisor Men u^^M^114^^ ^^^^^48
  1718   "KRN",19,2 202,10,0)
  1719   ^19.01IP^2 2^22
  1720   "KRN",19,2 202,10,11, 0)
  1721   11715
  1722   "KRN",19,2 202,10,11, "^")
  1723   SDEC RELEA SE LOCKS
  1724   "KRN",19,2 202,"U")
  1725   SUPERVISOR  MENU
  1726   "KRN",19,1 1630,-1)
  1727   0^1
  1728   "KRN",19,1 1630,0)
  1729   SDECRPC^CL INICAL SCH EDULING PR OCEDURE CA LLS^^B^^^^ ^^^^SCHEDU LING
  1730   "KRN",19,1 1630,1,0)
  1731   ^19.06^2^2 ^3180807^^ ^^
  1732   "KRN",19,1 1630,1,1,0 )
  1733   This optio n hosts RP Cs in the  SDEC names pace.  CLI NICAL SCHE DULING use rs 
  1734   "KRN",19,1 1630,1,2,0 )
  1735   must have  access to  this optio n in order  to use CL INICAL SCH EDULING.
  1736   "KRN",19,1 1630,99.1)
  1737   64281,4317 6
  1738   "KRN",19,1 1630,"RPC" ,0)
  1739   ^19.05P^21 0^210
  1740   "KRN",19,1 1630,"RPC" ,1,0)
  1741   SDEC ACCGP TYG
  1742   "KRN",19,1 1630,"RPC" ,2,0)
  1743   SDEC ACCGR OUP
  1744   "KRN",19,1 1630,"RPC" ,3,0)
  1745   SDEC ACCTY PE
  1746   "KRN",19,1 1630,"RPC" ,4,0)
  1747   SDEC ADDAC CG
  1748   "KRN",19,1 1630,"RPC" ,5,0)
  1749   SDEC ADDAC CTY
  1750   "KRN",19,1 1630,"RPC" ,6,0)
  1751   SDEC ADDAG I
  1752   "KRN",19,1 1630,"RPC" ,7,0)
  1753   SDEC ADDRE S
  1754   "KRN",19,1 1630,"RPC" ,8,0)
  1755   SDEC ADDRE SU
  1756   "KRN",19,1 1630,"RPC" ,9,0)
  1757   SDEC ADDRG
  1758   "KRN",19,1 1630,"RPC" ,10,0)
  1759   SDEC ADDRG I
  1760   "KRN",19,1 1630,"RPC" ,11,0)
  1761   SDEC APBLK ALL
  1762   "KRN",19,1 1630,"RPC" ,12,0)
  1763   SDEC APBLK OV
  1764   "KRN",19,1 1630,"RPC" ,13,0)
  1765   SDEC APPAD D
  1766   "KRN",19,1 1630,"RPC" ,14,0)
  1767   SDEC APPDE L
  1768   "KRN",19,1 1630,"RPC" ,15,0)
  1769   SDEC APPTE VLG
  1770   "KRN",19,1 1630,"RPC" ,16,0)
  1771   SDEC APPTL ETR
  1772   "KRN",19,1 1630,"RPC" ,17,0)
  1773   SDEC APPTY PES
  1774   "KRN",19,1 1630,"RPC" ,18,0)
  1775   SDEC AVADD
  1776   "KRN",19,1 1630,"RPC" ,19,0)
  1777   SDEC AVDEL
  1778   "KRN",19,1 1630,"RPC" ,20,0)
  1779   SDEC AVDEL DT
  1780   "KRN",19,1 1630,"RPC" ,21,0)
  1781   SDEC CANCK OUT
  1782   "KRN",19,1 1630,"RPC" ,22,0)
  1783   SDEC CANRE AS
  1784   "KRN",19,1 1630,"RPC" ,23,0)
  1785   SDEC CHECK IN
  1786   "KRN",19,1 1630,"RPC" ,24,0)
  1787   SDEC CHECK OUT
  1788   "KRN",19,1 1630,"RPC" ,25,0)
  1789   SDEC CLINA LL
  1790   "KRN",19,1 1630,"RPC" ,26,0)
  1791   SDEC CLINC AN
  1792   "KRN",19,1 1630,"RPC" ,27,0)
  1793   SDEC CLIND IS
  1794   "KRN",19,1 1630,"RPC" ,28,0)
  1795   SDEC CLIND ISW
  1796   "KRN",19,1 1630,"RPC" ,29,0)
  1797   SDEC CLINL ET
  1798   "KRN",19,1 1630,"RPC" ,30,0)
  1799   SDEC CLINL ETW
  1800   "KRN",19,1 1630,"RPC" ,31,0)
  1801   SDEC CLINP ROV
  1802   "KRN",19,1 1630,"RPC" ,32,0)
  1803   SDEC CLINS ET
  1804   "KRN",19,1 1630,"RPC" ,33,0)
  1805   SDEC CLINS TOP
  1806   "KRN",19,1 1630,"RPC" ,34,0)
  1807   SDEC COPYA PPT
  1808   "KRN",19,1 1630,"RPC" ,35,0)
  1809   SDEC CPCAN C
  1810   "KRN",19,1 1630,"RPC" ,36,0)
  1811   SDEC CPSTA T
  1812   "KRN",19,1 1630,"RPC" ,37,0)
  1813   SDEC CRSCH ED
  1814   "KRN",19,1 1630,"RPC" ,38,0)
  1815   SDEC CSLOT SCH
  1816   "KRN",19,1 1630,"RPC" ,39,0)
  1817   SDEC CURFA CG
  1818   "KRN",19,1 1630,"RPC" ,40,0)
  1819   SDEC CVARA PPT
  1820   "KRN",19,1 1630,"RPC" ,41,0)
  1821   SDEC DELAG
  1822   "KRN",19,1 1630,"RPC" ,42,0)
  1823   SDEC DELAG I
  1824   "KRN",19,1 1630,"RPC" ,43,0)
  1825   SDEC DELRE SGP
  1826   "KRN",19,1 1630,"RPC" ,44,0)
  1827   SDEC DELRG I
  1828   "KRN",19,1 1630,"RPC" ,45,0)
  1829   SDEC DELRU
  1830   "KRN",19,1 1630,"RPC" ,46,0)
  1831   SDEC EDITA PPT
  1832   "KRN",19,1 1630,"RPC" ,47,0)
  1833   SDEC EHRPT
  1834   "KRN",19,1 1630,"RPC" ,48,0)
  1835   SDEC GETFA C
  1836   "KRN",19,1 1630,"RPC" ,49,0)
  1837   SDEC GETRE GA
  1838   "KRN",19,1 1630,"RPC" ,50,0)
  1839   SDEC HLTHS UMM
  1840   "KRN",19,1 1630,"RPC" ,51,0)
  1841   SDEC HOLID AY
  1842   "KRN",19,1 1630,"RPC" ,52,0)
  1843   SDEC HOSPL OC
  1844   "KRN",19,1 1630,"RPC" ,53,0)
  1845   SDEC IMHER E
  1846   "KRN",19,1 1630,"RPC" ,54,0)
  1847   SDEC NEWPE RS
  1848   "KRN",19,1 1630,"RPC" ,55,0)
  1849   SDEC NOSHO PAT
  1850   "KRN",19,1 1630,"RPC" ,56,0)
  1851   SDEC NOSHO W
  1852   "KRN",19,1 1630,"RPC" ,57,0)
  1853   SDEC OVBOO K
  1854   "KRN",19,1 1630,"RPC" ,58,0)
  1855   SDEC PATAP PTD
  1856   "KRN",19,1 1630,"RPC" ,59,0)
  1857   SDEC PATAP PTH
  1858   "KRN",19,1 1630,"RPC" ,60,0)
  1859   SDEC PROVA LL
  1860   "KRN",19,1 1630,"RPC" ,61,0)
  1861   SDEC PROVC LIN
  1862   "KRN",19,1 1630,"RPC" ,62,0)
  1863   SDEC PTLOO KRS
  1864   "KRN",19,1 1630,"RPC" ,63,0)
  1865   SDEC PWH
  1866   "KRN",19,1 1630,"RPC" ,64,0)
  1867   SDEC RAISE VNT
  1868   "KRN",19,1 1630,"RPC" ,65,0)
  1869   SDEC REBKC LIN
  1870   "KRN",19,1 1630,"RPC" ,66,0)
  1871   SDEC REBKL IST
  1872   "KRN",19,1 1630,"RPC" ,67,0)
  1873   SDEC REBKN EXT
  1874   "KRN",19,1 1630,"RPC" ,68,0)
  1875   SDEC REGEV ENT
  1876   "KRN",19,1 1630,"RPC" ,69,0)
  1877   SDEC RESGP USR
  1878   "KRN",19,1 1630,"RPC" ,70,0)
  1879   SDEC RESGR PUS
  1880   "KRN",19,1 1630,"RPC" ,71,0)
  1881   SDEC RESLE TRF
  1882   "KRN",19,1 1630,"RPC" ,72,0)
  1883   SDEC RESLE TRS
  1884   "KRN",19,1 1630,"RPC" ,73,0)
  1885   SDEC RESOU RCE
  1886   "KRN",19,1 1630,"RPC" ,74,0)
  1887   SDEC RESUS ER
  1888   "KRN",19,1 1630,"RPC" ,75,0)
  1889   SDEC SCHUS R
  1890   "KRN",19,1 1630,"RPC" ,76,0)
  1891   SDEC SEARC HAV
  1892   "KRN",19,1 1630,"RPC" ,77,0)
  1893   SDEC SETFA C
  1894   "KRN",19,1 1630,"RPC" ,78,0)
  1895   SDEC SETRB OOK
  1896   "KRN",19,1 1630,"RPC" ,79,0)
  1897   SDEC SPACE BAR
  1898   "KRN",19,1 1630,"RPC" ,80,0)
  1899   SDEC SUSRI NFO
  1900   "KRN",19,1 1630,"RPC" ,81,0)
  1901   SDEC SVSPA LL
  1902   "KRN",19,1 1630,"RPC" ,82,0)
  1903   SDEC SYSST AT
  1904   "KRN",19,1 1630,"RPC" ,83,0)
  1905   SDEC TPBLK OV
  1906   "KRN",19,1 1630,"RPC" ,84,0)
  1907   SDEC UNDOC ANA
  1908   "KRN",19,1 1630,"RPC" ,85,0)
  1909   SDEC UNREG EV
  1910   "KRN",19,1 1630,"RPC" ,86,0)
  1911   SDEC WAITL IST
  1912   "KRN",19,1 1630,"RPC" ,87,0)
  1913   SDEC WLCLO SE
  1914   "KRN",19,1 1630,"RPC" ,88,0)
  1915   SDEC WLGET
  1916   "KRN",19,1 1630,"RPC" ,89,0)
  1917   SDEC WLSET
  1918   "KRN",19,1 1630,"RPC" ,90,0)
  1919   SDEC PREFG ET
  1920   "KRN",19,1 1630,"RPC" ,91,0)
  1921   SDEC PREFG ETV
  1922   "KRN",19,1 1630,"RPC" ,92,0)
  1923   SDEC PREFS ET
  1924   "KRN",19,1 1630,"RPC" ,93,0)
  1925   SDEC FAPPT GET
  1926   "KRN",19,1 1630,"RPC" ,94,0)
  1927   SDEC RECAP GET
  1928   "KRN",19,1 1630,"RPC" ,95,0)
  1929   SDEC RECDS ET
  1930   "KRN",19,1 1630,"RPC" ,96,0)
  1931   SDEC RECGE T
  1932   "KRN",19,1 1630,"RPC" ,97,0)
  1933   SDEC RECPR GET
  1934   "KRN",19,1 1630,"RPC" ,98,0)
  1935   SDEC RECSE T
  1936   "KRN",19,1 1630,"RPC" ,99,0)
  1937   SDEC REQGE T
  1938   "KRN",19,1 1630,"RPC" ,100,0)
  1939   SDEC PCSTG ET
  1940   "KRN",19,1 1630,"RPC" ,101,0)
  1941   SDEC PCST2 GET
  1942   "KRN",19,1 1630,"RPC" ,102,0)
  1943   SDEC PCSGE T
  1944   "KRN",19,1 1630,"RPC" ,103,0)
  1945   SDEC PTSET
  1946   "KRN",19,1 1630,"RPC" ,104,0)
  1947   SDEC PTINQ
  1948   "KRN",19,1 1630,"RPC" ,105,0)
  1949   SDEC SUMMG ET
  1950   "KRN",19,1 1630,"RPC" ,106,0)
  1951   SDEC SUMMA GET
  1952   "KRN",19,1 1630,"RPC" ,107,0)
  1953   SDEC APPID GET
  1954   "KRN",19,1 1630,"RPC" ,108,0)
  1955   SDEC FACLI ST
  1956   "KRN",19,1 1630,"RPC" ,109,0)
  1957   SDEC CGET
  1958   "KRN",19,1 1630,"RPC" ,110,0)
  1959   SDEC ETHGE T
  1960   "KRN",19,1 1630,"RPC" ,111,0)
  1961   SDEC ETHCM GET
  1962   "KRN",19,1 1630,"RPC" ,112,0)
  1963   SDEC RACEG ET
  1964   "KRN",19,1 1630,"RPC" ,113,0)
  1965   SDEC REP1G ET
  1966   "KRN",19,1 1630,"RPC" ,114,0)
  1967   SDEC WLPCS ET
  1968   "KRN",19,1 1630,"RPC" ,115,0)
  1969   SDEC APPSD GET
  1970   "KRN",19,1 1630,"RPC" ,116,0)
  1971   SDEC WLOPE N
  1972   "KRN",19,1 1630,"RPC" ,117,0)
  1973   SDEC ARCLO SE
  1974   "KRN",19,1 1630,"RPC" ,118,0)
  1975   SDEC ARDGE T
  1976   "KRN",19,1 1630,"RPC" ,119,0)
  1977   SDEC ARGET
  1978   "KRN",19,1 1630,"RPC" ,120,0)
  1979   SDEC ARMRT GET
  1980   "KRN",19,1 1630,"RPC" ,121,0)
  1981   SDEC ARMRT SET
  1982   "KRN",19,1 1630,"RPC" ,122,0)
  1983   SDEC AROPE N
  1984   "KRN",19,1 1630,"RPC" ,123,0)
  1985   SDEC ARPCS ET
  1986   "KRN",19,1 1630,"RPC" ,124,0)
  1987   SDEC ARSET
  1988   "KRN",19,1 1630,"RPC" ,125,0)
  1989   SDEC HIDE
  1990   "KRN",19,1 1630,"RPC" ,126,0)
  1991   SDEC PRIV
  1992   "KRN",19,1 1630,"RPC" ,127,0)
  1993   SDEC WLHID E
  1994   "KRN",19,1 1630,"RPC" ,128,0)
  1995   SDECAR ARA PPT
  1996   "KRN",19,1 1630,"RPC" ,129,0)
  1997   SDECAR ARM RTC
  1998   "KRN",19,1 1630,"RPC" ,130,0)
  1999   SDECDEV DE VICE
  2000   "KRN",19,1 1630,"RPC" ,131,0)
  2001   SDECDIS DI SABIL
  2002   "KRN",19,1 1630,"RPC" ,132,0)
  2003   SDECIDX GE TREC
  2004   "KRN",19,1 1630,"RPC" ,133,0)
  2005   SDECIDX RE CCNT
  2006   "KRN",19,1 1630,"RPC" ,134,0)
  2007   SDECLK LOC K
  2008   "KRN",19,1 1630,"RPC" ,135,0)
  2009   SDECLK UNL OCK
  2010   "KRN",19,1 1630,"RPC" ,136,0)
  2011   SDECLOC PR IVLOC
  2012   "KRN",19,1 1630,"RPC" ,137,0)
  2013   SDECLOC UP DPRIV
  2014   "KRN",19,1 1630,"RPC" ,138,0)
  2015   SDECRMG RE CCNT
  2016   "KRN",19,1 1630,"RPC" ,139,0)
  2017   SDECRMG RM G
  2018   "KRN",19,1 1630,"RPC" ,140,0)
  2019   SDECRMG2 U RGENCY
  2020   "KRN",19,1 1630,"RPC" ,141,0)
  2021   DG SENSITI VE RECORD  ACCESS
  2022   "KRN",19,1 1630,"RPC" ,142,0)
  2023   DG CHK BS5  XREF ARRA Y
  2024   "KRN",19,1 1630,"RPC" ,143,0)
  2025   ORPRF HASF LG
  2026   "KRN",19,1 1630,"RPC" ,144,0)
  2027   ORPRF GETF LG
  2028   "KRN",19,1 1630,"RPC" ,145,0)
  2029   ORWPT DIED ON
  2030   "KRN",19,1 1630,"RPC" ,146,0)
  2031   ORWPT ID I NFO
  2032   "KRN",19,1 1630,"RPC" ,147,0)
  2033   ORWPT LAST 5
  2034   "KRN",19,1 1630,"RPC" ,148,0)
  2035   ORWPT LAST 5 RPL
  2036   "KRN",19,1 1630,"RPC" ,149,0)
  2037   ORWU USERI NFO
  2038   "KRN",19,1 1630,"RPC" ,150,0)
  2039   SD VSE FIL TER RPC
  2040   "KRN",19,1 1630,"RPC" ,151,0)
  2041   SD VSE REP ORT RPC
  2042   "KRN",19,1 1630,"RPC" ,152,0)
  2043   SDEC APPSL OTS
  2044   "KRN",19,1 1630,"RPC" ,154,0)
  2045   SDEC NETLO C
  2046   "KRN",19,1 1630,"RPC" ,155,0)
  2047   SDEC NOAVA IL
  2048   "KRN",19,1 1630,"RPC" ,156,0)
  2049   SDECAPP GE TYPE
  2050   "KRN",19,1 1630,"RPC" ,157,0)
  2051   SDECAR ARM ULT
  2052   "KRN",19,1 1630,"RPC" ,158,0)
  2053   SDECAR AUD ITGET
  2054   "KRN",19,1 1630,"RPC" ,159,0)
  2055   SDECCAP CA N
  2056   "KRN",19,1 1630,"RPC" ,160,0)
  2057   SDECCAP GE T
  2058   "KRN",19,1 1630,"RPC" ,161,0)
  2059   SDECCAP SE T
  2060   "KRN",19,1 1630,"RPC" ,162,0)
  2061   SDECWL AUD ITGET
  2062   "KRN",19,1 1630,"RPC" ,163,0)
  2063   ROR LIST S TATES
  2064   "KRN",19,1 1630,"RPC" ,164,0)
  2065   XUS SIGNON  SETUP
  2066   "KRN",19,1 1630,"RPC" ,165,0)
  2067   XUS GET VI SITOR
  2068   "KRN",19,1 1630,"RPC" ,166,0)
  2069   XUS SET VI SITOR
  2070   "KRN",19,1 1630,"RPC" ,167,0)
  2071   XUS AV COD E
  2072   "KRN",19,1 1630,"RPC" ,168,0)
  2073   SDEC01 CLI NICS
  2074   "KRN",19,1 1630,"RPC" ,169,0)
  2075   SDEC57 OBM
  2076   "KRN",19,1 1630,"RPC" ,170,0)
  2077   SDECAR3 AR EDIT
  2078   "KRN",19,1 1630,"RPC" ,171,0)
  2079   SDECDEM MA RITAL
  2080   "KRN",19,1 1630,"RPC" ,172,0)
  2081   SDECDEM RE LIGION
  2082   "KRN",19,1 1630,"RPC" ,173,0)
  2083   SDECDEM ZI PLINK
  2084   "KRN",19,1 1630,"RPC" ,174,0)
  2085   SDECDEV DE V
  2086   "KRN",19,1 1630,"RPC" ,175,0)
  2087   SDECDEV PR INT
  2088   "KRN",19,1 1630,"RPC" ,176,0)
  2089   SDECRMGP G ETRMGUP
  2090   "KRN",19,1 1630,"RPC" ,177,0)
  2091   SDECRMGP P UTRMGUP
  2092   "KRN",19,1 1630,"RPC" ,178,0)
  2093   SDECU4 GET FONT
  2094   "KRN",19,1 1630,"RPC" ,179,0)
  2095   SDECU4 PUT FONT
  2096   "KRN",19,1 1630,"RPC" ,180,0)
  2097   ORWU CLINL OC
  2098   "KRN",19,1 1630,"RPC" ,181,0)
  2099   XUS GET US ER INFO
  2100   "KRN",19,1 1630,"RPC" ,182,0)
  2101   XUS GET CC OW TOKEN
  2102   "KRN",19,1 1630,"RPC" ,183,0)
  2103   ORWPT SHAR E
  2104   "KRN",19,1 1630,"RPC" ,184,0)
  2105   ORWPT TOP
  2106   "KRN",19,1 1630,"RPC" ,185,0)
  2107   DG SENSITI VE RECORD  BULLETIN
  2108   "KRN",19,1 1630,"RPC" ,186,0)
  2109   SDEC EP CL ASSIFICATI ON
  2110   "KRN",19,1 1630,"RPC" ,187,0)
  2111   SDEC EP CP T
  2112   "KRN",19,1 1630,"RPC" ,188,0)
  2113   SDEC EP DE MOGRAPHICS
  2114   "KRN",19,1 1630,"RPC" ,189,0)
  2115   SDEC EP DI AGNOSIS
  2116   "KRN",19,1 1630,"RPC" ,190,0)
  2117   SDEC EP EV ENT LOG
  2118   "KRN",19,1 1630,"RPC" ,191,0)
  2119   SDEC EP PR OVIDER
  2120   "KRN",19,1 1630,"RPC" ,192,0)
  2121   SDEC EP PT  INFO
  2122   "KRN",19,1 1630,"RPC" ,193,0)
  2123   SDEC EP ST OP CODE
  2124   "KRN",19,1 1630,"RPC" ,194,0)
  2125   SDEC EP WA IT TIME
  2126   "KRN",19,1 1630,"RPC" ,195,0)
  2127   SDEC APPT  STATUS
  2128   "KRN",19,1 1630,"RPC" ,196,0)
  2129   SDEC ELIGI BILITY
  2130   "KRN",19,1 1630,"RPC" ,197,0)
  2131   SDEC CONTA CT DISPLAY
  2132   "KRN",19,1 1630,"RPC" ,198,0)
  2133   SDEC CONTA CT MULTI-D ISPLAY
  2134   "KRN",19,1 1630,"RPC" ,199,0)
  2135   SDEC CONTA CT NEW
  2136   "KRN",19,1 1630,"RPC" ,200,0)
  2137   SDEC CONTA CT SEQUENC E
  2138   "KRN",19,1 1630,"RPC" ,201,0)
  2139   SDEC CONTA CT STOP CO DE
  2140   "KRN",19,1 1630,"RPC" ,202,0)
  2141   SDEC CONTA CT UPDATE
  2142   "KRN",19,1 1630,"RPC" ,203,0)
  2143   SDEC GETPR ER
  2144   "KRN",19,1 1630,"RPC" ,204,0)
  2145   SDEC ELIG  RETURN
  2146   "KRN",19,1 1630,"RPC" ,205,0)
  2147   SDEC BOOKH LDY
  2148   "KRN",19,1 1630,"RPC" ,206,0)
  2149   SDECAR1 AR GUID
  2150   "KRN",19,1 1630,"RPC" ,207,0)
  2151   SDECSTNG H ELPLINK
  2152   "KRN",19,1 1630,"RPC" ,208,0)
  2153   XWB GET VA RIABLE VAL UE
  2154   "KRN",19,1 1630,"RPC" ,209,0)
  2155   SDEC RESCE
  2156   "KRN",19,1 1630,"RPC" ,210,0)
  2157   SDECRMPA G ETREC
  2158   "KRN",19,1 1630,"U")
  2159   CLINICAL S CHEDULING  PROCEDURE 
  2160   "KRN",19,1 1713,-1)
  2161   0^2
  2162   "KRN",19,1 1713,0)
  2163   SDEC AUDIT  REPORT JO B^Compile  yesterday' s audit re port^^R^^^ ^^^^n^SCHE DULING
  2164   "KRN",19,1 1713,2)
  2165   y
  2166   "KRN",19,1 1713,25)
  2167   BKGND^SDEC AUD
  2168   "KRN",19,1 1713,200.9 )
  2169   y
  2170   "KRN",19,1 1713,"U")
  2171   COMPILE YE STERDAY'S  AUDIT REPO
  2172   "KRN",19,1 1714,-1)
  2173   0^3
  2174   "KRN",19,1 1714,0)
  2175   SDEC COMPI LE AUDIT R EPORT^Comp ile audit  report for  a selecte d date^^R^ ^SDECZMGR^ ^^^^^SCHED ULING
  2176   "KRN",19,1 1714,25)
  2177   SELECT^SDE CAUD
  2178   "KRN",19,1 1714,99.1)
  2179   64714,4255 5
  2180   "KRN",19,1 1714,200.9 )
  2181   n
  2182   "KRN",19,1 1714,"U")
  2183   COMPILE AU DIT REPORT  FOR A SEL
  2184   "KRN",19,1 1715,-1)
  2185   0^4
  2186   "KRN",19,1 1715,0)
  2187   SDEC RELEA SE LOCKS^R elease App ointment R equest Loc ks^^R^^^^^ ^^^SCHEDUL ING^^
  2188   "KRN",19,1 1715,1,0)
  2189   ^^2^2^3180 321^
  2190   "KRN",19,1 1715,1,1,0 )
  2191   This optio n allows t he user to  release a ll appoint ment reque st locks h eld 
  2192   "KRN",19,1 1715,1,2,0 )
  2193   by a selec ted user.
  2194   "KRN",19,1 1715,20)
  2195  
  2196   "KRN",19,1 1715,25)
  2197   UNLKALL^SD ECLK
  2198   "KRN",19,1 1715,"U")
  2199   RELEASE AP POINTMENT  REQUEST LO
  2200   "KRN",19,1 1723,-1)
  2201   0^6
  2202   "KRN",19,1 1723,0)
  2203   SDEC PRINT  AUDIT REP ORT^Print  VistA Sche duling Aud it Report^ ^P^^^^^^^y ^SCHEDULIN G
  2204   "KRN",19,1 1723,1,0)
  2205   ^^1^1^3180 412^
  2206   "KRN",19,1 1723,1,1,0 )
  2207   Prints com piled audi t report f or VistA S cheduling.
  2208   "KRN",19,1 1723,60)
  2209   SDAUDIT(
  2210   "KRN",19,1 1723,62)
  2211   0
  2212   "KRN",19,1 1723,63)
  2213   [SDEC AUDI T DATE PRI NT]
  2214   "KRN",19,1 1723,64)
  2215   [SDEC AUDI T REPORT B Y DATE]
  2216   "KRN",19,1 1723,65)
  2217  
  2218   "KRN",19,1 1723,66)
  2219  
  2220   "KRN",19,1 1723,"U")
  2221   PRINT VIST A SCHEDULI NG AUDIT R
  2222   "KRN",8994 ,3559,-1)
  2223   0^3
  2224   "KRN",8994 ,3559,0)
  2225   SDEC ARSET ^ARSET^SDE C^1^R^0^^0
  2226   "KRN",8994 ,3559,1,0)
  2227   ^8994.01^1 ^1^3181019 ^^^
  2228   "KRN",8994 ,3559,1,1, 0)
  2229   Appointmen t Request  Set
  2230   "KRN",8994 ,3559,2,0)
  2231   ^8994.02A^ 1^1
  2232   "KRN",8994 ,3559,2,1, 0)
  2233   INP^2^^1^1
  2234   "KRN",8994 ,3559,2,1, 1,0)
  2235   ^^68^68^31 81019^
  2236   "KRN",8994 ,3559,2,1, 1,1,0)
  2237     ;  INP(1 )  = (inte ger)  Wait  List IEN  point to
  2238   "KRN",8994 ,3559,2,1, 1,2,0)
  2239     ;                         SDEC  APPT REQU EST file 4 09.85.
  2240   "KRN",8994 ,3559,2,1, 1,3,0)
  2241     ;                         If n ull, a new  entry wil l be added
  2242   "KRN",8994 ,3559,2,1, 1,4,0)
  2243     ;  INP(2 )  = (text )     DFN  Pointer to  the PATIE NT file 2
  2244   "KRN",8994 ,3559,2,1, 1,5,0)
  2245     ;  INP(3 )  = (date )     Orig inating Da te/time in  external  date form
  2246   "KRN",8994 ,3559,2,1, 1,6,0)
  2247     ;  INP(4 )  = (text )     Inst itution na me NAME fi eld from t he 
  2248   "KRN",8994 ,3559,2,1, 1,7,0)
  2249   INSTITUTIO N file
  2250   "KRN",8994 ,3559,2,1, 1,8,0)
  2251     ;  INP(5 )  = (text )     Requ est Type
  2252   "KRN",8994 ,3559,2,1, 1,9,0)
  2253     ;  INP(6 )  = (text )     REQ  Specific C linic name  - NAME fi eld in fil e 44
  2254   "KRN",8994 ,3559,2,1, 1,10,0)
  2255     ;  INP(7 )  = (text )     Orig inating Us er name  -  NAME fiel d in NEW 
  2256   "KRN",8994 ,3559,2,1, 1,11,0)
  2257   PERSON fil e 200
  2258   "KRN",8994 ,3559,2,1, 1,12,0)
  2259     ;  INP(8 )  = (text )     Prio rity - 'AS AP' or 'FU TURE'
  2260   "KRN",8994 ,3559,2,1, 1,13,0)
  2261     ;  INP(9 )  = (text )     Requ est By - ' PROVIDER'  or 'PATIEN T'
  2262   "KRN",8994 ,3559,2,1, 1,14,0)
  2263     ;  INP(1 0) = (text )     Prov ider name   - NAME fi eld in NEW  PERSON fi le 
  2264   "KRN",8994 ,3559,2,1, 1,15,0)
  2265   200
  2266   "KRN",8994 ,3559,2,1, 1,16,0)
  2267     ;  INP(1 1) = (date )     Desi red Date o f appointm ent in ext ernal form at.
  2268   "KRN",8994 ,3559,2,1, 1,17,0)
  2269     ;  INP(1 2) = (text )     comm ent must b e 1-60 cha racters
  2270   "KRN",8994 ,3559,2,1, 1,18,0)
  2271     ;  INP(1 3) = (text )     ENRO LLMENT PRI ORITY - Va lid Values  are:
  2272   "KRN",8994 ,3559,2,1, 1,19,0)
  2273     ;                                                 GR OUP 1
  2274   "KRN",8994 ,3559,2,1, 1,20,0)
  2275     ;                                                 GR OUP 2
  2276   "KRN",8994 ,3559,2,1, 1,21,0)
  2277     ;                                                 GR OUP 3
  2278   "KRN",8994 ,3559,2,1, 1,22,0)
  2279     ;                                                 GR OUP 4
  2280   "KRN",8994 ,3559,2,1, 1,23,0)
  2281     ;                                                 GR OUP 5
  2282   "KRN",8994 ,3559,2,1, 1,24,0)
  2283     ;                                                 GR OUP 6
  2284   "KRN",8994 ,3559,2,1, 1,25,0)
  2285     ;                                                 GR OUP 7
  2286   "KRN",8994 ,3559,2,1, 1,26,0)
  2287     ;                                                 GR OUP 8
  2288   "KRN",8994 ,3559,2,1, 1,27,0)
  2289     ;  INP(1 4) = (text )     MULT IPLE APPOI NTMENT RTC       NO;  YES
  2290   "KRN",8994 ,3559,2,1, 1,28,0)
  2291     ;  INP(1 5) = (inte ger)  MULT  APPT RTC  INTERVAL i nteger bet ween 1-365
  2292   "KRN",8994 ,3559,2,1, 1,29,0)
  2293     ;  INP(1 6) = (inte ger)  MULT  APPT NUMB ER integer  between 1 -100
  2294   "KRN",8994 ,3559,2,1, 1,30,0)
  2295     ;  INP(1 7) = Patie nt Contact s separate d by ::
  2296   "KRN",8994 ,3559,2,1, 1,31,0)
  2297     ;             Each  :: piece h as the fol lowing ~~  pieces:
  2298   "KRN",8994 ,3559,2,1, 1,32,0)
  2299     ;             1) =  (date)     DATE ENTER ED externa l date/tim e
  2300   "KRN",8994 ,3559,2,1, 1,33,0)
  2301     ;             2) =  (text)     PC ENTERED  BY USER I D or NAME  - Pointer  to 
  2302   "KRN",8994 ,3559,2,1, 1,34,0)
  2303     ;                              NEW PERSON  file or N AME
  2304   "KRN",8994 ,3559,2,1, 1,35,0)
  2305     ;             4) =  (text)     ACTION - ' Called' or  'Message  Left'
  2306   "KRN",8994 ,3559,2,1, 1,36,0)
  2307     ;             5) =  (optional)  PATIENT P HONE Free- Text 4-20  characters
  2308   "KRN",8994 ,3559,2,1, 1,37,0)
  2309     ;  INP(1 8) = (opti onal) SERV ICE CONNEC TED PRIORI TY valid v alues are  NO  
  2310   "KRN",8994 ,3559,2,1, 1,38,0)
  2311   YES
  2312   "KRN",8994 ,3559,2,1, 1,39,0)
  2313     ;  INP(1 9) = (opti onal) SERV ICE CONNEC TED PERCEN TAGE = num eric 0-100
  2314   "KRN",8994 ,3559,2,1, 1,40,0)
  2315     ;  INP(2 0) = (opti onal) MRTC  calculate d preferre d dates se parated by  
  2316   "KRN",8994 ,3559,2,1, 1,41,0)
  2317   pipe |:
  2318   "KRN",8994 ,3559,2,1, 1,42,0)
  2319     ;                         Each  date can  be in exte rnal forma t with no 
  2320   "KRN",8994 ,3559,2,1, 1,43,0)
  2321   time.
  2322   "KRN",8994 ,3559,2,1, 1,44,0)
  2323    ;  INP(21 ) = (optio nal) CLINI C STOP poi nter to CL INIC STOP  file 40.7
  2324   "KRN",8994 ,3559,2,1, 1,45,0)
  2325    ;                         used  to populat e the REQ  SERVICE/SP ECIALTY fi eld 
  2326   "KRN",8994 ,3559,2,1, 1,46,0)
  2327   in 409.85
  2328   "KRN",8994 ,3559,2,1, 1,47,0)
  2329    ;  INP(22 ) = (optio nal) Appoi ntment Typ e ID point er to APPO INTMENT TY PE 
  2330   "KRN",8994 ,3559,2,1, 1,48,0)
  2331   file 409.1
  2332   "KRN",8994 ,3559,2,1, 1,49,0)
  2333    ;  INP(23 ) = (optio nal) Patie nt Status
  2334   "KRN",8994 ,3559,2,1, 1,50,0)
  2335    ;                            N  = NEW
  2336   "KRN",8994 ,3559,2,1, 1,51,0)
  2337    ;                            E  = ESTABLIS HED
  2338   "KRN",8994 ,3559,2,1, 1,52,0)
  2339    ;  INP(24 ) = (optio nal) MULT  APPTS MADE
  2340   "KRN",8994 ,3559,2,1, 1,53,0)
  2341    ;                      list of  child poin ters to SD EC APPOINT MENT and/o
  2342   "KRN",8994 ,3559,2,1, 1,54,0)
  2343   SDEC APPT  REQUEST fi les separa ted by pip e
  2344   "KRN",8994 ,3559,2,1, 1,55,0)
  2345    ;                      each pip e piece co ntains the  following  ~ pieces:
  2346   "KRN",8994 ,3559,2,1, 1,56,0)
  2347    ;                 1.  Appointme nt Id poin ter to SDE C APPOINTM ENT file 
  2348   "KRN",8994 ,3559,2,1, 1,57,0)
  2349   409.84
  2350   "KRN",8994 ,3559,2,1, 1,58,0)
  2351    ;                 2.  Request I d pointer  to SDEC AP PT REQUEST  file 409. 85
  2352   "KRN",8994 ,3559,2,1, 1,59,0)
  2353    ;  INP(25 ) = (optio nal) PAREN T REQUEST  pointer to  SDEC APPT  REQUEST f ile 
  2354   "KRN",8994 ,3559,2,1, 1,60,0)
  2355   409.85
  2356   "KRN",8994 ,3559,2,1, 1,61,0)
  2357    ;  INP(26 ) = (optio nal) NLT ( No later t han) [CPRS  RTC REQUI REMENT]
  2358   "KRN",8994 ,3559,2,1, 1,62,0)
  2359    ;  INP(27 ) = (optio nal) PRERE Q (Prerequ isites) [C PRS RTC RE QUIREMENT]
  2360   "KRN",8994 ,3559,2,1, 1,63,0)
  2361    ;  INP(28 ) = (optio nal) ORDER  IEN [CPRS  RTC REQUI REMENT]
  2362   "KRN",8994 ,3559,2,1, 1,64,0)
  2363    ;  INP(29 ) = (optio nal) VAOS  GUID  <==  wtc patch  686 3/21/1 8 added fo
  2364   "KRN",8994 ,3559,2,1, 1,65,0)
  2365   VAOS reque sts
  2366   "KRN",8994 ,3559,2,1, 1,66,0)
  2367    ;  INP(30 ) = (optio nal) sourc e of the c all.  See  Scheduling  Events 
  2368   "KRN",8994 ,3559,2,1, 1,67,0)
  2369   (#409.94),  field 1 f or list of  values.   Default is  "GUI".
  2370   "KRN",8994 ,3559,2,1, 1,68,0)
  2371    ; 
  2372   "KRN",8994 ,3559,2,"B ","INP",1)
  2373  
  2374   "KRN",8994 ,3559,2,"P ARAMSEQ",1 ,1)
  2375  
  2376   "KRN",8994 ,3559,3,0)
  2377   ^8994.03^2 ^2^3181019 ^^^
  2378   "KRN",8994 ,3559,3,1, 0)
  2379   Return a s ingle entr y in the G lobal Arra y with the  fields ER RORID and 
  2380   "KRN",8994 ,3559,3,2, 0)
  2381   ERRORTEXT.
  2382   "KRN",8994 ,3562,-1)
  2383   0^4
  2384   "KRN",8994 ,3562,0)
  2385   SDEC ARGET ^ARGET^SDE C^4^R^0^^0
  2386   "KRN",8994 ,3562,1,0)
  2387   ^8994.01^1 ^1^3180419 ^^^
  2388   "KRN",8994 ,3562,1,1, 0)
  2389   App[ointme nt Request  GET
  2390   "KRN",8994 ,3562,2,0)
  2391   ^8994.02A^ 6^6
  2392   "KRN",8994 ,3562,2,1, 0)
  2393   ARIEN1^1^^ 0^1
  2394   "KRN",8994 ,3562,2,1, 1,0)
  2395   ^^1^1^3150 420^
  2396   "KRN",8994 ,3562,2,1, 1,1,0)
  2397   Appt Reque st ID poin ter to the  SDEC APPT  REQUEST f iel 409.85 .
  2398   "KRN",8994 ,3562,2,2, 0)
  2399   MAXREC^1^^ 0^2
  2400   "KRN",8994 ,3562,2,2, 1,0)
  2401   ^^1^1^3150 420^
  2402   "KRN",8994 ,3562,2,2, 1,1,0)
  2403   Max record s returned .
  2404   "KRN",8994 ,3562,2,3, 0)
  2405   SDBEG^1^^0 ^3
  2406   "KRN",8994 ,3562,2,3, 1,0)
  2407   ^^1^1^3150 420^
  2408   "KRN",8994 ,3562,2,3, 1,1,0)
  2409   Begin Date  in extern al format.
  2410   "KRN",8994 ,3562,2,4, 0)
  2411   SDEND^1^^0 ^4
  2412   "KRN",8994 ,3562,2,4, 1,0)
  2413   ^^1^1^3150 420^
  2414   "KRN",8994 ,3562,2,4, 1,1,0)
  2415   End date i n external  format.
  2416   "KRN",8994 ,3562,2,5, 0)
  2417   DFN^1^^0^5
  2418   "KRN",8994 ,3562,2,5, 1,0)
  2419   ^^1^1^3150 420^
  2420   "KRN",8994 ,3562,2,5, 1,1,0)
  2421   Patient ID  pointer t o PATIENT  file 2.
  2422   "KRN",8994 ,3562,2,6, 0)
  2423   LASTSUB^1^ ^0^6
  2424   "KRN",8994 ,3562,2,6, 1,0)
  2425   ^8994.021^ 1^1^318041 9^^^
  2426   "KRN",8994 ,3562,2,6, 1,1,0)
  2427   Last subsc ript from  previous c all.
  2428   "KRN",8994 ,3562,2,"B ","ARIEN1" ,1)
  2429  
  2430   "KRN",8994 ,3562,2,"B ","DFN",5)
  2431  
  2432   "KRN",8994 ,3562,2,"B ","LASTSUB ",6)
  2433  
  2434   "KRN",8994 ,3562,2,"B ","MAXREC" ,2)
  2435  
  2436   "KRN",8994 ,3562,2,"B ","SDBEG", 3)
  2437  
  2438   "KRN",8994 ,3562,2,"B ","SDEND", 4)
  2439  
  2440   "KRN",8994 ,3562,2,"P ARAMSEQ",1 ,1)
  2441  
  2442   "KRN",8994 ,3562,2,"P ARAMSEQ",2 ,2)
  2443  
  2444   "KRN",8994 ,3562,2,"P ARAMSEQ",3 ,3)
  2445  
  2446   "KRN",8994 ,3562,2,"P ARAMSEQ",4 ,4)
  2447  
  2448   "KRN",8994 ,3562,2,"P ARAMSEQ",5 ,5)
  2449  
  2450   "KRN",8994 ,3562,2,"P ARAMSEQ",6 ,6)
  2451  
  2452   "KRN",8994 ,3562,3,0)
  2453   ^^108^108^ 3180419^
  2454   "KRN",8994 ,3562,3,1, 0)
  2455    DFN [1] ^  PATIENT N AME [2] ^  <not used>  [3] ^ DOB  [4] ^ SSN  [5] ^ GEN DER 
  2456   "KRN",8994 ,3562,3,2, 0)
  2457   [6]
  2458   "KRN",8994 ,3562,3,3, 0)
  2459    ^ WAIT LI ST IEN [7]  ^ ORIGINA TING DATE  [8] ^ INST ITUTION IE N [9]
  2460   "KRN",8994 ,3562,3,4, 0)
  2461    ^ INSTITU TION NAME  [10] ^ APP  TYPE [11]  ^ SPECIFI C CLINIC I EN [12]
  2462   "KRN",8994 ,3562,3,5, 0)
  2463    ^ SPECIFI C CLINIC N AME [13] ^  ORIGINATI NG USER IE N [14]
  2464   "KRN",8994 ,3562,3,6, 0)
  2465    ^ ORIGINA TING USER  NAME [15]  ^ PRIORITY  [16] ^ RE QUEST BY [ 17]\
  2466   "KRN",8994 ,3562,3,7, 0)
  2467    ^ PROVIDE R IEN [18]  ^ PROVIDE R NAME [19 ] ^ DESIRE D DATE OF  APPOINTMEN
  2468   "KRN",8994 ,3562,3,8, 0)
  2469   [20]
  2470   "KRN",8994 ,3562,3,9, 0)
  2471    ^ COMMENT S [21] ^ E NROLLMENT  PRIORITY [ 22]
  2472   "KRN",8994 ,3562,3,10 ,0)
  2473    ^ MULTIPL E APPOINTM ENT RTC 0= NO; 1=YES  [23]
  2474   "KRN",8994 ,3562,3,11 ,0)
  2475    ^ MULT AP PT RTC INT ERVAL-Inte ger betwee n 1-365 [2 4]
  2476   "KRN",8994 ,3562,3,12 ,0)
  2477    ^ MULT AP PT NUMBER- Integer be tween 1-10 0 [25] ^ P RIGRP [26]  ^ ELIGIEN  
  2478   "KRN",8994 ,3562,3,13 ,0)
  2479   [27] ^
  2480   "KRN",8994 ,3562,3,14 ,0)
  2481    ^ELIGNAME  [28] ^ SV CCONN [29]  ^ SVCCONN P[30] ^ TY PEIEN [31]  ^ TYPENAM
  2482   "KRN",8994 ,3562,3,15 ,0)
  2483   [32]
  2484   "KRN",8994 ,3562,3,16 ,0)
  2485    ^ PCONTAC T [33] ^ A RDISPD [34 ] ^ ARDISP U [35] ^ A RDISPUN [3 6] ^ ARSVC CON 
  2486   "KRN",8994 ,3562,3,17 ,0)
  2487   [37]
  2488   "KRN",8994 ,3562,3,18 ,0)
  2489    ^ PADDRES 1 [38] ^ P ADDRES2 [3 9] ^ PADDR ES3 [40] ^  PCITY [41 ] ^ PSTATE  
  2490   "KRN",8994 ,3562,3,19 ,0)
  2491   [42]
  2492   "KRN",8994 ,3562,3,20 ,0)
  2493    ^ PCOUNTR Y [43] ^ P ZIP4 [44]  ^ GAF [45]  ^ DATE/TI ME ENTERED  [46]
  2494   "KRN",8994 ,3562,3,21 ,0)
  2495    ^ MTRCDAT ES [47] ^  SENSITIVE  [48] ^^^^^ ^^ LASTSUB  [56] ^ ST OPIEN [57]
  2496   "KRN",8994 ,3562,3,22 ,0)
  2497    ^ STOPNAM E [58] ^ A PPT_SCHED_ DATE [59]  ^ MRTCCOUN T [60] ^ P TPHONE [61 ]
  2498   "KRN",8994 ,3562,3,23 ,0)
  2499    ^ APPTYPE  [62] ^ EE STAT [63]  ^ PRHBLOC  [64] ^ APP TPTRS [65]  ^ CHILDRE
  2500   "KRN",8994 ,3562,3,24 ,0)
  2501   [66]
  2502   "KRN",8994 ,3562,3,25 ,0)
  2503    ^ SDPAREN T [67] 
  2504   "KRN",8994 ,3562,3,26 ,0)
  2505    68 HRN =  health rec ord number  
  2506   "KRN",8994 ,3562,3,27 ,0)
  2507    69 BADADD  = BAD ADD RESS INDIC ATOR (.121
  2508   "KRN",8994 ,3562,3,28 ,0)
  2509                 1=UNDEL IVERABLE 
  2510   "KRN",8994 ,3562,3,29 ,0)
  2511                 2=HOMEL ESS 
  2512   "KRN",8994 ,3562,3,30 ,0)
  2513                 3=OTHER  
  2514   "KRN",8994 ,3562,3,31 ,0)
  2515                 4=ADDRE SS NOT FOU ND 
  2516   "KRN",8994 ,3562,3,32 ,0)
  2517    70 OPHONE  = Office  phone (.13 2) 
  2518   "KRN",8994 ,3562,3,33 ,0)
  2519    71 NOK -  Primary Ne xt of Kin  (.211) 
  2520   "KRN",8994 ,3562,3,34 ,0)
  2521    72 KNAME  - Primary  Next of Ki n name 
  2522   "KRN",8994 ,3562,3,35 ,0)
  2523    73 KREL -  Primary N ext of Kin  Relations hip to Pat ient (.212
  2524   "KRN",8994 ,3562,3,36 ,0)
  2525    74 KPHONE  - Primary  Next of K in Phone ( .219) 
  2526   "KRN",8994 ,3562,3,37 ,0)
  2527    75 KSTREE T - Primar y Next of  Kin Street  Address [ Line 1] (. 213) 
  2528   "KRN",8994 ,3562,3,38 ,0)
  2529    76 KSTREE T2 - Prima ry Next of  Kin Stree t Address  [Line 2] ( .214) 
  2530   "KRN",8994 ,3562,3,39 ,0)
  2531    77 KSTREE T3 - Prima ry Next of  Kin Stree t Address  [Line 3] ( .215) 
  2532   "KRN",8994 ,3562,3,40 ,0)
  2533    78 KCITY  - Primary  Next of Ki n City (.2 16) 
  2534   "KRN",8994 ,3562,3,41 ,0)
  2535    79 KSTATE  - Primary  Next of K in State ( .217) 
  2536   "KRN",8994 ,3562,3,42 ,0)
  2537    80 KZIP -  Primary N ext of Kin  Zip (.218
  2538   "KRN",8994 ,3562,3,43 ,0)
  2539    81 NOK2 -  Secondary  Next of K in (.2191)  
  2540   "KRN",8994 ,3562,3,44 ,0)
  2541    82 K2NAME  - Seconda ry Next of  Kin name  (.2191) 
  2542   "KRN",8994 ,3562,3,45 ,0)
  2543    83 K2REL  - Secondar y Next of  Kin Relati onship to  Patient (. 2192) 
  2544   "KRN",8994 ,3562,3,46 ,0)
  2545    84 K2PHON E - Second ary Next o f Kin Phon e (.2199) 
  2546   "KRN",8994 ,3562,3,47 ,0)
  2547    85 K2STRE ET - Secon dary Next  of Kin Str eet Addres s [Line 1]  (.2193) 
  2548   "KRN",8994 ,3562,3,48 ,0)
  2549    86 K2STRE ET2 - Seco ndary Next  of Kin St reet Addre ss [Line 2 ] (.2194) 
  2550   "KRN",8994 ,3562,3,49 ,0)
  2551    87 K2STRE ET3 - Seco ndary Next  of Kin St reet Addre ss [Line 3 ] (.2195) 
  2552   "KRN",8994 ,3562,3,50 ,0)
  2553    88 K2CITY  - Seconda ry Next of  Kin City  (.2196) 
  2554   "KRN",8994 ,3562,3,51 ,0)
  2555    89 K2STAT E - Second ary Next o f Kin Stat e (.2197) 
  2556   "KRN",8994 ,3562,3,52 ,0)
  2557    90 K2ZIP  - Secondar y Next of  Kin Zip (. 2198) 
  2558   "KRN",8994 ,3562,3,53 ,0)
  2559    91 PCOUNT Y - Patien t County ( .117) 
  2560   "KRN",8994 ,3562,3,54 ,0)
  2561    92 PETH -  List of P atient Eth nicities/N ames Eth|N ame^... Us e ETH^SDEC U2 
  2562   "KRN",8994 ,3562,3,55 ,0)
  2563    93 PRACE  - List of  Patient Ra ces/Names  RACE|NAME^ ... Use RA CELST^SDEC U2 
  2564   "KRN",8994 ,3562,3,56 ,0)
  2565    94 PMARIT AL - Patie nt Marital  Status 
  2566   "KRN",8994 ,3562,3,57 ,0)
  2567    95 PRELIG ION - Pati ent Religi ous Prefer ence 
  2568   "KRN",8994 ,3562,3,58 ,0)
  2569    96 PTACTI VE - Patie nt Tempora ry Address  Active? ( .12105) 
  2570   "KRN",8994 ,3562,3,59 ,0)
  2571    97 PTADDR ESS1 - Pat ient Tempo rary Addre ss Line 1  (.1211) 
  2572   "KRN",8994 ,3562,3,60 ,0)
  2573    98 PTADDR ESS2 - Pat ient Tempo rary Addre ss Line 2  (.1212) 
  2574   "KRN",8994 ,3562,3,61 ,0)
  2575    99 PTADDR ESS3 - Pat ient Tempo rary Addre ss Line 3  (.1213) 
  2576   "KRN",8994 ,3562,3,62 ,0)
  2577    100 PTCIT Y - Patien t Temporar y City (.1 214) 
  2578   "KRN",8994 ,3562,3,63 ,0)
  2579    101 PTSTA TE - Patie nt Tempora ry State ( .1215) 
  2580   "KRN",8994 ,3562,3,64 ,0)
  2581    102 PTZIP  - Patient  Temporary  Zip (.121 6) 
  2582   "KRN",8994 ,3562,3,65 ,0)
  2583    103 PTZIP +4 - Patie nt Tempora ry Zip+4 ( .12112) 
  2584   "KRN",8994 ,3562,3,66 ,0)
  2585    104 PTCOU NTRY - Pat ient Tempo rary Count ry (.1223)  
  2586   "KRN",8994 ,3562,3,67 ,0)
  2587    105 PTCOU NTY - Pati ent Tempor ary County  (.12111) 
  2588   "KRN",8994 ,3562,3,68 ,0)
  2589    106 PTMPP HONE - Pat ient Tempo rary Phone  (.1219) 
  2590   "KRN",8994 ,3562,3,69 ,0)
  2591    107 PTSTA RT - Patie nt Tempora ry Address  Start Dat e (.1217) 
  2592   "KRN",8994 ,3562,3,70 ,0)
  2593    108 PTEND  - Patient  Temporary  Address E nd Date (. 1218) 
  2594   "KRN",8994 ,3562,3,71 ,0)
  2595    109 PCELL  - Patient  Cell Phon e (.134) 
  2596   "KRN",8994 ,3562,3,72 ,0)
  2597    110 PPAGE R - Patien t Pager Nu mber (.135
  2598   "KRN",8994 ,3562,3,73 ,0)
  2599    111 PEMAI L - Patien t Email Ad dress (.13 3) 
  2600   "KRN",8994 ,3562,3,74 ,0)
  2601    112 PF_FF F - Patien t FUGITIVE  FELON FLA G 1=YES 
  2602   "KRN",8994 ,3562,3,75 ,0)
  2603    113 PF_VC D - Patien t VETERAN  CATASTROPH ICALLY DIS ABLED? Y=Y ES N=NO 
  2604   "KRN",8994 ,3562,3,76 ,0)
  2605    114 PFNAT IONAL - Pa tient nati onal Flags  
  2606   "KRN",8994 ,3562,3,77 ,0)
  2607                               (PRF  ASSIGNMEN T/PRF NATI ONAL FLAG)  separated  by 
  2608   "KRN",8994 ,3562,3,78 ,0)
  2609  
  2610   "KRN",8994 ,3562,3,79 ,0)
  2611            E ach | piec e contains  the follo wing ;; pi eces: 
  2612   "KRN",8994 ,3562,3,80 ,0)
  2613            1 . PRFAID -  PRF Assig nment ID p ointer to  PRF ASSIGN MENT file 
  2614   "KRN",8994 ,3562,3,81 ,0)
  2615   (#26.13) 
  2616   "KRN",8994 ,3562,3,82 ,0)
  2617            2 . PRFSTAT  - PRF Assi gnment Sta tus 0=INAC TIVE 1=ACT IVE 
  2618   "KRN",8994 ,3562,3,83 ,0)
  2619            3 . PRFNID -  PRF Natio nal Flag I D pointer  to PRF NAT IONAL FLAG  
  2620   "KRN",8994 ,3562,3,84 ,0)
  2621   file (#26. 15) 
  2622   "KRN",8994 ,3562,3,85 ,0)
  2623            4 . PRFNNAME  - PRF Nat ional Flag  name 
  2624   "KRN",8994 ,3562,3,86 ,0)
  2625            5 . PRFNSTAT  - PRF Nat ional Flag  status 0= INACTIVE 1 =ACTIVE 
  2626   "KRN",8994 ,3562,3,87 ,0)
  2627     115 PFLO CAL - Pati ent Local  Flags 
  2628   "KRN",8994 ,3562,3,88 ,0)
  2629                            (PRF AS SIGNMENT/P RF Local F LAG) separ ated by | 
  2630   "KRN",8994 ,3562,3,89 ,0)
  2631            E ach | piec e contains  the follo wing ;; pi eces: 
  2632   "KRN",8994 ,3562,3,90 ,0)
  2633            1 . PRFAID -  PRF Assig nment ID p ointer to  PRF ASSIGN MENT file 
  2634   "KRN",8994 ,3562,3,91 ,0)
  2635   (#26.13) 
  2636   "KRN",8994 ,3562,3,92 ,0)
  2637            2 . PRFSTAT  - PRF Assi gnment Sta tus 0=INAC TIVE 1=ACT IVE 
  2638   "KRN",8994 ,3562,3,93 ,0)
  2639            3 . PRFLID -  PRF Local  Flag ID p ointer to  PRF LOCAL  FLAG file 
  2640   "KRN",8994 ,3562,3,94 ,0)
  2641   (#26.11) 
  2642   "KRN",8994 ,3562,3,95 ,0)
  2643            4 . PRFLNAME  - PRF Loc al Flag na me 
  2644   "KRN",8994 ,3562,3,96 ,0)
  2645            5 . PRFLSTAT  - PRF Loc al Flag st atus 0=INA CTIVE 1=AC TIVE 
  2646   "KRN",8994 ,3562,3,97 ,0)
  2647     116 SUBG RP - value  from the  ENROLLMENT  SUBGROUP  field of t he PATIENT  
  2648   "KRN",8994 ,3562,3,98 ,0)
  2649   ENROLLMENT  file 
  2650   "KRN",8994 ,3562,3,99 ,0)
  2651                   (#27. 11) 
  2652   "KRN",8994 ,3562,3,10 0,0)
  2653                   Valid  values ar e a b c d  e g 
  2654   "KRN",8994 ,3562,3,10 1,0)
  2655    117 CAT8G   - Catego ry 8g flag  - True if  PriGRP =' Group 8' A ND SUBGRP- 'g' 
  2656   "KRN",8994 ,3562,3,10 2,0)
  2657    118 SIMIL AR = Simil ar Patient s
  2658   "KRN",8994 ,3562,3,10 3,0)
  2659    121 VAOS_ GUID = Poi nter to VA OS for Vet eran-initi ated appoi ntment 
  2660   "KRN",8994 ,3562,3,10 4,0)
  2661   requests
  2662   "KRN",8994 ,3562,3,10 5,0)
  2663      MESSSAG E | Patien ts 
  2664   "KRN",8994 ,3562,3,10 6,0)
  2665       Patien ts separat ed by ;; 
  2666   "KRN",8994 ,3562,3,10 7,0)
  2667         Each  ;; piece  contains t he followi ng ~ piece
  2668   "KRN",8994 ,3562,3,10 8,0)
  2669         DFN  ~ NAME ~ D OB ~ SSN
  2670   "KRN",8994 ,3719,-1)
  2671   0^1
  2672   "KRN",8994 ,3719,0)
  2673   SDEC SUMMG ET2^SUMMGE T2^SDEC^4^ R^0^^0
  2674   "KRN",8994 ,3719,1,0)
  2675   ^^1^1^3180 228^
  2676   "KRN",8994 ,3719,1,1, 0)
  2677   Get Audit  Summary fo r a given  data range .
  2678   "KRN",8994 ,3719,2,0)
  2679   ^8994.02A^ 3^3
  2680   "KRN",8994 ,3719,2,1, 0)
  2681   SDBEG^1^^0 ^1
  2682   "KRN",8994 ,3719,2,1, 1,0)
  2683   ^^1^1^3180 228^
  2684   "KRN",8994 ,3719,2,1, 1,1,0)
  2685   Begin Date  in extern al form; d efault to  all dates
  2686   "KRN",8994 ,3719,2,2, 0)
  2687   SDEND^1^^0 ^2
  2688   "KRN",8994 ,3719,2,2, 1,0)
  2689   ^^1^1^3180 228^
  2690   "KRN",8994 ,3719,2,2, 1,1,0)
  2691   End Date i n external  form; def ault to al l dates
  2692   "KRN",8994 ,3719,2,3, 0)
  2693   USER^1^^0^ 3
  2694   "KRN",8994 ,3719,2,3, 1,0)
  2695   ^^2^2^3180 228^
  2696   "KRN",8994 ,3719,2,3, 1,1,0)
  2697   User ID po inter to N EW PERSON  file (#200 )
  2698   "KRN",8994 ,3719,2,3, 1,2,0)
  2699   Used to fi lter by us er
  2700   "KRN",8994 ,3719,2,"B ","SDBEG", 1)
  2701  
  2702   "KRN",8994 ,3719,2,"B ","SDEND", 2)
  2703  
  2704   "KRN",8994 ,3719,2,"B ","USER",3 )
  2705  
  2706   "KRN",8994 ,3719,2,"P ARAMSEQ",1 ,1)
  2707  
  2708   "KRN",8994 ,3719,2,"P ARAMSEQ",2 ,2)
  2709  
  2710   "KRN",8994 ,3719,2,"P ARAMSEQ",3 ,3)
  2711  
  2712   "KRN",8994 ,3719,3,0)
  2713   ^^18^18^31 80228^
  2714   "KRN",8994 ,3719,3,1, 0)
  2715   Global Arr ay in whic h each arr ay entry c ontains su mmary data  delimited  by 
  2716   "KRN",8994 ,3719,3,2, 0)
  2717   caret (^):
  2718   "KRN",8994 ,3719,3,3, 0)
  2719        1. US ERIEN  - P ointer to  NEW PERSON  file (#20 0)
  2720   "KRN",8994 ,3719,3,4, 0)
  2721        2. US ERNAME - N AME from N EW PERSON  file
  2722   "KRN",8994 ,3719,3,5, 0)
  2723        3. CO NTACTS - N umber of p atient con tacts in d ate range
  2724   "KRN",8994 ,3719,3,6, 0)
  2725        4. AP PTOPEN - N umber of A PPT reques ts opened
  2726   "KRN",8994 ,3719,3,7, 0)
  2727        5. AP PTMADE - N umber of a ppointment s made fro m APPT req uests
  2728   "KRN",8994 ,3719,3,8, 0)
  2729        6. AP PTCLSD - N umber of A PPT reques ts closed
  2730   "KRN",8994 ,3719,3,9, 0)
  2731        7. MR TCOPEN - N umber of M RTC reques ts opened
  2732   "KRN",8994 ,3719,3,10 ,0)
  2733        8. MR TCCLSD - N umber of M RTC reques ts closed
  2734   "KRN",8994 ,3719,3,11 ,0)
  2735        9. EW LOPEN  - N umber of E WL request s opened
  2736   "KRN",8994 ,3719,3,12 ,0)
  2737       10. EW LMADE  - N umber of a ppointment s made fro m EWL requ ests
  2738   "KRN",8994 ,3719,3,13 ,0)
  2739       11. EW LCLSD  - N umber of E WL request s closed
  2740   "KRN",8994 ,3719,3,14 ,0)
  2741       12. PT CSOPEN - N umber of P tCSch requ ests opene d
  2742   "KRN",8994 ,3719,3,15 ,0)
  2743       13. PT CSMADE - N umber of a ppointment s made fro m PtCSch r equests
  2744   "KRN",8994 ,3719,3,16 ,0)
  2745       14. CN SLTMD  - N umber of a ppointment s made fro m consults
  2746   "KRN",8994 ,3719,3,17 ,0)
  2747       15. AP PTCXLD - N umber of a ppointment s canceled
  2748   "KRN",8994 ,3719,3,18 ,0)
  2749       16. AC TIONS  - T otal numbe r of user  actions in  date rang e
  2750   "KRN",8994 ,3720,-1)
  2751   0^2
  2752   "KRN",8994 ,3720,0)
  2753   SDEC RESCE ^RESOURCE^ SDEC01C^4^ S^0^^0^1
  2754   "KRN",8994 ,3720,1,0)
  2755   ^8994.01^1 ^1^3180301 ^^
  2756   "KRN",8994 ,3720,1,1, 0)
  2757   Returns al l active C linics
  2758   "KRN",8994 ,3720,2,0)
  2759   ^8994.02A^ 4^4
  2760   "KRN",8994 ,3720,2,1, 0)
  2761   DUZ^1^^0^1
  2762   "KRN",8994 ,3720,2,1, 1,0)
  2763   ^^2^2^3180 301^
  2764   "KRN",8994 ,3720,2,1, 1,1,0)
  2765   Checks tha t THIS use r has the  proper SEC URITY KEY
  2766   "KRN",8994 ,3720,2,1, 1,2,0)
  2767   Defaults t o current  user.
  2768   "KRN",8994 ,3720,2,2, 0)
  2769   SDACT^1^^0 ^2
  2770   "KRN",8994 ,3720,2,2, 1,0)
  2771   ^^1^1^3180 301^
  2772   "KRN",8994 ,3720,2,2, 1,1,0)
  2773   Set to Yes  - returns  only acti ve clinics
  2774   "KRN",8994 ,3720,2,3, 0)
  2775   SDTYPE^1^^ 0^3
  2776   "KRN",8994 ,3720,2,3, 1,0)
  2777   ^^1^1^3180 301^
  2778   "KRN",8994 ,3720,2,3, 1,1,0)
  2779   Set to H -  only retu rns Clinic s
  2780   "KRN",8994 ,3720,2,4, 0)
  2781   MAXREC^1^^ 0^4
  2782   "KRN",8994 ,3720,2,4, 1,0)
  2783   ^8994.021^ 1^1^318030 1^^
  2784   "KRN",8994 ,3720,2,4, 1,1,0)
  2785   Max nuber  of records  returned
  2786   "KRN",8994 ,3720,2,"B ","DUZ",1)
  2787  
  2788   "KRN",8994 ,3720,2,"B ","MAXREC" ,4)
  2789  
  2790   "KRN",8994 ,3720,2,"B ","SDACT", 2)
  2791  
  2792   "KRN",8994 ,3720,2,"B ","SDTYPE" ,3)
  2793  
  2794   "KRN",8994 ,3720,2,"P ARAMSEQ",1 ,1)
  2795  
  2796   "KRN",8994 ,3720,2,"P ARAMSEQ",2 ,2)
  2797  
  2798   "KRN",8994 ,3720,2,"P ARAMSEQ",3 ,3)
  2799  
  2800   "KRN",8994 ,3720,2,"P ARAMSEQ",4 ,4)
  2801  
  2802   "KRN",8994 ,3720,3,0)
  2803   ^^5^5^3180 301^
  2804   "KRN",8994 ,3720,3,1, 0)
  2805   Returns a  global arr ay in whic h each arr ay entry c ontains da ta from
  2806   "KRN",8994 ,3720,3,2, 0)
  2807   the  HOSPI TAL LOCATI ON (clinic ).
  2808   "KRN",8994 ,3720,3,3, 0)
  2809   1. RESOURC EID - Poin ter to the  SDEC RESO URCE file
  2810   "KRN",8994 ,3720,3,4, 0)
  2811   2. HOSPITA L_LOCATION _ID
  2812   "KRN",8994 ,3720,3,5, 0)
  2813   3. CLINNAM E  - Clini c Name fro m HOSPITAL  LOCATION  file 44
  2814   "KRN",8994 ,3721,-1)
  2815   0^5
  2816   "KRN",8994 ,3721,0)
  2817   SDECAR1 AR GUID^ARGUI D^SDECAR1^ 4^P
  2818   "KRN",8994 ,3721,1,0)
  2819   ^^2^2^3180 419^
  2820   "KRN",8994 ,3721,1,1, 0)
  2821   Returns Ap pointment  Request da ta (same a s SDEC ARG ET) for a  VAOS 
  2822   "KRN",8994 ,3721,1,2, 0)
  2823   request.   Lookup is  done on th e GUID val ue.
  2824   "KRN",8994 ,3721,2,0)
  2825   ^8994.02A^ 1^1
  2826   "KRN",8994 ,3721,2,1, 0)
  2827   GUID^1^32^ 1^1
  2828   "KRN",8994 ,3721,2,1, 1,0)
  2829   ^^1^1^3180 419^
  2830   "KRN",8994 ,3721,2,1, 1,1,0)
  2831   GUID is th e database  pointer i n the VAOS  database.
  2832   "KRN",8994 ,3721,2,"B ","GUID",1 )
  2833  
  2834   "KRN",8994 ,3721,2,"P ARAMSEQ",1 ,1)
  2835  
  2836   "KRN",8994 ,3721,3,0)
  2837   ^^1^1^3180 419^
  2838   "KRN",8994 ,3721,3,1, 0)
  2839   Return dat a is the s ame as for  SDEC ARGE T RPC.
  2840   "MBREQ")
  2841   0
  2842   "ORD",5,.4 )
  2843   .4;5;;;EDE OUT^DIFROM SO(.4,DA," ",XPDA);FP RE^DIFROMS I(.4,"",XP DA);EPRE^D IFROMSI(.4 ,DA,$E("N" ,$G(XPDNEW )),XPDA,"" ,OLDA);;EP OST^DIFROM SI(.4,DA," ",XPDA);DE L^DIFROMSK (.4,"",%)
  2844   "ORD",5,.4 ,0)
  2845   PRINT TEMP LATE
  2846   "ORD",6,.4 01)
  2847   .401;6;;;E DEOUT^DIFR OMSO(.401, DA,"",XPDA );FPRE^DIF ROMSI(.401 ,"",XPDA); EPRE^DIFRO MSI(.401,D A,$E("N",$ G(XPDNEW)) ,XPDA,"",O LDA);;EPOS T^DIFROMSI (.401,DA," ",XPDA);DE L^DIFROMSK (.401,"",% )
  2848   "ORD",6,.4 01,0)
  2849   SORT TEMPL ATE
  2850   "ORD",16,8 994)
  2851   8994;16;1; ;;;RPCE1^X PDIA1;;;RP CDEL^XPDIA 1
  2852   "ORD",16,8 994,0)
  2853   REMOTE PRO CEDURE
  2854   "ORD",18,1 9)
  2855   19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
  2856   "ORD",18,1 9,0)
  2857   OPTION
  2858   "PKG",48,- 1)
  2859   1^1
  2860   "PKG",48,0 )
  2861   SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS
  2862   "PKG",48,2 2,0)
  2863   ^9.49I^1^1
  2864   "PKG",48,2 2,1,0)
  2865   5.3^305111 9^2960613
  2866   "PKG",48,2 2,1,"PAH", 1,0)
  2867   686^318111 4^114
  2868   "PKG",48,2 2,1,"PAH", 1,1,0)
  2869   ^^505^505^ 3181114
  2870   "PKG",48,2 2,1,"PAH", 1,1,1,0)
  2871   ********** ********** ********** ********** ********** ********** ********** ****
  2872   "PKG",48,2 2,1,"PAH", 1,1,2,0)
  2873   **
  2874   "PKG",48,2 2,1,"PAH", 1,1,3,0)
  2875   *                                GUI UPDATE  
  2876   "PKG",48,2 2,1,"PAH", 1,1,4,0)
  2877   NOTICE                               *
  2878   "PKG",48,2 2,1,"PAH", 1,1,5,0)
  2879   *--------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  2880   "PKG",48,2 2,1,"PAH", 1,1,6,0)
  2881   -*
  2882   "PKG",48,2 2,1,"PAH", 1,1,7,0)
  2883   * This pat ch MUST be  installed  before th e GUI upda te for rel ease 
  2884   "PKG",48,2 2,1,"PAH", 1,1,8,0)
  2885   1.5.1      *  
  2886   "PKG",48,2 2,1,"PAH", 1,1,9,0)
  2887   * of VistA  Schedulin g GUI is i nstalled.  The previo us 1.5 rel ease will 
  2888   "PKG",48,2 2,1,"PAH", 1,1,10,0)
  2889   work *
  2890   "PKG",48,2 2,1,"PAH", 1,1,11,0)
  2891   * with no  problems a fter this  patch has  been insta lled. Howe ver, if 
  2892   "PKG",48,2 2,1,"PAH", 1,1,12,0)
  2893   the    *
  2894   "PKG",48,2 2,1,"PAH", 1,1,13,0)
  2895   * 1.5.1 ve rsion is u sed withou t this pat ch, then a ll fields  for 
  2896   "PKG",48,2 2,1,"PAH", 1,1,14,0)
  2897   selecting   *
  2898   "PKG",48,2 2,1,"PAH", 1,1,15,0)
  2899   * clinics,  as well a s the Audi t Report,  will not w ork 
  2900   "PKG",48,2 2,1,"PAH", 1,1,16,0)
  2901   properly.              *
  2902   "PKG",48,2 2,1,"PAH", 1,1,17,0)
  2903   ********** ********** ********** ********** ********** ********** ********** ****
  2904   "PKG",48,2 2,1,"PAH", 1,1,18,0)
  2905   **
  2906   "PKG",48,2 2,1,"PAH", 1,1,19,0)
  2907    
  2908   "PKG",48,2 2,1,"PAH", 1,1,20,0)
  2909   This patch  contains  the VistA  components  necessary  to suppor t the 1.5.
  2910   "PKG",48,2 2,1,"PAH", 1,1,21,0)
  2911   release of  VistA Sch eduling En hancements  (VSE) as  well as ad dressing t he
  2912   "PKG",48,2 2,1,"PAH", 1,1,22,0)
  2913   following  issues:
  2914   "PKG",48,2 2,1,"PAH", 1,1,23,0)
  2915    
  2916   "PKG",48,2 2,1,"PAH", 1,1,24,0)
  2917   1. R181207 03FY18  -  The VS GUI  applicati on freezes  when the  Audit Repo rt 
  2918   "PKG",48,2 2,1,"PAH", 1,1,25,0)
  2919   is
  2920   "PKG",48,2 2,1,"PAH", 1,1,26,0)
  2921                         run for al l schedule rs due to  performanc e issues.
  2922   "PKG",48,2 2,1,"PAH", 1,1,27,0)
  2923    
  2924   "PKG",48,2 2,1,"PAH", 1,1,28,0)
  2925   2. R178569 00FY18, -  If an appo intment ha d been sch eduled for  a consult
  2926   "PKG",48,2 2,1,"PAH", 1,1,29,0)
  2927      R185649 68FY18,    then that  consult wa s complete d, and fin ally the
  2928   "PKG",48,2 2,1,"PAH", 1,1,30,0)
  2929      R186483 21FY18     appointmen t was canc eled, the  consult wi ll be mark ed
  2930   "PKG",48,2 2,1,"PAH", 1,1,31,0)
  2931                         as active,  even thou gh it shou ld remain  as complet e.
  2932   "PKG",48,2 2,1,"PAH", 1,1,32,0)
  2933    
  2934   "PKG",48,2 2,1,"PAH", 1,1,33,0)
  2935   3. R174153 67FY18  -  If a user  locks an a ppointment  request ( in this ca se,
  2936   "PKG",48,2 2,1,"PAH", 1,1,34,0)
  2937                         a consult  request in  particula r) by sele cting it i
  2938   "PKG",48,2 2,1,"PAH", 1,1,35,0)
  2939   the
  2940   "PKG",48,2 2,1,"PAH", 1,1,36,0)
  2941                         RM grid, t hen exits  the GUI wi th it stil l locked, 
  2942   "PKG",48,2 2,1,"PAH", 1,1,37,0)
  2943   user
  2944   "PKG",48,2 2,1,"PAH", 1,1,38,0)
  2945                         in VistA w ill be una ble to sel ect the sa me request ,
  2946   "PKG",48,2 2,1,"PAH", 1,1,39,0)
  2947                         instead re ceiving a  message st ating that  the reque st 
  2948   "PKG",48,2 2,1,"PAH", 1,1,40,0)
  2949   is
  2950   "PKG",48,2 2,1,"PAH", 1,1,41,0)
  2951                         locked.
  2952   "PKG",48,2 2,1,"PAH", 1,1,42,0)
  2953    
  2954   "PKG",48,2 2,1,"PAH", 1,1,43,0)
  2955   4. R170391 75FY18  -  When using  clinic lo okup, if t he user pa uses the i nput
  2956   "PKG",48,2 2,1,"PAH", 1,1,44,0)
  2957                                 is  wiped out  and has t o be re-en tered.
  2958   "PKG",48,2 2,1,"PAH", 1,1,45,0)
  2959    
  2960   "PKG",48,2 2,1,"PAH", 1,1,46,0)
  2961   5. R184776 70FY18  -  When sched uling an a ppointment  for an In ter-Facili ty
  2962   "PKG",48,2 2,1,"PAH", 1,1,47,0)
  2963                                 Co nsult (IFC ), the rem ote facili ty is not 
  2964   "PKG",48,2 2,1,"PAH", 1,1,48,0)
  2965   notified.
  2966   "PKG",48,2 2,1,"PAH", 1,1,49,0)
  2967    
  2968   "PKG",48,2 2,1,"PAH", 1,1,50,0)
  2969   This patch  also cont ains modif ications t o routines  (SDECAR1  and SDECAR 2)
  2970   "PKG",48,2 2,1,"PAH", 1,1,51,0)
  2971   and RPCs ( SDEC ARGET  and SDEC  ARSET) as  well chang es to File Man files
  2972   "PKG",48,2 2,1,"PAH", 1,1,52,0)
  2973   (Appointme nt Request  #409.85)  related to  a future  enhancemen t - the 
  2974   "PKG",48,2 2,1,"PAH", 1,1,53,0)
  2975   integratio n of Sched uling Mana ger functi onality in to the VS  GUI.
  2976   "PKG",48,2 2,1,"PAH", 1,1,54,0)
  2977    
  2978   "PKG",48,2 2,1,"PAH", 1,1,55,0)
  2979    
  2980   "PKG",48,2 2,1,"PAH", 1,1,56,0)
  2981    
  2982   "PKG",48,2 2,1,"PAH", 1,1,57,0)
  2983   Patch Comp onents
  2984   "PKG",48,2 2,1,"PAH", 1,1,58,0)
  2985   ========== ======
  2986   "PKG",48,2 2,1,"PAH", 1,1,59,0)
  2987    
  2988   "PKG",48,2 2,1,"PAH", 1,1,60,0)
  2989   Files & Fi elds Assoc iated:
  2990   "PKG",48,2 2,1,"PAH", 1,1,61,0)
  2991    
  2992   "PKG",48,2 2,1,"PAH", 1,1,62,0)
  2993   File Name  (#)                                                 Ne w/Modified /
  2994   "PKG",48,2 2,1,"PAH", 1,1,63,0)
  2995     Sub-file  Name (#)    Field Na me (Number )                     Deleted
  2996   "PKG",48,2 2,1,"PAH", 1,1,64,0)
  2997   ---------- ---------    -------- ---------- ---------- -----   -- ---------- -
  2998   "PKG",48,2 2,1,"PAH", 1,1,65,0)
  2999   SDEC APPT  REQUEST (# 409.85)                                  MO DIFIED
  3000   "PKG",48,2 2,1,"PAH", 1,1,66,0)
  3001                                    VAOS GUID  (#5)                                 
  3002   "PKG",48,2 2,1,"PAH", 1,1,67,0)
  3003   NEW
  3004   "PKG",48,2 2,1,"PAH", 1,1,68,0)
  3005    
  3006   "PKG",48,2 2,1,"PAH", 1,1,69,0)
  3007   SDEC CONTA CT (#409.8 6)                                       MO DIFIED
  3008   "PKG",48,2 2,1,"PAH", 1,1,70,0)
  3009    
  3010   "PKG",48,2 2,1,"PAH", 1,1,71,0)
  3011   SD AUDIT S TATISTICS  (#409.97)                                NE W
  3012   "PKG",48,2 2,1,"PAH", 1,1,72,0)
  3013                           SCHEDULE R (#.01)                      NE W
  3014   "PKG",48,2 2,1,"PAH", 1,1,73,0)
  3015                           DATE (#1 )                             NE W
  3016   "PKG",48,2 2,1,"PAH", 1,1,74,0)
  3017                           PATIENT  CONTACTS ( #2)                NE W
  3018   "PKG",48,2 2,1,"PAH", 1,1,75,0)
  3019                           APPT REQ UESTS (#3)                    NE W
  3020   "PKG",48,2 2,1,"PAH", 1,1,76,0)
  3021                           APPT APP OINTMENTS  MADE (#4)          NE W
  3022   "PKG",48,2 2,1,"PAH", 1,1,77,0)
  3023                           APPT CLO SED (#5)                      NE W
  3024   "PKG",48,2 2,1,"PAH", 1,1,78,0)
  3025                           MRTC OPE NED (#6)                      NE W
  3026   "PKG",48,2 2,1,"PAH", 1,1,79,0)
  3027                           MRTC CLO SED (#7)                      NE W
  3028   "PKG",48,2 2,1,"PAH", 1,1,80,0)
  3029                           EWL ENTR IES (#8)                      NE W
  3030   "PKG",48,2 2,1,"PAH", 1,1,81,0)
  3031                           EWL APPO INTMENTS M ADE (#9)           NE W
  3032   "PKG",48,2 2,1,"PAH", 1,1,82,0)
  3033                           EWL CLOS ED (#10)                      NE W
  3034   "PKG",48,2 2,1,"PAH", 1,1,83,0)
  3035                           PtCSch E NTRIES (#1 1)                 NE W
  3036   "PKG",48,2 2,1,"PAH", 1,1,84,0)
  3037                           PtCSch A PPOINTMENT S MADE (#1 2)      NE W
  3038   "PKG",48,2 2,1,"PAH", 1,1,85,0)
  3039                           CONSULT  APPOINTMEN TS MADE (# 13)     NE W
  3040   "PKG",48,2 2,1,"PAH", 1,1,86,0)
  3041                           APPOINTM ENTS CANCE LLED (#14)         NE W
  3042   "PKG",48,2 2,1,"PAH", 1,1,87,0)
  3043                           TOTAL AC TIONS (#15 )                  NE W
  3044   "PKG",48,2 2,1,"PAH", 1,1,88,0)
  3045    
  3046   "PKG",48,2 2,1,"PAH", 1,1,89,0)
  3047   Bulletins  Associated :
  3048   "PKG",48,2 2,1,"PAH", 1,1,90,0)
  3049                                                                  Ne w/Modified /
  3050   "PKG",48,2 2,1,"PAH", 1,1,91,0)
  3051   Bulletin N ame                                                    Deleted     
  3052   "PKG",48,2 2,1,"PAH", 1,1,92,0)
  3053   ---------- ---                                                 -- ---------- -
  3054   "PKG",48,2 2,1,"PAH", 1,1,93,0)
  3055   N/A
  3056   "PKG",48,2 2,1,"PAH", 1,1,94,0)
  3057    
  3058   "PKG",48,2 2,1,"PAH", 1,1,95,0)
  3059    
  3060   "PKG",48,2 2,1,"PAH", 1,1,96,0)
  3061    
  3062   "PKG",48,2 2,1,"PAH", 1,1,97,0)
  3063   Dialogs As sociated:
  3064   "PKG",48,2 2,1,"PAH", 1,1,98,0)
  3065                                                                  Ne w/Modified /
  3066   "PKG",48,2 2,1,"PAH", 1,1,99,0)
  3067   Dialog Nam e                                                      Deleted     
  3068   "PKG",48,2 2,1,"PAH", 1,1,100,0)
  3069   ---------- -                                                   -- ---------- -
  3070   "PKG",48,2 2,1,"PAH", 1,1,101,0)
  3071   N/A
  3072   "PKG",48,2 2,1,"PAH", 1,1,102,0)
  3073    
  3074   "PKG",48,2 2,1,"PAH", 1,1,103,0)
  3075    
  3076   "PKG",48,2 2,1,"PAH", 1,1,104,0)
  3077    
  3078   "PKG",48,2 2,1,"PAH", 1,1,105,0)
  3079   Forms Asso ciated:
  3080   "PKG",48,2 2,1,"PAH", 1,1,106,0)
  3081                                                                  Ne w/Modified /
  3082   "PKG",48,2 2,1,"PAH", 1,1,107,0)
  3083   Form Name                      F ile Name ( Number)               Deleted     
  3084   "PKG",48,2 2,1,"PAH", 1,1,108,0)
  3085   ---------                      - ---------- -------            -- ---------- -
  3086   "PKG",48,2 2,1,"PAH", 1,1,109,0)
  3087   N/A
  3088   "PKG",48,2 2,1,"PAH", 1,1,110,0)
  3089    
  3090   "PKG",48,2 2,1,"PAH", 1,1,111,0)
  3091    
  3092   "PKG",48,2 2,1,"PAH", 1,1,112,0)
  3093    
  3094   "PKG",48,2 2,1,"PAH", 1,1,113,0)
  3095   Functions  Associated :
  3096   "PKG",48,2 2,1,"PAH", 1,1,114,0)
  3097                                                                  Ne w/Modified /
  3098   "PKG",48,2 2,1,"PAH", 1,1,115,0)
  3099   Function N ame                                                    Deleted     
  3100   "PKG",48,2 2,1,"PAH", 1,1,116,0)
  3101   ---------- ---                                                 -- ---------- -
  3102   "PKG",48,2 2,1,"PAH", 1,1,117,0)
  3103   N/A
  3104   "PKG",48,2 2,1,"PAH", 1,1,118,0)
  3105    
  3106   "PKG",48,2 2,1,"PAH", 1,1,119,0)
  3107    
  3108   "PKG",48,2 2,1,"PAH", 1,1,120,0)
  3109    
  3110   "PKG",48,2 2,1,"PAH", 1,1,121,0)
  3111   HL Logical  Link:
  3112   "PKG",48,2 2,1,"PAH", 1,1,122,0)
  3113                                                                  Ne w/Modified /
  3114   "PKG",48,2 2,1,"PAH", 1,1,123,0)
  3115   HL Logical  Name                                                  Deleted     
  3116   "PKG",48,2 2,1,"PAH", 1,1,124,0)
  3117   ---------- -----                                               -- ---------- -
  3118   "PKG",48,2 2,1,"PAH", 1,1,125,0)
  3119   N/A
  3120   "PKG",48,2 2,1,"PAH", 1,1,126,0)
  3121    
  3122   "PKG",48,2 2,1,"PAH", 1,1,127,0)
  3123    
  3124   "PKG",48,2 2,1,"PAH", 1,1,128,0)
  3125    
  3126   "PKG",48,2 2,1,"PAH", 1,1,129,0)
  3127   HL7 Applic ation Para meters:
  3128   "PKG",48,2 2,1,"PAH", 1,1,130,0)
  3129                                                                  Ne w/Modified /
  3130   "PKG",48,2 2,1,"PAH", 1,1,131,0)
  3131   HL7 Parame ter Name                                               Deleted     
  3132   "PKG",48,2 2,1,"PAH", 1,1,132,0)
  3133   ---------- --------                                            -- ---------- -
  3134   "PKG",48,2 2,1,"PAH", 1,1,133,0)
  3135   N/A
  3136   "PKG",48,2 2,1,"PAH", 1,1,134,0)
  3137    
  3138   "PKG",48,2 2,1,"PAH", 1,1,135,0)
  3139    
  3140   "PKG",48,2 2,1,"PAH", 1,1,136,0)
  3141    
  3142   "PKG",48,2 2,1,"PAH", 1,1,137,0)
  3143   HLO Applic ation Regi stry:
  3144   "PKG",48,2 2,1,"PAH", 1,1,138,0)
  3145                                                                  Ne w/Modified /
  3146   "PKG",48,2 2,1,"PAH", 1,1,139,0)
  3147   HLO Regist ry Name                                                Deleted     
  3148   "PKG",48,2 2,1,"PAH", 1,1,140,0)
  3149   ---------- -------                                             -- ---------- -
  3150   "PKG",48,2 2,1,"PAH", 1,1,141,0)
  3151   N/A
  3152   "PKG",48,2 2,1,"PAH", 1,1,142,0)
  3153    
  3154   "PKG",48,2 2,1,"PAH", 1,1,143,0)
  3155    
  3156   "PKG",48,2 2,1,"PAH", 1,1,144,0)
  3157    
  3158   "PKG",48,2 2,1,"PAH", 1,1,145,0)
  3159   Help Frame s Associat ed:
  3160   "PKG",48,2 2,1,"PAH", 1,1,146,0)
  3161                                                                  Ne w/Modified /
  3162   "PKG",48,2 2,1,"PAH", 1,1,147,0)
  3163   Help Frame  Name                                                  Deleted     
  3164   "PKG",48,2 2,1,"PAH", 1,1,148,0)
  3165   ---------- -----                                               -- ---------- -
  3166   "PKG",48,2 2,1,"PAH", 1,1,149,0)
  3167   N/A
  3168   "PKG",48,2 2,1,"PAH", 1,1,150,0)
  3169    
  3170   "PKG",48,2 2,1,"PAH", 1,1,151,0)
  3171    
  3172   "PKG",48,2 2,1,"PAH", 1,1,152,0)
  3173    
  3174   "PKG",48,2 2,1,"PAH", 1,1,153,0)
  3175   Mail Group s Associat ed:
  3176   "PKG",48,2 2,1,"PAH", 1,1,154,0)
  3177                                                                  Ne w/Modified /
  3178   "PKG",48,2 2,1,"PAH", 1,1,155,0)
  3179   Mail Group  Name                                                  Deleted     
  3180   "PKG",48,2 2,1,"PAH", 1,1,156,0)
  3181   ---------- -----                                               -- ---------- -
  3182   "PKG",48,2 2,1,"PAH", 1,1,157,0)
  3183   N/A
  3184   "PKG",48,2 2,1,"PAH", 1,1,158,0)
  3185    
  3186   "PKG",48,2 2,1,"PAH", 1,1,159,0)
  3187    
  3188   "PKG",48,2 2,1,"PAH", 1,1,160,0)
  3189    
  3190   "PKG",48,2 2,1,"PAH", 1,1,161,0)
  3191   Options As sociated:
  3192   "PKG",48,2 2,1,"PAH", 1,1,162,0)
  3193                                                                           
  3194   "PKG",48,2 2,1,"PAH", 1,1,163,0)
  3195   New/Modifi ed/
  3196   "PKG",48,2 2,1,"PAH", 1,1,164,0)
  3197   Option Nam e                                                  Typ e       
  3198   "PKG",48,2 2,1,"PAH", 1,1,165,0)
  3199   Deleted     
  3200   "PKG",48,2 2,1,"PAH", 1,1,166,0)
  3201   ---------- -                                                  --- -     
  3202   "PKG",48,2 2,1,"PAH", 1,1,167,0)
  3203   ---------- ---
  3204   "PKG",48,2 2,1,"PAH", 1,1,168,0)
  3205   CLINICAL S CHEDULING  PROCEDURE  CALLS [SDE CRPC]             Bro ker   MODI FIED
  3206   "PKG",48,2 2,1,"PAH", 1,1,169,0)
  3207   COMPILE AU DIT REPORT  FOR A SEL ECTED                        Rou tine  NEW
  3208   "PKG",48,2 2,1,"PAH", 1,1,170,0)
  3209      DATE [S DEC COMPIL E AUDIT RE PORT]
  3210   "PKG",48,2 2,1,"PAH", 1,1,171,0)
  3211   COMPILE YE STERDAY'S  AUDIT REPO RT [SDEC A UDIT REPOR T JOB] Rou tine  NEW
  3212   "PKG",48,2 2,1,"PAH", 1,1,172,0)
  3213   RELEASE AP POINTMENT  REQUEST LO CKS[SDEC R ELEASE LOC KS]    Rou tine  NEW
  3214   "PKG",48,2 2,1,"PAH", 1,1,173,0)
  3215   SUPERVISOR  MENU [SDS UP]                                     Men u     MODI FIED
  3216   "PKG",48,2 2,1,"PAH", 1,1,174,0)
  3217    
  3218   "PKG",48,2 2,1,"PAH", 1,1,175,0)
  3219    
  3220   "PKG",48,2 2,1,"PAH", 1,1,176,0)
  3221    
  3222   "PKG",48,2 2,1,"PAH", 1,1,177,0)
  3223   Parameter  Definition s:
  3224   "PKG",48,2 2,1,"PAH", 1,1,178,0)
  3225                                                                  Ne w/Modified /
  3226   "PKG",48,2 2,1,"PAH", 1,1,179,0)
  3227   Parameter  Name                                                   Deleted     
  3228   "PKG",48,2 2,1,"PAH", 1,1,180,0)
  3229   ---------- ----                                                -- ---------- -
  3230   "PKG",48,2 2,1,"PAH", 1,1,181,0)
  3231   N/A
  3232   "PKG",48,2 2,1,"PAH", 1,1,182,0)
  3233    
  3234   "PKG",48,2 2,1,"PAH", 1,1,183,0)
  3235    
  3236   "PKG",48,2 2,1,"PAH", 1,1,184,0)
  3237    
  3238   "PKG",48,2 2,1,"PAH", 1,1,185,0)
  3239   Parameter  Template:
  3240   "PKG",48,2 2,1,"PAH", 1,1,186,0)
  3241                                                                  Ne w/Modified /
  3242   "PKG",48,2 2,1,"PAH", 1,1,187,0)
  3243   Template N ame                                                    Deleted     
  3244   "PKG",48,2 2,1,"PAH", 1,1,188,0)
  3245   ---------- ---                                                 -- ---------- -
  3246   "PKG",48,2 2,1,"PAH", 1,1,189,0)
  3247   N/A
  3248   "PKG",48,2 2,1,"PAH", 1,1,190,0)
  3249    
  3250   "PKG",48,2 2,1,"PAH", 1,1,191,0)
  3251    
  3252   "PKG",48,2 2,1,"PAH", 1,1,192,0)
  3253    
  3254   "PKG",48,2 2,1,"PAH", 1,1,193,0)
  3255   Protocols  Associated :
  3256   "PKG",48,2 2,1,"PAH", 1,1,194,0)
  3257                                                                  Ne w/Modified /
  3258   "PKG",48,2 2,1,"PAH", 1,1,195,0)
  3259   Protocol N ame                                                    Deleted     
  3260   "PKG",48,2 2,1,"PAH", 1,1,196,0)
  3261   ---------- ---                                                 -- ---------- -
  3262   "PKG",48,2 2,1,"PAH", 1,1,197,0)
  3263   N/A
  3264   "PKG",48,2 2,1,"PAH", 1,1,198,0)
  3265    
  3266   "PKG",48,2 2,1,"PAH", 1,1,199,0)
  3267    
  3268   "PKG",48,2 2,1,"PAH", 1,1,200,0)
  3269    
  3270   "PKG",48,2 2,1,"PAH", 1,1,201,0)
  3271   Remote Pro cedures As sociated:
  3272   "PKG",48,2 2,1,"PAH", 1,1,202,0)
  3273                                                                  Ne w/Modified /
  3274   "PKG",48,2 2,1,"PAH", 1,1,203,0)
  3275   Remote Pro cedure Nam e                                           Deleted     
  3276   "PKG",48,2 2,1,"PAH", 1,1,204,0)
  3277   ---------- ---------- -                                        -- ---------- -
  3278   "PKG",48,2 2,1,"PAH", 1,1,205,0)
  3279   SDEC ARGET                                                     MO DIFIED
  3280   "PKG",48,2 2,1,"PAH", 1,1,206,0)
  3281   SDEC ARSET                                                     MO DIFIED
  3282   "PKG",48,2 2,1,"PAH", 1,1,207,0)
  3283   SDEC RESCE                                                     NE W
  3284   "PKG",48,2 2,1,"PAH", 1,1,208,0)
  3285   SDEC SUMMG ET2                                                 NE W
  3286   "PKG",48,2 2,1,"PAH", 1,1,209,0)
  3287    
  3288   "PKG",48,2 2,1,"PAH", 1,1,210,0)
  3289    
  3290   "PKG",48,2 2,1,"PAH", 1,1,211,0)
  3291    
  3292   "PKG",48,2 2,1,"PAH", 1,1,212,0)
  3293   Security K eys Associ ated:
  3294   "PKG",48,2 2,1,"PAH", 1,1,213,0)
  3295                                                                  Ne w/Modified /
  3296   "PKG",48,2 2,1,"PAH", 1,1,214,0)
  3297   Security K ey Name                                                Deleted     
  3298   "PKG",48,2 2,1,"PAH", 1,1,215,0)
  3299   ---------- -------                                             -- ---------- -
  3300   "PKG",48,2 2,1,"PAH", 1,1,216,0)
  3301   N/A
  3302   "PKG",48,2 2,1,"PAH", 1,1,217,0)
  3303    
  3304   "PKG",48,2 2,1,"PAH", 1,1,218,0)
  3305    
  3306   "PKG",48,2 2,1,"PAH", 1,1,219,0)
  3307    
  3308   "PKG",48,2 2,1,"PAH", 1,1,220,0)
  3309   Templates,  Input Ass ociated:
  3310   "PKG",48,2 2,1,"PAH", 1,1,221,0)
  3311                                                                  Ne w/Modified /
  3312   "PKG",48,2 2,1,"PAH", 1,1,222,0)
  3313   Template N ame      T ype      F ile Name ( Number)               Deleted     
  3314   "PKG",48,2 2,1,"PAH", 1,1,223,0)
  3315   ---------- ---      - ---      - ---------- -------            -- ---------- -
  3316   "PKG",48,2 2,1,"PAH", 1,1,224,0)
  3317   N/A
  3318   "PKG",48,2 2,1,"PAH", 1,1,225,0)
  3319    
  3320   "PKG",48,2 2,1,"PAH", 1,1,226,0)
  3321    
  3322   "PKG",48,2 2,1,"PAH", 1,1,227,0)
  3323    
  3324   "PKG",48,2 2,1,"PAH", 1,1,228,0)
  3325   Templates,  List Asso ciated:
  3326   "PKG",48,2 2,1,"PAH", 1,1,229,0)
  3327                                                                  Ne w/Modified /
  3328   "PKG",48,2 2,1,"PAH", 1,1,230,0)
  3329   Template N ame      T ype                                         Deleted     
  3330   "PKG",48,2 2,1,"PAH", 1,1,231,0)
  3331   ---------- ---      - ---                                      -- ---------- -
  3332   "PKG",48,2 2,1,"PAH", 1,1,232,0)
  3333   N/A
  3334   "PKG",48,2 2,1,"PAH", 1,1,233,0)
  3335    
  3336   "PKG",48,2 2,1,"PAH", 1,1,234,0)
  3337    
  3338   "PKG",48,2 2,1,"PAH", 1,1,235,0)
  3339    
  3340   "PKG",48,2 2,1,"PAH", 1,1,236,0)
  3341   Templates,  Print Ass ociated:
  3342   "PKG",48,2 2,1,"PAH", 1,1,237,0)
  3343                                                                     New/Modifi ed/
  3344   "PKG",48,2 2,1,"PAH", 1,1,238,0)
  3345   Template N ame          Type  Fi le Name (N umber)                   Deleted     
  3346   "PKG",48,2 2,1,"PAH", 1,1,239,0)
  3347   ---------- ---          ----  -- ---------- ------                ---------- ---
  3348   "PKG",48,2 2,1,"PAH", 1,1,240,0)
  3349   SDEC AUDIT  DATE PRIN T Print SD EC AUDIT S TATISTICS  (#409.97)  NEW
  3350   "PKG",48,2 2,1,"PAH", 1,1,241,0)
  3351    
  3352   "PKG",48,2 2,1,"PAH", 1,1,242,0)
  3353    
  3354   "PKG",48,2 2,1,"PAH", 1,1,243,0)
  3355    
  3356   "PKG",48,2 2,1,"PAH", 1,1,244,0)
  3357   Templates,  Sort Asso ciated:
  3358   "PKG",48,2 2,1,"PAH", 1,1,245,0)
  3359                                                                        
  3360   "PKG",48,2 2,1,"PAH", 1,1,246,0)
  3361   New/Modifi ed/
  3362   "PKG",48,2 2,1,"PAH", 1,1,247,0)
  3363   Template N ame              Type  File Name  (Number)                   
  3364   "PKG",48,2 2,1,"PAH", 1,1,248,0)
  3365   Deleted     
  3366   "PKG",48,2 2,1,"PAH", 1,1,249,0)
  3367   ---------- ---              ----  --------- ---------                
  3368   "PKG",48,2 2,1,"PAH", 1,1,250,0)
  3369   ---------- ---
  3370   "PKG",48,2 2,1,"PAH", 1,1,251,0)
  3371   SDEC AUDIT  REPORT BY  DATE Sort  SDEC AUDI T STATISTI CS (#409.9 7) NEW
  3372   "PKG",48,2 2,1,"PAH", 1,1,252,0)
  3373    
  3374   "PKG",48,2 2,1,"PAH", 1,1,253,0)
  3375    
  3376   "PKG",48,2 2,1,"PAH", 1,1,254,0)
  3377   Additional  Informati on:
  3378   "PKG",48,2 2,1,"PAH", 1,1,255,0)
  3379   N/A
  3380   "PKG",48,2 2,1,"PAH", 1,1,256,0)
  3381    
  3382   "PKG",48,2 2,1,"PAH", 1,1,257,0)
  3383    
  3384   "PKG",48,2 2,1,"PAH", 1,1,258,0)
  3385   New Servic e Requests  (NSRs)
  3386   "PKG",48,2 2,1,"PAH", 1,1,259,0)
  3387   ---------- ---------- --------  
  3388   "PKG",48,2 2,1,"PAH", 1,1,260,0)
  3389   N/A
  3390   "PKG",48,2 2,1,"PAH", 1,1,261,0)
  3391    
  3392   "PKG",48,2 2,1,"PAH", 1,1,262,0)
  3393    
  3394   "PKG",48,2 2,1,"PAH", 1,1,263,0)
  3395   Patient Sa fety Issue s (PSIs)
  3396   "PKG",48,2 2,1,"PAH", 1,1,264,0)
  3397   ---------- ---------- ---------
  3398   "PKG",48,2 2,1,"PAH", 1,1,265,0)
  3399   N/A
  3400   "PKG",48,2 2,1,"PAH", 1,1,266,0)
  3401    
  3402   "PKG",48,2 2,1,"PAH", 1,1,267,0)
  3403    
  3404   "PKG",48,2 2,1,"PAH", 1,1,268,0)
  3405   Service De sk Manager  (SDM) Tic ket(s) & O verview
  3406   "PKG",48,2 2,1,"PAH", 1,1,269,0)
  3407   ---------- ---------- ---------- ---------- -------
  3408   "PKG",48,2 2,1,"PAH", 1,1,270,0)
  3409   1. R181207 03FY18  Ca ncel Audit  Data Erro r after se lecting AL L in Audit  
  3410   "PKG",48,2 2,1,"PAH", 1,1,271,0)
  3411   Report
  3412   "PKG",48,2 2,1,"PAH", 1,1,272,0)
  3413     
  3414   "PKG",48,2 2,1,"PAH", 1,1,273,0)
  3415   Problem:
  3416   "PKG",48,2 2,1,"PAH", 1,1,274,0)
  3417   -------
  3418   "PKG",48,2 2,1,"PAH", 1,1,275,0)
  3419   In the Aud it Report,  when the  user choos es ALL in  order to r un the rep ort 
  3420   "PKG",48,2 2,1,"PAH", 1,1,276,0)
  3421   for
  3422   "PKG",48,2 2,1,"PAH", 1,1,277,0)
  3423   all schedu lers, the  system han gs for sev eral minut es attempt ing to loa
  3424   "PKG",48,2 2,1,"PAH", 1,1,278,0)
  3425   data,
  3426   "PKG",48,2 2,1,"PAH", 1,1,279,0)
  3427   then final ly returns  an RPCExc eption whe n the conn ection tim es out. Th is 
  3428   "PKG",48,2 2,1,"PAH", 1,1,280,0)
  3429   also
  3430   "PKG",48,2 2,1,"PAH", 1,1,281,0)
  3431   terminate' s the user 's connect ion to Vis tA until t hey close  and reopen  VS 
  3432   "PKG",48,2 2,1,"PAH", 1,1,282,0)
  3433   GUI. 
  3434   "PKG",48,2 2,1,"PAH", 1,1,283,0)
  3435    
  3436   "PKG",48,2 2,1,"PAH", 1,1,284,0)
  3437   Resolution :
  3438   "PKG",48,2 2,1,"PAH", 1,1,285,0)
  3439   ----------
  3440   "PKG",48,2 2,1,"PAH", 1,1,286,0)
  3441   The data f or the Aud it Report  is now com piled by a  nightly j ob so that  
  3442   "PKG",48,2 2,1,"PAH", 1,1,287,0)
  3443   much
  3444   "PKG",48,2 2,1,"PAH", 1,1,288,0)
  3445   less data  needs to b e transmit ted to the  client in  order to  use the 
  3446   "PKG",48,2 2,1,"PAH", 1,1,289,0)
  3447   report.
  3448   "PKG",48,2 2,1,"PAH", 1,1,290,0)
  3449   Users will  now be ab le to run  the report  for all s chedulers  without
  3450   "PKG",48,2 2,1,"PAH", 1,1,291,0)
  3451   encounteri ng the tim eout.
  3452   "PKG",48,2 2,1,"PAH", 1,1,292,0)
  3453    
  3454   "PKG",48,2 2,1,"PAH", 1,1,293,0)
  3455   2. R178569 00FY18, R1 8564968FY1 8, R186483 21FY18 Rea ctivating  completed 
  3456   "PKG",48,2 2,1,"PAH", 1,1,294,0)
  3457   consults
  3458   "PKG",48,2 2,1,"PAH", 1,1,295,0)
  3459     
  3460   "PKG",48,2 2,1,"PAH", 1,1,296,0)
  3461   Problem:
  3462   "PKG",48,2 2,1,"PAH", 1,1,297,0)
  3463   -------
  3464   "PKG",48,2 2,1,"PAH", 1,1,298,0)
  3465   If an appo intment is  created f or a consu lt, then t he consult  is marked  as
  3466   "PKG",48,2 2,1,"PAH", 1,1,299,0)
  3467   complete,  then final ly the app ointment i s canceled , the cons ult return
  3468   "PKG",48,2 2,1,"PAH", 1,1,300,0)
  3469   to the
  3470   "PKG",48,2 2,1,"PAH", 1,1,301,0)
  3471   active sta tus instea d of remai ning compl ete. 
  3472   "PKG",48,2 2,1,"PAH", 1,1,302,0)
  3473    
  3474   "PKG",48,2 2,1,"PAH", 1,1,303,0)
  3475   Resolution :
  3476   "PKG",48,2 2,1,"PAH", 1,1,304,0)
  3477   ----------
  3478   "PKG",48,2 2,1,"PAH", 1,1,305,0)
  3479   In this si tuation, t he consult  will now  remain in  the comple te status.
  3480   "PKG",48,2 2,1,"PAH", 1,1,306,0)
  3481    
  3482   "PKG",48,2 2,1,"PAH", 1,1,307,0)
  3483   3. R174153 67FY18 Inc orrect loc k handling  in RM Gri d
  3484   "PKG",48,2 2,1,"PAH", 1,1,308,0)
  3485     
  3486   "PKG",48,2 2,1,"PAH", 1,1,309,0)
  3487   Problem:
  3488   "PKG",48,2 2,1,"PAH", 1,1,310,0)
  3489   -------
  3490   "PKG",48,2 2,1,"PAH", 1,1,311,0)
  3491   When a use r selects  a request  in the RM  grid, the  request is  locked un til
  3492   "PKG",48,2 2,1,"PAH", 1,1,312,0)
  3493   another re quest is s elected. I f the user  exits the  program,  the lock i
  3494   "PKG",48,2 2,1,"PAH", 1,1,313,0)
  3495   not
  3496   "PKG",48,2 2,1,"PAH", 1,1,314,0)
  3497   released.  If a VistA  user trie s to use t he previou sly locked  request,  they
  3498   "PKG",48,2 2,1,"PAH", 1,1,315,0)
  3499   will be pr evented fr om doing s o. (To exa cerbate th is, the GU I was not 
  3500   "PKG",48,2 2,1,"PAH", 1,1,316,0)
  3501   handling
  3502   "PKG",48,2 2,1,"PAH", 1,1,317,0)
  3503   locks corr ectly and  would give  the lock  to any use r that tri ed to get  it 
  3504   "PKG",48,2 2,1,"PAH", 1,1,318,0)
  3505   even
  3506   "PKG",48,2 2,1,"PAH", 1,1,319,0)
  3507   if another  user held  the lock,  so this i ssue was n ot visible  to GUI
  3508   "PKG",48,2 2,1,"PAH", 1,1,320,0)
  3509   users.)
  3510   "PKG",48,2 2,1,"PAH", 1,1,321,0)
  3511    
  3512   "PKG",48,2 2,1,"PAH", 1,1,322,0)
  3513   Resolution :
  3514   "PKG",48,2 2,1,"PAH", 1,1,323,0)
  3515   ----------
  3516   "PKG",48,2 2,1,"PAH", 1,1,324,0)
  3517   The reques t that a u ser had lo cked when  they log o ut is now  unlocked
  3518   "PKG",48,2 2,1,"PAH", 1,1,325,0)
  3519   correctly.  In additi on, if a u ser tries  to work a  request in  the GUI t hat
  3520   "PKG",48,2 2,1,"PAH", 1,1,326,0)
  3521   another us er has loc ked, they  will recei ve a messa ge that th e request  is
  3522   "PKG",48,2 2,1,"PAH", 1,1,327,0)
  3523   locked and  which use r holds th e lock. Fi nally, a V istA optio n on the
  3524   "PKG",48,2 2,1,"PAH", 1,1,328,0)
  3525   Supervisor  menu has  been added  that will  release a ll locks h eld by a u ser.
  3526   "PKG",48,2 2,1,"PAH", 1,1,329,0)
  3527       
  3528   "PKG",48,2 2,1,"PAH", 1,1,330,0)
  3529   4. R170391 75FY18 Con sult looku p interact ion errors
  3530   "PKG",48,2 2,1,"PAH", 1,1,331,0)
  3531    
  3532   "PKG",48,2 2,1,"PAH", 1,1,332,0)
  3533   Problem:
  3534   "PKG",48,2 2,1,"PAH", 1,1,333,0)
  3535   -------
  3536   "PKG",48,2 2,1,"PAH", 1,1,334,0)
  3537   When using  clinic lo okup in th e VS GUI,  if the use r pauses t yping, the  
  3538   "PKG",48,2 2,1,"PAH", 1,1,335,0)
  3539   input 
  3540   "PKG",48,2 2,1,"PAH", 1,1,336,0)
  3541   is wiped o ut and has  to be re- entered. A  pop-up wi ndow appea rs if the 
  3542   "PKG",48,2 2,1,"PAH", 1,1,337,0)
  3543   user's 
  3544   "PKG",48,2 2,1,"PAH", 1,1,338,0)
  3545   input resu lts in mor e than 50  matches an d the inpu t is erase d. In 
  3546   "PKG",48,2 2,1,"PAH", 1,1,339,0)
  3547   addtion, 
  3548   "PKG",48,2 2,1,"PAH", 1,1,340,0)
  3549   the user c annot refi ne the lis t of clini cs returne d by typin g addition al 
  3550   "PKG",48,2 2,1,"PAH", 1,1,341,0)
  3551   characters .
  3552   "PKG",48,2 2,1,"PAH", 1,1,342,0)
  3553    
  3554   "PKG",48,2 2,1,"PAH", 1,1,343,0)
  3555   Resolution :
  3556   "PKG",48,2 2,1,"PAH", 1,1,344,0)
  3557   ----------
  3558   "PKG",48,2 2,1,"PAH", 1,1,345,0)
  3559   GUI change s made, el iminating  the pop-up  window an d respondi ng to the 
  3560   "PKG",48,2 2,1,"PAH", 1,1,346,0)
  3561   user's
  3562   "PKG",48,2 2,1,"PAH", 1,1,347,0)
  3563   input incl uding narr owing the  list of re turned val ues when e ach additi onal
  3564   "PKG",48,2 2,1,"PAH", 1,1,348,0)
  3565   character  is entered . A new RP C was crea ted for th e GUI to s upport thi s
  3566   "PKG",48,2 2,1,"PAH", 1,1,349,0)
  3567   change. Th e new RPC  returns a  more limit ed amount  of data so  that the
  3568   "PKG",48,2 2,1,"PAH", 1,1,350,0)
  3569   GUI can re spond more  quickly t o the user 's input.
  3570   "PKG",48,2 2,1,"PAH", 1,1,351,0)
  3571    
  3572   "PKG",48,2 2,1,"PAH", 1,1,352,0)
  3573   5. R184776 70FY18 Rem ote facili ty not upd ated when  appointmen ts made fo
  3574   "PKG",48,2 2,1,"PAH", 1,1,353,0)
  3575   IFCs
  3576   "PKG",48,2 2,1,"PAH", 1,1,354,0)
  3577    
  3578   "PKG",48,2 2,1,"PAH", 1,1,355,0)
  3579   Problem:
  3580   "PKG",48,2 2,1,"PAH", 1,1,356,0)
  3581   -------
  3582   "PKG",48,2 2,1,"PAH", 1,1,357,0)
  3583   When sched uling an a ppointment  for an IF C, the rem ote facili ty is not 
  3584   "PKG",48,2 2,1,"PAH", 1,1,358,0)
  3585   notified.
  3586   "PKG",48,2 2,1,"PAH", 1,1,359,0)
  3587   RPC code f or VS GUI  did not in clude func tionality  in VistA S cheduling  for 
  3588   "PKG",48,2 2,1,"PAH", 1,1,360,0)
  3589   the 
  3590   "PKG",48,2 2,1,"PAH", 1,1,361,0)
  3591   generation  of IFC no tification s.
  3592   "PKG",48,2 2,1,"PAH", 1,1,362,0)
  3593    
  3594   "PKG",48,2 2,1,"PAH", 1,1,363,0)
  3595   Resolution :
  3596   "PKG",48,2 2,1,"PAH", 1,1,364,0)
  3597   ----------
  3598   "PKG",48,2 2,1,"PAH", 1,1,365,0)
  3599   Modified t he RPC cod e to call  a VistA Sc heduling A PI that ge nerates IF
  3600   "PKG",48,2 2,1,"PAH", 1,1,366,0)
  3601   notificati ons.
  3602   "PKG",48,2 2,1,"PAH", 1,1,367,0)
  3603    
  3604   "PKG",48,2 2,1,"PAH", 1,1,368,0)
  3605   Test Sites :
  3606   "PKG",48,2 2,1,"PAH", 1,1,369,0)
  3607   ----------
  3608   "PKG",48,2 2,1,"PAH", 1,1,370,0)
  3609   TBA
  3610   "PKG",48,2 2,1,"PAH", 1,1,371,0)
  3611    
  3612   "PKG",48,2 2,1,"PAH", 1,1,372,0)
  3613    
  3614   "PKG",48,2 2,1,"PAH", 1,1,373,0)
  3615   Documentat ion Retrie val Instru ctions
  3616   "PKG",48,2 2,1,"PAH", 1,1,374,0)
  3617   ---------- ---------- ---------- ------ 
  3618   "PKG",48,2 2,1,"PAH", 1,1,375,0)
  3619   Updated do cumentatio n describi ng the new  functiona lity intro duced by t his 
  3620   "PKG",48,2 2,1,"PAH", 1,1,376,0)
  3621   patch is a vailable.
  3622   "PKG",48,2 2,1,"PAH", 1,1,377,0)
  3623    
  3624   "PKG",48,2 2,1,"PAH", 1,1,378,0)
  3625   The prefer red method  is to FTP  the files  from 
  3626   "PKG",48,2 2,1,"PAH", 1,1,379,0)
  3627   DNS.URL/.
  3628   "PKG",48,2 2,1,"PAH", 1,1,380,0)
  3629   This trans mits the f iles from  the first  available  FTP server . Sites ma
  3630   "PKG",48,2 2,1,"PAH", 1,1,381,0)
  3631   also elect  to retrie ve softwar e directly  from a sp ecific ser ver as 
  3632   "PKG",48,2 2,1,"PAH", 1,1,382,0)
  3633   follows:
  3634   "PKG",48,2 2,1,"PAH", 1,1,383,0)
  3635    .DNS      .URL        >
  3636   "PKG",48,2 2,1,"PAH", 1,1,385,0) DNS.URL         >
       
       
       
  3637   "PKG",48,2 2,1,"PAH", 1,1,386,0)
  3638    
  3639   "PKG",48,2 2,1,"PAH", 1,1,387,0)
  3640   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  3641   "PKG",48,2 2,1,"PAH", 1,1,388,0)
  3642   at:
  3643   "PKG",48,2 2,1,"PAH", 1,1,389,0)
  3644   http:// DNS.URL              /
  3645   "PKG",48,2 2,1,"PAH", 1,1,390,0)
  3646    
  3647   "PKG",48,2 2,1,"PAH", 1,1,391,0)
  3648   Title                                              Fil e Name           FTP  Mode
  3649   "PKG",48,2 2,1,"PAH", 1,1,392,0)
  3650   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  3651   "PKG",48,2 2,1,"PAH", 1,1,393,0)
  3652   VistA Sche duling Enh ancements  GUI User G uide   VSE _VA_GUI_UG .PDF  Bina ry
  3653   "PKG",48,2 2,1,"PAH", 1,1,394,0)
  3654   VistA Sche duling Enh ancements  Technical  Manual VSE _TM.PDF          Bina ry
  3655   "PKG",48,2 2,1,"PAH", 1,1,395,0)
  3656    
  3657   "PKG",48,2 2,1,"PAH", 1,1,396,0)
  3658    
  3659   "PKG",48,2 2,1,"PAH", 1,1,397,0)
  3660   Patch Inst allation:
  3661   "PKG",48,2 2,1,"PAH", 1,1,398,0)
  3662    
  3663   "PKG",48,2 2,1,"PAH", 1,1,399,0)
  3664    
  3665   "PKG",48,2 2,1,"PAH", 1,1,400,0)
  3666   Pre/Post I nstallatio n Overview
  3667   "PKG",48,2 2,1,"PAH", 1,1,401,0)
  3668   ---------- ---------- ----------
  3669   "PKG",48,2 2,1,"PAH", 1,1,402,0)
  3670   Post-insta llation, t here are 3  tasks: 1)  re-index  the SDEC C ONTACT fil e,
  3671   "PKG",48,2 2,1,"PAH", 1,1,403,0)
  3672   2) schedul e the audi t statisti cs compile r to run e arly each  morning in  
  3673   "PKG",48,2 2,1,"PAH", 1,1,404,0)
  3674   TaskMan an d 3) compi le enough  previous a udit stati stics for  reporting 
  3675   "PKG",48,2 2,1,"PAH", 1,1,405,0)
  3676   users.
  3677   "PKG",48,2 2,1,"PAH", 1,1,406,0)
  3678   These task s will be  detailed i n the Post -Installat ion Instru ctions 
  3679   "PKG",48,2 2,1,"PAH", 1,1,407,0)
  3680   section.
  3681   "PKG",48,2 2,1,"PAH", 1,1,408,0)
  3682     
  3683   "PKG",48,2 2,1,"PAH", 1,1,409,0)
  3684   Installati on Instruc tions
  3685   "PKG",48,2 2,1,"PAH", 1,1,410,0)
  3686   ---------- ---------- -----
  3687   "PKG",48,2 2,1,"PAH", 1,1,411,0)
  3688   Install Ti me - less  than 5 min utes.
  3689   "PKG",48,2 2,1,"PAH", 1,1,412,0)
  3690       
  3691   "PKG",48,2 2,1,"PAH", 1,1,413,0)
  3692      1. Use  the INSTAL L/CHECK ME SSAGE opti on on the  PackMan me nu.
  3693   "PKG",48,2 2,1,"PAH", 1,1,414,0)
  3694      
  3695   "PKG",48,2 2,1,"PAH", 1,1,415,0)
  3696      2. From  the Kerne l Installa tion & Dis tribution  System men u, select
  3697   "PKG",48,2 2,1,"PAH", 1,1,416,0)
  3698         the  Installati on menu.
  3699   "PKG",48,2 2,1,"PAH", 1,1,417,0)
  3700      
  3701   "PKG",48,2 2,1,"PAH", 1,1,418,0)
  3702      3. From  this menu , you may  select to  use the fo llowing op tions
  3703   "PKG",48,2 2,1,"PAH", 1,1,419,0)
  3704         (whe n prompted  for INSTA LL NAME, e nter SD*5. 3*686):
  3705   "PKG",48,2 2,1,"PAH", 1,1,420,0)
  3706              a.  Verify  Checksums  in Transp ort Global  - This op tion will 
  3707   "PKG",48,2 2,1,"PAH", 1,1,421,0)
  3708   allow
  3709   "PKG",48,2 2,1,"PAH", 1,1,422,0)
  3710                  you to  ensure th e integrit y of the r outines th at are in  the
  3711   "PKG",48,2 2,1,"PAH", 1,1,423,0)
  3712                  transp ort global .
  3713   "PKG",48,2 2,1,"PAH", 1,1,424,0)
  3714              b.  Print  Transport  Global - T his option  will allo w you to v iew
  3715   "PKG",48,2 2,1,"PAH", 1,1,425,0)
  3716                  the co mponents o f the KIDS  build.
  3717   "PKG",48,2 2,1,"PAH", 1,1,426,0)
  3718              c.  Compar e Transpor t Global t o Current  System - T his option  
  3719   "PKG",48,2 2,1,"PAH", 1,1,427,0)
  3720   will
  3721   "PKG",48,2 2,1,"PAH", 1,1,428,0)
  3722                  allow  you to vie w all chan ges that w ill be mad e when thi
  3723   "PKG",48,2 2,1,"PAH", 1,1,429,0)
  3724                  patch  is install ed.  It co mpares all  component s of this
  3725   "PKG",48,2 2,1,"PAH", 1,1,430,0)
  3726                  patch  (routines,  DD's, tem plates, et c.).
  3727   "PKG",48,2 2,1,"PAH", 1,1,431,0)
  3728              d.  Backup  a Transpo rt Global  - This opt ion will c reate a ba ckup
  3729   "PKG",48,2 2,1,"PAH", 1,1,432,0)
  3730                  messag e of any r outines ex ported wit h this pat ch. It wil
  3731   "PKG",48,2 2,1,"PAH", 1,1,433,0)
  3732   not
  3733   "PKG",48,2 2,1,"PAH", 1,1,434,0)
  3734                  backup  any other  changes s uch as DD' s or templ ates.
  3735   "PKG",48,2 2,1,"PAH", 1,1,435,0)
  3736      
  3737   "PKG",48,2 2,1,"PAH", 1,1,436,0)
  3738      4. Use  the Instal l Package( s) option  and select  the packa ge SD*5.3* 686.
  3739   "PKG",48,2 2,1,"PAH", 1,1,437,0)
  3740      
  3741   "PKG",48,2 2,1,"PAH", 1,1,438,0)
  3742      5. When  prompted  "Want KIDS  to INHIBI T LOGONs d uring the  install? N O//"
  3743   "PKG",48,2 2,1,"PAH", 1,1,439,0)
  3744         resp ond NO.
  3745   "PKG",48,2 2,1,"PAH", 1,1,440,0)
  3746      6. When  prompted  "Want to D ISABLE Sch eduled Opt ions, Menu  Options,  and
  3747   "PKG",48,2 2,1,"PAH", 1,1,441,0)
  3748         Prot ocols? NO/ /", respon d NO
  3749   "PKG",48,2 2,1,"PAH", 1,1,442,0)
  3750    
  3751   "PKG",48,2 2,1,"PAH", 1,1,443,0)
  3752   Post-Insta llation In structions
  3753   "PKG",48,2 2,1,"PAH", 1,1,444,0)
  3754   ---------- ---------- ----------
  3755   "PKG",48,2 2,1,"PAH", 1,1,445,0)
  3756   1.  RE-IND EX THE SDE C CONTACT  FILE
  3757   "PKG",48,2 2,1,"PAH", 1,1,446,0)
  3758       ------ ---------- ---------- ----
  3759   "PKG",48,2 2,1,"PAH", 1,1,447,0)
  3760       VA Fil eMan 22.2
  3761   "PKG",48,2 2,1,"PAH", 1,1,448,0)
  3762         
  3763   "PKG",48,2 2,1,"PAH", 1,1,449,0)
  3764       Select  OPTION: U TILITY FUN CTIONS  
  3765   "PKG",48,2 2,1,"PAH", 1,1,450,0)
  3766                       - ---
  3767   "PKG",48,2 2,1,"PAH", 1,1,451,0)
  3768           
  3769   "PKG",48,2 2,1,"PAH", 1,1,452,0)
  3770       Select  UTILITY O PTION: 4   RE-INDEX F ILE
  3771   "PKG",48,2 2,1,"PAH", 1,1,453,0)
  3772                                -
  3773   "PKG",48,2 2,1,"PAH", 1,1,454,0)
  3774        
  3775   "PKG",48,2 2,1,"PAH", 1,1,455,0)
  3776       MODIFY  WHAT FILE : SD Audit  Statistic s// 409.86   SDEC CON TACT
  3777   "PKG",48,2 2,1,"PAH", 1,1,456,0)
  3778                                                   ------
  3779   "PKG",48,2 2,1,"PAH", 1,1,457,0)
  3780                                                     (0 e ntries)
  3781   "PKG",48,2 2,1,"PAH", 1,1,458,0)
  3782        
  3783   "PKG",48,2 2,1,"PAH", 1,1,459,0)
  3784       THERE  ARE 3 INDI CES WITHIN  THIS FILE
  3785   "PKG",48,2 2,1,"PAH", 1,1,460,0)
  3786       DO YOU  WISH TO R E-CROSS-RE FERENCE ON E PARTICUL AR INDEX?  No// Y  (Y es)
  3787   "PKG",48,2 2,1,"PAH", 1,1,461,0)
  3788                                                                          -
  3789   "PKG",48,2 2,1,"PAH", 1,1,462,0)
  3790        
  3791   "PKG",48,2 2,1,"PAH", 1,1,463,0)
  3792       What t ype of cro ss-referen ce (Tradit ional or N ew)? Tradi tional// N EW
  3793   "PKG",48,2 2,1,"PAH", 1,1,464,0)
  3794                                                                              - --
  3795   "PKG",48,2 2,1,"PAH", 1,1,465,0)
  3796        
  3797   "PKG",48,2 2,1,"PAH", 1,1,466,0)
  3798                  File:  SDEC CONTA CT (#409.8 6)
  3799   "PKG",48,2 2,1,"PAH", 1,1,467,0)
  3800       Select  Subfile:  3  DATE/TI ME of CONT ACT  (Subf ile #409.8 63)
  3801   "PKG",48,2 2,1,"PAH", 1,1,468,0)
  3802                         -
  3803   "PKG",48,2 2,1,"PAH", 1,1,469,0)
  3804        
  3805   "PKG",48,2 2,1,"PAH", 1,1,470,0)
  3806       Curren t Indexes  on subfile  #409.863:
  3807   "PKG",48,2 2,1,"PAH", 1,1,471,0)
  3808         1404    'AD' wh ole file i ndex (resi des on fil e #409.86)
  3809   "PKG",48,2 2,1,"PAH", 1,1,472,0)
  3810        
  3811   "PKG",48,2 2,1,"PAH", 1,1,473,0)
  3812       Which  Index do y ou wish to  re-cross- reference?  1404//    AD
  3813   "PKG",48,2 2,1,"PAH", 1,1,474,0)
  3814                                                                     --
  3815   "PKG",48,2 2,1,"PAH", 1,1,475,0)
  3816        
  3817   "PKG",48,2 2,1,"PAH", 1,1,476,0)
  3818       Do you  want to d elete the  existing ' AD' cross- reference?  YES
  3819   "PKG",48,2 2,1,"PAH", 1,1,477,0)
  3820                                                                      ---
  3821   "PKG",48,2 2,1,"PAH", 1,1,478,0)
  3822       Do you  want to r e-build th e 'AD' cro ss referen ce? YES  . ..DONE! 
  3823   "PKG",48,2 2,1,"PAH", 1,1,479,0)
  3824                                                              ---
  3825   "PKG",48,2 2,1,"PAH", 1,1,480,0)
  3826    
  3827   "PKG",48,2 2,1,"PAH", 1,1,481,0)
  3828   2.  SCHEDU LE THE AUD IT REPORT  JOB
  3829   "PKG",48,2 2,1,"PAH", 1,1,482,0)
  3830       ------ ---------- ---------- ---
  3831   "PKG",48,2 2,1,"PAH", 1,1,483,0)
  3832       Access  the TASKM AN MANAGEM ENT option  then sele ct Schedul e/Unschedu le 
  3833   "PKG",48,2 2,1,"PAH", 1,1,484,0)
  3834       option s. Schedul e the SDEC  AUDIT REP ORT JOB op tion to ru n at some 
  3835   "PKG",48,2 2,1,"PAH", 1,1,485,0)
  3836   point 
  3837   "PKG",48,2 2,1,"PAH", 1,1,486,0)
  3838       in the  early mor ning tomor row (such  as 1:00 am ) with a r eschedulin g
  3839   "PKG",48,2 2,1,"PAH", 1,1,487,0)
  3840       freque ncy of one  day (1D).
  3841   "PKG",48,2 2,1,"PAH", 1,1,488,0)
  3842    
  3843   "PKG",48,2 2,1,"PAH", 1,1,489,0)
  3844   3.  COMPIL E DATA FOR  THE AUDIT  REPORT
  3845   "PKG",48,2 2,1,"PAH", 1,1,490,0)
  3846       ------ ---------- ---------- -------
  3847   "PKG",48,2 2,1,"PAH", 1,1,491,0)
  3848       Access  the SDEC  COMPILE AU DIT REPORT  option. E nter the d ate range 
  3849   "PKG",48,2 2,1,"PAH", 1,1,492,0)
  3850   that 
  3851   "PKG",48,2 2,1,"PAH", 1,1,493,0)
  3852       you wa nt to be a ble to rep ort statis tics for.   
  3853   "PKG",48,2 2,1,"PAH", 1,1,494,0)
  3854    
  3855   "PKG",48,2 2,1,"PAH", 1,1,495,0)
  3856       NOTE:  You can ru n the opti on as many  times as  needed to  compile th e
  3857   "PKG",48,2 2,1,"PAH", 1,1,496,0)
  3858       report  statistic s. Compili ng will be  skipped i f it has a lready bee
  3859   "PKG",48,2 2,1,"PAH", 1,1,497,0)
  3860   done
  3861   "PKG",48,2 2,1,"PAH", 1,1,498,0)
  3862       for a  day. It is  recommend ed that yo u compile  a single d ay the fir st 
  3863   "PKG",48,2 2,1,"PAH", 1,1,499,0)
  3864   time
  3865   "PKG",48,2 2,1,"PAH", 1,1,500,0)
  3866       you us e the opti on to gaug e the amou nt of time  required  at your 
  3867   "PKG",48,2 2,1,"PAH", 1,1,501,0)
  3868   facility.
  3869   "PKG",48,2 2,1,"PAH", 1,1,502,0)
  3870       Compil ing audit  statistics  can be do ne at any  time after  installat ion 
  3871   "PKG",48,2 2,1,"PAH", 1,1,503,0)
  3872   that
  3873   "PKG",48,2 2,1,"PAH", 1,1,504,0)
  3874       is con venient, b ut users w ill only b e able to  get data o n the audi t
  3875   "PKG",48,2 2,1,"PAH", 1,1,505,0)
  3876       report  that has  been compi led.
  3877   "QUES","XP F1",0)
  3878   Y
  3879   "QUES","XP F1","??")
  3880   ^D REP^XPD H
  3881   "QUES","XP F1","A")
  3882   Shall I wr ite over y our |FLAG|  File
  3883   "QUES","XP F1","B")
  3884   YES
  3885   "QUES","XP F1","M")
  3886   D XPF1^XPD IQ
  3887   "QUES","XP F2",0)
  3888   Y
  3889   "QUES","XP F2","??")
  3890   ^D DTA^XPD H
  3891   "QUES","XP F2","A")
  3892   Want my da ta |FLAG|  yours
  3893   "QUES","XP F2","B")
  3894   YES
  3895   "QUES","XP F2","M")
  3896   D XPF2^XPD IQ
  3897   "QUES","XP I1",0)
  3898   YO
  3899   "QUES","XP I1","??")
  3900   ^D INHIBIT ^XPDH
  3901   "QUES","XP I1","A")
  3902   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  3903   "QUES","XP I1","B")
  3904   NO
  3905   "QUES","XP I1","M")
  3906   D XPI1^XPD IQ
  3907   "QUES","XP M1",0)
  3908   PO^VA(200, :EM
  3909   "QUES","XP M1","??")
  3910   ^D MG^XPDH
  3911   "QUES","XP M1","A")
  3912   Enter the  Coordinato r for Mail  Group '|F LAG|'
  3913   "QUES","XP M1","B")
  3914  
  3915   "QUES","XP M1","M")
  3916   D XPM1^XPD IQ
  3917   "QUES","XP O1",0)
  3918   Y
  3919   "QUES","XP O1","??")
  3920   ^D MENU^XP DH
  3921   "QUES","XP O1","A")
  3922   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  3923   "QUES","XP O1","B")
  3924   YES
  3925   "QUES","XP O1","M")
  3926   D XPO1^XPD IQ
  3927   "QUES","XP Z1",0)
  3928   Y
  3929   "QUES","XP Z1","??")
  3930   ^D OPT^XPD H
  3931   "QUES","XP Z1","A")
  3932   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  3933   "QUES","XP Z1","B")
  3934   NO
  3935   "QUES","XP Z1","M")
  3936   D XPZ1^XPD IQ
  3937   "QUES","XP Z2",0)
  3938   Y
  3939   "QUES","XP Z2","??")
  3940   ^D RTN^XPD H
  3941   "QUES","XP Z2","A")
  3942   Want to MO VE routine s to other  CPUs
  3943   "QUES","XP Z2","B")
  3944   NO
  3945   "QUES","XP Z2","M")
  3946   D XPZ2^XPD IQ
  3947   "RTN")
  3948   11
  3949   "RTN","SDC NSLT")
  3950   0^9^B45406 127^B41631 358
  3951   "RTN","SDC NSLT",1,0)
  3952   SDCNSLT ;A LB/HAG - L INK APPOIN TMENTS TO  CONSULTS ; JAN 15, 20 16
  3953   "RTN","SDC NSLT",2,0)
  3954    ;;5.3;Sch eduling;** 478,496,63 0,627,686* *;Aug 13,  1993;Build  39
  3955   "RTN","SDC NSLT",3,0)
  3956    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  3957   "RTN","SDC NSLT",4,0)
  3958   A ;===GET  ACTIVE AND  PENDING C ONSULT
  3959   "RTN","SDC NSLT",5,0)
  3960    N A,ND,CN T,CONS,CPR STAT,DTENT R,DTIN,DTL MT,DTR,NOS ,NOSHOW,SE NDER,SERVI CE,SRV,P8, PROC,PT,PT NM,STATUS
  3961   "RTN","SDC NSLT",6,0)
  3962    K TMP S N OSHOW="no- show",CNT= 0,$P(DSH," -",IOM-1)= "",PT=DFN, X1=DT,X2=- 365 D C^%D TC S DTLMT =X
  3963   "RTN","SDC NSLT",7,0)
  3964    S A=":" F   S A=$O(^ GMR(123,"F ",PT,A),-1 ) Q:'+A  S  ND=$G(^GM R(123,A,0) ) Q:ND=""   S PROC=$P ($G(^GMR(1 23,A,1.11) ),U),DTENT R=$P(ND,U)  I DTENTR> DTLMT S CP RSTAT=$P(N D,U,12) D: CPRSTAT=5! (CPRSTAT=6 )!(CPRSTAT =8)!(CPRST AT=13)
  3965   "RTN","SDC NSLT",8,0)
  3966    .Q:$D(^XT MP("SDECLK C-"_A))  ; do not dis play consu lt if lock ed by VS G UI  ;alb/s at 627
  3967   "RTN","SDC NSLT",9,0)
  3968    .I STPCOD '="" S SRV =$P(ND,U,5 ) Q:'+SRV   I $D(^GMR (123.5,"AB 1",STPCOD, SRV)) S PT IEN=$P(ND, U,2) D
  3969   "RTN","SDC NSLT",10,0 )
  3970    ..I CPRST AT=8 S SHO W=0 Q:$D(^ SC("AWAS1" ,A))  S NO S=$O(^GMR( 123,A,40," :"),-1) Q: '+NOS  S X 2=$P($G(^G MR(123,A,4 0,NOS,0)), U),X1=DT D  ^%DTC Q:X '=""&(X>18 0)  D SCHE D(PTIEN,ST PCOD,.SHOW ) Q:'SHOW
  3971   "RTN","SDC NSLT",11,0 )
  3972    ..;CPRSTA T 13 is a  cancel
  3973   "RTN","SDC NSLT",12,0 )
  3974    ..I CPRST AT=13 S NO S=$O(^GMR( 123,A,40," :"),-1) Q: '+NOS  S N OS=$O(^GMR (123,A,40, NOS),-1) Q :'+NOS  S  X2=$P($G(^ GMR(123,A, 40,NOS,0)) ,U),X1=DT  D ^%DTC Q: X'=""&(X>1 80)  S COM MENT=$G(^G MR(123,A,4 0,NOS,1,1, 0)) Q:COMM ENT'[NOSHO W
  3975   "RTN","SDC NSLT",13,0 )
  3976    ..S:+PTIE N PTNM=$P( ^DPT(PTIEN ,0),U) S S ERVICE=$P( ^GMR(123.5 ,SRV,0),U) ,STATUS=$P (^ORD(100. 01,CPRSTAT ,0),U),SEN DER=$P(ND, U,14) S:+S ENDER SEND ER=$P(^VA( 200,SENDER ,0),U)
  3977   "RTN","SDC NSLT",14,0 )
  3978    ..S Y=DTE NTR D DD^% DT S DTIN= Y,DTR=$E(D TENTR,4,5) _"/"_$E(DT ENTR,6,7)_ "/"_$E(DTE NTR,2,3)_" @"_$P(Y,"@ ",2)
  3979   "RTN","SDC NSLT",15,0 )
  3980    ..S CNT=C NT+1,TMP(C NT)=PTIEN_ U_SERVICE_ U_SENDER_U _STATUS_U_ DTR_U_A_U_ DTIN_U_$P( ND,U,17)_U _PROC
  3981   "RTN","SDC NSLT",16,0 )
  3982    Q:'$D(TMP )
  3983   "RTN","SDC NSLT",17,0 )
  3984   QST N DIR, DTOUT,DUOU T,CNSULT
  3985   "RTN","SDC NSLT",18,0 )
  3986    S DIR(0)= "Y",DIR("A ")="Will t his appoin tment be f or a CONSU LT/PROCEDU RE",DIR("B ")="YES",D IR("?")="A nswer 'Y'e s if appoi ntment is  for a Cons ult or Pro cedure." W  ! D ^DIR  S CNSULT=Y
  3987   "RTN","SDC NSLT",19,0 )
  3988    I CNSULT[ U!(CNSULT= 0)!(CNSULT ="") K TMP  Q
  3989   "RTN","SDC NSLT",20,0 )
  3990   HDR W !!," Please sel ect from t he list of  consult(s ), press 0  for none. ",! ;LLS 0 5-JAN-2015  SD*5.3*63 0
  3991   "RTN","SDC NSLT",21,0 )
  3992    W !,PTNM, !!,"# Serv ice",?68," Cons #",!, DSH ;LLS 0 5-JAN-2015  SD*5.3*63 0
  3993   "RTN","SDC NSLT",22,0 )
  3994    S A=0 F   S A=$O(TMP (A)) Q:'+A   S ND=TMP (A),P8=$P( ND,U,8) D   ;LLS 05-J AN-2015 SD *5.3*630
  3995   "RTN","SDC NSLT",23,0 )
  3996    . W !,A," .",?3,$S(P 8="P":$E($ P(ND,U,9), 1,63),1:$E ($P(ND,U,2 ),1,63)),? 68,$P(ND,U ,6) W !,?4 ,"Request  DT: ",$E($ P(ND,U,5), 1,14),?31, "FROM: ",$ E($P(ND,U, 3),1,33),? 71,"TYPE:  ",$S(P8="P ":"P",P8=" C":"C",1:" ") ;LLS 05 -JAN-2015  SD*5.3*630
  3997   "RTN","SDC NSLT",24,0 )
  3998    W !
  3999   "RTN","SDC NSLT",25,0 )
  4000   READ R !," Select Con sult: ",CO NS:DTIME G :CONS="" A
  4001   "RTN","SDC NSLT",26,0 )
  4002    I CONS=0! (CONS[U) W  " ... NON E." K TMP  Q
  4003   "RTN","SDC NSLT",27,0 )
  4004    I "? "[CO NS W !," S elect cons ult by num ber on the  left side ." G READ
  4005   "RTN","SDC NSLT",28,0 )
  4006    I '$D(TMP (CONS)) W  *7," ?? Se lect consu lt by numb er on the  left side. " G READ
  4007   "RTN","SDC NSLT",29,0 )
  4008    S CNSLTLN K=$P(TMP(C ONS),U,6)
  4009   "RTN","SDC NSLT",30,0 )
  4010    Q
  4011   "RTN","SDC NSLT",31,0 )
  4012   SCHED(PTIE N,STPCOD,S HOW) ;===C ONSULT IS  SCHEDULE N OW CHECK I F IT HAS A PPOINTMENT  BY STOP C ODE.
  4013   "RTN","SDC NSLT",32,0 )
  4014    N APT,CLN C,B,S1,S2, S3,S4,STOP ,STOPCOD,X ,Y
  4015   "RTN","SDC NSLT",33,0 )
  4016    S %DT="ST ",X="T-1"  D ^%DT S A PT=Y,S1=0, STOP=0 F   S APT=$O(^ DPT(PTIEN, "S",APT))  Q:'+APT!(S TOP)  S S1 =1,CLNC=$P (^DPT(PTIE N,"S",APT, 0),U) I CL NC'="" S S TOPCOD=$P( ^SC(CLNC,0 ),U,7) I S TOPCOD'=""  S S2=0 I  STOPCOD=ST PCOD S S2= 1 D
  4017   "RTN","SDC NSLT",34,0 )
  4018    .S S3=0,S 4=0,B=0 F   S B=$O(^S C(CLNC,"S" ,APT,1,B))  Q:'+B!(ST OP)  S S3= 1 D
  4019   "RTN","SDC NSLT",35,0 )
  4020    ..I ($P($ G(^SC(CLNC ,"S",APT,1 ,B,0)),U)= PTIEN) S S 4=1,STOP=1 ,SHOW=0
  4021   "RTN","SDC NSLT",36,0 )
  4022    I S1=0 S  SHOW=1 Q   ;show if n o appointm ent in the  patient s ide
  4023   "RTN","SDC NSLT",37,0 )
  4024    I S2=0 S  SHOW=1 Q   ;show if s top code d oes not ma tch
  4025   "RTN","SDC NSLT",38,0 )
  4026    I S3=0 S  SHOW=1 Q   ;show if n o appointm ent in the  clinic
  4027   "RTN","SDC NSLT",39,0 )
  4028    I S4=0 S  SHOW=1 Q   ;show if p atient doe s not matc h in appoi ntment
  4029   "RTN","SDC NSLT",40,0 )
  4030    Q
  4031   "RTN","SDC NSLT",41,0 )
  4032   LINK(SC,SD Y,SD,CNSLT LNK) ;===L INK APPOIN TMENT TO C ONSULT
  4033   "RTN","SDC NSLT",42,0 )
  4034    N DA,DIE, DR,TDA,X
  4035   "RTN","SDC NSLT",43,0 )
  4036    S TDA=SDY ,DA(2)=SC, DA(1)=SD,D A=TDA,DIE= "^SC("_DA( 2)_",""S"" ,"_DA(1)_" ,1,",DR="6 88////^S X =CNSLTLNK"  D ^DIE
  4037   "RTN","SDC NSLT",44,0 )
  4038    Q
  4039   "RTN","SDC NSLT",45,0 )
  4040   EDITCS(SD, TMPD,TMPYC LNC,CNSLTL NK) ;===MA RK CONSULT  AS SCHEDU LED
  4041   "RTN","SDC NSLT",46,0 )
  4042    N CSCHDT, SNDPRV,TME ,X,Y,COMME NT,ER
  4043   "RTN","SDC NSLT",47,0 )
  4044    S %DT="ST ",X="NOW"  D ^%DT S C SCHDT=Y
  4045   "RTN","SDC NSLT",48,0 )
  4046    S SNDPRV= $P($G(^GMR (123,CNSLT LNK,0)),U, 14),Y=SD D  DD^%DT S  TME=$P($P( Y,"@",2)," :",1,2)
  4047   "RTN","SDC NSLT",49,0 )
  4048    S COMMENT (1)=$P(TMP YCLNC,U,2) _" Consult  Appt. on  "_$E(SD,4, 5)_"/"_$E( SD,6,7)_"/ "_$E(SD,2, 3)_" @ "_T ME
  4049   "RTN","SDC NSLT",50,0 )
  4050    S COMMENT (2)=TMPD
  4051   "RTN","SDC NSLT",51,0 )
  4052    D SCH^SDQ QCN2(.ER,C NSLTLNK,SN DPRV,CSCHD T,0,,.COMM ENT) K COM MENT
  4053   "RTN","SDC NSLT",52,0 )
  4054    Q
  4055   "RTN","SDC NSLT",53,0 )
  4056   SDECCAN(SC LNK,SCSNOD ,SDTTM,SDS C,SDWH,SDP L,SDECNOTE ) ; patch  686 wtc/ze b 3.21.18  cancel con sult appoi ntment.  c alled from  SDEC07A.
  4057   "RTN","SDC NSLT",54,0 )
  4058    S SNDPRV= $P($G(^GMR (123,SCLNK ,0)),U,14)  ;
  4059   "RTN","SDC NSLT",55,0 )
  4060    ;
  4061   "RTN","SDC NSLT",56,0 )
  4062   CANCEL ;== =appt was  cancelled  then mark  consult as  edit/resu bmit, add  comment.
  4063   "RTN","SDC NSLT",57,0 )
  4064    N APPT,CO NSULT,CPRS STAT,ER,GM 40,GMRND,S DPATNT,USE R,SNDPRV,J
  4065   "RTN","SDC NSLT",58,0 )
  4066    ;Variable s CNDIE, C NDA and CN INDX used  in calling  routine f or Cancel  letter pri nted comme nt in cons ult.
  4067   "RTN","SDC NSLT",59,0 )
  4068    ;TMPD is  assumed by  the exist ing code
  4069   "RTN","SDC NSLT",60,0 )
  4070    S:$D(SDEC NOTE) TMPD =SDECNOTE_ $S($D(TMPD ):"; ",1:" ")_$G(TMPD ) ;*zeb 68 6 10/30/18  keep canc el comment  from GUI
  4071   "RTN","SDC NSLT",61,0 )
  4072    S:$D(SCLN K) CONSULT =SCLNK
  4073   "RTN","SDC NSLT",62,0 )
  4074    S:'$D(SCL NK) CONSUL T=$P($G(^S C(SDSC,"S" ,SDTTM,1,S DPL,"CONS" )),U)
  4075   "RTN","SDC NSLT",63,0 )
  4076    Q:'+CONSU LT
  4077   "RTN","SDC NSLT",64,0 )
  4078    S:$D(SCSN OD) SDPATN T=$P(SCSNO D,U)
  4079   "RTN","SDC NSLT",65,0 )
  4080    S:'$D(SCS NOD) SDPAT NT=$P($G(^ SC(SDSC,"S ",SDTTM,1, SDPL,0)),U )
  4081   "RTN","SDC NSLT",66,0 )
  4082    S CPRSSTA T=$P($G(^G MR(123,CON SULT,0)),U ,12) I CPR SSTAT'=""  S CPRSSTAT =$P($G(^OR D(100.01,C PRSSTAT,0) ),U) Q:CPR SSTAT'="SC HEDULED"
  4083   "RTN","SDC NSLT",67,0 )
  4084    S SNDPRV= $P($G(^GMR (123,CONSU LT,0)),U,1 4)
  4085   "RTN","SDC NSLT",68,0 )
  4086    S USER=$P (^VA(200,D UZ,0),U),Y =SDTTM D D D^%DT S AP PT=$E(SDTT M,4,5)_"/" _$E(SDTTM, 6,7)_"/"_$ E(SDTTM,2, 3)_" @ "_$ P(Y,"@",2)
  4087   "RTN","SDC NSLT",69,0 )
  4088    S COMMENT (1)=$P(^SC (SDSC,0),U )_" Appt.  on "_APPT_ " was canc elled"_$S( $D(SDWH):$ S(SDWH["P" :" by the  Patient.", SDWH["C":"  by the Cl inic.",1:" ."),$D(SDA DM):" for  administra tive purpo ses.",1:",  whole cli nic.")
  4089   "RTN","SDC NSLT",70,0 )
  4090    S CNINDX= 2 S:$D(TMP D) COMMENT (2)="Remar ks: "_TMPD ,CNINDX=CN INDX+1 K T MPD,SDECNO TE ;*zeb 6 86 10/30/1 8 clean up  SDECNOTE  in case SD ECCAN not  used
  4091   "RTN","SDC NSLT",71,0 )
  4092    N SDERR S  SDERR=$$S TATUS^GMRC GUIS(CONSU LT,6,3,SND PRV,"","", .COMMENT)
  4093   "RTN","SDC NSLT",72,0 )
  4094    S CNDIE=" ^GMR(123," _CONSULT_" ,40,",CNDA =+$G(COMME NT(0))
  4095   "RTN","SDC NSLT",73,0 )
  4096    K COMMENT ,DA
  4097   "RTN","SDC NSLT",74,0 )
  4098    S AUTO(SD SC,SDTTM,S DPATNT)=CO NSULT
  4099   "RTN","SDC NSLT",75,0 )
  4100    S DA(2)=S DSC,DA(1)= SDTTM,DA=S DPL,DIE="^ SC("_DA(2) _",""S""," _DA(1)_",1 ,",DR="688 ///@" D ^D IE
  4101   "RTN","SDC NSLT",76,0 )
  4102    K SCSNOD, SDADM,SCLN K
  4103   "RTN","SDC NSLT",77,0 )
  4104    Q
  4105   "RTN","SDC NSLT",78,0 )
  4106   AUTOREB(SC ,NDATE,LNK ,CY) ;===A UTO REBOOK
  4107   "RTN","SDC NSLT",79,0 )
  4108    N DIC,DA, DIE,DR,Y,T ME,SNDPRV, CSCHDT,COM MENT,ER
  4109   "RTN","SDC NSLT",80,0 )
  4110    S DA(2)=S C,DA(1)=ND ATE,DA=CY, DIE="^SC(" _DA(2)_"," "S"","_DA( 1)_",1,",D R="688//// ^S X=LNK"  D ^DIE
  4111   "RTN","SDC NSLT",81,0 )
  4112    S Y=NDATE  D DD^%DT  S TME=$P(Y ,"@",2)
  4113   "RTN","SDC NSLT",82,0 )
  4114    S COMMENT (1)=$P(^SC (SC,0),U)_ " Consult  Appt. on " _$E(NDATE, 4,5)_"/"_$ E(NDATE,6, 7)_"/"_$E( NDATE,2,3) _" @ "_TME _" (Auto R ebooked)."
  4115   "RTN","SDC NSLT",83,0 )
  4116    S %DT="ST ",X="NOW"  D ^%DT S C SCHDT=Y
  4117   "RTN","SDC NSLT",84,0 )
  4118    S SNDPRV= $P($G(^GMR (123,LNK,0 )),U,14)
  4119   "RTN","SDC NSLT",85,0 )
  4120    D SCH^SDQ QCN2(.ER,L NK,SNDPRV, CSCHDT,0,, .COMMENT)  K COMMENT
  4121   "RTN","SDC NSLT",86,0 )
  4122    Q
  4123   "RTN","SDC NSLT",87,0 )
  4124   NOSHOW(SC, SDDTM,CNPA T,CNSTLNK, CN,AUTO,NS DIE,NSDA)  ;
  4125   "RTN","SDC NSLT",88,0 )
  4126    ;Appt. wa s a NoShow , then mar k Consult  as Edit/Re submit, ad d comment  using sile nt call to  notify us er.
  4127   "RTN","SDC NSLT",89,0 )
  4128    ;Variable s NSDIE an d NSDA use d in calli ng routine  for NoSho w letter p rinted com ment in co nsult.
  4129   "RTN","SDC NSLT",90,0 )
  4130    N CSNOD,C PRSSTAT,NO SHOW,CSRQS RV,TPRNT,C SPRT,USER, Y,APPT,COM MENT,DA,DI C,DUZ2,DIC ,DR,GM40,G MRND,ER,SN DPRV,J
  4131   "RTN","SDC NSLT",91,0 )
  4132    S CSNOD=$ G(^GMR(123 ,CNSTLNK,0 )),CPRSSTA T=$P(CSNOD ,U,12),SND PRV=$P(CSN OD,U,14),N OSHOW="no- show",AUTO (SC,SDDTM, CNPAT)=CNS TLNK
  4133   "RTN","SDC NSLT",92,0 )
  4134    I CPRSSTA T'="" S CP RSSTAT=$P( $G(^ORD(10 0.01,CPRSS TAT,0)),U)  Q:CPRSSTA T'="SCHEDU LED"
  4135   "RTN","SDC NSLT",93,0 )
  4136    S CSRQSRV =$P(CSNOD, U,5) I CSR QSRV'="" S  TPRNT=$P( $G(^GMR(12 3.5,CSRQSR V,123)),U, 9) I TPRNT '="" S:$P( $G(^%ZIS(1 ,TPRNT,0)) ,U)'="" CS PRT=$P(^(0 ),U) ;repr int consul t
  4137   "RTN","SDC NSLT",94,0 )
  4138    S USER=$P (^VA(200,D UZ,0),U),Y =SDDTM D D D^%DT S AP PT=$E(SDDT M,4,5)_"/" _$E(SDDTM, 6,7)_"/"_$ E(SDDTM,2, 3)_" @ "_$ P(Y,"@",2)
  4139   "RTN","SDC NSLT",95,0 )
  4140    S COMMENT (1)=$P(^SC (SC,0),U)_ " Appt. on  "_APPT_"  was a "_NO SHOW_"." ; no-show is  a key wor d used by  a search d o not chan ge
  4141   "RTN","SDC NSLT",96,0 )
  4142    N SDERR S  SDERR=$$S TATUS^GMRC GUIS(CNSTL NK,6,3,SND PRV,"","", .COMMENT)
  4143   "RTN","SDC NSLT",97,0 )
  4144    S NSDIE=" ^GMR(123," _CNSTLNK_" ,40,",NSDA =+$G(COMME NT(0))
  4145   "RTN","SDC NSLT",98,0 )
  4146    K COMMENT ,DA
  4147   "RTN","SDC NSLT",99,0 )
  4148    S DA(2)=S C,DA(1)=SD DTM,DA=CN, DIE="^SC(" _DA(2)_"," "S"","_DA( 1)_",1,",D R="688///@ " D ^DIE
  4149   "RTN","SDC NSLT",100, 0)
  4150    I $D(CSPR T) D EN^GM RCP5(CNSTL NK,"C",CSP RT)
  4151   "RTN","SDC NSLT",101, 0)
  4152    K CNSTLNK  Q
  4153   "RTN","SDE C")
  4154   0^3^B13313 3924^B1331 33924
  4155   "RTN","SDE C",1,0)
  4156   SDEC ;ALB/ SAT - VIST A SCHEDULI NG RPCS ;M AR 15, 201 7
  4157   "RTN","SDE C",2,0)
  4158    ;;5.3;Sch eduling;** 627,643,64 2,651,658, 665,672,67 9,686**;Au g 13, 1993 ;Build 39
  4159   "RTN","SDE C",3,0)
  4160    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  4161   "RTN","SDE C",4,0)
  4162    Q
  4163   "RTN","SDE C",5,0)
  4164    ;
  4165   "RTN","SDE C",6,0)
  4166   ACCGROUP(S DECY) ;EP  return act ive entrie s from the  SDEC ACCE SS GROUP f ile 409.82 2
  4167   "RTN","SDE C",7,0)
  4168    D ACCGROU P^SDEC45(. SDECY) Q
  4169   "RTN","SDE C",8,0)
  4170   ACCGPTYG(S DECY) ;EP  Get access  group typ es
  4171   "RTN","SDE C",9,0)
  4172    D ACCGPTY G^SDEC15(. SDECY) Q
  4173   "RTN","SDE C",10,0)
  4174   ACCTYPE(SD ECY) ;EP r eturn acti ve entries  from the  SDEC ACCES S TYPE fil e 409.823
  4175   "RTN","SDE C",11,0)
  4176    D ACCTYPE ^SDEC45(.S DECY) Q
  4177   "RTN","SDE C",12,0)
  4178   ADDACCG(SD ECY,SDECVA L) ;EP ADD /EDIT ACCE SS GROUP
  4179   "RTN","SDE C",13,0)
  4180    D ADDACCG ^SDEC21(.S DECY,$G(SD ECVAL)) Q
  4181   "RTN","SDE C",14,0)
  4182   ADDACCTY(S DECY,SDECV AL) ;EP AD D/EDIT ACC ESS TYPE
  4183   "RTN","SDE C",15,0)
  4184    D ADDACCT Y^SDEC14(. SDECY,$G(S DECVAL)) Q
  4185   "RTN","SDE C",16,0)
  4186   ADDAGI(SDE CY,SDECIEN ,SDECIEN1)  ;EP Add a ccess grou p item - A dds ACCESS  GROUP TYP E file ent ry
  4187   "RTN","SDE C",17,0)
  4188    D ADDAGI^ SDEC22(.SD ECY,$G(SDE CIEN),$G(S DECIEN1))  Q
  4189   "RTN","SDE C",18,0)
  4190   ADDRES(SDE CY,SDECVAL ) ;EP ADD/ EDIT RESOU RCE
  4191   "RTN","SDE C",19,0)
  4192    D ADDRES^ SDEC16(.SD ECY,$G(SDE CVAL)) Q
  4193   "RTN","SDE C",20,0)
  4194   ADDRESU(SD ECY,SDECVA L) ;EP ADD /EDIT RESO URCE USER
  4195   "RTN","SDE C",21,0)
  4196    D ADDRESU ^SDEC18(.S DECY,$G(SD ECVAL)) Q
  4197   "RTN","SDE C",22,0)
  4198   ADDRG(SDEC Y,SDECVAL)  ;EP ADD/E DIT RESOUR CE GROUP
  4199   "RTN","SDE C",23,0)
  4200    D ADDRG^S DEC19(.SDE CY,$G(SDEC VAL)) Q
  4201   "RTN","SDE C",24,0)
  4202   ADDRGI(SDE CY,SDECIEN ,SDECIEN1)  ;EP Adds  RESOURCEID  SDECIEN1  to RESOURC E GROUP en try SDECIE N
  4203   "RTN","SDE C",25,0)
  4204    D ADDRGI^ SDEC20(.SD ECY,$G(SDE CIEN),$G(S DECIEN1))  Q
  4205   "RTN","SDE C",26,0)
  4206   APBLKALL(S DECY,SDECS TART,SDECE ND) ;EP Li st of all  appointmen ts for all  resources
  4207   "RTN","SDE C",27,0)
  4208    D APBLKAL L^SDEC05(. SDECY,$G(S DECSTART), $G(SDECEND )) Q
  4209   "RTN","SDE C",28,0)
  4210   APBLKOV(SD ECY,SDECST ART,SDECEN D,SDECRES, SDECWI) ;E P APPT BLO CKS OVERLA P
  4211   "RTN","SDE C",29,0)
  4212    D APBLKOV ^SDEC05(.S DECY,$G(SD ECSTART),$ G(SDECEND) ,$G(SDECRE S),$G(SDEC WI)) Q
  4213   "RTN","SDE C",30,0)
  4214   APPADD ;EP  ADD NEW A PPOINTMENT
  4215   "RTN","SDE C",31,0)
  4216    Q  ;rpc c alls direc tly to APP ADD^SDEC07
  4217   "RTN","SDE C",32,0)
  4218   APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;EP Can cels appoi ntment
  4219   "RTN","SDE C",33,0)
  4220    D APPDEL^ SDEC08(.SD ECY,$G(SDE CAPTID),$G (SDECTYP), $G(SDECCR) ,$G(SDECNO T),$G(SDEC DATE),$G(S DUSER)) Q
  4221   "RTN","SDE C",34,0)
  4222   APPIDGET(S DECY,SDID)  ;GET SDEC  APPOINTME NT ien for  given Ext ernal ID
  4223   "RTN","SDE C",35,0)
  4224    D APPIDGE T^SDEC55(. SDECY,$G(S DID)) Q
  4225   "RTN","SDE C",36,0)
  4226   APPSDGET(S DECY,MAXRE C,LASTSUB, SDBEG,SDEN D,NOTEFLG, SDRES,DFN, SDID,SDIEN ) ;GET app ointment d ata from S DEC APPOIN TMENT file  409.84
  4227   "RTN","SDE C",37,0)
  4228    D APPSDGE T^SDEC55A( .SDECY,$G( MAXREC),$G (LASTSUB), $G(SDBEG), $G(SDEND), $G(NOTEFLG ),$G(SDRES ),$G(DFN), $G(SDID),$ G(SDIEN))  Q
  4229   "RTN","SDE C",38,0)
  4230   APPSLOTS(S DECY,SDCL, SDBEG,SDEN D) ;return  array of  appt slots  and avail ability -  RPC
  4231   "RTN","SDE C",39,0)
  4232    D APPSLOT S^SDEC57(. SDECY,$G(S DCL),$G(SD BEG),$G(SD END)) Q
  4233   "RTN","SDE C",40,0)
  4234   APPTEVLG(S DECY,DFN)  ;EP return  appointme nt data fo r given pa tient - RP C
  4235   "RTN","SDE C",41,0)
  4236    D APPTEVL G^SDEC38(. SDECY,$G(D FN)) Q
  4237   "RTN","SDE C",42,0)
  4238   APPTLETR(S DECY,SDECA PID,LT) ;E P Print Ap pointment  Letter
  4239   "RTN","SDE C",43,0)
  4240    D APPTLET R^SDEC40(. SDECY,$G(S DECAPID),$ G(LT)) Q
  4241   "RTN","SDE C",44,0)
  4242   APPTYPES(R ET,DFN) ;  EP for SDE C APPTYPES  - Return  all active  Appointme nt types f rom the AP POINTMENT  TYPE file  409.1
  4243   "RTN","SDE C",45,0)
  4244    D APPTYPE S^SDECWL(. RET,$G(DFN )) Q
  4245   "RTN","SDE C",46,0)
  4246   ARCLOSE(RE T,INP...)  ;
  4247   "RTN","SDE C",47,0)
  4248    D ARCLOSE ^SDECAR(.R ET,.INP) Q
  4249   "RTN","SDE C",48,0)
  4250   ARCLOSE1(R ET,INP) ;  Appt Reque st CLOSE   (without . .. for Vis tA calls)
  4251   "RTN","SDE C",49,0)
  4252    D ARCLOSE ^SDECAR(.R ET,.INP) Q
  4253   "RTN","SDE C",50,0)
  4254   ARDGET(SDE CY) ;get v alues for  dispositio n field of  SDEC APPT  REQUEST f ile
  4255   "RTN","SDE C",51,0)
  4256    D ARDGET^ SDECAR(.SD ECY) Q
  4257   "RTN","SDE C",52,0)
  4258   ARGET(RET, ARIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRL,S VCR,SCVISI T,CLINIC,O RIGDT) ;EP  Appt Requ est GET
  4259   "RTN","SDE C",53,0)
  4260    D ARGET^S DECAR1(.RE T,$G(ARIEN 1),$G(MAXR EC),$G(SDB EG),$G(SDE ND),$G(DFN ),$G(LASTS UB),$G(SDT OP),$G(SVC L),$G(DESD T),$G(PRL) ,$G(SVCR), $G(SCVISIT ),$G(CLINI C),$G(ORIG DT)) Q
  4261   "RTN","SDE C",54,0)
  4262   ARMRTGET(S DECY,ARIEN ) ;GET num ber of ent ries and v alues in M RTC CALC P REF DATES
  4263   "RTN","SDE C",55,0)
  4264    D ARMRTGE T^SDECAR(. SDECY,$G(A RIEN)) Q
  4265   "RTN","SDE C",56,0)
  4266   ARMRTSET(S DECY,ARIEN ,MRTC) ;SE T MRTC CAL C PREF DAT ES dates -  clears th e multiple  and sets  the new on es that ar e passed i n
  4267   "RTN","SDE C",57,0)
  4268    D ARMRTSE T^SDECAR(. SDECY,$G(A RIEN),$G(M RTC)) Q
  4269   "RTN","SDE C",58,0)
  4270   AROPEN(RET ,ARAPP,ARI EN,ARDDT)  ;Appt Requ est Open/r e-open
  4271   "RTN","SDE C",59,0)
  4272    D AROPEN^ SDECAR(.RE T,$G(ARAPP ),$G(ARIEN ),$G(ARDDT )) Q
  4273   "RTN","SDE C",60,0)
  4274   ARPCSET(SD ECY,INP,AR IEN) ;SET  update pat ient conta cts in SDE C APPT REQ UEST file
  4275   "RTN","SDE C",61,0)
  4276    D ARPCSET ^SDECAR(.S DECY,$G(IN P),$G(ARIE N)) Q
  4277   "RTN","SDE C",62,0)
  4278   ARSET(RET, INP...) ;E P Appt Req uest Set
  4279   "RTN","SDE C",63,0)
  4280    D ARSET^S DECAR2(.RE T,.INP) Q
  4281   "RTN","SDE C",64,0)
  4282   ARSET1(RET ,INP) ;EP  Appt Reque st Set (wi thout ...  for VistA  calls)
  4283   "RTN","SDE C",65,0)
  4284    D ARSET^S DECAR2(.RE T,.INP) Q
  4285   "RTN","SDE C",66,0)
  4286   AVADD(SDEC Y,SDECSTAR T,SDECEND, SDECTYPID, SDECRES,SD ECSLOTS,SD ECNOTE) ;E P SET Crea te entry i n SDEC ACC ESS BLOCK
  4287   "RTN","SDE C",67,0)
  4288    D AVADD^S DEC12(.SDE CY,$G(SDEC START),$G( SDECEND),$ G(SDECTYPI D),$G(SDEC RES),$G(SD ECSLOTS),$ G(SDECNOTE )) Q
  4289   "RTN","SDE C",68,0)
  4290   AVDEL(SDEC Y,SDECAVID ) ;EP Canc el Availab ility - De letes Acce ss Block
  4291   "RTN","SDE C",69,0)
  4292    D AVDEL^S DEC13(.SDE CY,$G(SDEC AVID)) Q
  4293   "RTN","SDE C",70,0)
  4294   AVDELDT(SD ECY,SDECRE SD,SDECSTA RT,SDECEND ) ;EP Canc el availab ility in a  date rang e
  4295   "RTN","SDE C",71,0)
  4296    D AVDELDT ^SDEC13(.S DECY,$G(SD ECRESD),$G (SDECSTART ),$G(SDECE ND)) Q
  4297   "RTN","SDE C",72,0)
  4298   BOOKHLDY(S DECY,SDECC L) ;  Retu rns can bo ok on holi day flag f or a clini c.  12/1/1 7 wtc  679  
  4299   "RTN","SDE C",73,0)
  4300    D BOOKHLD Y^SDEC32(. SDECY,SDEC CL) Q  ;
  4301   "RTN","SDE C",74,0)
  4302   CANCKOUT(S DECY,SDECA PTID) ;EP  Cancel Che ck Out app ointment
  4303   "RTN","SDE C",75,0)
  4304    D CANCKOU T^SDEC25(. SDECY,$G(S DECAPTID))  Q
  4305   "RTN","SDE C",76,0)
  4306   CANREAS(SD ECY,SDECIN ) ;EP retu rn active/ inactive e ntries fro m the CANC ELLATION R EASONS tab le 409.2
  4307   "RTN","SDE C",77,0)
  4308    D CANREAS ^SDEC45(.S DECY,$G(SD ECIN)) Q
  4309   "RTN","SDE C",78,0)
  4310   CAP(SDECY, DFN,SDAMEV T,SDT,DVBA DA,SDAUTOR B,SDCANVET ) ;
  4311   "RTN","SDE C",79,0)
  4312    D CAP^SDE C58(.SDECY ,$G(DFN),$ G(SDAMEVT) ,$G(SDT),$ G(DVBADA), $G(SDAUTOR B),$G(SDCA NVET)) Q
  4313   "RTN","SDE C",80,0)
  4314   CGET(SDECY ) ;GET act ive Countr ies from t he COUNTRY  CODE file  779.004
  4315   "RTN","SDE C",81,0)
  4316    D CGET^SD EC55(.SDEC Y) Q
  4317   "RTN","SDE C",82,0)
  4318   CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;EP Chec k in appoi ntment
  4319   "RTN","SDE C",83,0)
  4320    D CHECKIN ^SDEC25(.S DECY,$G(SD ECAPTID),$ G(SDECCDT) ,$G(SDECCC ),$G(SDECP RV),$G(SDE CROU),$G(S DECVCL),$G (SDECVFM), $G(SDECOG) ,$G(SDECCR ),$G(SDECP CC),$G(SDE CWHF)) Q
  4321   "RTN","SDE C",84,0)
  4322   CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;EP  Check Out  appointmen t
  4323   "RTN","SDE C",85,0)
  4324    D CHECKOU T^SDEC25(. SDECY,$G(D FN),$G(SDT ),$G(SDCOD T),$G(SDEC APTID),$G( VPRV)) Q
  4325   "RTN","SDE C",86,0)
  4326   CLINALL(RE T,MAXREC,S DECP) ; EP  Return th e IEN and  NAME for a ll entries  in the SD  WL CLINIC  LOCATION  file
  4327   "RTN","SDE C",87,0)
  4328    D CLINALL ^SDECWL(.R ET,$G(MAXR EC),$G(SDE CP)) Q
  4329   "RTN","SDE C",88,0)
  4330   CLINCAN(SD ECY,SDECCL ST,SDECBEG ,SDECEND)  ;EP Return  recordset  of CANCEL LED patien t appointm ents
  4331   "RTN","SDE C",89,0)
  4332    D CLINCAN ^SDEC34(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND )) Q
  4333   "RTN","SDE C",90,0)
  4334   CLINDIS(SD ECY,SDECCL ST,SDECBEG ,SDECEND,S DECWI) ;EP  Return fo rmatted te xt output  of the Cli nic Schedu les Report
  4335   "RTN","SDE C",91,0)
  4336    D CLINDIS ^SDEC47(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND ),$G(SDECW I)) Q
  4337   "RTN","SDE C",92,0)
  4338   CLINDISW(S DECY,SDECC LST,SDECBE G,SDECEND)  ;EP Retur n formatte d text out put of the  Clinic Sc hedules Re port for W alkins
  4339   "RTN","SDE C",93,0)
  4340    D CLINDIS W^SDEC47(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q
  4341   "RTN","SDE C",94,0)
  4342   CLINLET(SD ECY,SDECCL ST,SDECBEG ,SDECEND,S DECWI) ;EP  CLINIC LE TTERS Appo intment da ta
  4343   "RTN","SDE C",95,0)
  4344    D CLINLET ^SDEC27(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND ),$G(SDECW I)) Q
  4345   "RTN","SDE C",96,0)
  4346   CLINLETW(S DECY,SDECC LST,SDECBE G,SDECEND)  ;EP CLINI C LETTERS  WALK-IN Ap pointment  data for W alk-in App ointments  only
  4347   "RTN","SDE C",97,0)
  4348    D CLINLET W^SDEC27(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q
  4349   "RTN","SDE C",98,0)
  4350   CLINPROV(S DECY,SDECC L) ;EP ret urn all pr oviders fo r a given  clinic fro m the HOSP ITAL LOCAT ION file 4 4
  4351   "RTN","SDE C",99,0)
  4352    D CLINPRO V^SDEC45(. SDECY,$G(S DECCL)) Q
  4353   "RTN","SDE C",100,0)
  4354   CLINSET(SD ECY,SDNOSL OT,SDIENS, SDECP,SDNO LET,MAXREC ) ;EP Retu rns CLINIC  SETUP PAR AMETERS fo r clinics  that are a ctive in t he HOSPITA L LOCATION  file
  4355   "RTN","SDE C",101,0)
  4356    D CLINSET ^SDEC32(.S DECY,$G(SD NOSLOT),$G (SDIENS),$ G(SDECP),$ G(SDNOLET) ,$G(MAXREC )) Q
  4357   "RTN","SDE C",102,0)
  4358   CLINSTOP(S DECY,SDP)  ;EP CLINIC  STOP remo te procedu re
  4359   "RTN","SDE C",103,0)
  4360    D CLINSTO P^SDEC45(. SDECY,$G(S DP)) Q
  4361   "RTN","SDE C",104,0)
  4362   COPYAPPT(S DECY,SDECR ES,SDEC44, SDECBEG,SD ECEND) ;EP  Copy appo intments f rom HOSPIT AL LOCATIO N to SDEC  RESOURCE
  4363   "RTN","SDE C",105,0)
  4364    D COPYAPP T^SDEC29(. SDECY,$G(S DECRES),$G (SDEC44),$ G(SDECBEG) ,$G(SDECEN D)) Q
  4365   "RTN","SDE C",106,0)
  4366   CPCANC(SDE CY,SDECTSK ) ;EP Copy  Appointme nt Cancel
  4367   "RTN","SDE C",107,0)
  4368    D CPCANC^ SDEC29(.SD ECY,$G(SDE CTSK)) Q
  4369   "RTN","SDE C",108,0)
  4370   CPSTAT(SDE CY,SDECTSK ) ;EP Copy  Appointme nt Status
  4371   "RTN","SDE C",109,0)
  4372    D CPSTAT^ SDEC29(.SD ECY,$G(SDE CTSK)) Q
  4373   "RTN","SDE C",110,0)
  4374   CRSCHED(SD ECY,SDECRE S,SDECSTAR T,SDECEND, SDECWKIN,M AXREC,LAST SUB) ;EP C reate Reso urce Appoi ntment Sch edule  ;al b/sat 672
  4375   "RTN","SDE C",111,0)
  4376    D CRSCHED ^SDEC02(.S DECY,$G(SD ECRES),$G( SDECSTART) ,$G(SDECEN D),$G(SDEC WKIN),$G(M AXREC),$G( LASTSUB))  Q
  4377   "RTN","SDE C",112,0)
  4378   CSLOTSCH(S DECY,SDECR ES,SDECSTA RT,SDECEND ,SDECTYPES ,SDECSRCH)  ;GET Crea te Assigne d Slot Sch edule
  4379   "RTN","SDE C",113,0)
  4380    D CSLOTSC H^SDEC04(. SDECY,$G(S DECRES),$G (SDECSTART ),$G(SDECE ND),$G(SDE CTYPES),$G (SDECSRCH) ) Q
  4381   "RTN","SDE C",114,0)
  4382   CURFACG(SD ECY,SDECDU Z) ;EP  ge t current  division/f acility fo r given us er
  4383   "RTN","SDE C",115,0)
  4384    D CURFACG ^SDEC46(.S DECY,$G(SD ECDUZ)) Q
  4385   "RTN","SDE C",116,0)
  4386   CVARAPPT(S DECY,SDCL)  ;EP IS Cl inic Varia ble Appoin tment Leng th
  4387   "RTN","SDE C",117,0)
  4388    D CVARAPP T^SDEC37(. SDECY,$G(S DCL)) Q
  4389   "RTN","SDE C",118,0)
  4390   DELAG(SDEC Y,SDECGRP)  ;EP Delet es entry h aving IEN  SDECGRP fr om SDEC AC CESS GROUP  file
  4391   "RTN","SDE C",119,0)
  4392    D DELAG^S DEC21(.SDE CY,$G(SDEC GRP)) Q
  4393   "RTN","SDE C",120,0)
  4394   DELAGI(SDE CY,SDECIEN ,SDECIEN1)  ;EP Delet es entry h aving Acce ss Group S DECIEN and  Access Ty pe SDECIEN 1 the SDEC  ACCESS GR OUP TYPE f ile
  4395   "RTN","SDE C",121,0)
  4396    D DELAGI^ SDEC22(.SD ECY,$G(SDE CIEN),$G(S DECIEN1))  Q
  4397   "RTN","SDE C",122,0)
  4398   DELRESGP(S DECY,SDECG RP) ;EP De letes entr y name SDE CGRP from  SDEC RESOU RCE GROUP  file
  4399   "RTN","SDE C",123,0)
  4400    D DELRESG P^SDEC19(. SDECY,$G(S DECGRP)) Q
  4401   "RTN","SDE C",124,0)
  4402   DELRGI(SDE CY,SDECIEN ,SDECIEN1)  ;EP Delet es entry S DECIEN1 fr om entry S DECIEN in  the SDEC R ESOURCE GR OUP file
  4403   "RTN","SDE C",125,0)
  4404    D DELRGI^ SDEC20(.SD ECY,$G(SDE CIEN),$G(S DECIEN1))  Q
  4405   "RTN","SDE C",126,0)
  4406   DELRU(SDEC Y,SDECIEN)  ;EP Delet e Resource  User from  SDEC RESO URCE USER  file
  4407   "RTN","SDE C",127,0)
  4408    D DELRU^S DEC18(.SDE CY,$G(SDEC IEN)) Q
  4409   "RTN","SDE C",128,0)
  4410   EDITAPPT(S DECY,SDECA PTID,SDECN OTE,SDECLE N) ;EP Edi t appointm ent (only  'note text ' and appo intment le ngth can b e edited)
  4411   "RTN","SDE C",129,0)
  4412    D EDITAPP T^SDEC26(. SDECY,$G(S DECAPTID), $G(SDECNOT E),$G(SDEC LEN)) Q
  4413   "RTN","SDE C",130,0)
  4414   EHRPT(SDEC Y,SDECWID, SDECDFN) ; EP Raise p atient sel ection eve nt to EHR
  4415   "RTN","SDE C",131,0)
  4416    D EHRPT^S DEC30(.SDE CY,$G(SDEC WID),$G(SD ECDFN)) Q
  4417   "RTN","SDE C",132,0)
  4418   ETHGET(SDE CY) ;GET a ctive Ethn icities fr om the ETH NICITY fil e 10.2
  4419   "RTN","SDE C",133,0)
  4420    D ETHGET^ SDEC55(.SD ECY) Q
  4421   "RTN","SDE C",134,0)
  4422   ETHCMGET(S DECY) ;GET  values fr om the RAC E AND ETHN ICITY COLL ECTION MET HOD file 1 0.3
  4423   "RTN","SDE C",135,0)
  4424    D ETHCMGE T^SDEC55(. SDECY) Q
  4425   "RTN","SDE C",136,0)
  4426   FACLIST(SD ECY,DFN) ;  Return li st of remo te facilit ies for pa tient
  4427   "RTN","SDE C",137,0)
  4428    D PTINQ^S DECPT(.SDE CY,$G(DFN) ) Q
  4429   "RTN","SDE C",138,0)
  4430   FAPPTGET(S DECY,DFN,S DBEG,SDEND ,SDANC) ;G ET Future  appointmen ts for giv en patient  and date  range
  4431   "RTN","SDE C",139,0)
  4432    D FAPPTGE T^SDEC50(. SDECY,$G(D FN),$G(SDB EG),$G(SDE ND),$G(SDA NC)) Q
  4433   "RTN","SDE C",140,0)
  4434   GETFAC(SDE CY,SDECDUZ ) ;EP Gets  all facil ities for  a user
  4435   "RTN","SDE C",141,0)
  4436    D GETFAC^ SDEC46(.SD ECY,$G(SDE CDUZ)) Q
  4437   "RTN","SDE C",142,0)
  4438   GETONE(SDE CY,SDGMR)  ;EP Return  data on o ne consult
  4439   "RTN","SDE C",143,0)
  4440    D GETONE^ SDEC51(.SD ECY,$G(SDG MR)) Q
  4441   "RTN","SDE C",144,0)
  4442   GETREGA(SD ECRET,DFN)  ;EP retur n basic re g info/dem ographics  for given  patient
  4443   "RTN","SDE C",145,0)
  4444    D GETREGA ^SDEC09(.S DECRET,$G( DFN)) Q
  4445   "RTN","SDE C",146,0)
  4446   GETSITES(S DECY) ;ret urn active  National  VA site na mes and st ation numb ers
  4447   "RTN","SDE C",147,0)
  4448    D GETSITE S^SDEC59(. SDECY) Q
  4449   "RTN","SDE C",148,0)
  4450   GETVPRV(BG OY,VPRV) ; EP return  data from  the V PROV IDER file
  4451   "RTN","SDE C",149,0)
  4452    D GETVPRV ^SDEC44(.B GOY,$G(VPR V)) Q
  4453   "RTN","SDE C",150,0)
  4454   HIDE(SDECY ) ;Return  clinics hi dden from  display
  4455   "RTN","SDE C",151,0)
  4456    D HIDE^SD EC45(.SDEC Y) Q
  4457   "RTN","SDE C",152,0)
  4458   HOLIDAY(SD ECY,SDECBD ) ;EP retu rn all ent ries from  the HOLIDA Y file 40. 5
  4459   "RTN","SDE C",153,0)
  4460    D HOLIDAY ^SDEC45(.S DECY,$G(SD ECBD)) Q
  4461   "RTN","SDE C",154,0)
  4462   HOSPLOC(SD ECY,SDECP, MAXREC,LSU B) ;EP ret urn HOSPIT AL LOCATIO Ns
  4463   "RTN","SDE C",155,0)
  4464    D HOSPLOC ^SDEC32(.S DECY,$G(SD ECP),$G(MA XREC),$G(L SUB)) Q
  4465   "RTN","SDE C",156,0)
  4466   IMHERE(SDE CRES) ;EP  I'm Here
  4467   "RTN","SDE C",157,0)
  4468    D IMHERE^ SDEC31(.SD ECRES) Q
  4469   "RTN","SDE C",158,0)
  4470   NETLOC(SDE CY,LOCATIO N) ;GET da ta from th e NETWORK  LOCATION f ile 2005.2
  4471   "RTN","SDE C",159,0)
  4472    D NETLOC^ SDEC59(.SD ECY,$G(LOC ATION)) Q
  4473   "RTN","SDE C",160,0)
  4474   NEWPERS(SD ECY,SDCLAS S,SDPART,M AXREC,LSUB ,INACT) ;r eturn entr ies from t he USR CLA SS MEMBERS HIP file t hat have t he given U SR CLASS ( default is  PROVIDER)
  4475   "RTN","SDE C",161,0)
  4476    D NEWPERS ^SDEC45(.S DECY,$G(SD CLASS),$G( SDPART),$G (MAXREC),$ G(LSUB),$G (INACT)) Q
  4477   "RTN","SDE C",162,0)
  4478   NOSHOPAT(S DECY,DFN,S DCL) ;EP C OLLECT NO- SHOW DATA  for Patien t
  4479   "RTN","SDE C",163,0)
  4480    D NOSHOPA T^SDEC37(. SDECY,$G(D FN),$G(SDC L)) Q
  4481   "RTN","SDE C",164,0)
  4482   NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE) ;E P Sets app ointment n oshow flag  in SDEC A PPOINTMENT  file
  4483   "RTN","SDE C",165,0)
  4484    D NOSHOW^ SDEC31(.SD ECY,$G(SDE CAPTID),$G (SDECNS),$ G(USERIEN) ,$G(SDECDA TE)) Q
  4485   "RTN","SDE C",166,0)
  4486   OVBOOK(SDE CY,SDCL,SD BEG,SDECRE S) ;EP RPC  - OVERBOO K - CHECK  FOR OVERBO OK FOR GIV EN CLINIC,  DATE, AND  RESOURCE
  4487   "RTN","SDE C",167,0)
  4488    D OVBOOK^ SDEC07A(.S DECY,$G(SD CL),$G(SDB EG),$G(SDE CRES)) Q
  4489   "RTN","SDE C",168,0)
  4490   PATAPPTD(S DECY,DFN)  ;EP Return  the Patie nt appoint ment displ ay
  4491   "RTN","SDE C",169,0)
  4492    D PATAPPT D^SDEC27(. SDECY,$G(D FN)) Q
  4493   "RTN","SDE C",170,0)
  4494   PATAPPTH(S DECY,DFN)  ;EP return  patient's  appointme nt history  for given  patient -  RPC
  4495   "RTN","SDE C",171,0)
  4496    D PATAPPT H^SDEC48(. SDECY,$G(D FN)) Q
  4497   "RTN","SDE C",172,0)
  4498   PCSGET(SDE CY,SDSVSP)  ;GET clin ics for a  service/sp ecialty (c linic stop )
  4499   "RTN","SDE C",173,0)
  4500    D PCSGET^ SDEC50(.SD ECY,$G(SDS VSP)) Q
  4501   "RTN","SDE C",174,0)
  4502   PCSTGET(SD ECY,DFN,SD CL,SDBEG,S DEND) ;GET  patient c linic stat us for a c linic for  a given ti me frame -  has the p atient bee n seen by  the given  Clinic in  the past 2 4 months
  4503   "RTN","SDE C",175,0)
  4504    D PCSTGET ^SDEC50(.S DECY,$G(DF N),$G(SDCL ),$G(SDBEG ),$G(SDEND )) Q
  4505   "RTN","SDE C",176,0)
  4506   PCST2GET(S DECY,DFN,S TOP,SDBEG, SDEND) ;GE T patient  clinic sta tus for a  service/sp ecialty (c linic stop ) for a gi ven time f rame - has  the patie nt been se en any cli nics with  the given  service/sp ecialty (c linic stop ) in the p ast 24 mon ths
  4507   "RTN","SDE C",177,0)
  4508    D PCST2GE T^SDEC50(. SDECY,$G(D FN),$G(STO P),$G(SDBE G),$G(SDEN D)) Q
  4509   "RTN","SDE C",178,0)
  4510   PREFGET(SD ECY,DFN,IN AC) ;EP Ge t values f rom SDEC P REFERENCES  AND SPECI AL NEEDS f ile for gi ven patien t
  4511   "RTN","SDE C",179,0)
  4512    D PREFGET ^SDEC49(.S DECY,$G(DF N),$G(INAC )) Q
  4513   "RTN","SDE C",180,0)
  4514   PREFGETV(S DECY) ;EP  Get all va lid PREFER ENCE text  from SDEC  PREFERENCE S AND SPEC IAL NEEDS  file
  4515   "RTN","SDE C",181,0)
  4516    D PREFGET V^SDEC49(. SDECY) Q
  4517   "RTN","SDE C",182,0)
  4518   PREFSET(SD ECY,DFN,PR EF,REMARK)  ;EP Set v alues to S DEC PREFER ENCES AND  SPECIAL NE EDS file   ;alb/sat 6 58 add REM ARK
  4519   "RTN","SDE C",183,0)
  4520    D PREFSET ^SDEC49(.S DECY,$G(DF N),$G(PREF ),$G(REMAR K)) Q
  4521   "RTN","SDE C",184,0)
  4522   PRIV(SDECY ,CLINIEN,U SER) ;IS t his USER i n the PRIV ILEGED USE R multiple  for the c linic
  4523   "RTN","SDE C",185,0)
  4524    D PRIV^SD EC32(.SDEC Y,$G(CLINI EN),$G(USE R)) Q
  4525   "RTN","SDE C",186,0)
  4526   PROVALL(SD ECY,SDECCL ) ;EP retu rn all pro viders for  a given c linic from  the HOSPI TAL LOCATI ON file 44
  4527   "RTN","SDE C",187,0)
  4528    D PROVALL ^SDEC45(.S DECY,$G(SD ECCL)) Q
  4529   "RTN","SDE C",188,0)
  4530   PROVCLIN(S DECY,SDECP RV) ;EP PR OVIDER CLI NICS remot e procedur e
  4531   "RTN","SDE C",189,0)
  4532    D PROVCLI N^SDEC45(. SDECY,$G(S DECPRV)) Q
  4533   "RTN","SDE C",190,0)
  4534   PTINQ(SDEC Y,DFN) ;GE T output f rom ORWPT  PTINQ in D ataTable f ormat
  4535   "RTN","SDE C",191,0)
  4536    D PTINQ^S DECPT(.SDE CY,$G(DFN) ) Q
  4537   "RTN","SDE C",192,0)
  4538   PTLOOKRS(S DECY,SDECP ,SDECC,LAS TSUB) ;EP  Patient Lo okup
  4539   "RTN","SDE C",193,0)
  4540    D PTLOOKR S^SDEC28(. SDECY,$G(S DECP),$G(S DECC),$G(L ASTSUB)) Q
  4541   "RTN","SDE C",194,0)
  4542   PTSET(SDEC Y,INP...)  ;SET patie nt demogra phics
  4543   "RTN","SDE C",195,0)
  4544    D PTSET^S DEC53(.SDE CY,.INP) Q
  4545   "RTN","SDE C",196,0)
  4546   PTSET1(SDE CY,INP) ;S ET patient  demograph ics (call  from debug )
  4547   "RTN","SDE C",197,0)
  4548    D PTSET^S DEC53(.SDE CY,.INP) Q
  4549   "RTN","SDE C",198,0)
  4550   RACEGET(SD ECY) ;GET  active Rac e entries  from the R ACE file 1 0
  4551   "RTN","SDE C",199,0)
  4552    D RACEGET ^SDEC55(.S DECY) Q
  4553   "RTN","SDE C",200,0)
  4554   RAISEVNT(S DECY,SDECE VENT,SDECP ARAM,SDECS IP,SDECSPT ) ;EP RAIS E EVENT
  4555   "RTN","SDE C",201,0)
  4556    D RAISEVN T^SDEC23(. SDECY,$G(S DECEVENT), $G(SDECPAR AM),$G(SDE CSIP),$G(S DECSPT)) Q
  4557   "RTN","SDE C",202,0)
  4558   REBKCLIN(S DECY,SDECC LST,SDECBE G,SDECEND)  ;EP Retur n recordse t of reboo ked patien t appointm ents betwe en given d ates
  4559   "RTN","SDE C",203,0)
  4560    D REBKCLI N^SDEC34(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q
  4561   "RTN","SDE C",204,0)
  4562   REBKLIST(S DECY,SDECL IST) ;EP p atient app ointments  used in li sting REBO OKED appoi ntments fo r a list o f appointm entIDs.
  4563   "RTN","SDE C",205,0)
  4564    D REBKLIS T^SDEC34(. SDECY,$G(S DECLIST))  Q
  4565   "RTN","SDE C",206,0)
  4566   REBKNEXT(S DECY,SDECD ATE,SDECRE S,SDECTPID ) ;EP find  the next  ACCESS BLO CK in reso urce SDECR ES after S DECSTART
  4567   "RTN","SDE C",207,0)
  4568    D REBKNEX T^SDEC33(. SDECY,$G(S DECDATE),$ G(SDECRES) ,$G(SDECTP ID)) Q
  4569   "RTN","SDE C",208,0)
  4570   RECIEN(SDE CY,RECIEN)  ;GET RECA LL REMINDE RS for giv en ID
  4571   "RTN","SDE C",209,0)
  4572    D RECIEN^ SDEC52(.SD ECY,$G(REC IEN)) Q
  4573   "RTN","SDE C",210,0)
  4574   RECGET(SDE CY,DFN,SDB EG,SDEND,M AXREC,LAST SUB,RECIEN ,SDSTOP,SD FLAGS,SDCL L) ; GET e ntries fro m the RECA LL REMINDE RS file 40 3.5 for a  given Pati ent and Re call Date  range. ;al b/sat 658  add SDCLL
  4575   "RTN","SDE C",211,0)
  4576    D RECGET^ SDEC52(.SD ECY,$G(DFN ),$G(SDBEG ),$G(SDEND ),$G(MAXRE C),$G(LAST SUB),$G(RE CIEN),$G(S DSTOP),$G( SDFLAGS),$ G(SDCLL))  Q
  4577   "RTN","SDE C",212,0)
  4578   RECSET(SDE CY,INP...)  ; SET/EDI T/CANCEL/D ELETE an e ntry to th e RECALL R EMINDERS f ile 403.5
  4579   "RTN","SDE C",213,0)
  4580    D RECSET^ SDEC52A(.S DECY,.INP)  Q
  4581   "RTN","SDE C",214,0)
  4582   RECSET1(SD ECY,INP) ;  SET/EDIT/ CANCEL/DEL ETE an ent ry to the  RECALL REM INDERS fil e 403.5
  4583   "RTN","SDE C",215,0)
  4584    D RECSET^ SDEC52A(.S DECY,.INP)  Q
  4585   "RTN","SDE C",216,0)
  4586   RECDSET(SD ECY,RECALL IEN,SDRRFT R,SDCOMM)  ; DELETE a n entry to  the RECAL L REMINDER S file 403 .5
  4587   "RTN","SDE C",217,0)
  4588    D RECDSET ^SDEC52A(. SDECY,$G(R ECALLIEN), $G(SDRRFTR ),$G(SDCOM M)) Q
  4589   "RTN","SDE C",218,0)
  4590   RECAPGET(S DECY) ; GE T entries  from the R ECALL REMI NDERS APPT  TYPE file  403.51
  4591   "RTN","SDE C",219,0)
  4592    D RECAPGE T^SDEC52B( .SDECY) Q
  4593   "RTN","SDE C",220,0)
  4594   RECPRGET(S DECY,RECIN ACT,SDECP, MAXREC,LAS TSUB) ;GET  entries f rom the RE CALL REMIN DERS PROVI DERS file  403.54
  4595   "RTN","SDE C",221,0)
  4596    D RECPRGE T^SDEC52B( .SDECY,$G( RECINACT), $G(SDECP), $G(MAXREC) ,$G(LASTSU B)) Q
  4597   "RTN","SDE C",222,0)
  4598   REGEVENT(S DECY,SDECE VENT,SDECI P,SDECPORT ) ;EP Call ed by clie nt to info rm server  of client' s interest  in SDECEV ENT
  4599   "RTN","SDE C",223,0)
  4600    D REGEVEN T^SDEC23(. SDECY,$G(S DECEVENT), $G(SDECIP) ,$G(SDECPO RT)) Q
  4601   "RTN","SDE C",224,0)
  4602   REP1GET(SD ECY,MAXREC ,LASTSUB,P NAME) ;GET  clinic da ta for rep ort
  4603   "RTN","SDE C",225,0)
  4604    D REP1GET ^SDEC56(.S DECY,$G(MA XREC),$G(L ASTSUB),$G (PNAME)) Q
  4605   "RTN","SDE C",226,0)
  4606   REQGET(SDE CY,SDBEG,S DEND,MAXRE C,LASTSUB, SDGMR) ; G ET entries  with an A CTIVITY of  RECEIVED,  but do no t have an  ACTIVITY o f SCHEDULE D from the  REQUEST/C ONSULTATIN G file 123
  4607   "RTN","SDE C",227,0)
  4608    D REQGET^ SDEC51(.SD ECY,$G(SDB EG),$G(SDE ND),$G(MAX REC),$G(LA STSUB),$G( SDGMR)) Q
  4609   "RTN","SDE C",228,0)
  4610   RESGPUSR(S DECY,SDECD UZ) ;EP GR OUP RESOUR CE
  4611   "RTN","SDE C",229,0)
  4612    D RESGPUS R^SDEC01(. SDECY,$G(S DECDUZ)) Q
  4613   "RTN","SDE C",230,0)
  4614   RESGRPUS(S DECY,SDECD UZ) ;EP re turn ACTIV E resource  group nam es for the  given use r
  4615   "RTN","SDE C",231,0)
  4616    D RESGRPU S^SDEC01(. SDECY,$G(S DECDUZ)) Q
  4617   "RTN","SDE C",232,0)
  4618   RESLETRF(S DECY,SDECR ES,SDECLT)  ;EP Retur n formatte d text out put of the  Resource' s Letter -  either "L ETTER TEXT " (also us ed as Remi nder Lette r), NO SHO W LETTER,  or CLINIC  CANCELLATI ON LETTER.
  4619   "RTN","SDE C",233,0)
  4620    D RESLETR F^SDEC47(. SDECY,$G(S DECRES),$G (SDECLT))  Q
  4621   "RTN","SDE C",234,0)
  4622   RESLETRS(S DECY,SDECL IST,SDLTR, SDNOS,SDCA N) ;EP GET  recordset  of RESOUR CES and as sociated L ETTERS
  4623   "RTN","SDE C",235,0)
  4624    D RESLETR S^SDEC35(. SDECY,$G(S DECLIST),$ G(SDLTR),$ G(SDNOS),$ G(SDCAN))  Q
  4625   "RTN","SDE C",236,0)
  4626   RESUSER(SD ECY,SDRES)  ;EP SDEC  RESOURCE U SER remote  procedure  returns a ll entries  from the  SDEC RESOU RCE USER t able 409.8 33
  4627   "RTN","SDE C",237,0)
  4628    D RESUSER ^SDEC45(.S DECY,$G(SD RES)) Q
  4629   "RTN","SDE C",238,0)
  4630   RESOURCE(S DECY,SDECD UZ,SDACT,S DTYPE,MAXR EC,LASTSUB I,SDIEN,SD ECP) ;EP R eturns ADO  Recordset  with ALL  RESOURCE n ames
  4631   "RTN","SDE C",239,0)
  4632    D RESOURC E^SDEC01A( .SDECY,$G( SDECDUZ),$ G(SDACT),$ G(SDTYPE), $G(MAXREC) ,$G(LASTSU BI),$G(SDI EN),$G(SDE CP)) Q
  4633   "RTN","SDE C",240,0)
  4634   SCHUSR(SDE CY) ;EP Re turn recor dset of al l users in  NEW PERSO N having S DECZMENU k ey
  4635   "RTN","SDE C",241,0)
  4636    D SCHUSR^ SDEC17(.SD ECY) Q
  4637   "RTN","SDE C",242,0)
  4638   SEARCHAV(S DECY,SDECR ES,SDECSTR T,SDECEND, SDECTYPES, SDECAMPM,S DECWKDY) ; EP Searche s availabi lity datab ase
  4639   "RTN","SDE C",243,0)
  4640    D SEARCHA V^SDEC24(. SDECY,$G(S DECRES),$G (SDECSTRT) ,$G(SDECEN D),$G(SDEC TYPES),$G( SDECAMPM), $G(SDECWKD Y)) Q
  4641   "RTN","SDE C",244,0)
  4642   SETFAC(SDE CY,SDECDUZ ,SDECFAC)  ;EP SET FA CILITY
  4643   "RTN","SDE C",245,0)
  4644    D SETFAC^ SDEC46(.SD ECY,$G(SDE CDUZ),$G(S DECFAC)) Q
  4645   "RTN","SDE C",246,0)
  4646   SETRBOOK(S DECY,SDECA PPT,SDECDA TE) ;EP Se ts rebook  date into  appointmen t
  4647   "RTN","SDE C",247,0)
  4648    D SETRBOO K^SDEC33(. SDECY,$G(S DECAPPT),$ G(SDECDATE )) Q
  4649   "RTN","SDE C",248,0)
  4650   SPACEBAR(S DECY,SDECD IC,SDECVAL ) ;EP Upda te ^DISV w ith most r ecent look up value S DECVAL fro m file SDE CDIC
  4651   "RTN","SDE C",249,0)
  4652    D SPACEBA R^SDEC30(. SDECY,$G(S DECDIC),$G (SDECVAL))  Q
  4653   "RTN","SDE C",250,0)
  4654   SUMMGET(SD ECRET,SDBE G,SDEND,US ER,LSUB,MA XREC) ;GET  Audit Sum mary for g iven date  range
  4655   "RTN","SDE C",251,0)
  4656    D SUMMGET ^SDEC54(.S DECRET,$G( SDBEG),$G( SDEND),$G( USER),$G(L SUB),$G(MA XREC)) Q
  4657   "RTN","SDE C",252,0)
  4658   SUMMGET2(S DECRET,SDB EG,SDEND,U SER) ;Get  compiled A udit Repor t for a gi ven date r ange
  4659   "RTN","SDE C",253,0)
  4660    D SUMMGET 2^SDECAUD( .SDECRET,$ G(SDBEG),$ G(SDEND),$ G(USER)) Q
  4661   "RTN","SDE C",254,0)
  4662   SUMMAGET(S DECY,SDBEG ,SDEND,USE R,LSUB,MAX REC) ;get  ALL appoin tments wit h a cancel  status fr om SDEC AP POINTMENT  for given  date range  and user
  4663   "RTN","SDE C",255,0)
  4664    D SUMMAGE T^SDEC54A( .SDECY,$G( SDBEG),$G( SDEND),$G( USER),$G(L SUB),$G(MA XREC)) Q
  4665   "RTN","SDE C",256,0)
  4666   SUSRINFO(S DECY,SDECD UZ) ;EP SC HEDULING U SER INFO
  4667   "RTN","SDE C",257,0)
  4668    D SUSRINF O^SDEC01(. SDECY,$G(S DECDUZ)) Q
  4669   "RTN","SDE C",258,0)
  4670   SVSPALL(RE T) ; EP re turn IEN a nd NAME fo r all entr ies in the  SD WL SER VICE/SPECI ALTY file
  4671   "RTN","SDE C",259,0)
  4672    D SVSPALL ^SDECWL(.R ET) Q
  4673   "RTN","SDE C",260,0)
  4674   SYSSTAT(SD ECY) ; EP  SYSTEM STA TUS
  4675   "RTN","SDE C",261,0)
  4676    D SYSSTAT ^SDECUTL(. SDECY) Q
  4677   "RTN","SDE C",262,0)
  4678   TPBLKOV(SD ECY,SDECST ART,SDECEN D,SDECRES)  ;EP TYPE  BLOCKS OVE RLAP
  4679   "RTN","SDE C",263,0)
  4680    D TPBLKOV ^SDEC06(.S DECY,$G(SD ECSTART),$ G(SDECEND) ,$G(SDECRE S)) Q
  4681   "RTN","SDE C",264,0)
  4682   UNDOCANA(S DECY,SDECA PTID) ;EP   Undo Canc el Appoint ment
  4683   "RTN","SDE C",265,0)
  4684    D UNDOCAN A^SDEC08(. SDECY,$G(S DECAPTID))  Q
  4685   "RTN","SDE C",266,0)
  4686   UNREGEV(SD ECY,SDECEV ENT,SDECIP ,SDECPORT)  ;EP rpc S DE UNREGEV  Called by  client to  Unregiste r client's  interest  in SDECEVE NT
  4687   "RTN","SDE C",267,0)
  4688    D UNREGEV ^SDEC23(.S DECY,$G(SD ECEVENT),$ G(SDECIP), $G(SDECPOR T)) Q
  4689   "RTN","SDE C",268,0)
  4690   WAITLIST(S DECY,SDECR ES) ;EP CO LLECT WAIT LIST DATA
  4691   "RTN","SDE C",269,0)
  4692    D WAITLIS T^SDEC36(. SDECY,$G(S DECRES)) Q
  4693   "RTN","SDE C",270,0)
  4694   WLCLOSE(RE T,INP...)  ; Waitlist  CLOSE
  4695   "RTN","SDE C",271,0)
  4696    D WLCLOSE ^SDECWL(.R ET,.INP) Q
  4697   "RTN","SDE C",272,0)
  4698   WLCLOSE1(R ET,INP) ;  Waitlist C LOSE  (wit hout ... f or VistA c alls)
  4699   "RTN","SDE C",273,0)
  4700    D WLCLOSE ^SDECWL(.R ET,.INP) Q
  4701   "RTN","SDE C",274,0)
  4702   WLGET(RET, WLIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRI,S VCR,SCVISI T,CLINIC,O RIGDT) ;EP  Waitlist  GET   ;alb /sat 658 a dd SVCL-SC VISIT
  4703   "RTN","SDE C",275,0)
  4704    D WLGET^S DECWL1(.RE T,$G(WLIEN 1),$G(MAXR EC),$G(SDB EG),$G(SDE ND),$G(DFN ),$G(LASTS UB),$G(SDT OP),$G(SVC L),$G(DESD T),$G(PRI) ,$G(SVCR), $G(SCVISIT ),$G(CLINI C),$G(ORIG DT)) Q
  4705   "RTN","SDE C",276,0)
  4706   WLHIDE(SDE CY,DFN,WLC L) ;GET wa it list en tries in w hich the a ssociated  clinic's ' HIDE FROM  DISPLAY?'  field is ' YES'
  4707   "RTN","SDE C",277,0)
  4708    D WLHIDE^ SDECWL3(.S DECY,$G(DF N),$G(WLCL )) Q
  4709   "RTN","SDE C",278,0)
  4710   WLOPEN(RET ,WLAPP,WLI EN,WLDDT)  ;SET Waitl ist Open/r e-open
  4711   "RTN","SDE C",279,0)
  4712    D WLOPEN^ SDECWL(.RE T,$G(WLAPP ),$G(WLIEN ),$G(WLDDT )) Q
  4713   "RTN","SDE C",280,0)
  4714   WLPCSET(SD ECY,INP,WL IEN) ;SET  update pat ient conta cts in SD  WAIT LIST  file
  4715   "RTN","SDE C",281,0)
  4716    D WLPCSET ^SDECWL(.S DECY,$G(IN P),$G(WLIE N)) Q
  4717   "RTN","SDE C",282,0)
  4718   WLSET(RET, INP...) ;E P Waitlist  Set
  4719   "RTN","SDE C",283,0)
  4720    D WLSET^S DECWL2(.RE T,.INP) Q
  4721   "RTN","SDE C",284,0)
  4722   WLSET1(RET ,INP) ;EP  Waitlist S et (withou t ... for  VistA call s)
  4723   "RTN","SDE C",285,0)
  4724    D WLSET^S DECWL2(.RE T,.INP) Q
  4725   "RTN","SDE C01C")
  4726   0^1^B69927 064^n/a
  4727   "RTN","SDE C01C",1,0)
  4728   SDEC01C ;A LB/AJF - V ISTA SCHED ULING RPCS  ;FEB 22,  2018
  4729   "RTN","SDE C01C",2,0)
  4730    ;;5.3;Sch eduling;** 686**;;Bui ld 39
  4731   "RTN","SDE C01C",3,0)
  4732    ;
  4733   "RTN","SDE C01C",4,0)
  4734    Q
  4735   "RTN","SDE C01C",5,0)
  4736    ;
  4737   "RTN","SDE C01C",6,0)
  4738   RESOURCE(S DECY,SDECD UZ,SDACT,S DTYPE,MAXR EC,LASTSUB I,SDIEN,SD ECP) ;Retu rns ADO Re cordset wi th ALL RES OURCE name s
  4739   "RTN","SDE C01C",7,0)
  4740    ;   SDECD UZ = (opti onal) poin ter to NEW  PERSON fi le
  4741   "RTN","SDE C01C",8,0)
  4742    ;                         Defau lts to cur rent user
  4743   "RTN","SDE C01C",9,0)
  4744    ;                         check s that ove rbook is a llowed
  4745   "RTN","SDE C01C",10,0 )
  4746    ;   SDACT    = (opti onal) 1 or  YES will  return onl y active r esources
  4747   "RTN","SDE C01C",11,0 )
  4748    ;                         0, NO , or null  will inclu de inactiv e
  4749   "RTN","SDE C01C",12,0 )
  4750    ;   SDTYP E    = (op tional) nu ll will re turn all r esource ty pes
  4751   "RTN","SDE C01C",13,0 )
  4752    ;             H will  only retu rn HOSPITA L LOCATION  (clinic)  resources
  4753   "RTN","SDE C01C",14,0 )
  4754    ;             P will  only retu rn NEW PER SON (Provi der) resou rces
  4755   "RTN","SDE C01C",15,0 )
  4756    ;             A will  only retu rn SDEC AD DITIONAL R ESOURCE re sources
  4757   "RTN","SDE C01C",16,0 )
  4758    ;             PH wil l only ret urn prohib ited clini cs
  4759   "RTN","SDE C01C",17,0 )
  4760    ;   MAXRE C   - (opt ional) Max  records r eturned
  4761   "RTN","SDE C01C",18,0 )
  4762    ;   LASTS UBI - (opt ional) las t subscrip ts from pr evious cal l
  4763   "RTN","SDE C01C",19,0 )
  4764    ;   SDIEN     - (opt ional) poi nter to SD EC RESOURC E file
  4765   "RTN","SDE C01C",20,0 )
  4766    ;                           onl y 1 record  will be r eturned if  SDIEN is  present
  4767   "RTN","SDE C01C",21,0 )
  4768    ;   SDECP   - (optio nal) Parti al name te xt
  4769   "RTN","SDE C01C",22,0 )
  4770    ;RETURN:
  4771   "RTN","SDE C01C",23,0 )
  4772    ;  Succes sful Retur n:
  4773   "RTN","SDE C01C",24,0 )
  4774    ;   a glo bal array  in which e ach array  entry cont ains data  from the
  4775   "RTN","SDE C01C",25,0 )
  4776    ;      SD EC RESOURC E file
  4777   "RTN","SDE C01C",26,0 )
  4778    ;   1. RE SOURCEID -  Pointer t o the SDEC  RESOURCE  file
  4779   "RTN","SDE C01C",27,0 )
  4780    ;   2. HO SPITALID -  Pointer t o the HOSP ITAL LOCAT ION file 4 4
  4781   "RTN","SDE C01C",28,0 )
  4782    ;   3. CL INNAME   -  Clinic Na me from HO SPITAL LOC ATION file  44
  4783   "RTN","SDE C01C",29,0 )
  4784    ;   4. AB BR       -  Abbreviat ion
  4785   "RTN","SDE C01C",30,0 )
  4786    ;   5. RE SOURCE_NAM E - NAME f rom SDEC R ESOURCE fi le
  4787   "RTN","SDE C01C",31,0 )
  4788    ;
  4789   "RTN","SDE C01C",32,0 )
  4790    ;
  4791   "RTN","SDE C01C",33,0 )
  4792    N SDA,SDC L,SDDATA,S DMSG,SDECE RR,SDECRET ,SDECIEN,S DECRES,SDE CDEP,SDECD DR,SDECDEP N,SDECRDAT ,SDECRNOD, SDECI,SDEC ,SDECLTR
  4793   "RTN","SDE C01C",34,0 )
  4794    N ABBR,SD ECNOS,SDEC CAN,SDF,SD TYPR,SDX,S DPRO,PRO,S DH,SDK,SDR T,SDT,SDXT ,SDCN,SDHL
  4795   "RTN","SDE C01C",35,0 )
  4796    S (SDF,SD RT,SDT,SDX )="",SDPRO =0
  4797   "RTN","SDE C01C",36,0 )
  4798    S SDECY=" ^TMP(""SDE C01C"","_$ J_",""RESO URCE"")"
  4799   "RTN","SDE C01C",37,0 )
  4800    K @SDECY
  4801   "RTN","SDE C01C",38,0 )
  4802    S SDECI=0
  4803   "RTN","SDE C01C",39,0 )
  4804    S (SDECER R,SDTYPR)= ""
  4805   "RTN","SDE C01C",40,0 )
  4806    ;                         1                         2                     3        
  4807   "RTN","SDE C01C",41,0 )
  4808    S @SDECY@ (SDECI)="I 00010RESOU RCEID^I000 10HOSPITAL _LOCATION_ ID^T00030C LINNAME^T0 0030ABBR^T 00030RESOU RCE_NAME"_ $C(30)
  4809   "RTN","SDE C01C",42,0 )
  4810    ;validate  user
  4811   "RTN","SDE C01C",43,0 )
  4812    S SDECDUZ =$G(SDECDU Z)
  4813   "RTN","SDE C01C",44,0 )
  4814    I '+SDECD UZ S SDECD UZ=DUZ
  4815   "RTN","SDE C01C",45,0 )
  4816    ;validate  active
  4817   "RTN","SDE C01C",46,0 )
  4818    S SDACT=1
  4819   "RTN","SDE C01C",47,0 )
  4820    ;S SDACT= $G(SDACT)
  4821   "RTN","SDE C01C",48,0 )
  4822    ;S SDACT= $S(SDACT=1 :1,SDACT=" YES":1,1:0 )
  4823   "RTN","SDE C01C",49,0 )
  4824    ;validate  type
  4825   "RTN","SDE C01C",50,0 )
  4826    S SDTYPE= "H"
  4827   "RTN","SDE C01C",51,0 )
  4828    ;MGH adde d new type
  4829   "RTN","SDE C01C",52,0 )
  4830    ;I SDTYPE ="PH" S SD PRO=1
  4831   "RTN","SDE C01C",53,0 )
  4832    S SDTYPE= $S(SDTYPE= "H":"SC(", SDTYPE="P" :"VA(200", SDTYPE="A" :"SDEC",1: "")
  4833   "RTN","SDE C01C",54,0 )
  4834    ;validate  MAXREC
  4835   "RTN","SDE C01C",55,0 )
  4836    S MAXREC= $G(MAXREC, 9999999)
  4837   "RTN","SDE C01C",56,0 )
  4838    ;validate  LASTSUBI
  4839   "RTN","SDE C01C",57,0 )
  4840    S LASTSUB I=$G(LASTS UBI)
  4841   "RTN","SDE C01C",58,0 )
  4842    ;validate  SDIEN
  4843   "RTN","SDE C01C",59,0 )
  4844    ;MGH chan ged to all ow multipl e IENS
  4845   "RTN","SDE C01C",60,0 )
  4846    S SDIEN=$ G(SDIEN)
  4847   "RTN","SDE C01C",61,0 )
  4848    I SDIEN'= "",'$D(^SD EC(409.831 ,+SDIEN,0) ) S SDIEN= ""
  4849   "RTN","SDE C01C",62,0 )
  4850    I $G(SDIE N) D  G RE SX
  4851   "RTN","SDE C01C",63,0 )
  4852    .F SDK=1: 1:$L(SDIEN ,"|") D
  4853   "RTN","SDE C01C",64,0 )
  4854    ..S SDECI EN=$P(SDIE N,"|",SDK)
  4855   "RTN","SDE C01C",65,0 )
  4856    ..Q:'$D(^ SDEC(409.8 31,+SDECIE N,0))
  4857   "RTN","SDE C01C",66,0 )
  4858    ..S SDECR ES=SDECIEN
  4859   "RTN","SDE C01C",67,0 )
  4860    ..D RES1
  4861   "RTN","SDE C01C",68,0 )
  4862    ;ien look up
  4863   "RTN","SDE C01C",69,0 )
  4864    ;I +SDIEN  S SDECRES =+SDIEN D  RES1 G RES X
  4865   "RTN","SDE C01C",70,0 )
  4866    ;validate  SDECP
  4867   "RTN","SDE C01C",71,0 )
  4868    S SDECP=$ G(SDECP)
  4869   "RTN","SDE C01C",72,0 )
  4870    ;partial  name looku p
  4871   "RTN","SDE C01C",73,0 )
  4872    I SDECP'= "" D
  4873   "RTN","SDE C01C",74,0 )
  4874    .S SDF=$S ($P(LASTSU BI,"|",1)' ="":$P(LAS TSUBI,"|", 1),1:"")
  4875   "RTN","SDE C01C",75,0 )
  4876    .S (SDX,S DXT)=$S($P (LASTSUBI, "|",2)'="" :$$GETSUB^ SDEC56($P( LASTSUBI," |",2)),1:$ $GETSUB^SD EC56(SDECP ))
  4877   "RTN","SDE C01C",76,0 )
  4878    .I ($P(LA STSUBI,"|" ,1)="")!($ P(LASTSUBI ,"|",1)="A BBR") S SD F="ABBR" F   S SDX=$O (^SDEC(409 .831,"C",S DX)) Q:SDX =""  Q:SDX '[SDECP  D   Q:(+MAXR EC)&(SDECI '<MAXREC)
  4879   "RTN","SDE C01C",77,0 )
  4880    ..S (SDEC RES,SDRT)= $S($P(LAST SUBI,"|",3 )'="":$P(L ASTSUBI,"| ",3),1:0)
  4881   "RTN","SDE C01C",78,0 )
  4882    ..S LASTS UBI="" F   S SDECRES= $O(^SDEC(4 09.831,"C" ,SDX,SDECR ES)) Q:'+S DECRES  D  RES1  Q:(+ MAXREC)&(S DECI'<MAXR EC)
  4883   "RTN","SDE C01C",79,0 )
  4884    .I ($P(LA STSUBI,"|" ,1)="")!($ P(LASTSUBI ,"|",1)="F ULL") S SD F="FULL",S DX=SDXT F   S SDX=$O( ^SDEC(409. 831,"B",SD X)) Q:SDX= ""  Q:SDX' [SDECP  D   Q:(+MAXRE C)&(SDECI' <MAXREC)
  4885   "RTN","SDE C01C",80,0 )
  4886    ..S (SDEC RES,SDRT)= $S($P(LAST SUBI,"|",3 )'="":$P(L ASTSUBI,"| ",3),SDRT' ="":SDRT,1 :0)
  4887   "RTN","SDE C01C",81,0 )
  4888    ..S LASTS UBI="" F   S SDECRES= $O(^SDEC(4 09.831,"B" ,SDX,SDECR ES)) Q:'+S DECRES  D  RES1  Q:(+ MAXREC)&(S DECI'<MAXR EC)
  4889   "RTN","SDE C01C",82,0 )
  4890    ;$O THRU  SDEC RESOU RCE File
  4891   "RTN","SDE C01C",83,0 )
  4892    I SDECP=" ",'+SDIEN  S SDECRES= $S($P(LAST SUBI,"|",2 )'="":$P(L ASTSUBI,"| ",2),1:0)  F  S SDECR ES=$O(^SDE C(409.831, SDECRES))  Q:'+SDECRE S  D  Q:(+ MAXREC)&(S DECI'<MAXR EC)
  4893   "RTN","SDE C01C",84,0 )
  4894    .D RES1
  4895   "RTN","SDE C01C",85,0 )
  4896   RESX ;
  4897   "RTN","SDE C01C",86,0 )
  4898    S @SDECY@ (SDECI)=@S DECY@(SDEC I)_$C(31)
  4899   "RTN","SDE C01C",87,0 )
  4900    Q
  4901   "RTN","SDE C01C",88,0 )
  4902   RES1 ; get  data for  1 resource
  4903   "RTN","SDE C01C",89,0 )
  4904    N FND
  4905   "RTN","SDE C01C",90,0 )
  4906    S FND=0
  4907   "RTN","SDE C01C",91,0 )
  4908    Q:'$D(^SD EC(409.831 ,SDECRES,0 ))
  4909   "RTN","SDE C01C",92,0 )
  4910    I SDF="FU LL",SDECP' ="" S FND= $$CHK(SDEC P,SDECRES)  Q:+FND    ;alb/sat 6 58 - stop  if 'this'  record fou nd in abbr eviations
  4911   "RTN","SDE C01C",93,0 )
  4912    I SDECP'= "" S SDH=0  F  S SDH= $O(^SDEC(4 09.831,"C" ,SDECP,SDH )) Q:SDH=" "  S FND=S DH=SDECRES   Q:FND
  4913   "RTN","SDE C01C",94,0 )
  4914    S SDECRNO D=^SDEC(40 9.831,SDEC RES,0)
  4915   "RTN","SDE C01C",95,0 )
  4916    I SDTYPE' ="" Q:$P(S DECRNOD,U, 11)'[SDTYP E
  4917   "RTN","SDE C01C",96,0 )
  4918    S SDTYPR= $P(SDECRNO D,U,11)
  4919   "RTN","SDE C01C",97,0 )
  4920    S $P(SDTY PR,"|",1)= $S($P(SDTY PR,";",2)= "SC(":"H", $P(SDTYPR, ";",2)="VA (200,":"P" ,$P(SDTYPR ,";",2)="S DEC(409.83 4,":"A",1: "")
  4921   "RTN","SDE C01C",98,0 )
  4922    S $P(SDTY PR,"|",2)= $P($P(SDEC RNOD,U,11) ,";",1)
  4923   "RTN","SDE C01C",99,0 )
  4924    S $P(SDTY PR,"|",3)= $$GET1^DIQ (409.831,S DECRES_"," ,.012)
  4925   "RTN","SDE C01C",100, 0)
  4926    I $P(SDTY PR,"|",1)= "P" D RESP RV1^SDEC01 B($P(SDTYP R,"|",2),$ P(SDECRNOD ,U,4))  ;d o not incl ude provid er resourc e if NEW P ERSON is n ot active
  4927   "RTN","SDE C01C",101, 0)
  4928    I $P(SDTY PR,"|",1)= "H" D CHKC ^SDEC01B($ P(SDTYPR," |",2),SDEC RES)
  4929   "RTN","SDE C01C",102, 0)
  4930    I +SDACT, $$GET1^DIQ (409.831,S DECRES_"," ,.02)="YES " Q   ;do  not includ e inactive  entries
  4931   "RTN","SDE C01C",103, 0)
  4932    D GETACC( .SDECACC,S DECDUZ,SDE CRES)
  4933   "RTN","SDE C01C",104, 0)
  4934    K SDECRDA T
  4935   "RTN","SDE C01C",105, 0)
  4936    ;alb/sat  658 - begi n mod
  4937   "RTN","SDE C01C",106, 0)
  4938    ;
  4939   "RTN","SDE C01C",107, 0)
  4940    S $P(SDEC RDAT,U,1)= $P(SDECRNO D,U,1)
  4941   "RTN","SDE C01C",108, 0)
  4942    S $P(SDEC RDAT,U,2)= $P(SDECRNO D,U,2)
  4943   "RTN","SDE C01C",109, 0)
  4944    S $P(SDEC RDAT,U,3)= $P(SDECRNO D,U,3)
  4945   "RTN","SDE C01C",110, 0)
  4946    S $P(SDEC RDAT,U,4)= $P(SDECRNO D,U,4)
  4947   "RTN","SDE C01C",111, 0)
  4948    S SDHL=$P (SDECRNOD, U,4)
  4949   "RTN","SDE C01C",112, 0)
  4950    S SDCN=$$ GET1^DIQ(4 4,SDHL_"," ,.01)  ;cl inic name
  4951   "RTN","SDE C01C",113, 0)
  4952    ;alb/sat  658 - end  mod
  4953   "RTN","SDE C01C",114, 0)
  4954    S SDECRDA T=SDECRES_ U_SDECRDAT    ;1,2-5
  4955   "RTN","SDE C01C",115, 0)
  4956    S SDCL=$P (SDECRDAT, U,5)
  4957   "RTN","SDE C01C",116, 0)
  4958    Q:+$$GET1 ^DIQ(44,SD CL_",",50. 01,"I")=1   ;OOS?
  4959   "RTN","SDE C01C",117, 0)
  4960    S PRO=0
  4961   "RTN","SDE C01C",118, 0)
  4962    ;MGH code  for new t ype to onl y contain  prohibited  clinics
  4963   "RTN","SDE C01C",119, 0)
  4964    Q:$G(SDCL )=""&(SDPR O=1)
  4965   "RTN","SDE C01C",120, 0)
  4966    Q:$G(SDCL )&(SDPRO=1 )&($$GET1^ DIQ(44,SDC L_",",2500 )'="YES")
  4967   "RTN","SDE C01C",121, 0)
  4968    S $P(SDEC RDAT,U,3)= $$GET1^DIQ (409.831,S DECRES_"," ,.02)
  4969   "RTN","SDE C01C",122, 0)
  4970    ;Get lett er text fr om wp fiel d
  4971   "RTN","SDE C01C",123, 0)
  4972    S SDECLTR =""
  4973   "RTN","SDE C01C",124, 0)
  4974    I 0,$D(^S DEC(409.83 1,SDECRES, 1)) D
  4975   "RTN","SDE C01C",125, 0)
  4976    . S SDECI EN=0
  4977   "RTN","SDE C01C",126, 0)
  4978    . F  S SD ECIEN=$O(^ SDEC(409.8 31,SDECRES ,1,SDECIEN )) Q:'+SDE CIEN  D
  4979   "RTN","SDE C01C",127, 0)
  4980    . . S SDE CLTR=SDECL TR_$G(^SDE C(409.831, SDECRES,1, SDECIEN,0) )
  4981   "RTN","SDE C01C",128, 0)
  4982    . . S SDE CLTR=SDECL TR_$C(13)_ $C(10)
  4983   "RTN","SDE C01C",129, 0)
  4984    S SDECNOS =""
  4985   "RTN","SDE C01C",130, 0)
  4986    I 0,$D(^S DEC(409.83 1,SDECRES, 12)) D
  4987   "RTN","SDE C01C",131, 0)
  4988    . S SDECI EN=0 F  S  SDECIEN=$O (^SDEC(409 .831,SDECR ES,12,SDEC IEN)) Q:'+ SDECIEN  D
  4989   "RTN","SDE C01C",132, 0)
  4990    . . S SDE CNOS=SDECN OS_$G(^SDE C(409.831, SDECRES,12 ,SDECIEN,0 ))
  4991   "RTN","SDE C01C",133, 0)
  4992    . . S SDE CNOS=SDECN OS_$C(13)_ $C(10)
  4993   "RTN","SDE C01C",134, 0)
  4994    S SDECCAN =""
  4995   "RTN","SDE C01C",135, 0)
  4996    I 0,$D(^S DEC(409.83 1,SDECRES, 13)) D
  4997   "RTN","SDE C01C",136, 0)
  4998    . S SDECI EN=0 F  S  SDECIEN=$O (^SDEC(409 .831,SDECR ES,13,SDEC IEN)) Q:'+ SDECIEN  D
  4999   "RTN","SDE C01C",137, 0)
  5000    . . S SDE CCAN=SDECC AN_$G(^SDE C(409.831, SDECRES,13 ,SDECIEN,0 ))
  5001   "RTN","SDE C01C",138, 0)
  5002    . . S SDE CCAN=SDECC AN_$C(13)_ $C(10)
  5003   "RTN","SDE C01C",139, 0)
  5004    N SDECACC ,SDECMGR
  5005   "RTN","SDE C01C",140, 0)
  5006    S SDECACC ="0^0^0^0"
  5007   "RTN","SDE C01C",141, 0)
  5008    S SDECMGR =$O(^DIC(1 9.1,"B","S DECZMGR",0 ))
  5009   "RTN","SDE C01C",142, 0)
  5010    I +SDECMG R,$D(^VA(2 00,SDECDUZ ,51,SDECMG R)) S SDEC ACC="1^1^1 ^1"
  5011   "RTN","SDE C01C",143, 0)
  5012    I SDECACC ="0^0^0^0"  D
  5013   "RTN","SDE C01C",144, 0)
  5014    . N SDECN OD,SDECRUI D
  5015   "RTN","SDE C01C",145, 0)
  5016    . S SDECR UID=0
  5017   "RTN","SDE C01C",146, 0)
  5018    . ;Get en try for th is user an d resource
  5019   "RTN","SDE C01C",147, 0)
  5020    . F  S SD ECRUID=$O( ^SDEC(409. 833,"AC",S DECDUZ,SDE CRUID)) Q: '+SDECRUID   I $D(^SD EC(409.833 ,SDECRUID, 0)),$P(^(0 ),U)=SDECR ES Q
  5021   "RTN","SDE C01C",148, 0)
  5022    . Q:'+SDE CRUID
  5023   "RTN","SDE C01C",149, 0)
  5024    . S $P(SD ECACC,U)=1
  5025   "RTN","SDE C01C",150, 0)
  5026    . S SDECN OD=$G(^SDE C(409.833, SDECRUID,0 ))
  5027   "RTN","SDE C01C",151, 0)
  5028    . S $P(SD ECACC,U,2) =+$P(SDECN OD,U,3)
  5029   "RTN","SDE C01C",152, 0)
  5030    . S $P(SD ECACC,U,3) =+$P(SDECN OD,U,4)
  5031   "RTN","SDE C01C",153, 0)
  5032    . S $P(SD ECACC,U,4) =+$P(SDECN OD,U,5)
  5033   "RTN","SDE C01C",154, 0)
  5034    ;                       6          7          8          9-12
  5035   "RTN","SDE C01C",155, 0)
  5036    K SDDATA  D GETS^DIQ (409.831,S DECRES_"," ,".01:.04" ,"IE","SDD ATA","SDMS G")
  5037   "RTN","SDE C01C",156, 0)
  5038    S SDA="SD DATA(409.8 31,"""_SDE CRES_","") "
  5039   "RTN","SDE C01C",157, 0)
  5040    S ABBR=@S DA@(.011," E")   ;abb reviation
  5041   "RTN","SDE C01C",158, 0)
  5042    ;AJF ; 02 2718 ; Onl y return 7  variables
  5043   "RTN","SDE C01C",159, 0)
  5044    S SDECRDA T=SDECRES_ U_SDHL_U_S DCN_U_ABBR _U_$P(SDEC RNOD,U)
  5045   "RTN","SDE C01C",160, 0)
  5046    ;S SDECRD AT=SDECRES _U_SDHL_U_ SDCN
  5047   "RTN","SDE C01C",161, 0)
  5048    S $P(SDEC RDAT,U,4)= @SDA@(.011 ,"E")   ;a bbreviatio n
  5049   "RTN","SDE C01C",162, 0)
  5050    S $P(SDEC RDAT,U,5)= $S(($G(SDF )="ABBR")& (@SDA@(.01 1,"E")'="" ):@SDA@(.0 11,"E")_"  ",1:"")_$P (SDECRDAT, U,5)  ;alb /sat 658 -  include a bbr in nam e if found  by C xref
  5051   "RTN","SDE C01C",163, 0)
  5052    ;S $P(SDE CRDAT,U,6) =SDF_"|"_S DX_"|"_SDE CRES   ;LA STSUB
  5053   "RTN","SDE C01C",164, 0)
  5054    S SDECI=S DECI+1
  5055   "RTN","SDE C01C",165, 0)
  5056    S @SDECY@ (SDECI)=SD ECRDAT_$C( 30)
  5057   "RTN","SDE C01C",166, 0)
  5058    Q
  5059   "RTN","SDE C01C",167, 0)
  5060    ;
  5061   "RTN","SDE C01C",168, 0)
  5062   GETACC(SDE CACC,SDECD UZ,SDECRES ) ;get vie w, overboo k, modify  appt, and  modify sch edule abil ities
  5063   "RTN","SDE C01C",169, 0)
  5064    ;INPUT:
  5065   "RTN","SDE C01C",170, 0)
  5066    ; SDECDUZ  = user ID  pointer t o NEW PERS ON file
  5067   "RTN","SDE C01C",171, 0)
  5068    ; SDECRES  = resourc e ID point er to SDEC  RESOURCE  file
  5069   "RTN","SDE C01C",172, 0)
  5070    ;RETURN:
  5071   "RTN","SDE C01C",173, 0)
  5072    ; .SDECAC C  = acces s separate d by ^:
  5073   "RTN","SDE C01C",174, 0)
  5074    ;   1. VI EW - User  can VIEW 1 =YES; 0=NO
  5075   "RTN","SDE C01C",175, 0)
  5076    ;   2. OV ERBOOK - U ser can OV ERBOOK  1= YES; 0=NO
  5077   "RTN","SDE C01C",176, 0)
  5078    ;   3. MO DIFY SCHED ULE - User  can Modif y Schedule   1=YES; 0 =NO
  5079   "RTN","SDE C01C",177, 0)
  5080    ;   4. MO DIFY APPOI NTMENTS Us er can mod ify appoin tments  1= YES; 0=NO
  5081   "RTN","SDE C01C",178, 0)
  5082    N SDECMGR
  5083   "RTN","SDE C01C",179, 0)
  5084    S SDECACC ="0^0^0^0"
  5085   "RTN","SDE C01C",180, 0)
  5086    S SDECMGR =$O(^DIC(1 9.1,"B","S DECZMGR",0 ))
  5087   "RTN","SDE C01C",181, 0)
  5088    I +SDECMG R,$D(^VA(2 00,SDECDUZ ,51,SDECMG R)) S SDEC ACC="1^1^1 ^1"
  5089   "RTN","SDE C01C",182, 0)
  5090    I SDECACC ="0^0^0^0"  D
  5091   "RTN","SDE C01C",183, 0)
  5092    . N SDECN OD,SDECRUI D
  5093   "RTN","SDE C01C",184, 0)
  5094    . S SDECR UID=0
  5095   "RTN","SDE C01C",185, 0)
  5096    . ;Get en try for th is user an d resource
  5097   "RTN","SDE C01C",186, 0)
  5098    . F  S SD ECRUID=$O( ^SDEC(409. 833,"AC",S DECDUZ,SDE CRUID)) Q: '+SDECRUID   I $D(^SD EC(409.833 ,SDECRUID, 0)),$P(^(0 ),U)=SDECR ES Q
  5099   "RTN","SDE C01C",187, 0)
  5100    . Q:'+SDE CRUID
  5101   "RTN","SDE C01C",188, 0)
  5102    . S $P(SD ECACC,U)=1
  5103   "RTN","SDE C01C",189, 0)
  5104    . S SDECN OD=$G(^SDE C(409.833, SDECRUID,0 ))
  5105   "RTN","SDE C01C",190, 0)
  5106    . S $P(SD ECACC,U,2) =+$P(SDECN OD,U,3)
  5107   "RTN","SDE C01C",191, 0)
  5108    . S $P(SD ECACC,U,3) =+$P(SDECN OD,U,4)
  5109   "RTN","SDE C01C",192, 0)
  5110    . S $P(SD ECACC,U,4) =+$P(SDECN OD,U,5)
  5111   "RTN","SDE C01C",193, 0)
  5112    Q
  5113   "RTN","SDE C01C",194, 0)
  5114    ;
  5115   "RTN","SDE C01C",195, 0)
  5116   GETLTRS(SD ECLTR,SDEC NOS,SDECCA N,SDECRES, SDCL) ;get  resource  letters
  5117   "RTN","SDE C01C",196, 0)
  5118    ;INPUT:
  5119   "RTN","SDE C01C",197, 0)
  5120    ; SDECRES  = resourc e ID point er to SDEC  RESOURCE  file
  5121   "RTN","SDE C01C",198, 0)
  5122    ; SDCL     = clinic  ID pointer  to HOSPIT AL LOCATIO N file
  5123   "RTN","SDE C01C",199, 0)
  5124    ;RETURN:
  5125   "RTN","SDE C01C",200, 0)
  5126    ; .SDECLT R = LETTER  TEXT
  5127   "RTN","SDE C01C",201, 0)
  5128    ; .SDECNO S = NO SHO W LETTER
  5129   "RTN","SDE C01C",202, 0)
  5130    ; .SDECCA N = CLINIC  CANCELLAT ION LETTER
  5131   "RTN","SDE C01C",203, 0)
  5132    ; .Get le tter text  from wp fi eld
  5133   "RTN","SDE C01C",204, 0)
  5134    N SDECIEN
  5135   "RTN","SDE C01C",205, 0)
  5136    S SDECLTR =""
  5137   "RTN","SDE C01C",206, 0)
  5138    I $D(^SDE C(409.831, SDECRES,2, SDCL,1)) D
  5139   "RTN","SDE C01C",207, 0)
  5140    . S SDECI EN=0 F  S  SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 1,SDECIEN) ) Q:'+SDEC IEN  D
  5141   "RTN","SDE C01C",208, 0)
  5142    . . S SDE CLTR=SDECL TR_$G(^SDE C(409.831, SDECRES,2, SDCL,1,SDE CIEN,0))
  5143   "RTN","SDE C01C",209, 0)
  5144    . . S SDE CLTR=SDECL TR_$C(13)_ $C(10)
  5145   "RTN","SDE C01C",210, 0)
  5146    S SDECNOS =""
  5147   "RTN","SDE C01C",211, 0)
  5148    I $D(^SDE C(409.831, SDECRES,2, SDCL,12))  D
  5149   "RTN","SDE C01C",212, 0)
  5150    . S SDECI EN=0 F  S  SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 12,SDECIEN )) Q:'+SDE CIEN  D
  5151   "RTN","SDE C01C",213, 0)
  5152    . . S SDE CNOS=SDECN OS_$G(^SDE C(409.831, SDECRES,2, SDCL,12,SD ECIEN,0))
  5153   "RTN","SDE C01C",214, 0)
  5154    . . S SDE CNOS=SDECN OS_$C(13)_ $C(10)
  5155   "RTN","SDE C01C",215, 0)
  5156    S SDECCAN =""
  5157   "RTN","SDE C01C",216, 0)
  5158    I $D(^SDE C(409.831, SDECRES,13 )) D
  5159   "RTN","SDE C01C",217, 0)
  5160    . S SDECI EN=0 F  S  SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 13,SDECIEN )) Q:'+SDE CIEN  D
  5161   "RTN","SDE C01C",218, 0)
  5162    . . S SDE CCAN=SDECC AN_$G(^SDE C(409.831, SDECRES,2, SDCL,13,SD ECIEN,0))
  5163   "RTN","SDE C01C",219, 0)
  5164    . . S SDE CCAN=SDECC AN_$C(13)_ $C(10)
  5165   "RTN","SDE C01C",220, 0)
  5166    Q
  5167   "RTN","SDE C01C",221, 0)
  5168    ;
  5169   "RTN","SDE C01C",222, 0)
  5170   CHK(SDECP, SDECRES)   ;alb/sat 6 58 - stop  if 'this'  record fou nd in abbr eviations
  5171   "RTN","SDE C01C",223, 0)
  5172    N FND,SDR ,SDX
  5173   "RTN","SDE C01C",224, 0)
  5174    S FND=0
  5175   "RTN","SDE C01C",225, 0)
  5176    S SDX=$$G ETSUB^SDEC 56(SDECP)
  5177   "RTN","SDE C01C",226, 0)
  5178    F  S SDX= $O(^SDEC(4 09.831,"C" ,SDX)) Q:S DX=""  Q:S DX'[SDECP   D  Q:+FND
  5179   "RTN","SDE C01C",227, 0)
  5180    .S SDR=0  F  S SDR=$ O(^SDEC(40 9.831,"C", SDX,SDR))  Q:'+SDR  S  FND=SDR=S DECRES  Q: +FND
  5181   "RTN","SDE C01C",228, 0)
  5182    Q FND
  5183   "RTN","SDE C07")
  5184   0^10^B2063 27125^B200 567128
  5185   "RTN","SDE C07",1,0)
  5186   SDEC07 ;AL B/SAT - VI STA SCHEDU LING RPCS  ; 11 Sep 2 018  1:45  PM
  5187   "RTN","SDE C07",2,0)
  5188    ;;5.3;Sch eduling;** 627,642,65 1,658,665, 669,671,67 2,701,686* *;Aug 13,  1993;Build  39
  5189   "RTN","SDE C07",3,0)
  5190    ;
  5191   "RTN","SDE C07",4,0)
  5192    ;Referenc e is made  to ICR #48 37
  5193   "RTN","SDE C07",5,0)
  5194    Q
  5195   "RTN","SDE C07",6,0)
  5196    ;
  5197   "RTN","SDE C07",7,0)
  5198   APPADD(SDE CY,SDECSTA RT,SDECEND ,DFN,SDECR ES,SDECLEN ,SDECNOTE, SDECATID,S DECCR,SDMR TC,SDDDT,S DREQBY,SDL AB,PROVIEN ,SDID,SDAP TYP,SDSVCP ,SDSVCPR,S DCL,SDEKG, SDXRAY,APP TYPE,EESTA T,OVB,SDPA RENT,SDEL)  ;ADD NEW  APPOINTMEN T
  5199   "RTN","SDE C07",8,0)
  5200    ;
  5201   "RTN","SDE C07",9,0)
  5202    N SDAPPTY P
  5203   "RTN","SDE C07",10,0)
  5204    N SDECERR ,SDECIEN,S DECDEP,SDE CI,SDECJ,S DECAPPTI,S DECDJ,SDEC RESD,SDECR NOD,SDECC, SDECERR,SD ECWKIN
  5205   "RTN","SDE C07",11,0)
  5206    N SDECNOE V,SDECDEV, SDECDERR,S DECTMP,SAV ESTRT,SDAR EQ0
  5207   "RTN","SDE C07",12,0)
  5208    N %DT,X,Y ,DGQUIET,O BM,RET
  5209   "RTN","SDE C07",13,0)
  5210    N SDOE  ; alb/sat 67 2
  5211   "RTN","SDE C07",14,0)
  5212    S SDECNOE V=1 ;Don't  execute S DEC ADD AP POINTMENT  protocol
  5213   "RTN","SDE C07",15,0)
  5214    K ^TMP("S DEC07",$J)
  5215   "RTN","SDE C07",16,0)
  5216    S SDECERR =0
  5217   "RTN","SDE C07",17,0)
  5218    S SDECI=0
  5219   "RTN","SDE C07",18,0)
  5220    S SDECY=" ^TMP(""SDE C07"","_$J _")"
  5221   "RTN","SDE C07",19,0)
  5222    S ^TMP("S DEC07",$J, SDECI)="I0 0020APPOIN TMENTID^T0 0020ERRORI D"_$C(30)
  5223   "RTN","SDE C07",20,0)
  5224    S SDECI=S DECI+1
  5225   "RTN","SDE C07",21,0)
  5226    ;Check in put data f or errors
  5227   "RTN","SDE C07",22,0)
  5228    S SDAREQ0 =$G(^SDEC( 409.85,+$P (SDAPTYP," |",2),0))
  5229   "RTN","SDE C07",23,0)
  5230    I $P(SDAR EQ0,U,5)=" RTC",$P(SD AREQ0,U,17 )="C" D ER R(SDECI+1, "SDEC07 Er ror: This  RTC reques t has been  closed.")  Q
  5231   "RTN","SDE C07",24,0)
  5232    S SAVESTR T=SDECSTAR T          ;MGH save  date/time  for consul t request
  5233   "RTN","SDE C07",25,0)
  5234    S:SDECSTA RT["@0000"  SDECSTART =$P(SDECST ART,"@")
  5235   "RTN","SDE C07",26,0)
  5236    S:SDECEND ["@0000" S DECEND=$P( SDECEND,"@ ")
  5237   "RTN","SDE C07",27,0)
  5238    S %DT="RX T",X=SDECS TART D ^%D T S SDECST ART=Y
  5239   "RTN","SDE C07",28,0)
  5240    I SDECSTA RT=-1 D ER R(SDECI+1, "SDEC07 Er ror: Inval id Start T ime") Q
  5241   "RTN","SDE C07",29,0)
  5242    S %DT="RX T",X=SDECE ND D ^%DT  S SDECEND= Y
  5243   "RTN","SDE C07",30,0)
  5244    I SDECEND =-1 D ERR( SDECI+1,"S DEC07 Erro r: Invalid  End Time" ) Q
  5245   "RTN","SDE C07",31,0)
  5246    I $L(SDEC END,".")=1  D ERR(SDE CI+1,"SDEC 07 Error:  Invalid En d Time") Q
  5247   "RTN","SDE C07",32,0)
  5248    I SDECSTA RT>SDECEND  S SDECTMP =SDECEND,S DECEND=SDE CSTART,SDE CSTART=SDE CTMP
  5249   "RTN","SDE C07",33,0)
  5250    S DFN=$G( DFN)
  5251   "RTN","SDE C07",34,0)
  5252    I DFN=""  D ERR(SDEC I+1,"SDEC0 7: Patient  ID requir ed.") Q
  5253   "RTN","SDE C07",35,0)
  5254    I '$D(^DP T(DFN,0))  D ERR(SDEC I+1,"SDEC0 7 Error: I nvalid Pat ient ID")  Q
  5255   "RTN","SDE C07",36,0)
  5256    L +^DPT(D FN):3 I '$ T D ERR(SD ECI+1,"Pat ient is be ing edited . Try agai n later.")  Q   ;alb/ sat 665
  5257   "RTN","SDE C07",37,0)
  5258    ;Validate  Resource
  5259   "RTN","SDE C07",38,0)
  5260    S SDECERR =0 K SDECR ESD
  5261   "RTN","SDE C07",39,0)
  5262    S SDECRES =$G(SDECRE S)
  5263   "RTN","SDE C07",40,0)
  5264    I +SDECRE S,'$D(^SDE C(409.831, SDECRES,0) ) D ERR(SD ECI+1,"SDE C07 Error:  Invalid R esource ID ") Q
  5265   "RTN","SDE C07",41,0)
  5266    I '+SDECR ES,'$D(^SD EC(409.831 ,"B",SDECR ES)) D ERR (SDECI+1," SDEC07 Err or: Invali d Resource  ID") Q
  5267   "RTN","SDE C07",42,0)
  5268    S SDECRES D=$S(+SDEC RES:+SDECR ES,1:$O(^S DEC(409.83 1,"B",SDEC RES,0)))
  5269   "RTN","SDE C07",43,0)
  5270    S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) )
  5271   "RTN","SDE C07",44,0)
  5272    I SDECRNO D="" D ERR (SDECI+1," SDEC07 Err or: Unable  to add ap pointment  -- invalid  Resource  entry.") Q
  5273   "RTN","SDE C07",45,0)
  5274    ;
  5275   "RTN","SDE C07",46,0)
  5276    ;  Check  that appoi ntment dat e is not l ater than  clinic per mits or 39 0 days in  future if  no limit i n clinic f ile (#44).
  5277   "RTN","SDE C07",47,0)
  5278    ;
  5279   "RTN","SDE C07",48,0)
  5280    ;  wtc 6/ 18/18 SD*5 .3*701
  5281   "RTN","SDE C07",49,0)
  5282    ;
  5283   "RTN","SDE C07",50,0)
  5284    N PTR44,M AXDAYS S P TR44=$P(SD ECRNOD,"^" ,4),MAXDAY S=390 ;
  5285   "RTN","SDE C07",51,0)
  5286    I +PTR44, $D(^SC(PTR 44,"SDP"))  S MAXDAYS =$P(^("SDP "),"^",2)  S:MAXDAYS= "" MAXDAYS =390 ;
  5287   "RTN","SDE C07",52,0)
  5288    I SDECSTA RT>$$FMADD ^XLFDT($$N OW^XLFDT() ,MAXDAYS)  D ERR(SDEC I+1,"Appoi ntment dat e too far  in the fut ure") Q  ;
  5289   "RTN","SDE C07",53,0)
  5290    ;
  5291   "RTN","SDE C07",54,0)
  5292    S SDECWKI N=0
  5293   "RTN","SDE C07",55,0)
  5294    S SDECATI D=$G(SDECA TID)
  5295   "RTN","SDE C07",56,0)
  5296    I SDECATI D="WALKIN"  S SDECWKI N=1
  5297   "RTN","SDE C07",57,0)
  5298    I SDECATI D'?.N&(SDE CATID'="WA LKIN") S S DECATID=""
  5299   "RTN","SDE C07",58,0)
  5300    ;validate  appointme nt length  - if passe d in, must  be 5-120
  5301   "RTN","SDE C07",59,0)
  5302    S SDECLEN =$G(SDECLE N)
  5303   "RTN","SDE C07",60,0)
  5304    ;I SDECLE N'="",(+SD ECLEN<5)!( SDECLEN>12 0) D ERR(S DECI+1,"SD EC07 Error : Appointm ent length  must be b etween 5 -  120.") Q
  5305   "RTN","SDE C07",61,0)
  5306    ;validate  MTRC flag  (optional )
  5307   "RTN","SDE C07",62,0)
  5308    S SDMRTC= $$UP^XLFST R($G(SDMRT C))
  5309   "RTN","SDE C07",63,0)
  5310    S SDMRTC= $S(SDMRTC= "TRUE":1,1 :0)
  5311   "RTN","SDE C07",64,0)
  5312    ;validate  desired d ate of app t (optiona l)
  5313   "RTN","SDE C07",65,0)
  5314    S SDDDT=$ G(SDDDT)
  5315   "RTN","SDE C07",66,0)
  5316    I SDDDT'= "" S %DT=" " S X=$P(S DDDT,"@",1 ) D ^%DT S  SDDDT=Y I  Y=-1 S SD DDT=""
  5317   "RTN","SDE C07",67,0)
  5318    I SDDDT=" ",SDECATID '="WALKIN"  S SDDDT=$ P(SDECSTAR T,".",1)
  5319   "RTN","SDE C07",68,0)
  5320    ;validate  requested  by
  5321   "RTN","SDE C07",69,0)
  5322    S SDREQBY =$$UP^XLFS TR($G(SDRE QBY))
  5323   "RTN","SDE C07",70,0)
  5324    I SDREQBY '="" S SDR EQBY=$S(SD REQBY="PRO VIDER":1,S DREQBY="PA TIENT":2,1 :0)
  5325   "RTN","SDE C07",71,0)
  5326    ;validate  lab date/ time (opti onal)
  5327   "RTN","SDE C07",72,0)
  5328    S SDLAB=$ G(SDLAB)
  5329   "RTN","SDE C07",73,0)
  5330    I SDLAB'= "" S %DT=" T" S X=SDL AB D ^%DT  S SDLAB=Y  I Y=-1 S S DLAB=""
  5331   "RTN","SDE C07",74,0)
  5332    ;validate  EKG date/ time (opti onal)
  5333   "RTN","SDE C07",75,0)
  5334    S SDEKG=$ G(SDEKG)
  5335   "RTN","SDE C07",76,0)
  5336    I SDEKG'= "" S %DT=" T" S X=SDE KG D ^%DT  S SDEKG=Y  I Y=-1 S S DEKG=""
  5337   "RTN","SDE C07",77,0)
  5338    ;validate  XRAY date /time (opt ional)
  5339   "RTN","SDE C07",78,0)
  5340    S SDXRAY= $G(SDXRAY)
  5341   "RTN","SDE C07",79,0)
  5342    I SDXRAY' ="" S %DT= "T" S X=SD XRAY D ^%D T S SDXRAY =Y I Y=-1  S SDXRAY=" "
  5343   "RTN","SDE C07",80,0)
  5344    ;validate  provider
  5345   "RTN","SDE C07",81,0)
  5346    I '$D(^VA (200,+$G(P ROVIEN),0) ) S PROVIE N=""
  5347   "RTN","SDE C07",82,0)
  5348    S SDID=$G (SDID)
  5349   "RTN","SDE C07",83,0)
  5350    ;validate  clinic
  5351   "RTN","SDE C07",84,0)
  5352    S SDCL=$G (SDCL)
  5353   "RTN","SDE C07",85,0)
  5354    I SDCL'=" " I '$D(^S C(SDCL,0))  S SDCL=""
  5355   "RTN","SDE C07",86,0)
  5356    I SDCL=""  S SDCL=$$ GET1^DIQ(4 09.831,SDE CRESD_",", .04,"I")    ;clinic I D   ;suppo rt for sin gle HOSPIT AL LOCATIO N in SDEC  RESOURCE
  5357   "RTN","SDE C07",87,0)
  5358    S OVB=+$G (OVB)  ;al b/sat 665
  5359   "RTN","SDE C07",88,0)
  5360    I 'OVB S  OBM=$$OBM1 ^SDEC57(SD CL,SDECSTA RT,SDMRTC, ,+SDECWKIN ) I OBM'=" ",+OBM'=1  S SDECAPPT ID=0 D ERR (SDECI+1," OBM"_OBM)  Q   ;alb/s at 658 che ck if over book ;alb/ sat 665 cl ear SDECAP PTID
  5361   "RTN","SDE C07",89,0)
  5362    ;validate  appt requ est type ( required)
  5363   "RTN","SDE C07",90,0)
  5364    S SDAPTYP =$G(SDAPTY P)
  5365   "RTN","SDE C07",91,0)
  5366    I SDAPTYP '="" D
  5367   "RTN","SDE C07",92,0)
  5368    .I $P(SDA PTYP,"|",1 )="E" I '$ D(^SDWL(40 9.3,+$P(SD APTYP,"|", 2),0)) S S DAPTYP=""
  5369   "RTN","SDE C07",93,0)
  5370    .I $P(SDA PTYP,"|",1 )="R" I '$ D(^SD(403. 5,+$P(SDAP TYP,"|",2) ,0)) S SDA PTYP=""
  5371   "RTN","SDE C07",94,0)
  5372    .I $P(SDA PTYP,"|",1 )="C" I '$ D(^GMR(123 ,+$P(SDAPT YP,"|",2), 0)) S SDAP TYP=""  ;I CR 4837
  5373   "RTN","SDE C07",95,0)
  5374    .I $P(SDA PTYP,"|",1 )="A" I '$ D(^SDEC(40 9.85,+$P(S DAPTYP,"|" ,2),0)) S  SDAPTYP=""
  5375   "RTN","SDE C07",96,0)
  5376    .;I SDAPT YP="" D ER R(SDECI+1, "SDEC07 Er ror: Inval id appoint ment reque st type.")  Q   ;supp ort for mu ltiple HOS PITAL LOCA TIONs are  implemente d in SDEC  RESOURCE
  5377   "RTN","SDE C07",97,0)
  5378    I SDCL=""  D
  5379   "RTN","SDE C07",98,0)
  5380    .S:$P(SDA PTYP,"|",1 )="E" SDCL =$$GET1^DI Q(409.3,$P (SDAPTYP," |",2)_",", 13.2,"I")
  5381   "RTN","SDE C07",99,0)
  5382    .S:$P(SDA PTYP,"|",1 )="R" SDCL =$$GET1^DI Q(403.5,$P (SDAPTYP," |",2)_",", 4.5,"I")
  5383   "RTN","SDE C07",100,0 )
  5384    .S:$P(SDA PTYP,"|",1 )="C" SDCL =$P($G(^GM R(123,+$P( SDAPTYP,"| ",2),0)),U ,4)        ;ICR 4837  ICR states  'Zero nod e read int o variable '
  5385   "RTN","SDE C07",101,0 )
  5386    .S:$P(SDA PTYP,"|",1 )="A" SDCL =$$GET1^DI Q(409.85,$ P(SDAPTYP, "|",2)_"," ,8,"I")
  5387   "RTN","SDE C07",102,0 )
  5388    I SDCL=""  D ERR(SDE CI+1,"SDEC 07 Error:  Invalid cl inic ID.")  Q
  5389   "RTN","SDE C07",103,0 )
  5390    I $$INACT IVE^SDEC32 (SDCL) D E RR(SDECI+1 ,"SDEC07 E rror: "_$$ GET1^DIQ(4 4,SDCL_"," ,.01)_" is  an inacti ve clinic. ") Q
  5391   "RTN","SDE C07",104,0 )
  5392    ;
  5393   "RTN","SDE C07",105,0 )
  5394    ;   Rejec t if consu lt is is n ot active  or pending .  SD*5.3* 686
  5395   "RTN","SDE C07",106,0 )
  5396    ;
  5397   "RTN","SDE C07",107,0 )
  5398    I $P(SDAP TYP,"|",1) ="C" N CNS LTSTS,NOTO K S CNSLTS TS=$P($G(^ GMR(123,+$ P(SDAPTYP, "|",2),0)) ,U,12),NOT OK=0 D  Q: NOTOK  ;
  5399   "RTN","SDE C07",108,0 )
  5400    . I CNSLT STS'=5,CNS LTSTS'=6 D  ERR(SDECI +1,"Consul t status i s not PEND ING or ACT IVE.  It c annot be s cheduled." ) S NOTOK= 1 Q  ;
  5401   "RTN","SDE C07",109,0 )
  5402    ;
  5403   "RTN","SDE C07",110,0 )
  5404    ;validate  service c onnected
  5405   "RTN","SDE C07",111,0 )
  5406    S SDSVCPR =$G(SDSVCP R)
  5407   "RTN","SDE C07",112,0 )
  5408    I SDSVCPR '="" S:(+S DSVCPR<0)! (+SDSVCPR> 100) SDSVC PR=""
  5409   "RTN","SDE C07",113,0 )
  5410    S SDSVCP= $G(SDSVCP)
  5411   "RTN","SDE C07",114,0 )
  5412    S SDSVCP= $S(SDSVCP= 0:0,SDSVCP ="NO":0,SD SVCP=1:1,S DSVCP="YES ":1,1:"")
  5413   "RTN","SDE C07",115,0 )
  5414    ;validate  note
  5415   "RTN","SDE C07",116,0 )
  5416    S SDECNOT E=$G(SDECN OTE) S:SDE CNOTE'=""  SDECNOTE=$ TR($E(SDEC NOTE,1,150 ),"^"," ")    ;alb/sa t 658 - on ly use 1st  150 chara cters
  5417   "RTN","SDE C07",117,0 )
  5418    ;validate  APPTYPE
  5419   "RTN","SDE C07",118,0 )
  5420    S APPTYPE =$G(APPTYP E) I APPTY PE'="",'$D (^SD(409.1 ,+APPTYPE, 0)) S APPT YPE=""
  5421   "RTN","SDE C07",119,0 )
  5422    ;validate  Patient S tatus (EES TAT)
  5423   "RTN","SDE C07",120,0 )
  5424    S EESTAT= $G(EESTAT)
  5425   "RTN","SDE C07",121,0 )
  5426    I EESTAT= "" D
  5427   "RTN","SDE C07",122,0 )
  5428    .I $P(SDA PTYP,"|",1 )="E" S EE STAT=$$GET 1^DIQ(409. 3,$P(SDAPT YP,"|",2)_ ",",27,"I" )
  5429   "RTN","SDE C07",123,0 )
  5430    .I $P(SDA PTYP,"|",1 )="A" S EE STAT=$$GET 1^DIQ(409. 3,$P(SDAPT YP,"|",2)_ ",",.02,"I ")
  5431   "RTN","SDE C07",124,0 )
  5432    S EESTAT= $S(EESTAT= "N":"N",EE STAT="NEW" :"N",EESTA T="E":"E", EESTAT="ES TABLISHED" :"E",1:"")
  5433   "RTN","SDE C07",125,0 )
  5434    ;validate  OVB (over book)
  5435   "RTN","SDE C07",126,0 )
  5436    S OVB=+$G (OVB)
  5437   "RTN","SDE C07",127,0 )
  5438    I 'OVB D
  5439   "RTN","SDE C07",128,0 )
  5440    .D OVBOOK ^SDEC(.RET ,SDCL,SDEC START,SDEC RES)
  5441   "RTN","SDE C07",129,0 )
  5442    D
  5443   "RTN","SDE C07",130,0 )
  5444    .S SDAPPT YP=+APPTYP E
  5445   "RTN","SDE C07",131,0 )
  5446    .I 'SDAPP TYP D
  5447   "RTN","SDE C07",132,0 )
  5448    ..I $P(SD APTYP,"|", 1)="E" S S DAPPTYP=$$ GET1^DIQ(4 09.3,+$P(S DAPTYP,"|" ,2)_",",8. 7,"I")
  5449   "RTN","SDE C07",133,0 )
  5450    ..I $P(SD APTYP,"|", 1)="A" S S DAPPTYP=$$ GET1^DIQ(4 09.85,+$P( SDAPTYP,"| ",2)_",",8 .7,"I")
  5451   "RTN","SDE C07",134,0 )
  5452    ..I $P(SD APTYP,"|", 1)="C",+AP PTYPE S SD APPTYP=+AP PTYPE
  5453   "RTN","SDE C07",135,0 )
  5454    .S:'SDAPP TYP SDAPPT YP=$O(^SD( 409.1,"B", "REGULAR", 0))
  5455   "RTN","SDE C07",136,0 )
  5456    ;Lock SDE C node
  5457   "RTN","SDE C07",137,0 )
  5458    L +^SDEC( 409.84,DFN ):5 I '$T  D ERR(SDEC I+1,"Anoth er user is  working w ith this p atient's r ecord.  Pl ease try a gain later ") Q
  5459   "RTN","SDE C07",138,0 )
  5460    ;
  5461   "RTN","SDE C07",139,0 )
  5462    ;TSTART
  5463   "RTN","SDE C07",140,0 )
  5464    S SDECAPP TID=$$SDEC ADD(SDECST ART,SDECEN D,DFN,SDEC RESD,SDECA TID,SDDDT, SDID,SDAPT YP,PROVIEN ,SDCL,SDEC NOTE,SAVES TRT,SDECRE S,SDAPPTYP ,EESTAT,1, +SDECLEN)   ;alb/sat  665 add SD ECLEN
  5465   "RTN","SDE C07",141,0 )
  5466    I 'SDECAP PTID D ERR (SDECI+1," SDEC07 Err or: Unable  to add ap pointment  to SDEC AP POINTMENT  file.") Q
  5467   "RTN","SDE C07",142,0 )
  5468    ;Save the  Appointme nt and sta rt a new t ransaction  that will  get rolle d back if  there's an  error
  5469   "RTN","SDE C07",143,0 )
  5470    ;TCOMMIT
  5471   "RTN","SDE C07",144,0 )
  5472    ;TSTART
  5473   "RTN","SDE C07",145,0 )
  5474    ; call ch art reques t
  5475   "RTN","SDE C07",146,0 )
  5476    S SDECDEV =""  ;$$GE T1^DIQ(900 9020.2,$$D IV^SDECU,. 05) I SDEC DEV="" S S DECDERR="S DEC07 Erro r: No file  room prin ter is def ined for t he chart r equest."
  5477   "RTN","SDE C07",147,0 )
  5478    I SDECATI D="WALKIN" ,$G(SDECCR ),$G(SDECD EV)'="" S  DGQUIET=1  D WISD^SDE CRT(DFN,$P (SDECSTART ,"."),"",S DECDEV)
  5479   "RTN","SDE C07",148,0 )
  5480    I SDECNOT E]"" D SDE CWP(SDECAP PTID,SDECN OTE)
  5481   "RTN","SDE C07",149,0 )
  5482    ;
  5483   "RTN","SDE C07",150,0 )
  5484    ;Create A ppointment  in VistA  ;TODO: hav e this cal l APPVISTA ^SDEC07B
  5485   "RTN","SDE C07",151,0 )
  5486    I +SDCL,$ D(^SC(SDCL ,0)) D  I  +SDECERR D  ERR(SDECI +1,$P(SDEC ERR,U,2))
  5487   "RTN","SDE C07",152,0 )
  5488    . S SDECC ("PAT")=DF N
  5489   "RTN","SDE C07",153,0 )
  5490    . S SDECC ("CLN")=SD CL
  5491   "RTN","SDE C07",154,0 )
  5492    . S SDECC ("TYP")=$S (+SDECWKIN :4,SDAPPTY P=1:1,1:3)    ;3 for  scheduled  appts, 4 f or walkins
  5493   "RTN","SDE C07",155,0 )
  5494    . S SDECC ("COL")=$S (SDAPPTYP= 7:1,1:"")    ;collate ral visit  if appoint ment type  is COLLATE RAL OF VET .
  5495   "RTN","SDE C07",156,0 )
  5496    . S SDECC ("APT")=SD APPTYP
  5497   "RTN","SDE C07",157,0 )
  5498    . S SDECC ("ADT")=SD ECSTART
  5499   "RTN","SDE C07",158,0 )
  5500    . S SDECC ("LEN")=SD ECLEN
  5501   "RTN","SDE C07",159,0 )
  5502    . S SDECC ("OI")=$E( $G(SDECNOT E),1,150)  ;File 44 h as 150 cha racter lim it on OTHE R field
  5503   "RTN","SDE C07",160,0 )
  5504    . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed
  5505   "RTN","SDE C07",161,0 )
  5506    . S SDECC ("OI")=$$S TRIP(SDECC ("OI")) ;S trip contr ol charact ers from n ote
  5507   "RTN","SDE C07",162,0 )
  5508    . S SDECC ("RES")=SD ECRESD
  5509   "RTN","SDE C07",163,0 )
  5510    . S SDECC ("USR")=DU Z
  5511   "RTN","SDE C07",164,0 )
  5512    . S SDECC ("MTR")=$G (SDMRTC)
  5513   "RTN","SDE C07",165,0 )
  5514    . S SDECC ("DDT")=SD DDT
  5515   "RTN","SDE C07",166,0 )
  5516    . S SDECC ("REQ")=SD REQBY
  5517   "RTN","SDE C07",167,0 )
  5518    . S SDECC ("LAB")=SD LAB
  5519   "RTN","SDE C07",168,0 )
  5520    . S SDECC ("XRA")=SD XRAY
  5521   "RTN","SDE C07",169,0 )
  5522    . S SDECC ("EKG")=SD EKG
  5523   "RTN","SDE C07",170,0 )
  5524    . S SDECC ("OVB")=+O VB
  5525   "RTN","SDE C07",171,0 )
  5526    . S SDECC ("ELG")=SD EL
  5527   "RTN","SDE C07",172,0 )
  5528    . S:$P(SD APTYP,"|", 1)="C" SDE CC("CON")= $P(SDAPTYP ,"|",2)
  5529   "RTN","SDE C07",173,0 )
  5530    . S SDECE RR=$$MAKE^ SDEC07B(.S DECC)
  5531   "RTN","SDE C07",174,0 )
  5532    . Q:SDECE RR
  5533   "RTN","SDE C07",175,0 )
  5534    . ;Update  Clinic av ailability
  5535   "RTN","SDE C07",176,0 )
  5536    . D AVUPD T(SDCL,SDE CSTART,SDE CLEN)
  5537   "RTN","SDE C07",177,0 )
  5538    . ;L
  5539   "RTN","SDE C07",178,0 )
  5540    . Q
  5541   "RTN","SDE C07",179,0 )
  5542    ;update w ait list
  5543   "RTN","SDE C07",180,0 )
  5544    I $P(SDAP TYP,"|",1) ="E" D EWL ^SDEC07A($ P(SDAPTYP, "|",2),SDE CSTART,SDC L,SDSVCPR, SDSVCP,,SD APPTYP)  ; alb/sat 65 8 do not p ass note
  5545   "RTN","SDE C07",181,0 )
  5546    ;update a ppt reques t
  5547   "RTN","SDE C07",182,0 )
  5548    I $P(SDAP TYP,"|",1) ="A" D
  5549   "RTN","SDE C07",183,0 )
  5550    .D UPDATE ^SDECAR2($ P(SDAPTYP, "|",2),SDE CSTART,SDC L,SDSVCPR, SDSVCP,,SD APPTYP)  ; alb/sat 65 8 do not p ass note
  5551   "RTN","SDE C07",184,0 )
  5552    .I $G(SDM RTC),$G(SD PARENT) D  AR433^SDEC AR2(SDPARE NT,SDECAPP TID_"~"_$P (SDAPTYP," |",2))
  5553   "RTN","SDE C07",185,0 )
  5554    .D:$G(SDP ARENT) AR4 38^SDECAR2 ($P(SDAPTY P,"|",2),S DPARENT)
  5555   "RTN","SDE C07",186,0 )
  5556    N SDT S S DT=SDECSTA RT
  5557   "RTN","SDE C07",187,0 )
  5558    ;add entr y to OUTPA TIENT ENCO UNTER file  (#409.68)   ;alb/sat  672
  5559   "RTN","SDE C07",188,0 )
  5560    I $$NEW^S DPCE(SDT)  D
  5561   "RTN","SDE C07",189,0 )
  5562    .N SDCOED
  5563   "RTN","SDE C07",190,0 )
  5564    .S SDOE=$ $GETAPT^SD VSIT2(DFN, SDT,SDCL)
  5565   "RTN","SDE C07",191,0 )
  5566    ;
  5567   "RTN","SDE C07",192,0 )
  5568    ;Return R ecordset
  5569   "RTN","SDE C07",193,0 )
  5570    ;TCOMMIT
  5571   "RTN","SDE C07",194,0 )
  5572    L -^SDEC( 409.84,DFN )
  5573   "RTN","SDE C07",195,0 )
  5574    L -^DPT(D FN)
  5575   "RTN","SDE C07",196,0 )
  5576    S SDECI=S DECI+1
  5577   "RTN","SDE C07",197,0 )
  5578    S ^TMP("S DEC07",$J, SDECI)=SDE CAPPTID_"^ "_$G(SDECD ERR)_$C(30 )
  5579   "RTN","SDE C07",198,0 )
  5580    S SDECI=S DECI+1
  5581   "RTN","SDE C07",199,0 )
  5582    S ^TMP("S DEC07",$J, SDECI)=$C( 31)
  5583   "RTN","SDE C07",200,0 )
  5584    Q
  5585   "RTN","SDE C07",201,0 )
  5586    ;
  5587   "RTN","SDE C07",202,0 )
  5588   STRIP(SDEC Z) ;Replac e control  characters  with spac es
  5589   "RTN","SDE C07",203,0 )
  5590    N SDECI
  5591   "RTN","SDE C07",204,0 )
  5592    F SDECI=1 :1:$L(SDEC Z) I (32>$ A($E(SDECZ ,SDECI)))  S SDECZ=$E (SDECZ,1,S DECI-1)_"  "_$E(SDECZ ,SDECI+1,9 99)
  5593   "RTN","SDE C07",205,0 )
  5594    Q SDECZ
  5595   "RTN","SDE C07",206,0 )
  5596    ;
  5597   "RTN","SDE C07",207,0 )
  5598    ;ADD SDEC  APPOINTME NT ENTRY
  5599   "RTN","SDE C07",208,0 )
  5600   SDECADD(SD ECSTART,SD ECEND,DFN, SDECRESD,S DECATID,SD DDT,SDID,S DAPTYP,PRO VIEN,SDCL, SDECNOTE,S AVESTRT,SD ECRES,SDAP PTYP,EESTA T,SDF,SDEC LEN) ;alb/ sat 665 ad d SDECLEN
  5601   "RTN","SDE C07",209,0 )
  5602    ;SDF        - (optio nal) flags
  5603   "RTN","SDE C07",210,0 )
  5604    ;                         1. ca lled from  GUI (updat e consult  only if ca lled from  GUI)
  5605   "RTN","SDE C07",211,0 )
  5606    ;Returns  ien in SDE CAPPT or 0  if failed
  5607   "RTN","SDE C07",212,0 )
  5608    ;called f rom SDEC A PPADD rpc  and from V istA via S DM1A
  5609   "RTN","SDE C07",213,0 )
  5610    ;Create e ntry in SD EC APPOINT MENT
  5611   "RTN","SDE C07",214,0 )
  5612    N SDIEN,S DECAPPTID, SDECFDA,SD ECIEN,SDEC MSG,SL,X
  5613   "RTN","SDE C07",215,0 )
  5614    S SDECSTA RT=$G(SDEC START)
  5615   "RTN","SDE C07",216,0 )
  5616    S SAVESTR T=$G(SAVES TRT),SDECR ES=$G(SDEC RES)          ;MGH sa ve date/ti me for con sult reque st
  5617   "RTN","SDE C07",217,0 )
  5618    S DFN=$G( DFN)
  5619   "RTN","SDE C07",218,0 )
  5620    S SDECRES D=$G(SDECR ESD)
  5621   "RTN","SDE C07",219,0 )
  5622    S SDECATI D=$G(SDECA TID)
  5623   "RTN","SDE C07",220,0 )
  5624    S SDDDT=$ G(SDDDT)
  5625   "RTN","SDE C07",221,0 )
  5626    S SDID=$G (SDID)
  5627   "RTN","SDE C07",222,0 )
  5628    S SDAPTYP =$G(SDAPTY P)
  5629   "RTN","SDE C07",223,0 )
  5630    S SDAPPTY P=$G(SDAPP TYP)
  5631   "RTN","SDE C07",224,0 )
  5632    S PROVIEN =$G(PROVIE N)
  5633   "RTN","SDE C07",225,0 )
  5634    S SDCL=$G (SDCL)
  5635   "RTN","SDE C07",226,0 )
  5636    S SDECEND =$G(SDECEN D)
  5637   "RTN","SDE C07",227,0 )
  5638    ;alb/sat  665 begin  modificati on
  5639   "RTN","SDE C07",228,0 )
  5640    S SDECLEN =$G(SDECLE N)
  5641   "RTN","SDE C07",229,0 )
  5642    I SDECLEN ="",SDECEN D="" S SDE CLEN=+$G(^ SC(SDCL,"S L")) S:'+S DECLEN SDE CLEN=30 S  SDECEND=$$ FMADD^XLFD T(SDECSTAR T,,,+SDECL EN)   ;no  length or  end date/t ime
  5643   "RTN","SDE C07",230,0 )
  5644    I SDECLEN ="",SDECEN D'="" S SD ECLEN=$$FM DIFF^XLFDT (SDECEND,S DECSTART,2 )\60  ;no  length
  5645   "RTN","SDE C07",231,0 )
  5646    I SDECLEN '="",SDECE ND="" S SD ECEND=$$FM ADD^XLFDT( SDECSTART, ,,+SDECLEN )  ;no end  date/time
  5647   "RTN","SDE C07",232,0 )
  5648    ;alb/sat  665 end mo dification
  5649   "RTN","SDE C07",233,0 )
  5650    S SDECNOT E=$G(SDECN OTE)
  5651   "RTN","SDE C07",234,0 )
  5652    S SDF=$G( SDF,0)
  5653   "RTN","SDE C07",235,0 )
  5654    I PROVIEN ="" D
  5655   "RTN","SDE C07",236,0 )
  5656    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
  5657   "RTN","SDE C07",237,0 )
  5658    S SDIEN=$ $APPTGET^S DECUTL(DFN ,SDECSTART ,SDCL)
  5659   "RTN","SDE C07",238,0 )
  5660    S SDIEN=$ S(SDIEN'=" ":SDIEN_", ",1:"+1,")
  5661   "RTN","SDE C07",239,0 )
  5662    S SDECFDA (409.84,SD IEN,.01)=S DECSTART
  5663   "RTN","SDE C07",240,0 )
  5664    S SDECFDA (409.84,SD IEN,.02)=S DECEND
  5665   "RTN","SDE C07",241,0 )
  5666    S SDECFDA (409.84,SD IEN,.05)=D FN
  5667   "RTN","SDE C07",242,0 )
  5668    S:+SDAPPT YP SDECFDA (409.84,SD IEN,.06)=S DAPPTYP
  5669   "RTN","SDE C07",243,0 )
  5670    ;S:SDECAT ID?.N SDEC FDA(409.84 ,SDIEN,.06 )=SDECATID
  5671   "RTN","SDE C07",244,0 )
  5672    S SDECFDA (409.84,SD IEN,.07)=S DECRESD
  5673   "RTN","SDE C07",245,0 )
  5674    S SDECFDA (409.84,SD IEN,.08)=$ G(DUZ)
  5675   "RTN","SDE C07",246,0 )
  5676    S SDECFDA (409.84,SD IEN,.09)=$ P($$NOW^XL FDT,".",1)
  5677   "RTN","SDE C07",247,0 )
  5678    S SDECFDA (409.84,SD IEN,.1)=""
  5679   "RTN","SDE C07",248,0 )
  5680    S SDECFDA (409.84,SD IEN,.101)= ""
  5681   "RTN","SDE C07",249,0 )
  5682    S SDECFDA (409.84,SD IEN,.102)= ""
  5683   "RTN","SDE C07",250,0 )
  5684    S SDECFDA (409.84,SD IEN,.11)=" "
  5685   "RTN","SDE C07",251,0 )
  5686    S SDECFDA (409.84,SD IEN,.12)=" "
  5687   "RTN","SDE C07",252,0 )
  5688    S SDECFDA (409.84,SD IEN,.121)= ""
  5689   "RTN","SDE C07",253,0 )
  5690    S SDECFDA (409.84,SD IEN,.122)= ""
  5691   "RTN","SDE C07",254,0 )
  5692    S:SDECATI D="WALKIN"  SDECFDA(4 09.84,SDIE N,.13)="y"
  5693   "RTN","SDE C07",255,0 )
  5694    S:PROVIEN '="" SDECF DA(409.84, SDIEN,.16) =PROVIEN
  5695   "RTN","SDE C07",256,0 )
  5696    S SDECFDA (409.84,SD IEN,.17)=" "
  5697   "RTN","SDE C07",257,0 )
  5698    S:$G(SDEC LEN)'="" S DECFDA(409 .84,SDIEN, .18)=SDECL EN
  5699   "RTN","SDE C07",258,0 )
  5700    S SDECFDA (409.84,SD IEN,.2)=SD DDT
  5701   "RTN","SDE C07",259,0 )
  5702    S:$G(SDID )'="" SDEC FDA(409.84 ,SDIEN,.21 )=SDID
  5703   "RTN","SDE C07",260,0 )
  5704    S:SDAPTYP '="" SDECF DA(409.84, SDIEN,.22) =$P(SDAPTY P,"|",2)_" ;"_$S($P(S DAPTYP,"|" ,1)="E":"S DWL(409.3, ",$P(SDAPT YP,"|",1)= "C":"GMR(1 23,",$P(SD APTYP,"|", 1)="R":"SD (403.5,",$ P(SDAPTYP, "|",1)="A" :"SDEC(409 .85,",1:"" )
  5705   "RTN","SDE C07",261,0 )
  5706    S:$G(EEST AT)'="" SD ECFDA(409. 84,SDIEN,. 23)=EESTAT
  5707   "RTN","SDE C07",262,0 )
  5708    K SDECIEN ,SDECMSG
  5709   "RTN","SDE C07",263,0 )
  5710    D UPDATE^ DIE("","SD ECFDA","SD ECIEN","SD ECMSG")
  5711   "RTN","SDE C07",264,0 )
  5712    S SDECAPP TID=$S(SDI EN'="+1,": +SDIEN,1:+ $G(SDECIEN (1)))
  5713   "RTN","SDE C07",265,0 )
  5714    K SDECMSG
  5715   "RTN","SDE C07",266,0 )
  5716    I SDECNOT E="" D WP^ DIE(409.84 ,$S(+$G(SD ECAPPTID): SDECAPPTID _",",1:SDI EN_","),1, "","@","SD ECMSG")
  5717   "RTN","SDE C07",267,0 )
  5718    I SDECNOT E'="" N AR R D WP^SDE CUTL(.ARR, SDECNOTE)  D WP^DIE(4 09.84,$S(+ $G(SDECAPP TID):SDECA PPTID_",", 1:SDIEN_", "),1,"","A RR","SDECM SG")
  5719   "RTN","SDE C07",268,0 )
  5720    I SDECAPP TID'="" D
  5721   "RTN","SDE C07",269,0 )
  5722    .I $P(SDA PTYP,"|",1 )="C",SDF  D
  5723   "RTN","SDE C07",270,0 )
  5724    ..D REQSE T^SDEC07A( $P(SDAPTYP ,"|",2),PR OVIEN,"",1 ,"",SDECNO TE,SAVESTR T,SDECRES)    ;MGH ad ded 3 para meters to  this call
  5725   "RTN","SDE C07",271,0 )
  5726    Q SDECAPP TID
  5727   "RTN","SDE C07",272,0 )
  5728    ;
  5729   "RTN","SDE C07",273,0 )
  5730   SDECWP(SDE CAPPTID,SD ECNOTE) ;
  5731   "RTN","SDE C07",274,0 )
  5732    ;Add WP f ield
  5733   "RTN","SDE C07",275,0 )
  5734    I SDECNOT E]"" S SDE CNOTE(.5)= SDECNOTE,S DECNOTE=""
  5735   "RTN","SDE C07",276,0 )
  5736    I $D(SDEC NOTE(0)) S  SDECNOTE( .5)=SDECNO TE(0) K SD ECNOTE(0)
  5737   "RTN","SDE C07",277,0 )
  5738    I $D(SDEC NOTE(.5))  D
  5739   "RTN","SDE C07",278,0 )
  5740    . D WP^DI E(409.84,S DECAPPTID_ ",",1,""," SDECNOTE", "SDECMSG")
  5741   "RTN","SDE C07",279,0 )
  5742    Q
  5743   "RTN","SDE C07",280,0 )
  5744    ;
  5745   "RTN","SDE C07",281,0 )
  5746   ADDEVT(DFN ,SDECSTART ,SDECSC,SD CLA) ;EP
  5747   "RTN","SDE C07",282,0 )
  5748    ;Called b y SDEC ADD  APPOINTME NT protoco l
  5749   "RTN","SDE C07",283,0 )
  5750    ;SDECSC=I EN of clin ic in ^SC
  5751   "RTN","SDE C07",284,0 )
  5752    ;SDCLA=IE N for ^SC( SDECSC,"S" ,SDECSTART ,1,SDCLA).  Use to ge t Length &  Note
  5753   "RTN","SDE C07",285,0 )
  5754    ;
  5755   "RTN","SDE C07",286,0 )
  5756    N SDECNOD ,SDECLEN,S DECAPPTID, SDECNODP,S DECWKIN,SD ECRES
  5757   "RTN","SDE C07",287,0 )
  5758    Q:+$G(SDE CNOEV)
  5759   "RTN","SDE C07",288,0 )
  5760    I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0))
  5761   "RTN","SDE C07",289,0 )
  5762    Q:'+$G(SD ECRES)
  5763   "RTN","SDE C07",290,0 )
  5764    S SDECNOD =$G(^SC(SD ECSC,"S",S DECSTART,1 ,SDCLA,0))
  5765   "RTN","SDE C07",291,0 )
  5766    Q:SDECNOD =""
  5767   "RTN","SDE C07",292,0 )
  5768    S SDECNOD P=$G(^DPT( DFN,"S",SD ECSTART,0) )
  5769   "RTN","SDE C07",293,0 )
  5770    S SDECWKI N=""
  5771   "RTN","SDE C07",294,0 )
  5772    S:$P(SDEC NODP,U,7)= 4 SDECWKIN ="WALKIN"  ;Purpose o f Visit fi eld of DPT  Appointme nt subfile
  5773   "RTN","SDE C07",295,0 )
  5774    S SDECLEN =$P(SDECNO D,U,2)
  5775   "RTN","SDE C07",296,0 )
  5776    Q:'+SDECL EN
  5777   "RTN","SDE C07",297,0 )
  5778    S SDECEND =$$FMADD^X LFDT(SDECS TART,0,0,S DECLEN,0)
  5779   "RTN","SDE C07",298,0 )
  5780    S SDECAPP TID=$$SDEC ADD(SDECST ART,SDECEN D,DFN,SDEC RES,SDECWK IN,,,,,SDE CSC,,,,,,1 ,+SDECLEN)   ;alb/sat  665 add S DECLEN
  5781   "RTN","SDE C07",299,0 )
  5782    Q:'+SDECA PPTID
  5783   "RTN","SDE C07",300,0 )
  5784    S SDECNOT E=$P(SDECN OD,U,4)
  5785   "RTN","SDE C07",301,0 )
  5786    I SDECNOT E]"" D SDE CWP(SDECAP PTID,SDECN OTE)
  5787   "RTN","SDE C07",302,0 )
  5788    D ADDEVT3 (SDECRES)
  5789   "RTN","SDE C07",303,0 )
  5790    Q
  5791   "RTN","SDE C07",304,0 )
  5792    ;
  5793   "RTN","SDE C07",305,0 )
  5794   ADDEVT3(SD ECRES) ;
  5795   "RTN","SDE C07",306,0 )
  5796    ;Call Rai seEvent to  notify GU I clients
  5797   "RTN","SDE C07",307,0 )
  5798    Q
  5799   "RTN","SDE C07",308,0 )
  5800    ;
  5801   "RTN","SDE C07",309,0 )
  5802   ERR(SDECI, SDECERR) ; Error proc essing
  5803   "RTN","SDE C07",310,0 )
  5804    S SDECI=S DECI+1
  5805   "RTN","SDE C07",311,0 )
  5806    S SDECERR =$TR(SDECE RR,"^","~" )
  5807   "RTN","SDE C07",312,0 )
  5808    S ^TMP("S DEC07",$J, SDECI)=$G( SDECAPPTID ,0)_"^"_SD ECERR_$C(3 0)
  5809   "RTN","SDE C07",313,0 )
  5810    S SDECI=S DECI+1
  5811   "RTN","SDE C07",314,0 )
  5812    S ^TMP("S DEC07",$J, SDECI)=$C( 31)
  5813   "RTN","SDE C07",315,0 )
  5814    L
  5815   "RTN","SDE C07",316,0 )
  5816    Q
  5817   "RTN","SDE C07",317,0 )
  5818    ;
  5819   "RTN","SDE C07",318,0 )
  5820   ETRAP ;EP  Error trap  entry
  5821   "RTN","SDE C07",319,0 )
  5822    D ^%ZTER
  5823   "RTN","SDE C07",320,0 )
  5824    I '$D(SDE CI) N SDEC I S SDECI= 999999
  5825   "RTN","SDE C07",321,0 )
  5826    S SDECI=S DECI+1
  5827   "RTN","SDE C07",322,0 )
  5828    D ERR(SDE CI,"SDEC07  Error")
  5829   "RTN","SDE C07",323,0 )
  5830    Q
  5831   "RTN","SDE C07",324,0 )
  5832   DAY ;;^SUN ^MON^TUES^ WEDNES^THU RS^FRI^SAT UR
  5833   "RTN","SDE C07",325,0 )
  5834    ;
  5835   "RTN","SDE C07",326,0 )
  5836   DOW N SDTM P S SDTMP= $E(X,1,3), Y=$E(X,4,5 ),Y=Y>2&'( SDTMP#4)+$ E("1440250 36146",Y)
  5837   "RTN","SDE C07",327,0 )
  5838    F SDTMP=S DTMP:-1:28 1 S Y=SDTM P#4=1+1+Y
  5839   "RTN","SDE C07",328,0 )
  5840    S Y=$E(X, 6,7)+Y#7
  5841   "RTN","SDE C07",329,0 )
  5842    Q
  5843   "RTN","SDE C07",330,0 )
  5844    ;
  5845   "RTN","SDE C07",331,0 )
  5846   AVUPDT(SDC L,SDECSTAR T,SDECLEN)  ;Update C linic avai lability
  5847   "RTN","SDE C07",332,0 )
  5848    ;SEE SDM1
  5849   "RTN","SDE C07",333,0 )
  5850    N %,ABORT ,SDNOT,Y,D FN,SDVAL
  5851   "RTN","SDE C07",334,0 )
  5852    N SL,STAR TDAY,X,SC, SB,HSI,SI, STR,SDDIF, SDMAX,SDDA TE,SDDMAX, SDSDATE,CC XN,MXOK,CO V,SDPROG
  5853   "RTN","SDE C07",335,0 )
  5854    N X1,SDED T,X2,SD,SM ,SS,S,SDLO CK,ST,I,SD ECINC
  5855   "RTN","SDE C07",336,0 )
  5856    S Y=SDCL    ;,DFN=DF N  ;rename d SDECPATI D to DFN
  5857   "RTN","SDE C07",337,0 )
  5858    S SL=$G(^ SC(+Y,"SL" )),X=$P(SL ,U,3),STAR TDAY=$S($L (X):X,1:8) ,SC=Y,SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X=1:X, X:X,1:4),S I=$S(X="": 4,X<3:4,X: X,1:4),STR ="#@!$* XX WVUTSRQPON MLKJIHGFED CBA0123456 789jklmnop qrstuvwxyz ",SDDIF=$S (HSI<3:8/H SI,1:2) K  Y
  5859   "RTN","SDE C07",338,0 )
  5860    ;Determin e maximum  days for s cheduling
  5861   "RTN","SDE C07",339,0 )
  5862    S SDMAX(1 )=$P($G(^S C(+SC,"SDP ")),U,2) S :'SDMAX(1)  SDMAX(1)= 365
  5863   "RTN","SDE C07",340,0 )
  5864    S (SDMAX, SDDMAX)=$$ FMADD^XLFD T(DT,SDMAX (1))
  5865   "RTN","SDE C07",341,0 )
  5866    S SDDATE= SDECSTART
  5867   "RTN","SDE C07",342,0 )
  5868    S SDSDATE =SDDATE,SD DATE=SDDAT E\1
  5869   "RTN","SDE C07",343,0 )
  5870   1 ;L  Q:$D (SDXXX)  S  CCXN=0 K  MXOK,COV,S DPROT Q:DF N<0  S SC= +SC
  5871   "RTN","SDE C07",344,0 )
  5872    ;Q:$D(SDX XX)
  5873   "RTN","SDE C07",345,0 )
  5874    S CCXN=0  K MXOK,COV ,SDPROT Q: $G(DFN)<0   S SC=+SC
  5875   "RTN","SDE C07",346,0 )
  5876    S X1=DT,S DEDT=365 S :$D(^SC(SC ,"SDP")) S DEDT=$P(^S C(SC,"SDP" ),"^",2)
  5877   "RTN","SDE C07",347,0 )
  5878    S X2=SDED T D C^%DTC  S SDEDT=X
  5879   "RTN","SDE C07",348,0 )
  5880    S Y=SDECS TART
  5881   "RTN","SDE C07",349,0 )
  5882   EN1 S (X,S D)=Y,SM=0  D DOW
  5883   "RTN","SDE C07",350,0 )
  5884   S I '$D(^S C(SC,"ST", $P(SD,".") ,1)) S SS= +$O(^SC(+S C,"T"_Y,SD )) Q:SS'>0   Q:^(SS,1 )=""  S ^S C(+SC,"ST" ,$P(SD,"." ),1)=$E($P ($T(DAY),U ,Y+2),1,2) _" "_$E(SD ,6,7)_$J(" ",SI+SI-6) _^(1),^(0) =$P(SD,"." )
  5885   "RTN","SDE C07",351,0 )
  5886    S S=SDECL EN
  5887   "RTN","SDE C07",352,0 )
  5888    ;Check if  SDECLEN e venly divi sible by a ppointment  length
  5889   "RTN","SDE C07",353,0 )
  5890    S SDVAL=$ P(SL,U)
  5891   "RTN","SDE C07",354,0 )
  5892    I SDECLEN <SDVAL S S DECLEN=SDV AL
  5893   "RTN","SDE C07",355,0 )
  5894    I SDECLEN #SDVAL'=0  D
  5895   "RTN","SDE C07",356,0 )
  5896    . S SDECI NC=SDECLEN \SDVAL
  5897   "RTN","SDE C07",357,0 )
  5898    . S SDECI NC=SDECINC +1
  5899   "RTN","SDE C07",358,0 )
  5900    . S SDECL EN=SDVAL*S DECINC
  5901   "RTN","SDE C07",359,0 )
  5902    S SL=S_U_ $P(SL,U,2, 99)
  5903   "RTN","SDE C07",360,0 )
  5904   SC S SDLOC K=$S('$D(S DLOCK):1,1 :SDLOCK+1)  Q:SDLOCK> 9
  5905   "RTN","SDE C07",361,0 )
  5906    L +^SC(SC ,"ST",$P(S D,"."),1): 5 G:'$T SC
  5907   "RTN","SDE C07",362,0 )
  5908    S SDLOCK= 0,S=^SC(SC ,"ST",$P(S D,"."),1)
  5909   "RTN","SDE C07",363,0 )
  5910    S I=SD#1- SB*100,ST= I#1*SI\.6+ ($P(I,".") *SI),SS=SL *HSI/60*SD DIF+ST+ST
  5911   "RTN","SDE C07",364,0 )
  5912    I (I<1!'$ F(S,"["))& (S'["CAN")  L -^SC(SC ,"ST",$P(S D,"."),1)  Q
  5913   "RTN","SDE C07",365,0 )
  5914    I SM<7 S  %=$F(S,"[" ,SS-1) S:' %!($P(SL," ^",6)<3) % =999 I $F( S,"]",SS)' <%!(SDDIF= 2&$E(S,ST+ ST+1,SS-1) ["[") S SM =7
  5915   "RTN","SDE C07",366,0 )
  5916    ;
  5917   "RTN","SDE C07",367,0 )
  5918   SP I ST+ST >$L(S),$L( S)<80 S S= S_" " G SP
  5919   "RTN","SDE C07",368,0 )
  5920    S SDNOT=1
  5921   "RTN","SDE C07",369,0 )
  5922    S ABORT=0
  5923   "RTN","SDE C07",370,0 )
  5924    F I=ST+ST :SDDIF:SS- SDDIF D  Q :ABORT
  5925   "RTN","SDE C07",371,0 )
  5926    . S ST=$E (S,I+1) S: ST="" ST="  "
  5927   "RTN","SDE C07",372,0 )
  5928    . S Y=$E( STR,$F(STR ,ST)-2)
  5929   "RTN","SDE C07",373,0 )
  5930    . I S["CA N"!(ST="X" &($D(^SC(+ SC,"ST",$P (SD,".")," CAN")))) S  ABORT=1 Q
  5931   "RTN","SDE C07",374,0 )
  5932    . I Y=""  S ABORT=1  Q
  5933   "RTN","SDE C07",375,0 )
  5934    . S:Y'?1N L&(SM<6) S M=6 S ST=$ E(S,I+2,99 9) S:ST=""  ST=" " S  S=$E(S,1,I )_Y_ST
  5935   "RTN","SDE C07",376,0 )
  5936    . Q
  5937   "RTN","SDE C07",377,0 )
  5938    S ^SC(SC, "ST",$P(SD ,"."),1)=S
  5939   "RTN","SDE C07",378,0 )
  5940    L -^SC(SC ,"ST",$P(S D,"."),1)
  5941   "RTN","SDE C07",379,0 )
  5942    Q
  5943   "RTN","SDE C07",380,0 )
  5944    ;
  5945   "RTN","SDE C07",381,0 )
  5946   ERROR ;
  5947   "RTN","SDE C07",382,0 )
  5948    D ERR1("E rror")
  5949   "RTN","SDE C07",383,0 )
  5950    Q
  5951   "RTN","SDE C07",384,0 )
  5952    ;
  5953   "RTN","SDE C07",385,0 )
  5954   ERR1(SDECE RR) ;Error  processin g
  5955   "RTN","SDE C07",386,0 )
  5956    S SDECI=S DECI+1
  5957   "RTN","SDE C07",387,0 )
  5958    S ^TMP("S DEC07",$J, SDECI)=SDE CERR_$C(30 )
  5959   "RTN","SDE C07",388,0 )
  5960    S SDECI=S DECI+1
  5961   "RTN","SDE C07A")
  5962   0^5^B86375 854^B84573 487
  5963   "RTN","SDE C07A",1,0)
  5964   SDEC07A ;A LB/SAT - V ISTA SCHED ULING RPCS  ;JUL 19,  2016
  5965   "RTN","SDE C07A",2,0)
  5966    ;;5.3;Sch eduling;** 627,642,65 1,679,686* *;Aug 13,  1993;Build  39
  5967   "RTN","SDE C07A",3,0)
  5968    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  5969   "RTN","SDE C07A",4,0)
  5970    ;Referenc es made to  ICR #6185  and #4837
  5971   "RTN","SDE C07A",5,0)
  5972    Q
  5973   "RTN","SDE C07A",6,0)
  5974    ;
  5975   "RTN","SDE C07A",7,0)
  5976   OVBOOK(SDE CY,SDCL,NS DT,SDECRES ) ;RPC - O VERBOOK -  Check if O verbook is  allowed f or given C linic and  Date.
  5977   "RTN","SDE C07A",8,0)
  5978    ;OVBOOK(S DECY,SDCL, NSDT,SDECR ES)  exter nal parame ter tag is  in SDEC
  5979   "RTN","SDE C07A",9,0)
  5980    ;  .SDECY    = retur ned pointe r to OVERB OOK data
  5981   "RTN","SDE C07A",10,0 )
  5982    ;   SDCL     = clini c code - p ointer to  Hospital L ocation fi le ^SC
  5983   "RTN","SDE C07A",11,0 )
  5984    ;   NSDT     = date/ time of ne w appointm ent
  5985   "RTN","SDE C07A",12,0 )
  5986    ;   SDECR ES = resou rce to che ck for ove rbook
  5987   "RTN","SDE C07A",13,0 )
  5988    N %DT,AP, SDECI,OB,S DBK,OBCNT, OBMAX,SDCL N,SDCLRES, SDCLSL,SDC NT,SDRET,S DT,SDTD,SD TE,X,Y
  5989   "RTN","SDE C07A",14,0 )
  5990    N SD30,SD ARR,OBCNTS UM
  5991   "RTN","SDE C07A",15,0 )
  5992    S OBCNTSU M=0
  5993   "RTN","SDE C07A",16,0 )
  5994    ; SDTD  =  new sched ule Date o nly in FM  format
  5995   "RTN","SDE C07A",17,0 )
  5996    ; SDT   =  loop valu e for $o t hrough sch edules
  5997   "RTN","SDE C07A",18,0 )
  5998    ; SDTE  =  end of lo op schedul e
  5999   "RTN","SDE C07A",19,0 )
  6000    ; NSDT  =  new appoi ntment sch edule Date /Time will  be conver ted to FM  format
  6001   "RTN","SDE C07A",20,0 )
  6002    S SDECI=0
  6003   "RTN","SDE C07A",21,0 )
  6004    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  6005   "RTN","SDE C07A",22,0 )
  6006    K @SDECY
  6007   "RTN","SDE C07A",23,0 )
  6008    S @SDECY@ (0)="T0002 0ERRORID"_ $C(30)
  6009   "RTN","SDE C07A",24,0 )
  6010    ;check fo r valid Ho spital loc ation
  6011   "RTN","SDE C07A",25,0 )
  6012    I '+SDCL  D ERR1("In valid Clin ic ID - Ca nnot deter mine if Ov erbook is  allowed.")  Q
  6013   "RTN","SDE C07A",26,0 )
  6014    I '$D(^SC (SDCL,0))  D ERR1("In valid Clin ic ID - Ca nnot deter mine if Ov erbook is  allowed.")  Q
  6015   "RTN","SDE C07A",27,0 )
  6016    ;check fo r valid re source ID
  6017   "RTN","SDE C07A",28,0 )
  6018    I '+SDECR ES D ERR1( "Invalid R esource ID  - Cannot  determine  if Overboo k is allow ed.") Q
  6019   "RTN","SDE C07A",29,0 )
  6020    I '$D(^SD EC(409.831 ,SDECRES,0 )) D ERR1( "Invalid R esource ID  - Cannot  determine  if Overboo k is allow ed.") Q
  6021   "RTN","SDE C07A",30,0 )
  6022    ;check fo r valid DA TE/TIME
  6023   "RTN","SDE C07A",31,0 )
  6024    S %DT="T"
  6025   "RTN","SDE C07A",32,0 )
  6026    S X=NSDT
  6027   "RTN","SDE C07A",33,0 )
  6028    D ^%DT    ; GET FM F ORMAT FOR  APPOINTMEN T DATE/TIM E
  6029   "RTN","SDE C07A",34,0 )
  6030    S NSDT=Y
  6031   "RTN","SDE C07A",35,0 )
  6032    I NSDT=-1  D ERR1("I nvalid App ointment D ate.") Q
  6033   "RTN","SDE C07A",36,0 )
  6034    S SDTD=$P (NSDT,".")
  6035   "RTN","SDE C07A",37,0 )
  6036    ; data he ader
  6037   "RTN","SDE C07A",38,0 )
  6038    ; OVERBOO K  0=not o verbooked;  1=overboo ked
  6039   "RTN","SDE C07A",39,0 )
  6040    S @SDECY@ (0)="T0002 0OVERBOOK" _$C(30)
  6041   "RTN","SDE C07A",40,0 )
  6042    ;get allo wed number  of overbo okings for  clinic
  6043   "RTN","SDE C07A",41,0 )
  6044    S SDCLSL= $G(^SC(SDC L,"SL"))
  6045   "RTN","SDE C07A",42,0 )
  6046    S OBMAX=$ P(SDCLSL,U ,7)
  6047   "RTN","SDE C07A",43,0 )
  6048    I '+OBMAX  S (OBCNT, OBMAX)=0 G  XIT
  6049   "RTN","SDE C07A",44,0 )
  6050    N SDAB,SL OTSIZE
  6051   "RTN","SDE C07A",45,0 )
  6052    S SDAB="^ TMP("_$J_" ,""SDEC"", ""BLKS"")"
  6053   "RTN","SDE C07A",46,0 )
  6054    S SLOTSIZ E="^TMP("_ $J_",""SDE C"",""SLOT SIZE"")"
  6055   "RTN","SDE C07A",47,0 )
  6056    K @SDAB,@ SLOTSIZE
  6057   "RTN","SDE C07A",48,0 )
  6058    ;get orig inal slot  sizes
  6059   "RTN","SDE C07A",49,0 )
  6060    D GETSLOT S^SDEC04(S LOTSIZE,SD ECRES,SDTD ,SDTD_".23 59")
  6061   "RTN","SDE C07A",50,0 )
  6062    ;get curr ent appt a vailabilit y
  6063   "RTN","SDE C07A",51,0 )
  6064    D GETSLOT S^SDEC57(S DAB,SDECRE S,SDTD,SDT D_".2359")
  6065   "RTN","SDE C07A",52,0 )
  6066    N IDX,SDR ,SDSTART,S DSTOP,SDSL OTS,XX,IDX 2,YY
  6067   "RTN","SDE C07A",53,0 )
  6068    ;restore  original s lot sizes  into appts  slots
  6069   "RTN","SDE C07A",54,0 )
  6070    S IDX=""  F  S IDX=$ O(@SLOTSIZ E@(IDX)) Q :'IDX  D
  6071   "RTN","SDE C07A",55,0 )
  6072    .S XX=@SL OTSIZE@(ID X)
  6073   "RTN","SDE C07A",56,0 )
  6074    .S SDSTAR T=$P(XX,U, 2),SDSTOP= $P(XX,U,3) ,SDSLOTS=$ P(XX,U,4)
  6075   "RTN","SDE C07A",57,0 )
  6076    .S IDX2=" " F  S IDX 2=$O(@SDAB @(IDX2)) Q :'IDX2  D
  6077   "RTN","SDE C07A",58,0 )
  6078    ..S YY=@S DAB@(IDX2)
  6079   "RTN","SDE C07A",59,0 )
  6080    ..S:($P(Y Y,U,2)'<SD START)&($P (YY,U,3)'> SDSTOP) $P (@SDAB@(ID X2),U,4)=S DSLOTS
  6081   "RTN","SDE C07A",60,0 )
  6082    ;find ove rbooks
  6083   "RTN","SDE C07A",61,0 )
  6084    S IDX=""  F  S IDX=$ O(@SDAB@(I DX)) Q:IDX =""  D
  6085   "RTN","SDE C07A",62,0 )
  6086    .S XX=@SD AB@(IDX)
  6087   "RTN","SDE C07A",63,0 )
  6088    .S SDSTAR T=$P(XX,U, 2),SDSTOP= $P(XX,U,3) ,SDSLOTS=$ P(XX,U,4)
  6089   "RTN","SDE C07A",64,0 )
  6090    .;loop th ru schedul e
  6091   "RTN","SDE C07A",65,0 )
  6092    .; SDBK(< appt time> ,<appt end  time>)=co unter star ting at 0
  6093   "RTN","SDE C07A",66,0 )
  6094    .K SDBK   ;overbook  counter ar ray
  6095   "RTN","SDE C07A",67,0 )
  6096    .S SDRET= "" D CRSCH ED^SDEC(.S DRET,SDECR ES,SDSTART ,SDSTOP)
  6097   "RTN","SDE C07A",68,0 )
  6098    .K SDARR
  6099   "RTN","SDE C07A",69,0 )
  6100    .S SD30=1 ,SDCNT=0,S DT=0 F  S  SDT=$O(@SD RET@(SDT))  Q:SDT=""   D
  6101   "RTN","SDE C07A",70,0 )
  6102    ..S SDR=$ G(@SDRET@( SDT))
  6103   "RTN","SDE C07A",71,0 )
  6104    ..I $P(SD R,U,1)[$c( 30) S SD30 =1 Q
  6105   "RTN","SDE C07A",72,0 )
  6106    ..Q:SD30' =1
  6107   "RTN","SDE C07A",73,0 )
  6108    ..S SDCNT =SDCNT+1
  6109   "RTN","SDE C07A",74,0 )
  6110    ..S SDARR ($P(SDR,U, 1))=""
  6111   "RTN","SDE C07A",75,0 )
  6112    ..S SD30= 0
  6113   "RTN","SDE C07A",76,0 )
  6114    .S SDCNT= 0 F  S SDC NT=$O(SDAR R(SDCNT))  Q:SDCNT=""   D
  6115   "RTN","SDE C07A",77,0 )
  6116    ..S SDR=$ G(^SDEC(40 9.84,+SDCN T,0))
  6117   "RTN","SDE C07A",78,0 )
  6118    ..S SDT=$ P(SDR,U,1)
  6119   "RTN","SDE C07A",79,0 )
  6120    ..S SDTE= $P(SDR,U,2 )
  6121   "RTN","SDE C07A",80,0 )
  6122    ..Q:$P(SD R,U,12)]""   ;don't c ount cance lled appts
  6123   "RTN","SDE C07A",81,0 )
  6124    ..;if tim e ranges o verlap, ad d to SDBK  array
  6125   "RTN","SDE C07A",82,0 )
  6126    ..I (SDTE >SDT)&(((S DT'<SDSTAR T)&(SDT<SD STOP))!((S DTE>SDSTAR T)&(SDTE'> SDSTOP))!( (SDT'>SDST ART)&(SDTE '<SDSTOP)) ) D
  6127   "RTN","SDE C07A",83,0 )
  6128    ...D CKOB (SDT,SDTE, .SDBK)
  6129   "RTN","SDE C07A",84,0 )
  6130    ..;;D CKO B($P(SDT," .")_".0000 ",$P(SDTE, ".")_".235 9",.SDBK)
  6131   "RTN","SDE C07A",85,0 )
  6132    .S OBCNT= $$CNTOB(.S DBK,SDECRE S,SDTD,OBM AX,SDAB)
  6133   "RTN","SDE C07A",86,0 )
  6134    .S OBCNTS UM=OBCNTSU M+OBCNT
  6135   "RTN","SDE C07A",87,0 )
  6136    .K @SDRET ,SDBK
  6137   "RTN","SDE C07A",88,0 )
  6138   XIT ;
  6139   "RTN","SDE C07A",89,0 )
  6140    S SDECI=S DECI+1
  6141   "RTN","SDE C07A",90,0 )
  6142    S @SDECY@ (SDECI)=$S (OBCNTSUM< OBMAX:"YES ",1:"NO")
  6143   "RTN","SDE C07A",91,0 )
  6144    S SDECI=S DECI+1
  6145   "RTN","SDE C07A",92,0 )
  6146    S @SDECY@ (SDECI)=$C (30)
  6147   "RTN","SDE C07A",93,0 )
  6148    S SDECI=S DECI+1
  6149   "RTN","SDE C07A",94,0 )
  6150    S @SDECY@ (SDECI)=$C (31)
  6151   "RTN","SDE C07A",95,0 )
  6152    Q
  6153   "RTN","SDE C07A",96,0 )
  6154    ;
  6155   "RTN","SDE C07A",97,0 )
  6156    ;find app ointment i n SDEC APP OINTMENT f ile
  6157   "RTN","SDE C07A",98,0 )
  6158   SDECAP(SDE CSDT,DFN)  ;
  6159   "RTN","SDE C07A",99,0 )
  6160    N SDECAPN ,SDECRES,I D
  6161   "RTN","SDE C07A",100, 0)
  6162    S SDECRES =0
  6163   "RTN","SDE C07A",101, 0)
  6164    S ID=0
  6165   "RTN","SDE C07A",102, 0)
  6166    F  S ID=$ O(^SDEC(40 9.84,"B",S DECSDT,ID) ) Q:ID'>0   Q:SDECRES '=0  D
  6167   "RTN","SDE C07A",103, 0)
  6168    . S SDECA PN=$G(^SDE C(409.84,I D,0))
  6169   "RTN","SDE C07A",104, 0)
  6170    . I $P(SD ECAPN,U,5) =DFN S SDE CRES=$P(SD ECAPN,U,7)
  6171   "RTN","SDE C07A",105, 0)
  6172    Q SDECRES
  6173   "RTN","SDE C07A",106, 0)
  6174    ;
  6175   "RTN","SDE C07A",107, 0)
  6176    ;check if  appointme nt start/s top is in  range of a n existing  appointme nt
  6177   "RTN","SDE C07A",108, 0)
  6178   CKOB(START ,STOP,SDBK ) ;called  internally
  6179   "RTN","SDE C07A",109, 0)
  6180    ;  START    = appoin tment star t date/tim e in FM fo rmat
  6181   "RTN","SDE C07A",110, 0)
  6182    ;  STOP     = appoin tment stop  date/time  in FM for mat
  6183   "RTN","SDE C07A",111, 0)
  6184    ; .SDBK     = bookin gs Array -   SDBK(<ap pt time>,< appt end t ime>)=coun ter starti ng at 0
  6185   "RTN","SDE C07A",112, 0)
  6186    N B,E,OB, OBF
  6187   "RTN","SDE C07A",113, 0)
  6188    S OBF=0
  6189   "RTN","SDE C07A",114, 0)
  6190    S B=""
  6191   "RTN","SDE C07A",115, 0)
  6192    F  S B=$O (SDBK(B))  Q:B'>0  D   Q:+OBF
  6193   "RTN","SDE C07A",116, 0)
  6194    . S E=""  F  S E=$O( SDBK(B,E))  Q:E'>0  D   Q:+OBF
  6195   "RTN","SDE C07A",117, 0)
  6196    . . S OB= SDBK(B,E)
  6197   "RTN","SDE C07A",118, 0)
  6198    . . S OBF =1
  6199   "RTN","SDE C07A",119, 0)
  6200    . . ;S OB F=(($$FMAD D^XLFDT(ST ART,B,2)'< 0)&($$FMAD D^XLFDT(ST ART,E,2)<0 ))!(($$FMA DD^XLFDT(S TOP,B,2)>0 )&($$FMADD ^XLFDT(STO P,E,2)'<0) )
  6201   "RTN","SDE C07A",120, 0)
  6202    . . ;S OB F=(($P(STA RT,".",2)' <$P(B,".", 2))&($P(ST ART,".",2) '>$P(E,"." ,2)))!(($P (STOP,".", 2)>$P(B,". ",2))&($P( STOP,".",2 )'>$P(E,". ",2)))
  6203   "RTN","SDE C07A",121, 0)
  6204    . . I OBF  S SDBK(B, E)=(OB+1)
  6205   "RTN","SDE C07A",122, 0)
  6206    I 'OBF S  SDBK(START ,STOP)=1
  6207   "RTN","SDE C07A",123, 0)
  6208    ;
  6209   "RTN","SDE C07A",124, 0)
  6210    Q
  6211   "RTN","SDE C07A",125, 0)
  6212    ;
  6213   "RTN","SDE C07A",126, 0)
  6214    ;count ov erbookings
  6215   "RTN","SDE C07A",127, 0)
  6216   CNTOB(SDBK ,SDECRES,S DTD,OBMAX, SDAB) ;cal led intern ally
  6217   "RTN","SDE C07A",128, 0)
  6218    N AB,ABF, ABN,CNT,BK ,SLOTS,B,E
  6219   "RTN","SDE C07A",129, 0)
  6220    S BK=""
  6221   "RTN","SDE C07A",130, 0)
  6222    S CNT=0
  6223   "RTN","SDE C07A",131, 0)
  6224    S B="" F   S B=$O(SD BK(B)) Q:B =""  D  Q: CNT'<OBMAX
  6225   "RTN","SDE C07A",132, 0)
  6226    . S E=""  F  S E=$O( SDBK(B,E))  Q:E=""  D   Q:CNT'<O BMAX
  6227   "RTN","SDE C07A",133, 0)
  6228    . . S BK= SDBK(B,E)
  6229   "RTN","SDE C07A",134, 0)
  6230    . . Q:'+B K
  6231   "RTN","SDE C07A",135, 0)
  6232    . . S SLO TS=$$SLOTS (B,E,SDAB)    ;find a ccess bloc k
  6233   "RTN","SDE C07A",136, 0)
  6234    . . I '+S LOTS S CNT =CNT+BK
  6235   "RTN","SDE C07A",137, 0)
  6236    . . E  S  BK=BK-SLOT S S:BK<0 B K=0 S CNT= CNT+BK
  6237   "RTN","SDE C07A",138, 0)
  6238    Q CNT
  6239   "RTN","SDE C07A",139, 0)
  6240   SLOTS(B,E, SDAB) ;fin d access b lock
  6241   "RTN","SDE C07A",140, 0)
  6242    N ABF,ABN ,SDI,SLOTS
  6243   "RTN","SDE C07A",141, 0)
  6244    S SLOTS=" "
  6245   "RTN","SDE C07A",142, 0)
  6246    S SDI=0 F   S SDI=$O (@SDAB@(SD I)) Q:SDI' >0  D  Q:+ ABF
  6247   "RTN","SDE C07A",143, 0)
  6248    .S ABN=@S DAB@(SDI)
  6249   "RTN","SDE C07A",144, 0)
  6250    .S ABF=(( B'<$P(ABN, U,2))&(B<$ P(ABN,U,3) ))!((E>$P( ABN,U,2))& (E'>$P(ABN ,U,3)))
  6251   "RTN","SDE C07A",145, 0)
  6252    .S:ABF SL OTS=+$P(AB N,U,4)
  6253   "RTN","SDE C07A",146, 0)
  6254    Q SLOTS
  6255   "RTN","SDE C07A",147, 0)
  6256    ;
  6257   "RTN","SDE C07A",148, 0)
  6258   REQSET(SDR IEN,SDPROV ,SDUSR,SDA CT,SDECTYP ,SDECNOTE, SAVESTRT,S DECRES) ;a dd SCHEDUL ED activit y to REQUE ST/CONSULT ATION file
  6259   "RTN","SDE C07A",149, 0)
  6260    ;INPUT:
  6261   "RTN","SDE C07A",150, 0)
  6262    ; SDRIEN   - (requir ed) pointe r to RFEQU EST/CONSUL TATION fil e 123
  6263   "RTN","SDE C07A",151, 0)
  6264    ; SDPROV   - (requir ed) Provid er pointer  to NEW PE RSON
  6265   "RTN","SDE C07A",152, 0)
  6266    ; SDUSR    - (option al) User t hat entere d appointm ent pointe r to NEW P ERSON
  6267   "RTN","SDE C07A",153, 0)
  6268    ; SDACT    - (requir ed) ACTIVI TY type to  add  1=SC HEDULED  2 =STATUS CH ANGE
  6269   "RTN","SDE C07A",154, 0)
  6270    ; SDECTYP  - (requir ed if SDAC T=2) appoi ntment Sta tus valid  values:
  6271   "RTN","SDE C07A",155, 0)
  6272    ;                            C= CANCELLED  BY CLINIC
  6273   "RTN","SDE C07A",156, 0)
  6274    ;                           PC= CANCELLED  BY PATIENT
  6275   "RTN","SDE C07A",157, 0)
  6276    ; SDECNOT E - Commen ts from Ap pointment
  6277   "RTN","SDE C07A",158, 0)
  6278    ; SAVESTR T - Appoin tment time  in extern al format     ;alb/sa t 651 corr ected comm ent
  6279   "RTN","SDE C07A",159, 0)
  6280    ; SDECRES   - Appoin tment Reso urce
  6281   "RTN","SDE C07A",160, 0)
  6282    N SDDT,SD FDA,SDI,SD IEN,SDOA,S DOS,SDPDC, SDSCHED,SD SCHEDF,SDS TAT,SDTXT, SDERR,Y,SD PCM
  6283   "RTN","SDE C07A",161, 0)
  6284    S SDACT=$ G(SDACT)
  6285   "RTN","SDE C07A",162, 0)
  6286    S SAVESTR T=$G(SAVES TRT)
  6287   "RTN","SDE C07A",163, 0)
  6288    S SDECRES =$G(SDECRE S)
  6289   "RTN","SDE C07A",164, 0)
  6290    Q:"12"'[S DACT
  6291   "RTN","SDE C07A",165, 0)
  6292    S SDSCHED F=0
  6293   "RTN","SDE C07A",166, 0)
  6294    S SDUSR=$ G(SDUSR)
  6295   "RTN","SDE C07A",167, 0)
  6296    S:SDUSR=" " SDUSR=DU Z
  6297   "RTN","SDE C07A",168, 0)
  6298    S:'$D(^VA (200,+SDUS R,0)) SDUS R=DUZ  ;ta ke this ou t
  6299   "RTN","SDE C07A",169, 0)
  6300    S SDSCHED =$$GETIEN^ SDEC51("SC HEDULED")
  6301   "RTN","SDE C07A",170, 0)
  6302    S SDSTAT= $$GETIEN^S DEC51("STA TUS CHANGE ")
  6303   "RTN","SDE C07A",171, 0)
  6304    S SDPDC=$ O(^ORD(100 .01,"B","D ISCONTINUE D",0))
  6305   "RTN","SDE C07A",172, 0)
  6306    ;ajf ; Ch eck for co mpleted Co nsult
  6307   "RTN","SDE C07A",173, 0)
  6308    S SDPCM=$ O(^ORD(100 .01,"B","C OMPLETE",0 ))
  6309   "RTN","SDE C07A",174, 0)
  6310    I SDACT=1 ,SDSCHED=" " Q
  6311   "RTN","SDE C07A",175, 0)
  6312    I SDACT=2 ,SDSTAT=""  Q
  6313   "RTN","SDE C07A",176, 0)
  6314    ;ajf ; Ch eck for co mpleted Co nsult
  6315   "RTN","SDE C07A",177, 0)
  6316    S SDCPS=$ $GET1^DIQ( 123,SDRIEN _",",8,"I" )
  6317   "RTN","SDE C07A",178, 0)
  6318    Q:SDCPS=S DPDC!(SDCP S=SDPCM) 
  6319   "RTN","SDE C07A",179, 0)
  6320    ;Q:$$GET1 ^DIQ(123,S DRIEN_",", 8,"I")=SDP DC   ;neve r update f ile 123 if  CPRS STAT US is DISC ONTINUED
  6321   "RTN","SDE C07A",180, 0)
  6322    ;Q:$$GET1 ^DIQ(123,S DRIEN_",", 8,"I")=SDP CM   ;neve r update f ile 123 if  CPRS STAT US is COMP LETE
  6323   "RTN","SDE C07A",181, 0)
  6324    S SDECNOT E=$G(SDECN OTE)
  6325   "RTN","SDE C07A",182, 0)
  6326    ;it is po ssible to  have multi ple schedu led activi ties; make  sure ther e is not a lready a S CHEDULED a ctivity
  6327   "RTN","SDE C07A",183, 0)
  6328    ;S SDI=0  F  S SDI=$ O(^GMR(123 ,SDRIEN,40 ,SDI)) Q:S DI'>0  D   Q:+SDSCHED F
  6329   "RTN","SDE C07A",184, 0)
  6330    ;.I $P($G (^GMR(123, SDRIEN,40, SDI,0)),U, 2)=SDSCHED  S SDSCHED F=1 Q
  6331   "RTN","SDE C07A",185, 0)
  6332    ;Q:+SDSCH EDF
  6333   "RTN","SDE C07A",186, 0)
  6334    S SDDT=$$ NOW^XLFDT( )  ;*zeb 1 2/13/17 67 9 don't us e $E to re move secon ds
  6335   "RTN","SDE C07A",187, 0)
  6336    ;
  6337   "RTN","SDE C07A",188, 0)
  6338    ; Replace d with cal l to SDCNS LT below.   wtc/zeb 3 .21.18 pat ch 686 ;
  6339   "RTN","SDE C07A",189, 0)
  6340    ;
  6341   "RTN","SDE C07A",190, 0)
  6342    ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",.01)=S DDT                                      ;I CR 6185
  6343   "RTN","SDE C07A",191, 0)
  6344    ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",1)=$S( SDACT=1:SD SCHED,SDAC T=2:SDSTAT ,1:"")  ;I CR 6185
  6345   "RTN","SDE C07A",192, 0)
  6346    ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",2)=SDD T                                        ;I CR 6185
  6347   "RTN","SDE C07A",193, 0)
  6348    ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",3)=SDP ROV                                      ;I CR 6185
  6349   "RTN","SDE C07A",194, 0)
  6350    ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",4)=SDU SR                                       ;I CR 6185
  6351   "RTN","SDE C07A",195, 0)
  6352    ;D UPDATE ^DIE("","S DFDA","SDI EN")
  6353   "RTN","SDE C07A",196, 0)
  6354    S SDTXT=" "
  6355   "RTN","SDE C07A",197, 0)
  6356    ;MGH modi fied to ad d in note  text and a ppointment  data
  6357   "RTN","SDE C07A",198, 0)
  6358    I SDACT=1  D
  6359   "RTN","SDE C07A",199, 0)
  6360    .;
  6361   "RTN","SDE C07A",200, 0)
  6362    .; Disabl ed lines b elow becau se they ex ist in SDC NSLT.
  6363   "RTN","SDE C07A",201, 0)
  6364    .; wtc/ze b 3.22.18  patch 686
  6365   "RTN","SDE C07A",202, 0)
  6366    .;
  6367   "RTN","SDE C07A",203, 0)
  6368    .;S SDTXT (1)=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,1 )_" Consul t Appt. on  "_SAVESTR T
  6369   "RTN","SDE C07A",204, 0)
  6370    .;I SDECN OTE'="" S  SDTXT(2)=S DECNOTE
  6371   "RTN","SDE C07A",205, 0)
  6372    . N %DT,X ,SD,TMPYCL NC ;
  6373   "RTN","SDE C07A",206, 0)
  6374    . S X=SAV ESTRT,%DT= "T" D ^%DT  S SD=Y ;
  6375   "RTN","SDE C07A",207, 0)
  6376    . S TMPYC LNC=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,4 ) I TMPYCL NC'="" S T MPYCLNC=TM PYCLNC_U_$ P(^SC(TMPY CLNC,0),U, 1) ;
  6377   "RTN","SDE C07A",208, 0)
  6378    . D EDITC S^SDCNSLT( SD,"",TMPY CLNC,SDRIE N) ; 
  6379   "RTN","SDE C07A",209, 0)
  6380    I SDACT=2  D
  6381   "RTN","SDE C07A",210, 0)
  6382    .;
  6383   "RTN","SDE C07A",211, 0)
  6384    .; Disabl ed lines b elow becau se they ex ist in SDC NSLT.
  6385   "RTN","SDE C07A",212, 0)
  6386    .; wtc/ze b 3.22.18  patch 686
  6387   "RTN","SDE C07A",213, 0)
  6388    .;
  6389   "RTN","SDE C07A",214, 0)
  6390    .;S SDECT YP=$G(SDEC TYP)
  6391   "RTN","SDE C07A",215, 0)
  6392    .;S SDTXT (1)=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,1 )_" Appt.  on "_SAVES TRT_" was  cancelled" _$S(SDECTY P["P":" by  the Patie nt.",SDECT YP["C":" b y the Clin ic.",1:"." )   ;alb/s at 651 inc lude appt  info
  6393   "RTN","SDE C07A",216, 0)
  6394    .;I SDECN OTE'="" S  SDTXT(2)=" Remarks: " _SDECNOTE
  6395   "RTN","SDE C07A",217, 0)
  6396    . N DFN,% DT,X,SDTTM ,SDSC,SDPL  ;
  6397   "RTN","SDE C07A",218, 0)
  6398    . S DFN=$ P($G(^GMR( 123,SDRIEN ,0)),U,2)  ;
  6399   "RTN","SDE C07A",219, 0)
  6400    . S X=SAV ESTRT,%DT= "T" D ^%DT  S SDTTM=Y  ;
  6401   "RTN","SDE C07A",220, 0)
  6402    . S SDSC= $P($G(^SDE C(409.831, +SDECRES,0 )),U,4) ;
  6403   "RTN","SDE C07A",221, 0)
  6404    . S SDPL= 0 F  S SDP L=$O(^SC(S DSC,"S",SD TTM,1,SDPL )) Q:'SDPL   Q:$P(^(S DPL,0),U,1 )=DFN  ;
  6405   "RTN","SDE C07A",222, 0)
  6406    . D SDECC AN^SDCNSLT (SDRIEN,DF N,SDTTM,SD SC,SDECTYP ,SDPL,SDEC NOTE) ;*ze b 686 10/3 0/18 send  comments t o consult
  6407   "RTN","SDE C07A",223, 0)
  6408    Q  ;
  6409   "RTN","SDE C07A",224, 0)
  6410    ;
  6411   "RTN","SDE C07A",225, 0)
  6412    ;  Lines  below disa bled by ca lls to SDC NSLT.
  6413   "RTN","SDE C07A",226, 0)
  6414    ;  wtc/ze b 3.22.18  patch 686
  6415   "RTN","SDE C07A",227, 0)
  6416    ;
  6417   "RTN","SDE C07A",228, 0)
  6418    ;I $D(SDT XT) D
  6419   "RTN","SDE C07A",229, 0)
  6420    ;.D WP^DI E(123.02,S DIEN(1)_", "_SDRIEN_" ,",5,"","S DTXT","SDE RR")   ;IC R 6185
  6421   "RTN","SDE C07A",230, 0)
  6422    ;K SDFDA    ;alb/sat  651
  6423   "RTN","SDE C07A",231, 0)
  6424    ;set CPRS  status fi eld  ICR 6 185
  6425   "RTN","SDE C07A",232, 0)
  6426    ;S SDOS=$ O(^ORD(100 .01,"B","S CHEDULED", 0))
  6427   "RTN","SDE C07A",233, 0)
  6428    ;S SDOA=$ O(^ORD(100 .01,"B","A CTIVE",0))
  6429   "RTN","SDE C07A",234, 0)
  6430    ;I SDOS'= "" D
  6431   "RTN","SDE C07A",235, 0)
  6432    ;.;K SDFD A  ;alb/sa t 651 move d up
  6433   "RTN","SDE C07A",236, 0)
  6434    ;.S SDFDA (123,SDRIE N_",",8)=$ S(SDACT=1: SDOS,1:SDO A)
  6435   "RTN","SDE C07A",237, 0)
  6436    ;.;D UPDA TE^DIE("", "SDFDA")                             ;ICR 6 185  ;alb/ sat 651 mo ved down o ut of IF s cope
  6437   "RTN","SDE C07A",238, 0)
  6438    ;S:+$G(SD SCHED) SDF DA(123,SDR IEN_",",9) =$S(SDACT= 1:SDSCHED, 1:SDSTAT)       ;alb/ sat 651 -  set LAST A CTION TAKE N   ICR 48 37
  6439   "RTN","SDE C07A",239, 0)
  6440    ;D:$D(SDF DA) UPDATE ^DIE("","S DFDA")   ; alb/sat 65 1
  6441   "RTN","SDE C07A",240, 0)
  6442    ;Q
  6443   "RTN","SDE C07A",241, 0)
  6444    ;
  6445   "RTN","SDE C07A",242, 0)
  6446   EWL(WLIEN, APPDT,SDCL ,SVCP,SVCP R,NOTE,SDA PPTYP) ;up date SD WA IT LIST at  appointme nt add
  6447   "RTN","SDE C07A",243, 0)
  6448    ;INPUT:
  6449   "RTN","SDE C07A",244, 0)
  6450    ;  WLIEN  = Wait Lis t ID point er to SD W AIT LIST f ile 409.3
  6451   "RTN","SDE C07A",245, 0)
  6452    ;  APPDT  = Appointm ent date/t ime (Sched uled Date  of appt) i n fm forma t
  6453   "RTN","SDE C07A",246, 0)
  6454    ;  SDCL   = Clinic I D pointer  to HOSPITA L LOCATION  file 44
  6455   "RTN","SDE C07A",247, 0)
  6456    ;  SVCP   = Service  Connected  Percentage  numeric 0 -100
  6457   "RTN","SDE C07A",248, 0)
  6458    ;  SVCPR  = Service  Connected  Priority   0:NO  1:YE S
  6459   "RTN","SDE C07A",249, 0)
  6460    ;  NOTE   = Comment  only 1st 6 0 characte rs are use d
  6461   "RTN","SDE C07A",250, 0)
  6462    ;  SDAPPT YP - (opti onal) Appo intment ty pe ID poin ter to APP OINTMENT T YPE file 4 09.1
  6463   "RTN","SDE C07A",251, 0)
  6464    ;
  6465   "RTN","SDE C07A",252, 0)
  6466    ;all inpu t must be  verified b y calling  routine
  6467   "RTN","SDE C07A",253, 0)
  6468    N SDDIV,S DFDA,SDSN
  6469   "RTN","SDE C07A",254, 0)
  6470    S:+$G(SDA PPTYP) SDF DA(409.3,W LIEN_",",8 .7)=SDAPPT YP
  6471   "RTN","SDE C07A",255, 0)
  6472    S SDFDA(4 09.3,WLIEN _",",13)=A PPDT                       ;SCHE DULED DATE  OF APPT        = APP DT  (SDECS TART)
  6473   "RTN","SDE C07A",256, 0)
  6474    S SDFDA(4 09.3,WLIEN _",",13.1) =$P($$NOW^ XLFDT,".", 1)   ;DATE  APPT. MAD E               = TOD AY
  6475   "RTN","SDE C07A",257, 0)
  6476    S SDFDA(4 09.3,WLIEN _",",13.2) =SDCL                      ;APPT  CLINIC                    = SDC L   (SDECS CD)
  6477   "RTN","SDE C07A",258, 0)
  6478    S SDFDA(4 09.3,WLIEN _",",13.3) =$P($G(^SC (SDCL,0)), U,4) ;APPT  INSTITUTI ON              = Get  from 44 u sing SDCL
  6479   "RTN","SDE C07A",259, 0)
  6480    S SDFDA(4 09.3,WLIEN _",",13.4) =$P($G(^SC (SDCL,0)), U,7) ;APPT  STOP CODE                 = Get  from 44 u sing SDCL
  6481   "RTN","SDE C07A",260, 0)
  6482    S SDDIV=$ P($G(^SC(S DCL,0)),U, 15)
  6483   "RTN","SDE C07A",261, 0)
  6484    S SDSN=$S (SDDIV'="" :$P($G(^DG (40.8,SDDI V,0)),U,2) ,1:"")
  6485   "RTN","SDE C07A",262, 0)
  6486    S SDFDA(4 09.3,WLIEN _",",13.6) =SDSN                      ;APPT  STATION N UMBER
  6487   "RTN","SDE C07A",263, 0)
  6488    S SDFDA(4 09.3,WLIEN _",",13.7) =DUZ                       ;APPT  CLERK                     = Cur rent User
  6489   "RTN","SDE C07A",264, 0)
  6490    S SDFDA(4 09.3,WLIEN _",",13.8) ="R"                       ;APPT  STATUS                    = R:S cheduled/K ept
  6491   "RTN","SDE C07A",265, 0)
  6492    S:SVCP'=" " SDFDA(40 9.3,WLIEN_ ",",14)=SV CP                        ;SERVI CE CONNECT ED PERCENT AGE = SVCP    (SDSVCP )
  6493   "RTN","SDE C07A",266, 0)
  6494    S:SVCPR'= "" SDFDA(4 09.3,WLIEN _",",15)=S VCPR                       ;SERV ICE CONNEC TED PRIORI TY   = SVC PR  (SDSVC PR)
  6495   "RTN","SDE C07A",267, 0)
  6496    S:$G(NOTE )'="" SDFD A(409.3,WL IEN_",",25 )=NOTE
  6497   "RTN","SDE C07A",268, 0)
  6498    S SDFDA(4 09.3,WLIEN _",",27)=" U"                         ;EWL  ENROLLEE S TATUS           = U:U NDETERMINE D
  6499   "RTN","SDE C07A",269, 0)
  6500    S SDFDA(4 09.3,WLIEN _",",27.2) =0                         ;EWL  ENROLLEE D ATABASE FI LE   = 0:N ONE
  6501   "RTN","SDE C07A",270, 0)
  6502    S SDFDA(4 09.3,WLIEN _",",28)=D UZ                         ;EDIT ING USER                   = Cur rent User
  6503   "RTN","SDE C07A",271, 0)
  6504    D UPDATE^ DIE("","SD FDA")
  6505   "RTN","SDE C07A",272, 0)
  6506    Q
  6507   "RTN","SDE C07A",273, 0)
  6508    ;
  6509   "RTN","SDE C07A",274, 0)
  6510   ERROR ;
  6511   "RTN","SDE C07A",275, 0)
  6512    D ERR1("E rror")
  6513   "RTN","SDE C07A",276, 0)
  6514    Q
  6515   "RTN","SDE C07A",277, 0)
  6516    ;
  6517   "RTN","SDE C07A",278, 0)
  6518   ERR1(SDECE RR) ;Error  processin g
  6519   "RTN","SDE C07A",279, 0)
  6520    S SDECI=S DECI+1
  6521   "RTN","SDE C07A",280, 0)
  6522    S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30)
  6523   "RTN","SDE C07A",281, 0)
  6524    S SDECI=S DECI+1
  6525   "RTN","SDE C07A",282, 0)
  6526    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  6527   "RTN","SDE C07A",283, 0)
  6528    Q
  6529   "RTN","SDE C08")
  6530   0^11^B2130 30286^B209 647726
  6531   "RTN","SDE C08",1,0)
  6532   SDEC08 ;AL B/SAT/JSM  - VISTA SC HEDULING R PCS ;JUN 2 1, 2017
  6533   "RTN","SDE C08",2,0)
  6534    ;;5.3;Sch eduling;** 627,651,65 8,665,686* *;Aug 13,  1993;Build  39
  6535   "RTN","SDE C08",3,0)
  6536    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  6537   "RTN","SDE C08",4,0)
  6538    ;
  6539   "RTN","SDE C08",5,0)
  6540    Q
  6541   "RTN","SDE C08",6,0)
  6542    ;
  6543   "RTN","SDE C08",7,0)
  6544   APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent
  6545   "RTN","SDE C08",8,0)
  6546    ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER)  exte rnal param eter tag i s in SDEC
  6547   "RTN","SDE C08",9,0)
  6548    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
  6549   "RTN","SDE C08",10,0)
  6550    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
  6551   "RTN","SDE C08",11,0)
  6552    ;                            C= CANCELLED  BY CLINIC
  6553   "RTN","SDE C08",12,0)
  6554    ;                           PC= CANCELLED  BY PATIENT
  6555   "RTN","SDE C08",13,0)
  6556    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
  6557   "RTN","SDE C08",14,0)
  6558    ;SDECNOT    - (optio nal) text  representi ng user no te
  6559   "RTN","SDE C08",15,0)
  6560    ;SDECDATE    - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW
  6561   "RTN","SDE C08",16,0)
  6562    ;SDUSER      - (opti onal) User  that canc elled appt ; defaults  to curren t user
  6563   "RTN","SDE C08",17,0)
  6564    ;Returns  error code  in record set field  ERRORID
  6565   "RTN","SDE C08",18,0)
  6566    ;
  6567   "RTN","SDE C08",19,0)
  6568    N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR
  6569   "RTN","SDE C08",20,0)
  6570    N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1
  6571   "RTN","SDE C08",21,0)
  6572    N SDECNOE V,SDECSC1, SDRET
  6573   "RTN","SDE C08",22,0)
  6574    N %DT,X,Y
  6575   "RTN","SDE C08",23,0)
  6576    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l
  6577   "RTN","SDE C08",24,0)
  6578    S SDECSCI EN1=0
  6579   "RTN","SDE C08",25,0)
  6580    ;
  6581   "RTN","SDE C08",26,0)
  6582    S SDECI=0
  6583   "RTN","SDE C08",27,0)
  6584    S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")"
  6585   "RTN","SDE C08",28,0)
  6586    K @SDECY
  6587   "RTN","SDE C08",29,0)
  6588    S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30)
  6589   "RTN","SDE C08",30,0)
  6590    S SDECI=S DECI+1
  6591   "RTN","SDE C08",31,0)
  6592    ;validate  SDEC APPO INTMENT po inter (req uired)
  6593   "RTN","SDE C08",32,0)
  6594    I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D  ERR(SDECI ,"SDEC08:  Invalid Ap pointment  ID") Q
  6595   "RTN","SDE C08",33,0)
  6596    ;validate  appointme nt status  type (requ ired)
  6597   "RTN","SDE C08",34,0)
  6598    S SDECTYP =$G(SDECTY P)
  6599   "RTN","SDE C08",35,0)
  6600    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: "")
  6601   "RTN","SDE C08",36,0)
  6602    I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status  type") Q
  6603   "RTN","SDE C08",37,0)
  6604    ;validate  CANCELLAT ION REASON  pointer ( optional)
  6605   "RTN","SDE C08",38,0)
  6606    S SDECCR= $G(SDECCR)
  6607   "RTN","SDE C08",39,0)
  6608    I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0))
  6609   "RTN","SDE C08",40,0)
  6610    ;validate  SDECNOT
  6611   "RTN","SDE C08",41,0)
  6612    S SDECNOT =$TR(SDECN OT,"^"," " )  ;alb/sa t 658 - st rip out ^
  6613   "RTN","SDE C08",42,0)
  6614    ;validate  cancel da te/time
  6615   "RTN","SDE C08",43,0)
  6616    S SDECDAT E=$G(SDECD ATE)
  6617   "RTN","SDE C08",44,0)
  6618    I SDECDAT E'="" S %D T="T" S X= SDECDATE D  ^%DT S SD ECDATE=Y I  Y=-1 S SD ECDATE=""
  6619   "RTN","SDE C08",45,0)
  6620    I $G(SDEC DATE)="" S  SDECDATE= $$NOW^XLFD T
  6621   "RTN","SDE C08",46,0)
  6622    ;validate  user
  6623   "RTN","SDE C08",47,0)
  6624    S SDUSER= $G(SDUSER)
  6625   "RTN","SDE C08",48,0)
  6626    I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0))  S SDUSER=" "
  6627   "RTN","SDE C08",49,0)
  6628    I SDUSER= "" S SDUSE R=DUZ
  6629   "RTN","SDE C08",50,0)
  6630    ;
  6631   "RTN","SDE C08",51,0)
  6632    TSTART
  6633   "RTN","SDE C08",52,0)
  6634    ;
  6635   "RTN","SDE C08",53,0)
  6636    ;Delete A PPOINTMENT  entries
  6637   "RTN","SDE C08",54,0)
  6638    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  6639   "RTN","SDE C08",55,0)
  6640    S SDECPAT ID=$P(SDEC NOD,U,5)
  6641   "RTN","SDE C08",56,0)
  6642    S SDECSTA RT=$P(SDEC NOD,U)
  6643   "RTN","SDE C08",57,0)
  6644    ;
  6645   "RTN","SDE C08",58,0)
  6646    ;Lock SDE C node
  6647   "RTN","SDE C08",59,0)
  6648    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
  6649   "RTN","SDE C08",60,0)
  6650    ;cancel c heck-in if  walk-in
  6651   "RTN","SDE C08",61,0)
  6652    I $P(SDEC NOD,U,13)= "y" D
  6653   "RTN","SDE C08",62,0)
  6654    .S SDRET= ""
  6655   "RTN","SDE C08",63,0)
  6656    .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@")
  6657   "RTN","SDE C08",64,0)
  6658    ;cancel S DEC APPOIN TMENT reco rd
  6659   "RTN","SDE C08",65,0)
  6660    D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1)
  6661   "RTN","SDE C08",66,0)
  6662    ;
  6663   "RTN","SDE C08",67,0)
  6664    S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID
  6665   "RTN","SDE C08",68,0)
  6666    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
  6667   "RTN","SDE C08",69,0)
  6668    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)
  6669   "RTN","SDE C08",70,0)
  6670    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION
  6671   "RTN","SDE C08",71,0)
  6672    . Q:'+SDE CLOC
  6673   "RTN","SDE C08",72,0)
  6674    . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I  SDECSCIEN ="" D  I ' SDECZ Q  ; Q:SDECZ
  6675   "RTN","SDE C08",73,0)
  6676    . . S SDE CERR="SDEC 08: Unable  to find a ssociated  appointmen t for this  patient.  "
  6677   "RTN","SDE C08",74,0)
  6678    . . S SDE CZ=1
  6679   "RTN","SDE C08",75,0)
  6680    . . I '$D (^SDEC(409 .831,SDECS C1,20)) S  SDECZ=0 Q
  6681   "RTN","SDE C08",76,0)
  6682    . . N SDE C1
  6683   "RTN","SDE C08",77,0)
  6684    . . S SDE C1=0
  6685   "RTN","SDE C08",78,0)
  6686    . . F  S  SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1  Q:SDECZ =0  D
  6687   "RTN","SDE C08",79,0)
  6688    . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0))
  6689   "RTN","SDE C08",80,0)
  6690    . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U)
  6691   "RTN","SDE C08",81,0)
  6692    . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q
  6693   "RTN","SDE C08",82,0)
  6694    . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned "
  6695   "RTN","SDE C08",83,0)
  6696    . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for  this patie nt." Q
  6697   "RTN","SDE C08",84,0)
  6698    . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find  associate d appointm ent for th is patient ." Q
  6699   "RTN","SDE C08",85,0)
  6700    . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0))
  6701   "RTN","SDE C08",86,0)
  6702    . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q
  6703   "RTN","SDE C08",87,0)
  6704    . S SDECL EN=$P(SDEC NOD,U,2)
  6705   "RTN","SDE C08",88,0)
  6706    . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN)
  6707   "RTN","SDE C08",89,0)
  6708    . Q:+$G(S DECZ)
  6709   "RTN","SDE C08",90,0)
  6710    . D AVUPD T(SDECLOC, SDECSTART, SDECLEN)
  6711   "RTN","SDE C08",91,0)
  6712    . D AR433 D^SDECAR2( SDECAPTID)
  6713   "RTN","SDE C08",92,0)
  6714    . ;L
  6715   "RTN","SDE C08",93,0)
  6716    ;
  6717   "RTN","SDE C08",94,0)
  6718    TCOMMIT
  6719   "RTN","SDE C08",95,0)
  6720    L -^SDEC( 409.84,SDE CPATID)
  6721   "RTN","SDE C08",96,0)
  6722    S SDECI=S DECI+1
  6723   "RTN","SDE C08",97,0)
  6724    S @SDECY@ (SDECI)="" _$C(30)
  6725   "RTN","SDE C08",98,0)
  6726    S SDECI=S DECI+1
  6727   "RTN","SDE C08",99,0)
  6728    S @SDECY@ (SDECI)=$C (31)
  6729   "RTN","SDE C08",100,0 )
  6730    Q
  6731   "RTN","SDE C08",101,0 )
  6732    ;
  6733   "RTN","SDE C08",102,0 )
  6734   AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y
  6735   "RTN","SDE C08",103,0 )
  6736    ;See SDCN P0
  6737   "RTN","SDE C08",104,0 )
  6738    N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y
  6739   "RTN","SDE C08",105,0 )
  6740    S (SD,S)= SDECSTART
  6741   "RTN","SDE C08",106,0 )
  6742    S I=SDECS CD
  6743   "RTN","SDE C08",107,0 )
  6744    Q:'$D(^SC (I,"ST",SD \1,1))
  6745   "RTN","SDE C08",108,0 )
  6746    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 )
  6747   "RTN","SDE C08",109,0 )
  6748    S SL=SDEC LEN
  6749   "RTN","SDE C08",110,0 )
  6750    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
  6751   "RTN","SDE C08",111,0 )
  6752    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
  6753   "RTN","SDE C08",112,0 )
  6754    S ^SC(SDE CSCD,"ST", SD\1,1)=S
  6755   "RTN","SDE C08",113,0 )
  6756    Q
  6757   "RTN","SDE C08",114,0 )
  6758    ;
  6759   "RTN","SDE C08",115,0 )
  6760   APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ;
  6761   "RTN","SDE C08",116,0 )
  6762    ;Cancel a ppointment  for patie nt SDECDFN  in clinic  SDECSC1
  6763   "RTN","SDE C08",117,0 )
  6764    ;at time  SDECSD
  6765   "RTN","SDE C08",118,0 )
  6766    N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H
  6767   "RTN","SDE C08",119,0 )
  6768    ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt  length)
  6769   "RTN","SDE C08",120,0 )
  6770    S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0)
  6771   "RTN","SDE C08",121,0 )
  6772    S DPTST=$ P(SDECPNOD ,U,2)
  6773   "RTN","SDE C08",122,0 )
  6774    S DIE=409 .84
  6775   "RTN","SDE C08",123,0 )
  6776    S DA=SDEC APTID
  6777   "RTN","SDE C08",124,0 )
  6778    S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N
  6779   "RTN","SDE C08",125,0 )
  6780    D ^DIE
  6781   "RTN","SDE C08",126,0 )
  6782    S SDECC(" PAT")=SDEC DFN
  6783   "RTN","SDE C08",127,0 )
  6784    S SDECC(" CLN")=SDEC LOC
  6785   "RTN","SDE C08",128,0 )
  6786    S SDECC(" TYP")=SDEC TYP
  6787   "RTN","SDE C08",129,0 )
  6788    S SDECC(" ADT")=SDEC SD
  6789   "RTN","SDE C08",130,0 )
  6790    S %H=$H D  YMD^%DTC
  6791   "RTN","SDE C08",131,0 )
  6792    S SDECC(" CDT")=SDEC DATE   ;X+ %
  6793   "RTN","SDE C08",132,0 )
  6794    S SDECC(" NOT")=SDEC NOT
  6795   "RTN","SDE C08",133,0 )
  6796    S:+SDECCR  SDECC("CR ")=SDECCR
  6797   "RTN","SDE C08",134,0 )
  6798    S SDECC(" USR")=SDUS ER
  6799   "RTN","SDE C08",135,0 )
  6800    ;
  6801   "RTN","SDE C08",136,0 )
  6802    S SDECZ=$ $CANCEL(.S DECC)
  6803   "RTN","SDE C08",137,0 )
  6804    Q
  6805   "RTN","SDE C08",138,0 )
  6806    ;
  6807   "RTN","SDE C08",139,0 )
  6808   SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel  SDEC APPOI NTMENT ent ry
  6809   "RTN","SDE C08",140,0 )
  6810    ;SDECAPTI D - (requi red) point er to SDEC  APPOINTME NT file
  6811   "RTN","SDE C08",141,0 )
  6812    ;SDECTYP    - (requi red) appoi ntment Sta tus valid  values:
  6813   "RTN","SDE C08",142,0 )
  6814    ;                            C= CANCELLED  BY CLINIC
  6815   "RTN","SDE C08",143,0 )
  6816    ;                           PC= CANCELLED  BY PATIENT
  6817   "RTN","SDE C08",144,0 )
  6818    ;SDECCR     - (optio nal) point er to CANC ELLATION R EASON File  (409.2)
  6819   "RTN","SDE C08",145,0 )
  6820    ;SDECNOT    - (optio nal) text  representi ng user no te
  6821   "RTN","SDE C08",146,0 )
  6822    ;SDECDATE    - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ;
  6823   "RTN","SDE C08",147,0 )
  6824    ;SDF        - (optio nal) flags
  6825   "RTN","SDE C08",148,0 )
  6826    ;                         1. ca lled from  GUI (updat e consult  only if ca lled from  GUI)
  6827   "RTN","SDE C08",149,0 )
  6828    ;                         2. ca lled from  cancel in  SDAM (CAN^ SDCNP0) (d o not reop en appt)
  6829   "RTN","SDE C08",150,0 )
  6830    ;Cancel S DEC APPOIN TMENT entr y
  6831   "RTN","SDE C08",151,0 )
  6832    N DFN,PRO VIEN,Y
  6833   "RTN","SDE C08",152,0 )
  6834    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
  6835   "RTN","SDE C08",153,0 )
  6836    S SDF=$G( SDF,0)
  6837   "RTN","SDE C08",154,0 )
  6838    S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05)   ;alb /sat 658
  6839   "RTN","SDE C08",155,0 )
  6840    S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I")
  6841   "RTN","SDE C08",156,0 )
  6842    S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01)    ;alb/sat  651
  6843   "RTN","SDE C08",157,0 )
  6844    S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I")   ;alb/sat  651
  6845   "RTN","SDE C08",158,0 )
  6846    S SDECIEN S=SDECAPTI D_","
  6847   "RTN","SDE C08",159,0 )
  6848    S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT)
  6849   "RTN","SDE C08",160,0 )
  6850    S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ)
  6851   "RTN","SDE C08",161,0 )
  6852    S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR
  6853   "RTN","SDE C08",162,0 )
  6854    S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP
  6855   "RTN","SDE C08",163,0 )
  6856    K SDECMSG
  6857   "RTN","SDE C08",164,0 )
  6858    D FILE^DI E("","SDEC FDA","SDEC MSG")
  6859   "RTN","SDE C08",165,0 )
  6860    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
  6861   "RTN","SDE C08",166,0 )
  6862    ;alb/sat  658 modifi cation beg in
  6863   "RTN","SDE C08",167,0 )
  6864    S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160)
  6865   "RTN","SDE C08",168,0 )
  6866    I $L(SDEC NOT)>2,'$E (SDF,2) K  SDECFDA S  SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT  D UPDATE^ DIE("","SD ECFDA")
  6867   "RTN","SDE C08",169,0 )
  6868    ;alb/sat  658 modifi cation end
  6869   "RTN","SDE C08",170,0 )
  6870    I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D
  6871   "RTN","SDE C08",171,0 )
  6872    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
  6873   "RTN","SDE C08",172,0 )
  6874    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
  6875   "RTN","SDE C08",173,0 )
  6876    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES )  ;alb/sa t 651 adde d SAVESTRT
  6877   "RTN","SDE C08",174,0 )
  6878    I $P(SDAP TYP,";",2) ="SDWL(409 .3," D   ; update EWL
  6879   "RTN","SDE C08",175,0 )
  6880    .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I")
  6881   "RTN","SDE C08",176,0 )
  6882    .Q:DFN=""
  6883   "RTN","SDE C08",177,0 )
  6884    .S SDIEN= 0 F  S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N=""  D
  6885   "RTN","SDE C08",178,0 )
  6886    ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D
  6887   "RTN","SDE C08",179,0 )
  6888    ...K SDEC FDA,SDECMS G,SDECWP
  6889   "RTN","SDE C08",180,0 )
  6890    ...;S SDI EN=$P(SDAP TYP,";",1)
  6891   "RTN","SDE C08",181,0 )
  6892    ...S SDEC FDA(409.3, SDIEN_",", 13)="@"
  6893   "RTN","SDE C08",182,0 )
  6894    ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@"
  6895   "RTN","SDE C08",183,0 )
  6896    ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@"
  6897   "RTN","SDE C08",184,0 )
  6898    ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@"
  6899   "RTN","SDE C08",185,0 )
  6900    ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@"
  6901   "RTN","SDE C08",186,0 )
  6902    ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@"
  6903   "RTN","SDE C08",187,0 )
  6904    ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@"
  6905   "RTN","SDE C08",188,0 )
  6906    ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@"
  6907   "RTN","SDE C08",189,0 )
  6908    ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@"
  6909   "RTN","SDE C08",190,0 )
  6910    ...D UPDA TE^DIE("", "SDECFDA")
  6911   "RTN","SDE C08",191,0 )
  6912    ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN)  ;alb/ jsm 658 do  not reope n if calle d from SDE C^SDCNP0
  6913   "RTN","SDE C08",192,0 )
  6914    I $P(SDAP TYP,";",2) ="SDEC(409 .85," D    ;update AP PT
  6915   "RTN","SDE C08",193,0 )
  6916    .K SDECFD A,SDECMSG, SDECWP
  6917   "RTN","SDE C08",194,0 )
  6918    .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D)  ;alb/j sm 658 do  not reopen  if called  from SDEC ^SDCNP0
  6919   "RTN","SDE C08",195,0 )
  6920    .S SDIEN= $P(SDAPTYP ,";",1)
  6921   "RTN","SDE C08",196,0 )
  6922    .S SDECFD A(409.85,S DIEN_",",1 3)="@"
  6923   "RTN","SDE C08",197,0 )
  6924    .S SDECFD A(409.85,S DIEN_",",1 3.1)="@"
  6925   "RTN","SDE C08",198,0 )
  6926    .S SDECFD A(409.85,S DIEN_",",1 3.2)="@"
  6927   "RTN","SDE C08",199,0 )
  6928    .S SDECFD A(409.85,S DIEN_",",1 3.3)="@"
  6929   "RTN","SDE C08",200,0 )
  6930    .S SDECFD A(409.85,S DIEN_",",1 3.4)="@"
  6931   "RTN","SDE C08",201,0 )
  6932    .S SDECFD A(409.85,S DIEN_",",1 3.5)="@"
  6933   "RTN","SDE C08",202,0 )
  6934    .S SDECFD A(409.85,S DIEN_",",1 3.6)="@"
  6935   "RTN","SDE C08",203,0 )
  6936    .S SDECFD A(409.85,S DIEN_",",1 3.7)="@"
  6937   "RTN","SDE C08",204,0 )
  6938    .S SDECFD A(409.85,S DIEN_",",1 3.8)="@"
  6939   "RTN","SDE C08",205,0 )
  6940    .D UPDATE ^DIE("","S DECFDA")
  6941   "RTN","SDE C08",206,0 )
  6942    Q
  6943   "RTN","SDE C08",207,0 )
  6944    ;
  6945   "RTN","SDE C08",208,0 )
  6946   CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT  event
  6947   "RTN","SDE C08",209,0 )
  6948    ;when app ointments  cancelled  via PIMS i nterface.
  6949   "RTN","SDE C08",210,0 )
  6950    ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients
  6951   "RTN","SDE C08",211,0 )
  6952    N SDECFOU ND,SDECRES
  6953   "RTN","SDE C08",212,0 )
  6954    Q:+$G(SDE CNOEV)
  6955   "RTN","SDE C08",213,0 )
  6956    Q:'+$G(SD ECSC)
  6957   "RTN","SDE C08",214,0 )
  6958    S SDECFOU ND=0
  6959   "RTN","SDE C08",215,0 )
  6960    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)
  6961   "RTN","SDE C08",216,0 )
  6962    I SDECFOU ND D CANEV T3(SDECRES ) Q
  6963   "RTN","SDE C08",217,0 )
  6964    Q
  6965   "RTN","SDE C08",218,0 )
  6966    ;
  6967   "RTN","SDE C08",219,0 )
  6968   CANEVT1(SD ECRES,SDEC START,SDEC PAT) ;
  6969   "RTN","SDE C08",220,0 )
  6970    ;Get appo intment id  in SDECAP T
  6971   "RTN","SDE C08",221,0 )
  6972    ;If found , call SDE CCAN(SDECA PPT) and r eturn 1
  6973   "RTN","SDE C08",222,0 )
  6974    ;else ret urn 0
  6975   "RTN","SDE C08",223,0 )
  6976    N SDECFOU ND,SDECAPP T
  6977   "RTN","SDE C08",224,0 )
  6978    S SDECFOU ND=0
  6979   "RTN","SDE C08",225,0 )
  6980    Q:'+SDECR ES SDECFOU ND
  6981   "RTN","SDE C08",226,0 )
  6982    Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND
  6983   "RTN","SDE C08",227,0 )
  6984    S SDECAPP T=0 F  S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT))  Q:'+SDECA PPT  D  Q: SDECFOUND
  6985   "RTN","SDE C08",228,0 )
  6986    . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D=""
  6987   "RTN","SDE C08",229,0 )
  6988    . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S  SDECFOUND =1 Q
  6989   "RTN","SDE C08",230,0 )
  6990    I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1)
  6991   "RTN","SDE C08",231,0 )
  6992    Q SDECFOU ND
  6993   "RTN","SDE C08",232,0 )
  6994    ;
  6995   "RTN","SDE C08",233,0 )
  6996   CANEVT3(SD ECRES) ;
  6997   "RTN","SDE C08",234,0 )
  6998    ;Call Rai seEvent to  notify GU I clients
  6999   "RTN","SDE C08",235,0 )
  7000    ;
  7001   "RTN","SDE C08",236,0 )
  7002    Q
  7003   "RTN","SDE C08",237,0 )
  7004    N SDECRES N
  7005   "RTN","SDE C08",238,0 )
  7006    S SDECRES N=$G(^SDEC (409.831,S DECRES,0))
  7007   "RTN","SDE C08",239,0 )
  7008    Q:SDECRES N=""
  7009   "RTN","SDE C08",240,0 )
  7010    S SDECRES N=$P(SDECR ESN,"^")
  7011   "RTN","SDE C08",241,0 )
  7012    ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","")
  7013   "RTN","SDE C08",242,0 )
  7014    ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN)
  7015   "RTN","SDE C08",243,0 )
  7016    Q
  7017   "RTN","SDE C08",244,0 )
  7018    ;
  7019   "RTN","SDE C08",245,0 )
  7020   CANCEL(BSD R) ;EP; ca lled to ca ncel appt
  7021   "RTN","SDE C08",246,0 )
  7022    ;
  7023   "RTN","SDE C08",247,0 )
  7024    ; Make ca ll using:  S ERR=$$CA NCEL^SDEC0 8(.ARRAY)
  7025   "RTN","SDE C08",248,0 )
  7026    ;
  7027   "RTN","SDE C08",249,0 )
  7028    ; Input A rray -
  7029   "RTN","SDE C08",250,0 )
  7030    ; BSDR("P AT") = ien  of patien t in file  2
  7031   "RTN","SDE C08",251,0 )
  7032    ; BSDR("C LN") = ien  of clinic  in file 4 4
  7033   "RTN","SDE C08",252,0 )
  7034    ; BSDR("T YP") = C f or cancele d by clini c; PC for  patient ca nceled
  7035   "RTN","SDE C08",253,0 )
  7036    ; BSDR("A DT") = app ointment d ate and ti me
  7037   "RTN","SDE C08",254,0 )
  7038    ; BSDR("C DT") = can cel date a nd time
  7039   "RTN","SDE C08",255,0 )
  7040    ; BSDR("U SR") = use r who canc eled appt
  7041   "RTN","SDE C08",256,0 )
  7042    ; BSDR("C R")  = can cel reason  - pointer  to file 4 09.2
  7043   "RTN","SDE C08",257,0 )
  7044    ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters
  7045   "RTN","SDE C08",258,0 )
  7046    ;
  7047   "RTN","SDE C08",259,0 )
  7048    ;Output:  error stat us and mes sage
  7049   "RTN","SDE C08",260,0 )
  7050    ;   = 0 o r null:  e verything  okay
  7051   "RTN","SDE C08",261,0 )
  7052    ;   = 1^m essage:  e rror and r eason
  7053   "RTN","SDE C08",262,0 )
  7054    ;
  7055   "RTN","SDE C08",263,0 )
  7056    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))
  7057   "RTN","SDE C08",264,0 )
  7058    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))
  7059   "RTN","SDE C08",265,0 )
  7060    I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC")  Q 1_U_"Can cel Status  error: "_ $G(BSDR("T YP"))
  7061   "RTN","SDE C08",266,0 )
  7062    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
  7063   "RTN","SDE C08",267,0 )
  7064    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))
  7065   "RTN","SDE C08",268,0 )
  7066    I $G(BSDR ("CDT")) S  BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12)  ;rem ove second s
  7067   "RTN","SDE C08",269,0 )
  7068    I $G(BSDR ("CDT"))'? 7N1".".4N  Q 1_U_"Can cel Date/T ime error:  "_$G(BSDR ("CDT"))
  7069   "RTN","SDE C08",270,0 )
  7070    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))
  7071   "RTN","SDE C08",271,0 )
  7072    I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR"))
  7073   "RTN","SDE C08",272,0 )
  7074    ;
  7075   "RTN","SDE C08",273,0 )
  7076    NEW IEN,D IE,DA,DR,S DMODE,SCAP TIEN ; WTC  686 11/13 /18
  7077   "RTN","SDE C08",274,0 )
  7078    S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),S CAPTIEN=IE N ; WTC 68 6 11/13/18
  7079   "RTN","SDE C08",275,0 )
  7080    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")
  7081   "RTN","SDE C08",276,0 )
  7082    ;
  7083   "RTN","SDE C08",277,0 )
  7084    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")
  7085   "RTN","SDE C08",278,0 )
  7086    ;
  7087   "RTN","SDE C08",279,0 )
  7088    ; remembe r before s tatus
  7089   "RTN","SDE C08",280,0 )
  7090    NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL
  7091   "RTN","SDE C08",281,0 )
  7092    S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN
  7093   "RTN","SDE C08",282,0 )
  7094    S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL
  7095   "RTN","SDE C08",283,0 )
  7096    D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL )
  7097   "RTN","SDE C08",284,0 )
  7098    ;
  7099   "RTN","SDE C08",285,0 )
  7100    ; get use r who made  appt and  date appt  made from  ^SC
  7101   "RTN","SDE C08",286,0 )
  7102    ;    beca use data i n ^SC will  be delete d
  7103   "RTN","SDE C08",287,0 )
  7104    NEW USER, DATE
  7105   "RTN","SDE C08",288,0 )
  7106    S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6)
  7107   "RTN","SDE C08",289,0 )
  7108    S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7)
  7109   "RTN","SDE C08",290,0 )
  7110    ;
  7111   "RTN","SDE C08",291,0 )
  7112    ; update  file 2 inf o
  7113   "RTN","SDE C08",292,0 )
  7114    NEW DIE,D A,DR
  7115   "RTN","SDE C08",293,0 )
  7116    N SDFDA,S DIEN,SDMSG
  7117   "RTN","SDE C08",294,0 )
  7118    S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )"
  7119   "RTN","SDE C08",295,0 )
  7120    S @SDFDA@ (3)=BSDR(" TYP")
  7121   "RTN","SDE C08",296,0 )
  7122    S @SDFDA@ (14)=BSDR( "USR")
  7123   "RTN","SDE C08",297,0 )
  7124    S @SDFDA@ (15)=BSDR( "CDT")
  7125   "RTN","SDE C08",298,0 )
  7126    S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" )
  7127   "RTN","SDE C08",299,0 )
  7128    S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160)
  7129   "RTN","SDE C08",300,0 )
  7130    S @SDFDA@ (19)=USER
  7131   "RTN","SDE C08",301,0 )
  7132    S @SDFDA@ (20)=DATE
  7133   "RTN","SDE C08",302,0 )
  7134    D UPDATE^ DIE("","SD FDA")
  7135   "RTN","SDE C08",303,0 )
  7136    N SDPCE
  7137   "RTN","SDE C08",304,0 )
  7138    S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 )
  7139   "RTN","SDE C08",305,0 )
  7140    D:+SDPCE  EN^SDCODEL (SDPCE,0)   ;remove O UTPATIENT  ENCOUNTER  link  
  7141   "RTN","SDE C08",306,0 )
  7142    ;
  7143   "RTN","SDE C08",307,0 )
  7144    ; delete  data in ^S C
  7145   "RTN","SDE C08",308,0 )
  7146    NEW DIK,D A
  7147   "RTN","SDE C08",309,0 )
  7148    ;
  7149   "RTN","SDE C08",310,0 )
  7150    ;  WTC RE MOVED ^DIK  and repla ced with S ET of 9th  piece.
  7151   "RTN","SDE C08",311,0 )
  7152    ;  686 11 /13/18
  7153   "RTN","SDE C08",312,0 )
  7154    ;
  7155   "RTN","SDE C08",313,0 )
  7156    ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1,"
  7157   "RTN","SDE C08",314,0 )
  7158    ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN
  7159   "RTN","SDE C08",315,0 )
  7160    ;D ^DIK
  7161   "RTN","SDE C08",316,0 )
  7162    S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, SCAPTIEN,0 ),"^",9)=" C" ;  686  11/13/18 ;  call even t driver
  7163   "RTN","SDE C08",317,0 )
  7164    S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL
  7165   "RTN","SDE C08",318,0 )
  7166    ;D CANCEL ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDMODE ,SDCPHDL)
  7167   "RTN","SDE C08",319,0 )
  7168    Q 0
  7169   "RTN","SDE C08",320,0 )
  7170    ;
  7171   "RTN","SDE C08",321,0 )
  7172   UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment
  7173   "RTN","SDE C08",322,0 )
  7174    ;UNDOCANA (SDECY,SDE CAPTID)  e xternal pa rameter ta g in SDEC
  7175   "RTN","SDE C08",323,0 )
  7176    ;called b y SDEC UNC ANCEL APPT
  7177   "RTN","SDE C08",324,0 )
  7178    ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file  409.84
  7179   "RTN","SDE C08",325,0 )
  7180    N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT
  7181   "RTN","SDE C08",326,0 )
  7182    S SDECNOE V=1 ;Don't  execute S DEC CANCEL  APPOINTME NT protoco l  ;is thi s used?
  7183   "RTN","SDE C08",327,0 )
  7184    ;
  7185   "RTN","SDE C08",328,0 )
  7186    S SDECI=0
  7187   "RTN","SDE C08",329,0 )
  7188    K ^TMP("S DEC",$J)
  7189   "RTN","SDE C08",330,0 )
  7190    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  7191   "RTN","SDE C08",331,0 )
  7192    S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30)
  7193   "RTN","SDE C08",332,0 )
  7194    TSTART
  7195   "RTN","SDE C08",333,0 )
  7196    I '+SDECA PTID TROLL BACK  D ER R(SDECI+1, "Invalid A ppointment  ID.") Q
  7197   "RTN","SDE C08",334,0 )
  7198    I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK  D ERR (SDECI+1," Invalid Ap pointment  ID") Q
  7199   "RTN","SDE C08",335,0 )
  7200    ;Make sur e appointm ent is can celled
  7201   "RTN","SDE C08",336,0 )
  7202    I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK  D ERR( SDECI+1,"A ppointment  is not Ca ncelled.")  Q
  7203   "RTN","SDE C08",337,0 )
  7204    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  7205   "RTN","SDE C08",338,0 )
  7206    ;appts ca ncelled by  patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */
  7207   "RTN","SDE C08",339,0 )
  7208    ;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
  7209   "RTN","SDE C08",340,0 )
  7210    ;get appo intment da ta
  7211   "RTN","SDE C08",341,0 )
  7212    S SDECNOD =^SDEC(409 .84,SDECAP TID,0)
  7213   "RTN","SDE C08",342,0 )
  7214    S SDECDAM =$P(SDECNO D,U,9)                    ;date  appt made
  7215   "RTN","SDE C08",343,0 )
  7216    S SDECDEC =$P(SDECNO D,U,8)                    ;data  entry cler k
  7217   "RTN","SDE C08",344,0 )
  7218    S SDECLEN =$P(SDECNO D,U,18)                   ;lengt h of appt  in minutes
  7219   "RTN","SDE C08",345,0 )
  7220    S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0))  ;no te from SD EC APPOINT MENT
  7221   "RTN","SDE C08",346,0 )
  7222    S SDECPAT ID=$P(SDEC NOD,U,5)                  ;point er to VA P ATIENT fil e 2
  7223   "RTN","SDE C08",347,0 )
  7224    S SDECSC1 =$P($G(SDE CNOD),U,7)                ;resou rce
  7225   "RTN","SDE C08",348,0 )
  7226    S SDECSTA RT=$P(SDEC NOD,U)                    ;appt  start time
  7227   "RTN","SDE C08",349,0 )
  7228    S SDECWKI N=$P($G(SD ECNOD),U,1 3)             ;walk- in
  7229   "RTN","SDE C08",350,0 )
  7230    ;lock SDE C node
  7231   "RTN","SDE C08",351,0 )
  7232    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
  7233   "RTN","SDE C08",352,0 )
  7234    ;un-cance l SDEC APP OINTMENT
  7235   "RTN","SDE C08",353,0 )
  7236    D SDECUCA N(SDECAPTI D)
  7237   "RTN","SDE C08",354,0 )
  7238    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
  7239   "RTN","SDE C08",355,0 )
  7240    . S SDECL OC=""
  7241   "RTN","SDE C08",356,0 )
  7242    . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0)
  7243   "RTN","SDE C08",357,0 )
  7244    . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION    ;support f or single  HOSPITAL L OCATION in  SDEC RESO URCE
  7245   "RTN","SDE C08",358,0 )
  7246    . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID )  ;HOSPIT AL LOCATIO N
  7247   "RTN","SDE C08",359,0 )
  7248    . Q:'+SDE CLOC
  7249   "RTN","SDE C08",360,0 )
  7250    . ;un-can cel patien t appointm ent and re -instate c linic appo intment
  7251   "RTN","SDE C08",361,0 )
  7252    . S SDECZ =""
  7253   "RTN","SDE C08",362,0 )
  7254    . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN)
  7255   "RTN","SDE C08",363,0 )
  7256    TCOMMIT
  7257   "RTN","SDE C08",364,0 )
  7258    L -^SDEC( 409.84,SDE CPATID)
  7259   "RTN","SDE C08",365,0 )
  7260    S SDECI=S DECI+1
  7261   "RTN","SDE C08",366,0 )
  7262    S ^TMP("S DEC",$J,SD ECI)=""_$C (30)
  7263   "RTN","SDE C08",367,0 )
  7264    S SDECI=S DECI+1
  7265   "RTN","SDE C08",368,0 )
  7266    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  7267   "RTN","SDE C08",369,0 )
  7268    Q
  7269   "RTN","SDE C08",370,0 )
  7270    ;
  7271   "RTN","SDE C08",371,0 )
  7272   SDECUCAN(S DECAPTID)  ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time
  7273   "RTN","SDE C08",372,0 )
  7274    N PROVIEN ,SDAPTYP,S DCL,SDRES
  7275   "RTN","SDE C08",373,0 )
  7276    S SDECIEN S=SDECAPTI D_","
  7277   "RTN","SDE C08",374,0 )
  7278    S SDECFDA (409.84,SD ECIENS,.12 )=""
  7279   "RTN","SDE C08",375,0 )
  7280    K SDECMSG
  7281   "RTN","SDE C08",376,0 )
  7282    D FILE^DI E("","SDEC FDA","SDEC MSG")
  7283   "RTN","SDE C08",377,0 )
  7284    S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" )
  7285   "RTN","SDE C08",378,0 )
  7286    I $P(SDAP TYP,";",2) ="GMR(123, " D
  7287   "RTN","SDE C08",379,0 )
  7288    .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID)
  7289   "RTN","SDE C08",380,0 )
  7290    .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ")
  7291   "RTN","SDE C08",381,0 )
  7292    .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1)
  7293   "RTN","SDE C08",382,0 )
  7294    Q
  7295   "RTN","SDE C08",383,0 )
  7296    ;
  7297   "RTN","SDE C08",384,0 )
  7298   APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ;
  7299   "RTN","SDE C08",385,0 )
  7300    ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1
  7301   "RTN","SDE C08",386,0 )
  7302    ;  SDECLO C   = poin ter to hos pital loca tion ^SC f ile 44
  7303   "RTN","SDE C08",387,0 )
  7304    ;  SDECPA TID = poin ter to VA  Patient ^D PT file 2
  7305   "RTN","SDE C08",388,0 )
  7306    ;  SDECST ART = Appo intment ti me
  7307   "RTN","SDE C08",389,0 )
  7308    ;  SDECDA M   = Date  appointme nt made in  FM format
  7309   "RTN","SDE C08",390,0 )
  7310    ;  SDECDE C   = Data  entry cle rk - point er to NEW  PERSON fil e 200
  7311   "RTN","SDE C08",391,0 )
  7312    N SDECC,% H
  7313   "RTN","SDE C08",392,0 )
  7314    S SDECC(" PAT")=SDEC PATID
  7315   "RTN","SDE C08",393,0 )
  7316    S SDECC(" CLN")=SDEC LOC
  7317   "RTN","SDE C08",394,0 )
  7318    S SDECC(" ADT")=SDEC START
  7319   "RTN","SDE C08",395,0 )
  7320    S SDECC(" NOTE")=SDE CNOTE  ;us er note
  7321   "RTN","SDE C08",396,0 )
  7322    S SDECC(" RES")=SDEC RES
  7323   "RTN","SDE C08",397,0 )
  7324    S SDECC(" USR")=DUZ
  7325   "RTN","SDE C08",398,0 )
  7326    S SDECC(" LEN")=SDEC LEN
  7327   "RTN","SDE C08",399,0 )
  7328    S SDECC(" WKIN")=SDE CWKIN
  7329   "RTN","SDE C08",400,0 )
  7330    ;
  7331   "RTN","SDE C08",401,0 )
  7332    S SDECZ=$ $UNCANCEL( .SDECC)
  7333   "RTN","SDE C08",402,0 )
  7334    Q
  7335   "RTN","SDE C08",403,0 )
  7336    ;
  7337   "RTN","SDE C08",404,0 )
  7338   UNCANCEL(B SDR) ;PEP;  called to  un-cancel  appt
  7339   "RTN","SDE C08",405,0 )
  7340    ;
  7341   "RTN","SDE C08",406,0 )
  7342    ; Make ca ll using:  S ERR=$$UN CANCEL(.AR RAY)
  7343   "RTN","SDE C08",407,0 )
  7344    ;
  7345   "RTN","SDE C08",408,0 )
  7346    ; Input A rray -
  7347   "RTN","SDE C08",409,0 )
  7348    ; BSDR("P AT") = ien  of patien t in file  2
  7349   "RTN","SDE C08",410,0 )
  7350    ; BSDR("C LN") = ien  of clinic  in file 4 4
  7351   "RTN","SDE C08",411,0 )
  7352    ; BSDR("A DT") = app ointment d ate and ti me
  7353   "RTN","SDE C08",412,0 )
  7354    ; BSDR("U SR") = use r who un-c anceled ap pt
  7355   "RTN","SDE C08",413,0 )
  7356    ; BSDR("N OTE") = ap pointment  note from  SDEC APPOI NTMENT
  7357   "RTN","SDE C08",414,0 )
  7358    ; BSDR("L EN") = app t length i n minutes  (numeric)
  7359   "RTN","SDE C08",415,0 )
  7360    ; BSDR("R ES") = res ource
  7361   "RTN","SDE C08",416,0 )
  7362    ; BSDR("W KIN")= wal k-in
  7363   "RTN","SDE C08",417,0 )
  7364    ;
  7365   "RTN","SDE C08",418,0 )
  7366    ;Output:  error stat us and mes sage
  7367   "RTN","SDE C08",419,0 )
  7368    ;   = 0 o r null:  e verything  okay
  7369   "RTN","SDE C08",420,0 )
  7370    ;   = 1^m essage:  e rror and r eason
  7371   "RTN","SDE C08",421,0 )
  7372    ;
  7373   "RTN","SDE C08",422,0 )
  7374    N DPTNOD, DPTNODR
  7375   "RTN","SDE C08",423,0 )
  7376    I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file:  "_$G(BSDR ("PAT"))
  7377   "RTN","SDE C08",424,0 )
  7378    I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not  on file: " _$G(BSDR(" CLN"))
  7379   "RTN","SDE C08",425,0 )
  7380    I $G(BSDR ("ADT")) S  BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12)  ;rem ove second s
  7381   "RTN","SDE C08",426,0 )
  7382    I $G(BSDR ("ADT"))'? 7N1".".4N  Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT"))
  7383   "RTN","SDE C08",427,0 )
  7384    I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled  Appt Erro r: "_$G(BS DR("USR"))
  7385   "RTN","SDE C08",428,0 )
  7386    ;
  7387   "RTN","SDE C08",429,0 )
  7388    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
  7389   "RTN","SDE C08",430,0 )
  7390    Q SDECERR
  7391   "RTN","SDE C08",431,0 )
  7392    ;
  7393   "RTN","SDE C08",432,0 )
  7394   ERR(SDECI, SDECERR) ; Error proc essing
  7395   "RTN","SDE C08",433,0 )
  7396    S SDECI=S DECI+1
  7397   "RTN","SDE C08",434,0 )
  7398    S SDECERR =$TR(SDECE RR,"^","~" )
  7399   "RTN","SDE C08",435,0 )
  7400    TROLLBACK
  7401   "RTN","SDE C08",436,0 )
  7402    S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30)
  7403   "RTN","SDE C08",437,0 )
  7404    S SDECI=S DECI+1
  7405   "RTN","SDE C08",438,0 )
  7406    S ^TMP("S DEC",$J,SD ECI)=$C(31 )
  7407   "RTN","SDE C08",439,0 )
  7408    Q
  7409   "RTN","SDE C08",440,0 )
  7410    ;
  7411   "RTN","SDE C08",441,0 )
  7412   ETRAP ;EP  Error trap  entry
  7413   "RTN","SDE C08",442,0 )
  7414    D ^%ZTER
  7415   "RTN","SDE C08",443,0 )
  7416    I '$D(SDE CI) N SDEC I S SDECI= 999999
  7417   "RTN","SDE C08",444,0 )
  7418    S SDECI=S DECI+1
  7419   "RTN","SDE C08",445,0 )
  7420    D ERR(SDE CI,"SDEC08  Error")
  7421   "RTN","SDE C08",446,0 )
  7422    Q
  7423   "RTN","SDE CAR1")
  7424   0^7^B16735 1251^B1548 09357
  7425   "RTN","SDE CAR1",1,0)
  7426   SDECAR1 ;A LB/SAT - V ISTA SCHED ULING RPCS  ;MAR 15,  2017
  7427   "RTN","SDE CAR1",2,0)
  7428    ;;5.3;Sch eduling;** 627,642,65 8,686**;Au g 13, 1993 ;Build 39
  7429   "RTN","SDE CAR1",3,0)
  7430    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  7431   "RTN","SDE CAR1",4,0)
  7432    ;
  7433   "RTN","SDE CAR1",5,0)
  7434    Q
  7435   "RTN","SDE CAR1",6,0)
  7436    ;
  7437   "RTN","SDE CAR1",7,0)
  7438    ; Get SDE C APPOINTM ENT REQUES T for all  entries in  the user' s Institut ion
  7439   "RTN","SDE CAR1",8,0)
  7440    ; where t he Current  Status is  not C(los ed).
  7441   "RTN","SDE CAR1",9,0)
  7442   ARGET(RET, ARIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRL,S VCR,SCVISI T,CLINIC,O RIGDT) ;Ap pt Req GET   ;alb/sat  658 add S VCL-SCVISI T
  7443   "RTN","SDE CAR1",10,0 )
  7444   ARGET1 ;
  7445   "RTN","SDE CAR1",11,0 )
  7446    ;29  SVCC ONN  - SER VICE CONNE CTED? fiel d .301 of  the PATIEN T file
  7447   "RTN","SDE CAR1",12,0 )
  7448    ;37  ARSV CCON - SER VICE CONNE CTED PRIOR ITY field  15 of the  SDEC APPT  REQUEST fi le
  7449   "RTN","SDE CAR1",13,0 )
  7450    ;
  7451   "RTN","SDE CAR1",14,0 )
  7452    N CLOSED, FNUM,NAME, DOB,SSN4,G ENDER,AROR IGDT,ARINS T,ARINSTNM ,ARTYPE,AR TEAM,ARPOS
  7453   "RTN","SDE CAR1",15,0 )
  7454    N ELIGIEN ,ELIGNAME, FRULES,GLO REF,HRN,IN STIEN,INST NAME,PRIGR P,SVCCONN, SVCCONNP,T YPEIEN,TYP ENAME
  7455   "RTN","SDE CAR1",16,0 )
  7456    N PCOUNTR Y,SDSUB,SD TMP,SSN,AR SSIEN,ARSS NAME,ARCLI EN,ARCLNAM E
  7457   "RTN","SDE CAR1",17,0 )
  7458    N ARUSER, ARPRIO,ARR EQBY,ARPRO V,ARPROVNM ,ARDAPTDT, ARCOMM,ARE ESTAT,ARUS RNM
  7459   "RTN","SDE CAR1",18,0 )
  7460    N ARCLIEN L,AREDT,AR IEN,PTINFO LSTA,ARDIS PD,ARDISPU ,ARDISPUN, ARSVCCON
  7461   "RTN","SDE CAR1",19,0 )
  7462    N ARMAI,A RMAN,ARMAR ,ARSTAT,AR STOP,ARSTO PN,COUNT,D ES,SDK,STR ,SDRTMP
  7463   "RTN","SDE CAR1",20,0 )
  7464    N PCITY,G AF,PSTATE, PZIP4,PADD RES1,PADDR ES2,PADDRE S3,PPC,PTP HONE,ARENP RI,ARASD,A RPC,ARDATA
  7465   "RTN","SDE CAR1",21,0 )
  7466    N SDCL,SD I,SDJ,SDMT RC,SDPAREN T,SDPS,SDS ENS,SDDEMO ,X,Y,%DT,A PPTPTRS
  7467   "RTN","SDE CAR1",22,0 )
  7468    N VAOSGUI D ; wtc pa tch 686 3/ 23/18 adde d for VAOS  requests
  7469   "RTN","SDE CAR1",23,0 )
  7470    S RET="^T MP(""SDEC" ","_$J_")"
  7471   "RTN","SDE CAR1",24,0 )
  7472    K @RET
  7473   "RTN","SDE CAR1",25,0 )
  7474    S FNUM=$$ FNUM^SDECA R,COUNT=0
  7475   "RTN","SDE CAR1",26,0 )
  7476    S MAXREC= +$G(MAXREC ,50)
  7477   "RTN","SDE CAR1",27,0 )
  7478    D HDR
  7479   "RTN","SDE CAR1",28,0 )
  7480    S GLOREF= $NA(^SDEC( 409.85,"C" ,DUZ(2)))
  7481   "RTN","SDE CAR1",29,0 )
  7482    S FRULES= 1
  7483   "RTN","SDE CAR1",30,0 )
  7484    S ARIEN=0
  7485   "RTN","SDE CAR1",31,0 )
  7486    ;F  S WLI EN=$O(@GLO REF@(WLIEN )) Q:'WLIE N  D ONEPA T I MAXREC ,COUNT'<MA XREC Q
  7487   "RTN","SDE CAR1",32,0 )
  7488    S SDBEG=$ G(SDBEG)
  7489   "RTN","SDE CAR1",33,0 )
  7490    I SDBEG'= "" S %DT=" " S X=$P(S DBEG,"@",1 ) D ^%DT S  SDBEG=Y I  Y=-1 S SD BEG=310010 1
  7491   "RTN","SDE CAR1",34,0 )
  7492    I SDBEG=" " S SDBEG= 3100101
  7493   "RTN","SDE CAR1",35,0 )
  7494    S SDEND=$ G(SDEND)
  7495   "RTN","SDE CAR1",36,0 )
  7496    I SDEND'= "" S %DT=" " S X=$P(S DEND,"@",1 ) D ^%DT S  SDEND=Y I  Y=-1 S SD END=$$FMAD D^XLFDT($E ($$NOW^XLF DT,1,12),- 90)
  7497   "RTN","SDE CAR1",37,0 )
  7498    I SDEND=" " S SDEND= $$FMADD^XL FDT($E($$N OW^XLFDT,1 ,12),-90)
  7499   "RTN","SDE CAR1",38,0 )
  7500    S DFN=$G( DFN)
  7501   "RTN","SDE CAR1",39,0 )
  7502    I DFN'="" ,'$D(^DPT( DFN,0)) S  DFN=""
  7503   "RTN","SDE CAR1",40,0 )
  7504    S LASTSUB =$S(DFN="" :$G(LASTSU B),1:"")
  7505   "RTN","SDE CAR1",41,0 )
  7506    S SDTOP=+ $G(SDTOP)
  7507   "RTN","SDE CAR1",42,0 )
  7508    ;validate  SVCL
  7509   "RTN","SDE CAR1",43,0 )
  7510    S SVCL=$G (SVCL)
  7511   "RTN","SDE CAR1",44,0 )
  7512    I SVCL'=" " D
  7513   "RTN","SDE CAR1",45,0 )
  7514    .F SDI=$L (SVCL,"|") :-1:1 S SV C=$P(SVCL, "|",SDI) D
  7515   "RTN","SDE CAR1",46,0 )
  7516    ..I (SVC= "")!('$D(^ DIC(40.7,+ SVC,0))) S  SVCL=$$PD ^SDECUTL(S VCL,SDI,"| ")
  7517   "RTN","SDE CAR1",47,0 )
  7518    ;validate  DESDT
  7519   "RTN","SDE CAR1",48,0 )
  7520    S DESDT=$ G(DESDT)
  7521   "RTN","SDE CAR1",49,0 )
  7522    ;validate  PRL
  7523   "RTN","SDE CAR1",50,0 )
  7524    S PRL=$G( PRL)
  7525   "RTN","SDE CAR1",51,0 )
  7526    I PRL'=""  D
  7527   "RTN","SDE CAR1",52,0 )
  7528    .N PR
  7529   "RTN","SDE CAR1",53,0 )
  7530    .F SDI=$L (PRL,"|"): -1:1 S PR= $P(PRL,"|" ,SDI) D
  7531   "RTN","SDE CAR1",54,0 )
  7532    ..I "0123 45678"'[PR  S PR=$E(P R,7)
  7533   "RTN","SDE CAR1",55,0 )
  7534    ..I "0123 45678"'[PR  S PRL=$$P D^SDECUTL( PRL,SDI,"| ")
  7535   "RTN","SDE CAR1",56,0 )
  7536    ;validate  SVCR
  7537   "RTN","SDE CAR1",57,0 )
  7538    S SVCR=$G (SVCR) S:S VCR'="" SV CR=$$UP^XL FSTR(SVCR)
  7539   "RTN","SDE CAR1",58,0 )
  7540    I SVCR'=" " S SVCR=$ S(SVCR="Y" :1,SVCR="N ":0,SVCR=" YES":1,SVC R="NO":0,1 :"")
  7541   "RTN","SDE CAR1",59,0 )
  7542    ;validate  SCVISIT
  7543   "RTN","SDE CAR1",60,0 )
  7544    S SCVISIT =$G(SCVISI T) S:SCVIS IT'="" SCV ISIT=$$UP^ XLFSTR(SCV ISIT)
  7545   "RTN","SDE CAR1",61,0 )
  7546    I SCVISIT '="" S SCV ISIT=$S(SC VISIT="Y": "Y",SCVISI T="N":"N", SCVISIT="Y ES":"Y",SC VISIT="NO" :"N",1:"")
  7547   "RTN","SDE CAR1",62,0 )
  7548    ;validate  CLINIC
  7549   "RTN","SDE CAR1",63,0 )
  7550    S CLINIC= $G(CLINIC)
  7551   "RTN","SDE CAR1",64,0 )
  7552    ;validate  ORIGDT
  7553   "RTN","SDE CAR1",65,0 )
  7554    S ORIGDT= $G(ORIGDT)
  7555   "RTN","SDE CAR1",66,0 )
  7556    ;single I EN
  7557   "RTN","SDE CAR1",67,0 )
  7558    S ARIEN1= $G(ARIEN1)
  7559   "RTN","SDE CAR1",68,0 )
  7560    I +ARIEN1  I '$D(^SD EC(409.85, +ARIEN1,0) )  S ARIEN 1=""
  7561   "RTN","SDE CAR1",69,0 )
  7562    I +ARIEN1  D
  7563   "RTN","SDE CAR1",70,0 )
  7564    .S ARIEN= +ARIEN1
  7565   "RTN","SDE CAR1",71,0 )
  7566    .S FRULES =0  ;no ru les - just  return th e single r ecord
  7567   "RTN","SDE CAR1",72,0 )
  7568    .D ONEPAT
  7569   "RTN","SDE CAR1",73,0 )
  7570    I +ARIEN1  S @RET@(C OUNT)=@RET @(COUNT)_$ C(31) Q
  7571   "RTN","SDE CAR1",74,0 )
  7572    ;by patie nt
  7573   "RTN","SDE CAR1",75,0 )
  7574    I +DFN D
  7575   "RTN","SDE CAR1",76,0 )
  7576    .I 'SDTOP  S ARIEN=0  F  S ARIE N=$O(^SDEC (409.85,"B ",+DFN,ARI EN)) Q:ARI EN'>0  D O NEPAT  ;I  MAXREC,COU NT'<MAXREC  Q
  7577   "RTN","SDE CAR1",77,0 )
  7578    .I +SDTOP  S ARIEN=9 99999999 F   S ARIEN= $O(^SDEC(4 09.85,"B", +DFN,ARIEN ),-1) Q:AR IEN'>0  D  ONEPAT
  7579   "RTN","SDE CAR1",78,0 )
  7580    ;clinic
  7581   "RTN","SDE CAR1",79,0 )
  7582    I CLINIC' ="" D  G A RX
  7583   "RTN","SDE CAR1",80,0 )
  7584    .S SDI=$S ($P(LASTSU B,"|",1)'= "":$P(LAST SUB,"|",1) ,1:1)
  7585   "RTN","SDE CAR1",81,0 )
  7586    .F SDI=SD I:1:$L(CLI NIC,"|") S  SDCL=$P(C LINIC,"|", SDI) D  I  MAXREC,COU NT'<MAXREC  Q
  7587   "RTN","SDE CAR1",82,0 )
  7588    ..Q:SDCL= ""
  7589   "RTN","SDE CAR1",83,0 )
  7590    ..I DESDT '="" D  Q   ;GCC  DES DT desired  dates by  pipe
  7591   "RTN","SDE CAR1",84,0 )
  7592    ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1)
  7593   "RTN","SDE CAR1",85,0 )
  7594    ...F SDT= SDT:1:$L(D ESDT,"|")  S DES=$P(D ESDT,"|",S DT) D  I M AXREC,COUN T'<MAXREC  Q
  7595   "RTN","SDE CAR1",86,0 )
  7596    ....Q:DES =""
  7597   "RTN","SDE CAR1",87,0 )
  7598    ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0)
  7599   "RTN","SDE CAR1",88,0 )
  7600    ....F  S  ARIEN=$O(^ SDEC(409.8 5,"GCC",SD CL,DES,ARI EN)) Q:ARI EN=""  D   I MAXREC,C OUNT'<MAXR EC S SDSUB =SDCL_"|"_ SDT_"|"_AR IEN Q
  7601   "RTN","SDE CAR1",89,0 )
  7602    .....D ON EPAT
  7603   "RTN","SDE CAR1",90,0 )
  7604    ..;
  7605   "RTN","SDE CAR1",91,0 )
  7606    ..S SDT=$ S($P(LASTS UB,"|",2)' ="":$P(LAS TSUB,"|",2 )-1,ORIGDT '="":ORIGD T-1,1:SDBE G-1)  ;GC
  7607   "RTN","SDE CAR1",92,0 )
  7608    ..F  S SD T=$O(^SDEC (409.85,"G C",SDCL,SD T)) Q:SDT= ""  Q:((OR IGDT'="")& (SDT>ORIGD T))  Q:(OR IGDT="")&( SDT>SDEND)   D  I MAX REC,COUNT' <MAXREC Q
  7609   "RTN","SDE CAR1",93,0 )
  7610    ...S ARIE N=$S($P(LA STSUB,"|", 3)'="":$P( LASTSUB,"| ",3),1:0)
  7611   "RTN","SDE CAR1",94,0 )
  7612    ...F  S A RIEN=$O(^S DEC(409.85 ,"GC",SDCL ,SDT,ARIEN )) Q:ARIEN =""  D  I  MAXREC,COU NT'<MAXREC  S SDSUB=S DI_"|"_SDT _"|"_ARIEN  Q
  7613   "RTN","SDE CAR1",95,0 )
  7614    ....D ONE PAT
  7615   "RTN","SDE CAR1",96,0 )
  7616    ;by servi ce
  7617   "RTN","SDE CAR1",97,0 )
  7618    I SVCL'=" " D  G ARX
  7619   "RTN","SDE CAR1",98,0 )
  7620    .N PR1,SD T,SVC
  7621   "RTN","SDE CAR1",99,0 )
  7622    .S SDI=$S ($P(LASTSU B,"|",1)'= "":$P(LAST SUB,"|",1) ,1:1)
  7623   "RTN","SDE CAR1",100, 0)
  7624    .F SDI=SD I:1:$L(SVC L,"|") S S VC=$P(SVCL ,"|",SDI)  D  I MAXRE C,COUNT'<M AXREC Q
  7625   "RTN","SDE CAR1",101, 0)
  7626    ..Q:SVC=" "
  7627   "RTN","SDE CAR1",102, 0)
  7628    ..;I DESD TR'="" D   ;desired d ate range  range <beg in> ~ <end > not impl emented
  7629   "RTN","SDE CAR1",103, 0)
  7630    ..I DESDT '="" D  Q   ;GSC  DES DT desired  dates by  pipe
  7631   "RTN","SDE CAR1",104, 0)
  7632    ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1)
  7633   "RTN","SDE CAR1",105, 0)
  7634    ...F SDT= SDT:1:$L(D ESDT,"|")  S DES=$P(D ESDT,"|",S DT) D  I M AXREC,COUN T'<MAXREC  Q
  7635   "RTN","SDE CAR1",106, 0)
  7636    ....Q:DES =""
  7637   "RTN","SDE CAR1",107, 0)
  7638    ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0)
  7639   "RTN","SDE CAR1",108, 0)
  7640    ....F  S  ARIEN=$O(^ SDEC(409.8 5,"GSC",SV C,DES,ARIE N)) Q:ARIE N=""  D  I  MAXREC,CO UNT'<MAXRE C S SDSUB= SVC_"|"_SD T_"|"_ARIE N Q
  7641   "RTN","SDE CAR1",109, 0)
  7642    .....D ON EPAT
  7643   "RTN","SDE CAR1",110, 0)
  7644    ..I PRL'= "" D  Q    ;GSP
  7645   "RTN","SDE CAR1",111, 0)
  7646    ...S SDK= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1)
  7647   "RTN","SDE CAR1",112, 0)
  7648    ...F SDK= SDK:1:$L(P RL,"|") S  PR1=$P(PRL ,"|",SDK)  D  I MAXRE C,COUNT'<M AXREC Q
  7649   "RTN","SDE CAR1",113, 0)
  7650    ....S SDT =$S($P(LAS TSUB,"|",3 )'="":$P(L ASTSUB,"|" ,3)-1,1:SD BEG-1)
  7651   "RTN","SDE CAR1",114, 0)
  7652    ....F  S  SDT=$O(^SD EC(409.85, "GSP",SVC, PR1,SDT))  Q:SDT=""   Q:SDT>SDEN D  D  I MA XREC,COUNT '<MAXREC Q
  7653   "RTN","SDE CAR1",115, 0)
  7654    .....S AR IEN=$S($P( LASTSUB,"| ",4)'="":$ P(LASTSUB, "|",4),1:0 )
  7655   "RTN","SDE CAR1",116, 0)
  7656    .....F  S  ARIEN=$O( ^SDEC(409. 85,"GSP",S VC,PR1,SDT ,ARIEN)) Q :ARIEN=""   D ONEPAT   I MAXREC, COUNT'<MAX REC S SDSU B=SVC_"|"_ SDK_"|"_SD T_"|"_ARIE N Q
  7657   "RTN","SDE CAR1",117, 0)
  7658    ..I SVCR' ="" D  Q   ;GSB - WL  service co nnected
  7659   "RTN","SDE CAR1",118, 0)
  7660    ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:SDB EG-1)
  7661   "RTN","SDE CAR1",119, 0)
  7662    ...F  S S DT=$O(^SDE C(409.85," GSB",SVC,$ E(SVCR),SD T)) Q:SDT= ""  Q:SDT> SDEND  D   I MAXREC,C OUNT'<MAXR EC Q
  7663   "RTN","SDE CAR1",120, 0)
  7664    ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0)
  7665   "RTN","SDE CAR1",121, 0)
  7666    ....F  S  ARIEN=$O(^ SDEC(409.8 5,"GSB",SV C,$E(SVCR) ,SDT,ARIEN )) Q:ARIEN =""  D ONE PAT  I MAX REC,COUNT' <MAXREC S  SDSUB=SVC_ "|"_SDT_"| "_ARIEN Q
  7667   "RTN","SDE CAR1",122, 0)
  7668    ..I SCVIS IT'="" D   Q  ;GSA -  Patient Se rvice Conn ected
  7669   "RTN","SDE CAR1",123, 0)
  7670    ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:SDB EG-1)
  7671   "RTN","SDE CAR1",124, 0)
  7672    ...F  S S DT=$O(^SDE C(409.85," GSA",SVC,$ E(SCVISIT) ,SDT)) Q:S DT=""  Q:S DT>SDEND   D  I MAXRE C,COUNT'<M AXREC Q
  7673   "RTN","SDE CAR1",125, 0)
  7674    ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0)
  7675   "RTN","SDE CAR1",126, 0)
  7676    ....F  S  ARIEN=$O(^ SDEC(409.8 5,"GSA",SV C,$E(SCVIS IT),SDT,AR IEN)) Q:AR IEN=""  D  ONEPAT  I  MAXREC,COU NT'<MAXREC  S SDSUB=S VC_"|"_SDT _"|"_ARIEN  Q
  7677   "RTN","SDE CAR1",127, 0)
  7678    ..S SDT=$ S($P(LASTS UB,"|",2)' ="":$P(LAS TSUB,"|",2 )-1,1:SDBE G-1)  ;GS
  7679   "RTN","SDE CAR1",128, 0)
  7680    ..F  S SD T=$O(^SDEC (409.85,"G S",SVC,SDT )) Q:SDT=" "  Q:SDT>S DEND  D  I  MAXREC,CO UNT'<MAXRE C Q
  7681   "RTN","SDE CAR1",129, 0)
  7682    ...S ARIE N=$S($P(LA STSUB,"|", 3)'="":$P( LASTSUB,"| ",3),1:0)
  7683   "RTN","SDE CAR1",130, 0)
  7684    ...F  S A RIEN=$O(^S DEC(409.85 ,"GS",SVC, SDT,ARIEN) ) Q:ARIEN= ""  D  I M AXREC,COUN T'<MAXREC  S SDSUB=SD I_"|"_SDT_ "|"_ARIEN  Q
  7685   "RTN","SDE CAR1",131, 0)
  7686    ....D ONE PAT
  7687   "RTN","SDE CAR1",132, 0)
  7688    ;
  7689   "RTN","SDE CAR1",133, 0)
  7690    ;all by d ate range
  7691   "RTN","SDE CAR1",134, 0)
  7692    I 'DFN D
  7693   "RTN","SDE CAR1",135, 0)
  7694    .I 'SDTOP  D
  7695   "RTN","SDE CAR1",136, 0)
  7696    ..S SDJ=$ S($P(LASTS UB,"|",1)' ="":$P(LAS TSUB,"|",1 )-1,1:SDBE G-1)
  7697   "RTN","SDE CAR1",137, 0)
  7698    ..F  S SD J=$O(^SDEC (409.85,"E ","O",SDJ) ) Q:SDJ'>0   Q:SDJ>SD END  D  I  MAXREC,COU NT'<MAXREC  Q
  7699   "RTN","SDE CAR1",138, 0)
  7700    ...S ARIE N=$S($P(LA STSUB,"|", 2)'="":$P( LASTSUB,"| ",2),1:0)
  7701   "RTN","SDE CAR1",139, 0)
  7702    ...F  S A RIEN=$O(^S DEC(409.85 ,"E","O",S DJ,ARIEN))  Q:ARIEN'> 0  D  I MA XREC,COUNT '<MAXREC S  SDSUB=SDJ _"|"_ARIEN  Q
  7703   "RTN","SDE CAR1",140, 0)
  7704    ....S SDS UB=""
  7705   "RTN","SDE CAR1",141, 0)
  7706    ....D ONE PAT
  7707   "RTN","SDE CAR1",142, 0)
  7708    .I +SDTOP  D
  7709   "RTN","SDE CAR1",143, 0)
  7710    ..S SDJ=$ S($P(LASTS UB,"|",1)' ="":$P(LAS TSUB,"|",1 )+1,1:SDEN D+1)
  7711   "RTN","SDE CAR1",144, 0)
  7712    ..F  S SD J=$O(^SDEC (409.85,"E ","O",SDJ) ,-1) Q:SDJ '>0  Q:SDJ <SDBEG  D   I MAXREC, COUNT'<MAX REC Q
  7713   "RTN","SDE CAR1",145, 0)
  7714    ...S ARIE N=$S($P(LA STSUB,"|", 2)'="":$P( LASTSUB,"| ",2),1:999 999999)
  7715   "RTN","SDE CAR1",146, 0)
  7716    ...F  S A RIEN=$O(^S DEC(409.85 ,"E","O",S DJ,ARIEN), -1) Q:ARIE N'>0  D  I  MAXREC,CO UNT'<MAXRE C S SDSUB= SDJ_"|"_AR IEN Q
  7717   "RTN","SDE CAR1",147, 0)
  7718    ....S SDS UB=""
  7719   "RTN","SDE CAR1",148, 0)
  7720    ....D ONE PAT
  7721   "RTN","SDE CAR1",149, 0)
  7722   ARX S SDTM P=@RET@(CO UNT) S SDT MP=$P(SDTM P,$C(30),1 )
  7723   "RTN","SDE CAR1",150, 0)
  7724    S:$G(SDSU B)'="" $P( SDTMP,U,56 )=SDSUB
  7725   "RTN","SDE CAR1",151, 0)
  7726    S @RET@(C OUNT)=SDTM P_$C(30,31 )
  7727   "RTN","SDE CAR1",152, 0)
  7728    Q
  7729   "RTN","SDE CAR1",153, 0)
  7730   HDR ;Send  back the h eader
  7731   "RTN","SDE CAR1",154, 0)
  7732    ;                       1          2
  7733   "RTN","SDE CAR1",155, 0)
  7734    S SDRTMP= "T00030DFN ^T00030NAM E"
  7735   "RTN","SDE CAR1",156, 0)
  7736    ;                         3          4          5          6             7          8
  7737   "RTN","SDE CAR1",157, 0)
  7738    S SDRTMP= SDRTMP_"^T 00030HRN^T 00030DOB^T 00030SSN^T 00030GENDE R^I00010IE N^D00030OR IGDT"
  7739   "RTN","SDE CAR1",158, 0)
  7740    ;                         9              1 0              11           12              13
  7741   "RTN","SDE CAR1",159, 0)
  7742    S SDRTMP= SDRTMP_"^T 00030INSTI EN^T00030I NSTNAME^T0 0030TYPE^T 00030CLINI EN^T00030C LINNAME"
  7743   "RTN","SDE CAR1",160, 0)
  7744    ;                         14             1 5              16          17           18              19
  7745   "RTN","SDE CAR1",161, 0)
  7746    S SDRTMP= SDRTMP_"^T 00030USERI EN^T00030U SERNAME^T0 0030PRIO^T 00030REQBY ^T00030PRO VIEN^T0003 0PROVNAME"
  7747   "RTN","SDE CAR1",162, 0)
  7748    ;                         20            21          2 2
  7749   "RTN","SDE CAR1",163, 0)
  7750    S SDRTMP= SDRTMP_"^T 00030DAPTD T^T00250CO MM^T00030E NROLLMENT_ PRIORITY"
  7751   "RTN","SDE CAR1",164, 0)
  7752    ;                         23                                24                              25
  7753   "RTN","SDE CAR1",165, 0)
  7754    S SDRTMP= SDRTMP_"^T 00010MULTI PLE APPOIN TMENT RTC^ T00010MULT  APPT RTC  INTERVAL^T 00010MULT  APPT NUMBE R"
  7755   "RTN","SDE CAR1",166, 0)
  7756    ;                         26            27              28              29              30
  7757   "RTN","SDE CAR1",167, 0)
  7758    S SDRTMP= SDRTMP_"^T 00030PRIGR P^T00030EL IGIEN^T000 30ELIGNAME ^T00030SVC CONN^T0003 0SVCCONNP"
  7759   "RTN","SDE CAR1",168, 0)
  7760    ;                         31             3 2              33              3 4             35             36
  7761   "RTN","SDE CAR1",169, 0)
  7762    S SDRTMP= SDRTMP_"^T 00030TYPEI EN^T00030T YPENAME^T0 0100PCONTA CT^T00030A RDISPD^T00 030ARDISPU ^T00030ARD ISPUN"
  7763   "RTN","SDE CAR1",170, 0)
  7764    ;                         37               38              39               40              41
  7765   "RTN","SDE CAR1",171, 0)
  7766    S SDRTMP= SDRTMP_"^T 00030WLSVC CON^T00030 PADDRES1^T 00030PADDR ES2^T00030 PADDRES3^T 00030PCITY "
  7767   "RTN","SDE CAR1",172, 0)
  7768    ;                         42            43               44           45         46          47
  7769   "RTN","SDE CAR1",173, 0)
  7770    S SDRTMP= SDRTMP_"^T 00030PSTAT E^T00030PC OUNTRY^T00 030PZIP4^T 00050GAF^T 00030DATE^ T00030MTRC DATES"
  7771   "RTN","SDE CAR1",174, 0)
  7772    ;                         48                49          50          51          52          53
  7773   "RTN","SDE CAR1",175, 0)
  7774    S SDRTMP= SDRTMP_"^T 00100SENSI TIVE^T0003 0NU49^T000 30NU50^T00 030NU51^T0 0030NU52^T 00030NU53"
  7775   "RTN","SDE CAR1",176, 0)
  7776    ;                         54          55          56              57             58               59
  7777   "RTN","SDE CAR1",177, 0)
  7778    S SDRTMP= SDRTMP_"^T 00030NU54^ T00030NU55 ^T00030LAS TSUB^T0003 0STOPIEN^T 00030STOPN AME^T00250 APPT_SCHED _DATE"
  7779   "RTN","SDE CAR1",178, 0)
  7780    S SDRTMP= SDRTMP_"^T 00030MRTCC OUNT^T0003 0PTPHONE^T 00030APPTY PE^T00030E ESTAT^T000 30PRHBLOC^ T00030APPT PTRS"
  7781   "RTN","SDE CAR1",179, 0)
  7782    S SDRTMP= SDRTMP_"^T 00250CHILD REN^T00030 SDPARENT"
  7783   "RTN","SDE CAR1",180, 0)
  7784    S SDRTMP= SDRTMP_"^T 00030HRN^T 00030BADAD D^T00030OP HONE^T0003 0NOK^T0003 0^T00030KN AME^T00030 KREL^T0003 0KPHONE"
  7785   "RTN","SDE CAR1",181, 0)
  7786    S SDRTMP= SDRTMP_"^T 00030KSTRE ET^T00030K STREET2^T0 0030KSTREE T3^T00030K CITY^T0003 0KSTATE^T0 0030KZIP^T 00030"
  7787   "RTN","SDE CAR1",182, 0)
  7788    S SDRTMP= SDRTMP_"^T 00030NOK2^ T00030K2NA ME^T00030K 2REL^T0003 0K2PHONE"
  7789   "RTN","SDE CAR1",183, 0)
  7790    S SDRTMP= SDRTMP_"^T 00030K2STR EET^T00030 K2STREET2^ T00030K2ST REET3^T000 30K2CITY^T 00030K2STA TE^T00030K 2ZIP"
  7791   "RTN","SDE CAR1",184, 0)
  7792    S SDRTMP= SDRTMP_"^T 00030PCOUN TY^T00030P ETH^T00030 PRACE^T000 30PMARITAL ^T00030PRE LIGION^T00 030PTACTIV E"
  7793   "RTN","SDE CAR1",185, 0)
  7794    S SDRTMP= SDRTMP_"^T 00030PTADD RESS1^T000 30PTADDRES S2^T00030P TADDRESS3^ T00030PTCI TY^T00030P TSTATE^T00 030PTZIP^T 00030PTZIP +4"
  7795   "RTN","SDE CAR1",186, 0)
  7796    S SDRTMP= SDRTMP_"^T 00030PTCOU NTRY^T0003 0PTCOUNTY^ T00030PTMP PHONE^T000 30PTSTART^ T00030PTEN D^T00030PC ELL^T00030 PPAGER^T00 030PEMAIL"
  7797   "RTN","SDE CAR1",187, 0)
  7798    S SDRTMP= SDRTMP_"^T 00030PF_FF F^T00030PF _VCD^T0003 0PFNATIONA L^T00030PF LOCAL^T000 30SUBGRP^T 00030CAT8G ^T01000SIM ILAR"
  7799   "RTN","SDE CAR1",188, 0)
  7800    S SDRTMP= SDRTMP_"^T 00032VAOS_ GUID" ;  w tc patch 6 86 3/23/18  added for  VAOS requ ests
  7801   "RTN","SDE CAR1",189, 0)
  7802    S @RET@(C OUNT)=SDRT MP_$C(30)
  7803   "RTN","SDE CAR1",190, 0)
  7804    Q
  7805   "RTN","SDE CAR1",191, 0)
  7806    ;
  7807   "RTN","SDE CAR1",192, 0)
  7808   ONEPAT ; P rocess one  patient
  7809   "RTN","SDE CAR1",193, 0)
  7810    N APPTYPE ,ARMRTC,CH ILDREN,SDI ,PRHBLOC
  7811   "RTN","SDE CAR1",194, 0)
  7812    K ARASD,A RDATA,ARSD OA,ARDAM,A RCLERK,ARC LERKN
  7813   "RTN","SDE CAR1",195, 0)
  7814    S FRULES= $G(FRULES)
  7815   "RTN","SDE CAR1",196, 0)
  7816    D GETS^DI Q(FNUM,ARI EN,"**","I E","ARDATA ","ARMSG")
  7817   "RTN","SDE CAR1",197, 0)
  7818    Q:'$D(ARD ATA)
  7819   "RTN","SDE CAR1",198, 0)
  7820    S ARSTAT= ARDATA(FNU M,ARIEN_", ",23,"I")
  7821   "RTN","SDE CAR1",199, 0)
  7822    I FRULES  I '+$G(CLO SED) Q:ARS TAT="C"  ;  Ignore CL OSED recor ds; CLOSED  setup and  used from  SDEC54 on ly
  7823   "RTN","SDE CAR1",200, 0)
  7824    S ARORIGD T=ARDATA(F NUM,ARIEN_ ",",1,"I")
  7825   "RTN","SDE CAR1",201, 0)
  7826    I FRULES  I ($P(AROR IGDT,".",1 )<SDBEG)!( $P(ARORIGD T,".",1)>S DEND) Q
  7827   "RTN","SDE CAR1",202, 0)
  7828    S DFN=ARD ATA(FNUM,A RIEN_",",. 01,"I")
  7829   "RTN","SDE CAR1",203, 0)
  7830    Q:DFN=""
  7831   "RTN","SDE CAR1",204, 0)
  7832    S SDPS=AR DATA(FNUM, ARIEN_",", .02,"E")
  7833   "RTN","SDE CAR1",205, 0)
  7834    S SDCL=AR DATA(FNUM, ARIEN_",", 8,"I")
  7835   "RTN","SDE CAR1",206, 0)
  7836    Q:(SDCL'= "")&($$GET 1^DIQ(44,S DCL_",",50 .01,"I")=1 )  ;check  OOS? in fi le 44
  7837   "RTN","SDE CAR1",207, 0)
  7838    S PRHBLOC =$S($$GET1 ^DIQ(44,SD CL_",",250 0,"I")="Y" :1,1:0)
  7839   "RTN","SDE CAR1",208, 0)
  7840    ;collect  demographi cs
  7841   "RTN","SDE CAR1",209, 0)
  7842    D PDEMO^S DECU3(.SDD EMO,DFN)   ;alb/sat 6 58 PDEMO m oved to SD ECU3
  7843   "RTN","SDE CAR1",210, 0)
  7844    S NAME=SD DEMO("NAME ")
  7845   "RTN","SDE CAR1",211, 0)
  7846    S DOB=SDD EMO("DOB")
  7847   "RTN","SDE CAR1",212, 0)
  7848    S GENDER= SDDEMO("GE NDER")
  7849   "RTN","SDE CAR1",213, 0)
  7850    S HRN=SDD EMO("HRN")
  7851   "RTN","SDE CAR1",214, 0)
  7852    S SSN=SDD EMO("SSN")
  7853   "RTN","SDE CAR1",215, 0)
  7854    S INSTIEN =SDDEMO("I NSTIEN")
  7855   "RTN","SDE CAR1",216, 0)
  7856    S INSTNAM E=SDDEMO(" INSTNAME")
  7857   "RTN","SDE CAR1",217, 0)
  7858    S PRIGRP= SDDEMO("PR IGRP")
  7859   "RTN","SDE CAR1",218, 0)
  7860    S ELIGIEN =SDDEMO("E LIGIEN")
  7861   "RTN","SDE CAR1",219, 0)
  7862    S ELIGNAM E=SDDEMO(" ELIGNAME")
  7863   "RTN","SDE CAR1",220, 0)
  7864    S SVCCONN =SDDEMO("S VCCONN")
  7865   "RTN","SDE CAR1",221, 0)
  7866    S SVCCONN P=SDDEMO(" SVCCONNP")
  7867   "RTN","SDE CAR1",222, 0)
  7868    S TYPEIEN =SDDEMO("T YPEIEN")
  7869   "RTN","SDE CAR1",223, 0)
  7870    S TYPENAM E=SDDEMO(" TYPENAME")
  7871   "RTN","SDE CAR1",224, 0)
  7872    S PADDRES 1=SDDEMO(" PADDRES1")
  7873   "RTN","SDE CAR1",225, 0)
  7874    S PADDRES 2=SDDEMO(" PADDRES2")
  7875   "RTN","SDE CAR1",226, 0)
  7876    S PADDRES 3=SDDEMO(" PADDRES3")
  7877   "RTN","SDE CAR1",227, 0)
  7878    S PCITY=S DDEMO("PCI TY")
  7879   "RTN","SDE CAR1",228, 0)
  7880    S PSTATE= SDDEMO("PS TATE")
  7881   "RTN","SDE CAR1",229, 0)
  7882    S PCOUNTR Y=SDDEMO(" PCOUNTRY")
  7883   "RTN","SDE CAR1",230, 0)
  7884    S PZIP4=S DDEMO("PZI P+4")
  7885   "RTN","SDE CAR1",231, 0)
  7886    ;
  7887   "RTN","SDE CAR1",232, 0)
  7888    S GAF=$$G AF^SDECU2( DFN)
  7889   "RTN","SDE CAR1",233, 0)
  7890    ;
  7891   "RTN","SDE CAR1",234, 0)
  7892    S PTPHONE =SDDEMO("H PHONE")     ;ARDATA(F NUM,ARIEN_ ",",.05,"I ")  ;msc/s at
  7893   "RTN","SDE CAR1",235, 0)
  7894    S ARINST= ARDATA(FNU M,ARIEN_", ",2,"I")
  7895   "RTN","SDE CAR1",236, 0)
  7896    S ARINSTN M=ARDATA(F NUM,ARIEN_ ",",2,"E")
  7897   "RTN","SDE CAR1",237, 0)
  7898    S ARTYPE= ARDATA(FNU M,ARIEN_", ",4,"I")
  7899   "RTN","SDE CAR1",238, 0)
  7900    S VAOSGUI D=ARDATA(F NUM,ARIEN_ ",",5,"I")  ;  wtc pa tch 686 3/ 23/18 adde d for VAOS  requests
  7901   "RTN","SDE CAR1",239, 0)
  7902    S ARCLIEN L=ARDATA(F NUM,ARIEN_ ",",8,"I")
  7903   "RTN","SDE CAR1",240, 0)
  7904    S ARSTOP= ARDATA(FNU M,ARIEN_", ",8.5,"I")
  7905   "RTN","SDE CAR1",241, 0)
  7906    S ARSTOPN =ARDATA(FN UM,ARIEN_" ,",8.5,"E" )
  7907   "RTN","SDE CAR1",242, 0)
  7908    ;S ARCLIE N=$P($G(^S DWL(409.32 ,+ARCLIENL ,0)),U,1)
  7909   "RTN","SDE CAR1",243, 0)
  7910    S ARCLIEN =ARCLIENL
  7911   "RTN","SDE CAR1",244, 0)
  7912    S ARCLNAM E=ARDATA(F NUM,ARIEN_ ",",8,"E")
  7913   "RTN","SDE CAR1",245, 0)
  7914    S APPTYPE =ARDATA(FN UM,ARIEN_" ,",8.7,"I" )
  7915   "RTN","SDE CAR1",246, 0)
  7916    S ARUSER= ARDATA(FNU M,ARIEN_", ",9,"I")
  7917   "RTN","SDE CAR1",247, 0)
  7918    S ARUSRNM =ARDATA(FN UM,ARIEN_" ,",9,"E")
  7919   "RTN","SDE CAR1",248, 0)
  7920    S AREDT=$ G(ARDATA(F NUM,ARIEN_ ",",9.5,"E "))   ;53
  7921   "RTN","SDE CAR1",249, 0)
  7922    S ARPRIO= ARDATA(FNU M,ARIEN_", ",10,"I")
  7923   "RTN","SDE CAR1",250, 0)
  7924    S ARENPRI =ARDATA(FN UM,ARIEN_" ,",10.5,"E ")   ;msc/ sat
  7925   "RTN","SDE CAR1",251, 0)
  7926    S ARREQBY =ARDATA(FN UM,ARIEN_" ,",11,"I")
  7927   "RTN","SDE CAR1",252, 0)
  7928    S ARPROV= ARDATA(FNU M,ARIEN_", ",12,"I")
  7929   "RTN","SDE CAR1",253, 0)
  7930    S ARPROVN M=ARDATA(F NUM,ARIEN_ ",",12,"E" )
  7931   "RTN","SDE CAR1",254, 0)
  7932    S ARSDOA= ARDATA(FNU M,ARIEN_", ",13,"E")       ;sche duled date  of appt
  7933   "RTN","SDE CAR1",255, 0)
  7934    S ARDAM=A RDATA(FNUM ,ARIEN_"," ,13.1,"E")      ;date  appt. mad e
  7935   "RTN","SDE CAR1",256, 0)
  7936    S ARCLERK =ARDATA(FN UM,ARIEN_" ,",13.7,"I ")   ;appt  clerk ien
  7937   "RTN","SDE CAR1",257, 0)
  7938    S ARCLERK N=ARDATA(F NUM,ARIEN_ ",",13.7," E")   ;app t clerk na me
  7939   "RTN","SDE CAR1",258, 0)
  7940    S ARASD=" "
  7941   "RTN","SDE CAR1",259, 0)
  7942    S:ARSDOA' ="" $P(ARA SD,"~~",1) =ARSDOA
  7943   "RTN","SDE CAR1",260, 0)
  7944    S:ARCLERK '="" $P(AR ASD,"~~",1 2)=ARCLERK
  7945   "RTN","SDE CAR1",261, 0)
  7946    S:ARCLERK N'="" $P(A RASD,"~~", 13)=ARCLER KN
  7947   "RTN","SDE CAR1",262, 0)
  7948    S:ARDAM'= "" $P(ARAS D,"~~",17) =ARDAM
  7949   "RTN","SDE CAR1",263, 0)
  7950    S ARSVCCO N=ARDATA(F NUM,ARIEN_ ",",15,"E" )
  7951   "RTN","SDE CAR1",264, 0)
  7952    S ARDAPTD T=ARDATA(F NUM,ARIEN_ ",",22,"I" )
  7953   "RTN","SDE CAR1",265, 0)
  7954    S ARCOMM= ARDATA(FNU M,ARIEN_", ",25,"I")
  7955   "RTN","SDE CAR1",266, 0)
  7956    ;S AREEST AT=ARDATA( FNUM,ARIEN _",",27,"I ")
  7957   "RTN","SDE CAR1",267, 0)
  7958    S ARMAR=$ $GET1^DIQ( 409.85,ARI EN_",",41)
  7959   "RTN","SDE CAR1",268, 0)
  7960    S ARMAI=$ $GET1^DIQ( 409.85,ARI EN_",",42)
  7961   "RTN","SDE CAR1",269, 0)
  7962    S ARMAN=$ $GET1^DIQ( 409.85,ARI EN_",",43)
  7963   "RTN","SDE CAR1",270, 0)
  7964    S ARPC=$$ WLPC^SDECA R1A(.ARDAT A,ARIEN)
  7965   "RTN","SDE CAR1",271, 0)
  7966    S ARDISPD =ARDATA(FN UM,ARIEN_" ,",19,"E")
  7967   "RTN","SDE CAR1",272, 0)
  7968    S ARDISPU =ARDATA(FN UM,ARIEN_" ,",20,"I")
  7969   "RTN","SDE CAR1",273, 0)
  7970    S ARDISPU N=ARDATA(F NUM,ARIEN_ ",",20,"E" )
  7971   "RTN","SDE CAR1",274, 0)
  7972    S APPTPTR S=$$GETAPP TS^SDECAR1 A(ARIEN)
  7973   "RTN","SDE CAR1",275, 0)
  7974    S CHILDRE N=$$CHILDR EN^SDECAR1 A(ARIEN)
  7975   "RTN","SDE CAR1",276, 0)
  7976    S ARMRTC= $$MRTC^SDE CAR(ARIEN)
  7977   "RTN","SDE CAR1",277, 0)
  7978    S SDPAREN T=ARDATA(F NUM,ARIEN_ ",",43.8," I")
  7979   "RTN","SDE CAR1",278, 0)
  7980    S SDSENS= $$PTSEC^SD ECUTL(DFN)
  7981   "RTN","SDE CAR1",279, 0)
  7982    S (SDI,SD MTRC)="" F   S SDI=$O (ARDATA(40 9.857,SDI) ) Q:SDI=""   S SDMTRC =$S(SDMTRC '="":SDMTR C_"|",1:"" )_ARDATA(4 09.857,SDI ,.01,"E")
  7983   "RTN","SDE CAR1",280, 0)
  7984    S COUNT=C OUNT+1
  7985   "RTN","SDE CAR1",281, 0)
  7986    ;     1      2    3     4    5     6    7        8           9         10          11
  7987   "RTN","SDE CAR1",282, 0)
  7988    S STR=DFN _U_""_U_"" _U_""_U_"" _U_""_U_AR IEN_U_AROR IGDT_U_ARI NST_U_ARIN STNM_U_ART YPE
  7989   "RTN","SDE CAR1",283, 0)
  7990    ;            12         13          14        15         16        17         18
  7991   "RTN","SDE CAR1",284, 0)
  7992    S STR=STR _U_ARCLIEN _U_ARCLNAM E_U_ARUSER _U_ARUSRNM _U_ARPRIO_ U_ARREQBY_ U_ARPROV
  7993   "RTN","SDE CAR1",285, 0)
  7994    ;            19          20          21        22         23       24       25
  7995   "RTN","SDE CAR1",286, 0)
  7996    S STR=STR _U_ARPROVN M_U_ARDAPT DT_U_ARCOM M_U_ARENPR I_U_ARMAR_ U_ARMAI_U_ ARMAN
  7997   "RTN","SDE CAR1",287, 0)
  7998    ;            26        27         28          29         30          31         32          33
  7999   "RTN","SDE CAR1",288, 0)
  8000    S STR=STR _U_PRIGRP_ U_ELIGIEN_ U_ELIGNAME _U_SVCCONN _U_SVCCONN P_U_TYPEIE N_U_TYPENA ME_U_ARPC
  8001   "RTN","SDE CAR1",289, 0)
  8002    ;            34         35         36          37          38    39   40    41   42
  8003   "RTN","SDE CAR1",290, 0)
  8004    S STR=STR _U_ARDISPD _U_ARDISPU _U_ARDISPU N_U_ARSVCC ON_U_""_U_ ""_U_""_U_ ""_U_""
  8005   "RTN","SDE CAR1",291, 0)
  8006    ;            43   44    45    4 6      47        48                          57   (sav e 56 for S DSUB)
  8007   "RTN","SDE CAR1",292, 0)
  8008    S STR=STR _U_""_U_"" _U_GAF_U_A REDT_U_SDM TRC_U_SDSE NS_U_U_U_U _U_U_U_U_U _ARSTOP_U_ ARSTOPN_U_ ARASD
  8009   "RTN","SDE CAR1",293, 0)
  8010    S STR=STR _U_ARMRTC_ U_PTPHONE_ U_APPTYPE_ U_SDPS_U_P RHBLOC_U_A PPTPTRS_U_ CHILDREN_U _SDPARENT
  8011   "RTN","SDE CAR1",294, 0)
  8012    D ARDEMO^ SDECAR1A(. STR,DFN)   ;alb/sat 6 58 - get d emographic s
  8013   "RTN","SDE CAR1",295, 0)
  8014    S $P(STR, "^",121)=V AOSGUID ;   wtc patch  686 3/23/ 18 added f or VAOS re quests.  R evised to  store in p iece 121.
  8015   "RTN","SDE CAR1",296, 0)
  8016    S @RET@(C OUNT)=STR_ $C(30)
  8017   "RTN","SDE CAR1",297, 0)
  8018    Q
  8019   "RTN","SDE CAR1",298, 0)
  8020    ;
  8021   "RTN","SDE CAR1",299, 0)
  8022   ARGUID(RET ,GUID)     ;
  8023   "RTN","SDE CAR1",300, 0)
  8024    ;
  8025   "RTN","SDE CAR1",301, 0)
  8026    ;  Return  SDEC Appo intment Re quest data  for a VAO S Request  GUID.
  8027   "RTN","SDE CAR1",302, 0)
  8028    ;
  8029   "RTN","SDE CAR1",303, 0)
  8030    ;  wtc SD *5.3*686   4/19/2018
  8031   "RTN","SDE CAR1",304, 0)
  8032    ;
  8033   "RTN","SDE CAR1",305, 0)
  8034    N FNUM,AR IEN,SDTMP, COUNT ;
  8035   "RTN","SDE CAR1",306, 0)
  8036    S RET="^T MP(""SDEC" ","_$J_")"  ;
  8037   "RTN","SDE CAR1",307, 0)
  8038    K @RET ;
  8039   "RTN","SDE CAR1",308, 0)
  8040    S FNUM=$$ FNUM^SDECA R,COUNT=0  ;
  8041   "RTN","SDE CAR1",309, 0)
  8042    S ARIEN=$ O(^SDEC(40 9.85,"GUID ",GUID,0))  ;
  8043   "RTN","SDE CAR1",310, 0)
  8044    D HDR ;
  8045   "RTN","SDE CAR1",311, 0)
  8046    I ARIEN>0  D ONEPAT  ;
  8047   "RTN","SDE CAR1",312, 0)
  8048    G ARX ;
  8049   "RTN","SDE CAR1",313, 0)
  8050    ;
  8051   "RTN","SDE CAR2")
  8052   0^8^B19996 7808^B1919 68590
  8053   "RTN","SDE CAR2",1,0)
  8054   SDECAR2 ;A LB/SAT/JSM  - VISTA S CHEDULING  RPCS ;10:5 7 AM  3 Ju l 2017
  8055   "RTN","SDE CAR2",2,0)
  8056    ;;5.3;Sch eduling;** 627,642,65 8,671,686* *;Aug 13,  1993;Build  39
  8057   "RTN","SDE CAR2",3,0)
  8058    ;
  8059   "RTN","SDE CAR2",4,0)
  8060    Q
  8061   "RTN","SDE CAR2",5,0)
  8062    ;
  8063   "RTN","SDE CAR2",6,0)
  8064   ARSET(RET, INP) ;Appo intment Re quest Set
  8065   "RTN","SDE CAR2",7,0)
  8066    ;ARSET(RE T,INP...)   external  parameter  tag in SDE C
  8067   "RTN","SDE CAR2",8,0)
  8068    ;  INP(1)   = (integ er)  Wait  List IEN p oint to
  8069   "RTN","SDE CAR2",9,0)
  8070    ;                         SDEC  APPT REQUE ST file 40 9.85.
  8071   "RTN","SDE CAR2",10,0 )
  8072    ;                         If nu ll, a new  entry will  be added
  8073   "RTN","SDE CAR2",11,0 )
  8074    ;  INP(2)   = (text)      DFN P ointer to  the PATIEN T file 2
  8075   "RTN","SDE CAR2",12,0 )
  8076    ;  INP(3)   = (date)      Origi nating Dat e/time in  external d ate form
  8077   "RTN","SDE CAR2",13,0 )
  8078    ;  INP(4)   = (text)      Insti tution nam e NAME fie ld from th e INSTITUT ION file
  8079   "RTN","SDE CAR2",14,0 )
  8080    ;  INP(5)   = (text)      Reque st Type
  8081   "RTN","SDE CAR2",15,0 )
  8082    ;  INP(6)   = (text)      REQ S pecific Cl inic name  - NAME fie ld in file  44
  8083   "RTN","SDE CAR2",16,0 )
  8084    ;  INP(7)   = (text)      Origi nating Use r name  -  NAME field  in NEW PE RSON file  200
  8085   "RTN","SDE CAR2",17,0 )
  8086    ;  INP(8)   = (text)      Prior ity - 'ASA P' or 'FUT URE'
  8087   "RTN","SDE CAR2",18,0 )
  8088    ;  INP(9)   = (text)      Reque st By - 'P ROVIDER' o r 'PATIENT '
  8089   "RTN","SDE CAR2",19,0 )
  8090    ;  INP(10 ) = (text)      Provi der name   - NAME fie ld in NEW  PERSON fil e200
  8091   "RTN","SDE CAR2",20,0 )
  8092    ;  INP(11 ) = (date)      Desir ed Date of  appointme nt in exte rnal forma t.
  8093   "RTN","SDE CAR2",21,0 )
  8094    ;  INP(12 ) = (text)      comme nt must be  1-60 char acters
  8095   "RTN","SDE CAR2",22,0 )
  8096    ;  INP(13 ) = (text)      ENROL LMENT PRIO RITY - Val id Values  are:
  8097   "RTN","SDE CAR2",23,0 )
  8098    ;                                                 GRO UP 1
  8099   "RTN","SDE CAR2",24,0 )
  8100    ;                                                 GRO UP 2
  8101   "RTN","SDE CAR2",25,0 )
  8102    ;                                                 GRO UP 3
  8103   "RTN","SDE CAR2",26,0 )
  8104    ;                                                 GRO UP 4
  8105   "RTN","SDE CAR2",27,0 )
  8106    ;                                                 GRO UP 5
  8107   "RTN","SDE CAR2",28,0 )
  8108    ;                                                 GRO UP 6
  8109   "RTN","SDE CAR2",29,0 )
  8110    ;                                                 GRO UP 7
  8111   "RTN","SDE CAR2",30,0 )
  8112    ;                                                 GRO UP 8
  8113   "RTN","SDE CAR2",31,0 )
  8114    ;  INP(14 ) = (text)      MULTI PLE APPOIN TMENT RTC       NO; Y ES
  8115   "RTN","SDE CAR2",32,0 )
  8116    ;  INP(15 ) = (integ er)  MULT  APPT RTC I NTERVAL in teger betw een 1-365
  8117   "RTN","SDE CAR2",33,0 )
  8118    ;  INP(16 ) = (integ er)  MULT  APPT NUMBE R integer  between 1- 100
  8119   "RTN","SDE CAR2",34,0 )
  8120    ;  INP(17 ) = Patien t Contacts  separated  by ::
  8121   "RTN","SDE CAR2",35,0 )
  8122    ;             Each : : piece ha s the foll owing ~~ p ieces:
  8123   "RTN","SDE CAR2",36,0 )
  8124    ;             1) = ( date)    D ATE ENTERE D external  date/time
  8125   "RTN","SDE CAR2",37,0 )
  8126    ;             2) = ( text)    P C ENTERED  BY USER ID  or NAME -  Pointer t oNEW PERSO N file or  NAME
  8127   "RTN","SDE CAR2",38,0 )
  8128    ;             4) = ( optional)  ACTION - v alid value s are:
  8129   "RTN","SDE CAR2",39,0 )
  8130    ;                                CALLED
  8131   "RTN","SDE CAR2",40,0 )
  8132    ;                                MESSAGE L EFT
  8133   "RTN","SDE CAR2",41,0 )
  8134    ;                                LETTER
  8135   "RTN","SDE CAR2",42,0 )
  8136    ;             5) = ( optional)  PATIENT PH ONE Free-T ext 4-20 c haracters
  8137   "RTN","SDE CAR2",43,0 )
  8138    ;             6) = N OT USED (o ptional) C omment 1-1 60 charact ers
  8139   "RTN","SDE CAR2",44,0 )
  8140    ;  INP(18 ) = (optio nal) SERVI CE CONNECT ED PRIORIT Y valid va lues are N O YES
  8141   "RTN","SDE CAR2",45,0 )
  8142    ;  INP(19 ) = (optio nal) SERVI CE CONNECT ED PERCENT AGE = nume ric 0-100
  8143   "RTN","SDE CAR2",46,0 )
  8144    ;  INP(20 ) = (optio nal) MRTC  calculated  preferred  dates sep arated by  pipe |:
  8145   "RTN","SDE CAR2",47,0 )
  8146    ;                         Each  date can b e in exter nal format  with no t ime.
  8147   "RTN","SDE CAR2",48,0 )
  8148    ;  INP(21 ) = (optio nal) CLINI C STOP poi nter to CL INIC STOP  file 40.7
  8149   "RTN","SDE CAR2",49,0 )
  8150    ;                         used  to populat e the REQ  SERVICE/SP ECIALTY fi eld in 409 .85
  8151   "RTN","SDE CAR2",50,0 )
  8152    ;  INP(22 ) = (optio nal) Appoi ntment Typ e ID point er to APPO INTMENT TY PE file 40 9.1
  8153   "RTN","SDE CAR2",51,0 )
  8154    ;  INP(23 ) = (optio nal) Patie nt Status
  8155   "RTN","SDE CAR2",52,0 )
  8156    ;                            N  = NEW
  8157   "RTN","SDE CAR2",53,0 )
  8158    ;                            E  = ESTABLIS HED
  8159   "RTN","SDE CAR2",54,0 )
  8160    ;  INP(24 ) = (optio nal) MULT  APPTS MADE
  8161   "RTN","SDE CAR2",55,0 )
  8162    ;                      list of  child poin ters to SD EC APPOINT MENT and/o rSDEC APPT  REQUEST f iles separ ated by pi pe
  8163   "RTN","SDE CAR2",56,0 )
  8164    ;                      each pip e piece co ntains the  following  ~ pieces:
  8165   "RTN","SDE CAR2",57,0 )
  8166    ;                 1.  Appointme nt Id poin ter to SDE C APPOINTM ENT file 4 09.84
  8167   "RTN","SDE CAR2",58,0 )
  8168    ;                 2.  Request I d pointer  to SDEC AP PT REQUEST  file 409. 85
  8169   "RTN","SDE CAR2",59,0 )
  8170    ;  INP(25 ) = (optio nal) PAREN T REQUEST  pointer to  SDEC APPT  REQUEST f ile 409.85
  8171   "RTN","SDE CAR2",60,0 )
  8172    ;  INP(26 ) = (optio nal) NLT ( No later t han) [CPRS  RTC REQUI REMENT]
  8173   "RTN","SDE CAR2",61,0 )
  8174    ;  INP(27 ) = (optio nal) PRERE Q (Prerequ isites) [C PRS RTC RE QUIREMENT]
  8175   "RTN","SDE CAR2",62,0 )
  8176    ;  INP(28 ) = (optio nal) ORDER  IEN [CPRS  RTC REQUI REMENT]
  8177   "RTN","SDE CAR2",63,0 )
  8178    ;  INP(29 ) = (optio nal) VAOS  GUID  <==  wtc patch  686 3/21/1 8 added fo r VAOS req uests
  8179   "RTN","SDE CAR2",64,0 )
  8180    N X,Y,%DT
  8181   "RTN","SDE CAR2",65,0 )
  8182    N DFN,MI, ARAPTYP,AR IEN,ARORIG DT,ARORIGD TI,ARINST, ARINSTI,AR TYPE,ARTEA M,ARPOS,AR SRVSP,ARCL IN
  8183   "RTN","SDE CAR2",66,0 )
  8184    N ARUSER, ARPRIO,ARR EQBY,ARPRO V,ARDAPTDT ,ARCOMM,AR EESTAT,ARE DT,ARQUIT
  8185   "RTN","SDE CAR2",67,0 )
  8186    N FNUM,FD A,ARNEW,AR RET,ARMSG, ARDATA,ARE RR,ARHOSN, AUDF,SDREC
  8187   "RTN","SDE CAR2",68,0 )
  8188    N ARMAI,A RMAN,ARMAR ,ARPARENT, ARPATTEL,A RENPRI,ARS TOP,ARSVCC ON,ARSVCCO P
  8189   "RTN","SDE CAR2",69,0 )
  8190    N VAOSGUI D ; wtc pa tch 686 3/ 21/18 adde d for VAOS  requests
  8191   "RTN","SDE CAR2",70,0 )
  8192    S (ARQUIT ,AUDF)=0
  8193   "RTN","SDE CAR2",71,0 )
  8194    S FNUM=$$ FNUM^SDECA R
  8195   "RTN","SDE CAR2",72,0 )
  8196    S RET="I0 0020ERRORI D^T00030ER RORTEXT"_$ C(30)
  8197   "RTN","SDE CAR2",73,0 )
  8198    ; Use MER GE instead  of SET so  we can kn ow if valu es were ac tually spe cified or  not.
  8199   "RTN","SDE CAR2",74,0 )
  8200    ; This wa y, if a va lue is nul l, we will  delete an y previous  value,
  8201   "RTN","SDE CAR2",75,0 )
  8202    ; but if  it is miss ing, then  we will ju st ignore  it.
  8203   "RTN","SDE CAR2",76,0 )
  8204    M ARIEN=I NP(1)
  8205   "RTN","SDE CAR2",77,0 )
  8206    S DFN=$G( INP(2))
  8207   "RTN","SDE CAR2",78,0 )
  8208    I '+DFN S  RET=RET_" -1^Invalid  Patient I D."_$C(30, 31) Q
  8209   "RTN","SDE CAR2",79,0 )
  8210    I '$D(^DP T(DFN,0))  S RET=RET_ "-1^Invali d Patient  ID"_$C(30, 31) Q
  8211   "RTN","SDE CAR2",80,0 )
  8212    S AREDT=$ P($G(INP(3 )),":",1,2 )
  8213   "RTN","SDE CAR2",81,0 )
  8214    S %DT="TX " S X=ARED T D ^%DT S  AREDT=Y
  8215   "RTN","SDE CAR2",82,0 )
  8216    I Y=-1 S  RET=RET_"- 1^Invalid  Originatio n date."_$ C(30,31) Q
  8217   "RTN","SDE CAR2",83,0 )
  8218    S ARORIGD T=$P(AREDT ,".",1)
  8219   "RTN","SDE CAR2",84,0 )
  8220    S ARINST= $G(INP(4))  I ARINST' ="" D
  8221   "RTN","SDE CAR2",85,0 )
  8222    .I '+ARIN ST S ARINS T=$O(^DIC( 4,"B",ARIN ST,0))
  8223   "RTN","SDE CAR2",86,0 )
  8224    M ARTYPE= INP(5)
  8225   "RTN","SDE CAR2",87,0 )
  8226    S ARCLIN= $G(INP(6))
  8227   "RTN","SDE CAR2",88,0 )
  8228    I ARCLIN' ="" D
  8229   "RTN","SDE CAR2",89,0 )
  8230    .I +ARCLI N=ARCLIN D
  8231   "RTN","SDE CAR2",90,0 )
  8232    ..I '$D(^ SC(+ARCLIN ,0)) S RET =RET_"-1^" _ARCLIN_"  is an inva lid Clinic  ID."_$C(3 0,31) S AR QUIT=1 Q
  8233   "RTN","SDE CAR2",91,0 )
  8234    ..;S ARCL IN=$$GET1^ DIQ(44,ARC LIN_",",.0 1)
  8235   "RTN","SDE CAR2",92,0 )
  8236    .I '(+ARC LIN=ARCLIN ) D
  8237   "RTN","SDE CAR2",93,0 )
  8238    ..S ARCLI N=$O(^SC(" B",ARCLIN, 0))
  8239   "RTN","SDE CAR2",94,0 )
  8240    ..I ARCLI N="" S RET =RET_"-1^" _ARCLIN_"  is an inva lid Clinic  Name."_$C (30,31) S  ARQUIT=1 Q
  8241   "RTN","SDE CAR2",95,0 )
  8242    Q:ARQUIT= 1
  8243   "RTN","SDE CAR2",96,0 )
  8244    S ARUSER= $G(INP(7))
  8245   "RTN","SDE CAR2",97,0 )
  8246    I ARUSER' ="" I '+AR USER S ARU SER=$O(^VA (200,"B",A RUSER,0))
  8247   "RTN","SDE CAR2",98,0 )
  8248    I ARUSER= "" S ARUSE R=DUZ
  8249   "RTN","SDE CAR2",99,0 )
  8250    S ARREQBY =$G(INP(9) ) I ARREQB Y'="" D
  8251   "RTN","SDE CAR2",100, 0)
  8252    .S ARREQB Y=$S(ARREQ BY="PATIEN T":2,ARREQ BY="PROVID ER":1,1:"" )
  8253   "RTN","SDE CAR2",101, 0)
  8254    S ARPROV= $G(INP(10) ) I ARPROV '="" I '+A RPROV S AR PROV=$O(^V A(200,"B", ARPROV,0))
  8255   "RTN","SDE CAR2",102, 0)
  8256    S ARDAPTD T=INP(11)
  8257   "RTN","SDE CAR2",103, 0)
  8258    S %DT=""  S X=$P($G( ARDAPTDT), "@",1) D ^ %DT S ARPR IO=$S(Y=$P ($$NOW^XLF DT,".",1): "A",1:"F")
  8259   "RTN","SDE CAR2",104, 0)
  8260    S ARDAPTD T=Y
  8261   "RTN","SDE CAR2",105, 0)
  8262    I Y=-1 S  ARDAPTDT=" "   ;S RET =RET_"-1^I nvalid Des ired Date. "_$C(30,31 )Q
  8263   "RTN","SDE CAR2",106, 0)
  8264    S (INP(12 ),ARCOMM)= $TR($G(INP (12)),"^", " ")   ;al b/sat 658
  8265   "RTN","SDE CAR2",107, 0)
  8266    S ARENPRI =$G(INP(13 )) D
  8267   "RTN","SDE CAR2",108, 0)
  8268    .S:ARENPR I'="" AREN PRI=$S(ARE NPRI="GROU P 1":1,ARE NPRI="GROU P 2":2,ARE NPRI="GROU P3":3,AREN PRI="GROUP 4":4,ARENP RI="GROUP  5":5,ARENP RI="GROUP  6":6,ARENP RI="GROUP  7":7,ARENP RI="GROUP  8":8,1:ARE NPRI)
  8269   "RTN","SDE CAR2",109, 0)
  8270    S ARMAR=$ G(INP(14))  I ARMAR'= "" S ARMAR =$S(ARMAR= "YES":1,1: 0)
  8271   "RTN","SDE CAR2",110, 0)
  8272    M ARMAI=I NP(15)
  8273   "RTN","SDE CAR2",111, 0)
  8274    M ARMAN=I NP(16)
  8275   "RTN","SDE CAR2",112, 0)
  8276    S ARSVCCO N=$G(INP(1 8)) S:ARSV CCON'="" A RSVCCON=$S (ARSVCCON= "YES":1,1: 0)
  8277   "RTN","SDE CAR2",113, 0)
  8278    M ARSVCCO P=INP(19)  I $G(ARSVC COP)'="" S  ARSVCCOP= +$G(ARSVCC OP) S:(+AR SVCCOP<0)! (+ARSVCCOP >100) ARSV CCOP=""
  8279   "RTN","SDE CAR2",114, 0)
  8280    S ARSTOP= $G(INP(21) )
  8281   "RTN","SDE CAR2",115, 0)
  8282    I ARSTOP' ="",ARCLIN '="" S RET =RET_"-1^C annot incl ude both C linic and  Service."_ $C(30,31)  Q
  8283   "RTN","SDE CAR2",116, 0)
  8284    S ARAPTYP =+$G(INP(2 2)) I +ARA PTYP,'$D(^ SD(409.1,A RAPTYP,0))  S ARAPTYP =""
  8285   "RTN","SDE CAR2",117, 0)
  8286    S ARPAREN T=+$G(INP( 25)) I +AR PARENT,'$D (^SDEC(409 .85,+ARPAR ENT,0)) S  ARPARENT=" "
  8287   "RTN","SDE CAR2",118, 0)
  8288    S ARNLT=+ $G(INP(26) )
  8289   "RTN","SDE CAR2",119, 0)
  8290    S ARPRER= $G(INP(27) )
  8291   "RTN","SDE CAR2",120, 0)
  8292    S ARORDN= +$G(INP(28 ))
  8293   "RTN","SDE CAR2",121, 0)
  8294    ;CHECK FO R MISSING  NLT,PREREQ ,ORDER IEN  ON MULTIP LE APPT RE QUESTS
  8295   "RTN","SDE CAR2",122, 0)
  8296    I +ARPARE NT>0&(+$G( INP(26))=0 ) D
  8297   "RTN","SDE CAR2",123, 0)
  8298    .S ARNLT= $P($G(^SDE C(409.85,+ ARPARENT,7 )),U,2)
  8299   "RTN","SDE CAR2",124, 0)
  8300    I +ARPARE NT>0&($G(I NP(27))="" ) D
  8301   "RTN","SDE CAR2",125, 0)
  8302    .N PRIEN, PR
  8303   "RTN","SDE CAR2",126, 0)
  8304    .S PRIEN= 0 F  S PRI EN=$O(^SDE C(409.85,+ ARPARENT,8 ,PRIEN)) Q :PRIEN'>0   D
  8305   "RTN","SDE CAR2",127, 0)
  8306    ..S PR=$P ($G(^SDEC( 409.85,+AR PARENT,8,P RIEN,0))," ^") Q:PR=" "
  8307   "RTN","SDE CAR2",128, 0)
  8308    ..S ARPRE R=$S(ARPRE R'="":ARPR ER_";"_PR, 1:PR)
  8309   "RTN","SDE CAR2",129, 0)
  8310    I +ARPARE NT>0&(+$G( INP(28))=0 ) D
  8311   "RTN","SDE CAR2",130, 0)
  8312    .S ARORDN =$P($G(^SD EC(409.85, +ARPARENT, 7)),U,1)
  8313   "RTN","SDE CAR2",131, 0)
  8314    ;
  8315   "RTN","SDE CAR2",132, 0)
  8316    S VAOSGUI D=$G(INP(2 9)) ;   <= = wtc patc h 686 3/21 /18 added  for VAOS r equests
  8317   "RTN","SDE CAR2",133, 0)
  8318    S ARIEN=$ G(ARIEN)
  8319   "RTN","SDE CAR2",134, 0)
  8320    S ARNEW=A RIEN=""
  8321   "RTN","SDE CAR2",135, 0)
  8322    I ARNEW D
  8323   "RTN","SDE CAR2",136, 0)
  8324    . S AUDF= 1
  8325   "RTN","SDE CAR2",137, 0)
  8326    . S FDA=$ NA(FDA(FNU M,"+1,"))
  8327   "RTN","SDE CAR2",138, 0)
  8328    . S @FDA@ (.01)=+DFN    ;$S(+DF N:$P($G(^D PT(DFN,0)) ,U),1:DFN)
  8329   "RTN","SDE CAR2",139, 0)
  8330    . ;This h andles the  date/time  coming in  as "8/27/ 2014 12:00 :00 AM"
  8331   "RTN","SDE CAR2",140, 0)
  8332    . S:$G(AR ORIGDT)'=" " @FDA@(1) =ARORIGDT
  8333   "RTN","SDE CAR2",141, 0)
  8334    . S:$G(AR INST)'=""  @FDA@(2)=+ ARINST
  8335   "RTN","SDE CAR2",142, 0)
  8336    . S:$G(AR TYPE)'=""  @FDA@(4)=$ S(ARTYPE=" APPOINTMEN T":"APPT", ARTYPE="MO BILE":"MOB ILE",1:ART YPE)
  8337   "RTN","SDE CAR2",143, 0)
  8338    . S:$G(VA OSGUID)'=" " @FDA@(5) =VAOSGUID  ;   <== wt c patch 68 6 3/21/18  added for  VAOS reque sts
  8339   "RTN","SDE CAR2",144, 0)
  8340    . S:$G(AR CLIN)'=""  @FDA@(8)=+ ARCLIN
  8341   "RTN","SDE CAR2",145, 0)
  8342    . S:$G(AR STOP)'=""  @FDA@(8.5) =+ARSTOP
  8343   "RTN","SDE CAR2",146, 0)
  8344    . S:+ARAP TYP @FDA@( 8.7)=+ARAP TYP
  8345   "RTN","SDE CAR2",147, 0)
  8346    . S:$G(AR USER)'=""  @FDA@(9)=+ ARUSER
  8347   "RTN","SDE CAR2",148, 0)
  8348    . S:$G(AR EDT)'="" @ FDA@(9.5)= AREDT
  8349   "RTN","SDE CAR2",149, 0)
  8350    . S:$G(AR PRIO)'=""  @FDA@(10)= ARPRIO
  8351   "RTN","SDE CAR2",150, 0)
  8352    . S:$G(AR ENPRI)'=""  @FDA@(10. 5)=ARENPRI
  8353   "RTN","SDE CAR2",151, 0)
  8354    . S:$G(AR REQBY)'=""  @FDA@(11) =ARREQBY
  8355   "RTN","SDE CAR2",152, 0)
  8356    . S:$G(AR PROV)'=""  @FDA@(12)= +ARPROV
  8357   "RTN","SDE CAR2",153, 0)
  8358    . S:$G(AR SVCCOP)'=" " @FDA@(14 )=ARSVCCOP
  8359   "RTN","SDE CAR2",154, 0)
  8360    . S:$G(AR SVCCON)'=" " @FDA@(15 )=+ARSVCCO N
  8361   "RTN","SDE CAR2",155, 0)
  8362    . S:$G(AR DAPTDT)'=" " @FDA@(22 )=ARDAPTDT
  8363   "RTN","SDE CAR2",156, 0)
  8364    . S:$G(AR NLT)'="" @ FDA@(47)=A RNLT
  8365   "RTN","SDE CAR2",157, 0)
  8366    . D FDAPR ER(.FDA,AR PRER,"+1")
  8367   "RTN","SDE CAR2",158, 0)
  8368    . S:$G(AR ORDN)'=""  @FDA@(46)= ARORDN
  8369   "RTN","SDE CAR2",159, 0)
  8370    . S @FDA@ (23)="O"
  8371   "RTN","SDE CAR2",160, 0)
  8372    . S:$G(AR COMM)'=""  @FDA@(25)= ARCOMM
  8373   "RTN","SDE CAR2",161, 0)
  8374    . S:$G(AR MAR)'="" @ FDA@(41)=A RMAR
  8375   "RTN","SDE CAR2",162, 0)
  8376    . I +ARMA R,$G(ARMAI )'="" S @F DA@(42)=AR MAI
  8377   "RTN","SDE CAR2",163, 0)
  8378    . I +ARMA R,$G(ARMAN )'="" S @F DA@(43)=AR MAN
  8379   "RTN","SDE CAR2",164, 0)
  8380    . S:$G(IN P(23))'=""  @FDA@(.02 )=$S(INP(2 3)="N":"N" ,INP(23)=" NEW":"N",I NP(23)="E" :"E",INP(2 3)="ESTABL ISHED":"E" ,1:"")
  8381   "RTN","SDE CAR2",165, 0)
  8382    . S:+ARPA RENT @FDA@ (43.8)=+AR PARENT
  8383   "RTN","SDE CAR2",166, 0)
  8384    E  D
  8385   "RTN","SDE CAR2",167, 0)
  8386    . S ARIEN =ARIEN_","  ; Append  the comma  for both
  8387   "RTN","SDE CAR2",168, 0)
  8388    . K ARDAT A,ARERR
  8389   "RTN","SDE CAR2",169, 0)
  8390    . D GETS^ DIQ(FNUM,A RIEN,"*"," IE","ARDAT A","ARERR" )
  8391   "RTN","SDE CAR2",170, 0)
  8392    . I $D(AR ERR) M ARM SG=ARERR K  FDA Q
  8393   "RTN","SDE CAR2",171, 0)
  8394    . S FDA=$ NA(FDA(FNU M,ARIEN))
  8395   "RTN","SDE CAR2",172, 0)
  8396    . I $D(AR ORIGDT) D
  8397   "RTN","SDE CAR2",173, 0)
  8398    . . S ARO RIGDT=$P(A RORIGDT,"@ ",1) S %DT ="" S X=AR ORIGDT D ^ %DT S AROR IGDTI=Y
  8399   "RTN","SDE CAR2",174, 0)
  8400    . . I ARO RIGDTI'=AR DATA(FNUM, ARIEN,1,"I ") S @FDA@ (1)=$S(ARO RIGDT="":" @",1:ARORI GDT)
  8401   "RTN","SDE CAR2",175, 0)
  8402    . I $D(AR INST),ARIN ST'=ARDATA (FNUM,ARIE N,2,"I") S  @FDA@(2)= +ARINST
  8403   "RTN","SDE CAR2",176, 0)
  8404    . I $D(AR TYPE),ARTY PE'=ARDATA (FNUM,ARIE N,4,"E") S  @FDA@(4)= $S(ARTYPE= "APPOINTME NT":"APPT" ,ARTYPE="M OBILE":"MO BILE",1:AR TYPE)
  8405   "RTN","SDE CAR2",177, 0)
  8406    . I $G(VA OSGUID)'=" ",VAOSGUID '=ARDATA(F NUM,ARIEN, 5,"I") S @ FDA@(5)=VA OSGUID ;    <== wtc p atch 686 3 /21/18 add ed for VAO S requests
  8407   "RTN","SDE CAR2",178, 0)
  8408    . I ARCLI N'="",ARCL IN'=ARDATA (FNUM,ARIE N,8,"I") S  @FDA@(8)= +ARCLIN,AU DF=1 S:ARD ATA(FNUM,A RIEN,8.5," I")'="" @F DA@(8.5)=" @"
  8409   "RTN","SDE CAR2",179, 0)
  8410    . I ARSTO P'="",ARST OP'=ARDATA (FNUM,ARIE N,8.5,"I")  S @FDA@(8 .5)=+ARSTO P,AUDF=1 S :ARDATA(FN UM,ARIEN,8 ,"I")'=""  @FDA@(8)=" @"
  8411   "RTN","SDE CAR2",180, 0)
  8412    . S:+ARAP TYP @FDA@( 8.7)=+ARAP TYP
  8413   "RTN","SDE CAR2",181, 0)
  8414    . I $D(AR USER),ARUS ER'=ARDATA (FNUM,ARIE N,9,"I") S  @FDA@(9)= +ARUSER
  8415   "RTN","SDE CAR2",182, 0)
  8416    . I $D(AR EDT),AREDT '=$G(ARDAT A(FNUM,ARI EN,9.5,"I" )) S @FDA@ (9.5)=ARED T
  8417   "RTN","SDE CAR2",183, 0)
  8418    . I $D(AR PRIO),ARPR IO'=ARDATA (FNUM,ARIE N,10,"I")  S @FDA@(10 )=$S(ARPRI O="":"@",1 :ARPRIO)
  8419   "RTN","SDE CAR2",184, 0)
  8420    . I $D(AR ENPRI),ARE NPRI'=ARDA TA(FNUM,AR IEN,10.5," E") S @FDA @(10.5)=AR ENPRI
  8421   "RTN","SDE CAR2",185, 0)
  8422    . I $D(AR REQBY),ARR EQBY'=ARDA TA(FNUM,AR IEN,11,"I" ) S @FDA@( 11)=$S(ARR EQBY="":"@ ",1:ARREQB Y)
  8423   "RTN","SDE CAR2",186, 0)
  8424    . I $D(AR PROV),ARPR OV'=ARDATA (FNUM,ARIE N,12,"I")  S @FDA@(12 )=+ARPROV
  8425   "RTN","SDE CAR2",187, 0)
  8426    . I $D(AR SVCCOP),AR SVCCOP'=$G (ARDATA(FN UM,ARIEN,1 4,"I")) S  @FDA@(14)= ARSVCCOP
  8427   "RTN","SDE CAR2",188, 0)
  8428    . I $D(AR SVCCON),AR SVCCON'=AR DATA(FNUM, ARIEN,15," E") S @FDA @(15)=+ARS VCCON
  8429   "RTN","SDE CAR2",189, 0)
  8430    . I $D(AR DAPTDT),AR DAPTDT'=AR DATA(FNUM, ARIEN,22," I") S @FDA @(22)=$S(A RDAPTDT="" :"@",1:ARD APTDT)
  8431   "RTN","SDE CAR2",190, 0)
  8432    . I $D(AR COMM),ARCO MM'=ARDATA (FNUM,ARIE N,25,"I")  S @FDA@(25 )=$S(ARCOM M="":"@",1 :ARCOMM)
  8433   "RTN","SDE CAR2",191, 0)
  8434    . S:$G(AR MAR)'="" @ FDA@(41)=A RMAR
  8435   "RTN","SDE CAR2",192, 0)
  8436    . S:$G(AR MAI)'="" @ FDA@(42)=A RMAI
  8437   "RTN","SDE CAR2",193, 0)
  8438    . S:$G(AR MAN)'="" @ FDA@(43)=A RMAN
  8439   "RTN","SDE CAR2",194, 0)
  8440    . S:$G(AR NLT)'="" @ FDA@(47)=A RNLT
  8441   "RTN","SDE CAR2",195, 0)
  8442    . D DELPR ER(+ARIEN)
  8443   "RTN","SDE CAR2",196, 0)
  8444    . D FDAPR ER(.FDA,AR PRER,+ARIE N)
  8445   "RTN","SDE CAR2",197, 0)
  8446    . S:$G(AR ORDN)'=""  @FDA@(46)= ARORDN
  8447   "RTN","SDE CAR2",198, 0)
  8448    . S:$G(IN P(23))'=""  @FDA@(.02 )=$S(INP(2 3)="N":"N" ,INP(23)=" NEW":"N",I NP(23)="E" :"E",INP(2 3)="ESTABL ISHED":"E" ,1:"")
  8449   "RTN","SDE CAR2",199, 0)
  8450    . S:+ARPA RENT @FDA@ (43.8)=+AR PARENT
  8451   "RTN","SDE CAR2",200, 0)
  8452    ; Only ca ll UPDATE^ DIE if the re are any  array ent ries in FD A
  8453   "RTN","SDE CAR2",201, 0)
  8454    D:$D(FDA) >9 UPDATE^ DIE("","FD A","ARRET" ,"ARMSG")
  8455   "RTN","SDE CAR2",202, 0)
  8456    I $D(ARMS G) D
  8457   "RTN","SDE CAR2",203, 0)
  8458    . F MI=1: 1:$G(ARMSG ("DIERR"))  S RET=RET _"-1^"_$G( ARMSG("DIE RR",MI,"TE XT",1))_$C (30)
  8459   "RTN","SDE CAR2",204, 0)
  8460    . S RET=R ET_$C(31)
  8461   "RTN","SDE CAR2",205, 0)
  8462    Q:$D(ARMS G)
  8463   "RTN","SDE CAR2",206, 0)
  8464    S ARINSTI =$P($G(^SD EC(409.85, $S(+ARIEN: ARIEN,1:AR RET(1)),0) ),U,3)
  8465   "RTN","SDE CAR2",207, 0)
  8466    I $G(INP( 17))'="" D  AR23(INP( 17),$S(+AR IEN:ARIEN, 1:ARRET(1) ))   ;pati ent contac ts
  8467   "RTN","SDE CAR2",208, 0)
  8468    I +ARMAR, $G(INP(20) )'="" D AR 435(INP(20 ),$S(+ARIE N:ARIEN,1: ARRET(1)))    ;MRTC C ALC PREF D ATES
  8469   "RTN","SDE CAR2",209, 0)
  8470    I +AUDF D  ARAUD($S( +ARIEN:+AR IEN,1:ARRE T(1)),ARCL IN,ARSTOP)    ;VS AUD IT
  8471   "RTN","SDE CAR2",210, 0)
  8472    I $G(INP( 24))'="" N  SDI F SDI =1:1:$L(IN P(24),"|")  S SDREC=$ P(INP(24), "|",SDI) D  AR433($S( +ARIEN:+AR IEN,1:ARRE T(1)),SDRE C)
  8473   "RTN","SDE CAR2",211, 0)
  8474    I +ARPARE NT D AR433 (+ARPARENT ,"~"_$S(+A RIEN:+ARIE N,1:ARRET( 1)))
  8475   "RTN","SDE CAR2",212, 0)
  8476    I +$G(ARR ET(1)) S R ET=RET_ARR ET(1)_U_$C (30,31)
  8477   "RTN","SDE CAR2",213, 0)
  8478    E  S RET= RET_+ARIEN _U_$C(30,3 1)
  8479   "RTN","SDE CAR2",214, 0)
  8480    Q
  8481   "RTN","SDE CAR2",215, 0)
  8482    ;
  8483   "RTN","SDE CAR2",216, 0)
  8484   FDAPRER(FD A,ARPRER,A RIEN) ;Set up the FDA  array for  the PRERE QUISITE mu ltiple (#4 8)
  8485   "RTN","SDE CAR2",217, 0)
  8486    N ASEQ,DE LIM,PC,PR
  8487   "RTN","SDE CAR2",218, 0)
  8488    Q:$G(ARPR ER)=""
  8489   "RTN","SDE CAR2",219, 0)
  8490    S DELIM=" ;",ASEQ=80
  8491   "RTN","SDE CAR2",220, 0)
  8492    F PC=1:1: $L(ARPRER, DELIM) D
  8493   "RTN","SDE CAR2",221, 0)
  8494    .S PR=$P( ARPRER,DEL IM,PC) Q:P R=""
  8495   "RTN","SDE CAR2",222, 0)
  8496    .S ASEQ=A SEQ+1,FDA( 409.8548," +"_ASEQ_", "_ARIEN_", ",.01)=PR
  8497   "RTN","SDE CAR2",223, 0)
  8498    Q
  8499   "RTN","SDE CAR2",224, 0)
  8500    ;
  8501   "RTN","SDE CAR2",225, 0)
  8502   DELPRER(AR IEN) ;Dele te all ent ries in th e PREREQUI SITE multi ple (#48)
  8503   "RTN","SDE CAR2",226, 0)
  8504    N DIK,DA
  8505   "RTN","SDE CAR2",227, 0)
  8506    Q:$G(ARIE N)'=+$G(AR IEN)  Q:AR IEN'>0
  8507   "RTN","SDE CAR2",228, 0)
  8508    S DIK="^S DEC(409.85 ,"_ARIEN_" ,8,",DA(1) =ARIEN
  8509   "RTN","SDE CAR2",229, 0)
  8510    S DA=0 F   S DA=$O(^ SDEC(409.8 5,ARIEN,8, DA)) Q:DA' >0  D ^DIK
  8511   "RTN","SDE CAR2",230, 0)
  8512    Q
  8513   "RTN","SDE CAR2",231, 0)
  8514    ;
  8515   "RTN","SDE CAR2",232, 0)
  8516   GETPRER(RE T,ARIEN) ; Return the  values in  the PRERE QUISITE mu ltiple (#4 8)
  8517   "RTN","SDE CAR2",233, 0)
  8518    N CC,PR
  8519   "RTN","SDE CAR2",234, 0)
  8520    I $G(^SDE C(409.85,+ $G(ARIEN), 0))="" S R ET="-1^Inv alid SDEC  APPT REQUE ST id "_$G (ARIEN) Q
  8521   "RTN","SDE CAR2",235, 0)
  8522    S RET=""
  8523   "RTN","SDE CAR2",236, 0)
  8524    S CC=0 F   S CC=$O(^ SDEC(409.8 5,ARIEN,8, CC)) Q:CC' >0  D
  8525   "RTN","SDE CAR2",237, 0)
  8526    .S PR=$P( $G(^SDEC(4 09.85,ARIE N,8,CC,0)) ,U,1) Q:PR =""
  8527   "RTN","SDE CAR2",238, 0)
  8528    .S RET=$S (RET'="":R ET_U_PR,1: PR)
  8529   "RTN","SDE CAR2",239, 0)
  8530    Q
  8531   "RTN","SDE CAR2",240, 0)
  8532    ;
  8533   "RTN","SDE CAR2",241, 0)
  8534   ARAUD(ARIE N,ARCLIN,A RSTOP,DATE ,USER) ;po pulate VS  AUDIT mult iple field  45
  8535   "RTN","SDE CAR2",242, 0)
  8536    ; ARIEN    - (requir ed) pointe r to SDEC  APPT REQUE ST file 40 9.85
  8537   "RTN","SDE CAR2",243, 0)
  8538    ; ARCLIN   - (option al) pointe r to HOSPI TAL LOCATI ON file 44
  8539   "RTN","SDE CAR2",244, 0)
  8540    ; ARSTOP   - (option al) pointe r to CLINI C STOP fil e
  8541   "RTN","SDE CAR2",245, 0)
  8542    ; DATE     - (option al) date/t ime in fil eman forma t
  8543   "RTN","SDE CAR2",246, 0)
  8544    N SDFDA,S DP,SDPN
  8545   "RTN","SDE CAR2",247, 0)
  8546    S ARIEN=$ G(ARIEN) Q :ARIEN=""
  8547   "RTN","SDE CAR2",248, 0)
  8548    S ARCLIN= $G(ARCLIN)
  8549   "RTN","SDE CAR2",249, 0)
  8550    S ARSTOP= $G(ARSTOP)
  8551   "RTN","SDE CAR2",250, 0)
  8552    S SDP=$O( ^SDEC(409. 85,ARIEN,6 ,9999999), -1)
  8553   "RTN","SDE CAR2",251, 0)
  8554    I +SDP S  SDPN=^SDEC (409.85,AR IEN,6,SDP, 0) I $P(SD PN,U,3)=AR CLIN,$P(SD PN,U,4)=AR STOP Q
  8555   "RTN","SDE CAR2",252, 0)
  8556    S DATE=$G (DATE) S:D ATE="" DAT E=$E($$NOW ^XLFDT,1,1 2)
  8557   "RTN","SDE CAR2",253, 0)
  8558    S USER=$G (USER) S:U SER="" USE R=DUZ
  8559   "RTN","SDE CAR2",254, 0)
  8560    S SDFDA(4 09.8545,"+ 1,"_ARIEN_ ",",.01)=D ATE
  8561   "RTN","SDE CAR2",255, 0)
  8562    S SDFDA(4 09.8545,"+ 1,"_ARIEN_ ",",1)=USE R
  8563   "RTN","SDE CAR2",256, 0)
  8564    S:ARCLIN' ="" SDFDA( 409.8545," +1,"_ARIEN _",",2)=AR CLIN
  8565   "RTN","SDE CAR2",257, 0)
  8566    S:ARSTOP' ="" SDFDA( 409.8545," +1,"_ARIEN _",",3)=AR STOP
  8567   "RTN","SDE CAR2",258, 0)
  8568    D UPDATE^ DIE("","SD FDA")
  8569   "RTN","SDE CAR2",259, 0)
  8570    Q
  8571   "RTN","SDE CAR2",260, 0)
  8572    ;
  8573   "RTN","SDE CAR2",261, 0)
  8574   AR433(ARIE N,SDEC) ;s et MULT AP PTS MADE
  8575   "RTN","SDE CAR2",262, 0)
  8576    ;INPUT:
  8577   "RTN","SDE CAR2",263, 0)
  8578    ;  ARIEN   = (requir ed) pointe r to SDEC  APPT REQUE ST file 40 9.85
  8579   "RTN","SDE CAR2",264, 0)
  8580    ;  SDEC    = (requir ed) child  pointers t o SDEC APP OINTMENT a nd SDEC AP PTREQUEST  file separ ated by pi pe
  8581   "RTN","SDE CAR2",265, 0)
  8582    ;                      each pip e piece co ntains the  following  ~ pieces:
  8583   "RTN","SDE CAR2",266, 0)
  8584    ;                 1.  Appointme nt Id poin ter to SDE C APPOINTM ENT file 4 09.84
  8585   "RTN","SDE CAR2",267, 0)
  8586    ;                 2.  Request I d pointer  to SDEC AP PT REQUEST  file 409. 85
  8587   "RTN","SDE CAR2",268, 0)
  8588    N SDAPP,S DFDA,SDI,S DIEN
  8589   "RTN","SDE CAR2",269, 0)
  8590    S ARIEN=$ G(ARIEN)
  8591   "RTN","SDE CAR2",270, 0)
  8592    Q:'$D(^SD EC(409.85, ARIEN,0))
  8593   "RTN","SDE CAR2",271, 0)
  8594    S SDEC=$G (SDEC)
  8595   "RTN","SDE CAR2",272, 0)
  8596    F SDI=1:1 :$L(SDEC," |") D
  8597   "RTN","SDE CAR2",273, 0)
  8598    .K SDFDA
  8599   "RTN","SDE CAR2",274, 0)
  8600    .S SDAPP= $P(SDEC,"| ",SDI)
  8601   "RTN","SDE CAR2",275, 0)
  8602    .I $P(SDA PP,"~",2)= "",$P(SDAP P,"~",1)'= "" S $P(SD APP,"~",2) =$P($$GET1 ^DIQ(409.8 4,+SDAPP_" ,",.22,"I" ),";",1)
  8603   "RTN","SDE CAR2",276, 0)
  8604    .Q:$P(SDA PP,"~",2)= ""
  8605   "RTN","SDE CAR2",277, 0)
  8606    .S SDIEN= $O(^SDEC(4 09.85,ARIE N,2,"B",$P (SDAPP,"~" ,2),0))
  8607   "RTN","SDE CAR2",278, 0)
  8608    .S SDIEN= $S(SDIEN'= "":SDIEN,1 :"+1")
  8609   "RTN","SDE CAR2",279, 0)
  8610    .I $D(^SD EC(409.85, +$P(SDAPP, "~",2),0))  S SDFDA(4 09.852,SDI EN_","_ARI EN_",",.01 )=+$P(SDAP P,"~",2)
  8611   "RTN","SDE CAR2",280, 0)
  8612    .I $D(^SD EC(409.84, +$P(SDAPP, "~",1),0))  S SDFDA(4 09.852,SDI EN_","_ARI EN_",",.02 )=+$P(SDAP P,"~",1)
  8613   "RTN","SDE CAR2",281, 0)
  8614    .D:$D(SDF DA) UPDATE ^DIE("","S DFDA")
  8615   "RTN","SDE CAR2",282, 0)
  8616    Q
  8617   "RTN","SDE CAR2",283, 0)
  8618   AR433D(SDE C) ;delete  MULT APPT S MADE
  8619   "RTN","SDE CAR2",284, 0)
  8620    ;INPUT:
  8621   "RTN","SDE CAR2",285, 0)
  8622    ;  SDEC    = (requir ed) pointe rs to SDEC  APPOINTME NT file 40 9.84 separ ated by pi pe
  8623   "RTN","SDE CAR2",286, 0)
  8624    N ARIEN,D FN,DIEN,SD APP,SDFDA, SDI,SDJ,SD TYP
  8625   "RTN","SDE CAR2",287, 0)
  8626    S SDEC=$G (SDEC)
  8627   "RTN","SDE CAR2",288, 0)
  8628    F SDI=1:1 :$L(SDEC," |") D
  8629   "RTN","SDE CAR2",289, 0)
  8630    .S SDAPP= $P(SDEC,"| ",SDI)
  8631   "RTN","SDE CAR2",290, 0)
  8632    .Q:'$D(^S DEC(409.84 ,SDAPP,0))
  8633   "RTN","SDE CAR2",291, 0)
  8634    .S DFN=$$ GET1^DIQ(4 09.84,SDAP P_",",.05, "I")
  8635   "RTN","SDE CAR2",292, 0)
  8636    .S SDTYP= $$GET1^DIQ (409.84,SD APP_",",.2 2,"I"),DIE N=$P(SDTYP ,";",1)
  8637   "RTN","SDE CAR2",293, 0)
  8638    .I $P(SDT YP,";",2)= "SDEC(409. 85," S ARI EN="" F  S  ARIEN=$O( ^SDEC(409. 85,"B",DFN ,ARIEN)) Q :ARIEN=""   D  ; alb/ jsm 658
  8639   "RTN","SDE CAR2",294, 0)
  8640    ..S SDJ=" " F  S SDJ =$O(^SDEC( 409.85,ARI EN,2,"B",D IEN,SDJ))  Q:SDJ=""   D
  8641   "RTN","SDE CAR2",295, 0)
  8642    ...S SDFD A(409.852, SDJ_","_AR IEN_",",.0 1)="@"
  8643   "RTN","SDE CAR2",296, 0)
  8644    ...D UPDA TE^DIE("", "SDFDA")
  8645   "RTN","SDE CAR2",297, 0)
  8646    Q
  8647   "RTN","SDE CAR2",298, 0)
  8648   AR438(ARIE N,SDPARENT ,SDEC) ;se t PARENT R EQUEST fie ld 43.8; s et as chil d in MULTA PPTS MADE  in parent  request
  8649   "RTN","SDE CAR2",299, 0)
  8650    N SDFDA
  8651   "RTN","SDE CAR2",300, 0)
  8652    I $G(SDPA RENT)'=""  S SDFDA(40 9.85,ARIEN _",",43.8) =SDPARENT  D UPDATE^D IE("","SDF DA")
  8653   "RTN","SDE CAR2",301, 0)
  8654    Q
  8655   "RTN","SDE CAR2",302, 0)
  8656    ;
  8657   "RTN","SDE CAR2",303, 0)
  8658   AR435(SDDT ,ARIEN) ;s et dates i nto MRTC C ALC PREF D ATES multi ple field  43.5
  8659   "RTN","SDE CAR2",304, 0)
  8660    ;INPUT:
  8661   "RTN","SDE CAR2",305, 0)
  8662    ; ARIEN -  Requested  date ID p ointer to  SDEC REQUE STED APPT  file 409.8 5
  8663   "RTN","SDE CAR2",306, 0)
  8664    ; SDDT  -  MRTC calc ulated pre ferred dat es separat ed by pipe  |:
  8665   "RTN","SDE CAR2",307, 0)
  8666    ;          Each date  can be in  external  format wit h no time.
  8667   "RTN","SDE CAR2",308, 0)
  8668    N SDI,SDJ ,SDFDA,X,Y ,%DT
  8669   "RTN","SDE CAR2",309, 0)
  8670    F SDI=1:1 :$L(SDDT," |") D
  8671   "RTN","SDE CAR2",310, 0)
  8672    .S %DT=""  S X=$P($P (SDDT,"|", SDI),"@",1 ) D ^%DT S  SDJ=Y
  8673   "RTN","SDE CAR2",311, 0)
  8674    .Q:SDJ=-1
  8675   "RTN","SDE CAR2",312, 0)
  8676    .Q:$O(^SD EC(409.85, ARIEN,5,"B ",SDJ,0))    ;don't a dd duplica tes
  8677   "RTN","SDE CAR2",313, 0)
  8678    .S SDFDA( 409.851,"+ 1,"_ARIEN_ ",",.01)=S DJ
  8679   "RTN","SDE CAR2",314, 0)
  8680    .D UPDATE ^DIE("","S DFDA")
  8681   "RTN","SDE CAR2",315, 0)
  8682    Q
  8683   "RTN","SDE CAR2",316, 0)
  8684    ;
  8685   "RTN","SDE CAR2",317, 0)
  8686   WLACT(NAME ) ;
  8687   "RTN","SDE CAR2",318, 0)
  8688    N ACTIVE, H
  8689   "RTN","SDE CAR2",319, 0)
  8690    S ACTIVE= ""
  8691   "RTN","SDE CAR2",320, 0)
  8692    S H="" F   S H=$O(^D IC(40.7,"B ",NAME,H))  Q:H=""  D   Q:ACTIVE '=""
  8693   "RTN","SDE CAR2",321, 0)
  8694    .I $P(^DI C(40.7,H,0 ),U,3)'="" ,$P(^DIC(4 0.7,H,0),U ,3)<$$NOW^ XLFDT() Q
  8695   "RTN","SDE CAR2",322, 0)
  8696    .S ACTIVE =H
  8697   "RTN","SDE CAR2",323, 0)
  8698    Q ACTIVE
  8699   "RTN","SDE CAR2",324, 0)
  8700    ;
  8701   "RTN","SDE CAR2",325, 0)
  8702   AR23(INP17 ,ARI) ;Pat ient Conta cts
  8703   "RTN","SDE CAR2",326, 0)
  8704    N STR17,A RASD,ARASD H,ARDATA1, ARERR1,ARI 1,ARIENS,A RIENS1,ARR ET1,FDA
  8705   "RTN","SDE CAR2",327, 0)
  8706    N ARDT,AR USR,X,Y,%D T
  8707   "RTN","SDE CAR2",328, 0)
  8708    S ARIENS= ARI_","
  8709   "RTN","SDE CAR2",329, 0)
  8710    F ARI1=1: 1:$L(INP17 ,"::") D
  8711   "RTN","SDE CAR2",330, 0)
  8712    .S STR17= $P(INP17," ::",ARI1)
  8713   "RTN","SDE CAR2",331, 0)
  8714    .K FDA
  8715   "RTN","SDE CAR2",332, 0)
  8716    .S %DT="T " S X=$P($ P(STR17,"~ ~",1),":", 1,2) D ^%D T S ARASD= Y
  8717   "RTN","SDE CAR2",333, 0)
  8718    .I (ARASD =-1)!(ARAS D="") Q
  8719   "RTN","SDE CAR2",334, 0)
  8720    .S ARDT=$ P($P(STR17 ,"~~",1)," :",1,2)
  8721   "RTN","SDE CAR2",335, 0)
  8722    .S ARASDH =""   ;$O( ^SDEC(409. 85,ARI,4," B",ARASD,0 ))
  8723   "RTN","SDE CAR2",336, 0)
  8724    .S ARIENS 1=$S(ARASD H'="":ARAS DH,1:"+1") _","_ARIEN S
  8725   "RTN","SDE CAR2",337, 0)
  8726    .S FDA=$N A(FDA(409. 8544,ARIEN S1))
  8727   "RTN","SDE CAR2",338, 0)
  8728    .I ARASDH '="" D
  8729   "RTN","SDE CAR2",339, 0)
  8730    ..D GETS^ DIQ(409.85 44,ARIENS1 ,"*","IE", "ARDATA1", "ARERR1")
  8731   "RTN","SDE CAR2",340, 0)
  8732    ..I $P(ST R17,"~~",1 )'="" S @F DA@(.01)=A RDT ;DATE  ENTERED ex ternal dat e/time
  8733   "RTN","SDE CAR2",341, 0)
  8734    ..I $P(ST R17,"~~",2 )'="" S AR USR=$P(STR 17,"~~",2)  S @FDA@(2 )=$S(ARUSR ="":"@",+A RUSR:$P($G (^VA(200,A RUSR,0)),U ,1),1:ARUS ER)  ;PC E NTERED BY  USER
  8735   "RTN","SDE CAR2",342, 0)
  8736    ..I $P(ST R17,"~~",4 )'="" S @F DA@(3)=$P( STR17,"~~" ,4)     ;A CTION  C=C alled; M=M essage Lef t; L=LETTE R
  8737   "RTN","SDE CAR2",343, 0)
  8738    ..I $P(ST R17,"~~",5 )'="" S @F DA@(4)=$P( STR17,"~~" ,5)     ;P ATIENT PHO NE
  8739   "RTN","SDE CAR2",344, 0)
  8740    ..;I $P(S TR17,"~~", 6)'="" S @ FDA@(5)=$E ($P(STR17, "~~",6),1, 160)     ; COMMENT
  8741   "RTN","SDE CAR2",345, 0)
  8742    .I ARASDH ="" D
  8743   "RTN","SDE CAR2",346, 0)
  8744    ..I $P(ST R17,"~~",1 )'="" S @F DA@(.01)=A RDT ;DATE  ENTERED ex ternal dat e/time
  8745   "RTN","SDE CAR2",347, 0)
  8746    ..I $P(ST R17,"~~",2 )'="" S AR USR=$P(STR 17,"~~",2)  S @FDA@(2 )=$S(ARUSR ="":"@",+A RUSR:$P($G (^VA(200,A RUSR,0)),U ,1),1:ARUS R)     ;PC  ENTERED B Y USER
  8747   "RTN","SDE CAR2",348, 0)
  8748    ..I $P(ST R17,"~~",4 )'="" S @F DA@(3)=$P( STR17,"~~" ,4)     ;A CTION  C=C alled; M=M essage Lef t; L=LETTE R
  8749   "RTN","SDE CAR2",349, 0)
  8750    ..I $P(ST R17,"~~",5 )'="" S @F DA@(4)=$P( STR17,"~~" ,5)     ;P ATIENT PHO NE
  8751   "RTN","SDE CAR2",350, 0)
  8752    ..;I $P(S TR17,"~~", 6)'="" S @ FDA@(5)=$E ($P(STR17, "~~",6),1, 160)     ; COMMENT
  8753   "RTN","SDE CAR2",351, 0)
  8754    .D:$D(@FD A) UPDATE^ DIE("E","F DA","ARRET 1","ARMSG1 ")
  8755   "RTN","SDE CAR2",352, 0)
  8756    Q
  8757   "RTN","SDE CAR2",353, 0)
  8758   UPDATE(ARI EN,APPDT,S DCL,SVCP,S VCPR,NOTE, SDAPPTYP)  ;update RE Q APPT REQ UEST at ap ointment a dd
  8759   "RTN","SDE CAR2",354, 0)
  8760    ;INPUT:
  8761   "RTN","SDE CAR2",355, 0)
  8762    ;  ARIEN  = Appt Req uest point er to SD W AIT LIST f ile 409.85
  8763   "RTN","SDE CAR2",356, 0)
  8764    ;  APPDT  = Appointm ent date/t ime (Sched uled Date  of appt) i n fm forma t
  8765   "RTN","SDE CAR2",357, 0)
  8766    ;  SDCL   = Clinic I D pointer  to HOSPITA L LOCATION  file 44
  8767   "RTN","SDE CAR2",358, 0)
  8768    ;  SVCP   = Service  Connected  Percentage  numeric 0 -100
  8769   "RTN","SDE CAR2",359, 0)
  8770    ;  SVCPR  = Service  Connected  Priority   0:NO  1:YE S
  8771   "RTN","SDE CAR2",360, 0)
  8772    ;  NOTE   = Comment  only 1st 6 0 characte rs are use d
  8773   "RTN","SDE CAR2",361, 0)
  8774    ;  SDAPPT YP = (opti onal) Appo intment ty pe ID poin ter to APP OINTMENT T YPE file 4 09.1
  8775   "RTN","SDE CAR2",362, 0)
  8776    ;
  8777   "RTN","SDE CAR2",363, 0)
  8778    ;all inpu t must be  verified b y calling  routine
  8779   "RTN","SDE CAR2",364, 0)
  8780    N SDDIV,S DFDA,SDSN, SDMSG
  8781   "RTN","SDE CAR2",365, 0)
  8782    S:+$G(SDA PPTYP) SDF DA(409.85, ARIEN_",", 8.7)=SDAPP TYP
  8783   "RTN","SDE CAR2",366, 0)
  8784    S SDFDA(4 09.85,ARIE N_",",13)= APPDT                       ;SCH EDULED DAT EOF APPT        = APP DT  (SDECS TART)
  8785   "RTN","SDE CAR2",367, 0)
  8786    S SDFDA(4 09.85,ARIE N_",",13.1 )=$P($$NOW ^XLFDT,"." ,1)   ;DAT E APPT. MA DE= TODAY
  8787   "RTN","SDE CAR2",368, 0)
  8788    S SDFDA(4 09.85,ARIE N_",",13.2 )=SDCL                      ;APP T CLINIC=  SDCL   (SD ECSCD)
  8789   "RTN","SDE CAR2",369, 0)
  8790    S SDFDA(4 09.85,ARIE N_",",13.3 )=$P($G(^S C(SDCL,0)) ,U,4) ;APP T INSTITUT ION              = Ge t from 44  using SDCL
  8791   "RTN","SDE CAR2",370, 0)
  8792    S SDFDA(4 09.85,ARIE N_",",13.4 )=$P($G(^S C(SDCL,0)) ,U,7) ;APP T STOP COD E= Get fro m 44 using  SDCL
  8793   "RTN","SDE CAR2",371, 0)
  8794    S SDDIV=$ P($G(^SC(S DCL,0)),U, 15)
  8795   "RTN","SDE CAR2",372, 0)
  8796    S SDSN=$S (SDDIV'="" :$P($G(^DG (40.8,SDDI V,0)),U,2) ,1:"")
  8797   "RTN","SDE CAR2",373, 0)
  8798    S SDFDA(4 09.85,ARIE N_",",13.6 )=SDSN                      ;APP T STATION  NUMBER
  8799   "RTN","SDE CAR2",374, 0)
  8800    S SDFDA(4 09.85,ARIE N_",",13.7 )=DUZ                       ;APP T CLERK= C urrent Use r
  8801   "RTN","SDE CAR2",375, 0)
  8802    S SDFDA(4 09.85,ARIE N_",",13.8 )="R"                       ;APP T STATUS=  R:Schedule d/Kept
  8803   "RTN","SDE CAR2",376, 0)
  8804    S:SVCP'=" " SDFDA(40 9.85,ARIEN _",",14)=S VCP                        ;SERV ICE CONNEC TED PERCEN TAGE = SVC P   (SDSVC P)
  8805   "RTN","SDE CAR2",377, 0)
  8806    S:SVCPR'= "" SDFDA(4 09.85,ARIE N_",",15)= SVCPR                       ;SER VICE CONNE CTED PRIOR ITY   = SV CPR  (SDSV CPR)
  8807   "RTN","SDE CAR2",378, 0)
  8808    S:$G(NOTE )'="" SDFD A(409.85,A RIEN_",",2 5)=NOTE
  8809   "RTN","SDE CAR2",379, 0)
  8810    D UPDATE^ DIE("","SD FDA","","S DMSG")
  8811   "RTN","SDE CAR2",380, 0)
  8812    Q
  8813   "RTN","SDE CAUD")
  8814   0^2^B10112 1122^n/a
  8815   "RTN","SDE CAUD",1,0)
  8816   SDECAUD ;  ALB/WTC -  VISTA SCHE DULING - A udit Stati stics Comp iler ;
  8817   "RTN","SDE CAUD",2,0)
  8818    ;;5.3;Sch eduling;** 686**;Aug  13, 1993;B uild 39
  8819   "RTN","SDE CAUD",3,0)
  8820    ;;Per VHA  Directive  2004-038,  this rout ine should  not be mo dified
  8821   "RTN","SDE CAUD",4,0)
  8822       ;
  8823   "RTN","SDE CAUD",5,0)
  8824       Q  ;
  8825   "RTN","SDE CAUD",6,0)
  8826       ;
  8827   "RTN","SDE CAUD",7,0)
  8828   BKGND   ;
  8829   "RTN","SDE CAUD",8,0)
  8830       ;
  8831   "RTN","SDE CAUD",9,0)
  8832       ;  Com pile stati stics for  yesterday.
  8833   "RTN","SDE CAUD",10,0 )
  8834       ;
  8835   "RTN","SDE CAUD",11,0 )
  8836       D COMP ILE() ;
  8837   "RTN","SDE CAUD",12,0 )
  8838       Q  ;
  8839   "RTN","SDE CAUD",13,0 )
  8840       ;
  8841   "RTN","SDE CAUD",14,0 )
  8842   SELECT  ;
  8843   "RTN","SDE CAUD",15,0 )
  8844       ;
  8845   "RTN","SDE CAUD",16,0 )
  8846       ;  Com pile stati stics for  selected d ate or ran ge of date s.
  8847   "RTN","SDE CAUD",17,0 )
  8848       ;
  8849   "RTN","SDE CAUD",18,0 )
  8850       N DATE ,DATE1,DAT E2,%DT,Y,I ,X1,X2,X,T ODAY ;
  8851   "RTN","SDE CAUD",19,0 )
  8852       ;
  8853   "RTN","SDE CAUD",20,0 )
  8854       D NOW^ %DTC S TOD AY=X ;
  8855   "RTN","SDE CAUD",21,0 )
  8856       W !,"C ompile aud it statist ics for a  date or da te range." ,! ;
  8857   "RTN","SDE CAUD",22,0 )
  8858   SELECT1 ;
  8859   "RTN","SDE CAUD",23,0 )
  8860       S %DT= "AEX",%DT( "A")="Begi n date: "  D ^%DT Q:Y <0  I Y'<T ODAY W ".. .Must be e arlier tha n today.", ! G SELECT 1 ;
  8861   "RTN","SDE CAUD",24,0 )
  8862       S DATE 1=Y ;
  8863   "RTN","SDE CAUD",25,0 )
  8864   SELECT2 ;
  8865   "RTN","SDE CAUD",26,0 )
  8866       S %DT= "AEX",%DT( "A")="End  date: " D  ^%DT Q:Y<0   I Y'<TOD AY W "...M ust be ear lier than  today.",!  G SELECT2  ;
  8867   "RTN","SDE CAUD",27,0 )
  8868       S DATE 2=Y ;
  8869   "RTN","SDE CAUD",28,0 )
  8870       I DATE 1>DATE2 W  "... Dates  entered o ut of sequ ence.  Re- enter.",!  G SELECT ;
  8871   "RTN","SDE CAUD",29,0 )
  8872       ;
  8873   "RTN","SDE CAUD",30,0 )
  8874       ;  Com pile data  for each d ate in ran ge but ski p a date i f compile  previously  run for t hat date.
  8875   "RTN","SDE CAUD",31,0 )
  8876       ;
  8877   "RTN","SDE CAUD",32,0 )
  8878       F I=0: 1 S X1=DAT E1,X2=I D  C^%DTC S D ATE=X Q:DA TE>DATE2   D  ;
  8879   "RTN","SDE CAUD",33,0 )
  8880       . W !  S Y=DATE D  DD^%DT W  Y ;
  8881   "RTN","SDE CAUD",34,0 )
  8882       . I $D (^SDAUDIT( "C",DATE))  W "...pre viously co mpiled.  S kipped." Q   ;
  8883   "RTN","SDE CAUD",35,0 )
  8884       . D CO MPILE(DATE ) W "...co mpiled." ;
  8885   "RTN","SDE CAUD",36,0 )
  8886       Q  ;
  8887   "RTN","SDE CAUD",37,0 )
  8888       ;
  8889   "RTN","SDE CAUD",38,0 )
  8890   COMPILE(DA TE)   ;
  8891   "RTN","SDE CAUD",39,0 )
  8892       ;
  8893   "RTN","SDE CAUD",40,0 )
  8894       ;  Com pile audit  statistic s for a da te.  If da te not spe cified, us e yesterda y.
  8895   "RTN","SDE CAUD",41,0 )
  8896       ;
  8897   "RTN","SDE CAUD",42,0 )
  8898       K ^TMP ($J) ;
  8899   "RTN","SDE CAUD",43,0 )
  8900       N D1,C LERK,DA,X, TYPE,MRTC, APPTDATE,S TATUS,PIEC E,GLOBAL,D IC,DA1,DLA YGO,FLD ;
  8901   "RTN","SDE CAUD",44,0 )
  8902       ;
  8903   "RTN","SDE CAUD",45,0 )
  8904       I $G(D ATE)="" S  DATE=$$HTF M^XLFDT($H -1,1) ;
  8905   "RTN","SDE CAUD",46,0 )
  8906       ;
  8907   "RTN","SDE CAUD",47,0 )
  8908       ;  Do  not compil e if done  previously .
  8909   "RTN","SDE CAUD",48,0 )
  8910       ;
  8911   "RTN","SDE CAUD",49,0 )
  8912       I $D(^ SDAUDIT("C ",DATE)) Q   ;
  8913   "RTN","SDE CAUD",50,0 )
  8914       ;
  8915   "RTN","SDE CAUD",51,0 )
  8916       ;  Loo p thru dat e/user cro ss-referen ce in the  SDEC APPT  REQUEST fi le (#409.8 5) and cou nt APPT an d MRTC Req uests open ed.
  8917   "RTN","SDE CAUD",52,0 )
  8918       ;
  8919   "RTN","SDE CAUD",53,0 )
  8920       S D1=D ATE-.001 F   S D1=$O( ^SDEC(409. 85,"AC",D1 )) Q:'D1   Q:D1\1'=DA TE  D  ;
  8921   "RTN","SDE CAUD",54,0 )
  8922       .   ;
  8923   "RTN","SDE CAUD",55,0 )
  8924       .   S  CLERK=0 F   S CLERK=$ O(^SDEC(40 9.85,"AC", D1,CLERK))  Q:'CLERK   D  ;
  8925   "RTN","SDE CAUD",56,0 )
  8926       ..  ;
  8927   "RTN","SDE CAUD",57,0 )
  8928       ..  ;  Initialize  statistic s counters  for the u ser.
  8929   "RTN","SDE CAUD",58,0 )
  8930       ..  ;
  8931   "RTN","SDE CAUD",59,0 )
  8932       ..  I  '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ;
  8933   "RTN","SDE CAUD",60,0 )
  8934       ..  ;
  8935   "RTN","SDE CAUD",61,0 )
  8936       ..  S  DA=0 F  S  DA=$O(^SDE C(409.85," AC",D1,CLE RK,DA)) Q: 'DA  S X=^ SDEC(409.8 5,DA,0) D   ;
  8937   "RTN","SDE CAUD",62,0 )
  8938       ... ;
  8939   "RTN","SDE CAUD",63,0 )
  8940       ... ;   Parse req uest data
  8941   "RTN","SDE CAUD",64,0 )
  8942       ... ;
  8943   "RTN","SDE CAUD",65,0 )
  8944       ... S  TYPE=$P(X, "^",5),APP TDATE=$P(X ,"^",23),S TATUS=$P(X ,"^",17) ;
  8945   "RTN","SDE CAUD",66,0 )
  8946       ... S  MRTC=+$P($ G(^SDEC(40 9.85,DA,3) ),"^",1) ;
  8947   "RTN","SDE CAUD",67,0 )
  8948       ... ;
  8949   "RTN","SDE CAUD",68,0 )
  8950       ... ;   APPT requ est made
  8951   "RTN","SDE CAUD",69,0 )
  8952       ... ;
  8953   "RTN","SDE CAUD",70,0 )
  8954       ... I  TYPE="APPT ",MRTC=0 S  $P(^(DATE ),"^",2)=$ P(^TMP($J, CLERK,DATE ),"^",2)+1  ;
  8955   "RTN","SDE CAUD",71,0 )
  8956       ... ;
  8957   "RTN","SDE CAUD",72,0 )
  8958       ... ;   MRTC requ est
  8959   "RTN","SDE CAUD",73,0 )
  8960       ... ;
  8961   "RTN","SDE CAUD",74,0 )
  8962       ... I  MRTC=1 S $ P(^(DATE), "^",5)=$P( ^TMP($J,CL ERK,DATE), "^",5)+1 ;
  8963   "RTN","SDE CAUD",75,0 )
  8964       ;
  8965   "RTN","SDE CAUD",76,0 )
  8966       ;    L oop thru d ate/user c ross-refer ence in th e RECALL R EMINDERS f ile (#403. 5) and cou nt PtCSch  entries ad ded.
  8967   "RTN","SDE CAUD",77,0 )
  8968       ;
  8969   "RTN","SDE CAUD",78,0 )
  8970       S D1=D ATE-.001 F   S D1=$O( ^SD(403.5, "AC",D1))  Q:'D1  Q:D 1\1'=DATE   D  ;
  8971   "RTN","SDE CAUD",79,0 )
  8972       .   ;
  8973   "RTN","SDE CAUD",80,0 )
  8974       .   S  CLERK=0 F   S CLERK=$ O(^SD(403. 5,"AC",D1, CLERK)) Q: 'CLERK  D   ;
  8975   "RTN","SDE CAUD",81,0 )
  8976       ..  ;
  8977   "RTN","SDE CAUD",82,0 )
  8978       ..  I  '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ;
  8979   "RTN","SDE CAUD",83,0 )
  8980       ..  S  $P(^(DATE) ,"^",10)=$ P(^TMP($J, CLERK,DATE ),"^",10)+ 1 ;
  8981   "RTN","SDE CAUD",84,0 )
  8982       ;
  8983   "RTN","SDE CAUD",85,0 )
  8984       ;    L oop thru d ate/user c ross-refer ence in th e SD WAIT  LIST file  (#409.3) a nd count E WL entries  made.
  8985   "RTN","SDE CAUD",86,0 )
  8986       ;
  8987   "RTN","SDE CAUD",87,0 )
  8988       S D1=D ATE-.001 F   S D1=$O( ^SDWL(409. 3,"AC",D1) ) Q:'D1  Q :D1\1'=DAT E  D  ;
  8989   "RTN","SDE CAUD",88,0 )
  8990       .   ;
  8991   "RTN","SDE CAUD",89,0 )
  8992       .   S  CLERK=0 F   S CLERK=$ O(^SDWL(40 9.3,"AC",D 1,CLERK))  Q:'CLERK   D  ;
  8993   "RTN","SDE CAUD",90,0 )
  8994       ..  ;
  8995   "RTN","SDE CAUD",91,0 )
  8996       ..  I  '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ;
  8997   "RTN","SDE CAUD",92,0 )
  8998       ..  S  $P(^(DATE) ,"^",7)=$P (^TMP($J,C LERK,DATE) ,"^",7)+1  ;
  8999   "RTN","SDE CAUD",93,0 )
  9000       ;
  9001   "RTN","SDE CAUD",94,0 )
  9002       ;   Lo op thru da te appoint ment made  cross-refe rence in t he SDEC AP POINTMENT  file (#409 .84) and c ount appoi ntments
  9003   "RTN","SDE CAUD",95,0 )
  9004       ;   ma de by type  (EWL, Con sult, PtCS ch, APPT).   Incremen t request  closed for  each appo intment ma de.
  9005   "RTN","SDE CAUD",96,0 )
  9006       ;
  9007   "RTN","SDE CAUD",97,0 )
  9008       S DA=0  F  S DA=$ O(^SDEC(40 9.84,"AC", DATE,DA))  Q:'DA  S C LERK=$P(^S DEC(409.84 ,DA,0),"^" ,8),TYPE=$ P($G(^SDEC (409.84,DA ,2)),"^",1 ) D  ;
  9009   "RTN","SDE CAUD",98,0 )
  9010       .   ;
  9011   "RTN","SDE CAUD",99,0 )
  9012       .   Q: CLERK=""   ;  Skip if  data miss ing
  9013   "RTN","SDE CAUD",100, 0)
  9014       .   ;
  9015   "RTN","SDE CAUD",101, 0)
  9016       .   S  PIECE=$S($ P(TYPE,";" ,2)="SDWL( 409.3,":8, $P(TYPE,"; ",2)="GMR( 123,":12,$ P(TYPE,";" ,2)="SD(40 3.5,":11,$ P(TYPE,";" ,2)="SDEC( 409.85,":3 ,1:0) ;
  9017   "RTN","SDE CAUD",102, 0)
  9018       .   Q: 'PIECE  ;
  9019   "RTN","SDE CAUD",103, 0)
  9020       .   I  '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ;
  9021   "RTN","SDE CAUD",104, 0)
  9022       .   ;
  9023   "RTN","SDE CAUD",105, 0)
  9024       .   ;   Update ap pointment  made.
  9025   "RTN","SDE CAUD",106, 0)
  9026       .   ;
  9027   "RTN","SDE CAUD",107, 0)
  9028       .   S  $P(^(DATE) ,"^",PIECE )=$P(^TMP( $J,CLERK,D ATE),"^",P IECE)+1 ;
  9029   "RTN","SDE CAUD",108, 0)
  9030       .   ;
  9031   "RTN","SDE CAUD",109, 0)
  9032       .   ;   Update AP PT or EWL  request cl osed.
  9033   "RTN","SDE CAUD",110, 0)
  9034       .   ;
  9035   "RTN","SDE CAUD",111, 0)
  9036       .   S  PIECE=$S($ P(TYPE,";" ,2)="SDWL( 409.3,":9, $P(TYPE,"; ",2)="SDEC (409.85,": 4,1:0) Q:' PIECE  ;
  9037   "RTN","SDE CAUD",112, 0)
  9038       .   ;
  9039   "RTN","SDE CAUD",113, 0)
  9040       .   ;   Determine  if APPT r equest is  MRTC
  9041   "RTN","SDE CAUD",114, 0)
  9042       .   ;
  9043   "RTN","SDE CAUD",115, 0)
  9044       .   I  $P(TYPE,"; ",2)="SDEC (409.85,"  S PTR=$P(T YPE,";",1) ,MRTC=+$P( $G(^SDEC(4 09.85,PTR, 3)),"^",1)  I MRTC S  PIECE=6 ;
  9045   "RTN","SDE CAUD",116, 0)
  9046       .   ;
  9047   "RTN","SDE CAUD",117, 0)
  9048       .   ;   Update re quest clos ed
  9049   "RTN","SDE CAUD",118, 0)
  9050       .   ;
  9051   "RTN","SDE CAUD",119, 0)
  9052       .   S  $P(^(DATE) ,"^",PIECE )=$P(^TMP( $J,CLERK,D ATE),"^",P IECE)+1 ;
  9053   "RTN","SDE CAUD",120, 0)
  9054       ;
  9055   "RTN","SDE CAUD",121, 0)
  9056       ;    L oop thru d ate appoin tment canc elled cros s-referenc e in the S DEC APPOIN TMENT file  (#409.84)  and count  cancellat ions.
  9057   "RTN","SDE CAUD",122, 0)
  9058       ;
  9059   "RTN","SDE CAUD",123, 0)
  9060       S D1=D ATE-.001 F   S D1=$O( ^SDEC(409. 84,"AD",D1 )) Q:'D1   Q:D1\1'=DA TE  D  ;
  9061   "RTN","SDE CAUD",124, 0)
  9062       .   ;
  9063   "RTN","SDE CAUD",125, 0)
  9064       .   S  DA=0 F  S  DA=$O(^SDE C(409.84," AD",D1,DA) ) Q:'DA  S  CLERK=$P( ^SDEC(409. 84,DA,0)," ^",21) D   ;
  9065   "RTN","SDE CAUD",126, 0)
  9066       ..  ;
  9067   "RTN","SDE CAUD",127, 0)
  9068       ..  Q: CLERK=""   ;  Skip if  data is m issing
  9069   "RTN","SDE CAUD",128, 0)
  9070       ..  ;
  9071   "RTN","SDE CAUD",129, 0)
  9072       ..  I  '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ;
  9073   "RTN","SDE CAUD",130, 0)
  9074       ..  S  $P(^(DATE) ,"^",13)=$ P(^TMP($J, CLERK,DATE ),"^",13)+ 1 ;
  9075   "RTN","SDE CAUD",131, 0)
  9076       ;
  9077   "RTN","SDE CAUD",132, 0)
  9078       ;    L oop thru d ate/time-u ser cross- reference  in SDEC CO NTACTS fil e (#409.86 ) and coun t contacts .
  9079   "RTN","SDE CAUD",133, 0)
  9080       ;
  9081   "RTN","SDE CAUD",134, 0)
  9082       S D1=D ATE-.001 F   S D1=$O( ^SDEC(409. 86,"AD",D1 )) Q:'D1   Q:D1\1'=DA TE  D  ;
  9083   "RTN","SDE CAUD",135, 0)
  9084       .   ;
  9085   "RTN","SDE CAUD",136, 0)
  9086       .   S  CLERK=0 F   S CLERK=$ O(^SDEC(40 9.86,"AD", D1,CLERK))  Q:'CLERK   D  ;
  9087   "RTN","SDE CAUD",137, 0)
  9088       ..  ;
  9089   "RTN","SDE CAUD",138, 0)
  9090       ..  S  DA=0 F  S  DA=$O(^SDE C(409.86," AD",D1,CLE RK,DA)) Q: 'DA  D  ;
  9091   "RTN","SDE CAUD",139, 0)
  9092       ... S  DA1=0 F  S  DA1=$O(^S DEC(409.86 ,"AD",D1,C LERK,DA,DA 1)) Q:'DA1   D  ;
  9093   "RTN","SDE CAUD",140, 0)
  9094       ....     I '$D(^T MP($J,CLER K,DATE)) S  ^TMP($J,C LERK,DATE) ="0^0^0^0^ 0^0^0^0^0^ 0^0^0^0" ;
  9095   "RTN","SDE CAUD",141, 0)
  9096       ....     S $P(^(D ATE),"^",1 )=$P(^TMP( $J,CLERK,D ATE),"^",1 )+1 ;
  9097   "RTN","SDE CAUD",142, 0)
  9098       ;
  9099   "RTN","SDE CAUD",143, 0)
  9100       ;
  9101   "RTN","SDE CAUD",144, 0)
  9102       ;  Upd ate the SD  Audit Sta tistics fi le (#409.9 7)
  9103   "RTN","SDE CAUD",145, 0)
  9104       ;
  9105   "RTN","SDE CAUD",146, 0)
  9106       S GLOB AL=^DIC(40 9.97,0,"GL ") ;
  9107   "RTN","SDE CAUD",147, 0)
  9108       S CLER K=0 F  S C LERK=$O(^T MP($J,CLER K)) Q:'CLE RK  D  ;
  9109   "RTN","SDE CAUD",148, 0)
  9110       .   ;
  9111   "RTN","SDE CAUD",149, 0)
  9112       .   K  DO S DIC=G LOBAL,DIC( 0)="FL",DL AYGO="409. 97",X=CLER K,DIC("DR" )="1////"_ DATE ;
  9113   "RTN","SDE CAUD",150, 0)
  9114       .   F  FLD=2:1:14  S DIC("DR ")=DIC("DR ")_";"_FLD _"////"_$P (^TMP($J,C LERK,DATE) ,"^",FLD-1 ) ;
  9115   "RTN","SDE CAUD",151, 0)
  9116       .   D  FILE^DICN  ;
  9117   "RTN","SDE CAUD",152, 0)
  9118       ;
  9119   "RTN","SDE CAUD",153, 0)
  9120       K ^TMP ($J) ;
  9121   "RTN","SDE CAUD",154, 0)
  9122       ;
  9123   "RTN","SDE CAUD",155, 0)
  9124       Q  ;
  9125   "RTN","SDE CAUD",156, 0)
  9126       ;
  9127   "RTN","SDE CAUD",157, 0)
  9128       ;*zeb+ tag 2/28/1 8 686 retu rn compile d data
  9129   "RTN","SDE CAUD",158, 0)
  9130       ;----- ---------- -----
  9131   "RTN","SDE CAUD",159, 0)
  9132       ;SUMMG ET2 - Retu rn compile d Audit Re port data  via RPC
  9133   "RTN","SDE CAUD",160, 0)
  9134       ;----- ---------- -----
  9135   "RTN","SDE CAUD",161, 0)
  9136       ;Param eters
  9137   "RTN","SDE CAUD",162, 0)
  9138       ;----- -----
  9139   "RTN","SDE CAUD",163, 0)
  9140       ;SDECR ET - globa l referenc e to array  with retu rn values
  9141   "RTN","SDE CAUD",164, 0)
  9142       ;SDBEG    - start  date for  reporting;  defaults  to 1/2/184 1
  9143   "RTN","SDE CAUD",165, 0)
  9144       ;SDEND    - end d ate for re porting; d efaults to  10/15/211 4
  9145   "RTN","SDE CAUD",166, 0)
  9146       ;USER     - IEN o f a user t o report o n; default s to all u sers
  9147   "RTN","SDE CAUD",167, 0)
  9148       ;----- -----
  9149   "RTN","SDE CAUD",168, 0)
  9150       ;Retur ns (one ro w for each  user)
  9151   "RTN","SDE CAUD",169, 0)
  9152       ;----- -----
  9153   "RTN","SDE CAUD",170, 0)
  9154       ;USERI EN  - user 's IEN
  9155   "RTN","SDE CAUD",171, 0)
  9156       ;USERN AME - user 's name
  9157   "RTN","SDE CAUD",172, 0)
  9158       ;CONTA CTS - numb er of pati ent contac ts
  9159   "RTN","SDE CAUD",173, 0)
  9160       ;APPTO PEN - numb er of APPT  requests  opened
  9161   "RTN","SDE CAUD",174, 0)
  9162       ;APPTM ADE - numb er of appo intments m ade for AP PT request s
  9163   "RTN","SDE CAUD",175, 0)
  9164       ;APPTC LSD - numb er of APPT  requests  closed
  9165   "RTN","SDE CAUD",176, 0)
  9166       ;MRTCO PEN - numb er of MRTC  requests  opened
  9167   "RTN","SDE CAUD",177, 0)
  9168       ;MRTCC LSD - numb er of MRTC  requests  closed
  9169   "RTN","SDE CAUD",178, 0)
  9170       ;EWLOP EN  - numb er of EWL  requests o pened
  9171   "RTN","SDE CAUD",179, 0)
  9172       ;EWLMA DE  - numb er of appo intments m ade for EW L requests
  9173   "RTN","SDE CAUD",180, 0)
  9174       ;EWLCL SD  - numb er of EWL  requests c losed
  9175   "RTN","SDE CAUD",181, 0)
  9176       ;PTCSO PEN - numb er of PtCS ch request s opened
  9177   "RTN","SDE CAUD",182, 0)
  9178       ;PTCSM ADE - numb er of appo intments m ade for Pt CSch reque sts
  9179   "RTN","SDE CAUD",183, 0)
  9180       ;CNSLT MD  - numb er of appo intments m ade for co nsults
  9181   "RTN","SDE CAUD",184, 0)
  9182       ;APPTC XLD - numb er of appo intments c anceled
  9183   "RTN","SDE CAUD",185, 0)
  9184       ;ACTIO NS  - tota l number o f actions
  9185   "RTN","SDE CAUD",186, 0)
  9186   SUMMGET2(S DECRET,SDB EG,SDEND,U SER)  ;Get  compiled  Audit Repo rt for a g iven date  range
  9187   "RTN","SDE CAUD",187, 0)
  9188    N X,Y,%DT ,U,X1,X2
  9189   "RTN","SDE CAUD",188, 0)
  9190    N SDTMP,S DECLN,SDST ATS,SDPC,S DDT,SDASIE N,SDASDATA
  9191   "RTN","SDE CAUD",189, 0)
  9192    S U="^"
  9193   "RTN","SDE CAUD",190, 0)
  9194    ;translat e dates to  FM format
  9195   "RTN","SDE CAUD",191, 0)
  9196    I SDBEG]" " S %DT=""  S X=$P(SD BEG,"@",1)  D ^%DT S  SDBEG=Y S: Y=-1 SDBEG =1410102 I  1
  9197   "RTN","SDE CAUD",192, 0)
  9198    E  S SDBE G=1410102  ;default b egin date
  9199   "RTN","SDE CAUD",193, 0)
  9200    I SDEND]" " S %DT=""  S X=$P(SD END,"@",1)  D ^%DT S  SDEND=Y S: Y=-1 SDEND =4141015 I  1
  9201   "RTN","SDE CAUD",194, 0)
  9202    E  S SDEN D=4141015  ;default e nd date
  9203   "RTN","SDE CAUD",195, 0)
  9204    ;check us er
  9205   "RTN","SDE CAUD",196, 0)
  9206    I USER]"" ,'$D(^VA(2 00,+USER,0 )) S USER= ""
  9207   "RTN","SDE CAUD",197, 0)
  9208    ;set up r eturn arra y
  9209   "RTN","SDE CAUD",198, 0)
  9210    S SDECRET ="^TMP(""S DECAUD""," _$J_",""SU MMGET2"")"   ;global  reference  to return  array
  9211   "RTN","SDE CAUD",199, 0)
  9212    K @SDECRE T
  9213   "RTN","SDE CAUD",200, 0)
  9214    S SDECLN= 0
  9215   "RTN","SDE CAUD",201, 0)
  9216    ;set up c olumn head ers for re turn array
  9217   "RTN","SDE CAUD",202, 0)
  9218    ;               1               2               3                4                5               6
  9219   "RTN","SDE CAUD",203, 0)
  9220    S SDTMP=" T00030USER IEN^T00030 USERNAME^T 00030CONTA CTS^T00030 APPTOPEN^T 00030APPTM ADE^T00030 APPTCLSD"
  9221   "RTN","SDE CAUD",204, 0)
  9222    ;                       7               8                9              10              11
  9223   "RTN","SDE CAUD",205, 0)
  9224    S SDTMP=S DTMP_"^T00 030MRTCOPE N^T00030MR TCCLSD^T00 030EWLOPEN ^T00030EWL MADE^T0003 0EWLCLSD"
  9225   "RTN","SDE CAUD",206, 0)
  9226    ;                       12              13               14             15               16
  9227   "RTN","SDE CAUD",207, 0)
  9228    S SDTMP=S DTMP_"^T00 030PTCSOPE N^T00030PT CSMADE^T00 030CNSLTMD ^T00030APP TCXLD^T000 30ACTIONS"
  9229   "RTN","SDE CAUD",208, 0)
  9230    S @SDECRE T@(SDECLN) =SDTMP_$C( 30)
  9231   "RTN","SDE CAUD",209, 0)
  9232    ;if a sin gle user i s specifie d, loop ov er x-ref f or dates f or that us er
  9233   "RTN","SDE CAUD",210, 0)
  9234    I USER]""  D  I 1
  9235   "RTN","SDE CAUD",211, 0)
  9236    .S SDSTAT S="0^0^0^0 ^0^0^0^0^0 ^0^0^0^0^0 "
  9237   "RTN","SDE CAUD",212, 0)
  9238    .S X1=SDB EG,X2=-1 D  C^%DTC S  SDDT=X
  9239   "RTN","SDE CAUD",213, 0)
  9240    .F  S SDD T=$O(^SDAU DIT("E",US ER,SDDT))  Q:SDDT=""   Q:SDDT>SD END  D
  9241   "RTN","SDE CAUD",214, 0)
  9242    ..S SDASI EN=""
  9243   "RTN","SDE CAUD",215, 0)
  9244    ..F  S SD ASIEN=$O(^ SDAUDIT("E ",USER,SDD T,SDASIEN) ) Q:SDASIE N=""  D
  9245   "RTN","SDE CAUD",216, 0)
  9246    ...S SDAS DATA=^SDAU DIT(SDASIE N,0)
  9247   "RTN","SDE CAUD",217, 0)
  9248    ...S $P(S DASDATA,U, 16)=$$GET1 ^DIQ(409.9 7,SDASIEN_ ",",15) ;f ield 15 is  computed,  so isn't  in global
  9249   "RTN","SDE CAUD",218, 0)
  9250    ...F SDPC =1:1:14 S  $P(SDSTATS ,U,SDPC)=$ P(SDSTATS, U,SDPC)+$P (SDASDATA, U,SDPC+2)
  9251   "RTN","SDE CAUD",219, 0)
  9252    .S SDECLN =SDECLN+1
  9253   "RTN","SDE CAUD",220, 0)
  9254    .S SDTMP= USER_U_$$G ET1^DIQ(20 0,USER_"," ,.01)_U_SD STATS
  9255   "RTN","SDE CAUD",221, 0)
  9256    .S @SDECR ET@(SDECLN )=SDTMP_$C (30)
  9257   "RTN","SDE CAUD",222, 0)
  9258    ;otherwis e, loop ov er x-ref f or users f or those d ates
  9259   "RTN","SDE CAUD",223, 0)
  9260    E  D
  9261   "RTN","SDE CAUD",224, 0)
  9262    .F  S USE R=$O(^SDAU DIT("E",US ER)) Q:USE R=""  D
  9263   "RTN","SDE CAUD",225, 0)
  9264    ..S SDSTA TS="0^0^0^ 0^0^0^0^0^ 0^0^0^0^0^ 0"
  9265   "RTN","SDE CAUD",226, 0)
  9266    ..S X1=SD BEG,X2=-1  D C^%DTC S  SDDT=X
  9267   "RTN","SDE CAUD",227, 0)
  9268    ..F  S SD DT=$O(^SDA UDIT("E",U SER,SDDT))  Q:SDDT=""   Q:SDDT>S DEND  D
  9269   "RTN","SDE CAUD",228, 0)
  9270    ...S SDAS IEN=""
  9271   "RTN","SDE CAUD",229, 0)
  9272    ...F  S S DASIEN=$O( ^SDAUDIT(" E",USER,SD DT,SDASIEN )) Q:SDASI EN=""  D
  9273   "RTN","SDE CAUD",230, 0)
  9274    ....S SDA SDATA=^SDA UDIT(SDASI EN,0)
  9275   "RTN","SDE CAUD",231, 0)
  9276    ....S $P( SDASDATA,U ,16)=$$GET 1^DIQ(409. 97,SDASIEN _",",15) ; field 15 i s computed , so isn't  in global
  9277   "RTN","SDE CAUD",232, 0)
  9278    ....F SDP C=1:1:14 S  $P(SDSTAT S,U,SDPC)= $P(SDSTATS ,U,SDPC)+$ P(SDASDATA ,U,SDPC+2)
  9279   "RTN","SDE CAUD",233, 0)
  9280    ..Q:SDSTA TS="0^0^0^ 0^0^0^0^0^ 0^0^0^0^0^ 0"  ;don't  send back  if user h as no data  to send
  9281   "RTN","SDE CAUD",234, 0)
  9282    ..S SDECL N=SDECLN+1
  9283   "RTN","SDE CAUD",235, 0)
  9284    ..S SDTMP =USER_U_$$ GET1^DIQ(2 00,USER_", ",.01)_U_S DSTATS
  9285   "RTN","SDE CAUD",236, 0)
  9286    ..S @SDEC RET@(SDECL N)=SDTMP_$ C(30)
  9287   "RTN","SDE CAUD",237, 0)
  9288    Q
  9289   "RTN","SDE CCON")
  9290   0^4^B17988 891^B15794 027
  9291   "RTN","SDE CCON",1,0)
  9292   SDECCON ;S PFO/DMR SC HEDULING E NHANCEMENT S VSE CONT ACT API
  9293   "RTN","SDE CCON",2,0)
  9294    ;;5.3;Sch eduling;** 669,686**; Aug 13 199 3;Build 39
  9295   "RTN","SDE CCON",3,0)
  9296    ;
  9297   "RTN","SDE CCON",4,0)
  9298    ;This API  provides  SDEC CONTA CT(#409.86 )file info rmation to  the VSE V S GUI.
  9299   "RTN","SDE CCON",5,0)
  9300    ; 3/6/18  - wtc/zeb  Added new  cross-refe rence for  audit stat istics com piler.  Pa tch 686
  9301   "RTN","SDE CCON",6,0)
  9302    ;
  9303   "RTN","SDE CCON",7,0)
  9304    Q
  9305   "RTN","SDE CCON",8,0)
  9306   DISPLAY(RT U,DFN,CLN, PDT,REQT,S ER) ;
  9307   "RTN","SDE CCON",9,0)
  9308    Q:'$G(DFN )
  9309   "RTN","SDE CCON",10,0 )
  9310    Q:'$G(PDT )
  9311   "RTN","SDE CCON",11,0 )
  9312    Q:'$D(REQ T)
  9313   "RTN","SDE CCON",12,0 )
  9314    S (CC,CC1 ,CC2,REC)= ""
  9315   "RTN","SDE CCON",13,0 )
  9316    ;
  9317   "RTN","SDE CCON",14,0 )
  9318    S CC="" F   S CC=$O( ^SDEC(409. 86,"B",DFN ,CC)) Q:CC =""  D
  9319   "RTN","SDE CCON",15,0 )
  9320    .S REC=""  S REC=^SD EC(409.86, CC,0)
  9321   "RTN","SDE CCON",16,0 )
  9322    .Q:PDT'=$ P($G(REC), "^",3)
  9323   "RTN","SDE CCON",17,0 )
  9324    .I $G(CLN )'="" Q:$G (CLN)'=$P( $G(REC),"^ ",2)
  9325   "RTN","SDE CCON",18,0 )
  9326    .I $G(SER )'="" Q:$G (SER)'=$P( $G(REC),"^ ",6)
  9327   "RTN","SDE CCON",19,0 )
  9328    .Q:REQT'= $P($G(REC) ,"^",4)
  9329   "RTN","SDE CCON",20,0 )
  9330    .S RTU=CC _"^"_REC
  9331   "RTN","SDE CCON",21,0 )
  9332    .Q
  9333   "RTN","SDE CCON",22,0 )
  9334    D EXIT
  9335   "RTN","SDE CCON",23,0 )
  9336    Q
  9337   "RTN","SDE CCON",24,0 )
  9338   DISMULT(RT T,CIEN) ;
  9339   "RTN","SDE CCON",25,0 )
  9340    Q:'$G(CIE N)
  9341   "RTN","SDE CCON",26,0 )
  9342    ;
  9343   "RTN","SDE CCON",27,0 )
  9344    S (CC1,CC 2,REC1,REC 2,RTT,ENDT )=""
  9345   "RTN","SDE CCON",28,0 )
  9346    ;
  9347   "RTN","SDE CCON",29,0 )
  9348    S CC2=""  F  S CC2=$ O(^SDEC(40 9.86,CIEN, 1,CC2)) Q: CC2=""  D
  9349   "RTN","SDE CCON",30,0 )
  9350    .S REC2=" " S REC2=$ G(^SDEC(40 9.86,CIEN, 1,CC2,1))  Q:REC2=""   D
  9351   "RTN","SDE CCON",31,0 )
  9352    ..S ENDT= "" S ENDT= $P($G(^SDE C(409.86,C IEN,1,CC2, 0)),"^",1)
  9353   "RTN","SDE CCON",32,0 )
  9354    ..S (ENTU ,ENTUN)=""  S ENTUN=$ P(REC2,"^" ,5) I ENTU N>0 D
  9355   "RTN","SDE CCON",33,0 )
  9356    ...S ENTU =$$GET1^DI Q(200,ENTU N,.01,"E")
  9357   "RTN","SDE CCON",34,0 )
  9358    ..S RTT=R TT_CC1_"^" _REC2_"^"_ ENTU_"^"_E NDT_";"
  9359   "RTN","SDE CCON",35,0 )
  9360    ..Q
  9361   "RTN","SDE CCON",36,0 )
  9362    D EXIT
  9363   "RTN","SDE CCON",37,0 )
  9364    Q
  9365   "RTN","SDE CCON",38,0 )
  9366    ;
  9367   "RTN","SDE CCON",39,0 )
  9368   NEW(RET,DF N,CLI,DTP, REQT,SRV,D TCON,CONT, COM,DTENT)  ;
  9369   "RTN","SDE CCON",40,0 )
  9370    Q:'$G(DFN )
  9371   "RTN","SDE CCON",41,0 )
  9372    Q:'$G(DTP )
  9373   "RTN","SDE CCON",42,0 )
  9374    Q:'$D(REQ T)
  9375   "RTN","SDE CCON",43,0 )
  9376    Q:'$G(DTC ON)
  9377   "RTN","SDE CCON",44,0 )
  9378    Q:'$D(CON T)
  9379   "RTN","SDE CCON",45,0 )
  9380    Q:'$G(DTE NT)
  9381   "RTN","SDE CCON",46,0 )
  9382    I '$D(COM ) S COM=""
  9383   "RTN","SDE CCON",47,0 )
  9384    I '$G(CLI ) S CLI=""
  9385   "RTN","SDE CCON",48,0 )
  9386    I '$G(SRV ) S SRV=""
  9387   "RTN","SDE CCON",49,0 )
  9388    ;
  9389   "RTN","SDE CCON",50,0 )
  9390    S (DFN2,C C1,CC2)=""
  9391   "RTN","SDE CCON",51,0 )
  9392    ;
  9393   "RTN","SDE CCON",52,0 )
  9394    S DFN2=""  F  S DFN2 =$O(^SDEC( 409.86,"B" ,DFN2)) Q: DFN2=""  D
  9395   "RTN","SDE CCON",53,0 )
  9396    .S CC1=""  F  S CC1= $O(^SDEC(4 09.86,"B", DFN2,CC1))  Q:CC1=""   D
  9397   "RTN","SDE CCON",54,0 )
  9398    ..S CC2=C C2+1
  9399   "RTN","SDE CCON",55,0 )
  9400    ..Q
  9401   "RTN","SDE CCON",56,0 )
  9402    S CC2=CC2 +1 D
  9403   "RTN","SDE CCON",57,0 )
  9404    .S ^SDEC( 409.86,0)= "SDEC CONT ACT^409.86 P^"_CC2_"^ "_CC2
  9405   "RTN","SDE CCON",58,0 )
  9406    .S ^SDEC( 409.86,CC2 ,0)=DFN_"^ "_CLI_"^"_ DTP_"^"_RE QT_"^"_1_S RV
  9407   "RTN","SDE CCON",59,0 )
  9408    .S ^SDEC( 409.86,CC2 ,1,0)="^40 9.863D^1^1 "
  9409   "RTN","SDE CCON",60,0 )
  9410    .S ^SDEC( 409.86,CC2 ,1,1,0)=DT CON
  9411   "RTN","SDE CCON",61,0 )
  9412    .S ^SDEC( 409.86,CC2 ,1,1,1)=CO NT_"^"_COM _"^"_0_"^" _1_"^"_DUZ _"^"_DTENT
  9413   "RTN","SDE CCON",62,0 )
  9414    .S ^SDEC( 409.86,"B" ,DFN,CC2)= ""
  9415   "RTN","SDE CCON",63,0 )
  9416    .S ^SDEC( 409.86,CC2 ,1,"B",DTC ON,1)=""
  9417   "RTN","SDE CCON",64,0 )
  9418    .S ^SDEC( 409.86,"AD ",DTENT,DU Z,CC2,1)=" " ;  3/6/1 8 WTC/ZEB  create dat e/user cro ss-referen ce.
  9419   "RTN","SDE CCON",65,0 )
  9420    .Q
  9421   "RTN","SDE CCON",66,0 )
  9422    D EXIT
  9423   "RTN","SDE CCON",67,0 )
  9424    Q
  9425   "RTN","SDE CCON",68,0 )
  9426   SEQ(RE1,DF 1,CL1,PDAT E,RTYPE,SR R) ;
  9427   "RTN","SDE CCON",69,0 )
  9428    Q:'$G(DF1 )
  9429   "RTN","SDE CCON",70,0 )
  9430    Q:'$G(PDA TE)
  9431   "RTN","SDE CCON",71,0 )
  9432    I '$G(CL1 ) S CL1=""
  9433   "RTN","SDE CCON",72,0 )
  9434    I '$G(SRR ) S SRR=""
  9435   "RTN","SDE CCON",73,0 )
  9436    ;
  9437   "RTN","SDE CCON",74,0 )
  9438    S (JJ,JJ1 ,RCD,SQU,D F2)=""
  9439   "RTN","SDE CCON",75,0 )
  9440    ;
  9441   "RTN","SDE CCON",76,0 )
  9442    S JJ="" F   S JJ=$O( ^SDEC(409. 86,"B",DF1 ,JJ)) Q:JJ =""  D
  9443   "RTN","SDE CCON",77,0 )
  9444    .S RCD=""  S RCD=$G( ^SDEC(409. 86,JJ,0))  Q:RCD=""   D
  9445   "RTN","SDE CCON",78,0 )
  9446    ..S SQU=" " S SQU=$P ($G(^SDEC( 409.86,JJ, 1,0)),"^", 3) D
  9447   "RTN","SDE CCON",79,0 )
  9448    ...Q:$G(S QU)=""
  9449   "RTN","SDE CCON",80,0 )
  9450    ...Q:PDAT E'=$P($G(R CD),"^",3)
  9451   "RTN","SDE CCON",81,0 )
  9452    ...Q:RTYP E'=$P($G(R CD),"^",4)
  9453   "RTN","SDE CCON",82,0 )
  9454    ...I $P($ G(RCD),"^" ,2)=CL1 D
  9455   "RTN","SDE CCON",83,0 )
  9456    ....S $P( ^SDEC(409. 86,JJ,0)," ^",5)=SQU+ 1
  9457   "RTN","SDE CCON",84,0 )
  9458    ....S RE1 =SQU+1
  9459   "RTN","SDE CCON",85,0 )
  9460    ....Q
  9461   "RTN","SDE CCON",86,0 )
  9462    ...I $P($ G(RCD),"^" ,6)=SRR D
  9463   "RTN","SDE CCON",87,0 )
  9464    ....S $P( ^SDEC(409. 86,JJ,0)," ^",5)=SQU+ 1
  9465   "RTN","SDE CCON",88,0 )
  9466    ....S RE1 =SQU+1
  9467   "RTN","SDE CCON",89,0 )
  9468    ....Q
  9469   "RTN","SDE CCON",90,0 )
  9470    D EXIT
  9471   "RTN","SDE CCON",91,0 )
  9472    Q
  9473   "RTN","SDE CCON",92,0 )
  9474   UPDATE(RTT ,IEN,CONDT ,CTYPE,COM M,DTEN) ;
  9475   "RTN","SDE CCON",93,0 )
  9476    Q:'$G(IEN )
  9477   "RTN","SDE CCON",94,0 )
  9478    Q:'$G(CON DT)
  9479   "RTN","SDE CCON",95,0 )
  9480    Q:'$D(CTY PE) 
  9481   "RTN","SDE CCON",96,0 )
  9482    I '$D(COM M) S COMM= ""
  9483   "RTN","SDE CCON",97,0 )
  9484    I '$G(DTE N) S DTEN= ""
  9485   "RTN","SDE CCON",98,0 )
  9486    ;
  9487   "RTN","SDE CCON",99,0 )
  9488    S (MULT,R TT,CC,CCC, COUNT,MULT N)=""
  9489   "RTN","SDE CCON",100, 0)
  9490    ;
  9491   "RTN","SDE CCON",101, 0)
  9492    S MULT=""  S MULT=$G (^SDEC(409 .86,IEN,1, 0)) I MULT '="" D
  9493   "RTN","SDE CCON",102, 0)
  9494    .S MULTN= $P(MULT,"^ ",4) I MUL TN'="" D
  9495   "RTN","SDE CCON",103, 0)
  9496    ..S COUNT =MULTN
  9497   "RTN","SDE CCON",104, 0)
  9498    .Q
  9499   "RTN","SDE CCON",105, 0)
  9500    I COUNT'= "" S COUNT =COUNT+1 D
  9501   "RTN","SDE CCON",106, 0)
  9502    .S ^SDEC( 409.86,IEN ,1,0)="^40 9.863D^"_C OUNT_"^"_C OUNT
  9503   "RTN","SDE CCON",107, 0)
  9504    .S ^SDEC( 409.86,IEN ,1,COUNT,0 )=CONDT
  9505   "RTN","SDE CCON",108, 0)
  9506    .S ^SDEC( 409.86,IEN ,1,COUNT,1 )=CTYPE_"^ "_COMM_"^" _0_"^"_COU NT_"^"_DUZ _"^"_DTEN
  9507   "RTN","SDE CCON",109, 0)
  9508    .S ^SDEC( 409.86,IEN ,1,"B",CON DT,COUNT)= ""
  9509   "RTN","SDE CCON",110, 0)
  9510    .S ^SDEC( 409.86,"AD ",DTEN,DUZ ,IEN,COUNT )="" ;  3/ 6/18 WTC/Z EB create  date/user  cross-refe rence.
  9511   "RTN","SDE CCON",111, 0)
  9512    .Q
  9513   "RTN","SDE CCON",112, 0)
  9514    D EXIT
  9515   "RTN","SDE CCON",113, 0)
  9516    Q 
  9517   "RTN","SDE CCON",114, 0)
  9518   GETSTC(RET ,CLIEN) ;
  9519   "RTN","SDE CCON",115, 0)
  9520    Q:CLIEN=" "
  9521   "RTN","SDE CCON",116, 0)
  9522    ;
  9523   "RTN","SDE CCON",117, 0)
  9524    ;CLIEN=Cl inic IEN
  9525   "RTN","SDE CCON",118, 0)
  9526    ;HLF0=Hos pital Loca tion File  0 node
  9527   "RTN","SDE CCON",119, 0)
  9528    ;SNUM=Sto pc Code IE N [0,7]
  9529   "RTN","SDE CCON",120, 0)
  9530    ;STPC=Sto p Code 40. 7
  9531   "RTN","SDE CCON",121, 0)
  9532    ;CSNUM=Cr edit Stop  IEN [0,18]
  9533   "RTN","SDE CCON",122, 0)
  9534    ;CSTPC=Cr edit Stop  Code 40.7
  9535   "RTN","SDE CCON",123, 0)
  9536    ;
  9537   "RTN","SDE CCON",124, 0)
  9538    S (HLF0,S NUM,STPC,C SNUM,CSTPC )=""
  9539   "RTN","SDE CCON",125, 0)
  9540    ;
  9541   "RTN","SDE CCON",126, 0)
  9542    S HLF0=$G (^SC(CLIEN ,0)) I HLF 0'="" D
  9543   "RTN","SDE CCON",127, 0)
  9544    .S SNUM=$ P($G(HLF0) ,"^",7) I  SNUM'="" D
  9545   "RTN","SDE CCON",128, 0)
  9546    ..S STPC= $$GET1^DIQ (40.7,SNUM ,1)
  9547   "RTN","SDE CCON",129, 0)
  9548    .S CNUM=$ P($G(HLF0) ,"^",18) I  CNUM'=""  D
  9549   "RTN","SDE CCON",130, 0)
  9550    ..S CSTPC =$$GET1^DI Q(40.7,CNU M,1)
  9551   "RTN","SDE CCON",131, 0)
  9552    S RET=STP C_"^"_CSTP C
  9553   "RTN","SDE CCON",132, 0)
  9554    K HLF0,SN UM,STPC,CS NUM,CSTPC
  9555   "RTN","SDE CCON",133, 0)
  9556    Q
  9557   "RTN","SDE CCON",134, 0)
  9558   EXIT ;
  9559   "RTN","SDE CCON",135, 0)
  9560    K MULT,CC ,CCC,COUNT ,COMM,DTEN ,ENDT
  9561   "RTN","SDE CCON",136, 0)
  9562    K JJ,JJ1, RCD,SQU,DF 2,DFN2,CC1 ,CC2,RCD,S QU
  9563   "RTN","SDE CCON",137, 0)
  9564    K REC1,RE C2,ENDT,MU LTN,CLN,PD T,REQT,SER
  9565   "RTN","SDE CCON",138, 0)
  9566    Q
  9567   "RTN","SDE CLK")
  9568   0^6^B22769 738^B92046 62
  9569   "RTN","SDE CLK",1,0)
  9570   SDECLK ;AL B/SAT - VI STA SCHEDU LING RPCS  ;JAN 15, 2 016
  9571   "RTN","SDE CLK",2,0)
  9572    ;;5.3;Sch eduling;** 627,686**; Aug 13, 19 93;Build 3 9
  9573   "RTN","SDE CLK",3,0)
  9574    ;
  9575   "RTN","SDE CLK",4,0)
  9576    Q
  9577   "RTN","SDE CLK",5,0)
  9578    ;
  9579   "RTN","SDE CLK",6,0)
  9580   LOCK(SDECY ,REQ) ; --  Attempt t o lock req uest recor d
  9581   "RTN","SDE CLK",7,0)
  9582    ;INPUT:
  9583   "RTN","SDE CLK",8,0)
  9584    ; REQ = R equest - ( required)  Appt Reque st type -  variable p ointer poi nter
  9585   "RTN","SDE CLK",9,0)
  9586    ;                               to one of  these file s:
  9587   "RTN","SDE CLK",10,0)
  9588    ;                           SDE C APPT REQ UEST    -  A|<APPT IE N>     A|1 23
  9589   "RTN","SDE CLK",11,0)
  9590    ;                           SD  WAIT LIST          -  E|<WL IEN>        E|1 23
  9591   "RTN","SDE CLK",12,0)
  9592    ;                           REQ UEST/CONSU LTATION -  C|<CONSULT  IEN>  C|1 23
  9593   "RTN","SDE CLK",13,0)
  9594    ;                           REC ALL REMIND ERS     -  R|^<RECALL  IEN>  R|1 23
  9595   "RTN","SDE CLK",14,0)
  9596    ;RETURN:
  9597   "RTN","SDE CLK",15,0)
  9598    ; A singl e entry in  the globa l array in dicating t he success /failure o f getting  the lock:
  9599   "RTN","SDE CLK",16,0)
  9600    ;   1. CO DE    -  1  if succes sful, or 0 ^Message i f could no t get lock
  9601   "RTN","SDE CLK",17,0)
  9602    ;   2. ME SSAGE -  M essage Tex t
  9603   "RTN","SDE CLK",18,0)
  9604    N RET,SDI ,SDTYP,SDI EN
  9605   "RTN","SDE CLK",19,0)
  9606    N Y,SDECL K,NOW,NOW1
  9607   "RTN","SDE CLK",20,0)
  9608    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  9609   "RTN","SDE CLK",21,0)
  9610    K @SDECY
  9611   "RTN","SDE CLK",22,0)
  9612    S @SDECY@ (0)="T0003 0CODE^T000 30MESSAGE" _$C(30)
  9613   "RTN","SDE CLK",23,0)
  9614    I $G(REQ) ="" S RET= "0^Invalid  Request i nput"_$C(3 0,31) Q
  9615   "RTN","SDE CLK",24,0)
  9616    S SDTYP=$ P(REQ,"|", 1) I "ACER "'[SDTYP S  @SDECY@(1 )="0^Inval id Request  Type"_$C( 30,31) Q
  9617   "RTN","SDE CLK",25,0)
  9618    S SDIEN=$ P(REQ,"|", 2) I SDIEN '?1.N S @S DECY@(1)=" 0^Invalid  Request ID "_$C(30,31 ) Q
  9619   "RTN","SDE CLK",26,0)
  9620    S SDECLK= $G(^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)) I  $P(SDECLK, U,1)=DUZ S  @SDECY@(1 )="1^You a lready hav e the lock "_$C(30,31 ) Q  ;*zeb  3/15/18 r eturn this  result fo r user for  any $J
  9621   "RTN","SDE CLK",27,0)
  9622    L +^XTMP( "SDECLK"_S DTYP_"-"_S DIEN):5 I  '$T S @SDE CY@(1)="0^ "_$S(+SDEC LK:$P($G(^ VA(200,+SD ECLK,0)),U ),1:"Anoth er person" )_" is edi ting this  request."_ $C(30,31)  Q
  9623   "RTN","SDE CLK",28,0)
  9624    I SDECLK, $P(SDECLK, U,1)'=DUZ  S @SDECY@( 1)="0^"_$S (+SDECLK:$ P($G(^VA(2 00,+SDECLK ,0)),U),1: "Another p erson")_"  is editing  this requ est."_$C(3 0,31) L -^ XTMP("SDEC LK"_SDTYP_ "-"_SDIEN)  Q  ;*zeb  3/15/18 re spect lock s from oth er users
  9625   "RTN","SDE CLK",29,0)
  9626    ;unlock u ser's prev ious locks
  9627   "RTN","SDE CLK",30,0)
  9628    S SDI="SD ECLK" F  S  SDI=$O(^X TMP(SDI))  Q:SDI'["SD ECLK"  Q:S DI=""  D
  9629   "RTN","SDE CLK",31,0)
  9630    .I ($P($G (^XTMP(SDI ,1)),U,1)= DUZ)!($P($ G(^XTMP(SD I,1)),U,1) ="") D
  9631   "RTN","SDE CLK",32,0)
  9632    ..L +^XTM P(SDI):5 ; *zeb+1 3/1 5/18 fix h andling of  system lo cks
  9633   "RTN","SDE CLK",33,0)
  9634    ..Q:'$T
  9635   "RTN","SDE CLK",34,0)
  9636    ..K ^XTMP (SDI)
  9637   "RTN","SDE CLK",35,0)
  9638    ..L -^XTM P(SDI)
  9639   "RTN","SDE CLK",36,0)
  9640    S NOW=$$N OW^XLFDT,N OW1=$$FMAD D^XLFDT(NO W,1)
  9641   "RTN","SDE CLK",37,0)
  9642    S ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,0)=NOW 1_U_NOW_"^ VSE GUI Re quest Lock "
  9643   "RTN","SDE CLK",38,0)
  9644    S ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)=DUZ _U_$J
  9645   "RTN","SDE CLK",39,0)
  9646    S @SDECY@ (1)="1^Loc k successf ul"_$C(30, 31)
  9647   "RTN","SDE CLK",40,0)
  9648    L -^XTMP( "SDECLK"_S DTYP_"-"_S DIEN) ;*ze b 3/15/18  fix handli ng of syst em locks
  9649   "RTN","SDE CLK",41,0)
  9650    Q
  9651   "RTN","SDE CLK",42,0)
  9652    ;
  9653   "RTN","SDE CLK",43,0)
  9654   UNLOCK(SDE CY,REQ,FLG ) ; -- Unl ock reques t record
  9655   "RTN","SDE CLK",44,0)
  9656    ;INPUT:
  9657   "RTN","SDE CLK",45,0)
  9658    ; REQ = ( required)  - Appt Req uest type  - variable  pointer p ointer
  9659   "RTN","SDE CLK",46,0)
  9660    ;                               to one of  these file s:
  9661   "RTN","SDE CLK",47,0)
  9662    ;                           SDE C APPT REQ UEST    -  A|<APPT IE N>     A|1 23
  9663   "RTN","SDE CLK",48,0)
  9664    ;                           SD  WAIT LIST          -  E|<WL IEN>        E|1 23
  9665   "RTN","SDE CLK",49,0)
  9666    ;                           REQ UEST/CONSU LTATION -  C|<CONSULT  IEN>  C|1 23
  9667   "RTN","SDE CLK",50,0)
  9668    ;                           REC ALL REMIND ERS     -  R|^<RECALL  IEN>  R|1 23
  9669   "RTN","SDE CLK",51,0)
  9670    ; FLG = ( optional)  Unlock if  other job
  9671   "RTN","SDE CLK",52,0)
  9672    ;         0 = (defau lt) only u nlock if l ock belong s to curre nt user an d current  $J job
  9673   "RTN","SDE CLK",53,0)
  9674    ;         1 = unlock  even if t he lock do es not bel ong to cur rent user  and curren t $J job
  9675   "RTN","SDE CLK",54,0)
  9676    ;RETURN:
  9677   "RTN","SDE CLK",55,0)
  9678    ; A singl e entry in  the globa l array in dicating t he success  of unlock ing the re cord:
  9679   "RTN","SDE CLK",56,0)
  9680    ;   1. CO DE    -  1  if succes sful, or 0 ^Message i f could no t get lock
  9681   "RTN","SDE CLK",57,0)
  9682    ;   2. ME SSAGE -  M essage Tex t
  9683   "RTN","SDE CLK",58,0)
  9684    ;                  I f message  text="Not  your lock"  you can c all again  and send 1  as the 2n d input to  unlock an yway.
  9685   "RTN","SDE CLK",59,0)
  9686    N SDTYP,S DIEN
  9687   "RTN","SDE CLK",60,0)
  9688    N Y,SDECL K,NOW,NOW1 ,SDECUSER
  9689   "RTN","SDE CLK",61,0)
  9690    S SDECY=" ^TMP(""SDE C"","_$J_" )"
  9691   "RTN","SDE CLK",62,0)
  9692    K @SDECY
  9693   "RTN","SDE CLK",63,0)
  9694    S @SDECY@ (0)="T0003 0CODE^T000 30MESSAGE" _$C(30)
  9695   "RTN","SDE CLK",64,0)
  9696    I $G(REQ) ="" S @SDE CY@(1)="0^ Invalid Re quest inpu t"_$C(30,3 1) Q
  9697   "RTN","SDE CLK",65,0)
  9698    S SDTYP=$ P(REQ,"|", 1) I "ACER "'[SDTYP S  @SDECY@(1 )="0^Inval id Request  Type"_$C( 30,31) Q
  9699   "RTN","SDE CLK",66,0)
  9700    S SDIEN=$ P(REQ,"|", 2) I SDIEN '?1.N S @S DECY@(1)=" 0^Invalid  Request ID "_$C(30,31 ) Q
  9701   "RTN","SDE CLK",67,0)
  9702    L +^XTMP( "SDECLK"_S DTYP_"-"_S DIEN):5 I  '$T S @SDE CY@(1)="0^ Unable to  access loc k table."_ $C(30,31)  Q  ;*zeb 3 /15/18 fix  handling  of system  locks
  9703   "RTN","SDE CLK",68,0)
  9704    S SDECLK= $G(^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)) ;* zeb+2 3/15 /18 only d o this onc e
  9705   "RTN","SDE CLK",69,0)
  9706    S SDECUSE R=$P(SDECL K,U,1)
  9707   "RTN","SDE CLK",70,0)
  9708    I $G(FLG) '=1,(SDECU SER]""),(S DECUSER'=D UZ) S @SDE CY@(1)="1^ Not your l ock"_$C(30 ,31) L -^X TMP("SDECL K"_SDTYP_" -"_SDIEN)  Q  ;*zeb 3 /22/18 fix  handling  of system  locks
  9709   "RTN","SDE CLK",71,0)
  9710    ;the prev ious line  is a silen t failure  if the loc k doesn't  exist or i f someone  else has i t; they al ready have  been beha ving as if  they had  the lock
  9711   "RTN","SDE CLK",72,0)
  9712    ;this is  a "shouldn 't happen"  scenario  since the  user had t he lock be fore they  tried to g et rid of  it, but we  don't wan t to delet e the new  user
  9713   "RTN","SDE CLK",73,0)
  9714    K ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN) ;*zeb +1 3/15/18  change no de before  unlocking  it
  9715   "RTN","SDE CLK",74,0)
  9716    L -^XTMP( "SDECLK"_S DTYP_"-"_S DIEN)
  9717   "RTN","SDE CLK",75,0)
  9718    S @SDECY@ (1)="1^Unl ock succes sful"_$C(3 0,31)
  9719   "RTN","SDE CLK",76,0)
  9720    Q
  9721   "RTN","SDE CLK",77,0)
  9722    ;
  9723   "RTN","SDE CLK",78,0)
  9724    ;*zeb+tag  3/19/18 6 86 fix loc k handling
  9725   "RTN","SDE CLK",79,0)
  9726    ;-------- ---------- --
  9727   "RTN","SDE CLK",80,0)
  9728    ;UNLKALL  - Remove u sers' appo intment re quest lock s interact ively
  9729   "RTN","SDE CLK",81,0)
  9730    ;-------- ---------- --
  9731   "RTN","SDE CLK",82,0)
  9732   UNLKALL ;i nteractive  option to  remove a  user's loc ks
  9733   "RTN","SDE CLK",83,0)
  9734    N SDECUSE R,DIC,Y,U, SDNODE,SDL KDATA,SDLK USER,SDLKF ILE,SDLKIE N
  9735   "RTN","SDE CLK",84,0)
  9736    S Y="",U= "^"
  9737   "RTN","SDE CLK",85,0)
  9738    W !,"Rele ase all ap pointment  request lo cks held b y a user", !
  9739   "RTN","SDE CLK",86,0)
  9740    F  D  I Y =-1 Q
  9741   "RTN","SDE CLK",87,0)
  9742    .K DIC,Y
  9743   "RTN","SDE CLK",88,0)
  9744    .S DIC="^ VA(200,"
  9745   "RTN","SDE CLK",89,0)
  9746    .S DIC(0) ="AEQ"
  9747   "RTN","SDE CLK",90,0)
  9748    .S DIC("A ")="Whose  locks to r elease? "
  9749   "RTN","SDE CLK",91,0)
  9750    .D ^DIC
  9751   "RTN","SDE CLK",92,0)
  9752    .Q:(Y=-1)
  9753   "RTN","SDE CLK",93,0)
  9754    .S SDECUS ER=$P(Y,U, 1)
  9755   "RTN","SDE CLK",94,0)
  9756    .S SDNODE ="SDECLK"
  9757   "RTN","SDE CLK",95,0)
  9758    .F  S SDN ODE=$O(^XT MP(SDNODE) ) Q:SDNODE '["SDECLK"   D
  9759   "RTN","SDE CLK",96,0)
  9760    ..S SDLKD ATA=$G(^XT MP(SDNODE, 1))
  9761   "RTN","SDE CLK",97,0)
  9762    ..S SDLKU SER=$P(SDL KDATA,U,1)
  9763   "RTN","SDE CLK",98,0)
  9764    ..Q:SDLKU SER'=SDECU SER  ;only  want lock s for this  user
  9765   "RTN","SDE CLK",99,0)
  9766    ..K ^XTMP (SDNODE)
  9767   "RTN","SDE CLK",100,0 )
  9768    ..S SDLKF ILE=$E(SDN ODE,7)
  9769   "RTN","SDE CLK",101,0 )
  9770    ..S SDLKF ILE=$S(SDL KFILE="E": "EWL Reque st",SDLKFI LE="R":"Pt CSch Reque st",SDLKFI LE="C":"Co nsult",1:" APPT Reque st")
  9771   "RTN","SDE CLK",102,0 )
  9772    ..S SDLKI EN=$P(SDNO DE,"-",2)
  9773   "RTN","SDE CLK",103,0 )
  9774    ..W !,"Lo ck release d for "_SD LKFILE_" " _SDLKIEN
  9775   "RTN","SDE CLK",104,0 )
  9776    Q
  9777   "SEC","^DD ",409.86,4 09.863,5,9 )
  9778  
  9779   "SEC","^DI C",409.85, 409.85,0," AUDIT")
  9780    
  9781   "SEC","^DI C",409.85, 409.85,0," DD")
  9782    
  9783   "SEC","^DI C",409.85, 409.85,0," DEL")
  9784    
  9785   "SEC","^DI C",409.85, 409.85,0," LAYGO")
  9786    
  9787   "SEC","^DI C",409.85, 409.85,0," RD")
  9788    
  9789   "SEC","^DI C",409.85, 409.85,0," WR")
  9790    
  9791   "SEC","^DI C",409.86, 409.86,0," AUDIT")
  9792   @
  9793   "SEC","^DI C",409.86, 409.86,0," DD")
  9794   @
  9795   "SEC","^DI C",409.86, 409.86,0," DEL")
  9796   @
  9797   "SEC","^DI C",409.86, 409.86,0," LAYGO")
  9798   @
  9799   "SEC","^DI C",409.86, 409.86,0," RD")
  9800   @
  9801   "SEC","^DI C",409.86, 409.86,0," WR")
  9802   @
  9803   "SEC","^DI C",409.97, 409.97,0," AUDIT")
  9804   @
  9805   "SEC","^DI C",409.97, 409.97,0," DD")
  9806   @
  9807   "SEC","^DI C",409.97, 409.97,0," DEL")
  9808   @
  9809   "SEC","^DI C",409.97, 409.97,0," LAYGO")
  9810   @
  9811   "SEC","^DI C",409.97, 409.97,0," WR")
  9812   @
  9813   "VER")
  9814   8.0^22.2
  9815   "^DD",409. 85,409.85, 0)
  9816   FIELD^NL^4 8^44
  9817   "^DD",409. 85,409.85, 0,"DDA")
  9818   N
  9819   "^DD",409. 85,409.85, 0,"DT")
  9820   3180724
  9821   "^DD",409. 85,409.85, 0,"IX","B" ,409.85,.0 1)
  9822  
  9823   "^DD",409. 85,409.85, 0,"IX","C" ,409.85,2)
  9824  
  9825   "^DD",409. 85,409.85, 0,"IX","SC ",409.85,8 )
  9826  
  9827   "^DD",409. 85,409.85, 0,"IX","SC C",409.85, 8)
  9828  
  9829   "^DD",409. 85,409.85, 0,"NM","SD EC APPT RE QUEST")
  9830  
  9831   "^DD",409. 85,409.85, 0,"PT",409 .84,.22)
  9832  
  9833   "^DD",409. 85,409.85, 0,"PT",409 .85,43.8)
  9834  
  9835   "^DD",409. 85,409.85, 0,"PT",409 .852,.01)
  9836  
  9837   "^DD",409. 85,409.85, 0,"PT",409 .94,3)
  9838  
  9839   "^DD",409. 85,409.85, 0,"VRPK")
  9840   SD
  9841   "^DD",409. 85,409.85, .01,0)
  9842   PATIENT^RP 2^DPT(^0;1 ^Q
  9843   "^DD",409. 85,409.85, .01,1,0)
  9844   ^.1
  9845   "^DD",409. 85,409.85, .01,1,1,0)
  9846   409.85^B
  9847   "^DD",409. 85,409.85, .01,1,1,1)
  9848   S ^SDEC(40 9.85,"B",$ E(X,1,30), DA)=""
  9849   "^DD",409. 85,409.85, .01,1,1,2)
  9850   K ^SDEC(40 9.85,"B",$ E(X,1,30), DA)
  9851   "^DD",409. 85,409.85, .01,3)
  9852   Enter the  name of th e patient  for this A ppt Reques t.
  9853   "^DD",409. 85,409.85, .01,21,0)
  9854   ^.001^2^2^ 3150423^^
  9855   "^DD",409. 85,409.85, .01,21,1,0 )
  9856   This is th e name of  the patien t that is  to be on t he SDEC AP PT REQUEST  
  9857   "^DD",409. 85,409.85, .01,21,2,0 )
  9858   list.
  9859   "^DD",409. 85,409.85, .01,23,0)
  9860   ^.001^2^2^ 3150423^^^
  9861   "^DD",409. 85,409.85, .01,23,1,0 )
  9862   The patien t selectio n is from  the PATIEN T file #2.
  9863   "^DD",409. 85,409.85, .01,23,2,0 )
  9864   The SDEC A PPT REQUES T is 'this ' file #40 9.85.
  9865   "^DD",409. 85,409.85, .01,"DT")
  9866   3150625
  9867   "^DD",409. 85,409.85, .02,0)
  9868   PATIENT ST ATUS^Sa^N: NEW;E:ESTA BLISHED;^0 ;7^Q
  9869   "^DD",409. 85,409.85, .02,3)
  9870   Enter N or  NEW if th e patient  is a new p atient. En ter E or E STABLISHED  if this p atient has  been seen  in the pa st 24 mont hs.
  9871   "^DD",409. 85,409.85, .02,21,0)
  9872   ^.001^3^3^ 3150803^^
  9873   "^DD",409. 85,409.85, .02,21,1,0 )
  9874   This field  represent s the stat us of the  patient in  regards t o being a 
  9875   "^DD",409. 85,409.85, .02,21,2,0 )
  9876   'NEW' or ' ESTABLISHE D' patient .
  9877   "^DD",409. 85,409.85, .02,21,3,0 )
  9878   An ESTABLI SHED patie nt has bee n seen wit hin the pa st 24 mont hs.
  9879   "^DD",409. 85,409.85, .02,"AUDIT ")
  9880   y
  9881   "^DD",409. 85,409.85, .02,"AX")
  9882  
  9883   "^DD",409. 85,409.85, .02,"DT")
  9884   3161102
  9885   "^DD",409. 85,409.85, 1,0)
  9886   CREATE DAT E^D^^0;2^S  %DT="EX"  D ^%DT S X =Y K:Y<1 X
  9887   "^DD",409. 85,409.85, 1,3)
  9888   Enter the  date the r equest was  made.
  9889   "^DD",409. 85,409.85, 1,21,0)
  9890   ^^1^1^3150 423^
  9891   "^DD",409. 85,409.85, 1,21,1,0)
  9892   This field  represent s the date  that the  appointmen t request  was made.
  9893   "^DD",409. 85,409.85, 1,"DT")
  9894   3150625
  9895   "^DD",409. 85,409.85, 2,0)
  9896   INSTITUTIO N^R*P4'^DI C(4,^0;3^S  DIC("S")= "I $P(^(0) ,U,11)=""N "",$$TF^XU AF4(+Y)" D  ^DIC K DI C S DIC=DI E,X=+Y K:Y <0 X
  9897   "^DD",409. 85,409.85, 2,1,0)
  9898   ^.1
  9899   "^DD",409. 85,409.85, 2,1,1,0)
  9900   409.85^C
  9901   "^DD",409. 85,409.85, 2,1,1,1)
  9902   S ^SDEC(40 9.85,"C",$ E(X,1,30), DA)=""
  9903   "^DD",409. 85,409.85, 2,1,1,2)
  9904   K ^SDEC(40 9.85,"C",$ E(X,1,30), DA)
  9905   "^DD",409. 85,409.85, 2,1,1,"%D" ,0)
  9906   ^^2^2^3150 418^
  9907   "^DD",409. 85,409.85, 2,1,1,"%D" ,1,0)
  9908   This xref  is used to  speed up  the lookup  of Appoin tment Requ ests by 
  9909   "^DD",409. 85,409.85, 2,1,1,"%D" ,2,0)
  9910   INSTITUTIO N.
  9911   "^DD",409. 85,409.85, 2,1,1,"DT" )
  9912   3150418
  9913   "^DD",409. 85,409.85, 2,3)
  9914   Select an  Institutio n
  9915   "^DD",409. 85,409.85, 2,12)
  9916   Only allow  a Nationa l/Medical  Institutio n.
  9917   "^DD",409. 85,409.85, 2,12.1)
  9918   S DIC("S") ="I $P(^(0 ),U,11)="" N"",$$TF^X UAF4(+Y)"
  9919   "^DD",409. 85,409.85, 2,21,0)
  9920   ^^2^2^3150 423^
  9921   "^DD",409. 85,409.85, 2,21,1,0)
  9922   This field  represent s the Inst itution as signed to  identify t he specifi
  9923   "^DD",409. 85,409.85, 2,21,2,0)
  9924   location.
  9925   "^DD",409. 85,409.85, 2,"DT")
  9926   3150418
  9927   "^DD",409. 85,409.85, 4,0)
  9928   REQUEST TY PE^RS^APPT :APPOINTME NT;MOBILE: MOBILE;W2V A:WELCOME  TO VA;RTC: RETURN TO  CLINIC;VET ERAN:VETER AN;^0;5^Q
  9929   "^DD",409. 85,409.85, 4,3)
  9930   Select an  appointmen t request  type
  9931   "^DD",409. 85,409.85, 4,21,0)
  9932   ^.001^3^3^ 3170605^^^ ^
  9933   "^DD",409. 85,409.85, 4,21,1,0)
  9934   This field  represent s the type  of appoin tment requ est that b eing 
  9935   "^DD",409. 85,409.85, 4,21,2,0)
  9936   requested.
  9937   "^DD",409. 85,409.85, 4,21,3,0)
  9938   .
  9939   "^DD",409. 85,409.85, 4,"DT")
  9940   3180724
  9941   "^DD",409. 85,409.85, 5,0)
  9942   VAOS GUID^ F^^0;8^K:$ L(X)>32!($ L(X)<1) X
  9943   "^DD",409. 85,409.85, 5,1,0)
  9944   ^.1^^0
  9945   "^DD",409. 85,409.85, 5,3)
  9946   Answer mus t be 1-32  characters  in length .
  9947   "^DD",409. 85,409.85, 5,21,0)
  9948   ^^2^2^3180 321^
  9949   "^DD",409. 85,409.85, 5,21,1,0)
  9950   Stores poi nter to Or acle datab ase where  VAOS appoi ntment req uests are 
  9951   "^DD",409. 85,409.85, 5,21,2,0)
  9952   stored.
  9953   "^DD",409. 85,409.85, 5,"DT")
  9954   3180420
  9955   "^DD",409. 85,409.85, 8,0)
  9956   REQ SPECIF IC CLINIC^ RP44'a^SC( ^0;9^Q
  9957   "^DD",409. 85,409.85, 8,1,0)
  9958   ^.1
  9959   "^DD",409. 85,409.85, 8,1,1,0)
  9960   409.85^SC^ MUMPS
  9961   "^DD",409. 85,409.85, 8,1,1,1)
  9962   I $D(X) S  ^SDEC(409. 85,"SC",$P (^SC(X,0), U,1),DA)=" "
  9963   "^DD",409. 85,409.85, 8,1,1,2)
  9964   K ^SDEC(40 9.85,"SC", $P(^SC(X,0 ),U,1),DA)
  9965   "^DD",409. 85,409.85, 8,1,1,"%D" ,0)
  9966   ^^1^1^3150 418^
  9967   "^DD",409. 85,409.85, 8,1,1,"%D" ,1,0)
  9968   Sort and L ookup Appo intment Re quest by C linic name .
  9969   "^DD",409. 85,409.85, 8,1,1,"DT" )
  9970   3150418
  9971   "^DD",409. 85,409.85, 8,1,2,0)
  9972   409.85^SCC ^MUMPS
  9973   "^DD",409. 85,409.85, 8,1,2,1)
  9974   I $D(X) S  ^SDEC(409. 85,"SCC",$ P(^SDEC(40 9.85,DA,0) ,U,1),X,DA )=""
  9975   "^DD",409. 85,409.85, 8,1,2,2)
  9976   K ^SDEC(40 9.85,"SCC" ,$P(^SDEC( 409.85,DA, 0),U,1),X, DA)
  9977   "^DD",409. 85,409.85, 8,1,2,"%D" ,0)
  9978   ^^1^1^3150 418^
  9979   "^DD",409. 85,409.85, 8,1,2,"%D" ,1,0)
  9980   Sort/Looku p Appointm ent Reques t by Speci fic Clinic .
  9981   "^DD",409. 85,409.85, 8,1,2,"DT" )
  9982   3150418
  9983   "^DD",409. 85,409.85, 8,3)
  9984   Select a c linic
  9985   "^DD",409. 85,409.85, 8,21,0)
  9986   ^^4^4^3150 423^
  9987   "^DD",409. 85,409.85, 8,21,1,0)
  9988   This field  represent s the clin ic that th is appoint ment reque st is for.
  9989   "^DD",409. 85,409.85, 8,21,2,0)
  9990    
  9991   "^DD",409. 85,409.85, 8,21,3,0)
  9992   If the pat ient has b een assign ed to the  APPT REQUE ST list, e nter the
  9993   "^DD",409. 85,409.85, 8,21,4,0)
  9994   clinic tha t the pati ent is wai ting for a n appointm ent.
  9995   "^DD",409. 85,409.85, 8,"AUDIT")
  9996   y
  9997   "^DD",409. 85,409.85, 8,"AX")
  9998  
  9999   "^DD",409. 85,409.85, 8,"DT")
  10000   3161102
  10001   "^DD",409. 85,409.85, 8.5,0)
  10002   REQ SERVIC E/SPECIALT Y^*P40.7'a ^DIC(40.7, ^0;4^S DIC ("S")="I ( $P(^(0),U, 3)="""")!( $P($P(^(0) ,U,3),""." ",1)>$P($$ NOW^XLFDT, ""."",1))"  D ^DIC K  DIC S DIC= DIE,X=+Y K :Y<0 X
  10003   "^DD",409. 85,409.85, 8.5,3)
  10004   Select a C LINIC STOP
  10005   "^DD",409. 85,409.85, 8.5,12)
  10006   Allow only  active CL INIC STOP  entries.
  10007   "^DD",409. 85,409.85, 8.5,12.1)
  10008   S DIC("S") ="I ($P(^( 0),U,3)="" "")!($P($P (^(0),U,3) ,""."",1)> $P($$NOW^X LFDT,""."" ,1))"
  10009   "^DD",409. 85,409.85, 8.5,21,0)
  10010   ^.001^2^2^ 3150429^^
  10011   "^DD",409. 85,409.85, 8.5,21,1,0 )
  10012   This field  represent s the CLIN IC STOP co de (also r eferred to  as 
  10013   "^DD",409. 85,409.85, 8.5,21,2,0 )
  10014   SERVICE/SP ECIALTY) t hat is ass ociated wi th this ap pointment.
  10015   "^DD",409. 85,409.85, 8.5,"AUDIT ")
  10016   y
  10017   "^DD",409. 85,409.85, 8.5,"AX")
  10018  
  10019   "^DD",409. 85,409.85, 8.5,"DT")
  10020   3161102
  10021   "^DD",409. 85,409.85, 8.7,0)
  10022   REQ APPOIN TMENT TYPE ^P409.1'a^ SD(409.1,^ 0;6^Q
  10023   "^DD",409. 85,409.85, 8.7,3)
  10024   Select an  appointmen t type.
  10025   "^DD",409. 85,409.85, 8.7,21,0)
  10026   ^^1^1^3150 522^
  10027   "^DD",409. 85,409.85, 8.7,21,1,0 )
  10028   This field  represent s the appo intment ty pe for thi s request.
  10029   "^DD",409. 85,409.85, 8.7,"AUDIT ")
  10030   y
  10031   "^DD",409. 85,409.85, 8.7,"AX")
  10032  
  10033   "^DD",409. 85,409.85, 8.7,"DT")
  10034   3161102
  10035   "^DD",409. 85,409.85, 9,0)
  10036   ORIGINATIN G USER^P20 0'^VA(200, ^0;10^Q
  10037   "^DD",409. 85,409.85, 9,3)
  10038   Select a u ser
  10039   "^DD",409. 85,409.85, 9,21,0)
  10040   ^^1^1^3150 423^
  10041   "^DD",409. 85,409.85, 9,21,1,0)
  10042   This is th e user tha t entered  this appoi ntment req uest.
  10043   "^DD",409. 85,409.85, 9,"DT")
  10044   3150418
  10045   "^DD",409. 85,409.85, 9.5,0)
  10046   DATE/TIME  ENTERED^D^ ^3;4^S %DT ="ETX" D ^ %DT S X=Y  K:Y<1 X
  10047   "^DD",409. 85,409.85, 9.5,3)
  10048   Enter a da te. Time i s optional .
  10049   "^DD",409. 85,409.85, 9.5,21,0)
  10050   ^^2^2^3150 423^
  10051   "^DD",409. 85,409.85, 9.5,21,1,0 )
  10052   This is th e Date and  optional  Time that  this appoi ntment req uest entry  
  10053   "^DD",409. 85,409.85, 9.5,21,2,0 )
  10054   was entere d.
  10055   "^DD",409. 85,409.85, 9.5,"DT")
  10056   3150418
  10057   "^DD",409. 85,409.85, 10,0)
  10058   PRIORITY^R S^A:ASAP;F :FUTURE;^0 ;11^Q
  10059   "^DD",409. 85,409.85, 10,3)
  10060   Enter A or  ASAP to s et the pri ority as ' As Soon As  Possible' . Enter F  or FUTURE  to set the  priority  as Future.
  10061   "^DD",409. 85,409.85, 10,21,0)
  10062   ^^7^7^3150 423^
  10063   "^DD",409. 85,409.85, 10,21,1,0)
  10064   This repre sents the  appointmen t priority
  10065   "^DD",409. 85,409.85, 10,21,2,0)
  10066    
  10067   "^DD",409. 85,409.85, 10,21,3,0)
  10068   Future ind icates tha t the pati ent needs  an appoint ment in th
  10069   "^DD",409. 85,409.85, 10,21,4,0)
  10070   future and  a desired  date will  be entere d by the u ser.  ASAP  indicates  
  10071   "^DD",409. 85,409.85, 10,21,5,0)
  10072   that the p atient nee ds an appo intment be fore the c urrently n ext availa ble 
  10073   "^DD",409. 85,409.85, 10,21,6,0)
  10074   appointmen t (as soon  as a slot  opens).   The desire d date for  ASAP will  be 
  10075   "^DD",409. 85,409.85, 10,21,7,0)
  10076   set by the  system as  the curre nt date.
  10077   "^DD",409. 85,409.85, 10,"DT")
  10078   3150418
  10079   "^DD",409. 85,409.85, 10.5,0)
  10080   ENROLLMENT  PRIORITY^ S^1:GROUP  1;2:GROUP  2;3:GROUP  3;4:GROUP  4;5:GROUP  5;6:GROUP  6;7:GROUP  7;8:GROUP  8;^0;25^Q
  10081   "^DD",409. 85,409.85, 10.5,3)
  10082   Select an  enrollment  priority.
  10083   "^DD",409. 85,409.85, 10.5,21,0)
  10084   ^^2^2^3150 423^
  10085   "^DD",409. 85,409.85, 10.5,21,1, 0)
  10086   The ENROLL MENT PRIOR ITY field  represents  the appoi ntment Enr ollment 
  10087   "^DD",409. 85,409.85, 10.5,21,2, 0)
  10088   Priority.
  10089   "^DD",409. 85,409.85, 10.5,"DT")
  10090   3150418
  10091   "^DD",409. 85,409.85, 11,0)
  10092   REQUESTED  BY^RSa^1:P ROVIDER;2: PATIENT;^0 ;12^Q
  10093   "^DD",409. 85,409.85, 11,3)
  10094   Enter 1 or  PROVIDER  if the req uestor was  a provide r. Enter 2  or PATIEN T if the r equestor w as the pat ient.
  10095   "^DD",409. 85,409.85, 11,21,0)
  10096   ^.001^2^2^ 3150423^^
  10097   "^DD",409. 85,409.85, 11,21,1,0)
  10098   This field  identifie s who requ ested the  appointmen t - the pa tient or a  
  10099   "^DD",409. 85,409.85, 11,21,2,0)
  10100   provider.
  10101   "^DD",409. 85,409.85, 11,"AUDIT" )
  10102   y
  10103   "^DD",409. 85,409.85, 11,"AX")
  10104  
  10105   "^DD",409. 85,409.85, 11,"DT")
  10106   3161102
  10107   "^DD",409. 85,409.85, 12,0)
  10108   PROVIDER^P 200'a^VA(2 00,^0;13^Q
  10109   "^DD",409. 85,409.85, 12,3)
  10110   Select the  provider  that reque sted the p atient's a ppointment .
  10111   "^DD",409. 85,409.85, 12,21,0)
  10112   ^^2^2^3150 423^
  10113   "^DD",409. 85,409.85, 12,21,1,0)
  10114   This field  represent s the prov ider that  requested  the appoin tment if t he 
  10115   "^DD",409. 85,409.85, 12,21,2,0)
  10116   appointmen t was requ ested by a  provider.
  10117   "^DD",409. 85,409.85, 12,"AUDIT" )
  10118   y
  10119   "^DD",409. 85,409.85, 12,"AX")
  10120  
  10121   "^DD",409. 85,409.85, 12,"DT")
  10122   3161102
  10123   "^DD",409. 85,409.85, 13,0)
  10124   SCHEDULED  DATE OF AP PT^D^^0;23 ^S %DT="ET X" D ^%DT  S X=Y K:Y< 1 X
  10125   "^DD",409. 85,409.85, 13,3)
  10126   Enter the  date and o ptional ti me of the  scheduled  appointmen t for this  request.
  10127   "^DD",409. 85,409.85, 13,21,0)
  10128   ^^3^3^3150 423^
  10129   "^DD",409. 85,409.85, 13,21,1,0)
  10130   This is th e appointm ent date a nd optiona l time sch eduled for  the patie nt.
  10131   "^DD",409. 85,409.85, 13,21,2,0)
  10132   This appoi ntment may  be used a s a reason  for closi ng 'this'  appointmen
  10133   "^DD",409. 85,409.85, 13,21,3,0)
  10134   request.
  10135   "^DD",409. 85,409.85, 13,23,0)
  10136   ^.001^1^1^ 3150423^^^ ^
  10137   "^DD",409. 85,409.85, 13,23,1,0)
  10138   This is a  date/time  of the sch eduled app ointment r elated to  this entry .
  10139   "^DD",409. 85,409.85, 13,"DT")
  10140   3150418
  10141   "^DD",409. 85,409.85, 13.1,0)
  10142   DATE APPT.  MADE^D^^S DAPT;1^S % DT="EX" D  ^%DT S X=Y  K:Y<1 X
  10143   "^DD",409. 85,409.85, 13.1,3)
  10144   Enter the  date that  the appoin tment was  made.
  10145   "^DD",409. 85,409.85, 13.1,21,0)
  10146   ^.001^1^1^ 3150423^^^ ^
  10147   "^DD",409. 85,409.85, 13.1,21,1, 0)
  10148   This is th e date the  appointme nt was cre ated.
  10149   "^DD",409. 85,409.85, 13.1,23,0)
  10150   ^.001^2^2^ 3150423^^^ ^
  10151   "^DD",409. 85,409.85, 13.1,23,1, 0)
  10152   The Appoin tment Crea tion Date.  It corres ponds to t he DATE AP PT. MADE 
  10153   "^DD",409. 85,409.85, 13.1,23,2, 0)
  10154   field (#20 ) of the A PPOINTMENT  multiple  (#1900) in  the PATIE NT file (# 2).
  10155   "^DD",409. 85,409.85, 13.1,"DT")
  10156   3150423
  10157   "^DD",409. 85,409.85, 13.2,0)
  10158   APPT CLINI C^P44'^SC( ^SDAPT;2^Q
  10159   "^DD",409. 85,409.85, 13.2,3)
  10160   Select the  clinic th at this ap pointment  is schedul ed for.
  10161   "^DD",409. 85,409.85, 13.2,21,0)
  10162   ^^1^1^3150 423^
  10163   "^DD",409. 85,409.85, 13.2,21,1, 0)
  10164   This is th e clinic t his appoin tment was  created fo r.
  10165   "^DD",409. 85,409.85, 13.2,23,0)
  10166   ^.001^1^1^ 3150423^^^
  10167   "^DD",409. 85,409.85, 13.2,23,1, 0)
  10168   Pointer to  the HOSPI TAL LOCATI ON file (# 44) of the  related a ppointment .
  10169   "^DD",409. 85,409.85, 13.2,"DT")
  10170   3150418
  10171   "^DD",409. 85,409.85, 13.3,0)
  10172   APPT INSTI TUTION^P4' ^DIC(4,^SD APT;3^Q
  10173   "^DD",409. 85,409.85, 13.3,3)
  10174   Select an  Institutio n.
  10175   "^DD",409. 85,409.85, 13.3,21,0)
  10176   ^^1^1^3150 423^
  10177   "^DD",409. 85,409.85, 13.3,21,1, 0)
  10178   This is th e institut ion the cl inic appoi ntment bel ongs to.
  10179   "^DD",409. 85,409.85, 13.3,23,0)
  10180   ^.001^2^2^ 3150423^^^ ^
  10181   "^DD",409. 85,409.85, 13.3,23,1, 0)
  10182   A pointer  from the H OSPITAL LO CATION fil e of the s cheduled a ppointment  to 
  10183   "^DD",409. 85,409.85, 13.3,23,2, 0)
  10184   the INSTIT UTION file  (#4).
  10185   "^DD",409. 85,409.85, 13.3,"DT")
  10186   3150418
  10187   "^DD",409. 85,409.85, 13.4,0)
  10188   APPT STOP  CODE^P40.7 '^DIC(40.7 ,^SDAPT;4^ Q
  10189   "^DD",409. 85,409.85, 13.4,3)
  10190   Select a C LINIC STOP  code.
  10191   "^DD",409. 85,409.85, 13.4,21,0)
  10192   ^^3^3^3150 423^
  10193   "^DD",409. 85,409.85, 13.4,21,1, 0)
  10194   This is th e stop cod e/specialt y of a cli nic associ ated with  the patien
  10195   "^DD",409. 85,409.85, 13.4,21,2, 0)
  10196   appointmen t. This ma y be diffe rent that  the STOP C ODE define d in the R EQ 
  10197   "^DD",409. 85,409.85, 13.4,21,3, 0)
  10198   SERVICE/SP ECIALTY fi eld.
  10199   "^DD",409. 85,409.85, 13.4,23,0)
  10200   ^.001^2^2^ 3150423^^^
  10201   "^DD",409. 85,409.85, 13.4,23,1, 0)
  10202   This is th e primary  STOP CODE  Number poi nter to th e CLINIC S TOP file 
  10203   "^DD",409. 85,409.85, 13.4,23,2, 0)
  10204   (#40.7).
  10205   "^DD",409. 85,409.85, 13.4,"DT")
  10206   3150418
  10207   "^DD",409. 85,409.85, 13.5,0)
  10208   APPT CREDI T STOP COD E^P40.7'^D IC(40.7,^S DAPT;5^Q
  10209   "^DD",409. 85,409.85, 13.5,3)
  10210   Select a C LINIC STOP  code.
  10211   "^DD",409. 85,409.85, 13.5,21,0)
  10212   ^^2^2^3150 423^
  10213   "^DD",409. 85,409.85, 13.5,21,1, 0)
  10214   This is th e credit s top code o ptionally  assigned t o the HOSP ITAL LOCAT ION 
  10215   "^DD",409. 85,409.85, 13.5,21,2, 0)
  10216   file assoc iated with  the sched uled appoi ntment.
  10217   "^DD",409. 85,409.85, 13.5,23,0)
  10218   ^.001^4^4^ 3150423^^^
  10219   "^DD",409. 85,409.85, 13.5,23,1, 0)
  10220   This is th e secondar y (optiona l) Stop Co de Number  pointer to  the CLINI
  10221   "^DD",409. 85,409.85, 13.5,23,2, 0)
  10222   STOP file  (#40.7).
  10223   "^DD",409. 85,409.85, 13.5,23,3, 0)
  10224   This stop  code is as signed to  the HOSPIT AL LOCATIO N file ass ociated wi th 
  10225   "^DD",409. 85,409.85, 13.5,23,4, 0)
  10226   the schedu led appoin tment.
  10227   "^DD",409. 85,409.85, 13.5,"DT")
  10228   3150418
  10229   "^DD",409. 85,409.85, 13.6,0)
  10230   APPT STATI ON NUMBER^ F^^SDAPT;6 ^K:$L(X)>6 !($L(X)<3)  X
  10231   "^DD",409. 85,409.85, 13.6,3)
  10232   Answer mus t be 3-6 c haracters  in length.
  10233   "^DD",409. 85,409.85, 13.6,21,0)
  10234   ^^2^2^3150 423^
  10235   "^DD",409. 85,409.85, 13.6,21,1, 0)
  10236   This is th e 3-digit  station nu mber assig ned to the  facility  plus up to  3 
  10237   "^DD",409. 85,409.85, 13.6,21,2, 0)
  10238   optional m odifiers.
  10239   "^DD",409. 85,409.85, 13.6,23,0)
  10240   ^.001^2^2^ 3150423^^^
  10241   "^DD",409. 85,409.85, 13.6,23,1, 0)
  10242   This is th e STATION  NUMBER fie ld (#99) o f the INST ITUTION fi le (#4) 
  10243   "^DD",409. 85,409.85, 13.6,23,2, 0)
  10244   associated  with the  scheduled  appointmen t.
  10245   "^DD",409. 85,409.85, 13.6,"DT")
  10246   3150418
  10247   "^DD",409. 85,409.85, 13.7,0)
  10248   APPT CLERK ^P200'^VA( 200,^SDAPT ;7^Q
  10249   "^DD",409. 85,409.85, 13.7,3)
  10250   Select an  Appt Clerk
  10251   "^DD",409. 85,409.85, 13.7,21,0)
  10252   ^^1^1^3150 423^
  10253   "^DD",409. 85,409.85, 13.7,21,1, 0)
  10254   This is th e person w ho assigne d the appo intment to  the REQUE ST entry.
  10255   "^DD",409. 85,409.85, 13.7,23,0)
  10256   ^^2^2^3150 423^
  10257   "^DD",409. 85,409.85, 13.7,23,1, 0)
  10258   This is a  pointer to  the NEW P ERSON file  and it re presents a  person wh
  10259   "^DD",409. 85,409.85, 13.7,23,2, 0)
  10260   entered th e schedule d appointm ent into t he Appoint ment Reque st.
  10261   "^DD",409. 85,409.85, 13.7,"DT")
  10262   3150418
  10263   "^DD",409. 85,409.85, 13.8,0)
  10264   APPT STATU S^S^R:Sche duled/Kept ;I:Inpatie nt;NS:No-S how;NSR:No _Show, Res cheduled;C P:Canceled  by Patien t;CPR:Canc eled by Pa tient, Res cheduled;C C:Canceled  by Clinic ;CCR:Cance led by Cli nic, Resch eduled;NT: No Action  Taken;^SDA PT;8^Q
  10265   "^DD",409. 85,409.85, 13.8,3)
  10266   Select an  Appt Statu s
  10267   "^DD",409. 85,409.85, 13.8,21,0)
  10268   ^^2^2^3150 423^
  10269   "^DD",409. 85,409.85, 13.8,21,1, 0)
  10270   This field  identifie s the stat us of the  appointmen t that is  associated  
  10271   "^DD",409. 85,409.85, 13.8,21,2, 0)
  10272   with this  appointmen t request.
  10273   "^DD",409. 85,409.85, 13.8,"DT")
  10274   3150418
  10275   "^DD",409. 85,409.85, 14,0)
  10276   SERVICE CO NNECTED PE RCENTAGE^N J3,0^^SC;1 ^K:+X'=X!( X>100)!(X< 0)!(X?.E1" ."1N.N) X
  10277   "^DD",409. 85,409.85, 14,3)
  10278   Type a num ber betwee n 0 and 10 0, 0 decim al digits.
  10279   "^DD",409. 85,409.85, 14,21,0)
  10280   ^^2^2^3150 423^
  10281   "^DD",409. 85,409.85, 14,21,1,0)
  10282   The SERVIC E CONNECTE D PERCENTA GE is used  to determ ine the se rvice 
  10283   "^DD",409. 85,409.85, 14,21,2,0)
  10284   connected  priority.
  10285   "^DD",409. 85,409.85, 14,"DT")
  10286   3150418
  10287   "^DD",409. 85,409.85, 15,0)
  10288   SERVICE CO NNECTED PR IORITY^S^0 :NO;1:YES; ^SC;2^Q
  10289   "^DD",409. 85,409.85, 15,3)
  10290   Enter 0 or  NO if the  appointme nt does no t get a Se rvice Conn ected Prio rity. Ente r 1 or YES  if the ap pointment  DOES get a  Service C onnected P riority.
  10291   "^DD",409. 85,409.85, 15,21,0)
  10292   ^^2^2^3150 423^
  10293   "^DD",409. 85,409.85, 15,21,1,0)
  10294   This field  represent s whether  the appoin tment has  a Service  Connected 
  10295   "^DD",409. 85,409.85, 15,21,2,0)
  10296   Priority.
  10297   "^DD",409. 85,409.85, 15,"DT")
  10298   3150418
  10299   "^DD",409. 85,409.85, 19,0)
  10300   DATE DISPO SITIONED^D ^^DIS;1^S  %DT="EX" D  ^%DT S X= Y K:Y<1 X
  10301   "^DD",409. 85,409.85, 19,3)
  10302   Enter a da te.
  10303   "^DD",409. 85,409.85, 19,21,0)
  10304   ^.001^2^2^ 3150423^^
  10305   "^DD",409. 85,409.85, 19,21,1,0)
  10306   This repre sents the  date that  the patien t is dispo sitioned f rom the 
  10307   "^DD",409. 85,409.85, 19,21,2,0)
  10308   Appointmen t Request  list.
  10309   "^DD",409. 85,409.85, 19,"DT")
  10310   3150423
  10311   "^DD",409. 85,409.85, 20,0)
  10312   DISPOSITIO NED BY^P20 0'^VA(200, ^DIS;2^Q
  10313   "^DD",409. 85,409.85, 20,3)
  10314   Select a u ser/provid er
  10315   "^DD",409. 85,409.85, 20,21,0)
  10316   ^^2^2^3150 423^
  10317   "^DD",409. 85,409.85, 20,21,1,0)
  10318   This repre sents the  user who d isposition ed the pat ient from  the 
  10319   "^DD",409. 85,409.85, 20,21,2,0)
  10320   appointmen t request  list.
  10321   "^DD",409. 85,409.85, 20,"DT")
  10322   3150418
  10323   "^DD",409. 85,409.85, 21,0)
  10324   DISPOSITIO N^S^D:DEAT H;NC:REMOV ED/NON-VA  CARE;SA:RE MOVED/SCHE DULED-ASSI GNED;CC:RE MOVED/VA C ONTRACT CA RE;NN:REMO VED/NO LON GER NECESS ARY;ER:ENT ERED IN ER ROR;TR:TRA NSFERRED T O EWL;CL:C HANGED CLI NIC;MC:MRT C PARENT C LOSED;^DIS ;3^Q
  10325   "^DD",409. 85,409.85, 21,3)
  10326   Select a d isposition
  10327   "^DD",409. 85,409.85, 21,21,0)
  10328   ^.001^2^2^ 3180725^^^
  10329   "^DD",409. 85,409.85, 21,21,1,0)
  10330   This field  represent s the reas on this pa tient has  been dispo sitioned f rom 
  10331   "^DD",409. 85,409.85, 21,21,2,0)
  10332   this appoi ntment Req uest.
  10333   "^DD",409. 85,409.85, 21,"DT")
  10334   3180725
  10335   "^DD",409. 85,409.85, 21.1,0)
  10336   DISPOSITIO N CLOSED B Y CLEANUP^ S^Y:YES;N: NO;^DIS;4^ Q
  10337   "^DD",409. 85,409.85, 21.1,3)
  10338   Enter Yes  if Disposi tion was d ue to Open  Request b eing Close d with Cle anup Utili ty.  Other wise enter  No.
  10339   "^DD",409. 85,409.85, 21.1,21,0)
  10340   ^^2^2^3161 207^
  10341   "^DD",409. 85,409.85, 21.1,21,1, 0)
  10342   Enter Yes  if Disposi tion is re lated to O pen Reques t becoming  Closed du
  10343   "^DD",409. 85,409.85, 21.1,21,2, 0)
  10344   to the run ning of Cl eanup Util ity.  Othe rwise ente r No.
  10345   "^DD",409. 85,409.85, 21.1,"DT")
  10346   3161207
  10347   "^DD",409. 85,409.85, 22,0)
  10348   CID/PREFER RED DATE O F APPT^RD^ ^0;16^S %D T="EX" D ^ %DT S X=Y  K:Y<1 X
  10349   "^DD",409. 85,409.85, 22,3)
  10350   Enter the  CID/Prefer red Date o f this app ointment.
  10351   "^DD",409. 85,409.85, 22,21,0)
  10352   ^^8^8^3150 423^
  10353   "^DD",409. 85,409.85, 22,21,1,0)
  10354   This CID/P REFERRED D ATE OF APP T field re presents t he date th at the 
  10355   "^DD",409. 85,409.85, 22,21,2,0)
  10356   patient or  provider  has reques ted for th e appointm ent.
  10357   "^DD",409. 85,409.85, 22,21,3,0)
  10358    
  10359   "^DD",409. 85,409.85, 22,21,4,0)
  10360    
  10361   "^DD",409. 85,409.85, 22,21,5,0)
  10362   If the pri ority is A SAP, this  is the dat e the pati ent is pla ced on the
  10363   "^DD",409. 85,409.85, 22,21,6,0)
  10364   REQUEST Li st (SCHEDU LING).
  10365   "^DD",409. 85,409.85, 22,21,7,0)
  10366   If the pri ority is F UTURE, the  user ente rs the dat e that the  
  10367   "^DD",409. 85,409.85, 22,21,8,0)
  10368   patient/pr ovider is  requesting  that the  appointmen t is to be  scheduled .
  10369   "^DD",409. 85,409.85, 22,"DT")
  10370   3150423
  10371   "^DD",409. 85,409.85, 23,0)
  10372   CURRENT ST ATUS^Sa^O: OPEN;C:CLO SED;^0;17^ Q
  10373   "^DD",409. 85,409.85, 23,3)
  10374   Enter O or  OPEN if t he APPT Re quest entr y is open.  Enter C o r CLOSED i f the APPT  Request e ntry is cl osed.
  10375   "^DD",409. 85,409.85, 23,21,0)
  10376   ^^3^3^3150 804^
  10377   "^DD",409. 85,409.85, 23,21,1,0)
  10378   This field  represent s the curr ent status  of this a ppointment  request.
  10379   "^DD",409. 85,409.85, 23,21,2,0)
  10380   If the APP T Request  entry is d isposition ed, the st atus = 
  10381   "^DD",409. 85,409.85, 23,21,3,0)
  10382   CLOSED, ot herwise, t he APPT Re quest entr y status =  OPEN.
  10383   "^DD",409. 85,409.85, 23,"AUDIT" )
  10384   y
  10385   "^DD",409. 85,409.85, 23,"DT")
  10386   3161208
  10387   "^DD",409. 85,409.85, 25,0)
  10388   COMMENTS^F a^^0;18^K: $L(X)>80!( $L(X)<1) X
  10389   "^DD",409. 85,409.85, 25,3)
  10390   Answer mus t be 1-80  characters  in length .
  10391   "^DD",409. 85,409.85, 25,21,0)
  10392   ^.001^7^7^ 3160104^^
  10393   "^DD",409. 85,409.85, 25,21,1,0)
  10394   This Free  Text field  represent s informat ion relate d to the a ppointment  
  10395   "^DD",409. 85,409.85, 25,21,2,0)
  10396   request.
  10397   "^DD",409. 85,409.85, 25,21,3,0)
  10398    
  10399   "^DD",409. 85,409.85, 25,21,4,0)
  10400    
  10401   "^DD",409. 85,409.85, 25,21,5,0)
  10402   example: s ee progres s note dat e 5/01/02  this would  direct th e scheduli ng 
  10403   "^DD",409. 85,409.85, 25,21,6,0)
  10404   clerk to a  note that  may conta in lab, xr ay orders  that need  to be 
  10405   "^DD",409. 85,409.85, 25,21,7,0)
  10406   completed  prior to t he appoint ment.
  10407   "^DD",409. 85,409.85, 25,"AUDIT" )
  10408   y
  10409   "^DD",409. 85,409.85, 25,"AX")
  10410  
  10411   "^DD",409. 85,409.85, 25,"DT")
  10412   3161102
  10413   "^DD",409. 85,409.85, 41,0)
  10414   MULTIPLE A PPOINTMENT  RTC^S^0:N O;1:YES;^3 ;1^Q
  10415   "^DD",409. 85,409.85, 41,3)
  10416   Select 1 o r YES if m ultiple ap pointments  are neede d. Select  0 or NO if  multiple  appointmen ts are not  needed.
  10417   "^DD",409. 85,409.85, 41,21,0)
  10418   ^^7^7^3150 423^
  10419   "^DD",409. 85,409.85, 41,21,1,0)
  10420   This field  represent s that Mul tiple Appo intments n eed to be  made.
  10421   "^DD",409. 85,409.85, 41,21,2,0)
  10422    
  10423   "^DD",409. 85,409.85, 41,21,3,0)
  10424   If set to  NO (0 zero ), Multipl e Appointm ent (Retur n to Clini c) are not  
  10425   "^DD",409. 85,409.85, 41,21,4,0)
  10426   scheduled.
  10427   "^DD",409. 85,409.85, 41,21,5,0)
  10428    
  10429   "^DD",409. 85,409.85, 41,21,6,0)
  10430   If set to  YES (1), M ultiple Ap pointment  (Return to  Clinic) c ould be 
  10431   "^DD",409. 85,409.85, 41,21,7,0)
  10432   scheduled.
  10433   "^DD",409. 85,409.85, 41,"DT")
  10434   3150418
  10435   "^DD",409. 85,409.85, 42,0)
  10436   MULT APPT  RTC INTERV AL^NJ3,0^^ 3;2^K:+X'= X!(X>365)! (X<0)!(X?. E1"."1N.N)  X
  10437   "^DD",409. 85,409.85, 42,3)
  10438   Type a num ber betwee n 0 and 36 5, 0 decim al digits.
  10439   "^DD",409. 85,409.85, 42,21,0)
  10440   ^^2^2^3150 423^
  10441   "^DD",409. 85,409.85, 42,21,1,0)
  10442   The MULT A PPT RTC IN TERVAL rep resents th e number o f Days bet ween 
  10443   "^DD",409. 85,409.85, 42,21,2,0)
  10444   appointmen ts.
  10445   "^DD",409. 85,409.85, 42,"DT")
  10446   3150418
  10447   "^DD",409. 85,409.85, 43,0)
  10448   MULT APPT  NUMBER^NJ3 ,0^^3;3^K: +X'=X!(X>1 00)!(X<0)! (X?.E1"."1 N.N) X
  10449   "^DD",409. 85,409.85, 43,3)
  10450   Type a num ber betwee n 0 and 10 0, 0 decim al digits.
  10451   "^DD",409. 85,409.85, 43,21,0)
  10452   ^^1^1^3150 423^
  10453   "^DD",409. 85,409.85, 43,21,1,0)
  10454   This field  represent s the numb er of appo intments t hat may be  needed.
  10455   "^DD",409. 85,409.85, 43,"DT")
  10456   3150418
  10457   "^DD",409. 85,409.85, 43.3,0)
  10458   MULT APPTS  MADE^409. 852P^^2;0
  10459   "^DD",409. 85,409.85, 43.3,21,0)
  10460   ^.001^2^2^ 3160105^^^
  10461   "^DD",409. 85,409.85, 43.3,21,1, 0)
  10462   These are  the MRTC A ppointment s that hav e been mad e for this  appointme nt 
  10463   "^DD",409. 85,409.85, 43.3,21,2, 0)
  10464   request.
  10465   "^DD",409. 85,409.85, 43.3,23,0)
  10466   ^.001^1^1^ 3160105^^^
  10467   "^DD",409. 85,409.85, 43.3,23,1, 0)
  10468   These appo intments a re pointer s to the S DEC APPOIN TMENT file  409.84.
  10469   "^DD",409. 85,409.85, 43.5,0)
  10470   MRTC CALC  PREF DATES ^409.851D^ ^5;0
  10471   "^DD",409. 85,409.85, 43.5,21,0)
  10472   ^^2^2^3150 423^
  10473   "^DD",409. 85,409.85, 43.5,21,1, 0)
  10474   This multi ple field  holds the  dates that  are reque sted for m ultiple 
  10475   "^DD",409. 85,409.85, 43.5,21,2, 0)
  10476   appointmen ts.
  10477   "^DD",409. 85,409.85, 43.8,0)
  10478   PARENT REQ UEST^P409. 85'^SDEC(4 09.85,^3;5 ^Q
  10479   "^DD",409. 85,409.85, 43.8,3)
  10480   Select an  appointmen t request
  10481   "^DD",409. 85,409.85, 43.8,21,0)
  10482   ^^1^1^3160 105^
  10483   "^DD",409. 85,409.85, 43.8,21,1, 0)
  10484   This field  represent s the pare nt appoint ment reque st.
  10485   "^DD",409. 85,409.85, 43.8,"DT")
  10486   3160105
  10487   "^DD",409. 85,409.85, 44,0)
  10488   PATIENT CO NTACT^409. 8544D^^4;0
  10489   "^DD",409. 85,409.85, 44,21,0)
  10490   ^.001^1^1^ 3150902^^^ ^
  10491   "^DD",409. 85,409.85, 44,21,1,0)
  10492   This multi ple record s the pati ent contac t events.
  10493   "^DD",409. 85,409.85, 45,0)
  10494   VS AUDIT^4 09.8545DA^ ^6;0
  10495   "^DD",409. 85,409.85, 45,21,0)
  10496   ^^2^2^3151 201^
  10497   "^DD",409. 85,409.85, 45,21,1,0)
  10498   This multi ple is lik e an audit  trail for  specific  fields and  is used b
  10499   "^DD",409. 85,409.85, 45,21,2,0)
  10500   VistA Sche duling GUI .
  10501   "^DD",409. 85,409.85, 46,0)
  10502   ORDER ID^N J11,0^^7;1 ^K:+X'=X!( X>99999999 999)!(X<1) !(X?.E1"." 1N.N) X
  10503   "^DD",409. 85,409.85, 46,3)
  10504   Type a num ber betwee n 1 and 99 999999999,  0 decimal  digits.
  10505   "^DD",409. 85,409.85, 46,21,0)
  10506   ^.001^1^1^ 3171107^^^
  10507   "^DD",409. 85,409.85, 46,21,1,0)
  10508   This field  is the HL 7 Message  ID used fo r Return t o Clinic o rders.
  10509   "^DD",409. 85,409.85, 46,23,0)
  10510   ^.001^1^1^ 3171107^^^
  10511   "^DD",409. 85,409.85, 46,23,1,0)
  10512   Message ID  number fr om the ORD ER (#100)  file.
  10513   "^DD",409. 85,409.85, 46,"DT")
  10514   3170619
  10515   "^DD",409. 85,409.85, 47,0)
  10516   TIME SENSI TIVE^S^0:N O;1:YES;^7 ;2^Q
  10517   "^DD",409. 85,409.85, 47,3)
  10518   Select 'YE S' or 'NO'
  10519   "^DD",409. 85,409.85, 47,21,0)
  10520   ^.001^1^1^ 3171107^^^
  10521   "^DD",409. 85,409.85, 47,21,1,0)
  10522   Used to in dicate tim e sensitiv e Return t o Clinic o rder.
  10523   "^DD",409. 85,409.85, 47,23,0)
  10524   ^.001^1^1^ 3171107^^^
  10525   "^DD",409. 85,409.85, 47,23,1,0)
  10526   Set of cod es '0' for  'NO' and  '1' for 'Y ES'.
  10527   "^DD",409. 85,409.85, 47,"DT")
  10528   3171107
  10529   "^DD",409. 85,409.85, 48,0)
  10530   PREREQUISI TE^409.854 8^^8;0
  10531   "^DD",409. 85,409.85, 48,21,0)
  10532   ^.001^1^1^ 3171107^^^ ^
  10533   "^DD",409. 85,409.85, 48,21,1,0)
  10534   A list of  all prereq uisites as sociated w ith this R eturn to C linic orde r.
  10535   "^DD",409. 85,409.85, 48,23,0)
  10536   ^.001^1^1^ 3171107^^^ ^
  10537   "^DD",409. 85,409.85, 48,23,1,0)
  10538   Free text  field 1 to  80 charac ters.
  10539   "^DD",409. 85,409.85, 48,"DT")
  10540   3171107
  10541   "^DD",409. 85,409.851 ,0)
  10542   MRTC CALC  PREF DATES  SUB-FIELD ^^.01^1
  10543   "^DD",409. 85,409.851 ,0,"DT")
  10544   3150418
  10545   "^DD",409. 85,409.851 ,0,"IX","B ",409.851, .01)
  10546  
  10547   "^DD",409. 85,409.851 ,0,"NM","M RTC CALC P REF DATES" )
  10548  
  10549   "^DD",409. 85,409.851 ,0,"UP")
  10550   409.85
  10551   "^DD",409. 85,409.851 ,.01,0)
  10552   MRTC CALC  PREF DATES ^MD^^0;1^S  %DT="EX"  D ^%DT S X =Y K:Y<1 X
  10553   "^DD",409. 85,409.851 ,.01,1,0)
  10554   ^.1
  10555   "^DD",409. 85,409.851 ,.01,1,1,0 )
  10556   409.851^B
  10557   "^DD",409. 85,409.851 ,.01,1,1,1 )
  10558   S ^SDEC(40 9.85,DA(1) ,5,"B",$E( X,1,30),DA )=""
  10559   "^DD",409. 85,409.851 ,.01,1,1,2 )
  10560   K ^SDEC(40 9.85,DA(1) ,5,"B",$E( X,1,30),DA )
  10561   "^DD",409. 85,409.851 ,.01,3)
  10562   Enter a da te
  10563   "^DD",409. 85,409.851 ,.01,21,0)
  10564   ^^2^2^3150 423^
  10565   "^DD",409. 85,409.851 ,.01,21,1, 0)
  10566   This field  represent s one of t he dates r equested f or one of  the multip le 
  10567   "^DD",409. 85,409.851 ,.01,21,2, 0)
  10568   appointmen ts.
  10569   "^DD",409. 85,409.851 ,.01,"DT")
  10570   3150418
  10571   "^DD",409. 85,409.852 ,0)
  10572   MULT APPTS  MADE SUB- FIELD^^.02 ^2
  10573   "^DD",409. 85,409.852 ,0,"DT")
  10574   3150511
  10575   "^DD",409. 85,409.852 ,0,"IX","B ",409.852, .01)
  10576  
  10577   "^DD",409. 85,409.852 ,0,"NM","M ULT APPTS  MADE")
  10578  
  10579   "^DD",409. 85,409.852 ,0,"UP")
  10580   409.85
  10581   "^DD",409. 85,409.852 ,.01,0)
  10582   CHILD REQU EST^MP409. 85'^SDEC(4 09.85,^0;1 ^Q
  10583   "^DD",409. 85,409.852 ,.01,1,0)
  10584   ^.1
  10585   "^DD",409. 85,409.852 ,.01,1,1,0 )
  10586   409.852^B
  10587   "^DD",409. 85,409.852 ,.01,1,1,1 )
  10588   S ^SDEC(40 9.85,DA(1) ,2,"B",$E( X,1,30),DA )=""
  10589   "^DD",409. 85,409.852 ,.01,1,1,2 )
  10590   K ^SDEC(40 9.85,DA(1) ,2,"B",$E( X,1,30),DA )
  10591   "^DD",409. 85,409.852 ,.01,3)
  10592   Select an  appointmen t request.
  10593   "^DD",409. 85,409.852 ,.01,21,0)
  10594   ^^3^3^3160 105^
  10595   "^DD",409. 85,409.852 ,.01,21,1, 0)
  10596    
  10597   "^DD",409. 85,409.852 ,.01,21,2, 0)
  10598    
  10599   "^DD",409. 85,409.852 ,.01,21,3, 0)
  10600   This field  represent s a 'Child ' appointm ent reques t.
  10601   "^DD",409. 85,409.852 ,.01,23,0)
  10602   ^^1^1^3160 105^
  10603   "^DD",409. 85,409.852 ,.01,23,1, 0)
  10604   Pointer to  the SDEC  APPT REQUE ST file 40 9.85.
  10605   "^DD",409. 85,409.852 ,.01,"DT")
  10606   3160105
  10607   "^DD",409. 85,409.852 ,.02,0)
  10608   MULT APPTS  MADE^P409 .84'^SDEC( 409.84,^0; 2^Q
  10609   "^DD",409. 85,409.852 ,.02,3)
  10610   Select an  appointmen t
  10611   "^DD",409. 85,409.852 ,.02,21,0)
  10612   ^^2^2^3160 105^
  10613   "^DD",409. 85,409.852 ,.02,21,1, 0)
  10614   This field  represent s one of t he Multipl e Appointm ents that  have been 
  10615   "^DD",409. 85,409.852 ,.02,21,2, 0)
  10616   made based  on this a ppointment  request.
  10617   "^DD",409. 85,409.852 ,.02,23,0)
  10618   ^^1^1^3160 105^
  10619   "^DD",409. 85,409.852 ,.02,23,1, 0)
  10620   Pointer to  SDEC APPO INTMENT fi le 409.84.
  10621   "^DD",409. 85,409.852 ,.02,"DT")
  10622   3160105
  10623   "^DD",409. 85,409.854 4,0)
  10624   PATIENT CO NTACT SUB- FIELD^^4^4
  10625   "^DD",409. 85,409.854 4,0,"DT")
  10626   3150902
  10627   "^DD",409. 85,409.854 4,0,"IX"," B",409.854 4,.01)
  10628  
  10629   "^DD",409. 85,409.854 4,0,"NM"," PATIENT CO NTACT")
  10630  
  10631   "^DD",409. 85,409.854 4,0,"UP")
  10632   409.85
  10633   "^DD",409. 85,409.854 4,.01,0)
  10634   DATE ENTER ED^D^^0;1^ S %DT="ETX " D ^%DT S  X=Y K:Y<1  X
  10635   "^DD",409. 85,409.854 4,.01,1,0)
  10636   ^.1
  10637   "^DD",409. 85,409.854 4,.01,1,1, 0)
  10638   409.8544^B
  10639   "^DD",409. 85,409.854 4,.01,1,1, 1)
  10640   S ^SDEC(40 9.85,DA(1) ,4,"B",$E( X,1,30),DA )=""
  10641   "^DD",409. 85,409.854 4,.01,1,1, 2)
  10642   K ^SDEC(40 9.85,DA(1) ,4,"B",$E( X,1,30),DA )
  10643   "^DD",409. 85,409.854 4,.01,3)
  10644   Enter the  date and o ptional ti me that th is patient  was conta cted.
  10645   "^DD",409. 85,409.854 4,.01,21,0 )
  10646   ^.001^3^3^ 3150423^^^ ^
  10647   "^DD",409. 85,409.854 4,.01,21,1 ,0)
  10648   This DATE  ENTERED fi eld repres ents the D ate that a n attempt  was made t
  10649   "^DD",409. 85,409.854 4,.01,21,2 ,0)
  10650   contact th e patient  regarding  'this' app ointment R EQUEST.
  10651   "^DD",409. 85,409.854 4,.01,21,3 ,0)
  10652   The time c an also be  optionall y entered.
  10653   "^DD",409. 85,409.854 4,.01,"DT" )
  10654   3150422
  10655   "^DD",409. 85,409.854 4,2,0)
  10656   ENTERED BY  USER^P200 '^VA(200,^ 0;2^Q
  10657   "^DD",409. 85,409.854 4,2,3)
  10658   Select a u ser/provid er
  10659   "^DD",409. 85,409.854 4,2,21,0)
  10660   ^^2^2^3150 423^
  10661   "^DD",409. 85,409.854 4,2,21,1,0 )
  10662   This ENTER ED BY USER  field rep resents th e user/pro vider that  made an 
  10663   "^DD",409. 85,409.854 4,2,21,2,0 )
  10664   attempt to  contact t he patient  regarding  this appo intment re quest.
  10665   "^DD",409. 85,409.854 4,2,"DT")
  10666   3150418
  10667   "^DD",409. 85,409.854 4,3,0)
  10668   ACTION^S^C :CALLED;M: MESSAGE LE FT;L:LETTE R;^0;3^Q
  10669   "^DD",409. 85,409.854 4,3,3)
  10670   Select an  action.
  10671   "^DD",409. 85,409.854 4,3,21,0)
  10672   ^.001^5^5^ 3150423^^
  10673   "^DD",409. 85,409.854 4,3,21,1,0 )
  10674   The ACTION  field rep resents th e attempt  that was m ade to con tact the 
  10675   "^DD",409. 85,409.854 4,3,21,2,0 )
  10676   patient re garding 't his' appoi ntment.
  10677   "^DD",409. 85,409.854 4,3,21,3,0 )
  10678   C = Called
  10679   "^DD",409. 85,409.854 4,3,21,4,0 )
  10680   M = Messag e Left
  10681   "^DD",409. 85,409.854 4,3,21,5,0 )
  10682   L = Letter
  10683   "^DD",409. 85,409.854 4,3,"DT")
  10684   3150418
  10685   "^DD",409. 85,409.854 4,4,0)
  10686   PATIENT PH ONE^F^^0;4 ^K:$L(X)>2 0!($L(X)<4 ) X
  10687   "^DD",409. 85,409.854 4,4,3)
  10688   Answer mus t be 4-20  characters  in length .
  10689   "^DD",409. 85,409.854 4,4,21,0)
  10690   ^.001^1^1^ 3150423^^
  10691   "^DD",409. 85,409.854 4,4,21,1,0 )
  10692   This is th e phone nu mber used  to contact  the patie nt.
  10693   "^DD",409. 85,409.854 4,4,"DT")
  10694   3150418
  10695   "^DD",409. 85,409.854 5,0)
  10696   VS AUDIT S UB-FIELD^^ 3^4
  10697   "^DD",409. 85,409.854 5,0,"DT")
  10698   3151201
  10699   "^DD",409. 85,409.854 5,0,"IX"," B",409.854 5,.01)
  10700  
  10701   "^DD",409. 85,409.854 5,0,"NM"," VS AUDIT")
  10702  
  10703   "^DD",409. 85,409.854 5,0,"UP")
  10704   409.85
  10705   "^DD",409. 85,409.854 5,.01,0)
  10706   DATE EDITE D^MD^^0;1^ S %DT="ETX R" D ^%DT  S X=Y K:Y< 1 X
  10707   "^DD",409. 85,409.854 5,.01,1,0)
  10708   ^.1
  10709   "^DD",409. 85,409.854 5,.01,1,1, 0)
  10710   409.8545^B
  10711   "^DD",409. 85,409.854 5,.01,1,1, 1)
  10712   S ^SDEC(40 9.85,DA(1) ,6,"B",$E( X,1,30),DA )=""
  10713   "^DD",409. 85,409.854 5,.01,1,1, 2)
  10714   K ^SDEC(40 9.85,DA(1) ,6,"B",$E( X,1,30),DA )
  10715   "^DD",409. 85,409.854 5,.01,3)
  10716   Enter a da te and tim e
  10717   "^DD",409. 85,409.854 5,.01,21,0 )
  10718   ^.001^2^2^ 3151201^^
  10719   "^DD",409. 85,409.854 5,.01,21,1 ,0)
  10720   This is th e Date/Tim e in which  the edits  represent ed by this  entry wer
  10721   "^DD",409. 85,409.854 5,.01,21,2 ,0)
  10722   made.
  10723   "^DD",409. 85,409.854 5,.01,"DT" )
  10724   3151201
  10725   "^DD",409. 85,409.854 5,1,0)
  10726   EDITED BY^ P200'^VA(2 00,^0;2^Q
  10727   "^DD",409. 85,409.854 5,1,3)
  10728   Enter a us er
  10729   "^DD",409. 85,409.854 5,1,21,0)
  10730   ^^1^1^3151 201^
  10731   "^DD",409. 85,409.854 5,1,21,1,0 )
  10732   This is th e user tha t edited t he current  VS AUDIT  entry.
  10733   "^DD",409. 85,409.854 5,1,"DT")
  10734   3151201
  10735   "^DD",409. 85,409.854 5,2,0)
  10736   REQ SPECIF IC CLINIC^ P44'^SC(^0 ;3^Q
  10737   "^DD",409. 85,409.854 5,2,3)
  10738   Select a c linic
  10739   "^DD",409. 85,409.854 5,2,21,0)
  10740   ^^1^1^3151 201^
  10741   "^DD",409. 85,409.854 5,2,21,1,0 )
  10742   This field  represent s the clin ic that th is appoint ment reque st is for.
  10743   "^DD",409. 85,409.854 5,2,"DT")
  10744   3151201
  10745   "^DD",409. 85,409.854 5,3,0)
  10746   REQ SERVIC E/SPECIALT Y^P40.7'^D IC(40.7,^0 ;4^Q
  10747   "^DD",409. 85,409.854 5,3,3)
  10748   Select a C LINIC STOP
  10749   "^DD",409. 85,409.854 5,3,21,0)
  10750   ^^2^2^3151 201^
  10751   "^DD",409. 85,409.854 5,3,21,1,0 )
  10752   This field  represent s the CLIN IC STOP co de (also r eferred to  as 
  10753   "^DD",409. 85,409.854 5,3,21,2,0 )
  10754   SERVICE/SP ECIALTY) t hat is ass ociated wi th this ap pointment  request.
  10755   "^DD",409. 85,409.854 5,3,"DT")
  10756   3151201
  10757   "^DD",409. 85,409.854 8,0)
  10758   PREREQUISI TE SUB-FIE LD^^.01^1
  10759   "^DD",409. 85,409.854 8,0,"DT")
  10760   3171107
  10761   "^DD",409. 85,409.854 8,0,"IX"," B",409.854 8,.01)
  10762  
  10763   "^DD",409. 85,409.854 8,0,"NM"," PREREQUISI TE")
  10764  
  10765   "^DD",409. 85,409.854 8,0,"UP")
  10766   409.85
  10767   "^DD",409. 85,409.854 8,.01,0)
  10768   PREREQUISI TE^MFJ80^^ 0;1^K:$L(X )>80!($L(X )<1) X
  10769   "^DD",409. 85,409.854 8,.01,1,0)
  10770   ^.1
  10771   "^DD",409. 85,409.854 8,.01,1,1, 0)
  10772   409.8548^B
  10773   "^DD",409. 85,409.854 8,.01,1,1, 1)
  10774   S ^SDEC(40 9.85,DA(1) ,8,"B",$E( X,1,30),DA )=""
  10775   "^DD",409. 85,409.854 8,.01,1,1, 2)
  10776   K ^SDEC(40 9.85,DA(1) ,8,"B",$E( X,1,30),DA )
  10777   "^DD",409. 85,409.854 8,.01,3)
  10778   Answer mus t be 1-80  characters  in length .
  10779   "^DD",409. 85,409.854 8,.01,21,0 )
  10780   ^.001^1^1^ 3171107^^^ ^
  10781   "^DD",409. 85,409.854 8,.01,21,1 ,0)
  10782   Any appoin tment prer equisite a ssociated  with this  Return to  Clinic ord er.
  10783   "^DD",409. 85,409.854 8,.01,23,0 )
  10784   ^.001^1^1^ 3171107^^^ ^
  10785   "^DD",409. 85,409.854 8,.01,23,1 ,0)
  10786   Free text  field 1 to  80 charac ters.
  10787   "^DD",409. 85,409.854 8,.01,"DT" )
  10788   3171107
  10789   "^DD",409. 86,409.86, 0)
  10790   FIELD^^1.1 ^7
  10791   "^DD",409. 86,409.86, 0,"DDA")
  10792   N
  10793   "^DD",409. 86,409.86, 0,"DT")
  10794   3170616
  10795   "^DD",409. 86,409.86, 0,"ID",1)
  10796   S %I=Y,Y=$ S('$D(^(0) ):"",$D(^S C(+$P(^(0) ,U,2),0))# 2:$P(^(0), U,1),1:"") ,C=$P(^DD( 44,.01,0), U,2) D Y^D IQ:Y]"" W  "   ",Y,@( "$E("_DIC_ "%I,0),0)" ) S Y=%I K  %I
  10797   "^DD",409. 86,409.86, 0,"ID",2.1 )
  10798   W "   ",@( "$P($P($C( 59)_$S($D( ^DD(409.86 ,2.1,0)):$ P(^(0),U,3 ),1:0)_$E( "_DIC_"Y,0 ),0),$C(59 )_$P(^(0), U,4)_"":"" ,2),$C(59) ,1)")
  10799   "^DD",409. 86,409.86, 0,"ID","W1 .1")
  10800   S %I=Y,Y=$ S('$D(^(0) ):"",$D(^D IC(40.7,+$ P(^(0),U,6 ),0))#2:$P (^(0),U,1) ,1:""),C=$ P(^DD(40.7 ,.01,0),U, 2) D Y^DIQ :Y]"" W "    ",Y,@("$ E("_DIC_"% I,0),0)")  S Y=%I K % I
  10801   "^DD",409. 86,409.86, 0,"ID","W2 ")
  10802   W "   ",$$ NAKED^DIUT L("$$DATE^ DIUTL($P(^ (0),U,3))" )
  10803   "^DD",409. 86,409.86, 0,"IX","B" ,409.86,.0 1)
  10804  
  10805   "^DD",409. 86,409.86, 0,"NM","SD EC CONTACT ")
  10806  
  10807   "^DD",409. 86,409.86, 0,"PT",409 .94,3)
  10808  
  10809   "^DD",409. 86,409.86, 0,"VRPK")
  10810   SD
  10811   "^DD",409. 86,409.86, .01,0)
  10812   PATIENT^RP 2'^DPT(^0; 1^Q
  10813   "^DD",409. 86,409.86, .01,1,0)
  10814   ^.1
  10815   "^DD",409. 86,409.86, .01,1,1,0)
  10816   409.86^B
  10817   "^DD",409. 86,409.86, .01,1,1,1)
  10818   S ^SDEC(40 9.86,"B",$ E(X,1,30), DA)=""
  10819   "^DD",409. 86,409.86, .01,1,1,2)
  10820   K ^SDEC(40 9.86,"B",$ E(X,1,30), DA)
  10821   "^DD",409. 86,409.86, .01,3)
  10822   Please ent er current  Patient!
  10823   "^DD",409. 86,409.86, .01,21,0)
  10824   ^^1^1^3170 611^
  10825   "^DD",409. 86,409.86, .01,21,1,0 )
  10826   This is th e Patient  for this c ontact.
  10827   "^DD",409. 86,409.86, .01,23,0)
  10828   ^^1^1^3170 611^
  10829   "^DD",409. 86,409.86, .01,23,1,0 )
  10830   Pointer to  the Patie nt(#2) fil e.
  10831   "^DD",409. 86,409.86, .01,"DT")
  10832   3170417
  10833   "^DD",409. 86,409.86, 1,0)
  10834   CLINIC^P44 '^SC(^0;2^ Q
  10835   "^DD",409. 86,409.86, 1,3)
  10836   Please ent er contact  clinic!
  10837   "^DD",409. 86,409.86, 1,21,0)
  10838   ^^1^1^3170 611^
  10839   "^DD",409. 86,409.86, 1,21,1,0)
  10840   This is th e Clinic f or this co ntact.
  10841   "^DD",409. 86,409.86, 1,23,0)
  10842   ^^1^1^3170 611^
  10843   "^DD",409. 86,409.86, 1,23,1,0)
  10844   Pointer to  the Hospi tal Locati on(#44) fi le.
  10845   "^DD",409. 86,409.86, 1,"DT")
  10846   3170502
  10847   "^DD",409. 86,409.86, 1.1,0)
  10848   SERVICE^P4 0.7'^DIC(4 0.7,^0;6^Q
  10849   "^DD",409. 86,409.86, 1.1,3)
  10850   Please ent er Service  for this  contact.
  10851   "^DD",409. 86,409.86, 1.1,21,0)
  10852   ^.001^1^1^ 3170611^^
  10853   "^DD",409. 86,409.86, 1.1,21,1,0 )
  10854   This is th e Service  for this c ontact.
  10855   "^DD",409. 86,409.86, 1.1,23,0)
  10856   ^.001^1^1^ 3170611^^
  10857   "^DD",409. 86,409.86, 1.1,23,1,0 )
  10858   Pointer to  the CLINI C STOP(#40 .7) file.
  10859   "^DD",409. 86,409.86, 1.1,"DT")
  10860   3170611
  10861   "^DD",409. 86,409.86, 2,0)
  10862   PREFERRED  DATE^D^^0; 3^S %DT="E X" D ^%DT  S X=Y K:Y< 1 X
  10863   "^DD",409. 86,409.86, 2,3)
  10864   Please ent er Preferr ed Date of  appointme nt.
  10865   "^DD",409. 86,409.86, 2,21,0)
  10866   ^^1^1^3170 611^
  10867   "^DD",409. 86,409.86, 2,21,1,0)
  10868   This is th e Preferre d Date of  Appointmen t for this  contact.
  10869   "^DD",409. 86,409.86, 2,23,0)
  10870   ^^2^2^3170 611^
  10871   "^DD",409. 86,409.86, 2,23,1,0)
  10872   This date  field cont ains the P referred D ate of App ointment f or this 
  10873   "^DD",409. 86,409.86, 2,23,2,0)
  10874   contact.
  10875   "^DD",409. 86,409.86, 2,"DT")
  10876   3170611
  10877   "^DD",409. 86,409.86, 2.1,0)
  10878   REQUEST TY PE^RS^A:AP POINTMENT; C:CONSULT; R:RECALL;V :VETERAN;M :MOBILE;P: PROCEDURE; E:EWL;W:W2 VA;RTC:RET URN TO CLI NIC;^0;4^Q
  10879   "^DD",409. 86,409.86, 2.1,3)
  10880   Select the  Request T ype for th is contact !
  10881   "^DD",409. 86,409.86, 2.1,21,0)
  10882   ^^1^1^3170 611^
  10883   "^DD",409. 86,409.86, 2.1,21,1,0 )
  10884   This is th e Request  Type of th is contact .
  10885   "^DD",409. 86,409.86, 2.1,23,0)
  10886   ^^1^1^3170 611^
  10887   "^DD",409. 86,409.86, 2.1,23,1,0 )
  10888   Contact Re quest Type  is a set  of codes.
  10889   "^DD",409. 86,409.86, 2.1,"DT")
  10890   3170612
  10891   "^DD",409. 86,409.86, 2.2,0)
  10892   MAIN SEQUE NCE^NJ2,0^ ^0;5^K:+X' =X!(X>99)! (X<0)!(X?. E1"."1N.N)  X
  10893   "^DD",409. 86,409.86, 2.2,3)
  10894   Type a num ber betwee n 0 and 99 , 0 decima l digits.
  10895   "^DD",409. 86,409.86, 2.2,21,0)
  10896   ^.001^1^1^ 3170611^^^
  10897   "^DD",409. 86,409.86, 2.2,21,1,0 )
  10898   The Main S equence fi eld keeps  track of t he number  of contact s.
  10899   "^DD",409. 86,409.86, 2.2,23,0)
  10900   ^^2^2^3170 611^
  10901   "^DD",409. 86,409.86, 2.2,23,1,0 )
  10902   The Main S equence is  a numeric  field tha t tracks t he number  contact of  
  10903   "^DD",409. 86,409.86, 2.2,23,2,0 )
  10904   attempts.
  10905   "^DD",409. 86,409.86, 2.2,"DT")
  10906   3170429
  10907   "^DD",409. 86,409.86, 3,0)
  10908   DATE/TIME  of CONTACT ^409.863D^ ^1;0
  10909   "^DD",409. 86,409.86, 3,21,0)
  10910   ^.001^1^1^ 3170612^^
  10911   "^DD",409. 86,409.86, 3,21,1,0)
  10912   This is th e DATE/TIM E multiple  of the co ntact.
  10913   "^DD",409. 86,409.86, 3,23,0)
  10914   ^^2^2^3170 612^
  10915   "^DD",409. 86,409.86, 3,23,1,0)
  10916   DATE/TIME  of CONTACT  multiple  tracks the  number of  contacts  for this 
  10917   "^DD",409. 86,409.86, 3,23,2,0)
  10918   patient.
  10919   "^DD",409. 86,409.863 ,0)
  10920   DATE/TIME  of CONTACT  SUB-FIELD ^^6^7
  10921   "^DD",409. 86,409.863 ,0,"DT")
  10922   3170612
  10923   "^DD",409. 86,409.863 ,0,"IX","B ",409.863, .01)
  10924  
  10925   "^DD",409. 86,409.863 ,0,"NM","D ATE/TIME o f CONTACT" )
  10926  
  10927   "^DD",409. 86,409.863 ,0,"UP")
  10928   409.86
  10929   "^DD",409. 86,409.863 ,.01,0)
  10930   DATE/TIME  of CONTACT ^MRD^^0;1^ S %DT="ETX R" D ^%DT  S X=Y K:Y< 1 X
  10931   "^DD",409. 86,409.863 ,.01,1,0)
  10932   ^.1^^-1
  10933   "^DD",409. 86,409.863 ,.01,1,1,0 )
  10934   409.863^B
  10935   "^DD",409. 86,409.863 ,.01,1,1,1 )
  10936   S ^SDEC(40 9.86,DA(1) ,1,"B",$E( X,1,30),DA )=""
  10937   "^DD",409. 86,409.863 ,.01,1,1,2 )
  10938   K ^SDEC(40 9.86,DA(1) ,1,"B",$E( X,1,30),DA )
  10939   "^DD",409. 86,409.863 ,.01,3)
  10940   Please ent er DATE/TI ME of CONT ACT.
  10941   "^DD",409. 86,409.863 ,.01,21,0)
  10942   ^^1^1^3170 611^
  10943   "^DD",409. 86,409.863 ,.01,21,1, 0)
  10944   This is th e Date/Tim e of conta ct for thi s patient.
  10945   "^DD",409. 86,409.863 ,.01,23,0)
  10946   ^^2^2^3170 611^
  10947   "^DD",409. 86,409.863 ,.01,23,1, 0)
  10948   This is a  date/time  field used  to record  the date/ time a con tact is 
  10949   "^DD",409. 86,409.863 ,.01,23,2, 0)
  10950   entered.
  10951   "^DD",409. 86,409.863 ,.01,"DT")
  10952   3170501
  10953   "^DD",409. 86,409.863 ,1,0)
  10954   CONTACT TY PE^S^C:CAL L;L:LETTER ;^1;1^Q
  10955   "^DD",409. 86,409.863 ,1,1,0)
  10956   ^.1^^0
  10957   "^DD",409. 86,409.863 ,1,3)
  10958   Select Con tact Type!
  10959   "^DD",409. 86,409.863 ,1,21,0)
  10960   ^^1^1^3170 611^
  10961   "^DD",409. 86,409.863 ,1,21,1,0)
  10962   This field  Contact T ype is how  the patie nt is cont acted.
  10963   "^DD",409. 86,409.863 ,1,23,0)
  10964   ^^1^1^3170 611^
  10965   "^DD",409. 86,409.863 ,1,23,1,0)
  10966   This field  Contact T ype is a s et of code s of how a  patient i s contacte d.
  10967   "^DD",409. 86,409.863 ,1,"DT")
  10968   3170611
  10969   "^DD",409. 86,409.863 ,2,0)
  10970   COMMENTS^F J80^^1;2^K :$L(X)>80! ($L(X)<1)  X
  10971   "^DD",409. 86,409.863 ,2,3)
  10972   Answer mus t be 1-80  characters  in length .
  10973   "^DD",409. 86,409.863 ,2,21,0)
  10974   ^^1^1^3170 611^
  10975   "^DD",409. 86,409.863 ,2,21,1,0)
  10976   This is an y comments  associate d with thi s contact.
  10977   "^DD",409. 86,409.863 ,2,23,0)
  10978   ^^1^1^3170 611^
  10979   "^DD",409. 86,409.863 ,2,23,1,0)
  10980   This is a  Free Text  field used  to enter  comments f or this co ntact. 
  10981   "^DD",409. 86,409.863 ,2,"DT")
  10982   3170611
  10983   "^DD",409. 86,409.863 ,3,0)
  10984   LEFT MESSA GE^S^0:NO; 1:YES;^1;3 ^Q
  10985   "^DD",409. 86,409.863 ,3,3)
  10986   Enter 'YES ' if patie nt was lef t a messag e, else en ter 'NO'.
  10987   "^DD",409. 86,409.863 ,3,21,0)
  10988   ^.001^1^1^ 3170612^^
  10989   "^DD",409. 86,409.863 ,3,21,1,0)
  10990   This field  is if the  patient w as left a  message.
  10991   "^DD",409. 86,409.863 ,3,23,0)
  10992   ^.001^1^1^ 3170612^^
  10993   "^DD",409. 86,409.863 ,3,23,1,0)
  10994   The Left M essage fie ld is a se t of codes .
  10995   "^DD",409. 86,409.863 ,3,"DT")
  10996   3170612
  10997   "^DD",409. 86,409.863 ,4,0)
  10998   SEQUENCE^R NJ2,0^^1;4 ^K:+X'=X!( X>99)!(X<1 )!(X?.E1". "1N.N) X
  10999   "^DD",409. 86,409.863 ,4,3)
  11000   Type a num ber betwee n 1 and 99 , 0 decima l digits.
  11001   "^DD",409. 86,409.863 ,4,21,0)
  11002   ^^1^1^3170 611^
  11003   "^DD",409. 86,409.863 ,4,21,1,0)
  11004   This is th e Sequence  of this c ontact.
  11005   "^DD",409. 86,409.863 ,4,23,0)
  11006   ^^1^1^3170 611^
  11007   "^DD",409. 86,409.863 ,4,23,1,0)
  11008   This field  sequence  is a numer ic field.
  11009   "^DD",409. 86,409.863 ,4,"DT")
  11010   3170417
  11011   "^DD",409. 86,409.863 ,5,0)
  11012   USER ENTER ED CONTACT ^P200'^VA( 200,^1;5^Q
  11013   "^DD",409. 86,409.863 ,5,3)
  11014   Enter user  who enter ed the con tact!
  11015   "^DD",409. 86,409.863 ,5,21,0)
  11016   ^^1^1^3170 611^
  11017   "^DD",409. 86,409.863 ,5,21,1,0)
  11018   This is th e user who  entered t he contact .
  11019   "^DD",409. 86,409.863 ,5,23,0)
  11020   ^^1^1^3170 611^
  11021   "^DD",409. 86,409.863 ,5,23,1,0)
  11022   The User E ntered Con tact field  is a poin ter to fil e NEW PERS ON(#200).
  11023   "^DD",409. 86,409.863 ,5,"DT")
  11024   3170611
  11025   "^DD",409. 86,409.863 ,6,0)
  11026   DATE/TIME  ENTERED^D^ ^1;6^S %DT ="ETX" D ^ %DT S X=Y  K:Y<1 X
  11027   "^DD",409. 86,409.863 ,6,3)
  11028   Enter date /time cont act was en tered.
  11029   "^DD",409. 86,409.863 ,6,21,0)
  11030   ^.001^1^1^ 3170612^^
  11031   "^DD",409. 86,409.863 ,6,21,1,0)
  11032   This is th e date/tim e the cont act was en tered.
  11033   "^DD",409. 86,409.863 ,6,23,0)
  11034   ^.001^1^1^ 3170612^^
  11035   "^DD",409. 86,409.863 ,6,23,1,0)
  11036   This is a  date/time  field for  when the c ontact was  entered.
  11037   "^DD",409. 86,409.863 ,6,"DT")
  11038   3170612
  11039   "^DD",409. 97,409.97, 0)
  11040   FIELD^^15^ 16
  11041   "^DD",409. 97,409.97, 0,"DDA")
  11042   N
  11043   "^DD",409. 97,409.97, 0,"DT")
  11044   3180220
  11045   "^DD",409. 97,409.97, 0,"IX","B" ,409.97,.0 1)
  11046  
  11047   "^DD",409. 97,409.97, 0,"IX","C" ,409.97,1)
  11048  
  11049   "^DD",409. 97,409.97, 0,"NM","SD  Audit Sta tistics")
  11050  
  11051   "^DD",409. 97,409.97, 0,"VRPK")
  11052   SD
  11053   "^DD",409. 97,409.97, .01,0)
  11054   SCHEDULER^ RP200'^VA( 200,^0;1^Q
  11055   "^DD",409. 97,409.97, .01,1,0)
  11056   ^.1
  11057   "^DD",409. 97,409.97, .01,1,1,0)
  11058   409.97^B
  11059   "^DD",409. 97,409.97, .01,1,1,1)
  11060   S ^SDAUDIT ("B",$E(X, 1,30),DA)= ""
  11061   "^DD",409. 97,409.97, .01,1,1,2)
  11062   K ^SDAUDIT ("B",$E(X, 1,30),DA)
  11063   "^DD",409. 97,409.97, .01,3)
  11064   Enter name  of schedu ler.
  11065   "^DD",409. 97,409.97, .01,21,0)
  11066   ^.001^2^2^ 3180222^^^
  11067   "^DD",409. 97,409.97, .01,21,1,0 )
  11068   Scheduler  (user of V SE GUI) wh o performs  actions ( e.g., ente r appointm ent 
  11069   "^DD",409. 97,409.97, .01,21,2,0 )
  11070   requests).
  11071   "^DD",409. 97,409.97, .01,23,0)
  11072   ^.001^2^2^ 3180222^^
  11073   "^DD",409. 97,409.97, .01,23,1,0 )
  11074   Scheduler  is extract ed from ac tivity fil es (e.g.,  409.84, 40 9.85) by 
  11075   "^DD",409. 97,409.97, .01,23,2,0 )
  11076   audit comp iler (SDEC AUD).
  11077   "^DD",409. 97,409.97, .01,"DT")
  11078   3180220
  11079   "^DD",409. 97,409.97, 1,0)
  11080   DATE^D^^0; 2^S %DT="E X" D ^%DT  S X=Y K:Y< 1 X
  11081   "^DD",409. 97,409.97, 1,1,0)
  11082   ^.1
  11083   "^DD",409. 97,409.97, 1,1,1,0)
  11084   409.97^C
  11085   "^DD",409. 97,409.97, 1,1,1,1)
  11086   S ^SDAUDIT ("C",$E(X, 1,30),DA)= ""
  11087   "^DD",409. 97,409.97, 1,1,1,2)
  11088   K ^SDAUDIT ("C",$E(X, 1,30),DA)
  11089   "^DD",409. 97,409.97, 1,1,1,"%D" ,0)
  11090   ^^1^1^3180 222^
  11091   "^DD",409. 97,409.97, 1,1,1,"%D" ,1,0)
  11092   Date cross -reference  for repor t of stati stics by d ate.
  11093   "^DD",409. 97,409.97, 1,1,1,"DT" )
  11094   3180220
  11095   "^DD",409. 97,409.97, 1,3)
  11096   Enter the  date the a ction was  performed.
  11097   "^DD",409. 97,409.97, 1,21,0)
  11098   ^^1^1^3180 222^
  11099   "^DD",409. 97,409.97, 1,21,1,0)
  11100   Date the s cheduler p erformed t he action.
  11101   "^DD",409. 97,409.97, 1,23,0)
  11102   ^^2^2^3180 222^
  11103   "^DD",409. 97,409.97, 1,23,1,0)
  11104   Date is ex tracted fr om the rel evant file  (e.g., 40 9.84) by t he audit 
  11105   "^DD",409. 97,409.97, 1,23,2,0)
  11106   statistics  compiler  (SDECAUD).
  11107   "^DD",409. 97,409.97, 1,"DT")
  11108   3180220
  11109   "^DD",409. 97,409.97, 2,0)
  11110   PATIENT CO NTACTS^NJ8 ,0^^0;3^K: +X'=X!(X>9 9999999)!( X<0)!(X?.E 1"."1N.N)  X
  11111   "^DD",409. 97,409.97, 2,3)
  11112   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11113   "^DD",409. 97,409.97, 2,21,0)
  11114   ^^1^1^3180 222^
  11115   "^DD",409. 97,409.97, 2,21,1,0)
  11116   Count of p atient con tacts perf ormed by t he schedul er on the  date.
  11117   "^DD",409. 97,409.97, 2,23,0)
  11118   ^^2^2^3180 222^
  11119   "^DD",409. 97,409.97, 2,23,1,0)
  11120   Counts are  extracted  by audit  statistics  compiler  (SDECAUD)  from files  
  11121   "^DD",409. 97,409.97, 2,23,2,0)
  11122   409.85 and  409.3.
  11123   "^DD",409. 97,409.97, 2,"DT")
  11124   3180220
  11125   "^DD",409. 97,409.97, 3,0)
  11126   APPT REQUE STS^NJ8,0^ ^0;4^K:+X' =X!(X>9999 9999)!(X<0 )!(X?.E1". "1N.N) X
  11127   "^DD",409. 97,409.97, 3,3)
  11128   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11129   "^DD",409. 97,409.97, 3,21,0)
  11130   ^^1^1^3180 222^
  11131   "^DD",409. 97,409.97, 3,21,1,0)
  11132   Number of  appointmen ts request s entered  by the sch eduler on  the date.
  11133   "^DD",409. 97,409.97, 3,23,0)
  11134   ^^2^2^3180 222^
  11135   "^DD",409. 97,409.97, 3,23,1,0)
  11136   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11137   "^DD",409. 97,409.97, 3,23,2,0)
  11138   #409.84.
  11139   "^DD",409. 97,409.97, 3,"DT")
  11140   3180220
  11141   "^DD",409. 97,409.97, 4,0)
  11142   APPT APPOI NTMENTS MA DE^NJ8,0^^ 0;5^K:+X'= X!(X>99999 999)!(X<0) !(X?.E1"." 1N.N) X
  11143   "^DD",409. 97,409.97, 4,3)
  11144   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11145   "^DD",409. 97,409.97, 4,21,0)
  11146   ^.001^1^1^ 3180222^^
  11147   "^DD",409. 97,409.97, 4,21,1,0)
  11148   Count of a ppointment s performe d by the s cheduler o n the date .
  11149   "^DD",409. 97,409.97, 4,23,0)
  11150   ^^2^2^3180 222^
  11151   "^DD",409. 97,409.97, 4,23,1,0)
  11152   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11153   "^DD",409. 97,409.97, 4,23,2,0)
  11154   409.84.
  11155   "^DD",409. 97,409.97, 4,"DT")
  11156   3180220
  11157   "^DD",409. 97,409.97, 5,0)
  11158   APPT CLOSE D^NJ8,0^^0 ;6^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X
  11159   "^DD",409. 97,409.97, 5,3)
  11160   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11161   "^DD",409. 97,409.97, 5,21,0)
  11162   ^.001^1^1^ 3180222^^
  11163   "^DD",409. 97,409.97, 5,21,1,0)
  11164   Number of  appointmen ts cancell ed by the  scheduler  on the dat e.
  11165   "^DD",409. 97,409.97, 5,23,0)
  11166   ^.001^1^1^ 3180222^^
  11167   "^DD",409. 97,409.97, 5,23,1,0)
  11168   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD) .
  11169   "^DD",409. 97,409.97, 5,"DT")
  11170   3180220
  11171   "^DD",409. 97,409.97, 6,0)
  11172   MRTC OPENE D^NJ8,0^^0 ;7^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X
  11173   "^DD",409. 97,409.97, 6,3)
  11174   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11175   "^DD",409. 97,409.97, 6,21,0)
  11176   ^^1^1^3180 222^
  11177   "^DD",409. 97,409.97, 6,21,1,0)
  11178   Number of  MRTC appoi ntment req uests open ed by the  scheduler  on the dat e.
  11179   "^DD",409. 97,409.97, 6,23,0)
  11180   ^^2^2^3180 222^
  11181   "^DD",409. 97,409.97, 6,23,1,0)
  11182   Counts are  extracted  by the au dit statis tics compi ler (SDECA UD) from f ile 
  11183   "^DD",409. 97,409.97, 6,23,2,0)
  11184   409.85.
  11185   "^DD",409. 97,409.97, 6,"DT")
  11186   3180220
  11187   "^DD",409. 97,409.97, 7,0)
  11188   MRTC CLOSE D^NJ8,0^^0 ;8^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X
  11189   "^DD",409. 97,409.97, 7,3)
  11190   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11191   "^DD",409. 97,409.97, 7,21,0)
  11192   ^^1^1^3180 222^
  11193   "^DD",409. 97,409.97, 7,21,1,0)
  11194   Number of  MRTC appoi ntment req uests clos ed by the  scheduler  on the dat e.
  11195   "^DD",409. 97,409.97, 7,23,0)
  11196   ^^2^2^3180 222^
  11197   "^DD",409. 97,409.97, 7,23,1,0)
  11198   Counts are  extracted  by the au dit static tics compi ler (SDECA UD) from f ile 
  11199   "^DD",409. 97,409.97, 7,23,2,0)
  11200   409.85.
  11201   "^DD",409. 97,409.97, 7,"DT")
  11202   3180220
  11203   "^DD",409. 97,409.97, 8,0)
  11204   EWL ENTRIE S^NJ8,0^^0 ;9^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X
  11205   "^DD",409. 97,409.97, 8,3)
  11206   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11207   "^DD",409. 97,409.97, 8,21,0)
  11208   ^^1^1^3180 222^
  11209   "^DD",409. 97,409.97, 8,21,1,0)
  11210   Number of  wait list  entries cr eated by t he schedul er on the  date.
  11211   "^DD",409. 97,409.97, 8,23,0)
  11212   ^^2^2^3180 222^
  11213   "^DD",409. 97,409.97, 8,23,1,0)
  11214   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11215   "^DD",409. 97,409.97, 8,23,2,0)
  11216   409.3.
  11217   "^DD",409. 97,409.97, 8,"DT")
  11218   3180220
  11219   "^DD",409. 97,409.97, 9,0)
  11220   EWL APPOIN TMENTS MAD E^NJ8,0^^0 ;10^K:+X'= X!(X>99999 999)!(X<0) !(X?.E1"." 1N.N) X
  11221   "^DD",409. 97,409.97, 9,3)
  11222   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11223   "^DD",409. 97,409.97, 9,21,0)
  11224   ^^1^1^3180 222^
  11225   "^DD",409. 97,409.97, 9,21,1,0)
  11226   Number of  appointmen ts made of f of the E WL by the  scheduler  on a date.
  11227   "^DD",409. 97,409.97, 9,23,0)
  11228   ^^2^2^3180 222^
  11229   "^DD",409. 97,409.97, 9,23,1,0)
  11230   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11231   "^DD",409. 97,409.97, 9,23,2,0)
  11232   409.84.
  11233   "^DD",409. 97,409.97, 9,"DT")
  11234   3180220
  11235   "^DD",409. 97,409.97, 10,0)
  11236   EWL CLOSED ^NJ8,0^^0; 11^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X
  11237   "^DD",409. 97,409.97, 10,3)
  11238   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11239   "^DD",409. 97,409.97, 10,21,0)
  11240   ^^1^1^3180 222^
  11241   "^DD",409. 97,409.97, 10,21,1,0)
  11242   Number of  EWL appoin tment requ ests close d by the s cheduler o n the date .
  11243   "^DD",409. 97,409.97, 10,23,0)
  11244   ^^2^2^3180 222^
  11245   "^DD",409. 97,409.97, 10,23,1,0)
  11246   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11247   "^DD",409. 97,409.97, 10,23,2,0)
  11248   409.3.
  11249   "^DD",409. 97,409.97, 10,"DT")
  11250   3180220
  11251   "^DD",409. 97,409.97, 11,0)
  11252   PtCSch ENT RIES^NJ8,0 ^^0;12^K:+ X'=X!(X>99 999999)!(X <0)!(X?.E1 "."1N.N) X
  11253   "^DD",409. 97,409.97, 11,3)
  11254   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11255   "^DD",409. 97,409.97, 11,21,0)
  11256   ^^2^2^3180 222^
  11257   "^DD",409. 97,409.97, 11,21,1,0)
  11258   Number of  patient re call (PtCS ch) reques ts entered  by the sc heduler on  
  11259   "^DD",409. 97,409.97, 11,21,2,0)
  11260   the date.
  11261   "^DD",409. 97,409.97, 11,23,0)
  11262   ^^2^2^3180 222^
  11263   "^DD",409. 97,409.97, 11,23,1,0)
  11264   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11265   "^DD",409. 97,409.97, 11,23,2,0)
  11266   403.5.
  11267   "^DD",409. 97,409.97, 11,"DT")
  11268   3180220
  11269   "^DD",409. 97,409.97, 12,0)
  11270   PtCSch APP OINTMENTS  MADE^NJ8,0 ^^0;13^K:+ X'=X!(X>99 999999)!(X <0)!(X?.E1 "."1N.N) X
  11271   "^DD",409. 97,409.97, 12,3)
  11272   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11273   "^DD",409. 97,409.97, 12,21,0)
  11274   ^^2^2^3180 222^
  11275   "^DD",409. 97,409.97, 12,21,1,0)
  11276   Number of  patient re call (PtCS ch) appoin tments ent ered by th e schedule
  11277   "^DD",409. 97,409.97, 12,21,2,0)
  11278   on the dat e.
  11279   "^DD",409. 97,409.97, 12,23,0)
  11280   ^^2^2^3180 222^
  11281   "^DD",409. 97,409.97, 12,23,1,0)
  11282   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11283   "^DD",409. 97,409.97, 12,23,2,0)
  11284   409.84.
  11285   "^DD",409. 97,409.97, 12,"DT")
  11286   3180220
  11287   "^DD",409. 97,409.97, 13,0)
  11288   CONSULT AP POINTMENTS  MADE^NJ8, 0^^0;14^K: +X'=X!(X>9 9999999)!( X<0)!(X?.E 1"."1N.N)  X
  11289   "^DD",409. 97,409.97, 13,3)
  11290   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11291   "^DD",409. 97,409.97, 13,21,0)
  11292   ^^1^1^3180 222^
  11293   "^DD",409. 97,409.97, 13,21,1,0)
  11294   Number of  consult ap pointments  entered b y the sche duler on t he date.
  11295   "^DD",409. 97,409.97, 13,23,0)
  11296   ^^2^2^3180 222^
  11297   "^DD",409. 97,409.97, 13,23,1,0)
  11298   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11299   "^DD",409. 97,409.97, 13,23,2,0)
  11300   409.84.
  11301   "^DD",409. 97,409.97, 13,"DT")
  11302   3180220
  11303   "^DD",409. 97,409.97, 14,0)
  11304   APPOINTMEN TS CANCELL ED^NJ8,0^^ 0;15^K:+X' =X!(X>9999 9999)!(X<0 )!(X?.E1". "1N.N) X
  11305   "^DD",409. 97,409.97, 14,3)
  11306   Type a num ber betwee n 0 and 99 999999, 0  decimal di gits.
  11307   "^DD",409. 97,409.97, 14,21,0)
  11308   ^^1^1^3180 222^
  11309   "^DD",409. 97,409.97, 14,21,1,0)
  11310   Number of  appointmen ts cancell ed by the  scheduler  on the dat e.
  11311   "^DD",409. 97,409.97, 14,23,0)
  11312   ^^2^2^3180 222^
  11313   "^DD",409. 97,409.97, 14,23,1,0)
  11314   Data is ex tracted by  the audit  statistic s compiler  (SDECAUD)  from file  
  11315   "^DD",409. 97,409.97, 14,23,2,0)
  11316   409.84.
  11317   "^DD",409. 97,409.97, 14,"DT")
  11318   3180220
  11319   "^DD",409. 97,409.97, 15,0)
  11320   TOTAL ACTI ONS^CJ8,0^ ^ ; ^X ^DD (409.97,15 ,9.3) S X= X+$P(Y(409 .97,15,1), U,14)+$P(Y (409.97,15 ,1),U,15)
  11321   "^DD",409. 97,409.97, 15,9)
  11322   ^
  11323   "^DD",409. 97,409.97, 15,9.01)
  11324   409.97^14; 409.97^13; 409.97^12; 409.97^11; 409.97^10; 409.97^9;4 09.97^8;40 9.97^7;409 .97^6;409. 97^5;409.9 7^4;409.97 ^3;409.97^ 2
  11325   "^DD",409. 97,409.97, 15,9.1)
  11326   PATIENT CO NTACTS+APP T REQUESTS +APPT APPO INTMENTS M ADE+APPT C LOSED+MRTC  OPENED+MR TC CLOSED+ EWL ENTRIE S+EWL APPO INTMENTS M ADE+EWL CL OSED+PtCSc h ENTRIES+ PtCSch APP OINTMENTS  MADE+CONSU LT APPOINT MENTS MADE +APPOINTME NTS CANCEL LED
  11327   "^DD",409. 97,409.97, 15,9.2)
  11328   S Y(409.97 ,15,1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"")  S X=$P(Y(4 09.97,15,1 ),U,3)+$P( Y(409.97,1 5,1),U,4)+ $P(Y(409.9 7,15,1),U, 5)+$P(Y(40 9.97,15,1) ,U,6)+$P(Y (409.97,15 ,1),U,7)
  11329   "^DD",409. 97,409.97, 15,9.3)
  11330   X ^DD(409. 97,15,9.2)  S X=X+$P( Y(409.97,1 5,1),U,8)+ $P(Y(409.9 7,15,1),U, 9)+$P(Y(40 9.97,15,1) ,U,10)+$P( Y(409.97,1 5,1),U,11) +$P(Y(409. 97,15,1),U ,12)+$P(Y( 409.97,15, 1),U,13)
  11331   "^DIC",409 .85,409.85 ,0)
  11332   SDEC APPT  REQUEST^40 9.85
  11333   "^DIC",409 .85,409.85 ,0,"GL")
  11334   ^SDEC(409. 85,
  11335   "^DIC",409 .85,409.85 ,"%",0)
  11336   ^1.005^^0
  11337   "^DIC",409 .85,409.85 ,"%D",0)
  11338   ^^3^3^3150 423^
  11339   "^DIC",409 .85,409.85 ,"%D",1,0)
  11340   This file  contains t he SDEC Ap pt Request  entries f or the App ointment 
  11341   "^DIC",409 .85,409.85 ,"%D",2,0)
  11342   Scheduling  applicati on.
  11343   "^DIC",409 .85,409.85 ,"%D",3,0)
  11344   Each entry  represent s a unique  appointme nt request .
  11345   "^DIC",409 .85,"B","S DEC APPT R EQUEST",40 9.85)
  11346  
  11347   "^DIC",409 .86,409.86 ,0)
  11348   SDEC CONTA CT^409.86
  11349   "^DIC",409 .86,409.86 ,0,"GL")
  11350   ^SDEC(409. 86,
  11351   "^DIC",409 .86,409.86 ,"%",0)
  11352   ^1.005^^0
  11353   "^DIC",409 .86,409.86 ,"%D",0)
  11354   ^^4^4^3170 612^
  11355   "^DIC",409 .86,409.86 ,"%D",1,0)
  11356   This file  is used by  the VSE V S GUI. The  file cont ains patie nt contact
  11357   "^DIC",409 .86,409.86 ,"%D",2,0)
  11358   informatio n regardin g appointm ent follow  up each t ime a pati ent is
  11359   "^DIC",409 .86,409.86 ,"%D",3,0)
  11360   contacted.  This file  should no t be edite d using Fi leman, the  file is
  11361   "^DIC",409 .86,409.86 ,"%D",4,0)
  11362   updated us ing the VS E VS GUI.
  11363   "^DIC",409 .86,"B","S DEC CONTAC T",409.86)
  11364  
  11365   "^DIC",409 .97,409.97 ,0)
  11366   SD Audit S tatistics^ 409.97
  11367   "^DIC",409 .97,409.97 ,0,"GL")
  11368   ^SDAUDIT(
  11369   "^DIC",409 .97,409.97 ,"%D",0)
  11370   ^1.001^4^4 ^3180312^^
  11371   "^DIC",409 .97,409.97 ,"%D",1,0)
  11372   The SD Aud it Statist ics file c ontains co unts of ac tivities p erformed b y a 
  11373   "^DIC",409 .97,409.97 ,"%D",2,0)
  11374   scheduler  on a date.   The stat istics are  compiled  early each  morning b
  11375   "^DIC",409 .97,409.97 ,"%D",3,0)
  11376   the audit  statistics  compiler  routine (S DECAUD) fr om data in  files 403 .5, 
  11377   "^DIC",409 .97,409.97 ,"%D",4,0)
  11378   409.3, 409 .84 and 40 9.85."
  11379   "^DIC",409 .97,"B","S D Audit St atistics", 409.97)
  11380  
  11381   "BLD",1034 0,6)
  11382   8^
  11383   $END KID S D*5.3*686
  11384