6. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/12/2018 12:04:38 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.

6.1 Files compared

# Location File Last Modified
1 MASS.zip\MASS GMRC-3.0-95.KID Wed Jun 6 14:44:36 2018 UTC
2 MASS.zip\MASS GMRC-3.0-95.KID Tue Jun 12 14:58:24 2018 UTC

6.2 Comparison summary

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

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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   $TXT Creat ed by MARQ UEZ,JUSTO  at DEVVFF.
D NS        URL             (KIDS) on  Friday, 05 /04/18 at  12:24
  2   $END TXT
  3   $KID GMRC* 3.0*95
  4   **INSTALL  NAME**
  5   GMRC*3.0*9 5
  6   "BLD",1063 7,0)
  7   GMRC*3.0*9 5^CONSULT/ REQUEST TR ACKING^0^3 180504^y
  8   "BLD",1063 7,1,0)
  9   ^^437^437^ 3180321^^
  10   "BLD",1063 7,1,1,0)
  11   Associated  patches:  (v)GMRC*3* 75   <<= m ust be ins talled BEF ORE 
  12   "BLD",1063 7,1,2,0)
  13   `GMRC*3*95 '
  14   "BLD",1063 7,1,3,0)
  15                         (v)GMRC*3* 90   <<= m ust be ins talled BEF ORE 
  16   "BLD",1063 7,1,4,0)
  17   `GMRC*3*95 '
  18   "BLD",1063 7,1,5,0)
  19                         (u)DG*5.3* 948  <<= m ust be ins talled BEF ORE 
  20   "BLD",1063 7,1,6,0)
  21   `GMRC*3*95 '
  22   "BLD",1063 7,1,7,0)
  23                         (u)SD*5.3* 676  <<= m ust be ins talled BEF ORE 
  24   "BLD",1063 7,1,8,0)
  25   `GMRC*3*95 '
  26   "BLD",1063 7,1,9,0)
  27                         (u)OR*3*47 0    <<= m ust be ins talled BEF ORE 
  28   "BLD",1063 7,1,10,0)
  29   `GMRC*3*95 '
  30   "BLD",1063 7,1,11,0)
  31                        
  32   "BLD",1063 7,1,12,0)
  33    
  34   "BLD",1063 7,1,13,0)
  35   Subject:   MASS EPIC  MODIFICATI ONS
  36   "BLD",1063 7,1,14,0)
  37    
  38   "BLD",1063 7,1,15,0)
  39   Category:   OTHER
  40   "BLD",1063 7,1,16,0)
  41               ROUTINE
  42   "BLD",1063 7,1,17,0)
  43               ENHANCEME NT
  44   "BLD",1063 7,1,18,0)
  45    
  46   "BLD",1063 7,1,19,0)
  47   The follow ing patche s must be  installed  in order f or a succe ssful 
  48   "BLD",1063 7,1,20,0)
  49   instalatio n:
  50   "BLD",1063 7,1,21,0)
  51               SD*5.3*67 6
  52   "BLD",1063 7,1,22,0)
  53               DG*5.3*94 8
  54   "BLD",1063 7,1,23,0)
  55               OR*3.0*47 0
  56   "BLD",1063 7,1,24,0)
  57               GMRC*3.0* 95
  58   "BLD",1063 7,1,25,0)
  59               DVBA*2.7* 202
  60   "BLD",1063 7,1,26,0)
  61    
  62   "BLD",1063 7,1,27,0)
  63   ---------- --
  64   "BLD",1063 7,1,28,0)
  65   The CONSUL T/REQUEST  TRACKING G MRC*3.0*95  patch is  the initia l release  of 
  66   "BLD",1063 7,1,29,0)
  67   the Medica l Appointm ent 
  68   "BLD",1063 7,1,30,0)
  69   Scheduling  System (M ASS) sched uling inte gration de velopment  for the Vi stA 
  70   "BLD",1063 7,1,31,0)
  71   Pilot at C olumbus, O H. This pa tch includ es all of  the necess ary 
  72   "BLD",1063 7,1,32,0)
  73   components  that will  enable ou tgoing HL7  (Health L evel 7) v2
  74   "BLD",1063 7,1,33,0)
  75   ORM (order  message)  ordering i ntegration  with MASS
  76   "BLD",1063 7,1,34,0)
  77    
  78   "BLD",1063 7,1,35,0)
  79    
  80   "BLD",1063 7,1,36,0)
  81   Patch Comp onents:
  82   "BLD",1063 7,1,37,0)
  83   ---------- ----------
  84   "BLD",1063 7,1,38,0)
  85   N/A (Not A pplicable)
  86   "BLD",1063 7,1,39,0)
  87    
  88   "BLD",1063 7,1,40,0)
  89    
  90   "BLD",1063 7,1,41,0)
  91    
  92   "BLD",1063 7,1,42,0)
  93   Files & Fi elds Assoc iated:
  94   "BLD",1063 7,1,43,0)
  95    
  96   "BLD",1063 7,1,44,0)
  97   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  98   "BLD",1063 7,1,45,0)
  99   ---------- --------       ------ ---------- ---     -- ---------- --------
  100   "BLD",1063 7,1,46,0)
  101   None                      N/A                       N/ A
  102   "BLD",1063 7,1,47,0)
  103    
  104   "BLD",1063 7,1,48,0)
  105    
  106   "BLD",1063 7,1,49,0)
  107   Forms Asso ciated:
  108   "BLD",1063 7,1,50,0)
  109    
  110   "BLD",1063 7,1,51,0)
  111   Form Name        File  #  New/Mo dified/Del eted
  112   "BLD",1063 7,1,52,0)
  113   ---------        ---- --  ------ ---------- ----
  114   "BLD",1063 7,1,53,0)
  115   None             N/A      N/A
  116   "BLD",1063 7,1,54,0)
  117    
  118   "BLD",1063 7,1,55,0)
  119    
  120   "BLD",1063 7,1,56,0)
  121   Mail Group s Associat ed:
  122   "BLD",1063 7,1,57,0)
  123    
  124   "BLD",1063 7,1,58,0)
  125   Mail Group  Name New/ Modified/D eleted
  126   "BLD",1063 7,1,59,0)
  127   ---------- ----- ---- ---------- ------
  128   "BLD",1063 7,1,60,0)
  129   None             N/A
  130   "BLD",1063 7,1,61,0)
  131    
  132   "BLD",1063 7,1,62,0)
  133    
  134   "BLD",1063 7,1,63,0)
  135   Options As sociated:
  136   "BLD",1063 7,1,64,0)
  137    
  138   "BLD",1063 7,1,65,0)
  139   Option Nam e     Type     New/Mo dified/Del eted
  140   "BLD",1063 7,1,66,0)
  141   ---------- -     ----     ------ ---------- ---- 
  142   "BLD",1063 7,1,67,0)
  143   None    N/ A     N/A
  144   "BLD",1063 7,1,68,0)
  145    
  146   "BLD",1063 7,1,69,0)
  147    
  148   "BLD",1063 7,1,70,0)
  149   Protocols  Associated :
  150   "BLD",1063 7,1,71,0)
  151    
  152   "BLD",1063 7,1,72,0)
  153   Protocol N ame                       New/Mo dified/Del eted
  154   "BLD",1063 7,1,73,0)
  155   ---------- ---                       ------ ---------- ---- 
  156   "BLD",1063 7,1,74,0)
  157   GMRC EVSEN D OR                      MODIFI ED
  158   "BLD",1063 7,1,75,0)
  159   ORMX ORM H L7 TRIGGER  - CONSULT S   NEW
  160   "BLD",1063 7,1,76,0)
  161    
  162   "BLD",1063 7,1,77,0)
  163    
  164   "BLD",1063 7,1,78,0)
  165   Security K eys Associ ated:
  166   "BLD",1063 7,1,79,0)
  167    
  168   "BLD",1063 7,1,80,0)
  169   Security K ey Name
  170   "BLD",1063 7,1,81,0)
  171   ---------- -------
  172   "BLD",1063 7,1,82,0)
  173   N/A
  174   "BLD",1063 7,1,83,0)
  175    
  176   "BLD",1063 7,1,84,0)
  177    
  178   "BLD",1063 7,1,85,0)
  179   Templates  Associated :
  180   "BLD",1063 7,1,86,0)
  181    
  182   "BLD",1063 7,1,87,0)
  183   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  184   "BLD",1063 7,1,88,0)
  185   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  186   "BLD",1063 7,1,89,0)
  187   None             N/A      N/A                   N/A
  188   "BLD",1063 7,1,90,0)
  189    
  190   "BLD",1063 7,1,91,0)
  191    
  192   "BLD",1063 7,1,92,0)
  193   Additional  Informati on: N/A
  194   "BLD",1063 7,1,93,0)
  195    
  196   "BLD",1063 7,1,94,0)
  197    
  198   "BLD",1063 7,1,95,0)
  199   New Servic e Requests  (NSRs):
  200   "BLD",1063 7,1,96,0)
  201   ---------- ---------- --------  
  202   "BLD",1063 7,1,97,0)
  203   N/A
  204   "BLD",1063 7,1,98,0)
  205    
  206   "BLD",1063 7,1,99,0)
  207    
  208   "BLD",1063 7,1,100,0)
  209   Patient Sa fety Issue s (PSIs):
  210   "BLD",1063 7,1,101,0)
  211   ---------- ---------- ---------
  212   "BLD",1063 7,1,102,0)
  213   N/A
  214   "BLD",1063 7,1,103,0)
  215    
  216   "BLD",1063 7,1,104,0)
  217    
  218   "BLD",1063 7,1,105,0)
  219   Defect Tra cking Syst em Ticket( s) & Overv iew:
  220   "BLD",1063 7,1,106,0)
  221   ---------- ---------- ---------- ---------- ----
  222   "BLD",1063 7,1,107,0)
  223   N/A
  224   "BLD",1063 7,1,108,0)
  225    
  226   "BLD",1063 7,1,109,0)
  227    
  228   "BLD",1063 7,1,110,0)
  229   Problem:
  230   "BLD",1063 7,1,111,0)
  231   -------
  232   "BLD",1063 7,1,112,0)
  233   N/A
  234   "BLD",1063 7,1,113,0)
  235    
  236   "BLD",1063 7,1,114,0)
  237    
  238   "BLD",1063 7,1,115,0)
  239   Resolution :
  240   "BLD",1063 7,1,116,0)
  241   ----------
  242   "BLD",1063 7,1,117,0)
  243   N/A
  244   "BLD",1063 7,1,118,0)
  245    
  246   "BLD",1063 7,1,119,0)
  247    
  248   "BLD",1063 7,1,120,0)
  249   Test Sites :
  250   "BLD",1063 7,1,121,0)
  251   ----------
  252   "BLD",1063 7,1,122,0)
  253   1. EPIC DE VELOPMENT  ACCOUNT
  254   "BLD",1063 7,1,123,0)
  255   2. VISTA D EVVFF DEVE LOPMENT AC COUNT
  256   "BLD",1063 7,1,124,0)
  257   3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION)
  258   "BLD",1063 7,1,125,0)
  259    
  260   "BLD",1063 7,1,126,0)
  261   Software a nd Documen tation Ret rieval Ins tructions:
  262   "BLD",1063 7,1,127,0)
  263   ---------- ---------- ---------- ---------- ---------- -- 
  264   "BLD",1063 7,1,128,0)
  265   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  266   "BLD",1063 7,1,129,0)
  267   the new fu nctionalit y introduc ed by this  patch are  available .
  268   "BLD",1063 7,1,130,0)
  269    
  270   "BLD",1063 7,1,131,0)
  271   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  272   "BLD",1063 7,1,132,0)
  273   This trans mits the f iles from  the first  available  server. Si tes may 
  274   "BLD",1063 7,1,133,0)
  275   also elect  to retrie ve files d irectly fr om a speci fic server
  276   "BLD",1063 7,1,134,0)
  277    
  278   "BLD",1063 7,1,135,0)
  279   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  280   "BLD",1063 7,1,136,0)
  281   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  282   "BLD",1063 7,1,137,0)
  283   directory  at the fol lowing 
  284   "BLD",1063 7,1,138,0)
  285   OI Field O ffices:
  286   "BLD",1063 7,1,139,0)
  287    
  288   "BLD",1063 7,1,140,0)
  289   Hines:  DN S     .URL          
  290   "BLD",1063 7,1,141,0)
  291   Salt Lake  City:        
. URL        
  292   "BLD",1063 7,1,142,0)
  293    
  294   "BLD",1063 7,1,143,0)
  295   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  296   "BLD",1063 7,1,144,0)
  297   at:
  298   "BLD",1063 7,1,145,0)
  299   http://www . DNS     /vdl/
  300   "BLD",1063 7,1,146,0)
  301     
  302   "BLD",1063 7,1,147,0)
  303   Title                             File Name                     F TP Mode
  304   "BLD",1063 7,1,148,0)
  305   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  306   "BLD",1063 7,1,149,0)
  307   MASS VistA  Technical  Manual     TBD                           B INARY
  308   "BLD",1063 7,1,150,0)
  309    
  310   "BLD",1063 7,1,151,0)
  311    
  312   "BLD",1063 7,1,152,0)
  313   Patch Inst allation:
  314   "BLD",1063 7,1,153,0)
  315    
  316   "BLD",1063 7,1,154,0)
  317   Pre/Post I nstallatio n Overview :
  318   "BLD",1063 7,1,155,0)
  319   ---------- ---------- ---------- -
  320   "BLD",1063 7,1,156,0)
  321   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  322   "BLD",1063 7,1,157,0)
  323    
  324   "BLD",1063 7,1,158,0)
  325   Pre-Instal lation Ins tructions:
  326   "BLD",1063 7,1,159,0)
  327   ---------- ---------- ----------
  328   "BLD",1063 7,1,160,0)
  329   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  330   "BLD",1063 7,1,161,0)
  331   recommende d that it  be install ed during  non-peak h ours to mi nimize
  332   "BLD",1063 7,1,162,0)
  333   potential  disruption  to users.   This pat ch should  take less  than 5 
  334   "BLD",1063 7,1,163,0)
  335   minutes to  install.
  336   "BLD",1063 7,1,164,0)
  337    
  338   "BLD",1063 7,1,165,0)
  339   There are  no ListMan  Options t hat need t o be disab led for th is patch.
  340   "BLD",1063 7,1,166,0)
  341    
  342   "BLD",1063 7,1,167,0)
  343   Installati on Instruc tions:
  344   "BLD",1063 7,1,168,0)
  345   ---------- ---------- ------
  346   "BLD",1063 7,1,169,0)
  347    
  348   "BLD",1063 7,1,170,0)
  349   1.  Choose  the PackM an message  containin g this pat ch.
  350   "BLD",1063 7,1,171,0)
  351    
  352   "BLD",1063 7,1,172,0)
  353   2.  Choose  the INSTA LL/CHECK M ESSAGE Pac kMan optio n. 
  354   "BLD",1063 7,1,173,0)
  355    
  356   "BLD",1063 7,1,174,0)
  357   3.  From t he Kernel  Installati on and Dis tribution  System Men u, select 
  358   "BLD",1063 7,1,175,0)
  359       the In stallation  Menu (See  Install P rompts Sam ple below  for more 
  360   "BLD",1063 7,1,176,0)
  361       detail ).  From t his menu,  you may el ect to use  the follo wing optio ns. 
  362   "BLD",1063 7,1,177,0)
  363       When p rompted fo r the INST ALL NAME e nter the p atch #(ex.  XXX*X.X*X X):
  364   "BLD",1063 7,1,178,0)
  365    
  366   "BLD",1063 7,1,179,0)
  367       a.  Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  368   "BLD",1063 7,1,180,0)
  369           me ssage of a ny routine s exported  with this  patch. It  will not 
  370   "BLD",1063 7,1,181,0)
  371           ba ckup any o ther chang es such as  DDs or te mplates.
  372   "BLD",1063 7,1,182,0)
  373    
  374   "BLD",1063 7,1,183,0)
  375       b.  Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  376   "BLD",1063 7,1,184,0)
  377           (a llow you t o view all  changes t hat will b e made whe n this 
  378   "BLD",1063 7,1,185,0)
  379           pa tch is ins talled.)        
  380   "BLD",1063 7,1,186,0)
  381           It  compares  all compon ents of th is patch r outines, 
  382   "BLD",1063 7,1,187,0)
  383           DD s, templat es, etc.
  384   "BLD",1063 7,1,188,0)
  385    
  386   "BLD",1063 7,1,189,0)
  387       c.  Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  388   "BLD",1063 7,1,190,0)
  389           to  ensure th e integrit y of the r outines th at are in  the transp ort 
  390   "BLD",1063 7,1,191,0)
  391           gl obal.
  392   "BLD",1063 7,1,192,0)
  393    
  394   "BLD",1063 7,1,193,0)
  395   4.  From t he Install ation Menu , select t he Install  Package(s ) option 
  396   "BLD",1063 7,1,194,0)
  397       and ch oose the p atch to in stall.
  398   "BLD",1063 7,1,195,0)
  399    
  400   "BLD",1063 7,1,196,0)
  401   5.  When p rompted 'W ant KIDS t o Rebuild  Menu Trees  Upon Comp letion of 
  402   "BLD",1063 7,1,197,0)
  403       Instal l? NO//' 
  404   "BLD",1063 7,1,198,0)
  405    
  406   "BLD",1063 7,1,199,0)
  407   6.  When p rompted 'W ant KIDS t o INHIBIT  LOGONs dur ing the in stall? NO/ /'
  408   "BLD",1063 7,1,200,0)
  409    
  410   "BLD",1063 7,1,201,0)
  411   7.  When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, 
  412   "BLD",1063 7,1,202,0)
  413       and Pr otocols? N O//' 
  414   "BLD",1063 7,1,203,0)
  415    
  416   "BLD",1063 7,1,204,0)
  417   8.  If pro mpted 'Del ay Install  (Minutes) :  (0 - 60 ): 0//' re spond 0.
  418   "BLD",1063 7,1,205,0)
  419    
  420   "BLD",1063 7,1,206,0)
  421    
  422   "BLD",1063 7,1,207,0)
  423   Install Pr ompts Samp le:
  424   "BLD",1063 7,1,208,0)
  425   ---------- ---------- ------
  426   "BLD",1063 7,1,209,0)
  427    
  428   "BLD",1063 7,1,210,0)
  429   VISTA>D ^X UP
  430   "BLD",1063 7,1,211,0)
  431    
  432   "BLD",1063 7,1,212,0)
  433   Setting up  programme r environm ent
  434   "BLD",1063 7,1,213,0)
  435   This is a  TEST accou nt.
  436   "BLD",1063 7,1,214,0)
  437    
  438   "BLD",1063 7,1,215,0)
  439   Terminal T ype set to : C-VT100
  440   "BLD",1063 7,1,216,0)
  441    
  442   "BLD",1063 7,1,217,0)
  443   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  444   "BLD",1063 7,1,218,0)
  445   Load a Dis tribution
  446   "BLD",1063 7,1,219,0)
  447   Enter a Ho st File: G MRC_3_0_95 .KID
  448   "BLD",1063 7,1,220,0)
  449    
  450   "BLD",1063 7,1,221,0)
  451   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:30:10
  452   "BLD",1063 7,1,222,0)
  453   Comment: G MRC*3.0*95
  454   "BLD",1063 7,1,223,0)
  455    
  456   "BLD",1063 7,1,224,0)
  457   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  458   "BLD",1063 7,1,225,0)
  459   Build GMRC *3.0*95 ha s been loa ded before , here is  when: 
  460   "BLD",1063 7,1,226,0)
  461         GMRC *3.0*95    Install Co mpleted
  462   "BLD",1063 7,1,227,0)
  463                         was loaded  on Nov 15 , 2017@00: 13:28
  464   "BLD",1063 7,1,228,0)
  465         GMRC *3.0*95    Install Co mpleted
  466   "BLD",1063 7,1,229,0)
  467                         was loaded  on Nov 20 , 2017@14: 59:53
  468   "BLD",1063 7,1,230,0)
  469         GMRC *3.0*95    Install Co mpleted
  470   "BLD",1063 7,1,231,0)
  471                         was loaded  on Nov 21 , 2017@15: 39:21
  472   "BLD",1063 7,1,232,0)
  473         GMRC *3.0*95    Install Co mpleted
  474   "BLD",1063 7,1,233,0)
  475                         was loaded  on Dec 05 , 2017@16: 16:01
  476   "BLD",1063 7,1,234,0)
  477   OK to cont inue with  Load? NO//  YES
  478   "BLD",1063 7,1,235,0)
  479    
  480   "BLD",1063 7,1,236,0)
  481   Distributi on OK!
  482   "BLD",1063 7,1,237,0)
  483    
  484   "BLD",1063 7,1,238,0)
  485   Want to Co ntinue wit h Load? YE S// 
  486   "BLD",1063 7,1,239,0)
  487   Loading Di stribution ...
  488   "BLD",1063 7,1,240,0)
  489    
  490   "BLD",1063 7,1,241,0)
  491      GMRC*3. 0*95
  492   "BLD",1063 7,1,242,0)
  493   Use INSTAL L NAME: GM RC*3.0*95  to install  this Dist ribution.
  494   "BLD",1063 7,1,243,0)
  495    
  496   "BLD",1063 7,1,244,0)
  497   VISTA>D ^X UP
  498   "BLD",1063 7,1,245,0)
  499    
  500   "BLD",1063 7,1,246,0)
  501   Setting up  programme r environm ent
  502   "BLD",1063 7,1,247,0)
  503   This is a  TEST accou nt.
  504   "BLD",1063 7,1,248,0)
  505    
  506   "BLD",1063 7,1,249,0)
  507   Terminal T ype set to : C-VT100
  508   "BLD",1063 7,1,250,0)
  509    
  510   "BLD",1063 7,1,251,0)
  511   Select OPT ION NAME:  XPD INS
  512   "BLD",1063 7,1,252,0)
  513        1   X PD INSTALL  BUILD        Install  Package(s )
  514   "BLD",1063 7,1,253,0)
  515        2   X PD INSTALL ATION MENU        Ins tallation
  516   "BLD",1063 7,1,254,0)
  517   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  518   "BLD",1063 7,1,255,0)
  519   Install Pa ckage(s)
  520   "BLD",1063 7,1,256,0)
  521   Select INS TALL NAME:     GMRC*3 .0*95      Loaded fro m Distribu tion    
  522   "BLD",1063 7,1,257,0)
  523   12/12/17@2 3:48:08
  524   "BLD",1063 7,1,258,0)
  525        => GM RC*3.0*95   ;Created  on Dec 11,  2017@17:3 0:10
  526   "BLD",1063 7,1,259,0)
  527    
  528   "BLD",1063 7,1,260,0)
  529   This Distr ibution wa s loaded o n Dec 12,  2017@23:48 :08 with h eader of 
  530   "BLD",1063 7,1,261,0)
  531      GMRC*3. 0*95  ;Cre ated on De c 11, 2017 @17:30:10
  532   "BLD",1063 7,1,262,0)
  533      It cons isted of t he followi ng Install (s):
  534   "BLD",1063 7,1,263,0)
  535       GMRC*3 .0*95
  536   "BLD",1063 7,1,264,0)
  537   Checking I nstall for  Package G MRC*3.0*95
  538   "BLD",1063 7,1,265,0)
  539    
  540   "BLD",1063 7,1,266,0)
  541   Install Qu estions fo r GMRC*3.0 *95
  542   "BLD",1063 7,1,267,0)
  543    
  544   "BLD",1063 7,1,268,0)
  545   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  546   "BLD",1063 7,1,269,0)
  547    
  548   "BLD",1063 7,1,270,0)
  549   Press RETU RN to cont inue or '^ ' to stop 
  550   "BLD",1063 7,1,271,0)
  551    
  552   "BLD",1063 7,1,272,0)
  553   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  554   "BLD",1063 7,1,273,0)
  555    
  556   "BLD",1063 7,1,274,0)
  557   Enter the  Device you  want to p rint the I nstall mes sages.
  558   "BLD",1063 7,1,275,0)
  559   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  560   "BLD",1063 7,1,276,0)
  561   Enter a '^ ' to abort  the insta ll.
  562   "BLD",1063 7,1,277,0)
  563    
  564   "BLD",1063 7,1,278,0)
  565   DEVICE: HO ME//   CON SOLE
  566   "BLD",1063 7,1,279,0)
  567    
  568   "BLD",1063 7,1,280,0)
  569    Install S tarted for  GMRC*3.0* 95 : 
  570   "BLD",1063 7,1,281,0)
  571                   Dec 1 2, 2017@23 :48:17
  572   "BLD",1063 7,1,282,0)
  573    
  574   "BLD",1063 7,1,283,0)
  575   Build Dist ribution D ate: Dec 1 1, 2017
  576   "BLD",1063 7,1,284,0)
  577    
  578   "BLD",1063 7,1,285,0)
  579    Installin g Routines :
  580   "BLD",1063 7,1,286,0)
  581    
  582   "BLD",1063 7,1,287,0)
  583                    Dec  12, 2017@2 3:48:17
  584   "BLD",1063 7,1,288,0)
  585    
  586   "BLD",1063 7,1,289,0)
  587    Installin g PACKAGE  COMPONENTS
  588   "BLD",1063 7,1,290,0)
  589    
  590   "BLD",1063 7,1,291,0)
  591    Installin g PROTOCOL
  592   "BLD",1063 7,1,292,0)
  593                    Dec  12, 2017@2 3:48:17
  594   "BLD",1063 7,1,293,0)
  595    
  596   "BLD",1063 7,1,294,0)
  597    Updating  Routine fi le...
  598   "BLD",1063 7,1,295,0)
  599    
  600   "BLD",1063 7,1,296,0)
  601    Updating  KIDS files ...
  602   "BLD",1063 7,1,297,0)
  603    
  604   "BLD",1063 7,1,298,0)
  605    GMRC*3.0* 95 Install ed. 
  606   "BLD",1063 7,1,299,0)
  607                   Dec 1 2, 2017@23 :48:17
  608   "BLD",1063 7,1,300,0)
  609    
  610   "BLD",1063 7,1,301,0)
  611    No link t o PACKAGE  file
  612   "BLD",1063 7,1,302,0)
  613    
  614   "BLD",1063 7,1,303,0)
  615    NO Instal l Message  sent 
  616   "BLD",1063 7,1,304,0)
  617    
  618   "BLD",1063 7,1,305,0)
  619   Install Co mpleted
  620   "BLD",1063 7,1,306,0)
  621    
  622   "BLD",1063 7,1,307,0)
  623   VISTA>
  624   "BLD",1063 7,1,308,0)
  625    
  626   "BLD",1063 7,1,309,0)
  627    
  628   "BLD",1063 7,1,310,0)
  629   Patch Back out Instru ctions:
  630   "BLD",1063 7,1,311,0)
  631   ---------- ---------- ------
  632   "BLD",1063 7,1,312,0)
  633   1.   Go to  MailMan m enu, choos e option R ead/Manage  Messages  and select  
  634   "BLD",1063 7,1,313,0)
  635        the b ackup mess age that w as creatin g during I nstallatio
  636   "BLD",1063 7,1,314,0)
  637        step  3.c - Back up
  638   "BLD",1063 7,1,315,0)
  639    
  640   "BLD",1063 7,1,316,0)
  641   2.   When  prompted ' Type <Ente r> to cont inue or '^ ' to exit: ' type '^'  
  642   "BLD",1063 7,1,317,0)
  643        and t hen <Enter >
  644   "BLD",1063 7,1,318,0)
  645    
  646   "BLD",1063 7,1,319,0)
  647   3.   When  prompted ' Enter mess age action :' type 'X tract Pack Man' and 
  648   "BLD",1063 7,1,320,0)
  649        then  <Enter>
  650   "BLD",1063 7,1,321,0)
  651    
  652   "BLD",1063 7,1,322,0)
  653   4.   The f ollowing m essage and  the promp t will dis play:
  654   "BLD",1063 7,1,323,0)
  655        Warni ng: Instal ling this  message wi ll cause a  permanent  update of  
  656   "BLD",1063 7,1,324,0)
  657        globa ls and rou tines.
  658   "BLD",1063 7,1,325,0)
  659        Do yo u really w ant to do  this? NO// ' type 'YE S' and the n <Enter>
  660   "BLD",1063 7,1,326,0)
  661    
  662   "BLD",1063 7,1,327,0)
  663   5.   When  prompted: 
  664   "BLD",1063 7,1,328,0)
  665        'Shal l I preser ve the rou tines on d isk in a s eparate ba ck-up 
  666   "BLD",1063 7,1,329,0)
  667        messa ge? 
  668   "BLD",1063 7,1,330,0)
  669        YES// ' type 'NO ' and then  <Enter>
  670   "BLD",1063 7,1,331,0)
  671    
  672   "BLD",1063 7,1,332,0)
  673   6.   The s ystem will  display t he followi ng message  and show  all the 
  674   "BLD",1063 7,1,333,0)
  675        routi nes that w ere unload ed confirm ing that a ll the rou tines in t he 
  676   "BLD",1063 7,1,334,0)
  677        build  have been  restored  to the pri or version  (unloaded ):
  678   "BLD",1063 7,1,335,0)
  679        'No b ackup mess age built.
  680   "BLD",1063 7,1,336,0)
  681        ***LI ST of rout ines from  backup. Se e full rou tine list  at the end  of 
  682   "BLD",1063 7,1,337,0)
  683           th e document ***
  684   "BLD",1063 7,1,338,0)
  685        Selec t PackMan  function:  and then < Enter>'
  686   "BLD",1063 7,1,339,0)
  687    
  688   "BLD",1063 7,1,340,0)
  689   7.   Verif y that all  two routi nes are li sted as ab ove have b een 
  690   "BLD",1063 7,1,341,0)
  691        backe d out:
  692   "BLD",1063 7,1,342,0)
  693        No ba ckup messa ge built.
  694   "BLD",1063 7,1,343,0)
  695        When  prompted ' Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO //'
  696   "BLD",1063 7,1,344,0)
  697        Press  <Enter>.
  698   "BLD",1063 7,1,345,0)
  699        When  prompted ' Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd 
  700   "BLD",1063 7,1,346,0)
  701        Proto cols? NO//
  702   "BLD",1063 7,1,347,0)
  703        Press  <Enter>.
  704   "BLD",1063 7,1,348,0)
  705        If pr ompted 'De lay Instal l (Minutes ):  (0 - 6 0): 0//' r espond 0.
  706   "BLD",1063 7,1,349,0)
  707    
  708   "BLD",1063 7,1,350,0)
  709   8.   There  are no gl obals that  are being  saved off  for this  patch to 
  710   "BLD",1063 7,1,351,0)
  711        resto re. All ot her object s should b e manually  backed ou t VA.  
  712   "BLD",1063 7,1,352,0)
  713    
  714   "BLD",1063 7,1,353,0)
  715   9.   Delet ing Files:
  716   "BLD",1063 7,1,354,0)
  717        The f ollowing V A FileMan  files shou ld be dele ted under  their 
  718   "BLD",1063 7,1,355,0)
  719        respe ctive grou ps. 
  720   "BLD",1063 7,1,356,0)
  721        To de lete the f ile, open  VA FileMan  for the f ile specif ied. 
  722   "BLD",1063 7,1,357,0)
  723        Look  for the na me and onc e selected  enter @ t o enter
  724   "BLD",1063 7,1,358,0)
  725        the d elete opti on.
  726   "BLD",1063 7,1,359,0)
  727    
  728   "BLD",1063 7,1,360,0)
  729   Example:
  730   "BLD",1063 7,1,361,0)
  731   VA FileMan  22.2
  732   "BLD",1063 7,1,362,0)
  733    
  734   "BLD",1063 7,1,363,0)
  735   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  736   "BLD",1063 7,1,364,0)
  737    
  738   "BLD",1063 7,1,365,0)
  739   Input to w hat File:  PROTOCOL//              (4498 en tries)
  740   "BLD",1063 7,1,366,0)
  741   EDIT WHICH  FIELD: AL L//
  742   "BLD",1063 7,1,367,0)
  743    
  744   "BLD",1063 7,1,368,0)
  745   Select PRO TOCOL NAME : ORMX ORM  HL7 TRIGG ER       O RMX ORM HL 7 TRIGGER
  746   "BLD",1063 7,1,369,0)
  747   NAME: ORMX  ORM HL7 T RIGGER// @
  748   "BLD",1063 7,1,370,0)
  749      SURE YO U WANT TO  DELETE THE  ENTIRE 'O RMX ORM HL 7 TRIGGER'  PROTOCOL?
  750   "BLD",1063 7,1,371,0)
  751    
  752   "BLD",1063 7,1,372,0)
  753   Protocol:
  754   "BLD",1063 7,1,373,0)
  755   ORMX ORM H L7 TRIGGER  
  756   "BLD",1063 7,1,374,0)
  757    
  758   "BLD",1063 7,1,375,0)
  759   10.  Modif ying files :
  760   "BLD",1063 7,1,376,0)
  761        The f ollowing f iles can b e updated  in VA File Man but th ey are 
  762   "BLD",1063 7,1,377,0)
  763        exist ing files.  
  764   "BLD",1063 7,1,378,0)
  765        They  should not  be delete d. Instead  reverting  them back  will 
  766   "BLD",1063 7,1,379,0)
  767        be th e correct  approach. 
  768   "BLD",1063 7,1,380,0)
  769    
  770   "BLD",1063 7,1,381,0)
  771   Example:
  772   "BLD",1063 7,1,382,0)
  773   VA FileMan  22.2
  774   "BLD",1063 7,1,383,0)
  775    
  776   "BLD",1063 7,1,384,0)
  777   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  778   "BLD",1063 7,1,385,0)
  779    
  780   "BLD",1063 7,1,386,0)
  781   Input to w hat File:  PROTOCOL//              (4498 en tries)
  782   "BLD",1063 7,1,387,0)
  783    
  784   "BLD",1063 7,1,388,0)
  785   EDIT WHICH  FIELD: AL L// item
  786   "BLD",1063 7,1,389,0)
  787        1   I TEM    (mu ltiple)
  788   "BLD",1063 7,1,390,0)
  789        2   I TEM TEXT
  790   "BLD",1063 7,1,391,0)
  791   CHOOSE 1-2 : 1  ITEM   (multiple )
  792   "BLD",1063 7,1,392,0)
  793      EDIT WH ICH ITEM S UB-FIELD:  ALL//
  794   "BLD",1063 7,1,393,0)
  795   THEN EDIT  FIELD:
  796   "BLD",1063 7,1,394,0)
  797     
  798   "BLD",1063 7,1,395,0)
  799   Select PRO TOCOL NAME : ORMX ORM  HL7 TRIGG ER          ORMX ORM  HL7 TRIGGE R
  800   "BLD",1063 7,1,396,0)
  801    
  802   "BLD",1063 7,1,397,0)
  803   Select ITE M: ORMX OR M HL7 TRIG GER//  ORM X ORM HL7  TRIGGER
  804   "BLD",1063 7,1,398,0)
  805            . ..OK? Yes/ /   (Yes)
  806   "BLD",1063 7,1,399,0)
  807    
  808   "BLD",1063 7,1,400,0)
  809     ITEM: OR MX ORM HL7  TRIGGER//  @
  810   "BLD",1063 7,1,401,0)
  811    
  812   "BLD",1063 7,1,402,0)
  813      SURE YO U WANT TO  DELETE THE  ENTIRE IT EM?
  814   "BLD",1063 7,1,403,0)
  815    
  816   "BLD",1063 7,1,404,0)
  817   Protocol:
  818   "BLD",1063 7,1,405,0)
  819   GMRC EVSEN D OR
  820   "BLD",1063 7,1,406,0)
  821   1.      Re move ORMX  ORM HL7 TR IGGER
  822   "BLD",1063 7,1,407,0)
  823    
  824   "BLD",1063 7,1,408,0)
  825    
  826   "BLD",1063 7,1,409,0)
  827   Post-Insta llation In structions :
  828   "BLD",1063 7,1,410,0)
  829   ---------- ---------- ---------- -
  830   "BLD",1063 7,1,411,0)
  831   See Techni cal Manual  for cross  reference /object co ntents ver ification
  832   "BLD",1063 7,1,412,0)
  833    
  834   "BLD",1063 7,1,413,0)
  835    
  836   "BLD",1063 7,1,414,0)
  837   Routine In formation:
  838   "BLD",1063 7,1,415,0)
  839   ========== ==========
  840   "BLD",1063 7,1,416,0)
  841    
  842   "BLD",1063 7,1,417,0)
  843   The second  line of e ach of the se routine s now look s like:
  844   "BLD",1063 7,1,418,0)
  845    ;;3.0;CON SULT/REQUE ST TRACKIN G;**[Patch  List]**;D EC 27, 199 7;Build 24
  846   "BLD",1063 7,1,419,0)
  847    
  848   "BLD",1063 7,1,420,0)
  849   The checks ums below  are new ch ecksums, a nd
  850   "BLD",1063 7,1,421,0)
  851    can be ch ecked with  CHECK1^XT SUMBLD.
  852   "BLD",1063 7,1,422,0)
  853    
  854   "BLD",1063 7,1,423,0)
  855    
  856   "BLD",1063 7,1,424,0)
  857   Routine Na me: GMRCAC MT
  858   "BLD",1063 7,1,425,0)
  859       Before : B2881986 7   After:  B29717425   
  860   "BLD",1063 7,1,426,0)
  861   **4,14,18, 20,22,29,3 5,47,55,75 ,95**
  862   "BLD",1063 7,1,427,0)
  863   Routine Na me: GMRCGU IB
  864   "BLD",1063 7,1,428,0)
  865       Before : B5389911 7   After:  B55018923   **4,12,1 8,20,17,22 ,29,30,35,
  866   "BLD",1063 7,1,429,0)
  867                                                  45,53,5 5,64,46,75 ,86,90,95* *
  868   "BLD",1063 7,1,430,0)
  869    
  870   "BLD",1063 7,1,431,0)
  871   Routine li st of prec eding patc hes: 90
  872   "BLD",1063 7,1,432,0)
  873    
  874   "BLD",1063 7,1,433,0)
  875   ========== ========== ========== ========== ========== ========== ========== ====
  876   "BLD",1063 7,1,434,0)
  877    
  878   "BLD",1063 7,1,435,0)
  879   User Infor mation:  
  880   "BLD",1063 7,1,436,0)
  881     Entered  By  :   NE EDHAM,MALC OLM      D ate Entere d  :   NOV  14,2017
  882   "BLD",1063 7,1,437,0)
  883     Complete d By:                          D ate Comple ted:   
  884   "BLD",1063 7,4,0)
  885   ^9.64PA^^
  886   "BLD",1063 7,6.3)
  887   31
  888   "BLD",1063 7,"ABPKG")
  889   n
  890   "BLD",1063 7,"KRN",0)
  891   ^9.67PA^77 9.2^20
  892   "BLD",1063 7,"KRN",.4 ,0)
  893   .4
  894   "BLD",1063 7,"KRN",.4 01,0)
  895   .401
  896   "BLD",1063 7,"KRN",.4 02,0)
  897   .402
  898   "BLD",1063 7,"KRN",.4 03,0)
  899   .403
  900   "BLD",1063 7,"KRN",.5 ,0)
  901   .5
  902   "BLD",1063 7,"KRN",.8 4,0)
  903   .84
  904   "BLD",1063 7,"KRN",3. 6,0)
  905   3.6
  906   "BLD",1063 7,"KRN",3. 8,0)
  907   3.8
  908   "BLD",1063 7,"KRN",9. 2,0)
  909   9.2
  910   "BLD",1063 7,"KRN",9. 8,0)
  911   9.8
  912   "BLD",1063 7,"KRN",9. 8,"NM",0)
  913   ^9.68A^2^2
  914   "BLD",1063 7,"KRN",9. 8,"NM",1,0 )
  915   GMRCACMT^^ 0^B2971742 5
  916   "BLD",1063 7,"KRN",9. 8,"NM",2,0 )
  917   GMRCGUIB^^ 0^B5501892 3
  918   "BLD",1063 7,"KRN",9. 8,"NM","B" ,"GMRCACMT ",1)
  919  
  920   "BLD",1063 7,"KRN",9. 8,"NM","B" ,"GMRCGUIB ",2)
  921  
  922   "BLD",1063 7,"KRN",19 ,0)
  923   19
  924   "BLD",1063 7,"KRN",19 .1,0)
  925   19.1
  926   "BLD",1063 7,"KRN",10 1,0)
  927   101
  928   "BLD",1063 7,"KRN",10 1,"NM",0)
  929   ^9.68A^2^2
  930   "BLD",1063 7,"KRN",10 1,"NM",1,0 )
  931   GMRC EVSEN D OR^^2
  932   "BLD",1063 7,"KRN",10 1,"NM",2,0 )
  933   ORMX ORM H L7 TRIGGER  - CONSULT S^^0
  934   "BLD",1063 7,"KRN",10 1,"NM","B" ,"GMRC EVS END OR",1)
  935  
  936   "BLD",1063 7,"KRN",10 1,"NM","B" ,"ORMX ORM  HL7 TRIGG ER - CONSU LTS",2)
  937  
  938   "BLD",1063 7,"KRN",40 9.61,0)
  939   409.61
  940   "BLD",1063 7,"KRN",77 1,0)
  941   771
  942   "BLD",1063 7,"KRN",77 9.2,0)
  943   779.2
  944   "BLD",1063 7,"KRN",87 0,0)
  945   870
  946   "BLD",1063 7,"KRN",89 89.51,0)
  947   8989.51
  948   "BLD",1063 7,"KRN",89 89.52,0)
  949   8989.52
  950   "BLD",1063 7,"KRN",89 94,0)
  951   8994
  952   "BLD",1063 7,"KRN","B ",.4,.4)
  953  
  954   "BLD",1063 7,"KRN","B ",.401,.40 1)
  955  
  956   "BLD",1063 7,"KRN","B ",.402,.40 2)
  957  
  958   "BLD",1063 7,"KRN","B ",.403,.40 3)
  959  
  960   "BLD",1063 7,"KRN","B ",.5,.5)
  961  
  962   "BLD",1063 7,"KRN","B ",.84,.84)
  963  
  964   "BLD",1063 7,"KRN","B ",3.6,3.6)
  965  
  966   "BLD",1063 7,"KRN","B ",3.8,3.8)
  967  
  968   "BLD",1063 7,"KRN","B ",9.2,9.2)
  969  
  970   "BLD",1063 7,"KRN","B ",9.8,9.8)
  971  
  972   "BLD",1063 7,"KRN","B ",19,19)
  973  
  974   "BLD",1063 7,"KRN","B ",19.1,19. 1)
  975  
  976   "BLD",1063 7,"KRN","B ",101,101)
  977  
  978   "BLD",1063 7,"KRN","B ",409.61,4 09.61)
  979  
  980   "BLD",1063 7,"KRN","B ",771,771)
  981  
  982   "BLD",1063 7,"KRN","B ",779.2,77 9.2)
  983  
  984   "BLD",1063 7,"KRN","B ",870,870)
  985  
  986   "BLD",1063 7,"KRN","B ",8989.51, 8989.51)
  987  
  988   "BLD",1063 7,"KRN","B ",8989.52, 8989.52)
  989  
  990   "BLD",1063 7,"KRN","B ",8994,899 4)
  991  
  992   "BLD",1063 7,"QDEF")
  993   ^^^^NO^^^^ NO^^NO
  994   "BLD",1063 7,"QUES",0 )
  995   ^9.62^^
  996   "BLD",1063 7,"REQB",0 )
  997   ^9.611^4^4
  998   "BLD",1063 7,"REQB",1 ,0)
  999   GMRC*3.0*5 5^2
  1000   "BLD",1063 7,"REQB",2 ,0)
  1001   DG*5.3*948 ^2
  1002   "BLD",1063 7,"REQB",3 ,0)
  1003   OR*3.0*470 ^2
  1004   "BLD",1063 7,"REQB",4 ,0)
  1005   SD*5.3*676 ^2
  1006   "BLD",1063 7,"REQB"," B","DG*5.3 *948",2)
  1007  
  1008   "BLD",1063 7,"REQB"," B","GMRC*3 .0*55",1)
  1009  
  1010   "BLD",1063 7,"REQB"," B","OR*3.0 *470",3)
  1011  
  1012   "BLD",1063 7,"REQB"," B","SD*5.3 *676",4)
  1013  
  1014   "KRN",101, 1982,-1)
  1015   2^1
  1016   "KRN",101, 1982,0)
  1017   GMRC EVSEN D OR^Consu lts event  sent to OE /RR^^X^145 ^^^^^^^44
  1018   "KRN",101, 1982,10,0)
  1019   ^101.01PA^ 6^6
  1020   "KRN",101, 1982,10,6, 0)
  1021   5012^^^
  1022   "KRN",101, 1982,10,6, "^")
  1023   ORMX ORM H L7 TRIGGER  - CONSULT S
  1024   "KRN",101, 5012,-1)
  1025   0^2
  1026   "KRN",101, 5012,0)
  1027   ORMX ORM H L7 TRIGGER  - CONSULT S^ORMX ORM  HL7 TRIGG ER - CONSU LTS^^A^^^^ ^^^^
  1028   "KRN",101, 5012,4)
  1029   ^^^24573
  1030   "KRN",101, 5012,20)
  1031   D TRGMRMSG ^ORMXTR
  1032   "KRN",101, 5012,99)
  1033   64667,3697 1
  1034   "MBREQ")
  1035   0
  1036   "ORD",15,1 01)
  1037   101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA
  1038   "ORD",15,1 01,0)
  1039   PROTOCOL
  1040   "PKG",44,- 1)
  1041   1^1
  1042   "PKG",44,0 )
  1043   CONSULT/RE QUEST TRAC KING^GMRC^ CONSULTS/R EQUESTS
  1044   "PKG",44,2 0,0)
  1045   ^9.402P^^
  1046   "PKG",44,2 2,0)
  1047   ^9.49I^1^1
  1048   "PKG",44,2 2,1,0)
  1049   3.0^305111 9^2990416^ 1
  1050   "PKG",44,2 2,1,"PAH", 1,0)
  1051   95^3180504
  1052   "PKG",44,2 2,1,"PAH", 1,1,0)
  1053   ^^437^437^ 3180504
  1054   "PKG",44,2 2,1,"PAH", 1,1,1,0)
  1055   Associated  patches:  (v)GMRC*3* 75   <<= m ust be ins talled BEF ORE 
  1056   "PKG",44,2 2,1,"PAH", 1,1,2,0)
  1057   `GMRC*3*95 '
  1058   "PKG",44,2 2,1,"PAH", 1,1,3,0)
  1059                         (v)GMRC*3* 90   <<= m ust be ins talled BEF ORE 
  1060   "PKG",44,2 2,1,"PAH", 1,1,4,0)
  1061   `GMRC*3*95 '
  1062   "PKG",44,2 2,1,"PAH", 1,1,5,0)
  1063                         (u)DG*5.3* 948  <<= m ust be ins talled BEF ORE 
  1064   "PKG",44,2 2,1,"PAH", 1,1,6,0)
  1065   `GMRC*3*95 '
  1066   "PKG",44,2 2,1,"PAH", 1,1,7,0)
  1067                         (u)SD*5.3* 676  <<= m ust be ins talled BEF ORE 
  1068   "PKG",44,2 2,1,"PAH", 1,1,8,0)
  1069   `GMRC*3*95 '
  1070   "PKG",44,2 2,1,"PAH", 1,1,9,0)
  1071                         (u)OR*3*47 0    <<= m ust be ins talled BEF ORE 
  1072   "PKG",44,2 2,1,"PAH", 1,1,10,0)
  1073   `GMRC*3*95 '
  1074   "PKG",44,2 2,1,"PAH", 1,1,11,0)
  1075                        
  1076   "PKG",44,2 2,1,"PAH", 1,1,12,0)
  1077    
  1078   "PKG",44,2 2,1,"PAH", 1,1,13,0)
  1079   Subject:   MASS EPIC  MODIFICATI ONS
  1080   "PKG",44,2 2,1,"PAH", 1,1,14,0)
  1081    
  1082   "PKG",44,2 2,1,"PAH", 1,1,15,0)
  1083   Category:   OTHER
  1084   "PKG",44,2 2,1,"PAH", 1,1,16,0)
  1085               ROUTINE
  1086   "PKG",44,2 2,1,"PAH", 1,1,17,0)
  1087               ENHANCEME NT
  1088   "PKG",44,2 2,1,"PAH", 1,1,18,0)
  1089    
  1090   "PKG",44,2 2,1,"PAH", 1,1,19,0)
  1091   The follow ing patche s must be  installed  in order f or a succe ssful 
  1092   "PKG",44,2 2,1,"PAH", 1,1,20,0)
  1093   instalatio n:
  1094   "PKG",44,2 2,1,"PAH", 1,1,21,0)
  1095               SD*5.3*67 6
  1096   "PKG",44,2 2,1,"PAH", 1,1,22,0)
  1097               DG*5.3*94 8
  1098   "PKG",44,2 2,1,"PAH", 1,1,23,0)
  1099               OR*3.0*47 0
  1100   "PKG",44,2 2,1,"PAH", 1,1,24,0)
  1101               GMRC*3.0* 95
  1102   "PKG",44,2 2,1,"PAH", 1,1,25,0)
  1103               DVBA*2.7* 202
  1104   "PKG",44,2 2,1,"PAH", 1,1,26,0)
  1105    
  1106   "PKG",44,2 2,1,"PAH", 1,1,27,0)
  1107   ---------- --
  1108   "PKG",44,2 2,1,"PAH", 1,1,28,0)
  1109   The CONSUL T/REQUEST  TRACKING G MRC*3.0*95  patch is  the initia l release  of 
  1110   "PKG",44,2 2,1,"PAH", 1,1,29,0)
  1111   the Medica l Appointm ent 
  1112   "PKG",44,2 2,1,"PAH", 1,1,30,0)
  1113   Scheduling  System (M ASS) sched uling inte gration de velopment  for the Vi stA 
  1114   "PKG",44,2 2,1,"PAH", 1,1,31,0)
  1115   Pilot at C olumbus, O H. This pa tch includ es all of  the necess ary 
  1116   "PKG",44,2 2,1,"PAH", 1,1,32,0)
  1117   components  that will  enable ou tgoing HL7  (Health L evel 7) v2
  1118   "PKG",44,2 2,1,"PAH", 1,1,33,0)
  1119   ORM (order  message)  ordering i ntegration  with MASS
  1120   "PKG",44,2 2,1,"PAH", 1,1,34,0)
  1121    
  1122   "PKG",44,2 2,1,"PAH", 1,1,35,0)
  1123    
  1124   "PKG",44,2 2,1,"PAH", 1,1,36,0)
  1125   Patch Comp onents:
  1126   "PKG",44,2 2,1,"PAH", 1,1,37,0)
  1127   ---------- ----------
  1128   "PKG",44,2 2,1,"PAH", 1,1,38,0)
  1129   N/A (Not A pplicable)
  1130   "PKG",44,2 2,1,"PAH", 1,1,39,0)
  1131    
  1132   "PKG",44,2 2,1,"PAH", 1,1,40,0)
  1133    
  1134   "PKG",44,2 2,1,"PAH", 1,1,41,0)
  1135    
  1136   "PKG",44,2 2,1,"PAH", 1,1,42,0)
  1137   Files & Fi elds Assoc iated:
  1138   "PKG",44,2 2,1,"PAH", 1,1,43,0)
  1139    
  1140   "PKG",44,2 2,1,"PAH", 1,1,44,0)
  1141   File Name  (Number)       Field  Name (Numb er)     Ne w/Modified /Deleted
  1142   "PKG",44,2 2,1,"PAH", 1,1,45,0)
  1143   ---------- --------       ------ ---------- ---     -- ---------- --------
  1144   "PKG",44,2 2,1,"PAH", 1,1,46,0)
  1145   None                      N/A                       N/ A
  1146   "PKG",44,2 2,1,"PAH", 1,1,47,0)
  1147    
  1148   "PKG",44,2 2,1,"PAH", 1,1,48,0)
  1149    
  1150   "PKG",44,2 2,1,"PAH", 1,1,49,0)
  1151   Forms Asso ciated:
  1152   "PKG",44,2 2,1,"PAH", 1,1,50,0)
  1153    
  1154   "PKG",44,2 2,1,"PAH", 1,1,51,0)
  1155   Form Name        File  #  New/Mo dified/Del eted
  1156   "PKG",44,2 2,1,"PAH", 1,1,52,0)
  1157   ---------        ---- --  ------ ---------- ----
  1158   "PKG",44,2 2,1,"PAH", 1,1,53,0)
  1159   None             N/A      N/A
  1160   "PKG",44,2 2,1,"PAH", 1,1,54,0)
  1161    
  1162   "PKG",44,2 2,1,"PAH", 1,1,55,0)
  1163    
  1164   "PKG",44,2 2,1,"PAH", 1,1,56,0)
  1165   Mail Group s Associat ed:
  1166   "PKG",44,2 2,1,"PAH", 1,1,57,0)
  1167    
  1168   "PKG",44,2 2,1,"PAH", 1,1,58,0)
  1169   Mail Group  Name New/ Modified/D eleted
  1170   "PKG",44,2 2,1,"PAH", 1,1,59,0)
  1171   ---------- ----- ---- ---------- ------
  1172   "PKG",44,2 2,1,"PAH", 1,1,60,0)
  1173   None             N/A
  1174   "PKG",44,2 2,1,"PAH", 1,1,61,0)
  1175    
  1176   "PKG",44,2 2,1,"PAH", 1,1,62,0)
  1177    
  1178   "PKG",44,2 2,1,"PAH", 1,1,63,0)
  1179   Options As sociated:
  1180   "PKG",44,2 2,1,"PAH", 1,1,64,0)
  1181    
  1182   "PKG",44,2 2,1,"PAH", 1,1,65,0)
  1183   Option Nam e     Type     New/Mo dified/Del eted
  1184   "PKG",44,2 2,1,"PAH", 1,1,66,0)
  1185   ---------- -     ----     ------ ---------- ---- 
  1186   "PKG",44,2 2,1,"PAH", 1,1,67,0)
  1187   None    N/ A     N/A
  1188   "PKG",44,2 2,1,"PAH", 1,1,68,0)
  1189    
  1190   "PKG",44,2 2,1,"PAH", 1,1,69,0)
  1191    
  1192   "PKG",44,2 2,1,"PAH", 1,1,70,0)
  1193   Protocols  Associated :
  1194   "PKG",44,2 2,1,"PAH", 1,1,71,0)
  1195    
  1196   "PKG",44,2 2,1,"PAH", 1,1,72,0)
  1197   Protocol N ame                       New/Mo dified/Del eted
  1198   "PKG",44,2 2,1,"PAH", 1,1,73,0)
  1199   ---------- ---                       ------ ---------- ---- 
  1200   "PKG",44,2 2,1,"PAH", 1,1,74,0)
  1201   GMRC EVSEN D OR                      MODIFI ED
  1202   "PKG",44,2 2,1,"PAH", 1,1,75,0)
  1203   ORMX ORM H L7 TRIGGER  - CONSULT S   NEW
  1204   "PKG",44,2 2,1,"PAH", 1,1,76,0)
  1205    
  1206   "PKG",44,2 2,1,"PAH", 1,1,77,0)
  1207    
  1208   "PKG",44,2 2,1,"PAH", 1,1,78,0)
  1209   Security K eys Associ ated:
  1210   "PKG",44,2 2,1,"PAH", 1,1,79,0)
  1211    
  1212   "PKG",44,2 2,1,"PAH", 1,1,80,0)
  1213   Security K ey Name
  1214   "PKG",44,2 2,1,"PAH", 1,1,81,0)
  1215   ---------- -------
  1216   "PKG",44,2 2,1,"PAH", 1,1,82,0)
  1217   N/A
  1218   "PKG",44,2 2,1,"PAH", 1,1,83,0)
  1219    
  1220   "PKG",44,2 2,1,"PAH", 1,1,84,0)
  1221    
  1222   "PKG",44,2 2,1,"PAH", 1,1,85,0)
  1223   Templates  Associated :
  1224   "PKG",44,2 2,1,"PAH", 1,1,86,0)
  1225    
  1226   "PKG",44,2 2,1,"PAH", 1,1,87,0)
  1227   Template N ame   Type     File N ame (Numbe r)  New/Mo dified/Del eted 
  1228   "PKG",44,2 2,1,"PAH", 1,1,88,0)
  1229   ---------- ---   ----     ------ ---------- --  ------ ---------- ----
  1230   "PKG",44,2 2,1,"PAH", 1,1,89,0)
  1231   None             N/A      N/A                   N/A
  1232   "PKG",44,2 2,1,"PAH", 1,1,90,0)
  1233    
  1234   "PKG",44,2 2,1,"PAH", 1,1,91,0)
  1235    
  1236   "PKG",44,2 2,1,"PAH", 1,1,92,0)
  1237   Additional  Informati on: N/A
  1238   "PKG",44,2 2,1,"PAH", 1,1,93,0)
  1239    
  1240   "PKG",44,2 2,1,"PAH", 1,1,94,0)
  1241    
  1242   "PKG",44,2 2,1,"PAH", 1,1,95,0)
  1243   New Servic e Requests  (NSRs):
  1244   "PKG",44,2 2,1,"PAH", 1,1,96,0)
  1245   ---------- ---------- --------  
  1246   "PKG",44,2 2,1,"PAH", 1,1,97,0)
  1247   N/A
  1248   "PKG",44,2 2,1,"PAH", 1,1,98,0)
  1249    
  1250   "PKG",44,2 2,1,"PAH", 1,1,99,0)
  1251    
  1252   "PKG",44,2 2,1,"PAH", 1,1,100,0)
  1253   Patient Sa fety Issue s (PSIs):
  1254   "PKG",44,2 2,1,"PAH", 1,1,101,0)
  1255   ---------- ---------- ---------
  1256   "PKG",44,2 2,1,"PAH", 1,1,102,0)
  1257   N/A
  1258   "PKG",44,2 2,1,"PAH", 1,1,103,0)
  1259    
  1260   "PKG",44,2 2,1,"PAH", 1,1,104,0)
  1261    
  1262   "PKG",44,2 2,1,"PAH", 1,1,105,0)
  1263   Defect Tra cking Syst em Ticket( s) & Overv iew:
  1264   "PKG",44,2 2,1,"PAH", 1,1,106,0)
  1265   ---------- ---------- ---------- ---------- ----
  1266   "PKG",44,2 2,1,"PAH", 1,1,107,0)
  1267   N/A
  1268   "PKG",44,2 2,1,"PAH", 1,1,108,0)
  1269    
  1270   "PKG",44,2 2,1,"PAH", 1,1,109,0)
  1271    
  1272   "PKG",44,2 2,1,"PAH", 1,1,110,0)
  1273   Problem:
  1274   "PKG",44,2 2,1,"PAH", 1,1,111,0)
  1275   -------
  1276   "PKG",44,2 2,1,"PAH", 1,1,112,0)
  1277   N/A
  1278   "PKG",44,2 2,1,"PAH", 1,1,113,0)
  1279    
  1280   "PKG",44,2 2,1,"PAH", 1,1,114,0)
  1281    
  1282   "PKG",44,2 2,1,"PAH", 1,1,115,0)
  1283   Resolution :
  1284   "PKG",44,2 2,1,"PAH", 1,1,116,0)
  1285   ----------
  1286   "PKG",44,2 2,1,"PAH", 1,1,117,0)
  1287   N/A
  1288   "PKG",44,2 2,1,"PAH", 1,1,118,0)
  1289    
  1290   "PKG",44,2 2,1,"PAH", 1,1,119,0)
  1291    
  1292   "PKG",44,2 2,1,"PAH", 1,1,120,0)
  1293   Test Sites :
  1294   "PKG",44,2 2,1,"PAH", 1,1,121,0)
  1295   ----------
  1296   "PKG",44,2 2,1,"PAH", 1,1,122,0)
  1297   1. EPIC DE VELOPMENT  ACCOUNT
  1298   "PKG",44,2 2,1,"PAH", 1,1,123,0)
  1299   2. VISTA D EVVFF DEVE LOPMENT AC COUNT
  1300   "PKG",44,2 2,1,"PAH", 1,1,124,0)
  1301   3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION)
  1302   "PKG",44,2 2,1,"PAH", 1,1,125,0)
  1303    
  1304   "PKG",44,2 2,1,"PAH", 1,1,126,0)
  1305   Software a nd Documen tation Ret rieval Ins tructions:
  1306   "PKG",44,2 2,1,"PAH", 1,1,127,0)
  1307   ---------- ---------- ---------- ---------- ---------- -- 
  1308   "PKG",44,2 2,1,"PAH", 1,1,128,0)
  1309   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  1310   "PKG",44,2 2,1,"PAH", 1,1,129,0)
  1311   the new fu nctionalit y introduc ed by this  patch are  available .
  1312   "PKG",44,2 2,1,"PAH", 1,1,130,0)
  1313    
  1314   "PKG",44,2 2,1,"PAH", 1,1,131,0)
  1315   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  1316   "PKG",44,2 2,1,"PAH", 1,1,132,0)
  1317   This trans mits the f iles from  the first  available  server. Si tes may 
  1318   "PKG",44,2 2,1,"PAH", 1,1,133,0)
  1319   also elect  to retrie ve files d irectly fr om a speci fic server
  1320   "PKG",44,2 2,1,"PAH", 1,1,134,0)
  1321    
  1322   "PKG",44,2 2,1,"PAH", 1,1,135,0)
  1323   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  1324   "PKG",44,2 2,1,"PAH", 1,1,136,0)
  1325   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  1326   "PKG",44,2 2,1,"PAH", 1,1,137,0)
  1327   directory  at the fol lowing 
  1328   "PKG",44,2 2,1,"PAH", 1,1,138,0)
  1329   OI Field O ffices:
  1330   "PKG",44,2 2,1,"PAH", 1,1,139,0)
  1331    
  1332   "PKG",44,2 2,1,"PAH", 1,1,140,0)
  1333   Hines:  DN S     .URL          
  1334   "PKG",44,2 2,1,"PAH", 1,1,141,0)
  1335   Salt Lake  City:        
. URL        
  1336   "PKG",44,2 2,1,"PAH", 1,1,142,0)
  1337    
  1338   "PKG",44,2 2,1,"PAH", 1,1,143,0)
  1339   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  1340   "PKG",44,2 2,1,"PAH", 1,1,144,0)
  1341   at:
  1342   "PKG",44,2 2,1,"PAH", 1,1,145,0)
  1343   http://www . DNS     /vdl/
  1344   "PKG",44,2 2,1,"PAH", 1,1,146,0)
  1345     
  1346   "PKG",44,2 2,1,"PAH", 1,1,147,0)
  1347   Title                             File Name                     F TP Mode
  1348   "PKG",44,2 2,1,"PAH", 1,1,148,0)
  1349   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  1350   "PKG",44,2 2,1,"PAH", 1,1,149,0)
  1351   MASS VistA  Technical  Manual     TBD                           B INARY
  1352   "PKG",44,2 2,1,"PAH", 1,1,150,0)
  1353    
  1354   "PKG",44,2 2,1,"PAH", 1,1,151,0)
  1355    
  1356   "PKG",44,2 2,1,"PAH", 1,1,152,0)
  1357   Patch Inst allation:
  1358   "PKG",44,2 2,1,"PAH", 1,1,153,0)
  1359    
  1360   "PKG",44,2 2,1,"PAH", 1,1,154,0)
  1361   Pre/Post I nstallatio n Overview :
  1362   "PKG",44,2 2,1,"PAH", 1,1,155,0)
  1363   ---------- ---------- ---------- -
  1364   "PKG",44,2 2,1,"PAH", 1,1,156,0)
  1365   See Techni cal Manual  for proje ct level i nstallatio n instruct ions.
  1366   "PKG",44,2 2,1,"PAH", 1,1,157,0)
  1367    
  1368   "PKG",44,2 2,1,"PAH", 1,1,158,0)
  1369   Pre-Instal lation Ins tructions:
  1370   "PKG",44,2 2,1,"PAH", 1,1,159,0)
  1371   ---------- ---------- ----------
  1372   "PKG",44,2 2,1,"PAH", 1,1,160,0)
  1373   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  1374   "PKG",44,2 2,1,"PAH", 1,1,161,0)
  1375   recommende d that it  be install ed during  non-peak h ours to mi nimize
  1376   "PKG",44,2 2,1,"PAH", 1,1,162,0)
  1377   potential  disruption  to users.   This pat ch should  take less  than 5 
  1378   "PKG",44,2 2,1,"PAH", 1,1,163,0)
  1379   minutes to  install.
  1380   "PKG",44,2 2,1,"PAH", 1,1,164,0)
  1381    
  1382   "PKG",44,2 2,1,"PAH", 1,1,165,0)
  1383   There are  no ListMan  Options t hat need t o be disab led for th is patch.
  1384   "PKG",44,2 2,1,"PAH", 1,1,166,0)
  1385    
  1386   "PKG",44,2 2,1,"PAH", 1,1,167,0)
  1387   Installati on Instruc tions:
  1388   "PKG",44,2 2,1,"PAH", 1,1,168,0)
  1389   ---------- ---------- ------
  1390   "PKG",44,2 2,1,"PAH", 1,1,169,0)
  1391    
  1392   "PKG",44,2 2,1,"PAH", 1,1,170,0)
  1393   1.  Choose  the PackM an message  containin g this pat ch.
  1394   "PKG",44,2 2,1,"PAH", 1,1,171,0)
  1395    
  1396   "PKG",44,2 2,1,"PAH", 1,1,172,0)
  1397   2.  Choose  the INSTA LL/CHECK M ESSAGE Pac kMan optio n. 
  1398   "PKG",44,2 2,1,"PAH", 1,1,173,0)
  1399    
  1400   "PKG",44,2 2,1,"PAH", 1,1,174,0)
  1401   3.  From t he Kernel  Installati on and Dis tribution  System Men u, select 
  1402   "PKG",44,2 2,1,"PAH", 1,1,175,0)
  1403       the In stallation  Menu (See  Install P rompts Sam ple below  for more 
  1404   "PKG",44,2 2,1,"PAH", 1,1,176,0)
  1405       detail ).  From t his menu,  you may el ect to use  the follo wing optio ns. 
  1406   "PKG",44,2 2,1,"PAH", 1,1,177,0)
  1407       When p rompted fo r the INST ALL NAME e nter the p atch #(ex.  XXX*X.X*X X):
  1408   "PKG",44,2 2,1,"PAH", 1,1,178,0)
  1409    
  1410   "PKG",44,2 2,1,"PAH", 1,1,179,0)
  1411       a.  Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  1412   "PKG",44,2 2,1,"PAH", 1,1,180,0)
  1413           me ssage of a ny routine s exported  with this  patch. It  will not 
  1414   "PKG",44,2 2,1,"PAH", 1,1,181,0)
  1415           ba ckup any o ther chang es such as  DDs or te mplates.
  1416   "PKG",44,2 2,1,"PAH", 1,1,182,0)
  1417    
  1418   "PKG",44,2 2,1,"PAH", 1,1,183,0)
  1419       b.  Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  1420   "PKG",44,2 2,1,"PAH", 1,1,184,0)
  1421           (a llow you t o view all  changes t hat will b e made whe n this 
  1422   "PKG",44,2 2,1,"PAH", 1,1,185,0)
  1423           pa tch is ins talled.)        
  1424   "PKG",44,2 2,1,"PAH", 1,1,186,0)
  1425           It  compares  all compon ents of th is patch r outines, 
  1426   "PKG",44,2 2,1,"PAH", 1,1,187,0)
  1427           DD s, templat es, etc.
  1428   "PKG",44,2 2,1,"PAH", 1,1,188,0)
  1429    
  1430   "PKG",44,2 2,1,"PAH", 1,1,189,0)
  1431       c.  Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  1432   "PKG",44,2 2,1,"PAH", 1,1,190,0)
  1433           to  ensure th e integrit y of the r outines th at are in  the transp ort 
  1434   "PKG",44,2 2,1,"PAH", 1,1,191,0)
  1435           gl obal.
  1436   "PKG",44,2 2,1,"PAH", 1,1,192,0)
  1437    
  1438   "PKG",44,2 2,1,"PAH", 1,1,193,0)
  1439   4.  From t he Install ation Menu , select t he Install  Package(s ) option 
  1440   "PKG",44,2 2,1,"PAH", 1,1,194,0)
  1441       and ch oose the p atch to in stall.
  1442   "PKG",44,2 2,1,"PAH", 1,1,195,0)
  1443    
  1444   "PKG",44,2 2,1,"PAH", 1,1,196,0)
  1445   5.  When p rompted 'W ant KIDS t o Rebuild  Menu Trees  Upon Comp letion of 
  1446   "PKG",44,2 2,1,"PAH", 1,1,197,0)
  1447       Instal l? NO//' 
  1448   "PKG",44,2 2,1,"PAH", 1,1,198,0)
  1449    
  1450   "PKG",44,2 2,1,"PAH", 1,1,199,0)
  1451   6.  When p rompted 'W ant KIDS t o INHIBIT  LOGONs dur ing the in stall? NO/ /'
  1452   "PKG",44,2 2,1,"PAH", 1,1,200,0)
  1453    
  1454   "PKG",44,2 2,1,"PAH", 1,1,201,0)
  1455   7.  When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, 
  1456   "PKG",44,2 2,1,"PAH", 1,1,202,0)
  1457       and Pr otocols? N O//' 
  1458   "PKG",44,2 2,1,"PAH", 1,1,203,0)
  1459    
  1460   "PKG",44,2 2,1,"PAH", 1,1,204,0)
  1461   8.  If pro mpted 'Del ay Install  (Minutes) :  (0 - 60 ): 0//' re spond 0.
  1462   "PKG",44,2 2,1,"PAH", 1,1,205,0)
  1463    
  1464   "PKG",44,2 2,1,"PAH", 1,1,206,0)
  1465    
  1466   "PKG",44,2 2,1,"PAH", 1,1,207,0)
  1467   Install Pr ompts Samp le:
  1468   "PKG",44,2 2,1,"PAH", 1,1,208,0)
  1469   ---------- ---------- ------
  1470   "PKG",44,2 2,1,"PAH", 1,1,209,0)
  1471    
  1472   "PKG",44,2 2,1,"PAH", 1,1,210,0)
  1473   VISTA>D ^X UP
  1474   "PKG",44,2 2,1,"PAH", 1,1,211,0)
  1475    
  1476   "PKG",44,2 2,1,"PAH", 1,1,212,0)
  1477   Setting up  programme r environm ent
  1478   "PKG",44,2 2,1,"PAH", 1,1,213,0)
  1479   This is a  TEST accou nt.
  1480   "PKG",44,2 2,1,"PAH", 1,1,214,0)
  1481    
  1482   "PKG",44,2 2,1,"PAH", 1,1,215,0)
  1483   Terminal T ype set to : C-VT100
  1484   "PKG",44,2 2,1,"PAH", 1,1,216,0)
  1485    
  1486   "PKG",44,2 2,1,"PAH", 1,1,217,0)
  1487   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  1488   "PKG",44,2 2,1,"PAH", 1,1,218,0)
  1489   Load a Dis tribution
  1490   "PKG",44,2 2,1,"PAH", 1,1,219,0)
  1491   Enter a Ho st File: G MRC_3_0_95 .KID
  1492   "PKG",44,2 2,1,"PAH", 1,1,220,0)
  1493    
  1494   "PKG",44,2 2,1,"PAH", 1,1,221,0)
  1495   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:30:10
  1496   "PKG",44,2 2,1,"PAH", 1,1,222,0)
  1497   Comment: G MRC*3.0*95
  1498   "PKG",44,2 2,1,"PAH", 1,1,223,0)
  1499    
  1500   "PKG",44,2 2,1,"PAH", 1,1,224,0)
  1501   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  1502   "PKG",44,2 2,1,"PAH", 1,1,225,0)
  1503   Build GMRC *3.0*95 ha s been loa ded before , here is  when: 
  1504   "PKG",44,2 2,1,"PAH", 1,1,226,0)
  1505         GMRC *3.0*95    Install Co mpleted
  1506   "PKG",44,2 2,1,"PAH", 1,1,227,0)
  1507                         was loaded  on Nov 15 , 2017@00: 13:28
  1508   "PKG",44,2 2,1,"PAH", 1,1,228,0)
  1509         GMRC *3.0*95    Install Co mpleted
  1510   "PKG",44,2 2,1,"PAH", 1,1,229,0)
  1511                         was loaded  on Nov 20 , 2017@14: 59:53
  1512   "PKG",44,2 2,1,"PAH", 1,1,230,0)
  1513         GMRC *3.0*95    Install Co mpleted
  1514   "PKG",44,2 2,1,"PAH", 1,1,231,0)
  1515                         was loaded  on Nov 21 , 2017@15: 39:21
  1516   "PKG",44,2 2,1,"PAH", 1,1,232,0)
  1517         GMRC *3.0*95    Install Co mpleted
  1518   "PKG",44,2 2,1,"PAH", 1,1,233,0)
  1519                         was loaded  on Dec 05 , 2017@16: 16:01
  1520   "PKG",44,2 2,1,"PAH", 1,1,234,0)
  1521   OK to cont inue with  Load? NO//  YES
  1522   "PKG",44,2 2,1,"PAH", 1,1,235,0)
  1523    
  1524   "PKG",44,2 2,1,"PAH", 1,1,236,0)
  1525   Distributi on OK!
  1526   "PKG",44,2 2,1,"PAH", 1,1,237,0)
  1527    
  1528   "PKG",44,2 2,1,"PAH", 1,1,238,0)
  1529   Want to Co ntinue wit h Load? YE S// 
  1530   "PKG",44,2 2,1,"PAH", 1,1,239,0)
  1531   Loading Di stribution ...
  1532   "PKG",44,2 2,1,"PAH", 1,1,240,0)
  1533    
  1534   "PKG",44,2 2,1,"PAH", 1,1,241,0)
  1535      GMRC*3. 0*95
  1536   "PKG",44,2 2,1,"PAH", 1,1,242,0)
  1537   Use INSTAL L NAME: GM RC*3.0*95  to install  this Dist ribution.
  1538   "PKG",44,2 2,1,"PAH", 1,1,243,0)
  1539    
  1540   "PKG",44,2 2,1,"PAH", 1,1,244,0)
  1541   VISTA>D ^X UP
  1542   "PKG",44,2 2,1,"PAH", 1,1,245,0)
  1543    
  1544   "PKG",44,2 2,1,"PAH", 1,1,246,0)
  1545   Setting up  programme r environm ent
  1546   "PKG",44,2 2,1,"PAH", 1,1,247,0)
  1547   This is a  TEST accou nt.
  1548   "PKG",44,2 2,1,"PAH", 1,1,248,0)
  1549    
  1550   "PKG",44,2 2,1,"PAH", 1,1,249,0)
  1551   Terminal T ype set to : C-VT100
  1552   "PKG",44,2 2,1,"PAH", 1,1,250,0)
  1553    
  1554   "PKG",44,2 2,1,"PAH", 1,1,251,0)
  1555   Select OPT ION NAME:  XPD INS
  1556   "PKG",44,2 2,1,"PAH", 1,1,252,0)
  1557        1   X PD INSTALL  BUILD        Install  Package(s )
  1558   "PKG",44,2 2,1,"PAH", 1,1,253,0)
  1559        2   X PD INSTALL ATION MENU        Ins tallation
  1560   "PKG",44,2 2,1,"PAH", 1,1,254,0)
  1561   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  1562   "PKG",44,2 2,1,"PAH", 1,1,255,0)
  1563   Install Pa ckage(s)
  1564   "PKG",44,2 2,1,"PAH", 1,1,256,0)
  1565   Select INS TALL NAME:     GMRC*3 .0*95      Loaded fro m Distribu tion    
  1566   "PKG",44,2 2,1,"PAH", 1,1,257,0)
  1567   12/12/17@2 3:48:08
  1568   "PKG",44,2 2,1,"PAH", 1,1,258,0)
  1569        => GM RC*3.0*95   ;Created  on Dec 11,  2017@17:3 0:10
  1570   "PKG",44,2 2,1,"PAH", 1,1,259,0)
  1571    
  1572   "PKG",44,2 2,1,"PAH", 1,1,260,0)
  1573   This Distr ibution wa s loaded o n Dec 12,  2017@23:48 :08 with h eader of 
  1574   "PKG",44,2 2,1,"PAH", 1,1,261,0)
  1575      GMRC*3. 0*95  ;Cre ated on De c 11, 2017 @17:30:10
  1576   "PKG",44,2 2,1,"PAH", 1,1,262,0)
  1577      It cons isted of t he followi ng Install (s):
  1578   "PKG",44,2 2,1,"PAH", 1,1,263,0)
  1579       GMRC*3 .0*95
  1580   "PKG",44,2 2,1,"PAH", 1,1,264,0)
  1581   Checking I nstall for  Package G MRC*3.0*95
  1582   "PKG",44,2 2,1,"PAH", 1,1,265,0)
  1583    
  1584   "PKG",44,2 2,1,"PAH", 1,1,266,0)
  1585   Install Qu estions fo r GMRC*3.0 *95
  1586   "PKG",44,2 2,1,"PAH", 1,1,267,0)
  1587    
  1588   "PKG",44,2 2,1,"PAH", 1,1,268,0)
  1589   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  1590   "PKG",44,2 2,1,"PAH", 1,1,269,0)
  1591    
  1592   "PKG",44,2 2,1,"PAH", 1,1,270,0)
  1593   Press RETU RN to cont inue or '^ ' to stop 
  1594   "PKG",44,2 2,1,"PAH", 1,1,271,0)
  1595    
  1596   "PKG",44,2 2,1,"PAH", 1,1,272,0)
  1597   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  1598   "PKG",44,2 2,1,"PAH", 1,1,273,0)
  1599    
  1600   "PKG",44,2 2,1,"PAH", 1,1,274,0)
  1601   Enter the  Device you  want to p rint the I nstall mes sages.
  1602   "PKG",44,2 2,1,"PAH", 1,1,275,0)
  1603   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  1604   "PKG",44,2 2,1,"PAH", 1,1,276,0)
  1605   Enter a '^ ' to abort  the insta ll.
  1606   "PKG",44,2 2,1,"PAH", 1,1,277,0)
  1607    
  1608   "PKG",44,2 2,1,"PAH", 1,1,278,0)
  1609   DEVICE: HO ME//   CON SOLE
  1610   "PKG",44,2 2,1,"PAH", 1,1,279,0)
  1611    
  1612   "PKG",44,2 2,1,"PAH", 1,1,280,0)
  1613    Install S tarted for  GMRC*3.0* 95 : 
  1614   "PKG",44,2 2,1,"PAH", 1,1,281,0)
  1615                   Dec 1 2, 2017@23 :48:17
  1616   "PKG",44,2 2,1,"PAH", 1,1,282,0)
  1617    
  1618   "PKG",44,2 2,1,"PAH", 1,1,283,0)
  1619   Build Dist ribution D ate: Dec 1 1, 2017
  1620   "PKG",44,2 2,1,"PAH", 1,1,284,0)
  1621    
  1622   "PKG",44,2 2,1,"PAH", 1,1,285,0)
  1623    Installin g Routines :
  1624   "PKG",44,2 2,1,"PAH", 1,1,286,0)
  1625    
  1626   "PKG",44,2 2,1,"PAH", 1,1,287,0)
  1627                    Dec  12, 2017@2 3:48:17
  1628   "PKG",44,2 2,1,"PAH", 1,1,288,0)
  1629    
  1630   "PKG",44,2 2,1,"PAH", 1,1,289,0)
  1631    Installin g PACKAGE  COMPONENTS
  1632   "PKG",44,2 2,1,"PAH", 1,1,290,0)
  1633    
  1634   "PKG",44,2 2,1,"PAH", 1,1,291,0)
  1635    Installin g PROTOCOL
  1636   "PKG",44,2 2,1,"PAH", 1,1,292,0)
  1637                    Dec  12, 2017@2 3:48:17
  1638   "PKG",44,2 2,1,"PAH", 1,1,293,0)
  1639    
  1640   "PKG",44,2 2,1,"PAH", 1,1,294,0)
  1641    Updating  Routine fi le...
  1642   "PKG",44,2 2,1,"PAH", 1,1,295,0)
  1643    
  1644   "PKG",44,2 2,1,"PAH", 1,1,296,0)
  1645    Updating  KIDS files ...
  1646   "PKG",44,2 2,1,"PAH", 1,1,297,0)
  1647    
  1648   "PKG",44,2 2,1,"PAH", 1,1,298,0)
  1649    GMRC*3.0* 95 Install ed. 
  1650   "PKG",44,2 2,1,"PAH", 1,1,299,0)
  1651                   Dec 1 2, 2017@23 :48:17
  1652   "PKG",44,2 2,1,"PAH", 1,1,300,0)
  1653    
  1654   "PKG",44,2 2,1,"PAH", 1,1,301,0)
  1655    No link t o PACKAGE  file
  1656   "PKG",44,2 2,1,"PAH", 1,1,302,0)
  1657    
  1658   "PKG",44,2 2,1,"PAH", 1,1,303,0)
  1659    NO Instal l Message  sent 
  1660   "PKG",44,2 2,1,"PAH", 1,1,304,0)
  1661    
  1662   "PKG",44,2 2,1,"PAH", 1,1,305,0)
  1663   Install Co mpleted
  1664   "PKG",44,2 2,1,"PAH", 1,1,306,0)
  1665    
  1666   "PKG",44,2 2,1,"PAH", 1,1,307,0)
  1667   VISTA>
  1668   "PKG",44,2 2,1,"PAH", 1,1,308,0)
  1669    
  1670   "PKG",44,2 2,1,"PAH", 1,1,309,0)
  1671    
  1672   "PKG",44,2 2,1,"PAH", 1,1,310,0)
  1673   Patch Back out Instru ctions:
  1674   "PKG",44,2 2,1,"PAH", 1,1,311,0)
  1675   ---------- ---------- ------
  1676   "PKG",44,2 2,1,"PAH", 1,1,312,0)
  1677   1.   Go to  MailMan m enu, choos e option R ead/Manage  Messages  and select  
  1678   "PKG",44,2 2,1,"PAH", 1,1,313,0)
  1679        the b ackup mess age that w as creatin g during I nstallatio
  1680   "PKG",44,2 2,1,"PAH", 1,1,314,0)
  1681        step  3.c - Back up
  1682   "PKG",44,2 2,1,"PAH", 1,1,315,0)
  1683    
  1684   "PKG",44,2 2,1,"PAH", 1,1,316,0)
  1685   2.   When  prompted ' Type <Ente r> to cont inue or '^ ' to exit: ' type '^'  
  1686   "PKG",44,2 2,1,"PAH", 1,1,317,0)
  1687        and t hen <Enter >
  1688   "PKG",44,2 2,1,"PAH", 1,1,318,0)
  1689    
  1690   "PKG",44,2 2,1,"PAH", 1,1,319,0)
  1691   3.   When  prompted ' Enter mess age action :' type 'X tract Pack Man' and 
  1692   "PKG",44,2 2,1,"PAH", 1,1,320,0)
  1693        then  <Enter>
  1694   "PKG",44,2 2,1,"PAH", 1,1,321,0)
  1695    
  1696   "PKG",44,2 2,1,"PAH", 1,1,322,0)
  1697   4.   The f ollowing m essage and  the promp t will dis play:
  1698   "PKG",44,2 2,1,"PAH", 1,1,323,0)
  1699        Warni ng: Instal ling this  message wi ll cause a  permanent  update of  
  1700   "PKG",44,2 2,1,"PAH", 1,1,324,0)
  1701        globa ls and rou tines.
  1702   "PKG",44,2 2,1,"PAH", 1,1,325,0)
  1703        Do yo u really w ant to do  this? NO// ' type 'YE S' and the n <Enter>
  1704   "PKG",44,2 2,1,"PAH", 1,1,326,0)
  1705    
  1706   "PKG",44,2 2,1,"PAH", 1,1,327,0)
  1707   5.   When  prompted: 
  1708   "PKG",44,2 2,1,"PAH", 1,1,328,0)
  1709        'Shal l I preser ve the rou tines on d isk in a s eparate ba ck-up 
  1710   "PKG",44,2 2,1,"PAH", 1,1,329,0)
  1711        messa ge? 
  1712   "PKG",44,2 2,1,"PAH", 1,1,330,0)
  1713        YES// ' type 'NO ' and then  <Enter>
  1714   "PKG",44,2 2,1,"PAH", 1,1,331,0)
  1715    
  1716   "PKG",44,2 2,1,"PAH", 1,1,332,0)
  1717   6.   The s ystem will  display t he followi ng message  and show  all the 
  1718   "PKG",44,2 2,1,"PAH", 1,1,333,0)
  1719        routi nes that w ere unload ed confirm ing that a ll the rou tines in t he 
  1720   "PKG",44,2 2,1,"PAH", 1,1,334,0)
  1721        build  have been  restored  to the pri or version  (unloaded ):
  1722   "PKG",44,2 2,1,"PAH", 1,1,335,0)
  1723        'No b ackup mess age built.
  1724   "PKG",44,2 2,1,"PAH", 1,1,336,0)
  1725        ***LI ST of rout ines from  backup. Se e full rou tine list  at the end  of 
  1726   "PKG",44,2 2,1,"PAH", 1,1,337,0)
  1727           th e document ***
  1728   "PKG",44,2 2,1,"PAH", 1,1,338,0)
  1729        Selec t PackMan  function:  and then < Enter>'
  1730   "PKG",44,2 2,1,"PAH", 1,1,339,0)
  1731    
  1732   "PKG",44,2 2,1,"PAH", 1,1,340,0)
  1733   7.   Verif y that all  two routi nes are li sted as ab ove have b een 
  1734   "PKG",44,2 2,1,"PAH", 1,1,341,0)
  1735        backe d out:
  1736   "PKG",44,2 2,1,"PAH", 1,1,342,0)
  1737        No ba ckup messa ge built.
  1738   "PKG",44,2 2,1,"PAH", 1,1,343,0)
  1739        When  prompted ' Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO //'
  1740   "PKG",44,2 2,1,"PAH", 1,1,344,0)
  1741        Press  <Enter>.
  1742   "PKG",44,2 2,1,"PAH", 1,1,345,0)
  1743        When  prompted ' Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd 
  1744   "PKG",44,2 2,1,"PAH", 1,1,346,0)
  1745        Proto cols? NO//
  1746   "PKG",44,2 2,1,"PAH", 1,1,347,0)
  1747        Press  <Enter>.
  1748   "PKG",44,2 2,1,"PAH", 1,1,348,0)
  1749        If pr ompted 'De lay Instal l (Minutes ):  (0 - 6 0): 0//' r espond 0.
  1750   "PKG",44,2 2,1,"PAH", 1,1,349,0)
  1751    
  1752   "PKG",44,2 2,1,"PAH", 1,1,350,0)
  1753   8.   There  are no gl obals that  are being  saved off  for this  patch to 
  1754   "PKG",44,2 2,1,"PAH", 1,1,351,0)
  1755        resto re. All ot her object s should b e manually  backed ou t VA.  
  1756   "PKG",44,2 2,1,"PAH", 1,1,352,0)
  1757    
  1758   "PKG",44,2 2,1,"PAH", 1,1,353,0)
  1759   9.   Delet ing Files:
  1760   "PKG",44,2 2,1,"PAH", 1,1,354,0)
  1761        The f ollowing V A FileMan  files shou ld be dele ted under  their 
  1762   "PKG",44,2 2,1,"PAH", 1,1,355,0)
  1763        respe ctive grou ps. 
  1764   "PKG",44,2 2,1,"PAH", 1,1,356,0)
  1765        To de lete the f ile, open  VA FileMan  for the f ile specif ied. 
  1766   "PKG",44,2 2,1,"PAH", 1,1,357,0)
  1767        Look  for the na me and onc e selected  enter @ t o enter
  1768   "PKG",44,2 2,1,"PAH", 1,1,358,0)
  1769        the d elete opti on.
  1770   "PKG",44,2 2,1,"PAH", 1,1,359,0)
  1771    
  1772   "PKG",44,2 2,1,"PAH", 1,1,360,0)
  1773   Example:
  1774   "PKG",44,2 2,1,"PAH", 1,1,361,0)
  1775   VA FileMan  22.2
  1776   "PKG",44,2 2,1,"PAH", 1,1,362,0)
  1777    
  1778   "PKG",44,2 2,1,"PAH", 1,1,363,0)
  1779   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  1780   "PKG",44,2 2,1,"PAH", 1,1,364,0)
  1781    
  1782   "PKG",44,2 2,1,"PAH", 1,1,365,0)
  1783   Input to w hat File:  PROTOCOL//              (4498 en tries)
  1784   "PKG",44,2 2,1,"PAH", 1,1,366,0)
  1785   EDIT WHICH  FIELD: AL L//
  1786   "PKG",44,2 2,1,"PAH", 1,1,367,0)
  1787    
  1788   "PKG",44,2 2,1,"PAH", 1,1,368,0)
  1789   Select PRO TOCOL NAME : ORMX ORM  HL7 TRIGG ER       O RMX ORM HL 7 TRIGGER
  1790   "PKG",44,2 2,1,"PAH", 1,1,369,0)
  1791   NAME: ORMX  ORM HL7 T RIGGER// @
  1792   "PKG",44,2 2,1,"PAH", 1,1,370,0)
  1793      SURE YO U WANT TO  DELETE THE  ENTIRE 'O RMX ORM HL 7 TRIGGER'  PROTOCOL?
  1794   "PKG",44,2 2,1,"PAH", 1,1,371,0)
  1795    
  1796   "PKG",44,2 2,1,"PAH", 1,1,372,0)
  1797   Protocol:
  1798   "PKG",44,2 2,1,"PAH", 1,1,373,0)
  1799   ORMX ORM H L7 TRIGGER  
  1800   "PKG",44,2 2,1,"PAH", 1,1,374,0)
  1801    
  1802   "PKG",44,2 2,1,"PAH", 1,1,375,0)
  1803   10.  Modif ying files :
  1804   "PKG",44,2 2,1,"PAH", 1,1,376,0)
  1805        The f ollowing f iles can b e updated  in VA File Man but th ey are 
  1806   "PKG",44,2 2,1,"PAH", 1,1,377,0)
  1807        exist ing files.  
  1808   "PKG",44,2 2,1,"PAH", 1,1,378,0)
  1809        They  should not  be delete d. Instead  reverting  them back  will 
  1810   "PKG",44,2 2,1,"PAH", 1,1,379,0)
  1811        be th e correct  approach. 
  1812   "PKG",44,2 2,1,"PAH", 1,1,380,0)
  1813    
  1814   "PKG",44,2 2,1,"PAH", 1,1,381,0)
  1815   Example:
  1816   "PKG",44,2 2,1,"PAH", 1,1,382,0)
  1817   VA FileMan  22.2
  1818   "PKG",44,2 2,1,"PAH", 1,1,383,0)
  1819    
  1820   "PKG",44,2 2,1,"PAH", 1,1,384,0)
  1821   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  1822   "PKG",44,2 2,1,"PAH", 1,1,385,0)
  1823    
  1824   "PKG",44,2 2,1,"PAH", 1,1,386,0)
  1825   Input to w hat File:  PROTOCOL//              (4498 en tries)
  1826   "PKG",44,2 2,1,"PAH", 1,1,387,0)
  1827    
  1828   "PKG",44,2 2,1,"PAH", 1,1,388,0)
  1829   EDIT WHICH  FIELD: AL L// item
  1830   "PKG",44,2 2,1,"PAH", 1,1,389,0)
  1831        1   I TEM    (mu ltiple)
  1832   "PKG",44,2 2,1,"PAH", 1,1,390,0)
  1833        2   I TEM TEXT
  1834   "PKG",44,2 2,1,"PAH", 1,1,391,0)
  1835   CHOOSE 1-2 : 1  ITEM   (multiple )
  1836   "PKG",44,2 2,1,"PAH", 1,1,392,0)
  1837      EDIT WH ICH ITEM S UB-FIELD:  ALL//
  1838   "PKG",44,2 2,1,"PAH", 1,1,393,0)
  1839   THEN EDIT  FIELD:
  1840   "PKG",44,2 2,1,"PAH", 1,1,394,0)
  1841     
  1842   "PKG",44,2 2,1,"PAH", 1,1,395,0)
  1843   Select PRO TOCOL NAME : ORMX ORM  HL7 TRIGG ER          ORMX ORM  HL7 TRIGGE R
  1844   "PKG",44,2 2,1,"PAH", 1,1,396,0)
  1845    
  1846   "PKG",44,2 2,1,"PAH", 1,1,397,0)
  1847   Select ITE M: ORMX OR M HL7 TRIG GER//  ORM X ORM HL7  TRIGGER
  1848   "PKG",44,2 2,1,"PAH", 1,1,398,0)
  1849            . ..OK? Yes/ /   (Yes)
  1850   "PKG",44,2 2,1,"PAH", 1,1,399,0)
  1851    
  1852   "PKG",44,2 2,1,"PAH", 1,1,400,0)
  1853     ITEM: OR MX ORM HL7  TRIGGER//  @
  1854   "PKG",44,2 2,1,"PAH", 1,1,401,0)
  1855    
  1856   "PKG",44,2 2,1,"PAH", 1,1,402,0)
  1857      SURE YO U WANT TO  DELETE THE  ENTIRE IT EM?
  1858   "PKG",44,2 2,1,"PAH", 1,1,403,0)
  1859    
  1860   "PKG",44,2 2,1,"PAH", 1,1,404,0)
  1861   Protocol:
  1862   "PKG",44,2 2,1,"PAH", 1,1,405,0)
  1863   GMRC EVSEN D OR
  1864   "PKG",44,2 2,1,"PAH", 1,1,406,0)
  1865   1.      Re move ORMX  ORM HL7 TR IGGER
  1866   "PKG",44,2 2,1,"PAH", 1,1,407,0)
  1867    
  1868   "PKG",44,2 2,1,"PAH", 1,1,408,0)
  1869    
  1870   "PKG",44,2 2,1,"PAH", 1,1,409,0)
  1871   Post-Insta llation In structions :
  1872   "PKG",44,2 2,1,"PAH", 1,1,410,0)
  1873   ---------- ---------- ---------- -
  1874   "PKG",44,2 2,1,"PAH", 1,1,411,0)
  1875   See Techni cal Manual  for cross  reference /object co ntents ver ification
  1876   "PKG",44,2 2,1,"PAH", 1,1,412,0)
  1877    
  1878   "PKG",44,2 2,1,"PAH", 1,1,413,0)
  1879    
  1880   "PKG",44,2 2,1,"PAH", 1,1,414,0)
  1881   Routine In formation:
  1882   "PKG",44,2 2,1,"PAH", 1,1,415,0)
  1883   ========== ==========
  1884   "PKG",44,2 2,1,"PAH", 1,1,416,0)
  1885    
  1886   "PKG",44,2 2,1,"PAH", 1,1,417,0)
  1887   The second  line of e ach of the se routine s now look s like:
  1888   "PKG",44,2 2,1,"PAH", 1,1,418,0)
  1889    ;;3.0;CON SULT/REQUE ST TRACKIN G;**[Patch  List]**;D EC 27, 199 7;Build 24
  1890   "PKG",44,2 2,1,"PAH", 1,1,419,0)
  1891    
  1892   "PKG",44,2 2,1,"PAH", 1,1,420,0)
  1893   The checks ums below  are new ch ecksums, a nd
  1894   "PKG",44,2 2,1,"PAH", 1,1,421,0)
  1895    can be ch ecked with  CHECK1^XT SUMBLD.
  1896   "PKG",44,2 2,1,"PAH", 1,1,422,0)
  1897    
  1898   "PKG",44,2 2,1,"PAH", 1,1,423,0)
  1899    
  1900   "PKG",44,2 2,1,"PAH", 1,1,424,0)
  1901   Routine Na me: GMRCAC MT
  1902   "PKG",44,2 2,1,"PAH", 1,1,425,0)
  1903       Before : B2881986 7   After:  B29717425   
  1904   "PKG",44,2 2,1,"PAH", 1,1,426,0)
  1905   **4,14,18, 20,22,29,3 5,47,55,75 ,95**
  1906   "PKG",44,2 2,1,"PAH", 1,1,427,0)
  1907   Routine Na me: GMRCGU IB
  1908   "PKG",44,2 2,1,"PAH", 1,1,428,0)
  1909       Before : B5389911 7   After:  B55018923   **4,12,1 8,20,17,22 ,29,30,35,
  1910   "PKG",44,2 2,1,"PAH", 1,1,429,0)
  1911                                                  45,53,5 5,64,46,75 ,86,90,95* *
  1912   "PKG",44,2 2,1,"PAH", 1,1,430,0)
  1913    
  1914   "PKG",44,2 2,1,"PAH", 1,1,431,0)
  1915   Routine li st of prec eding patc hes: 90
  1916   "PKG",44,2 2,1,"PAH", 1,1,432,0)
  1917    
  1918   "PKG",44,2 2,1,"PAH", 1,1,433,0)
  1919   ========== ========== ========== ========== ========== ========== ========== ====
  1920   "PKG",44,2 2,1,"PAH", 1,1,434,0)
  1921    
  1922   "PKG",44,2 2,1,"PAH", 1,1,435,0)
  1923   User Infor mation:  
  1924   "PKG",44,2 2,1,"PAH", 1,1,436,0)
  1925     Entered  By  :   NE EDHAM,MALC OLM      D ate Entere d  :   NOV  14,2017
  1926   "PKG",44,2 2,1,"PAH", 1,1,437,0)
  1927     Complete d By:                          D ate Comple ted:   
  1928   "QUES","XP F1",0)
  1929   Y
  1930   "QUES","XP F1","??")
  1931   ^D REP^XPD H
  1932   "QUES","XP F1","A")
  1933   Shall I wr ite over y our |FLAG|  File
  1934   "QUES","XP F1","B")
  1935   YES
  1936   "QUES","XP F1","M")
  1937   D XPF1^XPD IQ
  1938   "QUES","XP F2",0)
  1939   Y
  1940   "QUES","XP F2","??")
  1941   ^D DTA^XPD H
  1942   "QUES","XP F2","A")
  1943   Want my da ta |FLAG|  yours
  1944   "QUES","XP F2","B")
  1945   YES
  1946   "QUES","XP F2","M")
  1947   D XPF2^XPD IQ
  1948   "QUES","XP I1",0)
  1949   YO
  1950   "QUES","XP I1","??")
  1951   ^D INHIBIT ^XPDH
  1952   "QUES","XP I1","A")
  1953   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  1954   "QUES","XP I1","B")
  1955   NO
  1956   "QUES","XP I1","M")
  1957   D XPI1^XPD IQ
  1958   "QUES","XP M1",0)
  1959   PO^VA(200, :EM
  1960   "QUES","XP M1","??")
  1961   ^D MG^XPDH
  1962   "QUES","XP M1","A")
  1963   Enter the  Coordinato r for Mail  Group '|F LAG|'
  1964   "QUES","XP M1","B")
  1965  
  1966   "QUES","XP M1","M")
  1967   D XPM1^XPD IQ
  1968   "QUES","XP O1",0)
  1969   Y
  1970   "QUES","XP O1","??")
  1971   ^D MENU^XP DH
  1972   "QUES","XP O1","A")
  1973   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  1974   "QUES","XP O1","B")
  1975   NO
  1976   "QUES","XP O1","M")
  1977   D XPO1^XPD IQ
  1978   "QUES","XP Z1",0)
  1979   Y
  1980   "QUES","XP Z1","??")
  1981   ^D OPT^XPD H
  1982   "QUES","XP Z1","A")
  1983   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  1984   "QUES","XP Z1","B")
  1985   NO
  1986   "QUES","XP Z1","M")
  1987   D XPZ1^XPD IQ
  1988   "QUES","XP Z2",0)
  1989   Y
  1990   "QUES","XP Z2","??")
  1991   ^D RTN^XPD H
  1992   "QUES","XP Z2","A")
  1993   Want to MO VE routine s to other  CPUs
  1994   "QUES","XP Z2","B")
  1995   NO
  1996   "QUES","XP Z2","M")
  1997   D XPZ2^XPD IQ
  1998   "RTN")
  1999   2
  2000   "RTN","GMR CACMT")
  2001   0^1^B29717 425
  2002   "RTN","GMR CACMT",1,0 )
  2003   GMRCACMT ; SLC/DLT,DC M,MA,JFR -  Comment A ction and  alerting ; 4/29/14
  2004   "RTN","GMR CACMT",2,0 )
  2005    ;;3.0;CON SULT/REQUE ST TRACKIN G;**4,14,1 8,20,22,29 ,35,47,55, 75,95**;DE C 27, 1997 ;Build 31
  2006   "RTN","GMR CACMT",3,0 )
  2007    ;;Per VA  directive  6402, this  routine s hould not  be modifie d.
  2008   "RTN","GMR CACMT",4,0 )
  2009    ; This ro utine invo kes IA #10 060
  2010   "RTN","GMR CACMT",5,0 )
  2011    ;
  2012   "RTN","GMR CACMT",6,0 )
  2013   COMMENT(GM RCO) ;Add  a comment  without ch anging the  status
  2014   "RTN","GMR CACMT",7,0 )
  2015    K GMRCQIT ,GMRCQUT N  GMRCA,X
  2016   "RTN","GMR CACMT",8,0 )
  2017    I $D(IOTM ),$D(IOBM) ,$D(IOSTBM ) D FULL^V ALM1
  2018   "RTN","GMR CACMT",9,0 )
  2019    S GMRCNOW =$$NOW^XLF DT,GMRCAD= GMRCNOW
  2020   "RTN","GMR CACMT",10, 0)
  2021    S GMRCOM= 1,GMRCA=20 ,GMRCPROV= $P(^GMR(12 3,GMRCO,0) ,"^",14) D  AUDIT^GMR CP
  2022   "RTN","GMR CACMT",11, 0)
  2023    ; GMRCOM= 1 defined  the variab le and tel ls AUDIT^G MRCP that  the
  2024   "RTN","GMR CACMT",12, 0)
  2025    ; word-pr ocessing l ogic shoul d be execu ted. If an  actual co mment is
  2026   "RTN","GMR CACMT",13, 0)
  2027    ; added,  $P(GMRCOM, "^",2)=1 ( send alert ), if not  GMRCOM=1 a nd no '^'
  2028   "RTN","GMR CACMT",14, 0)
  2029    ; exists  (do not se nd alert)
  2030   "RTN","GMR CACMT",15, 0)
  2031    I $G(GMRC ERR)=1 S G MRCMSG=GMR CERMS D EX AC^GMRCADC (GMRCMSG), END Q
  2032   "RTN","GMR CACMT",16, 0)
  2033    ;continue  if no loc k problems  occurred
  2034   "RTN","GMR CACMT",17, 0)
  2035    I $P(GMRC OM,"^",2)  D
  2036   "RTN","GMR CACMT",18, 0)
  2037    . I $P($G (^GMR(123, GMRCO,12)) ,U,5)="F"  D
  2038   "RTN","GMR CACMT",19, 0)
  2039    .. W !!," The orderi ng provide r for this  inter-fac ility cons ult will"
  2040   "RTN","GMR CACMT",20, 0)
  2041    .. W " au tomaticall y be ",!," notified." ,!
  2042   "RTN","GMR CACMT",21, 0)
  2043    . D PROCA LRT("",1,2 0,GMRCO)
  2044   "RTN","GMR CACMT",22, 0)
  2045    . ;if a N on VA Care  consult,  notify HCP  of the co mment
  2046   "RTN","GMR CACMT",23, 0)
  2047    . I $$FEE ^GMRCHL7H( $$GET1^DIQ (123,GMRCO ,1,"I")) D  COMMENT^G MRCHL7H(GM RCO)
  2048   "RTN","GMR CACMT",24, 0)
  2049    . ;update  LAST ACTI ON field e ven though  no status  change
  2050   "RTN","GMR CACMT",25, 0)
  2051    . N GMRCD R,GMRCSTS
  2052   "RTN","GMR CACMT",26, 0)
  2053    . S GMRCS TS="",GMRC DR="9////2 0"
  2054   "RTN","GMR CACMT",27, 0)
  2055    . D STATU S^GMRCP
  2056   "RTN","GMR CACMT",28, 0)
  2057    . S X=+$O (^ORD(101, "B","ORMX  GMRC EVSEN D UPDATE", 0))_";ORD( 101,"
  2058   "RTN","GMR CACMT",29, 0)
  2059    . D EN^XQ OR
  2060   "RTN","GMR CACMT",30, 0)
  2061    D END
  2062   "RTN","GMR CACMT",31, 0)
  2063    Q
  2064   "RTN","GMR CACMT",32, 0)
  2065    ;
  2066   "RTN","GMR CACMT",33, 0)
  2067   PROCALRT(G MRCORTX,GM RCDELR,ACT ION,GMRCO)  ;Process  alert for  comments
  2068   "RTN","GMR CACMT",34, 0)
  2069    ;If GMRCD ELR=1, the  ordering  provider c an be dele ted from t he list.
  2070   "RTN","GMR CACMT",35, 0)
  2071    N GMRCADU Z,GMRCANS, NOTIF,GMRC QIT,GMRCTM
  2072   "RTN","GMR CACMT",36, 0)
  2073    ;S GMRCAN S=$$READ(" Y","Do You  Wish To S end An Ale rt With Th is Comment ","N","Ent er Y to co ntinue wit h recipien t prompts.  Otherwise , enter N. ",1)
  2074   "RTN","GMR CACMT",37, 0)
  2075    ;I (GMRCA NS[U)!(GMR CANS=0) D  END Q
  2076   "RTN","GMR CACMT",38, 0)
  2077    ;
  2078   "RTN","GMR CACMT",39, 0)
  2079    D WHOTO
  2080   "RTN","GMR CACMT",40, 0)
  2081    ;I $G(GMR CQIT) D EN D Q  ;User  "^" at re questing p rovider.
  2082   "RTN","GMR CACMT",41, 0)
  2083    ;
  2084   "RTN","GMR CACMT",42, 0)
  2085    N GMRCALT
  2086   "RTN","GMR CACMT",43, 0)
  2087    S NOTIF=$ S(ACTION=2 0:63,ACTIO N=8:63,1:2 3)
  2088   "RTN","GMR CACMT",44, 0)
  2089    ;
  2090   "RTN","GMR CACMT",45, 0)
  2091    D SENDMSG (NOTIF,+GM RCO,$G(GMR CTM))
  2092   "RTN","GMR CACMT",46, 0)
  2093    Q
  2094   "RTN","GMR CACMT",47, 0)
  2095    ;
  2096   "RTN","GMR CACMT",48, 0)
  2097   SENDMSG(NO TIF,GMRCO, GMRCATM) ; Send the a lert
  2098   "RTN","GMR CACMT",49, 0)
  2099    N GMRCDFN
  2100   "RTN","GMR CACMT",50, 0)
  2101    I '$D(GMR CADUZ) S G MRCADUZ=""
  2102   "RTN","GMR CACMT",51, 0)
  2103    W !,"Proc essing Ale rts..."
  2104   "RTN","GMR CACMT",52, 0)
  2105    S GMRCDFN =$P($G(^GM R(123,+GMR CO,0)),"^" ,2)
  2106   "RTN","GMR CACMT",53, 0)
  2107    I '$L(GMR CORTX) D
  2108   "RTN","GMR CACMT",54, 0)
  2109    . N TXT
  2110   "RTN","GMR CACMT",55, 0)
  2111    . S TXT=" Comment Ad ded to "
  2112   "RTN","GMR CACMT",56, 0)
  2113    . I $P($G (^GMR(123, GMRCO,12)) ,U,5)'="P"  S GMRCORT X=TXT_"con sult " Q
  2114   "RTN","GMR CACMT",57, 0)
  2115    . S GMRCO RTX=TXT_"r emote cons ult "
  2116   "RTN","GMR CACMT",58, 0)
  2117    S GMRCORT X=GMRCORTX _$$ORTX^GM RCAU(+GMRC O)
  2118   "RTN","GMR CACMT",59, 0)
  2119    D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,NOT IF,.GMRCAD UZ,$G(GMRC ATM))
  2120   "RTN","GMR CACMT",60, 0)
  2121    Q
  2122   "RTN","GMR CACMT",61, 0)
  2123    ;
  2124   "RTN","GMR CACMT",62, 0)
  2125   END ;kill  off variab les and ex it
  2126   "RTN","GMR CACMT",63, 0)
  2127    K GMRC,GM RCA,GMRCMS G,GMRCOM,G MRCO,GMRCO RTX,GMRCER R,GMRCERMS ,GMRCQUT,G MRCUT
  2128   "RTN","GMR CACMT",64, 0)
  2129    I $D(DTOU T)!$D(DIRO UT) S GMRC QIT=""
  2130   "RTN","GMR CACMT",65, 0)
  2131    K DTOUT,D IROUT,DUOU T,DIRUT
  2132   "RTN","GMR CACMT",66, 0)
  2133    S:$D(^TMP ("GMRC",$J ,"CURRENT" ,"MENU"))  XQORM("HIJ ACK")=^("M ENU")
  2134   "RTN","GMR CACMT",67, 0)
  2135    Q
  2136   "RTN","GMR CACMT",68, 0)
  2137    ;
  2138   "RTN","GMR CACMT",69, 0)
  2139   WHOTO ;Get  the users  who shoul d receive  an alert
  2140   "RTN","GMR CACMT",70, 0)
  2141    ;Asks abo ut request ing provid er first,  then promp ts for add itional us ers
  2142   "RTN","GMR CACMT",71, 0)
  2143    ;Returns  GMRCADUZ a rray of us ers to sen d an alert  to and GM RCQIT if " ^"
  2144   "RTN","GMR CACMT",72, 0)
  2145    N GMRCRP, GMRCANS,GM RCUPD
  2146   "RTN","GMR CACMT",73, 0)
  2147    S GMRCRP= +$P($G(^GM R(123,+GMR CO,0)),U,1 4) ;reques ting provi der entry
  2148   "RTN","GMR CACMT",74, 0)
  2149    S GMRCUPD =$$VALID^G MRCAU($P(^ GMR(123,+G MRCO,0),U, 5),GMRCO,D UZ)
  2150   "RTN","GMR CACMT",75, 0)
  2151    I GMRCRP= DUZ D  ;al ert team i f ord. pro v. takes t he action
  2152   "RTN","GMR CACMT",76, 0)
  2153    . S GMRCT M=1
  2154   "RTN","GMR CACMT",77, 0)
  2155    . W !,"Se rvice upda te users w ill be not ified.",!
  2156   "RTN","GMR CACMT",78, 0)
  2157    I +GMRCUP D>1,GMRCRP '=DUZ D  ;  alert ord . prov if  update use rs takes a ction
  2158   "RTN","GMR CACMT",79, 0)
  2159    . S GMRCA DUZ(GMRCRP )=""
  2160   "RTN","GMR CACMT",80, 0)
  2161    . W !,"Re questing p rovider wi ll be noti fied.",!
  2162   "RTN","GMR CACMT",81, 0)
  2163    I '$G(GMR CTM),+GMRC UPD<2 D  ; alert both  if not or d. prov or  update us er
  2164   "RTN","GMR CACMT",82, 0)
  2165    . S GMRCT M=1,GMRCAD UZ(GMRCRP) =""
  2166   "RTN","GMR CACMT",83, 0)
  2167    . W !,"Re questing p rovider an d service  update use rs will be  notified. ",!
  2168   "RTN","GMR CACMT",84, 0)
  2169    ;
  2170   "RTN","GMR CACMT",85, 0)
  2171    ;
  2172   "RTN","GMR CACMT",86, 0)
  2173   ANDTO ;Ask  for addit ional reci pients
  2174   "RTN","GMR CACMT",87, 0)
  2175    D NAMELIS T("Additio nal alert  recipients : ",.GMRCA DUZ,GMRCDE LR)
  2176   "RTN","GMR CACMT",88, 0)
  2177    Q
  2178   "RTN","GMR CACMT",89, 0)
  2179    ;
  2180   "RTN","GMR CACMT",90, 0)
  2181   NAMELIST(G MRCP,GMRCO LD,GMRCDEL R) ;manage  the list  of recipie nts
  2182   "RTN","GMR CACMT",91, 0)
  2183    ;
  2184   "RTN","GMR CACMT",92, 0)
  2185    ; GMRCP -  Prompt
  2186   "RTN","GMR CACMT",93, 0)
  2187    ; GMRCOLD  - Origina l list wit h ordering  provider.
  2188   "RTN","GMR CACMT",94, 0)
  2189    ; GMRCDEL R - 1 mean s the orig inal list  may have n ames delet ed
  2190   "RTN","GMR CACMT",95, 0)
  2191    ; Returns  final lis t in GMRCO LD array
  2192   "RTN","GMR CACMT",96, 0)
  2193    ;
  2194   "RTN","GMR CACMT",97, 0)
  2195    N GMRCNEW ,GMRCNT,GM RCDUZ,GMRC USER,GMRCQ ,GMRCADD,D IC,X,Y
  2196   "RTN","GMR CACMT",98, 0)
  2197    ;
  2198   "RTN","GMR CACMT",99, 0)
  2199    M GMRCNEW =GMRCOLD
  2200   "RTN","GMR CACMT",100 ,0)
  2201    I GMRCDEL R=1 K GMRC OLD S GMRC OLD="" ;Re move manda tory users  from GMRC OLD
  2202   "RTN","GMR CACMT",101 ,0)
  2203    S GMRCNT= 0 F  D  Q: (GMRCUSER[ U)
  2204   "RTN","GMR CACMT",102 ,0)
  2205    .S GMRCUS ER=$$READ( "FAO;3;46" ,$S(GMRCNT :"And ",1: "")_GMRCP, "","^D NAM EHELP^GMRC ACMT")
  2206   "RTN","GMR CACMT",103 ,0)
  2207    .S:'$L(GM RCUSER) GM RCUSER=U Q :(GMRCUSER [U)
  2208   "RTN","GMR CACMT",104 ,0)
  2209    .I ($E(GM RCUSER,1)= "-") S GMR CADD=0,GMR CUSER=$E(G MRCUSER,2, $L(GMRCUSE R))
  2210   "RTN","GMR CACMT",105 ,0)
  2211    .E  S GMR CADD=1
  2212   "RTN","GMR CACMT",106 ,0)
  2213    .;
  2214   "RTN","GMR CACMT",107 ,0)
  2215    .S X=GMRC USER,DIC=2 00,DIC(0)= "EMQ" D ^D IC
  2216   "RTN","GMR CACMT",108 ,0)
  2217    .;
  2218   "RTN","GMR CACMT",109 ,0)
  2219    .I (Y>0)  D  I 1
  2220   "RTN","GMR CACMT",110 ,0)
  2221    ..;W $E($ P(Y,U,2),$ L(GMRCUSER )+1,$L($P( Y,U,2)))
  2222   "RTN","GMR CACMT",111 ,0)
  2223    ..;
  2224   "RTN","GMR CACMT",112 ,0)
  2225    ..I GMRCA DD D
  2226   "RTN","GMR CACMT",113 ,0)
  2227    ...I $D(G MRCNEW(+Y) ) W " alre ady in the  list." Q
  2228   "RTN","GMR CACMT",114 ,0)
  2229    ...S GMRC NEW(+Y)=""  W " added  to the li st." S GMR CNT=GMRCNT +1
  2230   "RTN","GMR CACMT",115 ,0)
  2231    ..;
  2232   "RTN","GMR CACMT",116 ,0)
  2233    ..I 'GMRC ADD D
  2234   "RTN","GMR CACMT",117 ,0)
  2235    ...I $D(G MRCOLD(+Y) ) W " can' t delete t his name f rom the li st." Q
  2236   "RTN","GMR CACMT",118 ,0)
  2237    ...I '$D( GMRCNEW(+Y )) W " not  currently  in the li st." Q
  2238   "RTN","GMR CACMT",119 ,0)
  2239    ...K GMRC NEW(+Y) S  GMRCNT=GMR CNT-1 W "  deleted fr om the lis t."
  2240   "RTN","GMR CACMT",120 ,0)
  2241    .;
  2242   "RTN","GMR CACMT",121 ,0)
  2243    .E  I $L( GMRCUSER)  W "  Name  not found. "
  2244   "RTN","GMR CACMT",122 ,0)
  2245    ;
  2246   "RTN","GMR CACMT",123 ,0)
  2247    M GMRCOLD =GMRCNEW
  2248   "RTN","GMR CACMT",124 ,0)
  2249    Q
  2250   "RTN","GMR CACMT",125 ,0)
  2251    ;
  2252   "RTN","GMR CACMT",126 ,0)
  2253   READ(GMRC0 ,GMRCA,GMR CB,GMRCH,G MRCL) ;rea d logic
  2254   "RTN","GMR CACMT",127 ,0)
  2255    ;
  2256   "RTN","GMR CACMT",128 ,0)
  2257    ;  GMRC0  -> DIR(0)  --- Type o f read
  2258   "RTN","GMR CACMT",129 ,0)
  2259    ;  GMRCA  -> DIR("A" ) - Prompt
  2260   "RTN","GMR CACMT",130 ,0)
  2261    ;  GMRCB  -> DIR("B" ) - Defaul t Answer
  2262   "RTN","GMR CACMT",131 ,0)
  2263    ;  GMRCH  -> DIR("?" ) - Help t ext or ^Ex ecute code
  2264   "RTN","GMR CACMT",132 ,0)
  2265    ;  GMRCL  -> Number  of blank l ines to pu t before P rompt
  2266   "RTN","GMR CACMT",133 ,0)
  2267    ;
  2268   "RTN","GMR CACMT",134 ,0)
  2269    ;  Return s "^" or a nswer
  2270   "RTN","GMR CACMT",135 ,0)
  2271    ;
  2272   "RTN","GMR CACMT",136 ,0)
  2273    N GMRCLIN E,DIR,DTOU T,DUOUT,DI RUT,DIROUT
  2274   "RTN","GMR CACMT",137 ,0)
  2275    Q:'$L($G( GMRC0)) U
  2276   "RTN","GMR CACMT",138 ,0)
  2277    S DIR(0)= GMRC0
  2278   "RTN","GMR CACMT",139 ,0)
  2279    S:$L($G(G MRCA)) DIR ("A")=GMRC A
  2280   "RTN","GMR CACMT",140 ,0)
  2281    S:$L($G(G MRCB)) DIR ("B")=GMRC B
  2282   "RTN","GMR CACMT",141 ,0)
  2283    S:$L($G(G MRCH)) DIR ("?")=GMRC H
  2284   "RTN","GMR CACMT",142 ,0)
  2285    F GMRCLIN E=1:1:($G( GMRCL)-1)  W !
  2286   "RTN","GMR CACMT",143 ,0)
  2287    D ^DIR
  2288   "RTN","GMR CACMT",144 ,0)
  2289    I $D(DTOU T)!$D(DUOU T)!$D(DIRU T)!$D(DIRO UT) Q U
  2290   "RTN","GMR CACMT",145 ,0)
  2291    Q Y
  2292   "RTN","GMR CACMT",146 ,0)
  2293    ;
  2294   "RTN","GMR CACMT",147 ,0)
  2295    ;
  2296   "RTN","GMR CACMT",148 ,0)
  2297   NAMEHELP ; Help for t he recipie nt list lo gic
  2298   "RTN","GMR CACMT",149 ,0)
  2299    N GMRCDUZ
  2300   "RTN","GMR CACMT",150 ,0)
  2301    W !,"Ente r the name  of the us er to send  the alert  to,"
  2302   "RTN","GMR CACMT",151 ,0)
  2303    W !," or  put a '-'  in front o f a name t o delete f rom the li st."
  2304   "RTN","GMR CACMT",152 ,0)
  2305    W !
  2306   "RTN","GMR CACMT",153 ,0)
  2307    W !,"  Ex ample:"
  2308   "RTN","GMR CACMT",154 ,0)
  2309    W !,"      SMITH,FRE D  ->  to  add Fred t o the list ."
  2310   "RTN","GMR CACMT",155 ,0)
  2311    W !,"      -SMITH,FR ED ->  to  delete Fre d from the  list."
  2312   "RTN","GMR CACMT",156 ,0)
  2313    W !,"Alre ady select ed: "
  2314   "RTN","GMR CACMT",157 ,0)
  2315    W !
  2316   "RTN","GMR CACMT",158 ,0)
  2317    S GMRCDUZ =0 F  S GM RCDUZ=$O(G MRCNEW(GMR CDUZ)) Q:' GMRCDUZ  D
  2318   "RTN","GMR CACMT",159 ,0)
  2319    .W !,?5,$ P(^VA(200, GMRCDUZ,0) ,U,1)
  2320   "RTN","GMR CACMT",160 ,0)
  2321    .W:$D(GMR COLD(GMRCD UZ)) "  <m andatory>"
  2322   "RTN","GMR CACMT",161 ,0)
  2323    W !
  2324   "RTN","GMR CACMT",162 ,0)
  2325    Q
  2326   "RTN","GMR CACMT",163 ,0)
  2327    ;
  2328   "RTN","GMR CGUIB")
  2329   0^2^B55018 923
  2330   "RTN","GMR CGUIB",1,0 )
  2331   GMRCGUIB ; SLC/DCM,JF R,MA - GUI  actions f or consult s ;5/23/16
  2332   "RTN","GMR CGUIB",2,0 )
  2333    ;;3.0;CON SULT/REQUE ST TRACKIN G;**4,12,1 8,20,17,22 ,29,30,35, 45,53,55,6 4,46,75,86 ,90,95**;D EC 27, 199 7;Build 31
  2334   "RTN","GMR CGUIB",3,0 )
  2335    ;;Per VA  directive  6402, this  routine s hould not  be modifie d.
  2336   "RTN","GMR CGUIB",4,0 )
  2337    ; This ro utine invo kes IA #29 80
  2338   "RTN","GMR CGUIB",5,0 )
  2339    ; This ro utine invo kes IA #67 55 - DE674 5 - PB Apr  12, 2017
  2340   "RTN","GMR CGUIB",6,0 )
  2341    ;
  2342   "RTN","GMR CGUIB",7,0 )
  2343   SETDA() ;s et DA of w here audit  actions a re to be f iled
  2344   "RTN","GMR CGUIB",8,0 )
  2345    S:'$D(^GM R(123,+GMR CO,40,0))  ^GMR(123,G MRCO,40,0) ="^123.02D A^^"
  2346   "RTN","GMR CGUIB",9,0 )
  2347    S DA=$S($ P(^GMR(123 ,+GMRCO,40 ,0),"^",3) :$P(^(0)," ^",3)+1,1: 1)
  2348   "RTN","GMR CGUIB",10, 0)
  2349    S $P(^GMR (123,+GMRC O,40,0),"^ ",3,4)=DA_ "^"_DA
  2350   "RTN","GMR CGUIB",11, 0)
  2351    Q DA
  2352   "RTN","GMR CGUIB",12, 0)
  2353   REASON(GMR CFN,GMRCRQ ,GMRCDT) ; Load the r eason for  the reques t into ^GM R(123,GMRC O,20
  2354   "RTN","GMR CGUIB",13, 0)
  2355    ;GMRCFN=F ile 123 IF N; GMRCRQ= Array cont aining Rea son For Re quest
  2356   "RTN","GMR CGUIB",14, 0)
  2357    ;GMRCDT=D ate time o f entry
  2358   "RTN","GMR CGUIB",15, 0)
  2359    S ^GMR(12 3,GMRCFN,2 0,0)="^^^" _GMRCDT_"^ "
  2360   "RTN","GMR CGUIB",16, 0)
  2361    S L=0,LN= 1 F  S L=$ O(GMRCRQ(L )) Q:L=""   S ^GMR(12 3,GMRCFN,2 0,LN,0)=GM RCRQ(L),LN =LN+1
  2362   "RTN","GMR CGUIB",17, 0)
  2363    S LN=LN-1 ,$P(^GMR(1 23,GMRCFN, 20,0),"^", 3)=LN
  2364   "RTN","GMR CGUIB",18, 0)
  2365    K LN,L
  2366   "RTN","GMR CGUIB",19, 0)
  2367    Q
  2368   "RTN","GMR CGUIB",20, 0)
  2369   SETCOM(COM MENT,WHO)  ;Set comme nt array i nto tracki ng actions
  2370   "RTN","GMR CGUIB",21, 0)
  2371    N GMRCNOW ,DR,DIE
  2372   "RTN","GMR CGUIB",22, 0)
  2373    S GMRCNOW =$$NOW^XLF DT
  2374   "RTN","GMR CGUIB",23, 0)
  2375    I $P($G(^ GMR(123,+G MRCO,0))," ^",11)=$G( GMRCPA) S  GMRCPA=""
  2376   "RTN","GMR CGUIB",24, 0)
  2377    S DIE="^G MR(123,GMR CO,40,",DA (1)=GMRCO, DR=".01/// /^S X=GMRC NOW;1////^ S X=GMRCA; 2////^S X= GMRCAD;3// //^S X=$G( GMRCORNP); 4////^S X= $S($G(WHO) :WHO,1:DUZ );6////^S  X=$G(GMRCF R);8////^S  X=$G(GMRC FF);7////^ S X=$G(GMR CPA)"
  2378   "RTN","GMR CGUIB",25, 0)
  2379    D ^DIE
  2380   "RTN","GMR CGUIB",26, 0)
  2381    S ^GMR(12 3,GMRCO,40 ,DA,1,0)=" ^^^^"_GMRC AD_"^"
  2382   "RTN","GMR CGUIB",27, 0)
  2383    S (GMRCND ,GMRCND1)= 0 F  S GMR CND1=$O(CO MMENT(GMRC ND1)) Q:GM RCND1=""   S GMRCND=G MRCND+1,^G MR(123,GMR CO,40,DA,1 ,GMRCND,0) =COMMENT(G MRCND)
  2384   "RTN","GMR CGUIB",28, 0)
  2385    S $P(^GMR (123,GMRCO ,40,DA,1,0 ),"^",3)=G MRCND,$P(^ (0),"^",4) =GMRCND,^G MR(123,GMR CO,40,"B", GMRCNOW,DA )=""
  2386   "RTN","GMR CGUIB",29, 0)
  2387    D:$D(^GMR (123,+GMRC O,0)) AG12 3S1^GMRCXR (+GMRCO)   ;alb/sat 8 6 - update  AG xref
  2388   "RTN","GMR CGUIB",30, 0)
  2389    ;
  2390   "RTN","GMR CGUIB",31, 0)
  2391    ; if an I FC, call e vent handl er to gene rate a msg  to remote  site
  2392   "RTN","GMR CGUIB",32, 0)
  2393    I $D(^GMR (123,+GMRC O,12)),$D( ^(40,DA))  D TRIGR^GM RCIEVT(GMR CO,DA)
  2394   "RTN","GMR CGUIB",33, 0)
  2395    ;
  2396   "RTN","GMR CGUIB",34, 0)
  2397    K GMRCND, GMRCND1
  2398   "RTN","GMR CGUIB",35, 0)
  2399    Q
  2400   "RTN","GMR CGUIB",36, 0)
  2401   CMT(GMRCO, GMRCOM,GMR CADUZ,GMRC WHN,GMRCWH O) ;add co mment to c onsult
  2402   "RTN","GMR CGUIB",37, 0)
  2403    ; GMRCO =  IEN from  file 123
  2404   "RTN","GMR CGUIB",38, 0)
  2405    ; GMRCOM  = array of  comments  in format  GMRCOM(1)= "xxxx", GM RCOM(2)="x xx"
  2406   "RTN","GMR CGUIB",39, 0)
  2407    ; GMRCADU Z = array  of alert r ecipients  as GMRCADU Z(DUZ)=""  (optional)
  2408   "RTN","GMR CGUIB",40, 0)
  2409    ; GMRCWHO  = IEN fro m file 200  who's res ponsible a ctivity (o ptional)
  2410   "RTN","GMR CGUIB",41, 0)
  2411    ; GMRCWHN  = date ti me of acti vity in FM  format
  2412   "RTN","GMR CGUIB",42, 0)
  2413    ;
  2414   "RTN","GMR CGUIB",43, 0)
  2415    N DA,GMRC A,GMRCAD,G MRCORTX,GM RCDFN,GMRC TM,GMRCRP, GMRCUPD,X
  2416   "RTN","GMR CGUIB",44, 0)
  2417    S DA=$$SE TDA ; get  next activ ity tracki ng entry
  2418   "RTN","GMR CGUIB",45, 0)
  2419    S GMRCA=2 0,GMRCAD=G MRCWHN S:$ G(GMRCWHO)  GMRCORNP= GMRCWHO
  2420   "RTN","GMR CGUIB",46, 0)
  2421    D SETCOM( .GMRCOM,$G (GMRCWHO))
  2422   "RTN","GMR CGUIB",47, 0)
  2423    ;if a Non  VA Care c onsult, no tify HCP o f the comm ent
  2424   "RTN","GMR CGUIB",48, 0)
  2425    I $$FEE^G MRCHL7H($$ GET1^DIQ(1 23,+GMRCO, 1,"I")) D  COMMENT^GM RCHL7H(+GM RCO)
  2426   "RTN","GMR CGUIB",49, 0)
  2427    D  ;updat e LAST ACT ION field  even thoug h no statu s change
  2428   "RTN","GMR CGUIB",50, 0)
  2429    . N GMRCD R,GMRCSTS
  2430   "RTN","GMR CGUIB",51, 0)
  2431    . S GMRCS TS="",GMRC DR="9////2 0"
  2432   "RTN","GMR CGUIB",52, 0)
  2433    . D STATU S^GMRCP
  2434   "RTN","GMR CGUIB",53, 0)
  2435    S GMRCDFN =$P(^GMR(1 23,+GMRCO, 0),"^",2)
  2436   "RTN","GMR CGUIB",54, 0)
  2437    S GMRCORT X="Comment  Added to  Consult "
  2438   "RTN","GMR CGUIB",55, 0)
  2439    D POST^HM PEVNT(GMRC DFN,"consu lt",GMRCO, "") ; DE67 45 PB - Ad ded to mak e a call t o HMP to s ync the pa tient comm ents
  2440   "RTN","GMR CGUIB",56, 0)
  2441    I $P($G(^ GMR(123,GM RCO,12)),U ,5)="P" D
  2442   "RTN","GMR CGUIB",57, 0)
  2443    . S GMRCO RTX="Comme nt Added t o remote c onsult "
  2444   "RTN","GMR CGUIB",58, 0)
  2445    S GMRCORT X=GMRCORTX _$$ORTX^GM RCAU(+GMRC O)
  2446   "RTN","GMR CGUIB",59, 0)
  2447    S GMRCRP= +$P(^GMR(1 23,GMRCO,0 ),U,14)
  2448   "RTN","GMR CGUIB",60, 0)
  2449    S GMRCUPD =$$VALID^G MRCAU($P(^ GMR(123,+G MRCO,0),U, 5),GMRCO,D UZ)
  2450   "RTN","GMR CGUIB",61, 0)
  2451    I GMRCRP= DUZ D  ;al ert team i f ord. pro v. takes t he action
  2452   "RTN","GMR CGUIB",62, 0)
  2453    . S GMRCT M=1
  2454   "RTN","GMR CGUIB",63, 0)
  2455    I GMRCUPD >1,GMRCRP' =DUZ D  ;  alert ord.  prov if u pdate user s takes ac tion
  2456   "RTN","GMR CGUIB",64, 0)
  2457    . S GMRCA DUZ(GMRCRP )=""
  2458   "RTN","GMR CGUIB",65, 0)
  2459    I '$G(GMR CTM),GMRCU PD<2 D  ;a lert both  if not ord . prov or  update use r
  2460   "RTN","GMR CGUIB",66, 0)
  2461    . S GMRCT M=1,GMRCAD UZ(GMRCRP) =""
  2462   "RTN","GMR CGUIB",67, 0)
  2463    D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,63, .GMRCADUZ, $G(GMRCTM) )
  2464   "RTN","GMR CGUIB",68, 0)
  2465    S X=+$O(^ ORD(101,"B ","ORMX GM RC EVSEND  UPDATE",0) )_";ORD(10 1,"
  2466   "RTN","GMR CGUIB",69, 0)
  2467    D EN^XQOR
  2468   "RTN","GMR CGUIB",70, 0)
  2469    Q
  2470   "RTN","GMR CGUIB",71, 0)
  2471   SFILE(GMRC O,GMRCA,GM RCSF,GMRCO RNP,GMRCDU Z,GMRCOM,G MRCALF,GMR CATO,GMRCA D) ;Proces s various  file updat e function s from the  GUI for a  consult
  2472   "RTN","GMR CGUIB",72, 0)
  2473    ; ADMIN C OMPLETE or  SIGNIFICA NT FINDING S
  2474   "RTN","GMR CGUIB",73, 0)
  2475    ;Input va riables:
  2476   "RTN","GMR CGUIB",74, 0)
  2477    ;GMRCO=Fi le 123 IEN  of the co nsult reco rd
  2478   "RTN","GMR CGUIB",75, 0)
  2479    ;GMRCA=po inter to R EQUEST ACT ION TYPES  (#123.1) 1 0=complete , 4=Sig fi nd.
  2480   "RTN","GMR CGUIB",76, 0)
  2481    ;GMRCSF=S ignificant  Findings  flag: 'Y'=  significa nt finding
  2482   "RTN","GMR CGUIB",77, 0)
  2483    ;                                   : 'N'=  no signif icant find ing
  2484   "RTN","GMR CGUIB",78, 0)
  2485    ;                                   : 'U'= unknown si gnificant  finding
  2486   "RTN","GMR CGUIB",79, 0)
  2487    ;GMRCORNP =Provider  Responsibl e for acti on
  2488   "RTN","GMR CGUIB",80, 0)
  2489    ;GMRCDUZ= Person act ually doin g the acti on
  2490   "RTN","GMR CGUIB",81, 0)
  2491    ;GMRCOM=A n array of  comments  by referen ce ARRAY(1 )="xxx",AR RAY(2)="xx x"
  2492   "RTN","GMR CGUIB",82, 0)
  2493    ;GMRCALF= Flag to si gnal that  alerts are  to be sen t; 'N'=NO,  'Y'=YES
  2494   "RTN","GMR CGUIB",83, 0)
  2495    ;GMRCATO= Who alerts  are to be  sent to;  a comma de limited st ring of DU Z's
  2496   "RTN","GMR CGUIB",84, 0)
  2497    ;GMRCAD = FM date/ti me of acti vity
  2498   "RTN","GMR CGUIB",85, 0)
  2499    ;
  2500   "RTN","GMR CGUIB",86, 0)
  2501    ;Output:
  2502   "RTN","GMR CGUIB",87, 0)
  2503    ; GMRCERR =Error Fla g: 0 if no  error, 1  if error o ccurred
  2504   "RTN","GMR CGUIB",88, 0)
  2505    ; GMRCERM S - Error  message or  null
  2506   "RTN","GMR CGUIB",89, 0)
  2507    ;    retu rned as GM RCERR^GMRC ERMS
  2508   "RTN","GMR CGUIB",90, 0)
  2509    ;
  2510   "RTN","GMR CGUIB",91, 0)
  2511    N GMRCERR ,GMRCERMS, GMRCTM
  2512   "RTN","GMR CGUIB",92, 0)
  2513    L +^GMR(1 23,GMRCO): 5 I '$T S  GMRCERR=1, GMRCERMS=" Record Loc ked. File  Update Not  Accomplis hed." Q GM RCERR_"^"_ GMRCERMS
  2514   "RTN","GMR CGUIB",93, 0)
  2515    S GMRCERR =0,GMRCTM= 0,GMRCERMS ="",DR="", GMRCORTX=" "
  2516   "RTN","GMR CGUIB",94, 0)
  2517    N GMRCADU Z S GMRCAD UZ=""
  2518   "RTN","GMR CGUIB",95, 0)
  2519    S GMRCNOW =$$NOW^XLF DT,GMRCSTS =$P(^GMR(1 23,+GMRCO, 0),"^",12) ,GMRCDFN=$ P(^(0),"^" ,2)
  2520   "RTN","GMR CGUIB",96, 0)
  2521    I '$G(GMR CDUZ) S GM RCDUZ=DUZ
  2522   "RTN","GMR CGUIB",97, 0)
  2523    I '$G(GMR CAD) S GMR CAD=GMRCNO W
  2524   "RTN","GMR CGUIB",98, 0)
  2525    ;Insure c omment arr ay contain s text for  Complete  action.
  2526   "RTN","GMR CGUIB",99, 0)
  2527    I GMRCA=1 0 D  I GMR CERR=1 S G MRCERMS="C omment fie ld must co ntain a te xt value!"  Q GMRCERR _"^"_GMRCE RMS
  2528   "RTN","GMR CGUIB",100 ,0)
  2529    . S GMRCE RR=1
  2530   "RTN","GMR CGUIB",101 ,0)
  2531    . I '$D(G MRCOM) Q
  2532   "RTN","GMR CGUIB",102 ,0)
  2533    . N GMRCO M1 S GMRCO M1=""
  2534   "RTN","GMR CGUIB",103 ,0)
  2535    . F  S GM RCOM1=$O(G MRCOM(GMRC OM1)) Q:(G MRCOM1=""! (GMRCERR=0 ))  D
  2536   "RTN","GMR CGUIB",104 ,0)
  2537    .. I $TR( $G(GMRCOM( GMRCOM1)), " ","")'=" " S GMRCER R=0 Q
  2538   "RTN","GMR CGUIB",105 ,0)
  2539    I +$G(GMR CA),GMRCA= 10 D
  2540   "RTN","GMR CGUIB",106 ,0)
  2541    .S GMRCSF =$G(GMRCSF ,"")
  2542   "RTN","GMR CGUIB",107 ,0)
  2543    .S GMRCST S=2
  2544   "RTN","GMR CGUIB",108 ,0)
  2545    .S DR="8/ ///^S X=GM RCSTS;9/// /^S X=GMRC A;15////^S  X=GMRCSF"
  2546   "RTN","GMR CGUIB",109 ,0)
  2547    .S GMRCOR TX="Comple ted Consul t "_$$ORTX ^GMRCAU(+G MRCO)_$S(G MRCSF="Y": " with Sig  Findings" ,GMRCSF="N ":" with n o Sig Find ings",1:"" )
  2548   "RTN","GMR CGUIB",110 ,0)
  2549    .I $P($G( ^GMR(123,+ GMRCO,0)), U,14),$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)'=D UZ S GMRCA DUZ($P($G( ^(0)),U,14 ))=""
  2550   "RTN","GMR CGUIB",111 ,0)
  2551    .Q
  2552   "RTN","GMR CGUIB",112 ,0)
  2553    I $G(GMRC ALF)=1 D
  2554   "RTN","GMR CGUIB",113 ,0)
  2555    .N I
  2556   "RTN","GMR CGUIB",114 ,0)
  2557    .F I=1:1   S X=$P(GM RCATO,";", I) Q:X=""   S GMRCADU Z(X)=""
  2558   "RTN","GMR CGUIB",115 ,0)
  2559    .Q
  2560   "RTN","GMR CGUIB",116 ,0)
  2561    I $L(GMRC A),GMRCA=4  S DR=DR_$ S($L(DR):" ;",1:"")_" 9////^S X= GMRCA;15// //^S X=GMR CSF" D
  2562   "RTN","GMR CGUIB",117 ,0)
  2563    .S GMRCOR TX=$S(GMRC SF="Y":"Si g Findings  ",GMRCSF= "N":"No Si g Findings  ",1:"Unkn own Sig Fi ndings ")_ "for consu lt "_$$ORT X^GMRCAU(G MRCO)
  2564   "RTN","GMR CGUIB",118 ,0)
  2565    .I $P($G( ^GMR(123,+ GMRCO,0)), U,14),$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)'=D UZ S GMRCA DUZ($P($G( ^(0)),U,14 ))=""
  2566   "RTN","GMR CGUIB",119 ,0)
  2567    .S GMRCUP D=$$VALID^ GMRCAU($P( ^GMR(123,+ GMRCO,0),U ,5),GMRCO, DUZ)
  2568   "RTN","GMR CGUIB",120 ,0)
  2569    .I +GMRCU PD<2 S GMR CTM=1
  2570   "RTN","GMR CGUIB",121 ,0)
  2571    .I +GMRCU PD>1,+$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)=DU Z S GMRCTM =1
  2572   "RTN","GMR CGUIB",122 ,0)
  2573    .Q
  2574   "RTN","GMR CGUIB",123 ,0)
  2575    I $L(DR)  S DIE="^GM R(123,",DA =GMRCO D ^ DIE K DIE, DR
  2576   "RTN","GMR CGUIB",124 ,0)
  2577    I '$O(GMR COM(0)) D  AUDIT^GMRC P
  2578   "RTN","GMR CGUIB",125 ,0)
  2579    I $D(GMRC OM),$O(GMR COM(0)) D
  2580   "RTN","GMR CGUIB",126 ,0)
  2581    .N DA
  2582   "RTN","GMR CGUIB",127 ,0)
  2583    .S DA=$$S ETDA()
  2584   "RTN","GMR CGUIB",128 ,0)
  2585    .D SETCOM (.GMRCOM,G MRCDUZ)
  2586   "RTN","GMR CGUIB",129 ,0)
  2587    .Q
  2588   "RTN","GMR CGUIB",130 ,0)
  2589    L -^GMR(1 23,GMRCO)
  2590   "RTN","GMR CGUIB",131 ,0)
  2591    ;
  2592   "RTN","GMR CGUIB",132 ,0)
  2593    D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,$S( GMRCA=20:6 3,1:23),.G MRCADUZ,GM RCTM)
  2594   "RTN","GMR CGUIB",133 ,0)
  2595    ;
  2596   "RTN","GMR CGUIB",134 ,0)
  2597    I $S(GMRC A=10:1,(GM RCA=4&($P( ^GMR(123,G MRCO,0),U, 12)=2)):1, 1:0) D
  2598   "RTN","GMR CGUIB",135 ,0)
  2599    . D EN^GM RCHL7($P(^ GMR(123,GM RCO,0),"^" ,2),GMRCO, $G(GMRCTYP E),$G(GMRC RB),"RE",G MRCORNP,$G (GMRCVSIT) ,.GMRCOM,, GMRCAD)
  2600   "RTN","GMR CGUIB",136 ,0)
  2601    K DIE,DR, DA,GMRCDT, GMRCNOW,GM RCAD,GMRCO RNP,GMRCDU Z,GMRCRSLT ,GMRCSTS,G MRCADUZ,GM RCORTX,GMR CDFN
  2602   "RTN","GMR CGUIB",137 ,0)
  2603    Q GMRCERR _"^"_GMRCE RMS
  2604   "RTN","GMR CGUIB",138 ,0)
  2605    ;
  2606   "RTN","GMR CGUIB",139 ,0)
  2607   SCH(GMRCO, GMRCORNP,G MRCAD,GMRC ADUZ,GMRCM T) ;schedu le a consu lt API
  2608   "RTN","GMR CGUIB",140 ,0)
  2609    ; Input v ariables:
  2610   "RTN","GMR CGUIB",141 ,0)
  2611    ;GMRCO -  The intern al file nu mber of th e consult  from File  123
  2612   "RTN","GMR CGUIB",142 ,0)
  2613    ;GMRCORNP  - Name of  the perso n who actu ally 'Rece ived' the  consult
  2614   "RTN","GMR CGUIB",143 ,0)
  2615    ;GMRCAD -  Actual da te time th at consult  was recei ved into t he service .
  2616   "RTN","GMR CGUIB",144 ,0)
  2617    ;GMRCADUZ  - array o f alert re cipients a s chosen b y user (by  reference )
  2618   "RTN","GMR CGUIB",145 ,0)
  2619    ;   ARRAY (DUZ)=""
  2620   "RTN","GMR CGUIB",146 ,0)
  2621    ;GMRCMT -  array of  comments i f entered  (by refere nce)
  2622   "RTN","GMR CGUIB",147 ,0)
  2623    ;   ARRAY (1)="FIRST  LINE OF C OMMENT"
  2624   "RTN","GMR CGUIB",148 ,0)
  2625    ;   ARRAY (2)="SECON D LINE OF  COMMENT"
  2626   "RTN","GMR CGUIB",149 ,0)
  2627    ;
  2628   "RTN","GMR CGUIB",150 ,0)
  2629    ;Output:
  2630   "RTN","GMR CGUIB",151 ,0)
  2631    ;GMRCERR  - Error Co ndition Co de: 0 = NO  error, 1= error
  2632   "RTN","GMR CGUIB",152 ,0)
  2633    ;GMRCERMS  - Error m essage or  null
  2634   "RTN","GMR CGUIB",153 ,0)
  2635    ;  return ed as GMRC ERR^GMRCER MS
  2636   "RTN","GMR CGUIB",154 ,0)
  2637           ;
  2638   "RTN","GMR CGUIB",155 ,0)
  2639    N DFN,GMR CSTS,GMRCN OW,GMRCERR ,GMRCERMS
  2640   "RTN","GMR CGUIB",156 ,0)
  2641    S GMRCERR =0,GMRCERM S="",GMRCN OW=$$NOW^X LFDT
  2642   "RTN","GMR CGUIB",157 ,0)
  2643    S:$G(GMRC AD)="" GMR CAD=GMRCNO W
  2644   "RTN","GMR CGUIB",158 ,0)
  2645    S:'$G(GMR CDUZ) GMRC DUZ=DUZ
  2646   "RTN","GMR CGUIB",159 ,0)
  2647    S DFN=$P( $G(^GMR(12 3,GMRCO,0) ),"^",2) I  DFN="" D   Q GMRCERR _"^"_GMRCE RMS
  2648   "RTN","GMR CGUIB",160 ,0)
  2649    . S GMRCE RR="1",GMR CERMS="Not  A Valid C onsult - F ile Not Fo und."
  2650   "RTN","GMR CGUIB",161 ,0)
  2651    . D EXIT^ GMRCGUIA
  2652   "RTN","GMR CGUIB",162 ,0)
  2653    S GMRCSTS =8,GMRCA=8
  2654   "RTN","GMR CGUIB",163 ,0)
  2655    D STATUS^ GMRCP I $D (GMRCQUT)  D EXIT^GMR CGUIA Q GM RCERR_"^"_ GMRCERMS
  2656   "RTN","GMR CGUIB",164 ,0)
  2657    I '$O(GMR CMT(0)) D  AUDIT^GMRC P
  2658   "RTN","GMR CGUIB",165 ,0)
  2659    I $O(GMRC MT(0)) D
  2660   "RTN","GMR CGUIB",166 ,0)
  2661    . S DA=$$ SETDA
  2662   "RTN","GMR CGUIB",167 ,0)
  2663    . D SETCO M(.GMRCMT, GMRCDUZ)
  2664   "RTN","GMR CGUIB",168 ,0)
  2665    D EN^GMRC HL7(DFN,GM RCO,"","", "SC",GMRCO RNP,"","", "",GMRCAD)
  2666   "RTN","GMR CGUIB",169 ,0)
  2667    D  ;send  alerts
  2668   "RTN","GMR CGUIB",170 ,0)
  2669    . N GMRCU PD,GMRCTM, TXT
  2670   "RTN","GMR CGUIB",171 ,0)
  2671    . S TXT=" Scheduled  Consult: " _$$ORTX^GM RCAU(GMRCO )
  2672   "RTN","GMR CGUIB",172 ,0)
  2673    . S GMRCT M=0
  2674   "RTN","GMR CGUIB",173 ,0)
  2675    . I $P(^G MR(123,+GM RCO,0),U,1 4),$P(^GMR (123,+GMRC O,0),U,14) '=DUZ S GM RCADUZ($P( ^(0),U,14) )=""
  2676   "RTN","GMR CGUIB",174 ,0)
  2677    . S GMRCU PD=$$VALID ^GMRCAU($P (^GMR(123, +GMRCO,0), U,5),GMRCO ,DUZ)
  2678   "RTN","GMR CGUIB",175 ,0)
  2679    . I +GMRC UPD<2 S GM RCTM=1
  2680   "RTN","GMR CGUIB",176 ,0)
  2681    . I +GMRC UPD>1,+$P( $G(^GMR(12 3,+GMRCO,0 )),U,14)=D UZ S GMRCT M=1
  2682   "RTN","GMR CGUIB",177 ,0)
  2683    . D MSG^G MRCP(DFN,T XT,GMRCO,6 3,.GMRCADU Z,GMRCTM)
  2684   "RTN","GMR CGUIB",178 ,0)
  2685    D EXIT^GM RCGUIA
  2686   "RTN","GMR CGUIB",179 ,0)
  2687    Q GMRCERR _"^"_GMRCE RMS
  2688   "RTN","GMR CGUIB",180 ,0)
  2689   DOCLIST(GM RCAR,GMRCD A,GMRCMED)   ;return  list of li nked resul ts
  2690   "RTN","GMR CGUIB",181 ,0)
  2691    ; Input:
  2692   "RTN","GMR CGUIB",182 ,0)
  2693    ;  GMRCAR  - array t o return l ist, passe d by refer ence
  2694   "RTN","GMR CGUIB",183 ,0)
  2695    ;  GMRCDA  - ien fro m file 123
  2696   "RTN","GMR CGUIB",184 ,0)
  2697    ;  GMRCME D- 1 = inc lude med r esults; 0  = only TIU  docs
  2698   "RTN","GMR CGUIB",185 ,0)
  2699    ;
  2700   "RTN","GMR CGUIB",186 ,0)
  2701    ; Output:
  2702   "RTN","GMR CGUIB",187 ,0)
  2703    ;  GMRCAR  - array i n format
  2704   "RTN","GMR CGUIB",188 ,0)
  2705    ;       G MRCAR(0)=z ero node o f record
  2706   "RTN","GMR CGUIB",189 ,0)
  2707    ;       G MRCAR(50,1 )="ien;glo bal ref,"  e.g. 5;TIU (8925, or  3;MCAR(691 ,
  2708   "RTN","GMR CGUIB",190 ,0)
  2709    ;       G MRCAR(50,2 )="ien;glo bal ref,"
  2710   "RTN","GMR CGUIB",191 ,0)
  2711    ;
  2712   "RTN","GMR CGUIB",192 ,0)
  2713    I '$D(^GM R(123,GMRC DA,0)) Q
  2714   "RTN","GMR CGUIB",193 ,0)
  2715    S GMRCAR( 0)=^GMR(12 3,GMRCDA,0 ),$P(GMRCA R(0),U,20) =""
  2716   "RTN","GMR CGUIB",194 ,0)
  2717    N RES,CNT  S RES="", CNT=1
  2718   "RTN","GMR CGUIB",195 ,0)
  2719    F  S RES= $O(^GMR(12 3,GMRCDA,5 0,"B",RES) ) Q:RES=""   D
  2720   "RTN","GMR CGUIB",196 ,0)
  2721    . I '$G(G MRCMED) Q: RES'["TIU( 8925"
  2722   "RTN","GMR CGUIB",197 ,0)
  2723    . S GMRCA R(50,CNT)= RES
  2724   "RTN","GMR CGUIB",198 ,0)
  2725    . I RES[" MCAR" D
  2726   "RTN","GMR CGUIB",199 ,0)
  2727    .. N ARR, STR
  2728   "RTN","GMR CGUIB",200 ,0)
  2729    .. D MEDL KUP^MCARUT L3(.ARR,+$ P(RES,"MCA R(",2),+RE S)
  2730   "RTN","GMR CGUIB",201 ,0)
  2731    .. I '+AR R K GMRCAR (50,CNT) Q
  2732   "RTN","GMR CGUIB",202 ,0)
  2733    .. S STR= $P(ARR,U,9 )_U_$P(ARR ,U,6)_$S($ P(ARR,U,10 ):"^^^^^^^ ^1",1:"")
  2734   "RTN","GMR CGUIB",203 ,0)
  2735    .. S GMRC AR(50,CNT) =GMRCAR(50 ,CNT)_U_ST R
  2736   "RTN","GMR CGUIB",204 ,0)
  2737    . S CNT=C NT+1
  2738   "RTN","GMR CGUIB",205 ,0)
  2739    Q
  2740   "VER")
  2741   8.0^22.2
  2742   $END KID G MRC*3.0*95