4. EPMO Open Source Coordination Office Redaction File Detail Report

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

4.1 Files compared

# Location File Last Modified
1 MASS.zip\MASS DVBA-2.7-202.KID Wed Jun 6 14:44:36 2018 UTC
2 MASS.zip\MASS DVBA-2.7-202.KID Tue Jun 12 16:55:55 2018 UTC

4.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 9 5010
Changed 9 18
Inserted 0 0
Removed 0 0

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   $TXT Creat ed by MARQ UEZ,JUSTO  at DEVVFF.
D NS        URL             (KIDS) on  Friday, 05 /04/18 at  12:21
  2   $END TXT
  3   $KID DVBA* 2.7*202
  4   **INSTALL  NAME**
  5   DVBA*2.7*2 02
  6   "BLD",1063 9,0)
  7   DVBA*2.7*2 02^AUTOMAT ED MED INF O EXCHANGE ^0^3180504 ^y
  8   "BLD",1063 9,1,0)
  9   ^^370^370^ 3180419^^
  10   "BLD",1063 9,1,1,0)
  11   Associated  patches:  DG*5.3*948
  12   "BLD",1063 9,1,2,0)
  13                         SD*5.3*676
  14   "BLD",1063 9,1,3,0)
  15                         OR*3.0*470
  16   "BLD",1063 9,1,4,0)
  17                         GMRC*3.0*9 5
  18   "BLD",1063 9,1,5,0)
  19    
  20   "BLD",1063 9,1,6,0)
  21   Subject:   MASS 2507  EXAM PATCH
  22   "BLD",1063 9,1,7,0)
  23    
  24   "BLD",1063 9,1,8,0)
  25   Category:   2507 EXAM
  26   "BLD",1063 9,1,9,0)
  27               ROUTINE
  28   "BLD",1063 9,1,10,0)
  29               PROTOCOLS
  30   "BLD",1063 9,1,11,0)
  31    
  32   "BLD",1063 9,1,12,0)
  33   The follow ing patche s must be  installed  in order f or a succe ssful 
  34   "BLD",1063 9,1,13,0)
  35   instalatio n:
  36   "BLD",1063 9,1,14,0)
  37               SD*5.3*67 6
  38   "BLD",1063 9,1,15,0)
  39               DG*5.3*94 8
  40   "BLD",1063 9,1,16,0)
  41               OR*3.0*47 0
  42   "BLD",1063 9,1,17,0)
  43               GMRC*3.0* 95
  44   "BLD",1063 9,1,18,0)
  45               DVBA*2.7* 202
  46   "BLD",1063 9,1,19,0)
  47    
  48   "BLD",1063 9,1,20,0)
  49   Descriptio n:
  50   "BLD",1063 9,1,21,0)
  51   ---------- --
  52   "BLD",1063 9,1,22,0)
  53   Automated  Medical In formation  Exchange p atch DVBA* 2.7*202 is  the 
  54   "BLD",1063 9,1,23,0)
  55   initial re lease of t he Medical  Appointme nt Schedul ing System  (MASS)
  56   "BLD",1063 9,1,24,0)
  57   Scheduling  integrati on develop ment for t he VistA P ilot at 
  58   "BLD",1063 9,1,25,0)
  59   Columbus,  OH. This p atch inclu des all of  the neces sary compo nents 
  60   "BLD",1063 9,1,26,0)
  61   that will  enable out going HL7  (Health Le vel 7) V2
  62   "BLD",1063 9,1,27,0)
  63   ORM (Order  Message)  ordering i ntegration  with MASS
  64   "BLD",1063 9,1,28,0)
  65    
  66   "BLD",1063 9,1,29,0)
  67   Patch Comp onents:
  68   "BLD",1063 9,1,30,0)
  69   ---------- -------
  70   "BLD",1063 9,1,31,0)
  71   N/A  (Not  Applicable )
  72   "BLD",1063 9,1,32,0)
  73    
  74   "BLD",1063 9,1,33,0)
  75    
  76   "BLD",1063 9,1,34,0)
  77   Files & Fi elds Assoc iated:
  78   "BLD",1063 9,1,35,0)
  79    
  80   "BLD",1063 9,1,36,0)
  81   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  82   "BLD",1063 9,1,37,0)
  83   ---------- --------       ------ ---------- ---     -- ---------- --------
  84   "BLD",1063 9,1,38,0)
  85   2507 EXAM  (396.4)        2507 R EQUEST (.0 2)      MO DIFIED
  86   "BLD",1063 9,1,39,0)
  87   2507 EXAM  (396.4)        EXAM T YPE (.03)          MO DIFIED
  88   "BLD",1063 9,1,40,0)
  89   2507 EXAM  (396.4)        STATUS  (.04)             MO DIFIED
  90   "BLD",1063 9,1,41,0)
  91    
  92   "BLD",1063 9,1,42,0)
  93    
  94   "BLD",1063 9,1,43,0)
  95   Forms Asso ciated:
  96   "BLD",1063 9,1,44,0)
  97    
  98   "BLD",1063 9,1,45,0)
  99   Form Name        File  #  New/Mo dified/Del eted
  100   "BLD",1063 9,1,46,0)
  101   ---------        ---- --  ------ ---------- ----
  102   "BLD",1063 9,1,47,0)
  103   None             N/A      N/A
  104   "BLD",1063 9,1,48,0)
  105    
  106   "BLD",1063 9,1,49,0)
  107    
  108   "BLD",1063 9,1,50,0)
  109   Mail Group s Associat ed:
  110   "BLD",1063 9,1,51,0)
  111    
  112   "BLD",1063 9,1,52,0)
  113   Mail Group  Name New/ Modified/D eleted
  114   "BLD",1063 9,1,53,0)
  115   ---------- ----- ---- ---------- ------
  116   "BLD",1063 9,1,54,0)
  117   None             N/A
  118   "BLD",1063 9,1,55,0)
  119    
  120   "BLD",1063 9,1,56,0)
  121    
  122   "BLD",1063 9,1,57,0)
  123   Options As sociated:
  124   "BLD",1063 9,1,58,0)
  125    
  126   "BLD",1063 9,1,59,0)
  127   Option Nam e     Type     New/Mo dified/Del eted
  128   "BLD",1063 9,1,60,0)
  129   ---------- -     ----     ------ ---------- ---- 
  130   "BLD",1063 9,1,61,0)
  131   None             N/A      N/A
  132   "BLD",1063 9,1,62,0)
  133    
  134   "BLD",1063 9,1,63,0)
  135    
  136   "BLD",1063 9,1,64,0)
  137   Protocols  Associated :
  138   "BLD",1063 9,1,65,0)
  139    
  140   "BLD",1063 9,1,66,0)
  141   Protocol N ame   New/ Modified/D eleted
  142   "BLD",1063 9,1,67,0)
  143   ---------- ---   ---- ---------- ------ 
  144   "BLD",1063 9,1,68,0)
  145   None             N/A
  146   "BLD",1063 9,1,69,0)
  147    
  148   "BLD",1063 9,1,70,0)
  149    
  150   "BLD",1063 9,1,71,0)
  151   Security K eys Associ ated:
  152   "BLD",1063 9,1,72,0)
  153    
  154   "BLD",1063 9,1,73,0)
  155   Security K ey Name
  156   "BLD",1063 9,1,74,0)
  157   ---------- -------
  158   "BLD",1063 9,1,75,0)
  159   N/A
  160   "BLD",1063 9,1,76,0)
  161    
  162   "BLD",1063 9,1,77,0)
  163    
  164   "BLD",1063 9,1,78,0)
  165   Templates  Associated :
  166   "BLD",1063 9,1,79,0)
  167    
  168   "BLD",1063 9,1,80,0)
  169   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  170   "BLD",1063 9,1,81,0)
  171   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  172   "BLD",1063 9,1,82,0)
  173   None             N/A      N/A                   N/A
  174   "BLD",1063 9,1,83,0)
  175    
  176   "BLD",1063 9,1,84,0)
  177   Additional  Informati on: N/A
  178   "BLD",1063 9,1,85,0)
  179    
  180   "BLD",1063 9,1,86,0)
  181    
  182   "BLD",1063 9,1,87,0)
  183   New Servic e Requests  (NSRs):
  184   "BLD",1063 9,1,88,0)
  185   ---------- ---------- --------  
  186   "BLD",1063 9,1,89,0)
  187   N/A
  188   "BLD",1063 9,1,90,0)
  189    
  190   "BLD",1063 9,1,91,0)
  191    
  192   "BLD",1063 9,1,92,0)
  193   Patient Sa fety Issue s (PSIs):
  194   "BLD",1063 9,1,93,0)
  195   ---------- ---------- ---------
  196   "BLD",1063 9,1,94,0)
  197   N/A
  198   "BLD",1063 9,1,95,0)
  199    
  200   "BLD",1063 9,1,96,0)
  201    
  202   "BLD",1063 9,1,97,0)
  203   Defect Tra cking Syst em Ticket( s) & Overv iew:
  204   "BLD",1063 9,1,98,0)
  205   ---------- ---------- ---------- ---------- ----
  206   "BLD",1063 9,1,99,0)
  207   N/A
  208   "BLD",1063 9,1,100,0)
  209    
  210   "BLD",1063 9,1,101,0)
  211    
  212   "BLD",1063 9,1,102,0)
  213   Problem:
  214   "BLD",1063 9,1,103,0)
  215   -------
  216   "BLD",1063 9,1,104,0)
  217   N/A
  218   "BLD",1063 9,1,105,0)
  219    
  220   "BLD",1063 9,1,106,0)
  221    
  222   "BLD",1063 9,1,107,0)
  223   Resolution :
  224   "BLD",1063 9,1,108,0)
  225   ----------
  226   "BLD",1063 9,1,109,0)
  227   N/A
  228   "BLD",1063 9,1,110,0)
  229    
  230   "BLD",1063 9,1,111,0)
  231    
  232   "BLD",1063 9,1,112,0)
  233   Test Sites :
  234   "BLD",1063 9,1,113,0)
  235   ----------
  236   "BLD",1063 9,1,114,0)
  237   1. EPIC DE VELOPMENT  ACCOUNT
  238   "BLD",1063 9,1,115,0)
  239   2. VISTA D EVVFF DEVE LOPMENT AC COUNT
  240   "BLD",1063 9,1,116,0)
  241   3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION)
  242   "BLD",1063 9,1,117,0)
  243    
  244   "BLD",1063 9,1,118,0)
  245   Software a nd Documen tation Ret rieval Ins tructions:
  246   "BLD",1063 9,1,119,0)
  247   ---------- ---------- ---------- ---------- ----------  
  248   "BLD",1063 9,1,120,0)
  249   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  250   "BLD",1063 9,1,121,0)
  251   the new fu nctionalit y introduc ed by this  patch are  available .
  252   "BLD",1063 9,1,122,0)
  253    
  254   "BLD",1063 9,1,123,0)
  255   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  256   "BLD",1063 9,1,124,0)
  257   This trans mits the f iles from  the first  available  server. Si tes may 
  258   "BLD",1063 9,1,125,0)
  259   also elect  to retrie ve files d irectly fr om a speci fic server
  260   "BLD",1063 9,1,126,0)
  261    
  262   "BLD",1063 9,1,127,0)
  263   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  264   "BLD",1063 9,1,128,0)
  265   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  266   "BLD",1063 9,1,129,0)
  267   directory  at the fol lowing 
  268   "BLD",1063 9,1,130,0)
  269   OI Field O ffices:
  270   "BLD",1063 9,1,131,0)
  271    
  272   "BLD",1063 9,1,132,0)
  273   Hines:  DN S     .URL          
  274   "BLD",1063 9,1,133,0)
  275   Salt Lake  City:        
. URL        
  276   "BLD",1063 9,1,134,0)
  277    
  278   "BLD",1063 9,1,135,0)
  279   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  280   "BLD",1063 9,1,136,0)
  281   at:
  282   "BLD",1063 9,1,137,0)
  283   http://www . DNS     /vdl/
  284   "BLD",1063 9,1,138,0)
  285    
  286   "BLD",1063 9,1,139,0)
  287   Title                             File Name            FTP Mode
  288   "BLD",1063 9,1,140,0)
  289   -----                             ---------            --------
  290   "BLD",1063 9,1,141,0)
  291   MASS VistA  Technical  Manual     MASS Vist A          SFTP
  292   "BLD",1063 9,1,142,0)
  293                                     Technical  Manual
  294   "BLD",1063 9,1,143,0)
  295    
  296   "BLD",1063 9,1,144,0)
  297    
  298   "BLD",1063 9,1,145,0)
  299   Patch Inst allation:
  300   "BLD",1063 9,1,146,0)
  301    
  302   "BLD",1063 9,1,147,0)
  303   Pre/Post I nstallatio n Overview :
  304   "BLD",1063 9,1,148,0)
  305   ---------- ---------- ---------- -
  306   "BLD",1063 9,1,149,0)
  307   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  308   "BLD",1063 9,1,150,0)
  309    
  310   "BLD",1063 9,1,151,0)
  311    
  312   "BLD",1063 9,1,152,0)
  313   Pre-Instal lation Ins tructions:
  314   "BLD",1063 9,1,153,0)
  315   ---------- ---------- ----------
  316   "BLD",1063 9,1,154,0)
  317   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  318   "BLD",1063 9,1,155,0)
  319    
  320   "BLD",1063 9,1,156,0)
  321   This patch  may not b e installe d with use rs on the  system.  T his patch 
  322   "BLD",1063 9,1,157,0)
  323   should tak e less tha n 5 minute s to insta ll.
  324   "BLD",1063 9,1,158,0)
  325    
  326   "BLD",1063 9,1,159,0)
  327   OR
  328   "BLD",1063 9,1,160,0)
  329    
  330   "BLD",1063 9,1,161,0)
  331   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  332   "BLD",1063 9,1,162,0)
  333   recommende d that it  be install ed during  non-peak h ours to mi nimize
  334   "BLD",1063 9,1,163,0)
  335   potential  disruption  to users.   This pat ch should  take less  than 5 
  336   "BLD",1063 9,1,164,0)
  337   minutes to  install.
  338   "BLD",1063 9,1,165,0)
  339    
  340   "BLD",1063 9,1,166,0)
  341   There are  no ListMan  Options t hat need t o be disab led for th is patch.
  342   "BLD",1063 9,1,167,0)
  343    
  344   "BLD",1063 9,1,168,0)
  345    
  346   "BLD",1063 9,1,169,0)
  347   Installati on Instruc tions:
  348   "BLD",1063 9,1,170,0)
  349   ---------- ---------- ------
  350   "BLD",1063 9,1,171,0)
  351    
  352   "BLD",1063 9,1,172,0)
  353   1. Choose  the PackMa n message  containing  this patc h.
  354   "BLD",1063 9,1,173,0)
  355    
  356   "BLD",1063 9,1,174,0)
  357   2. Choose  the INSTAL L/CHECK ME SSAGE Pack Man option
  358   "BLD",1063 9,1,175,0)
  359    
  360   "BLD",1063 9,1,176,0)
  361   3. From th e Kernel I nstallatio n and Dist ribution S ystem Menu , select 
  362   "BLD",1063 9,1,177,0)
  363      the Ins tallation  Menu (See  Install Pr ompts Samp le below f or more 
  364   "BLD",1063 9,1,178,0)
  365      detail) .  From th is menu, y ou may ele ct to use  the follow ing option s. 
  366   "BLD",1063 9,1,179,0)
  367      When pr ompted for  the INSTA LL NAME en ter the pa tch DVBA*2 .7*202:
  368   "BLD",1063 9,1,180,0)
  369    
  370   "BLD",1063 9,1,181,0)
  371      a.  Bac kup a Tran sport Glob al - This  option wil l create a  backup 
  372   "BLD",1063 9,1,182,0)
  373          mes sage of an y routines  exported  with this  patch. It  will not
  374   "BLD",1063 9,1,183,0)
  375          bac kup any ot her change s such as  DDs or tem plates.   
  376   "BLD",1063 9,1,184,0)
  377                                                                 
  378   "BLD",1063 9,1,185,0)
  379      b.  Com pare Trans port Globa l to Curre nt System  - This opt ion will 
  380   "BLD",1063 9,1,186,0)
  381          (al low you to  view all  changes th at will be  made when  this 
  382   "BLD",1063 9,1,187,0)
  383   patch         
  384   "BLD",1063 9,1,188,0)
  385          is  installed.   It compa res all co mponents o f this pat ch routine s,
  386   "BLD",1063 9,1,189,0)
  387          DDs , template s, etc.).
  388   "BLD",1063 9,1,190,0)
  389    
  390   "BLD",1063 9,1,191,0)
  391      c.  Ver ify Checks ums in Tra nsport Glo bal - This  option wi ll allow y ou 
  392   "BLD",1063 9,1,192,0)
  393          to  ensure the  integrity  of the ro utines tha t are in t he transpo rt
  394   "BLD",1063 9,1,193,0)
  395          glo bal.
  396   "BLD",1063 9,1,194,0)
  397    
  398   "BLD",1063 9,1,195,0)
  399   4. From th e Installa tion Menu,  select th e Install  Package(s)  option 
  400   "BLD",1063 9,1,196,0)
  401      and cho ose the pa tch to ins tall.
  402   "BLD",1063 9,1,197,0)
  403    
  404   "BLD",1063 9,1,198,0)
  405   5. When pr ompted 'Wa nt KIDS to  Rebuild M enu Trees  Upon Compl etion of 
  406   "BLD",1063 9,1,199,0)
  407      Install ? NO//'
  408   "BLD",1063 9,1,200,0)
  409    
  410   "BLD",1063 9,1,201,0)
  411   6. When pr ompted 'Wa nt KIDS to  INHIBIT L OGONs duri ng the ins tall?  
  412   "BLD",1063 9,1,202,0)
  413      NO//'
  414   "BLD",1063 9,1,203,0)
  415    
  416   "BLD",1063 9,1,204,0)
  417   7. When pr ompted 'Wa nt to DISA BLE Schedu led Option s, Menu Op tions, 
  418   "BLD",1063 9,1,205,0)
  419      and Pro tocols? NO //' 
  420   "BLD",1063 9,1,206,0)
  421    
  422   "BLD",1063 9,1,207,0)
  423   8. If prom pted 'Dela y Install  (Minutes):   (0 - 60) : 0//' res pond 0.
  424   "BLD",1063 9,1,208,0)
  425    
  426   "BLD",1063 9,1,209,0)
  427    
  428   "BLD",1063 9,1,210,0)
  429   Install Pr ompts Samp le:
  430   "BLD",1063 9,1,211,0)
  431   ---------- ---------- ------
  432   "BLD",1063 9,1,212,0)
  433    
  434   "BLD",1063 9,1,213,0)
  435   VISTA>D ^X UP
  436   "BLD",1063 9,1,214,0)
  437    
  438   "BLD",1063 9,1,215,0)
  439   Setting up  programme r environm ent
  440   "BLD",1063 9,1,216,0)
  441   This is a  TEST accou nt.
  442   "BLD",1063 9,1,217,0)
  443    
  444   "BLD",1063 9,1,218,0)
  445   Terminal T ype set to : C-VT100
  446   "BLD",1063 9,1,219,0)
  447    
  448   "BLD",1063 9,1,220,0)
  449   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  450   "BLD",1063 9,1,221,0)
  451   Load a Dis tribution
  452   "BLD",1063 9,1,222,0)
  453   Enter a Ho st File: < File locat ion>\DVBA_ 2_7_202.KI D
  454   "BLD",1063 9,1,223,0)
  455    
  456   "BLD",1063 9,1,224,0)
  457   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:29:45
  458   "BLD",1063 9,1,225,0)
  459   Comment: D VBA*2.7*20 2 12/11/17
  460   "BLD",1063 9,1,226,0)
  461    
  462   "BLD",1063 9,1,227,0)
  463   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  464   "BLD",1063 9,1,228,0)
  465      It cons isted of t he followi ng Install (s): 
  466   "BLD",1063 9,1,229,0)
  467        DBVA* 2.7*202
  468   "BLD",1063 9,1,230,0)
  469    
  470   "BLD",1063 9,1,231,0)
  471   OK to cont inue with  Load? NO//  YES
  472   "BLD",1063 9,1,232,0)
  473    
  474   "BLD",1063 9,1,233,0)
  475   Distributi on OK!
  476   "BLD",1063 9,1,234,0)
  477    
  478   "BLD",1063 9,1,235,0)
  479   Want to Co ntinue wit h Load? YE S// 
  480   "BLD",1063 9,1,236,0)
  481   Loading Di stribution ...
  482   "BLD",1063 9,1,237,0)
  483    
  484   "BLD",1063 9,1,238,0)
  485      DVBA*2. 7*202
  486   "BLD",1063 9,1,239,0)
  487   Use INSTAL L NAME: DV BA*2.7*202  to instal l this Dis tribution.
  488   "BLD",1063 9,1,240,0)
  489    
  490   "BLD",1063 9,1,241,0)
  491   VISTA>D ^X UP
  492   "BLD",1063 9,1,242,0)
  493    
  494   "BLD",1063 9,1,243,0)
  495   Setting up  programme r environm ent
  496   "BLD",1063 9,1,244,0)
  497   This is a  TEST accou nt.
  498   "BLD",1063 9,1,245,0)
  499    
  500   "BLD",1063 9,1,246,0)
  501   Terminal T ype set to : C-VT100
  502   "BLD",1063 9,1,247,0)
  503    
  504   "BLD",1063 9,1,248,0)
  505   Select OPT ION NAME:  XPD IN
  506   "BLD",1063 9,1,249,0)
  507        1   X PD INSTALL  BUILD        Install  Package(s )
  508   "BLD",1063 9,1,250,0)
  509        2   X PD INSTALL ATION MENU        Ins tallation
  510   "BLD",1063 9,1,251,0)
  511   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  512   "BLD",1063 9,1,252,0)
  513   Install Pa ckage(s)
  514   "BLD",1063 9,1,253,0)
  515   Select INS TALL NAME:     DVBA*2 .7*202      Loaded fr om Distrib ution    
  516   "BLD",1063 9,1,254,0)
  517   12/12/17@2 3
  518   "BLD",1063 9,1,255,0)
  519   :47:16
  520   "BLD",1063 9,1,256,0)
  521        => DV BA*2.7*202  12/11/17   ;Created  on Dec 11,  2017@17:2 9:45
  522   "BLD",1063 9,1,257,0)
  523    
  524   "BLD",1063 9,1,258,0)
  525   This Distr ibution wa s loaded o n Dec 12,  2017@23:47 :16 with h eader of 
  526   "BLD",1063 9,1,259,0)
  527      DVBA*2. 7*202 12/1 1/17  ;Cre ated on De c 11, 2017 @17:29:45
  528   "BLD",1063 9,1,260,0)
  529      It cons isted of t he followi ng Install (s):
  530   "BLD",1063 9,1,261,0)
  531      DVBA*2. 7*202
  532   "BLD",1063 9,1,262,0)
  533   Checking I nstall for  Package D VBA*2.7*20 2
  534   "BLD",1063 9,1,263,0)
  535    
  536   "BLD",1063 9,1,264,0)
  537   Install Qu estions fo r DVBA*2.7 *202
  538   "BLD",1063 9,1,265,0)
  539    
  540   "BLD",1063 9,1,266,0)
  541   Incoming F iles:
  542   "BLD",1063 9,1,267,0)
  543    
  544   "BLD",1063 9,1,268,0)
  545      396.4      2507 EX AM  (Parti al Definit ion)
  546   "BLD",1063 9,1,269,0)
  547   Note:  You  already h ave the '2 507 EXAM'  File.
  548   "BLD",1063 9,1,270,0)
  549    
  550   "BLD",1063 9,1,271,0)
  551    
  552   "BLD",1063 9,1,272,0)
  553   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  554   "BLD",1063 9,1,273,0)
  555   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  556   "BLD",1063 9,1,274,0)
  557    
  558   "BLD",1063 9,1,275,0)
  559   Enter the  Device you  want to p rint the I nstall mes sages.
  560   "BLD",1063 9,1,276,0)
  561   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  562   "BLD",1063 9,1,277,0)
  563   Enter a '^ ' to abort  the insta ll.
  564   "BLD",1063 9,1,278,0)
  565    
  566   "BLD",1063 9,1,279,0)
  567   DEVICE: HO ME//   CON SOLE
  568   "BLD",1063 9,1,280,0)
  569    
  570   "BLD",1063 9,1,281,0)
  571    Install S tarted for  DVBA*2.7* 202 : 
  572   "BLD",1063 9,1,282,0)
  573                   Dec 1 2, 2017@23 :47:24
  574   "BLD",1063 9,1,283,0)
  575    
  576   "BLD",1063 9,1,284,0)
  577   Build Dist ribution D ate: Dec 1 1, 2017
  578   "BLD",1063 9,1,285,0)
  579    
  580   "BLD",1063 9,1,286,0)
  581    Installin g Routines :
  582   "BLD",1063 9,1,287,0)
  583                    Dec  12, 2017@2 3:47:25
  584   "BLD",1063 9,1,288,0)
  585    
  586   "BLD",1063 9,1,289,0)
  587    Installin g Data Dic tionaries:  
  588   "BLD",1063 9,1,290,0)
  589                    Dec  12, 2017@2 3:47:25
  590   "BLD",1063 9,1,291,0)
  591    
  592   "BLD",1063 9,1,292,0)
  593    Updating  Routine fi le...
  594   "BLD",1063 9,1,293,0)
  595    
  596   "BLD",1063 9,1,294,0)
  597    Updating  KIDS files ...
  598   "BLD",1063 9,1,295,0)
  599    
  600   "BLD",1063 9,1,296,0)
  601    DVBA*2.7* 202 Instal led. 
  602   "BLD",1063 9,1,297,0)
  603                   Dec 1 2, 2017@23 :47:25
  604   "BLD",1063 9,1,298,0)
  605    
  606   "BLD",1063 9,1,299,0)
  607    No link t o PACKAGE  file
  608   "BLD",1063 9,1,300,0)
  609    
  610   "BLD",1063 9,1,301,0)
  611    Install M essage sen
  612   "BLD",1063 9,1,302,0)
  613    
  614   "BLD",1063 9,1,303,0)
  615   Install Co mpleted
  616   "BLD",1063 9,1,304,0)
  617    
  618   "BLD",1063 9,1,305,0)
  619                   Dec 1 2, 2017@23 :47:25
  620   "BLD",1063 9,1,306,0)
  621    
  622   "BLD",1063 9,1,307,0)
  623    Installin g Data Dic tionaries:  
  624   "BLD",1063 9,1,308,0)
  625                    Dec  12, 2017@2 3:47:25
  626   "BLD",1063 9,1,309,0)
  627    
  628   "BLD",1063 9,1,310,0)
  629    Updating  Routine fi le...
  630   "BLD",1063 9,1,311,0)
  631    
  632   "BLD",1063 9,1,312,0)
  633    Updating  KIDS files ...
  634   "BLD",1063 9,1,313,0)
  635    
  636   "BLD",1063 9,1,314,0)
  637    DVBA*2.7* 202 Instal led. 
  638   "BLD",1063 9,1,315,0)
  639                   Dec 1 2, 2017@23 :47:25
  640   "BLD",1063 9,1,316,0)
  641    
  642   "BLD",1063 9,1,317,0)
  643    No link t o PACKAGE  file
  644   "BLD",1063 9,1,318,0)
  645    
  646   "BLD",1063 9,1,319,0)
  647   VISTA>
  648   "BLD",1063 9,1,320,0)
  649    
  650   "BLD",1063 9,1,321,0)
  651    
  652   "BLD",1063 9,1,322,0)
  653   Patch Back out Instru ctions:
  654   "BLD",1063 9,1,323,0)
  655   ---------- ---------- ------
  656   "BLD",1063 9,1,324,0)
  657    
  658   "BLD",1063 9,1,325,0)
  659   1.  Go to  MailMan me nu, choose  option Re ad/Manage  Messages a nd select 
  660   "BLD",1063 9,1,326,0)
  661       the ba ckup messa ge that wa s creating  during In stallation  step
  662   "BLD",1063 9,1,327,0)
  663       3.c -  Backup
  664   "BLD",1063 9,1,328,0)
  665    
  666   "BLD",1063 9,1,329,0)
  667   2.  When p rompted 'T ype <Enter > to conti nue or '^'  to exit:'  type '^' 
  668   "BLD",1063 9,1,330,0)
  669       and th en <Enter>
  670   "BLD",1063 9,1,331,0)
  671    
  672   "BLD",1063 9,1,332,0)
  673   3.  When p rompted 'E nter messa ge action: ' type 'Xt ract PackM an' and 
  674   "BLD",1063 9,1,333,0)
  675       then < Enter>
  676   "BLD",1063 9,1,334,0)
  677    
  678   "BLD",1063 9,1,335,0)
  679   4.  The fo llowing me ssage and  the prompt  will disp lay:
  680   "BLD",1063 9,1,336,0)
  681       Warnin g: Install ing this m essage wil l cause a  permanent  update of
  682   "BLD",1063 9,1,337,0)
  683       global s and rout ines.
  684   "BLD",1063 9,1,338,0)
  685       Do you  really wa nt to do t his? NO//'  type 'YES ' and then  <Enter>
  686   "BLD",1063 9,1,339,0)
  687    
  688   "BLD",1063 9,1,340,0)
  689   5.  When p rompted: 
  690   "BLD",1063 9,1,341,0)
  691       'Shall  I preserv e the rout ines on di sk in a se parate bac k-up
  692   "BLD",1063 9,1,342,0)
  693       messag e? YES//'  type 'NO'  and then < Enter>
  694   "BLD",1063 9,1,343,0)
  695    
  696   "BLD",1063 9,1,344,0)
  697   6.  The sy stem will  display th e followin g message  and show a ll the 
  698   "BLD",1063 9,1,345,0)
  699       routin es that we re unloade d confirmi ng that al l the rout ines in th e
  700   "BLD",1063 9,1,346,0)
  701       build  have been  restored t o the prio r version  (unloaded) :
  702   "BLD",1063 9,1,347,0)
  703       'No ba ckup messa ge built.
  704   "BLD",1063 9,1,348,0)
  705       ***LIS T of routi nes from b ackup. See  full rout ine list a t the end  of
  706   "BLD",1063 9,1,349,0)
  707       the do cument***
  708   "BLD",1063 9,1,350,0)
  709    
  710   "BLD",1063 9,1,351,0)
  711       Select  PackMan f unction: a nd then <E nter>'
  712   "BLD",1063 9,1,352,0)
  713    
  714   "BLD",1063 9,1,353,0)
  715   7.  Verify  that all  six routin es are lis ted as abo ve have be en 
  716   "BLD",1063 9,1,354,0)
  717       backed  out:
  718   "BLD",1063 9,1,355,0)
  719       No bac kup messag e built.
  720   "BLD",1063 9,1,356,0)
  721       When p rompted 'W ant KIDS t o INHIBIT  LOGONs dur ing the in stall? NO/ /'
  722   "BLD",1063 9,1,357,0)
  723       Press  <Enter>.
  724   "BLD",1063 9,1,358,0)
  725       When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, an
  726   "BLD",1063 9,1,359,0)
  727       Protoc ols? NO//'  Press <En ter>.
  728   "BLD",1063 9,1,360,0)
  729       If pro mpted 'Del ay Install  (Minutes) :  (0 - 60 ): 0//' re spond 0.
  730   "BLD",1063 9,1,361,0)
  731    
  732   "BLD",1063 9,1,362,0)
  733   8.  To cle an up the  cross refe rences run  BACKOUT^D VBAPOST to  clean up 
  734   "BLD",1063 9,1,363,0)
  735       the cr oss refere nces.
  736   "BLD",1063 9,1,364,0)
  737    
  738   "BLD",1063 9,1,365,0)
  739   Post-Insta llation In structions :
  740   "BLD",1063 9,1,366,0)
  741   ---------- ---------- ---------- -
  742   "BLD",1063 9,1,367,0)
  743   See Techni cal Manual  for cross  reference /object co ntents ver ification
  744   "BLD",1063 9,1,368,0)
  745    
  746   "BLD",1063 9,1,369,0)
  747   Check list  to Verify :
  748   "BLD",1063 9,1,370,0)
  749   1.      It em .02, .0 3, and .04  in the 25 07 EXAM fi le.
  750   "BLD",1063 9,4,0)
  751   ^9.64PA^39 6.4^1
  752   "BLD",1063 9,4,396.4, 0)
  753   396.4
  754   "BLD",1063 9,4,396.4, 2,0)
  755   ^9.641^396 .4^1
  756   "BLD",1063 9,4,396.4, 2,396.4,0)
  757   2507 EXAM   (File-top  level)
  758   "BLD",1063 9,4,396.4, 2,396.4,1, 0)
  759   ^9.6411^.0 4^3
  760   "BLD",1063 9,4,396.4, 2,396.4,1, .02,0)
  761   2507 REQUE ST
  762   "BLD",1063 9,4,396.4, 2,396.4,1, .03,0)
  763   EXAM TYPE
  764   "BLD",1063 9,4,396.4, 2,396.4,1, .04,0)
  765   STATUS
  766   "BLD",1063 9,4,396.4, 222)
  767   y^y^p^^^^n ^^n
  768   "BLD",1063 9,4,396.4, 224)
  769  
  770   "BLD",1063 9,4,"APDD" ,396.4,396 .4)
  771  
  772   "BLD",1063 9,4,"APDD" ,396.4,396 .4,.02)
  773  
  774   "BLD",1063 9,4,"APDD" ,396.4,396 .4,.03)
  775  
  776   "BLD",1063 9,4,"APDD" ,396.4,396 .4,.04)
  777  
  778   "BLD",1063 9,4,"B",39 6.4,396.4)
  779  
  780   "BLD",1063 9,6.3)
  781   28
  782   "BLD",1063 9,"ABPKG")
  783   n
  784   "BLD",1063 9,"INI")
  785   DVMXPRE
  786   "BLD",1063 9,"INID")
  787   ^n^n
  788   "BLD",1063 9,"INIT")
  789   DVMXPOST
  790   "BLD",1063 9,"KRN",0)
  791   ^9.67PA^77 9.2^20
  792   "BLD",1063 9,"KRN",.4 ,0)
  793   .4
  794   "BLD",1063 9,"KRN",.4 01,0)
  795   .401
  796   "BLD",1063 9,"KRN",.4 02,0)
  797   .402
  798   "BLD",1063 9,"KRN",.4 03,0)
  799   .403
  800   "BLD",1063 9,"KRN",.5 ,0)
  801   .5
  802   "BLD",1063 9,"KRN",.8 4,0)
  803   .84
  804   "BLD",1063 9,"KRN",3. 6,0)
  805   3.6
  806   "BLD",1063 9,"KRN",3. 8,0)
  807   3.8
  808   "BLD",1063 9,"KRN",9. 2,0)
  809   9.2
  810   "BLD",1063 9,"KRN",9. 8,0)
  811   9.8
  812   "BLD",1063 9,"KRN",9. 8,"NM",0)
  813   ^9.68A^4^4
  814   "BLD",1063 9,"KRN",9. 8,"NM",1,0 )
  815   DVBCLOGE^^ 0^B2356225 7
  816   "BLD",1063 9,"KRN",9. 8,"NM",2,0 )
  817   DVBCREDT^^ 0^B2422148 5
  818   "BLD",1063 9,"KRN",9. 8,"NM",3,0 )
  819   DVMXPRE^^0 ^B1810422
  820   "BLD",1063 9,"KRN",9. 8,"NM",4,0 )
  821   DVMXPOST^^ 0^B2689746
  822   "BLD",1063 9,"KRN",9. 8,"NM","B" ,"DVBCLOGE ",1)
  823  
  824   "BLD",1063 9,"KRN",9. 8,"NM","B" ,"DVBCREDT ",2)
  825  
  826   "BLD",1063 9,"KRN",9. 8,"NM","B" ,"DVMXPOST ",4)
  827  
  828   "BLD",1063 9,"KRN",9. 8,"NM","B" ,"DVMXPRE" ,3)
  829  
  830   "BLD",1063 9,"KRN",19 ,0)
  831   19
  832   "BLD",1063 9,"KRN",19 .1,0)
  833   19.1
  834   "BLD",1063 9,"KRN",10 1,0)
  835   101
  836   "BLD",1063 9,"KRN",40 9.61,0)
  837   409.61
  838   "BLD",1063 9,"KRN",77 1,0)
  839   771
  840   "BLD",1063 9,"KRN",77 9.2,0)
  841   779.2
  842   "BLD",1063 9,"KRN",87 0,0)
  843   870
  844   "BLD",1063 9,"KRN",89 89.51,0)
  845   8989.51
  846   "BLD",1063 9,"KRN",89 89.52,0)
  847   8989.52
  848   "BLD",1063 9,"KRN",89 94,0)
  849   8994
  850   "BLD",1063 9,"KRN","B ",.4,.4)
  851  
  852   "BLD",1063 9,"KRN","B ",.401,.40 1)
  853  
  854   "BLD",1063 9,"KRN","B ",.402,.40 2)
  855  
  856   "BLD",1063 9,"KRN","B ",.403,.40 3)
  857  
  858   "BLD",1063 9,"KRN","B ",.5,.5)
  859  
  860   "BLD",1063 9,"KRN","B ",.84,.84)
  861  
  862   "BLD",1063 9,"KRN","B ",3.6,3.6)
  863  
  864   "BLD",1063 9,"KRN","B ",3.8,3.8)
  865  
  866   "BLD",1063 9,"KRN","B ",9.2,9.2)
  867  
  868   "BLD",1063 9,"KRN","B ",9.8,9.8)
  869  
  870   "BLD",1063 9,"KRN","B ",19,19)
  871  
  872   "BLD",1063 9,"KRN","B ",19.1,19. 1)
  873  
  874   "BLD",1063 9,"KRN","B ",101,101)
  875  
  876   "BLD",1063 9,"KRN","B ",409.61,4 09.61)
  877  
  878   "BLD",1063 9,"KRN","B ",771,771)
  879  
  880   "BLD",1063 9,"KRN","B ",779.2,77 9.2)
  881  
  882   "BLD",1063 9,"KRN","B ",870,870)
  883  
  884   "BLD",1063 9,"KRN","B ",8989.51, 8989.51)
  885  
  886   "BLD",1063 9,"KRN","B ",8989.52, 8989.52)
  887  
  888   "BLD",1063 9,"KRN","B ",8994,899 4)
  889  
  890   "BLD",1063 9,"QDEF")
  891   ^^^^NO^^^^ NO^^NO
  892   "BLD",1063 9,"QUES",0 )
  893   ^9.62^^
  894   "BLD",1063 9,"REQB",0 )
  895   ^9.611^4^4
  896   "BLD",1063 9,"REQB",1 ,0)
  897   DG*5.3*948 ^2
  898   "BLD",1063 9,"REQB",2 ,0)
  899   GMRC*3.0*9 5^2
  900   "BLD",1063 9,"REQB",3 ,0)
  901   OR*3.0*470 ^2
  902   "BLD",1063 9,"REQB",4 ,0)
  903   SD*5.3*676 ^2
  904   "BLD",1063 9,"REQB"," B","DG*5.3 *948",1)
  905  
  906   "BLD",1063 9,"REQB"," B","GMRC*3 .0*95",2)
  907  
  908   "BLD",1063 9,"REQB"," B","OR*3.0 *470",3)
  909  
  910   "BLD",1063 9,"REQB"," B","SD*5.3 *676",4)
  911  
  912   "FIA",396. 4)
  913   2507 EXAM
  914   "FIA",396. 4,0)
  915   ^DVB(396.4 ,
  916   "FIA",396. 4,0,0)
  917   396.4I
  918   "FIA",396. 4,0,1)
  919   y^y^p^^^^n ^^n
  920   "FIA",396. 4,0,10)
  921  
  922   "FIA",396. 4,0,11)
  923  
  924   "FIA",396. 4,0,"RLRO" )
  925  
  926   "FIA",396. 4,0,"VR")
  927   2.7^DVBA
  928   "FIA",396. 4,396.4)
  929   1
  930   "FIA",396. 4,396.4,.0 2)
  931  
  932   "FIA",396. 4,396.4,.0 3)
  933  
  934   "FIA",396. 4,396.4,.0 4)
  935  
  936   "INI")
  937   DVMXPRE
  938   "INIT")
  939   DVMXPOST
  940   "IX",396.4 ,396.4,"AG ",0)
  941   396.4^AG^T his sends  MASS order  messages  for exam s tatus chan ges^MU^^R^ IR^I^396.4 ^^^^^A
  942   "IX",396.4 ,396.4,"AG ",.1,0)
  943   ^^2^2^3171 117^
  944   "IX",396.4 ,396.4,"AG ",.1,1,0)
  945   This cross -reference  sends an  HL7 messag e from MAS S to Epic  Cadence wh en 
  946   "IX",396.4 ,396.4,"AG ",.1,2,0)
  947   any of the  fields in  this cros s-referenc e change.
  948   "IX",396.4 ,396.4,"AG ",1)
  949   D TRCPMSG^ ORMXTR
  950   "IX",396.4 ,396.4,"AG ",2)
  951   Q
  952   "IX",396.4 ,396.4,"AG ",11.1,0)
  953   ^.114IA^3^ 3
  954   "IX",396.4 ,396.4,"AG ",11.1,1,0 )
  955   1^F^396.4^ .02^^^F
  956   "IX",396.4 ,396.4,"AG ",11.1,2,0 )
  957   2^F^396.4^ .03^^^F
  958   "IX",396.4 ,396.4,"AG ",11.1,3,0 )
  959   3^F^396.4^ .04^^^F
  960   "MBREQ")
  961   0
  962   "PKG",93,- 1)
  963   1^1
  964   "PKG",93,0 )
  965   AUTOMATED  MED INFO E XCHANGE^DV BA^The ent ire AMIE p ackage 713 1/2507.
  966   "PKG",93,2 0,0)
  967   ^9.402P^^
  968   "PKG",93,2 2,0)
  969   ^9.49I^1^1
  970   "PKG",93,2 2,1,0)
  971   2.7^305111 9^2960819
  972   "PKG",93,2 2,1,"PAH", 1,0)
  973   202^318050 4
  974   "PKG",93,2 2,1,"PAH", 1,1,0)
  975   ^^370^370^ 3180504
  976   "PKG",93,2 2,1,"PAH", 1,1,1,0)
  977   Associated  patches:  DG*5.3*948
  978   "PKG",93,2 2,1,"PAH", 1,1,2,0)
  979                         SD*5.3*676
  980   "PKG",93,2 2,1,"PAH", 1,1,3,0)
  981                         OR*3.0*470
  982   "PKG",93,2 2,1,"PAH", 1,1,4,0)
  983                         GMRC*3.0*9 5
  984   "PKG",93,2 2,1,"PAH", 1,1,5,0)
  985    
  986   "PKG",93,2 2,1,"PAH", 1,1,6,0)
  987   Subject:   MASS 2507  EXAM PATCH
  988   "PKG",93,2 2,1,"PAH", 1,1,7,0)
  989    
  990   "PKG",93,2 2,1,"PAH", 1,1,8,0)
  991   Category:   2507 EXAM
  992   "PKG",93,2 2,1,"PAH", 1,1,9,0)
  993               ROUTINE
  994   "PKG",93,2 2,1,"PAH", 1,1,10,0)
  995               PROTOCOLS
  996   "PKG",93,2 2,1,"PAH", 1,1,11,0)
  997    
  998   "PKG",93,2 2,1,"PAH", 1,1,12,0)
  999   The follow ing patche s must be  installed  in order f or a succe ssful 
  1000   "PKG",93,2 2,1,"PAH", 1,1,13,0)
  1001   instalatio n:
  1002   "PKG",93,2 2,1,"PAH", 1,1,14,0)
  1003               SD*5.3*67 6
  1004   "PKG",93,2 2,1,"PAH", 1,1,15,0)
  1005               DG*5.3*94 8
  1006   "PKG",93,2 2,1,"PAH", 1,1,16,0)
  1007               OR*3.0*47 0
  1008   "PKG",93,2 2,1,"PAH", 1,1,17,0)
  1009               GMRC*3.0* 95
  1010   "PKG",93,2 2,1,"PAH", 1,1,18,0)
  1011               DVBA*2.7* 202
  1012   "PKG",93,2 2,1,"PAH", 1,1,19,0)
  1013    
  1014   "PKG",93,2 2,1,"PAH", 1,1,20,0)
  1015   Descriptio n:
  1016   "PKG",93,2 2,1,"PAH", 1,1,21,0)
  1017   ---------- --
  1018   "PKG",93,2 2,1,"PAH", 1,1,22,0)
  1019   Automated  Medical In formation  Exchange p atch DVBA* 2.7*202 is  the 
  1020   "PKG",93,2 2,1,"PAH", 1,1,23,0)
  1021   initial re lease of t he Medical  Appointme nt Schedul ing System  (MASS)
  1022   "PKG",93,2 2,1,"PAH", 1,1,24,0)
  1023   Scheduling  integrati on develop ment for t he VistA P ilot at 
  1024   "PKG",93,2 2,1,"PAH", 1,1,25,0)
  1025   Columbus,  OH. This p atch inclu des all of  the neces sary compo nents 
  1026   "PKG",93,2 2,1,"PAH", 1,1,26,0)
  1027   that will  enable out going HL7  (Health Le vel 7) V2
  1028   "PKG",93,2 2,1,"PAH", 1,1,27,0)
  1029   ORM (Order  Message)  ordering i ntegration  with MASS
  1030   "PKG",93,2 2,1,"PAH", 1,1,28,0)
  1031    
  1032   "PKG",93,2 2,1,"PAH", 1,1,29,0)
  1033   Patch Comp onents:
  1034   "PKG",93,2 2,1,"PAH", 1,1,30,0)
  1035   ---------- -------
  1036   "PKG",93,2 2,1,"PAH", 1,1,31,0)
  1037   N/A  (Not  Applicable )
  1038   "PKG",93,2 2,1,"PAH", 1,1,32,0)
  1039    
  1040   "PKG",93,2 2,1,"PAH", 1,1,33,0)
  1041    
  1042   "PKG",93,2 2,1,"PAH", 1,1,34,0)
  1043   Files & Fi elds Assoc iated:
  1044   "PKG",93,2 2,1,"PAH", 1,1,35,0)
  1045    
  1046   "PKG",93,2 2,1,"PAH", 1,1,36,0)
  1047   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  1048   "PKG",93,2 2,1,"PAH", 1,1,37,0)
  1049   ---------- --------       ------ ---------- ---     -- ---------- --------
  1050   "PKG",93,2 2,1,"PAH", 1,1,38,0)
  1051   2507 EXAM  (396.4)        2507 R EQUEST (.0 2)      MO DIFIED
  1052   "PKG",93,2 2,1,"PAH", 1,1,39,0)
  1053   2507 EXAM  (396.4)        EXAM T YPE (.03)          MO DIFIED
  1054   "PKG",93,2 2,1,"PAH", 1,1,40,0)
  1055   2507 EXAM  (396.4)        STATUS  (.04)             MO DIFIED
  1056   "PKG",93,2 2,1,"PAH", 1,1,41,0)
  1057    
  1058   "PKG",93,2 2,1,"PAH", 1,1,42,0)
  1059    
  1060   "PKG",93,2 2,1,"PAH", 1,1,43,0)
  1061   Forms Asso ciated:
  1062   "PKG",93,2 2,1,"PAH", 1,1,44,0)
  1063    
  1064   "PKG",93,2 2,1,"PAH", 1,1,45,0)
  1065   Form Name        File  #  New/Mo dified/Del eted
  1066   "PKG",93,2 2,1,"PAH", 1,1,46,0)
  1067   ---------        ---- --  ------ ---------- ----
  1068   "PKG",93,2 2,1,"PAH", 1,1,47,0)
  1069   None             N/A      N/A
  1070   "PKG",93,2 2,1,"PAH", 1,1,48,0)
  1071    
  1072   "PKG",93,2 2,1,"PAH", 1,1,49,0)
  1073    
  1074   "PKG",93,2 2,1,"PAH", 1,1,50,0)
  1075   Mail Group s Associat ed:
  1076   "PKG",93,2 2,1,"PAH", 1,1,51,0)
  1077    
  1078   "PKG",93,2 2,1,"PAH", 1,1,52,0)
  1079   Mail Group  Name New/ Modified/D eleted
  1080   "PKG",93,2 2,1,"PAH", 1,1,53,0)
  1081   ---------- ----- ---- ---------- ------
  1082   "PKG",93,2 2,1,"PAH", 1,1,54,0)
  1083   None             N/A
  1084   "PKG",93,2 2,1,"PAH", 1,1,55,0)
  1085    
  1086   "PKG",93,2 2,1,"PAH", 1,1,56,0)
  1087    
  1088   "PKG",93,2 2,1,"PAH", 1,1,57,0)
  1089   Options As sociated:
  1090   "PKG",93,2 2,1,"PAH", 1,1,58,0)
  1091    
  1092   "PKG",93,2 2,1,"PAH", 1,1,59,0)
  1093   Option Nam e     Type     New/Mo dified/Del eted
  1094   "PKG",93,2 2,1,"PAH", 1,1,60,0)
  1095   ---------- -     ----     ------ ---------- ---- 
  1096   "PKG",93,2 2,1,"PAH", 1,1,61,0)
  1097   None             N/A      N/A
  1098   "PKG",93,2 2,1,"PAH", 1,1,62,0)
  1099    
  1100   "PKG",93,2 2,1,"PAH", 1,1,63,0)
  1101    
  1102   "PKG",93,2 2,1,"PAH", 1,1,64,0)
  1103   Protocols  Associated :
  1104   "PKG",93,2 2,1,"PAH", 1,1,65,0)
  1105    
  1106   "PKG",93,2 2,1,"PAH", 1,1,66,0)
  1107   Protocol N ame   New/ Modified/D eleted
  1108   "PKG",93,2 2,1,"PAH", 1,1,67,0)
  1109   ---------- ---   ---- ---------- ------ 
  1110   "PKG",93,2 2,1,"PAH", 1,1,68,0)
  1111   None             N/A
  1112   "PKG",93,2 2,1,"PAH", 1,1,69,0)
  1113    
  1114   "PKG",93,2 2,1,"PAH", 1,1,70,0)
  1115    
  1116   "PKG",93,2 2,1,"PAH", 1,1,71,0)
  1117   Security K eys Associ ated:
  1118   "PKG",93,2 2,1,"PAH", 1,1,72,0)
  1119    
  1120   "PKG",93,2 2,1,"PAH", 1,1,73,0)
  1121   Security K ey Name
  1122   "PKG",93,2 2,1,"PAH", 1,1,74,0)
  1123   ---------- -------
  1124   "PKG",93,2 2,1,"PAH", 1,1,75,0)
  1125   N/A
  1126   "PKG",93,2 2,1,"PAH", 1,1,76,0)
  1127    
  1128   "PKG",93,2 2,1,"PAH", 1,1,77,0)
  1129    
  1130   "PKG",93,2 2,1,"PAH", 1,1,78,0)
  1131   Templates  Associated :
  1132   "PKG",93,2 2,1,"PAH", 1,1,79,0)
  1133    
  1134   "PKG",93,2 2,1,"PAH", 1,1,80,0)
  1135   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  1136   "PKG",93,2 2,1,"PAH", 1,1,81,0)
  1137   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  1138   "PKG",93,2 2,1,"PAH", 1,1,82,0)
  1139   None             N/A      N/A                   N/A
  1140   "PKG",93,2 2,1,"PAH", 1,1,83,0)
  1141    
  1142   "PKG",93,2 2,1,"PAH", 1,1,84,0)
  1143   Additional  Informati on: N/A
  1144   "PKG",93,2 2,1,"PAH", 1,1,85,0)
  1145    
  1146   "PKG",93,2 2,1,"PAH", 1,1,86,0)
  1147    
  1148   "PKG",93,2 2,1,"PAH", 1,1,87,0)
  1149   New Servic e Requests  (NSRs):
  1150   "PKG",93,2 2,1,"PAH", 1,1,88,0)
  1151   ---------- ---------- --------  
  1152   "PKG",93,2 2,1,"PAH", 1,1,89,0)
  1153   N/A
  1154   "PKG",93,2 2,1,"PAH", 1,1,90,0)
  1155    
  1156   "PKG",93,2 2,1,"PAH", 1,1,91,0)
  1157    
  1158   "PKG",93,2 2,1,"PAH", 1,1,92,0)
  1159   Patient Sa fety Issue s (PSIs):
  1160   "PKG",93,2 2,1,"PAH", 1,1,93,0)
  1161   ---------- ---------- ---------
  1162   "PKG",93,2 2,1,"PAH", 1,1,94,0)
  1163   N/A
  1164   "PKG",93,2 2,1,"PAH", 1,1,95,0)
  1165    
  1166   "PKG",93,2 2,1,"PAH", 1,1,96,0)
  1167    
  1168   "PKG",93,2 2,1,"PAH", 1,1,97,0)
  1169   Defect Tra cking Syst em Ticket( s) & Overv iew:
  1170   "PKG",93,2 2,1,"PAH", 1,1,98,0)
  1171   ---------- ---------- ---------- ---------- ----
  1172   "PKG",93,2 2,1,"PAH", 1,1,99,0)
  1173   N/A
  1174   "PKG",93,2 2,1,"PAH", 1,1,100,0)
  1175    
  1176   "PKG",93,2 2,1,"PAH", 1,1,101,0)
  1177    
  1178   "PKG",93,2 2,1,"PAH", 1,1,102,0)
  1179   Problem:
  1180   "PKG",93,2 2,1,"PAH", 1,1,103,0)
  1181   -------
  1182   "PKG",93,2 2,1,"PAH", 1,1,104,0)
  1183   N/A
  1184   "PKG",93,2 2,1,"PAH", 1,1,105,0)
  1185    
  1186   "PKG",93,2 2,1,"PAH", 1,1,106,0)
  1187    
  1188   "PKG",93,2 2,1,"PAH", 1,1,107,0)
  1189   Resolution :
  1190   "PKG",93,2 2,1,"PAH", 1,1,108,0)
  1191   ----------
  1192   "PKG",93,2 2,1,"PAH", 1,1,109,0)
  1193   N/A
  1194   "PKG",93,2 2,1,"PAH", 1,1,110,0)
  1195    
  1196   "PKG",93,2 2,1,"PAH", 1,1,111,0)
  1197    
  1198   "PKG",93,2 2,1,"PAH", 1,1,112,0)
  1199   Test Sites :
  1200   "PKG",93,2 2,1,"PAH", 1,1,113,0)
  1201   ----------
  1202   "PKG",93,2 2,1,"PAH", 1,1,114,0)
  1203   1. EPIC DE VELOPMENT  ACCOUNT
  1204   "PKG",93,2 2,1,"PAH", 1,1,115,0)
  1205   2. VISTA D EVVFF DEVE LOPMENT AC COUNT
  1206   "PKG",93,2 2,1,"PAH", 1,1,116,0)
  1207   3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION)
  1208   "PKG",93,2 2,1,"PAH", 1,1,117,0)
  1209    
  1210   "PKG",93,2 2,1,"PAH", 1,1,118,0)
  1211   Software a nd Documen tation Ret rieval Ins tructions:
  1212   "PKG",93,2 2,1,"PAH", 1,1,119,0)
  1213   ---------- ---------- ---------- ---------- ----------  
  1214   "PKG",93,2 2,1,"PAH", 1,1,120,0)
  1215   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  1216   "PKG",93,2 2,1,"PAH", 1,1,121,0)
  1217   the new fu nctionalit y introduc ed by this  patch are  available .
  1218   "PKG",93,2 2,1,"PAH", 1,1,122,0)
  1219    
  1220   "PKG",93,2 2,1,"PAH", 1,1,123,0)
  1221   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  1222   "PKG",93,2 2,1,"PAH", 1,1,124,0)
  1223   This trans mits the f iles from  the first  available  server. Si tes may 
  1224   "PKG",93,2 2,1,"PAH", 1,1,125,0)
  1225   also elect  to retrie ve files d irectly fr om a speci fic server
  1226   "PKG",93,2 2,1,"PAH", 1,1,126,0)
  1227    
  1228   "PKG",93,2 2,1,"PAH", 1,1,127,0)
  1229   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  1230   "PKG",93,2 2,1,"PAH", 1,1,128,0)
  1231   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  1232   "PKG",93,2 2,1,"PAH", 1,1,129,0)
  1233   directory  at the fol lowing 
  1234   "PKG",93,2 2,1,"PAH", 1,1,130,0)
  1235   OI Field O ffices:
  1236   "PKG",93,2 2,1,"PAH", 1,1,131,0)
  1237    
  1238   "PKG",93,2 2,1,"PAH", 1,1,132,0)
  1239   Hines:  DN S     .URL          
  1240   "PKG",93,2 2,1,"PAH", 1,1,133,0)
  1241   Salt Lake  City:        
. URL        
  1242   "PKG",93,2 2,1,"PAH", 1,1,134,0)
  1243    
  1244   "PKG",93,2 2,1,"PAH", 1,1,135,0)
  1245   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  1246   "PKG",93,2 2,1,"PAH", 1,1,136,0)
  1247   at:
  1248   "PKG",93,2 2,1,"PAH", 1,1,137,0)
  1249   http://www . DNS     /vdl/
  1250   "PKG",93,2 2,1,"PAH", 1,1,138,0)
  1251    
  1252   "PKG",93,2 2,1,"PAH", 1,1,139,0)
  1253   Title                             File Name            FTP Mode
  1254   "PKG",93,2 2,1,"PAH", 1,1,140,0)
  1255   -----                             ---------            --------
  1256   "PKG",93,2 2,1,"PAH", 1,1,141,0)
  1257   MASS VistA  Technical  Manual     MASS Vist A          SFTP
  1258   "PKG",93,2 2,1,"PAH", 1,1,142,0)
  1259                                     Technical  Manual
  1260   "PKG",93,2 2,1,"PAH", 1,1,143,0)
  1261    
  1262   "PKG",93,2 2,1,"PAH", 1,1,144,0)
  1263    
  1264   "PKG",93,2 2,1,"PAH", 1,1,145,0)
  1265   Patch Inst allation:
  1266   "PKG",93,2 2,1,"PAH", 1,1,146,0)
  1267    
  1268   "PKG",93,2 2,1,"PAH", 1,1,147,0)
  1269   Pre/Post I nstallatio n Overview :
  1270   "PKG",93,2 2,1,"PAH", 1,1,148,0)
  1271   ---------- ---------- ---------- -
  1272   "PKG",93,2 2,1,"PAH", 1,1,149,0)
  1273   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  1274   "PKG",93,2 2,1,"PAH", 1,1,150,0)
  1275    
  1276   "PKG",93,2 2,1,"PAH", 1,1,151,0)
  1277    
  1278   "PKG",93,2 2,1,"PAH", 1,1,152,0)
  1279   Pre-Instal lation Ins tructions:
  1280   "PKG",93,2 2,1,"PAH", 1,1,153,0)
  1281   ---------- ---------- ----------
  1282   "PKG",93,2 2,1,"PAH", 1,1,154,0)
  1283   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  1284   "PKG",93,2 2,1,"PAH", 1,1,155,0)
  1285    
  1286   "PKG",93,2 2,1,"PAH", 1,1,156,0)
  1287   This patch  may not b e installe d with use rs on the  system.  T his patch 
  1288   "PKG",93,2 2,1,"PAH", 1,1,157,0)
  1289   should tak e less tha n 5 minute s to insta ll.
  1290   "PKG",93,2 2,1,"PAH", 1,1,158,0)
  1291    
  1292   "PKG",93,2 2,1,"PAH", 1,1,159,0)
  1293   OR
  1294   "PKG",93,2 2,1,"PAH", 1,1,160,0)
  1295    
  1296   "PKG",93,2 2,1,"PAH", 1,1,161,0)
  1297   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  1298   "PKG",93,2 2,1,"PAH", 1,1,162,0)
  1299   recommende d that it  be install ed during  non-peak h ours to mi nimize
  1300   "PKG",93,2 2,1,"PAH", 1,1,163,0)
  1301   potential  disruption  to users.   This pat ch should  take less  than 5 
  1302   "PKG",93,2 2,1,"PAH", 1,1,164,0)
  1303   minutes to  install.
  1304   "PKG",93,2 2,1,"PAH", 1,1,165,0)
  1305    
  1306   "PKG",93,2 2,1,"PAH", 1,1,166,0)
  1307   There are  no ListMan  Options t hat need t o be disab led for th is patch.
  1308   "PKG",93,2 2,1,"PAH", 1,1,167,0)
  1309    
  1310   "PKG",93,2 2,1,"PAH", 1,1,168,0)
  1311    
  1312   "PKG",93,2 2,1,"PAH", 1,1,169,0)
  1313   Installati on Instruc tions:
  1314   "PKG",93,2 2,1,"PAH", 1,1,170,0)
  1315   ---------- ---------- ------
  1316   "PKG",93,2 2,1,"PAH", 1,1,171,0)
  1317    
  1318   "PKG",93,2 2,1,"PAH", 1,1,172,0)
  1319   1. Choose  the PackMa n message  containing  this patc h.
  1320   "PKG",93,2 2,1,"PAH", 1,1,173,0)
  1321    
  1322   "PKG",93,2 2,1,"PAH", 1,1,174,0)
  1323   2. Choose  the INSTAL L/CHECK ME SSAGE Pack Man option
  1324   "PKG",93,2 2,1,"PAH", 1,1,175,0)
  1325    
  1326   "PKG",93,2 2,1,"PAH", 1,1,176,0)
  1327   3. From th e Kernel I nstallatio n and Dist ribution S ystem Menu , select 
  1328   "PKG",93,2 2,1,"PAH", 1,1,177,0)
  1329      the Ins tallation  Menu (See  Install Pr ompts Samp le below f or more 
  1330   "PKG",93,2 2,1,"PAH", 1,1,178,0)
  1331      detail) .  From th is menu, y ou may ele ct to use  the follow ing option s. 
  1332   "PKG",93,2 2,1,"PAH", 1,1,179,0)
  1333      When pr ompted for  the INSTA LL NAME en ter the pa tch DVBA*2 .7*202:
  1334   "PKG",93,2 2,1,"PAH", 1,1,180,0)
  1335    
  1336   "PKG",93,2 2,1,"PAH", 1,1,181,0)
  1337      a.  Bac kup a Tran sport Glob al - This  option wil l create a  backup 
  1338   "PKG",93,2 2,1,"PAH", 1,1,182,0)
  1339          mes sage of an y routines  exported  with this  patch. It  will not
  1340   "PKG",93,2 2,1,"PAH", 1,1,183,0)
  1341          bac kup any ot her change s such as  DDs or tem plates.   
  1342   "PKG",93,2 2,1,"PAH", 1,1,184,0)
  1343                                                                 
  1344   "PKG",93,2 2,1,"PAH", 1,1,185,0)
  1345      b.  Com pare Trans port Globa l to Curre nt System  - This opt ion will 
  1346   "PKG",93,2 2,1,"PAH", 1,1,186,0)
  1347          (al low you to  view all  changes th at will be  made when  this 
  1348   "PKG",93,2 2,1,"PAH", 1,1,187,0)
  1349   patch         
  1350   "PKG",93,2 2,1,"PAH", 1,1,188,0)
  1351          is  installed.   It compa res all co mponents o f this pat ch routine s,
  1352   "PKG",93,2 2,1,"PAH", 1,1,189,0)
  1353          DDs , template s, etc.).
  1354   "PKG",93,2 2,1,"PAH", 1,1,190,0)
  1355    
  1356   "PKG",93,2 2,1,"PAH", 1,1,191,0)
  1357      c.  Ver ify Checks ums in Tra nsport Glo bal - This  option wi ll allow y ou 
  1358   "PKG",93,2 2,1,"PAH", 1,1,192,0)
  1359          to  ensure the  integrity  of the ro utines tha t are in t he transpo rt
  1360   "PKG",93,2 2,1,"PAH", 1,1,193,0)
  1361          glo bal.
  1362   "PKG",93,2 2,1,"PAH", 1,1,194,0)
  1363    
  1364   "PKG",93,2 2,1,"PAH", 1,1,195,0)
  1365   4. From th e Installa tion Menu,  select th e Install  Package(s)  option 
  1366   "PKG",93,2 2,1,"PAH", 1,1,196,0)
  1367      and cho ose the pa tch to ins tall.
  1368   "PKG",93,2 2,1,"PAH", 1,1,197,0)
  1369    
  1370   "PKG",93,2 2,1,"PAH", 1,1,198,0)
  1371   5. When pr ompted 'Wa nt KIDS to  Rebuild M enu Trees  Upon Compl etion of 
  1372   "PKG",93,2 2,1,"PAH", 1,1,199,0)
  1373      Install ? NO//'
  1374   "PKG",93,2 2,1,"PAH", 1,1,200,0)
  1375    
  1376   "PKG",93,2 2,1,"PAH", 1,1,201,0)
  1377   6. When pr ompted 'Wa nt KIDS to  INHIBIT L OGONs duri ng the ins tall?  
  1378   "PKG",93,2 2,1,"PAH", 1,1,202,0)
  1379      NO//'
  1380   "PKG",93,2 2,1,"PAH", 1,1,203,0)
  1381    
  1382   "PKG",93,2 2,1,"PAH", 1,1,204,0)
  1383   7. When pr ompted 'Wa nt to DISA BLE Schedu led Option s, Menu Op tions, 
  1384   "PKG",93,2 2,1,"PAH", 1,1,205,0)
  1385      and Pro tocols? NO //' 
  1386   "PKG",93,2 2,1,"PAH", 1,1,206,0)
  1387    
  1388   "PKG",93,2 2,1,"PAH", 1,1,207,0)
  1389   8. If prom pted 'Dela y Install  (Minutes):   (0 - 60) : 0//' res pond 0.
  1390   "PKG",93,2 2,1,"PAH", 1,1,208,0)
  1391    
  1392   "PKG",93,2 2,1,"PAH", 1,1,209,0)
  1393    
  1394   "PKG",93,2 2,1,"PAH", 1,1,210,0)
  1395   Install Pr ompts Samp le:
  1396   "PKG",93,2 2,1,"PAH", 1,1,211,0)
  1397   ---------- ---------- ------
  1398   "PKG",93,2 2,1,"PAH", 1,1,212,0)
  1399    
  1400   "PKG",93,2 2,1,"PAH", 1,1,213,0)
  1401   VISTA>D ^X UP
  1402   "PKG",93,2 2,1,"PAH", 1,1,214,0)
  1403    
  1404   "PKG",93,2 2,1,"PAH", 1,1,215,0)
  1405   Setting up  programme r environm ent
  1406   "PKG",93,2 2,1,"PAH", 1,1,216,0)
  1407   This is a  TEST accou nt.
  1408   "PKG",93,2 2,1,"PAH", 1,1,217,0)
  1409    
  1410   "PKG",93,2 2,1,"PAH", 1,1,218,0)
  1411   Terminal T ype set to : C-VT100
  1412   "PKG",93,2 2,1,"PAH", 1,1,219,0)
  1413    
  1414   "PKG",93,2 2,1,"PAH", 1,1,220,0)
  1415   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  1416   "PKG",93,2 2,1,"PAH", 1,1,221,0)
  1417   Load a Dis tribution
  1418   "PKG",93,2 2,1,"PAH", 1,1,222,0)
  1419   Enter a Ho st File: < File locat ion>\DVBA_ 2_7_202.KI D
  1420   "PKG",93,2 2,1,"PAH", 1,1,223,0)
  1421    
  1422   "PKG",93,2 2,1,"PAH", 1,1,224,0)
  1423   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:29:45
  1424   "PKG",93,2 2,1,"PAH", 1,1,225,0)
  1425   Comment: D VBA*2.7*20 2 12/11/17
  1426   "PKG",93,2 2,1,"PAH", 1,1,226,0)
  1427    
  1428   "PKG",93,2 2,1,"PAH", 1,1,227,0)
  1429   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  1430   "PKG",93,2 2,1,"PAH", 1,1,228,0)
  1431      It cons isted of t he followi ng Install (s): 
  1432   "PKG",93,2 2,1,"PAH", 1,1,229,0)
  1433        DBVA* 2.7*202
  1434   "PKG",93,2 2,1,"PAH", 1,1,230,0)
  1435    
  1436   "PKG",93,2 2,1,"PAH", 1,1,231,0)
  1437   OK to cont inue with  Load? NO//  YES
  1438   "PKG",93,2 2,1,"PAH", 1,1,232,0)
  1439    
  1440   "PKG",93,2 2,1,"PAH", 1,1,233,0)
  1441   Distributi on OK!
  1442   "PKG",93,2 2,1,"PAH", 1,1,234,0)
  1443    
  1444   "PKG",93,2 2,1,"PAH", 1,1,235,0)
  1445   Want to Co ntinue wit h Load? YE S// 
  1446   "PKG",93,2 2,1,"PAH", 1,1,236,0)
  1447   Loading Di stribution ...
  1448   "PKG",93,2 2,1,"PAH", 1,1,237,0)
  1449    
  1450   "PKG",93,2 2,1,"PAH", 1,1,238,0)
  1451      DVBA*2. 7*202
  1452   "PKG",93,2 2,1,"PAH", 1,1,239,0)
  1453   Use INSTAL L NAME: DV BA*2.7*202  to instal l this Dis tribution.
  1454   "PKG",93,2 2,1,"PAH", 1,1,240,0)
  1455    
  1456   "PKG",93,2 2,1,"PAH", 1,1,241,0)
  1457   VISTA>D ^X UP
  1458   "PKG",93,2 2,1,"PAH", 1,1,242,0)
  1459    
  1460   "PKG",93,2 2,1,"PAH", 1,1,243,0)
  1461   Setting up  programme r environm ent
  1462   "PKG",93,2 2,1,"PAH", 1,1,244,0)
  1463   This is a  TEST accou nt.
  1464   "PKG",93,2 2,1,"PAH", 1,1,245,0)
  1465    
  1466   "PKG",93,2 2,1,"PAH", 1,1,246,0)
  1467   Terminal T ype set to : C-VT100
  1468   "PKG",93,2 2,1,"PAH", 1,1,247,0)
  1469    
  1470   "PKG",93,2 2,1,"PAH", 1,1,248,0)
  1471   Select OPT ION NAME:  XPD IN
  1472   "PKG",93,2 2,1,"PAH", 1,1,249,0)
  1473        1   X PD INSTALL  BUILD        Install  Package(s )
  1474   "PKG",93,2 2,1,"PAH", 1,1,250,0)
  1475        2   X PD INSTALL ATION MENU        Ins tallation
  1476   "PKG",93,2 2,1,"PAH", 1,1,251,0)
  1477   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  1478   "PKG",93,2 2,1,"PAH", 1,1,252,0)
  1479   Install Pa ckage(s)
  1480   "PKG",93,2 2,1,"PAH", 1,1,253,0)
  1481   Select INS TALL NAME:     DVBA*2 .7*202      Loaded fr om Distrib ution    
  1482   "PKG",93,2 2,1,"PAH", 1,1,254,0)
  1483   12/12/17@2 3
  1484   "PKG",93,2 2,1,"PAH", 1,1,255,0)
  1485   :47:16
  1486   "PKG",93,2 2,1,"PAH", 1,1,256,0)
  1487        => DV BA*2.7*202  12/11/17   ;Created  on Dec 11,  2017@17:2 9:45
  1488   "PKG",93,2 2,1,"PAH", 1,1,257,0)
  1489    
  1490   "PKG",93,2 2,1,"PAH", 1,1,258,0)
  1491   This Distr ibution wa s loaded o n Dec 12,  2017@23:47 :16 with h eader of 
  1492   "PKG",93,2 2,1,"PAH", 1,1,259,0)
  1493      DVBA*2. 7*202 12/1 1/17  ;Cre ated on De c 11, 2017 @17:29:45
  1494   "PKG",93,2 2,1,"PAH", 1,1,260,0)
  1495      It cons isted of t he followi ng Install (s):
  1496   "PKG",93,2 2,1,"PAH", 1,1,261,0)
  1497      DVBA*2. 7*202
  1498   "PKG",93,2 2,1,"PAH", 1,1,262,0)
  1499   Checking I nstall for  Package D VBA*2.7*20 2
  1500   "PKG",93,2 2,1,"PAH", 1,1,263,0)
  1501    
  1502   "PKG",93,2 2,1,"PAH", 1,1,264,0)
  1503   Install Qu estions fo r DVBA*2.7 *202
  1504   "PKG",93,2 2,1,"PAH", 1,1,265,0)
  1505    
  1506   "PKG",93,2 2,1,"PAH", 1,1,266,0)
  1507   Incoming F iles:
  1508   "PKG",93,2 2,1,"PAH", 1,1,267,0)
  1509    
  1510   "PKG",93,2 2,1,"PAH", 1,1,268,0)
  1511      396.4      2507 EX AM  (Parti al Definit ion)
  1512   "PKG",93,2 2,1,"PAH", 1,1,269,0)
  1513   Note:  You  already h ave the '2 507 EXAM'  File.
  1514   "PKG",93,2 2,1,"PAH", 1,1,270,0)
  1515    
  1516   "PKG",93,2 2,1,"PAH", 1,1,271,0)
  1517    
  1518   "PKG",93,2 2,1,"PAH", 1,1,272,0)
  1519   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  1520   "PKG",93,2 2,1,"PAH", 1,1,273,0)
  1521   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  1522   "PKG",93,2 2,1,"PAH", 1,1,274,0)
  1523    
  1524   "PKG",93,2 2,1,"PAH", 1,1,275,0)
  1525   Enter the  Device you  want to p rint the I nstall mes sages.
  1526   "PKG",93,2 2,1,"PAH", 1,1,276,0)
  1527   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  1528   "PKG",93,2 2,1,"PAH", 1,1,277,0)
  1529   Enter a '^ ' to abort  the insta ll.
  1530   "PKG",93,2 2,1,"PAH", 1,1,278,0)
  1531    
  1532   "PKG",93,2 2,1,"PAH", 1,1,279,0)
  1533   DEVICE: HO ME//   CON SOLE
  1534   "PKG",93,2 2,1,"PAH", 1,1,280,0)
  1535    
  1536   "PKG",93,2 2,1,"PAH", 1,1,281,0)
  1537    Install S tarted for  DVBA*2.7* 202 : 
  1538   "PKG",93,2 2,1,"PAH", 1,1,282,0)
  1539                   Dec 1 2, 2017@23 :47:24
  1540   "PKG",93,2 2,1,"PAH", 1,1,283,0)
  1541    
  1542   "PKG",93,2 2,1,"PAH", 1,1,284,0)
  1543   Build Dist ribution D ate: Dec 1 1, 2017
  1544   "PKG",93,2 2,1,"PAH", 1,1,285,0)
  1545    
  1546   "PKG",93,2 2,1,"PAH", 1,1,286,0)
  1547    Installin g Routines :
  1548   "PKG",93,2 2,1,"PAH", 1,1,287,0)
  1549                    Dec  12, 2017@2 3:47:25
  1550   "PKG",93,2 2,1,"PAH", 1,1,288,0)
  1551    
  1552   "PKG",93,2 2,1,"PAH", 1,1,289,0)
  1553    Installin g Data Dic tionaries:  
  1554   "PKG",93,2 2,1,"PAH", 1,1,290,0)
  1555                    Dec  12, 2017@2 3:47:25
  1556   "PKG",93,2 2,1,"PAH", 1,1,291,0)
  1557    
  1558   "PKG",93,2 2,1,"PAH", 1,1,292,0)
  1559    Updating  Routine fi le...
  1560   "PKG",93,2 2,1,"PAH", 1,1,293,0)
  1561    
  1562   "PKG",93,2 2,1,"PAH", 1,1,294,0)
  1563    Updating  KIDS files ...
  1564   "PKG",93,2 2,1,"PAH", 1,1,295,0)
  1565    
  1566   "PKG",93,2 2,1,"PAH", 1,1,296,0)
  1567    DVBA*2.7* 202 Instal led. 
  1568   "PKG",93,2 2,1,"PAH", 1,1,297,0)
  1569                   Dec 1 2, 2017@23 :47:25
  1570   "PKG",93,2 2,1,"PAH", 1,1,298,0)
  1571    
  1572   "PKG",93,2 2,1,"PAH", 1,1,299,0)
  1573    No link t o PACKAGE  file
  1574   "PKG",93,2 2,1,"PAH", 1,1,300,0)
  1575    
  1576   "PKG",93,2 2,1,"PAH", 1,1,301,0)
  1577    Install M essage sen
  1578   "PKG",93,2 2,1,"PAH", 1,1,302,0)
  1579    
  1580   "PKG",93,2 2,1,"PAH", 1,1,303,0)
  1581   Install Co mpleted
  1582   "PKG",93,2 2,1,"PAH", 1,1,304,0)
  1583    
  1584   "PKG",93,2 2,1,"PAH", 1,1,305,0)
  1585                   Dec 1 2, 2017@23 :47:25
  1586   "PKG",93,2 2,1,"PAH", 1,1,306,0)
  1587    
  1588   "PKG",93,2 2,1,"PAH", 1,1,307,0)
  1589    Installin g Data Dic tionaries:  
  1590   "PKG",93,2 2,1,"PAH", 1,1,308,0)
  1591                    Dec  12, 2017@2 3:47:25
  1592   "PKG",93,2 2,1,"PAH", 1,1,309,0)
  1593    
  1594   "PKG",93,2 2,1,"PAH", 1,1,310,0)
  1595    Updating  Routine fi le...
  1596   "PKG",93,2 2,1,"PAH", 1,1,311,0)
  1597    
  1598   "PKG",93,2 2,1,"PAH", 1,1,312,0)
  1599    Updating  KIDS files ...
  1600   "PKG",93,2 2,1,"PAH", 1,1,313,0)
  1601    
  1602   "PKG",93,2 2,1,"PAH", 1,1,314,0)
  1603    DVBA*2.7* 202 Instal led. 
  1604   "PKG",93,2 2,1,"PAH", 1,1,315,0)
  1605                   Dec 1 2, 2017@23 :47:25
  1606   "PKG",93,2 2,1,"PAH", 1,1,316,0)
  1607    
  1608   "PKG",93,2 2,1,"PAH", 1,1,317,0)
  1609    No link t o PACKAGE  file
  1610   "PKG",93,2 2,1,"PAH", 1,1,318,0)
  1611    
  1612   "PKG",93,2 2,1,"PAH", 1,1,319,0)
  1613   VISTA>
  1614   "PKG",93,2 2,1,"PAH", 1,1,320,0)
  1615    
  1616   "PKG",93,2 2,1,"PAH", 1,1,321,0)
  1617    
  1618   "PKG",93,2 2,1,"PAH", 1,1,322,0)
  1619   Patch Back out Instru ctions:
  1620   "PKG",93,2 2,1,"PAH", 1,1,323,0)
  1621   ---------- ---------- ------
  1622   "PKG",93,2 2,1,"PAH", 1,1,324,0)
  1623    
  1624   "PKG",93,2 2,1,"PAH", 1,1,325,0)
  1625   1.  Go to  MailMan me nu, choose  option Re ad/Manage  Messages a nd select 
  1626   "PKG",93,2 2,1,"PAH", 1,1,326,0)
  1627       the ba ckup messa ge that wa s creating  during In stallation  step
  1628   "PKG",93,2 2,1,"PAH", 1,1,327,0)
  1629       3.c -  Backup
  1630   "PKG",93,2 2,1,"PAH", 1,1,328,0)
  1631    
  1632   "PKG",93,2 2,1,"PAH", 1,1,329,0)
  1633   2.  When p rompted 'T ype <Enter > to conti nue or '^'  to exit:'  type '^' 
  1634   "PKG",93,2 2,1,"PAH", 1,1,330,0)
  1635       and th en <Enter>
  1636   "PKG",93,2 2,1,"PAH", 1,1,331,0)
  1637    
  1638   "PKG",93,2 2,1,"PAH", 1,1,332,0)
  1639   3.  When p rompted 'E nter messa ge action: ' type 'Xt ract PackM an' and 
  1640   "PKG",93,2 2,1,"PAH", 1,1,333,0)
  1641       then < Enter>
  1642   "PKG",93,2 2,1,"PAH", 1,1,334,0)
  1643    
  1644   "PKG",93,2 2,1,"PAH", 1,1,335,0)
  1645   4.  The fo llowing me ssage and  the prompt  will disp lay:
  1646   "PKG",93,2 2,1,"PAH", 1,1,336,0)
  1647       Warnin g: Install ing this m essage wil l cause a  permanent  update of
  1648   "PKG",93,2 2,1,"PAH", 1,1,337,0)
  1649       global s and rout ines.
  1650   "PKG",93,2 2,1,"PAH", 1,1,338,0)
  1651       Do you  really wa nt to do t his? NO//'  type 'YES ' and then  <Enter>
  1652   "PKG",93,2 2,1,"PAH", 1,1,339,0)
  1653    
  1654   "PKG",93,2 2,1,"PAH", 1,1,340,0)
  1655   5.  When p rompted: 
  1656   "PKG",93,2 2,1,"PAH", 1,1,341,0)
  1657       'Shall  I preserv e the rout ines on di sk in a se parate bac k-up
  1658   "PKG",93,2 2,1,"PAH", 1,1,342,0)
  1659       messag e? YES//'  type 'NO'  and then < Enter>
  1660   "PKG",93,2 2,1,"PAH", 1,1,343,0)
  1661    
  1662   "PKG",93,2 2,1,"PAH", 1,1,344,0)
  1663   6.  The sy stem will  display th e followin g message  and show a ll the 
  1664   "PKG",93,2 2,1,"PAH", 1,1,345,0)
  1665       routin es that we re unloade d confirmi ng that al l the rout ines in th e
  1666   "PKG",93,2 2,1,"PAH", 1,1,346,0)
  1667       build  have been  restored t o the prio r version  (unloaded) :
  1668   "PKG",93,2 2,1,"PAH", 1,1,347,0)
  1669       'No ba ckup messa ge built.
  1670   "PKG",93,2 2,1,"PAH", 1,1,348,0)
  1671       ***LIS T of routi nes from b ackup. See  full rout ine list a t the end  of
  1672   "PKG",93,2 2,1,"PAH", 1,1,349,0)
  1673       the do cument***
  1674   "PKG",93,2 2,1,"PAH", 1,1,350,0)
  1675    
  1676   "PKG",93,2 2,1,"PAH", 1,1,351,0)
  1677       Select  PackMan f unction: a nd then <E nter>'
  1678   "PKG",93,2 2,1,"PAH", 1,1,352,0)
  1679    
  1680   "PKG",93,2 2,1,"PAH", 1,1,353,0)
  1681   7.  Verify  that all  six routin es are lis ted as abo ve have be en 
  1682   "PKG",93,2 2,1,"PAH", 1,1,354,0)
  1683       backed  out:
  1684   "PKG",93,2 2,1,"PAH", 1,1,355,0)
  1685       No bac kup messag e built.
  1686   "PKG",93,2 2,1,"PAH", 1,1,356,0)
  1687       When p rompted 'W ant KIDS t o INHIBIT  LOGONs dur ing the in stall? NO/ /'
  1688   "PKG",93,2 2,1,"PAH", 1,1,357,0)
  1689       Press  <Enter>.
  1690   "PKG",93,2 2,1,"PAH", 1,1,358,0)
  1691       When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, an
  1692   "PKG",93,2 2,1,"PAH", 1,1,359,0)
  1693       Protoc ols? NO//'  Press <En ter>.
  1694   "PKG",93,2 2,1,"PAH", 1,1,360,0)
  1695       If pro mpted 'Del ay Install  (Minutes) :  (0 - 60 ): 0//' re spond 0.
  1696   "PKG",93,2 2,1,"PAH", 1,1,361,0)
  1697    
  1698   "PKG",93,2 2,1,"PAH", 1,1,362,0)
  1699   8.  To cle an up the  cross refe rences run  BACKOUT^D VBAPOST to  clean up 
  1700   "PKG",93,2 2,1,"PAH", 1,1,363,0)
  1701       the cr oss refere nces.
  1702   "PKG",93,2 2,1,"PAH", 1,1,364,0)
  1703    
  1704   "PKG",93,2 2,1,"PAH", 1,1,365,0)
  1705   Post-Insta llation In structions :
  1706   "PKG",93,2 2,1,"PAH", 1,1,366,0)
  1707   ---------- ---------- ---------- -
  1708   "PKG",93,2 2,1,"PAH", 1,1,367,0)
  1709   See Techni cal Manual  for cross  reference /object co ntents ver ification
  1710   "PKG",93,2 2,1,"PAH", 1,1,368,0)
  1711    
  1712   "PKG",93,2 2,1,"PAH", 1,1,369,0)
  1713   Check list  to Verify :
  1714   "PKG",93,2 2,1,"PAH", 1,1,370,0)
  1715   1.      It em .02, .0 3, and .04  in the 25 07 EXAM fi le.
  1716   "QUES","XP F1",0)
  1717   Y
  1718   "QUES","XP F1","??")
  1719   ^D REP^XPD H
  1720   "QUES","XP F1","A")
  1721   Shall I wr ite over y our |FLAG|  File
  1722   "QUES","XP F1","B")
  1723   YES
  1724   "QUES","XP F1","M")
  1725   D XPF1^XPD IQ
  1726   "QUES","XP F2",0)
  1727   Y
  1728   "QUES","XP F2","??")
  1729   ^D DTA^XPD H
  1730   "QUES","XP F2","A")
  1731   Want my da ta |FLAG|  yours
  1732   "QUES","XP F2","B")
  1733   YES
  1734   "QUES","XP F2","M")
  1735   D XPF2^XPD IQ
  1736   "QUES","XP I1",0)
  1737   YO
  1738   "QUES","XP I1","??")
  1739   ^D INHIBIT ^XPDH
  1740   "QUES","XP I1","A")
  1741   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  1742   "QUES","XP I1","B")
  1743   NO
  1744   "QUES","XP I1","M")
  1745   D XPI1^XPD IQ
  1746   "QUES","XP M1",0)
  1747   PO^VA(200, :EM
  1748   "QUES","XP M1","??")
  1749   ^D MG^XPDH
  1750   "QUES","XP M1","A")
  1751   Enter the  Coordinato r for Mail  Group '|F LAG|'
  1752   "QUES","XP M1","B")
  1753  
  1754   "QUES","XP M1","M")
  1755   D XPM1^XPD IQ
  1756   "QUES","XP O1",0)
  1757   Y
  1758   "QUES","XP O1","??")
  1759   ^D MENU^XP DH
  1760   "QUES","XP O1","A")
  1761   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  1762   "QUES","XP O1","B")
  1763   NO
  1764   "QUES","XP O1","M")
  1765   D XPO1^XPD IQ
  1766   "QUES","XP Z1",0)
  1767   Y
  1768   "QUES","XP Z1","??")
  1769   ^D OPT^XPD H
  1770   "QUES","XP Z1","A")
  1771   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  1772   "QUES","XP Z1","B")
  1773   NO
  1774   "QUES","XP Z1","M")
  1775   D XPZ1^XPD IQ
  1776   "QUES","XP Z2",0)
  1777   Y
  1778   "QUES","XP Z2","??")
  1779   ^D RTN^XPD H
  1780   "QUES","XP Z2","A")
  1781   Want to MO VE routine s to other  CPUs
  1782   "QUES","XP Z2","B")
  1783   NO
  1784   "QUES","XP Z2","M")
  1785   D XPZ2^XPD IQ
  1786   "RTN")
  1787   4
  1788   "RTN","DVB CLOGE")
  1789   0^1^B23562 257
  1790   "RTN","DVB CLOGE",1,0 )
  1791   DVBCLOGE ; ALB/GTS-55 7/THM-SET  UP C&P EXA M ;5/10/91   8:55 AM
  1792   "RTN","DVB CLOGE",2,0 )
  1793    ;;2.7;AMI E;**202**; Dec 8, 201 7;Build 28
  1794   "RTN","DVB CLOGE",3,0 )
  1795    ;if $D(OU T), reques t deleted  - exams mu st be comp leted
  1796   "RTN","DVB CLOGE",4,0 )
  1797    ;
  1798   "RTN","DVB CLOGE",5,0 )
  1799   EXMHD K OU T N DVBARQ DT,DVBADT, DVBADA
  1800   "RTN","DVB CLOGE",6,0 )
  1801    W @FF,?(I OM-$L(HD2) \2),HD2
  1802   "RTN","DVB CLOGE",7,0 )
  1803    W !!,"Ple ase select  the exams  for ",$P( PNAM,",",2 ,99)," ",$ P(PNAM,"," ,1)
  1804   "RTN","DVB CLOGE",8,0 )
  1805    W !,"Use  ? to see a  list of e xams avail able for s election." ,!!
  1806   "RTN","DVB CLOGE",9,0 )
  1807    I $D(^DVB (396.3,REQ DA,5)),($P (^DVB(396. 3,REQDA,0) ,"^",10)=" E"&(+$P(^D VB(396.3,R EQDA,5),"^ ",1)'>0))  DO
  1808   "RTN","DVB CLOGE",10, 0)
  1809    .S TVAR(1 ,0)="0,0,0 ,1,0^NOTE:   This req uest has a  priority  of Insuffi cient with out a link "
  1810   "RTN","DVB CLOGE",11, 0)
  1811    .S TVAR(2 ,0)="0,8,0 ,1:1,0^to  a complete d request. "
  1812   "RTN","DVB CLOGE",12, 0)
  1813    .S TVAR(3 ,0)="0,0,0 ,1:2,0^Use  care to s elect the  proper exa m(s) to re turn as in sufficient ."
  1814   "RTN","DVB CLOGE",13, 0)
  1815    .D WR^DVB AUTL4("TVA R")
  1816   "RTN","DVB CLOGE",14, 0)
  1817    .K TVAR
  1818   "RTN","DVB CLOGE",15, 0)
  1819    I '$D(^DV B(396.3,RE QDA,5))&($ P(^DVB(396 .3,REQDA,0 ),"^",10)= "E") DO
  1820   "RTN","DVB CLOGE",16, 0)
  1821    .S TVAR(1 ,0)="0,0,0 ,1,0^NOTE:   This req uest has a  priority  of Insuffi cient with out a link "
  1822   "RTN","DVB CLOGE",17, 0)
  1823    .S TVAR(2 ,0)="0,8,0 ,1:1,0^to  a complete d request. "
  1824   "RTN","DVB CLOGE",18, 0)
  1825    .S TVAR(3 ,0)="0,0,0 ,1:2,0^Use  care to s elect the  proper exa m(s) to re turn as in sufficient ."
  1826   "RTN","DVB CLOGE",19, 0)
  1827    .D WR^DVB AUTL4("TVA R")
  1828   "RTN","DVB CLOGE",20, 0)
  1829    .K TVAR
  1830   "RTN","DVB CLOGE",21, 0)
  1831    ;
  1832   "RTN","DVB CLOGE",22, 0)
  1833   EXMSEL K D IC,OUT,DVB AQT I $D(D VBCLCKD) Q
  1834   "RTN","DVB CLOGE",23, 0)
  1835    S DVBARQD T=$P(^DVB( 396.3,REQD A,0),U,2)
  1836   "RTN","DVB CLOGE",24, 0)
  1837    I $D(^DVB (396.3,REQ DA,5)),(+$ P(^DVB(396 .3,REQDA,5 ),U,1)>0)  DO
  1838   "RTN","DVB CLOGE",25, 0)
  1839    .S DVBAIN DA=+$P(^DV B(396.3,RE QDA,5),U,1 ) ;**Exam  Scr for In suff 2507' S
  1840   "RTN","DVB CLOGE",26, 0)
  1841    .S DIC("S ")="I $D(^ DVB(396.4, ""ARQ"_DVB AINDA_""", Y))"
  1842   "RTN","DVB CLOGE",27, 0)
  1843    S:'$D(DIC ("S")) DIC ("S")="I $ P(^(0),U,5 )'=""I"""
  1844   "RTN","DVB CLOGE",28, 0)
  1845    S DIC="^D VB(396.6,"
  1846   "RTN","DVB CLOGE",29, 0)
  1847    S DIC(0)= "AEQM",DIC ("A")="Sel ect EXAM:  " D ^DIC
  1848   "RTN","DVB CLOGE",30, 0)
  1849    S:$D(DTOU T) OUT=1 D :$D(OUT) K VARS Q:$D( OUT)
  1850   "RTN","DVB CLOGE",31, 0)
  1851    G:X=""!(X =U) EXMDIS  ;Only out  of EXMSEL
  1852   "RTN","DVB CLOGE",32, 0)
  1853    I +Y>0 S  EXMNM=$P(^ DVB(396.6, +Y,0),U,1) ,EXMPTR=+Y
  1854   "RTN","DVB CLOGE",33, 0)
  1855    I +Y<0 W  "  ???" G  EXMSEL
  1856   "RTN","DVB CLOGE",34, 0)
  1857    I $D(^TMP ($J,"NEW", EXMNM)) W  "    Dupli cate - ign ored",!,*7  G EXMSEL
  1858   "RTN","DVB CLOGE",35, 0)
  1859    I $D(^DVB (396.4,"AP S",DFN,EXM PTR,"O"))> 0 W *7,"   -- already  ON FILE", !
  1860   "RTN","DVB CLOGE",36, 0)
  1861    I $D(^DVB (396.4,"AP S",DFN,EXM PTR,"O"))> 0 S DVBAQT =1
  1862   "RTN","DVB CLOGE",37, 0)
  1863    G:$D(DVBA QT) EXMSEL
  1864   "RTN","DVB CLOGE",38, 0)
  1865    S ^TMP($J ,"NEW",EXM NM)=+Y K Y  G EXMSEL
  1866   "RTN","DVB CLOGE",39, 0)
  1867    ;
  1868   "RTN","DVB CLOGE",40, 0)
  1869   EXMDIS W @ FF,!! K %, %Y,DIE,DIC  G:$D(DVBC LCKD) EXMS EL
  1870   "RTN","DVB CLOGE",41, 0)
  1871    I '$D(^TM P($J,"NEW" )) W !!,*7 ,"You have  not selec ted any ex ams.",!,"D o you want  to try ag ain" S %=1  D YN^DICN  D:%=1 KVA RS G:%=1 E XMHD I $D( DTOUT) S O UT=1 D KVA RS Q
  1872   "RTN","DVB CLOGE",42, 0)
  1873    I $D(%Y)  I %Y["?" W  !!,"Enter  Y to go b ack and se lect exams  or N to D ELETE the  entire req uest",!,"a s well as  any exams  selected."  D CONTMES ^DVBCUTL4  G EXMDIS
  1874   "RTN","DVB CLOGE",43, 0)
  1875    I $D(%) I  %'=1 S OU T=1 D KVAR S Q
  1876   "RTN","DVB CLOGE",44, 0)
  1877    W !!,"You  have sele cted these  exams:",! ! S EXMNM= "" F JY=0: 1 S EXMNM= $O(^TMP($J ,"NEW",EXM NM)) Q:EXM NM=""  W ? 5,EXMNM,!
  1878   "RTN","DVB CLOGE",45, 0)
  1879    W !,$S(JY '>1:"Is th is exam",1 :"Are thes e exams"), " correct"
  1880   "RTN","DVB CLOGE",46, 0)
  1881    S %=2 D Y N^DICN G:% =1 EXMLOG  ;Only out  of EXMDIS
  1882   "RTN","DVB CLOGE",47, 0)
  1883    I $D(DTOU T) S OUT=1  D KVARS Q
  1884   "RTN","DVB CLOGE",48, 0)
  1885    I $D(%Y), %Y["?" W ! ,"Enter Y  to go ahea d and log  the select ed exams o r N to mod ify the li st." D CON TMES^DVBCU TL4 G EXMD IS
  1886   "RTN","DVB CLOGE",49, 0)
  1887    ;
  1888   "RTN","DVB CLOGE",50, 0)
  1889   EXMOD ;dro p into - c orrect exa ms
  1890   "RTN","DVB CLOGE",51, 0)
  1891    I $D(%),% =2 W @FF,! !!
  1892   "RTN","DVB CLOGE",52, 0)
  1893    S DIC(0)= "AEQM",DIC ("A")="Ent er EXAM to  delete: "
  1894   "RTN","DVB CLOGE",53, 0)
  1895    S DIC="^D VB(396.6," ,DIC("S")= "I $D(^TMP ($J,""NEW" ",$P(^(0), U,1)))"
  1896   "RTN","DVB CLOGE",54, 0)
  1897    ;
  1898   "RTN","DVB CLOGE",55, 0)
  1899   EXMOD1 K O UT D ^DIC
  1900   "RTN","DVB CLOGE",56, 0)
  1901    S:$D(DTOU T) OUT=1 D :$D(OUT) K VARS Q:$D( OUT)
  1902   "RTN","DVB CLOGE",57, 0)
  1903    G:X=""!(X =U) EXMASK  ;Only out  of EXMOD1
  1904   "RTN","DVB CLOGE",58, 0)
  1905    S EXMNM=$ P(^DVB(396 .6,+Y,0),U ,1)
  1906   "RTN","DVB CLOGE",59, 0)
  1907    I +Y>0&($ D(^TMP($J, "NEW",EXMN M))) K ^TM P($J,"NEW" ,EXMNM) W  "  Ok ..."  H 1 G EXM OD1
  1908   "RTN","DVB CLOGE",60, 0)
  1909    G EXMOD1
  1910   "RTN","DVB CLOGE",61, 0)
  1911    ;
  1912   "RTN","DVB CLOGE",62, 0)
  1913   EXMASK W @ FF,!!,"Wan t to add m ore exams"
  1914   "RTN","DVB CLOGE",63, 0)
  1915    S %=1 D Y N^DICN G:% =1 EXMSEL  ;select mo re exams
  1916   "RTN","DVB CLOGE",64, 0)
  1917    I $D(DTOU T) S OUT=1  D KVARS Q
  1918   "RTN","DVB CLOGE",65, 0)
  1919    I $D(%Y), %Y["?" W ! !,"Enter Y  to add mo re exams o r N to go  on and log  existing  selections ." D CONTM ES^DVBCUTL 4 G EXMASK
  1920   "RTN","DVB CLOGE",66, 0)
  1921    G EXMDIS  ;display e xams
  1922   "RTN","DVB CLOGE",67, 0)
  1923    ;
  1924   "RTN","DVB CLOGE",68, 0)
  1925   EXMLOG W ! ! S EXMNM= "" K DR
  1926   "RTN","DVB CLOGE",69, 0)
  1927    D STM^DVB CUTL4
  1928   "RTN","DVB CLOGE",70, 0)
  1929    F DVBCJ=0 :0 S EXMNM =$O(^TMP($ J,"NEW",EX MNM)) Q:EX MNM=""  S  X=$$EXAM^D VBCUTL4 S: X=0 DVBCLC KD=1 Q:$D( DVBCLCKD)   D EXMLOG1  Q:$D(OUT)
  1930   "RTN","DVB CLOGE",71, 0)
  1931    S XRTN=$T (+0)
  1932   "RTN","DVB CLOGE",72, 0)
  1933    D SPM^DVB CUTL4
  1934   "RTN","DVB CLOGE",73, 0)
  1935    W:$D(DVBC LCKD) !!,"    Another  user addi ng exams n ow...try a gain later ."
  1936   "RTN","DVB CLOGE",74, 0)
  1937    R:$D(DVBC LCKD) !,"    PRESS [R eturn] TO  CONTINUE.. .",DVBCCON T:DTIME
  1938   "RTN","DVB CLOGE",75, 0)
  1939    I $D(DVBC LCKD) D RO LLBCK^DVBC UTL4 G EXM DIS
  1940   "RTN","DVB CLOGE",76, 0)
  1941    I $D(OUT)  D KVARS Q
  1942   "RTN","DVB CLOGE",77, 0)
  1943    H 2 K DA  S DA=REQDA
  1944   "RTN","DVB CLOGE",78, 0)
  1945    W @IOF,!, "Please en ter any re marks for  this reque st:",!!!
  1946   "RTN","DVB CLOGE",79, 0)
  1947    S DR="23" ,DIE="^DVB (396.3," D  ^DIE H 1
  1948   "RTN","DVB CLOGE",80, 0)
  1949    S X=+$O(^ ORD(101,"B ","OR EVSE ND DVBA",0 ))_";ORD(1 01," ;202
  1950   "RTN","DVB CLOGE",81, 0)
  1951    D EN^XQOR
  1952   "RTN","DVB CLOGE",82, 0)
  1953    K DIC,DIE ,DR,EXMNM, DVBCDEL,Y, X,EXMPTR D  KVARS
  1954   "RTN","DVB CLOGE",83, 0)
  1955    Q
  1956   "RTN","DVB CLOGE",84, 0)
  1957    ;
  1958   "RTN","DVB CLOGE",85, 0)
  1959   EXMLOG1 ;c alled by E XMLOG
  1960   "RTN","DVB CLOGE",86, 0)
  1961    K OUT,DD, DO S (DIC, DIE)="^DVB (396.4,",D IC(0)=""
  1962   "RTN","DVB CLOGE",87, 0)
  1963    S DIC("DR ")=".02/// /^S X=REQD A;.03////^ S X=$P(^TM P($J,""NEW "",EXMNM), U,1);.04// //O"
  1964   "RTN","DVB CLOGE",88, 0)
  1965    D FILE^DI CN
  1966   "RTN","DVB CLOGE",89, 0)
  1967    I $D(Y),+ Y>0 W:$X>5 0 ! W:$X>4 0&($L(EXMN M)>30) ! W  EXMNM_" - added, "
  1968   "RTN","DVB CLOGE",90, 0)
  1969    I $D(Y),+ Y<0 W *7," Exam addit ion error  ! " S OUT= 1
  1970   "RTN","DVB CLOGE",91, 0)
  1971    D INSXM^D VBCUTA1
  1972   "RTN","DVB CLOGE",92, 0)
  1973    I $D(DTOU T) W *7,"E xam additi on error !  " S OUT=1  D ROLLBCK ^DVBCUTL4
  1974   "RTN","DVB CLOGE",93, 0)
  1975    Q
  1976   "RTN","DVB CLOGE",94, 0)
  1977    ;
  1978   "RTN","DVB CLOGE",95, 0)
  1979   KVARS ;Kil l this rou tines vari ables
  1980   "RTN","DVB CLOGE",96, 0)
  1981    K DVBARQD T,DVBADT,D VBADA,DVBA QT,DVBAIND A
  1982   "RTN","DVB CLOGE",97, 0)
  1983    Q
  1984   "RTN","DVB CLOGE",98, 0)
  1985    ;
  1986   "RTN","DVB CREDT")
  1987   0^2^B24221 485
  1988   "RTN","DVB CREDT",1,0 )
  1989   DVBCREDT ; ALB/GTS-55 7/THM-EDIT  STATIC C& P INFO ; 1 1/20/90  6 :29 AM
  1990   "RTN","DVB CREDT",2,0 )
  1991    ;;2.7;AMI E;**202**; Dec 8, 201 7;Build 28
  1992   "RTN","DVB CREDT",3,0 )
  1993    ;
  1994   "RTN","DVB CREDT",4,0 )
  1995    ;**Note:   Priority  E is Insuf ficient
  1996   "RTN","DVB CREDT",5,0 )
  1997    ;          Priority  'E is not  insufficie nt
  1998   "RTN","DVB CREDT",6,0 )
  1999    ;
  2000   "RTN","DVB CREDT",7,0 )
  2001    K ^TMP("D VBCEDIT",$ J) I $D(DU Z)#2=0 W ! !,*7,"Your  user numb er is inva lid.",!! H  3 G EXIT
  2002   "RTN","DVB CREDT",8,0 )
  2003    S LN="EDI T C&P STAT IC INFORMA TION" D HO ME^%ZIS S  FF=IOF
  2004   "RTN","DVB CREDT",9,0 )
  2005    G EN1
  2006   "RTN","DVB CREDT",10, 0)
  2007    ;
  2008   "RTN","DVB CREDT",11, 0)
  2009   COMPARE I  '$D(^TMP(" DVBCEDIT", $J,DA,2,I, 0)) S DVBC MOD=1 Q
  2010   "RTN","DVB CREDT",12, 0)
  2011    I ^DVB(39 6.3,DA,2,I ,0)'=^TMP( "DVBCEDIT" ,$J,DA,2,I ,0) S DVBC MOD=1 Q
  2012   "RTN","DVB CREDT",13, 0)
  2013    Q
  2014   "RTN","DVB CREDT",14, 0)
  2015    ;
  2016   "RTN","DVB CREDT",15, 0)
  2017   EN1 W @IOF ,!?(IOM-$L (LN)\2),LN ,!!! S DIC ="AE",DIC( "A")="Ente r VETERAN  NAME: ",DI C="^DVB(39 6.3,",DIE= DIC,DIC(0) ="AEQM" D  ^DIC G:X=" "!(X=U) EX IT S DA=+Y  I DA<0 G  EN1
  2018   "RTN","DVB CREDT",16, 0)
  2019    S STAT=$P (^DVB(396. 3,DA,0),U, 18) I STAT '="N"&(STA T'="P") W  !!,"The st atus of th is request  is not NE W or PENDI NG, REPORT ED.",!,"It  cannot, t herefore,  be modifie d.",*7,!!  S DVBCMOD= 1 G CON
  2020   "RTN","DVB CREDT",17, 0)
  2021    F I=0:0 S  I=$O(^DVB (396.3,DA, 2,I)) Q:I= ""  S ^TMP ("DVBCEDIT ",$J,DA,2, I,0)=^DVB( 396.3,DA,2 ,I,0) ;sav e lines fo r compare
  2022   "RTN","DVB CREDT",18, 0)
  2023    ;
  2024   "RTN","DVB CREDT",19, 0)
  2025   EDIT ;
  2026   "RTN","DVB CREDT",20, 0)
  2027    N DVBARQS T,SAVEDA,E NTTOUT
  2028   "RTN","DVB CREDT",21, 0)
  2029    S DVBARQS T=$P(^DVB( 396.3,DA,0 ),U,10)
  2030   "RTN","DVB CREDT",22, 0)
  2031    S SAVEDA= DA
  2032   "RTN","DVB CREDT",23, 0)
  2033    W !! S DR ="W @IOF,! !;9;10:10. 2;24;29;21 ;W !!;23"  D ^DIE
  2034   "RTN","DVB CREDT",24, 0)
  2035    S X=+$O(^ ORD(101,"B ","OR EVSE ND DVBA",0 ))_";ORD(1 01," ;202
  2036   "RTN","DVB CREDT",25, 0)
  2037    D EN^XQOR
  2038   "RTN","DVB CREDT",26, 0)
  2039    S:$D(DTOU T) ENTTOUT =""
  2040   "RTN","DVB CREDT",27, 0)
  2041    ;
  2042   "RTN","DVB CREDT",28, 0)
  2043    ;**Priori ty E -> E
  2044   "RTN","DVB CREDT",29, 0)
  2045    I DVBARQS T="E",($P( ^DVB(396.3 ,DA,0),U,1 0)="E"&('$ D(ENTTOUT) )) DO
  2046   "RTN","DVB CREDT",30, 0)
  2047    .W !
  2048   "RTN","DVB CREDT",31, 0)
  2049    .N UPDT25 07
  2050   "RTN","DVB CREDT",32, 0)
  2051    .K DTOUT, DUOUT
  2052   "RTN","DVB CREDT",33, 0)
  2053    .S DIR(0) ="Y^AO",DI R("A")="Do  you want  to change  the reques t this ins ufficient  is linked  to"
  2054   "RTN","DVB CREDT",34, 0)
  2055    .S DIR("? ")="Enter  Yes to cha nge the li nk and No  to keep th e current  link.",DIR ("B")="NO"  D ^DIR
  2056   "RTN","DVB CREDT",35, 0)
  2057    .S:+Y=1 U PDT2507=""
  2058   "RTN","DVB CREDT",36, 0)
  2059    .I $D(UPD T2507) DO
  2060   "RTN","DVB CREDT",37, 0)
  2061    ..K DIR,Y
  2062   "RTN","DVB CREDT",38, 0)
  2063    ..N REQDA  S REQDA=S AVEDA
  2064   "RTN","DVB CREDT",39, 0)
  2065    ..S NODE5 =""
  2066   "RTN","DVB CREDT",40, 0)
  2067    ..S:$D(^D VB(396.3,R EQDA,5)) N ODE5=^DVB( 396.3,REQD A,5) ;**Sa ve link no de
  2068   "RTN","DVB CREDT",41, 0)
  2069    ..D CLINS F^DVBCLOG2  S DA=SAVE DA D INSUF ^DVBCLOG2  ;*Update 2 507 Link i nfo
  2070   "RTN","DVB CREDT",42, 0)
  2071    ..I '$D(D VBAOUT),(' $D(DUOUT))  D INSUFXM ^DVBCUTA2  ;*Update e xam info
  2072   "RTN","DVB CREDT",43, 0)
  2073    ..I $D(DV BAOUT)!($D (DUOUT)) D  RESTLINK^ DVBCUTA2 ; *Restore 2 507 link
  2074   "RTN","DVB CREDT",44, 0)
  2075    ..K NODE5
  2076   "RTN","DVB CREDT",45, 0)
  2077    .I '$D(UP DT2507) DO   ;**Exam  info updat e check
  2078   "RTN","DVB CREDT",46, 0)
  2079    ..W !
  2080   "RTN","DVB CREDT",47, 0)
  2081    ..N REQDA  S REQDA=S AVEDA
  2082   "RTN","DVB CREDT",48, 0)
  2083    ..S NODE5 =^DVB(396. 3,REQDA,5)  ;**Save t he link in fo node
  2084   "RTN","DVB CREDT",49, 0)
  2085    ..D INSUF XM^DVBCUTA 2 ;**Updat e exam inf o
  2086   "RTN","DVB CREDT",50, 0)
  2087    ..K XMEDT ,NODE5
  2088   "RTN","DVB CREDT",51, 0)
  2089    .S DA=SAV EDA
  2090   "RTN","DVB CREDT",52, 0)
  2091    ;
  2092   "RTN","DVB CREDT",53, 0)
  2093    ;**Priori ty 'E -> E
  2094   "RTN","DVB CREDT",54, 0)
  2095    I DVBARQS T'="E",($P (^DVB(396. 3,DA,0),U, 10)="E"&(' $D(ENTTOUT ))) DO
  2096   "RTN","DVB CREDT",55, 0)
  2097    .K DIR,Y
  2098   "RTN","DVB CREDT",56, 0)
  2099    .N REQDA, XMDA S REQ DA=SAVEDA
  2100   "RTN","DVB CREDT",57, 0)
  2101    .D INSUF^ DVBCLOG2 ; **Enter 25 07 insuf l ink info
  2102   "RTN","DVB CREDT",58, 0)
  2103    .I '$D(DV BAOUT) DO   ;**Enter  insuf info  on exams
  2104   "RTN","DVB CREDT",59, 0)
  2105    ..N EXMNM ,XMSTAT
  2106   "RTN","DVB CREDT",60, 0)
  2107    ..K DTOUT
  2108   "RTN","DVB CREDT",61, 0)
  2109    ..F XMDA= 0:0 S XMDA =$O(^DVB(3 96.4,"C",R EQDA,XMDA) ) Q:(XMDA= ""!($D(DTO UT)))  DO
  2110   "RTN","DVB CREDT",62, 0)
  2111    ...W @IOF
  2112   "RTN","DVB CREDT",63, 0)
  2113    ...D XMUP DT^DVBCUTA 2 ;**Exam  info
  2114   "RTN","DVB CREDT",64, 0)
  2115    ..S:$D(DT OUT) DVBAO UT="" K Y, ^TMP($J,"N EW")
  2116   "RTN","DVB CREDT",65, 0)
  2117    .I $D(DVB AOUT) DO   ;**Restore  priority  info when  time out
  2118   "RTN","DVB CREDT",66, 0)
  2119    ..N MSG,R ESET,EXMCL R
  2120   "RTN","DVB CREDT",67, 0)
  2121    ..S (RESE T,MSG,EXMC LR)=""
  2122   "RTN","DVB CREDT",68, 0)
  2123    ..D RESTO RE
  2124   "RTN","DVB CREDT",69, 0)
  2125    .S DA=SAV EDA
  2126   "RTN","DVB CREDT",70, 0)
  2127    ;
  2128   "RTN","DVB CREDT",71, 0)
  2129    ;**Priori ty E -> 'E
  2130   "RTN","DVB CREDT",72, 0)
  2131    I DVBARQS T="E",($P( ^DVB(396.3 ,DA,0),U,1 0)'="E") D O
  2132   "RTN","DVB CREDT",73, 0)
  2133    .N REQDA, EXMCLR S R EQDA=SAVED A S EXMCLR =""
  2134   "RTN","DVB CREDT",74, 0)
  2135    .D RESTOR E ;**Clear  link and  insuf info  on exams
  2136   "RTN","DVB CREDT",75, 0)
  2137    .S DA=SAV EDA
  2138   "RTN","DVB CREDT",76, 0)
  2139    ;
  2140   "RTN","DVB CREDT",77, 0)
  2141    ;**If Tim ed out of  informatio n edit in  DR string
  2142   "RTN","DVB CREDT",78, 0)
  2143    I $D(ENTT OUT) DO
  2144   "RTN","DVB CREDT",79, 0)
  2145    .I DVBARQ ST'="E",($ P(^DVB(396 .3,DA,0),U ,10)="E")  DO  ;**cle ar insf in fo
  2146   "RTN","DVB CREDT",80, 0)
  2147    ..N REQDA ,MSG,RESET
  2148   "RTN","DVB CREDT",81, 0)
  2149    ..S REQDA =SAVEDA S  (MSG,RESET )=""
  2150   "RTN","DVB CREDT",82, 0)
  2151    ..D RESTO RE
  2152   "RTN","DVB CREDT",83, 0)
  2153    S DA=SAVE DA
  2154   "RTN","DVB CREDT",84, 0)
  2155    S DIE="^D VB(396.3,"
  2156   "RTN","DVB CREDT",85, 0)
  2157    I $P(^DVB (396.3,DA, 0),U,2)[DT  G CONK ;n o check if  entered t oday
  2158   "RTN","DVB CREDT",86, 0)
  2159    K DVBCMOD  F I=0:0 S  I=$O(^DVB (396.3,DA, 2,I)) Q:I= ""  D COMP ARE Q:$D(D VBCMOD)
  2160   "RTN","DVB CREDT",87, 0)
  2161    I $D(DVBC MOD) S DR= "23.5///NO W;23.6//// ^S X=DUZ"  D ^DIE W @ IOF,!!,*7, "Since you  have modi fied the R EMARKS sec tion,",!," a new copy  of the re quest will  be issued  to the",! ,"medical  center tom orrow morn ing."
  2162   "RTN","DVB CREDT",88, 0)
  2163    ;
  2164   "RTN","DVB CREDT",89, 0)
  2165   CON I $D(D VBCMOD) W  !!,"Press  RETURN to  continue   " R ANS:DT IME G:'$T! (ANS=U) EX IT
  2166   "RTN","DVB CREDT",90, 0)
  2167   CONK K I,D VBCMOD,DIC ,DA,DIE,X, Y G EN1
  2168   "RTN","DVB CREDT",91, 0)
  2169    ;
  2170   "RTN","DVB CREDT",92, 0)
  2171   EXIT K ^TM P("DVBCEDI T",$J) G K ILL^DVBCUT IL
  2172   "RTN","DVB CREDT",93, 0)
  2173    ;
  2174   "RTN","DVB CREDT",94, 0)
  2175   RESTORE ;* * Remove i nsufficien t info fro m 2507
  2176   "RTN","DVB CREDT",95, 0)
  2177    K DIE,DA, DR
  2178   "RTN","DVB CREDT",96, 0)
  2179    D CLINSF^ DVBCLOG2 ; **Clear 25 07 info
  2180   "RTN","DVB CREDT",97, 0)
  2181    I $D(RESE T) DO  ;** Reset Prio rity
  2182   "RTN","DVB CREDT",98, 0)
  2183    .S DA=REQ DA,DR="9// //^S X=DVB ARQST",DIE ="^DVB(396 .3,"
  2184   "RTN","DVB CREDT",99, 0)
  2185    .D ^DIE K  DA,DR,DIE
  2186   "RTN","DVB CREDT",100 ,0)
  2187    I $D(EXMC LR) DO  ;* *Clear exa m info
  2188   "RTN","DVB CREDT",101 ,0)
  2189    .F XMDA=0 :0 S XMDA= $O(^DVB(39 6.4,"C",RE QDA,XMDA))  Q:(XMDA=" ")  DO
  2190   "RTN","DVB CREDT",102 ,0)
  2191    ..K DA,DR ,DIE
  2192   "RTN","DVB CREDT",103 ,0)
  2193    ..S DA=XM DA,DR=".11 ////@;.12/ //@;80///@ ",DIE="^DV B(396.4,"
  2194   "RTN","DVB CREDT",104 ,0)
  2195    ..D ^DIE
  2196   "RTN","DVB CREDT",105 ,0)
  2197    .K DA,DR, DIE
  2198   "RTN","DVB CREDT",106 ,0)
  2199    I $D(MSG)  DO  ;**Ou tput messa ge
  2200   "RTN","DVB CREDT",107 ,0)
  2201    .S TVAR(1 ,0)="1,3,0 ,2:1,0^Ins ufficient  link info  not update d!...Prior ity restor ed"
  2202   "RTN","DVB CREDT",108 ,0)
  2203    .D WR^DVB AUTL4("TVA R")
  2204   "RTN","DVB CREDT",109 ,0)
  2205    .K TVAR
  2206   "RTN","DVB CREDT",110 ,0)
  2207    .D CONTME S^DVBCUTL4
  2208   "RTN","DVB CREDT",111 ,0)
  2209    Q
  2210   "RTN","DVB CREDT",112 ,0)
  2211    ;
  2212   "RTN","DVM XPOST")
  2213   0^4^B26897 46
  2214   "RTN","DVM XPOST",1,0 )
  2215   DVMXPOST ;  MASS/MKN  - Post-ins tall routi ne;12/13/2 017
  2216   "RTN","DVM XPOST",2,0 )
  2217    ;;2.7;AMI E;**202**; December 1 3,2017;Bui ld 28
  2218   "RTN","DVM XPOST",3,0 )
  2219    ;VA DIREC TIVE 6402,  this rout ine should  not be mo dified.
  2220   "RTN","DVM XPOST",4,0 )
  2221    ;
  2222   "RTN","DVM XPOST",5,0 )
  2223   EN ;The ac tual post  install do es nothing . The purp ose of thi s routine  is
  2224   "RTN","DVM XPOST",6,0 )
  2225    ; to prov ide a "bac k out" fun ction at t ag BACKOUT
  2226   "RTN","DVM XPOST",7,0 )
  2227    Q
  2228   "RTN","DVM XPOST",8,0 )
  2229    ;
  2230   "RTN","DVM XPOST",9,0 )
  2231   BACKOUT ;
  2232   "RTN","DVM XPOST",10, 0)
  2233    N FN,FNA, IEN97,N,NA ,X
  2234   "RTN","DVM XPOST",11, 0)
  2235    S IEN97=$ O(^XPD(9.7 ,"B","DVBA *2.7*202", ""),-1),TE MP="Tempor ary backup  file:"
  2236   "RTN","DVM XPOST",12, 0)
  2237    I 'IEN97  W !,"DVBA* 2.7*202 In stall not  found" Q
  2238   "RTN","DVM XPOST",13, 0)
  2239    S N=0,NA= "" F  S N= $O(^XPD(9. 7,IEN97,"M ES",N)) Q: N=""  S X= ^XPD(9.7,I EN97,"MES" ,N,0) D
  2240   "RTN","DVM XPOST",14, 0)
  2241    .I $E(X,1 ,$L(TEMP)) =TEMP S NA =$P(X,":", 2)
  2242   "RTN","DVM XPOST",15, 0)
  2243    I NA="" W  !,"Backup  file name  not found  in instal lation fil e" Q
  2244   "RTN","DVM XPOST",16, 0)
  2245    W !,"Back up file "_ TEMP_" fou nd; restor e commenci ng..."
  2246   "RTN","DVM XPOST",17, 0)
  2247    S FN=396. 4 S FNA="F ile "_FN W  !,"Restor ing data d ictionary  for file # "_FN_"..."  D
  2248   "RTN","DVM XPOST",18, 0)
  2249    .I '$D(@N A@(FNA)) W  !,"File # "_FN_" not  found in  backup fil e" Q
  2250   "RTN","DVM XPOST",19, 0)
  2251    .K ^DD(FN ) M ^DD(FN )=@NA@(FNA )
  2252   "RTN","DVM XPOST",20, 0)
  2253    I '$D(@NA @("DD-IX") ) W !,"Ind ex for new -style cro ss-referen ces not fo und in bac kup file"
  2254   "RTN","DVM XPOST",21, 0)
  2255    E  K ^DD( "IX") M ^D D("IX")=@N A@("DD-IX" )
  2256   "RTN","DVM XPOST",22, 0)
  2257    W !,"DVBA *2.7*202 B ack out fi nished!"
  2258   "RTN","DVM XPOST",23, 0)
  2259    Q
  2260   "RTN","DVM XPOST",24, 0)
  2261    ;
  2262   "RTN","DVM XPRE")
  2263   0^3^B18104 22
  2264   "RTN","DVM XPRE",1,0)
  2265   DVMXPRE ;  MASS/MKN -  Pre-insta ll routine ;12/13/201 7
  2266   "RTN","DVM XPRE",2,0)
  2267    ;;2.7;AMI E;**202**; December 1 3,2017;Bui ld 28
  2268   "RTN","DVM XPRE",3,0)
  2269    ;VA DIREC TIVE 6402,  this rout ine should  not be mo dified.
  2270   "RTN","DVM XPRE",4,0)
  2271    ;
  2272   "RTN","DVM XPRE",5,0)
  2273    ;  ICR#    Supported  Reference s
  2274   "RTN","DVM XPRE",6,0)
  2275    ;  10103   $FMADD^XL FDT
  2276   "RTN","DVM XPRE",7,0)
  2277    ;
  2278   "RTN","DVM XPRE",8,0)
  2279   EN ;Make a  copy of d ata dictio naries for  the files  in patch  DVBA*2.7*2 02
  2280   "RTN","DVM XPRE",9,0)
  2281    ;
  2282   "RTN","DVM XPRE",10,0 )
  2283    N FN,NA
  2284   "RTN","DVM XPRE",11,0 )
  2285    D MES^XPD UTL("Pre I nstall rou tine start ing. Savin g data dic tionaries. ..")
  2286   "RTN","DVM XPRE",12,0 )
  2287    S NA=$NA( ^XTMP("DVB A_2_7_202" _$J)) K @N A S @NA@(0 )=$$FMADD^ XLFDT(DT,6 0)_U_DT
  2288   "RTN","DVM XPRE",13,0 )
  2289    D MES^XPD UTL("This  is the tem porary fil e that wou ld be used  for a ""b ack out"": ")
  2290   "RTN","DVM XPRE",14,0 )
  2291    D MES^XPD UTL("Tempo rary backu p file:"_N A)
  2292   "RTN","DVM XPRE",15,0 )
  2293    S FN=396. 4 D MES^XP DUTL("Savi ng DD for  file "_FN)  M @NA@("F ile "_FN)= ^DD(FN)
  2294   "RTN","DVM XPRE",16,0 )
  2295    D MES^XPD UTL("Savin g new-styl e cross-re ference fi le ^DD(""I X""")
  2296   "RTN","DVM XPRE",17,0 )
  2297    M @NA@("D D-IX")=^DD ("IX")
  2298   "RTN","DVM XPRE",18,0 )
  2299    ;
  2300   "RTN","DVM XPRE",19,0 )
  2301    D MES^XPD UTL("Pre I nstall rou tine ended ")
  2302   "RTN","DVM XPRE",20,0 )
  2303    Q
  2304   "RTN","DVM XPRE",21,0 )
  2305    ;
  2306   "VER")
  2307   8.0^22.2
  2308   "^DD",396. 4,396.4,.0 2,0)
  2309   2507 REQUE ST^RP396.3 'I^DVB(396 .3,^0;2^Q
  2310   "^DD",396. 4,396.4,.0 2,1,0)
  2311   ^.1^^-1
  2312   "^DD",396. 4,396.4,.0 2,1,1,0)
  2313   396.4^C
  2314   "^DD",396. 4,396.4,.0 2,1,1,1)
  2315   S ^DVB(396 .4,"C",$E( X,1,30),DA )=""
  2316   "^DD",396. 4,396.4,.0 2,1,1,2)
  2317   K ^DVB(396 .4,"C",$E( X,1,30),DA )
  2318   "^DD",396. 4,396.4,.0 2,1,1,"%D" ,0)
  2319   ^.101^1^1^ 3170908^^
  2320   "^DD",396. 4,396.4,.0 2,1,1,"%D" ,1,0)
  2321   This is a  standard F M cross re ference fo r this fie ld.
  2322   "^DD",396. 4,396.4,.0 2,1,1,"DT" )
  2323   2930218
  2324   "^DD",396. 4,396.4,.0 2,1,2,0)
  2325   396.4^APS^ MUMPS
  2326   "^DD",396. 4,396.4,.0 2,1,2,1)
  2327   N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA)=" "
  2328   "^DD",396. 4,396.4,.0 2,1,2,2)
  2329   N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA)
  2330   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,0)
  2331   ^^3^3^2930 510^^
  2332   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,1,0)
  2333   This cross  reference  contains  the patien t's intern al file nu mber, the  exam
  2334   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,2,0)
  2335   IFN and th e exam sta tus.  It i s set on t wo other f ields .03  and .04.  
  2336   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,3,0)
  2337   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  2338   "^DD",396. 4,396.4,.0 2,1,2,"DT" )
  2339   2930422
  2340   "^DD",396. 4,396.4,.0 2,1,3,0)
  2341   396.4^APE^ MUMPS
  2342   "^DD",396. 4,396.4,.0 2,1,3,1)
  2343   N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" S  ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA)=""
  2344   "^DD",396. 4,396.4,.0 2,1,3,2)
  2345   N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" K  ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA)
  2346   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,0)
  2347   ^^3^3^2930 510^
  2348   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,1,0)
  2349   This cross  reference  contains  the patien t's IFN, t he exam na me, and th e
  2350   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,2,0)
  2351   request da te.  It is  set on on e other fi eld .03.   Recross re ferencing  either
  2352   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,3,0)
  2353   one of the se fields  would be a cceptable.
  2354   "^DD",396. 4,396.4,.0 2,1,3,"DT" )
  2355   2930422
  2356   "^DD",396. 4,396.4,.0 2,1,4,0)
  2357   396.4^AF^M UMPS
  2358   "^DD",396. 4,396.4,.0 2,1,4,1)
  2359   N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]""  S ^DVB(396 .4,"ARQ"_X ,A,DA)=""
  2360   "^DD",396. 4,396.4,.0 2,1,4,2)
  2361   N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]""  K ^DVB(396 .4,"ARQ"_X ,A,DA)
  2362   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,0)
  2363   ^.101^2^2^ 3171108^^^ ^
  2364   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,1,0)
  2365   This cross  reference  is used t o quickly  find the c orrect exa ms that ar e
  2366   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,2,0)
  2367   related to  a specifi c request.
  2368   "^DD",396. 4,396.4,.0 2,1,4,"DT" )
  2369   2930902
  2370   "^DD",396. 4,396.4,.0 2,3)
  2371   Enter the  request th at this ex am belongs  to.  You  will selec t the vete ran then w hich reque st.
  2372   "^DD",396. 4,396.4,.0 2,21,0)
  2373   ^^2^2^2940 721^^
  2374   "^DD",396. 4,396.4,.0 2,21,1,0)
  2375   This field  connects  the given  record wit h the 2507  request r ecord that
  2376   "^DD",396. 4,396.4,.0 2,21,2,0)
  2377   the exam i s on.
  2378   "^DD",396. 4,396.4,.0 2,23,0)
  2379   ^^1^1^2940 721^^
  2380   "^DD",396. 4,396.4,.0 2,23,1,0)
  2381   A pointer  to the 250 7 Request  file (396. 3).
  2382   "^DD",396. 4,396.4,.0 2,"DT")
  2383   3171003
  2384   "^DD",396. 4,396.4,.0 3,0)
  2385   EXAM TYPE^ RP396.6'I^ DVB(396.6, ^0;3^Q
  2386   "^DD",396. 4,396.4,.0 3,1,0)
  2387   ^.1
  2388   "^DD",396. 4,396.4,.0 3,1,1,0)
  2389   396.4^ARQ^ MUMPS
  2390   "^DD",396. 4,396.4,.0 3,1,1,1)
  2391   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA)=""
  2392   "^DD",396. 4,396.4,.0 3,1,1,2)
  2393   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  K ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA)
  2394   "^DD",396. 4,396.4,.0 3,1,1,"%D" ,0)
  2395   ^^1^1^2930 902^
  2396   "^DD",396. 4,396.4,.0 3,1,1,"%D" ,1,0)
  2397   This cross  reference  is to aid  in the lo ok up on t he 2507 ex am file 39 6.4
  2398   "^DD",396. 4,396.4,.0 3,1,1,"DT" )
  2399   2930902
  2400   "^DD",396. 4,396.4,.0 3,1,2,0)
  2401   396.4^AC^M UMPS
  2402   "^DD",396. 4,396.4,.0 3,1,2,1)
  2403   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA)=" "
  2404   "^DD",396. 4,396.4,.0 3,1,2,2)
  2405   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA)
  2406   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,0)
  2407   ^^3^3^2930 510^^^^
  2408   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,1,0)
  2409   This cross  reference  contains  the patien t's intern al file nu mber, the  exam 
  2410   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,2,0)
  2411   IFN and th e exam sta tus.  It i s set on t wo other f ields .02  and .04.    
  2412   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,3,0)
  2413   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  2414   "^DD",396. 4,396.4,.0 3,1,2,"DT" )
  2415   2930422
  2416   "^DD",396. 4,396.4,.0 3,1,3,0)
  2417   396.4^AE^M UMPS
  2418   "^DD",396. 4,396.4,.0 3,1,3,1)
  2419   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S A=^DVB(3 96.3,A,0)  I $P(A,U,1 )]"",$P(A, U,2)]"" S  ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA)=""
  2420   "^DD",396. 4,396.4,.0 3,1,3,2)
  2421   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S A=^DVB(3 96.3,A,0)  I $P(A,U,1 )]"",$P(A, U,2)]"" K  ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA)
  2422   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,0)
  2423   ^^3^3^2930 510^
  2424   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,1,0)
  2425   This cross  reference  contains  the patien t's IFN, t he exam na me, and th e
  2426   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,2,0)
  2427   request da te.  It is  set on on e other fi eld .03.   Recross re ferencing  either
  2428   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,3,0)
  2429   one of the se fields  would be a cceptable.
  2430   "^DD",396. 4,396.4,.0 3,1,3,"DT" )
  2431   2930422
  2432   "^DD",396. 4,396.4,.0 3,1,4,0)
  2433   396.4^F
  2434   "^DD",396. 4,396.4,.0 3,1,4,1)
  2435   S ^DVB(396 .4,"F",$E( X,1,30),DA )=""
  2436   "^DD",396. 4,396.4,.0 3,1,4,2)
  2437   K ^DVB(396 .4,"F",$E( X,1,30),DA )
  2438   "^DD",396. 4,396.4,.0 3,1,4,"DT" )
  2439   2930218
  2440   "^DD",396. 4,396.4,.0 3,1,5,0)
  2441   396.4^AIT2 ^MUMPS
  2442   "^DD",396. 4,396.4,.0 3,1,5,1)
  2443   S:+$P(^DVB (396.4,DA, 0),U,11)>0  ^DVB(396. 4,"AIT",$P (^(0),U,11 ),$E(X,1,3 0),DA)=""
  2444   "^DD",396. 4,396.4,.0 3,1,5,2)
  2445   I +$P(^DVB (396.4,DA, 0),U,11)>0  K ^DVB(39 6.4,"AIT", $P(^(0),U, 11),$E(X,1 ,30),DA)
  2446   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,0)
  2447   ^.101^2^2^ 3171108^^^ ^
  2448   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,1,0)
  2449   This cross  reference  is on the  Insuffici ent Reason  and Exam  Type field s.
  2450   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,2,0)
  2451   It is used  by the th e Detailed  Insuffici ent Exam R eport.
  2452   "^DD",396. 4,396.4,.0 3,1,5,"DT" )
  2453   2941116
  2454   "^DD",396. 4,396.4,.0 3,3)
  2455   Enter the  name of th e exam for  this requ est.
  2456   "^DD",396. 4,396.4,.0 3,4)
  2457  
  2458   "^DD",396. 4,396.4,.0 3,21,0)
  2459   ^^1^1^2940 722^^
  2460   "^DD",396. 4,396.4,.0 3,21,1,0)
  2461   Contains t he name of  the exam.
  2462   "^DD",396. 4,396.4,.0 3,23,0)
  2463   ^^1^1^2940 722^^
  2464   "^DD",396. 4,396.4,.0 3,23,1,0)
  2465   This field  is a poin ter to the  2507 Exam  File (396 .6).
  2466   "^DD",396. 4,396.4,.0 3,"DT")
  2467   3171003
  2468   "^DD",396. 4,396.4,.0 4,0)
  2469   STATUS^S^O :OPEN;C:CO MPLETED;X: CANCELED B Y MAS;RX:C ANCELED BY  RO;T:TRAN SFERRED OU T;^0;4^Q
  2470   "^DD",396. 4,396.4,.0 4,1,0)
  2471   ^.1^^-1
  2472   "^DD",396. 4,396.4,.0 4,1,1,0)
  2473   396.4^AD^M UMPS
  2474   "^DD",396. 4,396.4,.0 4,1,1,1)
  2475   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA)=" "
  2476   "^DD",396. 4,396.4,.0 4,1,1,2)
  2477   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA)
  2478   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,0)
  2479   ^.101^3^3^ 3171108^^^ ^
  2480   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,1,0)
  2481   This cross  reference  contains  the patien t's intern al file nu mber, the  exam 
  2482   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,2,0)
  2483   IFN and th e exam sta tus.  It i s set on t wo other f ields .02  and .03.    
  2484   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,3,0)
  2485   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  2486   "^DD",396. 4,396.4,.0 4,1,1,"DT" )
  2487   2930422
  2488   "^DD",396. 4,396.4,.0 4,3)
  2489   This is th e status o f the exam  in AMIE.
  2490   "^DD",396. 4,396.4,.0 4,21,0)
  2491   ^.001^2^2^ 3040910^^
  2492   "^DD",396. 4,396.4,.0 4,21,1,0)
  2493   The value  of the sta tus of the  exam reco rd.  (Open , Closed,  Transferre d or
  2494   "^DD",396. 4,396.4,.0 4,21,2,0)
  2495   Cancelled)
  2496   "^DD",396. 4,396.4,.0 4,21,3,0)
  2497    
  2498   "^DD",396. 4,396.4,.0 4,21,4,0)
  2499   This field  is used a s part of  the implem entation o f a Nation ally Contr olled
  2500   "^DD",396. 4,396.4,.0 4,21,5,0)
  2501   Procedure  (AMIS 290) .  Per VHA  Directive  10-93-142 , the info rmation 
  2502   "^DD",396. 4,396.4,.0 4,21,6,0)
  2503   contained  in this fi eld is not  to be cha nged as th e results  of local ( site) 
  2504   "^DD",396. 4,396.4,.0 4,21,7,0)
  2505   modificati ons.
  2506   "^DD",396. 4,396.4,.0 4,23,0)
  2507   ^.001^2^2^ 3040910^^
  2508   "^DD",396. 4,396.4,.0 4,23,1,0)
  2509   This field  is a set  of codes.   It contro ls what AM IE functio ns can be 
  2510   "^DD",396. 4,396.4,.0 4,23,2,0)
  2511   performed  on the exa m record.
  2512   "^DD",396. 4,396.4,.0 4,"DT")
  2513   3171003
  2514   $END KID D VBA*2.7*20 2