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

8.1 Files compared

# Location File Last Modified
1 MASS.zip\MASS OR-3.0-470.KID Wed Jun 6 14:46:02 2018 UTC
2 MASS.zip\MASS OR-3.0-470.KID Tue Jun 12 14:58:28 2018 UTC

8.2 Comparison summary

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

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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

  1   KIDS Distr ibution sa ved on Jun  04, 2018@ 12:46:29
  2   OR*3.0*470  TEST v19
  3   **KIDS**:O R*3.0*470^
  4  
  5   **INSTALL  NAME**
  6   OR*3.0*470
  7   "BLD",1058 9,0)
  8   OR*3.0*470 ^ORDER ENT RY/RESULTS  REPORTING ^0^3180604 ^y
  9   "BLD",1058 9,1,0)
  10   ^^614^614^ 3180511^
  11   "BLD",1058 9,1,1,0)
  12    
  13   "BLD",1058 9,1,2,0)
  14   Associated  patches:  (v)OR*3*39 0    <<= m ust be ins talled BEF ORE `OR*3* 470'
  15   "BLD",1058 9,1,3,0)
  16                         (u)DG*5.3* 948  <<= m ust be ins talled BEF ORE `OR*3* 470'
  17   "BLD",1058 9,1,4,0)
  18                         (u)SD*5.3* 676  <<= m ust be ins talled BEF ORE `OR*3* 470'
  19   "BLD",1058 9,1,5,0)
  20                       
  21   "BLD",1058 9,1,6,0)
  22   Subject:   ORDER ENTR Y UPDATES  FOR EPIC C ADENCE/VIS TA INTERFA CE
  23   "BLD",1058 9,1,7,0)
  24    
  25   "BLD",1058 9,1,8,0)
  26   Category:   DATA DICT IONARY
  27   "BLD",1058 9,1,9,0)
  28               ROUTINE
  29   "BLD",1058 9,1,10,0)
  30               OTHER
  31   "BLD",1058 9,1,11,0)
  32    
  33   "BLD",1058 9,1,12,0)
  34   Associated  patches:  DG*5.3*948 , SD*5.3*6 76, OR*3.0 *390
  35   "BLD",1058 9,1,13,0)
  36   Subject:   MASS ORDER S PATCH
  37   "BLD",1058 9,1,14,0)
  38    
  39   "BLD",1058 9,1,15,0)
  40   Category:   ORDERS, R OUTINE, PR OTOCOLS, I NTERFACES
  41   "BLD",1058 9,1,16,0)
  42    
  43   "BLD",1058 9,1,17,0)
  44   Descriptio n:
  45   "BLD",1058 9,1,18,0)
  46   ---------- --
  47   "BLD",1058 9,1,19,0)
  48   The Medica l Appointm ent Schedu ling Syste m (MASS) p rogram wil l deploy a  
  49   "BLD",1058 9,1,20,0)
  50   commercial  schedulin g applicat ion to sup port sched ulers, and  
  51   "BLD",1058 9,1,21,0)
  52   ultimately  our Veter ans, withi n the Chal mers P. Wy lie Depart ment of 
  53   "BLD",1058 9,1,22,0)
  54   Veterans A ffairs (VA ) Ambulato ry Care Ce nter in Co lumbus, OH . This 
  55   "BLD",1058 9,1,23,0)
  56   deployment  and integ ration wil l allow th e VA to mo ve from a 
  57   "BLD",1058 9,1,24,0)
  58   clinic-bas ed schedul ing system  to a reso urce-based  schedulin g system, 
  59   "BLD",1058 9,1,25,0)
  60   thereby st andardizin g and impr oving sche duling pro cesses, pr oviding
  61   "BLD",1058 9,1,26,0)
  62   resource s upply mana gement, an d deliveri ng improve d access t o care 
  63   "BLD",1058 9,1,27,0)
  64   for our Ve terans. 
  65   "BLD",1058 9,1,28,0)
  66    
  67   "BLD",1058 9,1,29,0)
  68   The MASS I ndefinite  Delivery/I ndefinite  Quantity ( IDIQ) cont ract 
  69   "BLD",1058 9,1,30,0)
  70   establishe s the over arching re quirements  for the M ASS Contra ctor to 
  71   "BLD",1058 9,1,31,0)
  72   incrementa lly captur e requirem ents, desi gn, develo p, deploy,  implement
  73   "BLD",1058 9,1,32,0)
  74   and train  MASS acros s the VA h ealth care  enterpris e. This pr ogram 
  75   "BLD",1058 9,1,33,0)
  76   involves i nitiation,  design, a nd executi on of a pi lot site a
  77   "BLD",1058 9,1,34,0)
  78   Chalmers P . Wylie VA  Ambulator y Care Cen ter (herea fter refer red to as 
  79   "BLD",1058 9,1,35,0)
  80   the Columb us ACC and  its assoc iated Comm unity Base d Outpatie nt Clinics
  81   "BLD",1058 9,1,36,0)
  82   to demonst rate the M ASS busine ss value,  the integr ation of M ASS within
  83   "BLD",1058 9,1,37,0)
  84   the VA ent erprise, t he impact  MASS will  have on va rious clin ical and 
  85   "BLD",1058 9,1,38,0)
  86   administra tive proce sses and w orkflows,  and the ef fort neces sary for t he 
  87   "BLD",1058 9,1,39,0)
  88   affected s takeholder s to adopt  these cha nges. 
  89   "BLD",1058 9,1,40,0)
  90    
  91   "BLD",1058 9,1,41,0)
  92   The enterp rise-wide  Medical Ap pointment  Scheduling  System (M ASS), 
  93   "BLD",1058 9,1,42,0)
  94   enabled by  Cadence,  will manag e the appo intment li fecycle, i mprove 
  95   "BLD",1058 9,1,43,0)
  96   clinical r esource ma nagement,  and inform  VHA manag ement at a ll 
  97   "BLD",1058 9,1,44,0)
  98   organizati onal level s with rea l-time bus iness, res ource util ization 
  99   "BLD",1058 9,1,45,0)
  100   and demand , supply,  and qualit y service  metrics in telligence . The MASS  
  101   "BLD",1058 9,1,46,0)
  102   implementa tion will  address cr itical cha llenges fo r stakehol der and us er 
  103   "BLD",1058 9,1,47,0)
  104   adoption a cross the  enterprise , seamless  integrati on with Vi stA, and 
  105   "BLD",1058 9,1,48,0)
  106   preserver  local auto nomy while  introduci ng nationa lly standa rdized 
  107   "BLD",1058 9,1,49,0)
  108   rules and  workflows.
  109   "BLD",1058 9,1,50,0)
  110    
  111   "BLD",1058 9,1,51,0)
  112   The OR*3.0 *470 patch  is the in itial rele ase of the  Medical A ppointment  
  113   "BLD",1058 9,1,52,0)
  114   Scheduling  System (M ASS) Sched uling inte gration de velopment  for the Vi stA 
  115   "BLD",1058 9,1,53,0)
  116   Pilot at C olumbus. T his patch  includes a ll of the  necessary  components  
  117   "BLD",1058 9,1,54,0)
  118   that will  enable out going HL7  V2 ORM ord ering inte gration wi th MASS. 
  119   "BLD",1058 9,1,55,0)
  120    
  121   "BLD",1058 9,1,56,0)
  122   OR*3.0*470  patch enh ancements  include:
  123   "BLD",1058 9,1,57,0)
  124    
  125   "BLD",1058 9,1,58,0)
  126   1. Ability  to trigge r and buil d HL7v2 OR M messages  for any M ASS 
  127   "BLD",1058 9,1,59,0)
  128      schedul able order
  129   "BLD",1058 9,1,60,0)
  130   2. Placing  orders, u pdating or ders, or c anceling o rders in V istA or 
  131   "BLD",1058 9,1,61,0)
  132      CPRS ca n now trig ger HL7v2  messages.  This inclu des adding  comments
  133   "BLD",1058 9,1,62,0)
  134      to orde rs.
  135   "BLD",1058 9,1,63,0)
  136   3. Ability  to set th e "Schedul able" item  on an ord erable rec ord using 
  137   "BLD",1058 9,1,64,0)
  138      the "OR MX SET MAS S SCHEDULE  ACTION" u tility to  allow or p revent 
  139   "BLD",1058 9,1,65,0)
  140      certain  orderable s in VistA  from trig gering HL7 v2 ORM mes sages.
  141   "BLD",1058 9,1,66,0)
  142   4. Ability  to trigge r HL7v2 OR M messages  for conve rsion purp oses using  
  143   "BLD",1058 9,1,67,0)
  144      the "OR MX CONV ME NU" utilit y. 
  145   "BLD",1058 9,1,68,0)
  146   5. Ability  to comple te RTCs an d Recall R eminders f or convers ion purpos es 
  147   "BLD",1058 9,1,69,0)
  148      using t he "ORMX C ONV MENU"  utility. 
  149   "BLD",1058 9,1,70,0)
  150    
  151   "BLD",1058 9,1,71,0)
  152   Patch Comp onents:
  153   "BLD",1058 9,1,72,0)
  154   ---------- -------
  155   "BLD",1058 9,1,73,0)
  156   HLO Applic ations:
  157   "BLD",1058 9,1,74,0)
  158   OR-ORM-OUT
  159   "BLD",1058 9,1,75,0)
  160    
  161   "BLD",1058 9,1,76,0)
  162   HLO Logica l Links:
  163   "BLD",1058 9,1,77,0)
  164   OR ORM OUT
  165   "BLD",1058 9,1,78,0)
  166    
  167   "BLD",1058 9,1,79,0)
  168   Parameters :
  169   "BLD",1058 9,1,80,0)
  170   ORMX C&P D EPARTMENT  ID
  171   "BLD",1058 9,1,81,0)
  172   ORMX CONV  THREADS
  173   "BLD",1058 9,1,82,0)
  174   ORMX FACIL ITY ID
  175   "BLD",1058 9,1,83,0)
  176   ORMX NEAR  DEPARTMENT  ID
  177   "BLD",1058 9,1,84,0)
  178   ORMX RTC N LT PROMPT  ID
  179   "BLD",1058 9,1,85,0)
  180   ORMX RTC O RDERABLE I D
  181   "BLD",1058 9,1,86,0)
  182   ORMX SCH D EFAULT FLA G
  183   "BLD",1058 9,1,87,0)
  184    
  185   "BLD",1058 9,1,88,0)
  186   List Templ ate:
  187   "BLD",1058 9,1,89,0)
  188   ORMX CONVE RSION
  189   "BLD",1058 9,1,90,0)
  190   ORMX SCHED ULABLE ACT ION
  191   "BLD",1058 9,1,91,0)
  192    
  193   "BLD",1058 9,1,92,0)
  194   Files & Fi elds Assoc iated:
  195   "BLD",1058 9,1,93,0)
  196    
  197   "BLD",1058 9,1,94,0)
  198   File Name  (Number)          Fie ld Name (N umber)      New/Modif ied/Delete d
  199   "BLD",1058 9,1,95,0)
  200   ---------- --------          --- ---------- ------      --------- ---------- -
  201   "BLD",1058 9,1,96,0)
  202   ORDERABLE  ITEMS (101 .43)   MAS S SCHEDULA BLE         NEW
  203   "BLD",1058 9,1,97,0)
  204   ACTION (11 )
  205   "BLD",1058 9,1,98,0)
  206    
  207   "BLD",1058 9,1,99,0)
  208   Forms Asso ciated:
  209   "BLD",1058 9,1,100,0)
  210    
  211   "BLD",1058 9,1,101,0)
  212   Form Name        File  #  New/Mo dified/Del eted
  213   "BLD",1058 9,1,102,0)
  214   ---------        ---- --  ------ ---------- ----
  215   "BLD",1058 9,1,103,0)
  216   None             N/A      N/A
  217   "BLD",1058 9,1,104,0)
  218    
  219   "BLD",1058 9,1,105,0)
  220   Mail Group s Associat ed:
  221   "BLD",1058 9,1,106,0)
  222    
  223   "BLD",1058 9,1,107,0)
  224   Mail Group  Name      New/Modifi ed/Deleted
  225   "BLD",1058 9,1,108,0)
  226   ---------- -----      ---------- ----------
  227   "BLD",1058 9,1,109,0)
  228   None                  N/A
  229   "BLD",1058 9,1,110,0)
  230    
  231   "BLD",1058 9,1,111,0)
  232   Options As sociated:
  233   "BLD",1058 9,1,112,0)
  234    
  235   "BLD",1058 9,1,113,0)
  236   Option Nam e              Type         New/ Modified/D eleted
  237   "BLD",1058 9,1,114,0)
  238   ---------- -              ----         ---- ---------- ------ 
  239   "BLD",1058 9,1,115,0)
  240   ORMX SET M ASS SCHEDU LE  RUN/RO UTINE      NEW
  241   "BLD",1058 9,1,116,0)
  242   ACTION
  243   "BLD",1058 9,1,117,0)
  244    
  245   "BLD",1058 9,1,118,0)
  246   Protocols  Associated :
  247   "BLD",1058 9,1,119,0)
  248    
  249   "BLD",1058 9,1,120,0)
  250   Protocol N ame               New /Modified/ Deleted
  251   "BLD",1058 9,1,121,0)
  252   ---------- ---               --- ---------- ------- 
  253   "BLD",1058 9,1,122,0)
  254   OR EVSEND  DGPM              MOD IFIED
  255   "BLD",1058 9,1,123,0)
  256   OR EVSEND  DVBA              NEW
  257   "BLD",1058 9,1,124,0)
  258   OR EVSEND  FH                MOD IFIED
  259   "BLD",1058 9,1,125,0)
  260   OR EVSEND  GMRC              MOD IFIED
  261   "BLD",1058 9,1,126,0)
  262   OR EVSEND  LRAP              MOD IFIED
  263   "BLD",1058 9,1,127,0)
  264   OR EVSEND  LRBB              MOD IFIED
  265   "BLD",1058 9,1,128,0)
  266   OR EVSEND  LRCH              MOD IFIED
  267   "BLD",1058 9,1,129,0)
  268   OR EVSEND  ORG               MOD IFIED
  269   "BLD",1058 9,1,130,0)
  270   OR EVSEND  PS                MOD IFIED
  271   "BLD",1058 9,1,131,0)
  272   OR EVSEND  RA                MOD IFIED
  273   "BLD",1058 9,1,132,0)
  274   ORMX CHANG E DISPLAY  GROUP  NEW
  275   "BLD",1058 9,1,133,0)
  276   ORMX EVSEN D ADD COMM ENT    NEW
  277   "BLD",1058 9,1,134,0)
  278   ORMX GMRC  EVSEND UPD ATE    NEW
  279   "BLD",1058 9,1,135,0)
  280   ORMX ORM H L7 TRIGGER        NEW
  281   "BLD",1058 9,1,136,0)
  282   - ADD COMM ENTS
  283   "BLD",1058 9,1,137,0)
  284   ORMX ORM H L7 TRIGGER        NEW
  285   "BLD",1058 9,1,138,0)
  286   - C&P UPDA TE
  287   "BLD",1058 9,1,139,0)
  288   ORMX ORM H L7 TRIGGER        NEW
  289   "BLD",1058 9,1,140,0)
  290   - CONSULTS
  291   "BLD",1058 9,1,141,0)
  292   ORMX ORM H L7 TRIGGER        NEW
  293   "BLD",1058 9,1,142,0)
  294   - ORDERS
  295   "BLD",1058 9,1,143,0)
  296   ORMX RUN C ONV               NEW
  297   "BLD",1058 9,1,144,0)
  298   ORMX SCHED ULABLE ACT ION    NEW
  299   "BLD",1058 9,1,145,0)
  300   ORMX SCHED ULABLE ACT ION    NEW
  301   "BLD",1058 9,1,146,0)
  302   Menu
  303   "BLD",1058 9,1,147,0)
  304    
  305   "BLD",1058 9,1,148,0)
  306    
  307   "BLD",1058 9,1,149,0)
  308   Security K eys Associ ated:
  309   "BLD",1058 9,1,150,0)
  310    
  311   "BLD",1058 9,1,151,0)
  312   Security K ey Name
  313   "BLD",1058 9,1,152,0)
  314   ---------- -------
  315   "BLD",1058 9,1,153,0)
  316   N/A
  317   "BLD",1058 9,1,154,0)
  318    
  319   "BLD",1058 9,1,155,0)
  320   Templates  Associated :
  321   "BLD",1058 9,1,156,0)
  322    
  323   "BLD",1058 9,1,157,0)
  324   Template N ame    Typ e    File  Name (Numb er)  New/M odified/De leted 
  325   "BLD",1058 9,1,158,0)
  326   ---------- ---    --- -    ----- ---------- ---  ----- ---------- -----
  327   "BLD",1058 9,1,159,0)
  328   None              N/A      N/A                   N/A
  329   "BLD",1058 9,1,160,0)
  330    
  331   "BLD",1058 9,1,161,0)
  332   Additional  Informati on:
  333   "BLD",1058 9,1,162,0)
  334   N/A
  335   "BLD",1058 9,1,163,0)
  336    
  337   "BLD",1058 9,1,164,0)
  338   New Servic e Requests  (NSRs):
  339   "BLD",1058 9,1,165,0)
  340   ---------- ---------- --------  
  341   "BLD",1058 9,1,166,0)
  342   N/A
  343   "BLD",1058 9,1,167,0)
  344    
  345   "BLD",1058 9,1,168,0)
  346   Patient Sa fety Issue s (PSIs):
  347   "BLD",1058 9,1,169,0)
  348   ---------- ---------- ---------
  349   "BLD",1058 9,1,170,0)
  350   N/A
  351   "BLD",1058 9,1,171,0)
  352    
  353   "BLD",1058 9,1,172,0)
  354   Defect Tra cking Syst em Ticket( s) & Overv iew:
  355   "BLD",1058 9,1,173,0)
  356   ---------- ---------- ---------- ---------- ----
  357   "BLD",1058 9,1,174,0)
  358   N/A
  359   "BLD",1058 9,1,175,0)
  360    
  361   "BLD",1058 9,1,176,0)
  362   Problem:
  363   "BLD",1058 9,1,177,0)
  364   -------
  365   "BLD",1058 9,1,178,0)
  366   N/A
  367   "BLD",1058 9,1,179,0)
  368    
  369   "BLD",1058 9,1,180,0)
  370   Resolution :
  371   "BLD",1058 9,1,181,0)
  372   ----------
  373   "BLD",1058 9,1,182,0)
  374   N/A
  375   "BLD",1058 9,1,183,0)
  376    
  377   "BLD",1058 9,1,184,0)
  378   Test Sites :
  379   "BLD",1058 9,1,185,0)
  380   ----------
  381   "BLD",1058 9,1,186,0)
  382   Columbus,  OH
  383   "BLD",1058 9,1,187,0)
  384    
  385   "BLD",1058 9,1,188,0)
  386   Software a nd Documen tation Ret rieval Ins tructions:
  387   "BLD",1058 9,1,189,0)
  388   ---------- ---------- ---------- ---------- ---------- -- 
  389   "BLD",1058 9,1,190,0)
  390   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  391   "BLD",1058 9,1,191,0)
  392   the new fu nctionalit y introduc ed by this  patch are  available .
  393   "BLD",1058 9,1,192,0)
  394    
  395   "BLD",1058 9,1,193,0)
  396   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  397   "BLD",1058 9,1,194,0)
  398   This trans mits the f iles from  the first  available  server. Si tes may 
  399   "BLD",1058 9,1,195,0)
  400   also elect  to retrie ve files d irectly fr om a speci fic server
  401   "BLD",1058 9,1,196,0)
  402    
  403   "BLD",1058 9,1,197,0)
  404   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  405   "BLD",1058 9,1,198,0)
  406   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  407   "BLD",1058 9,1,199,0)
  408   directory  at the fol lowing 
  409   "BLD",1058 9,1,200,0)
  410   OI Field O ffices:
  411   "BLD",1058 9,1,201,0)
  412    
  413   "BLD",1058 9,1,202,0)
  414   Hines:  DN S     .URL          
  415   "BLD",1058 9,1,203,0)
  416   Salt Lake  City:        
. URL        
  417   "BLD",1058 9,1,204,0)
  418    
  419   "BLD",1058 9,1,205,0)
  420   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  421   "BLD",1058 9,1,206,0)
  422   at:
  423   "BLD",1058 9,1,207,0)
  424   http://www . DNS     /vdl/
  425   "BLD",1058 9,1,208,0)
  426    
  427   "BLD",1058 9,1,209,0)
  428    
  429   "BLD",1058 9,1,210,0)
  430   Title   Fi le Name        FTP Mo de
  431   "BLD",1058 9,1,211,0)
  432   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  433   "BLD",1058 9,1,212,0)
  434   N/A
  435   "BLD",1058 9,1,213,0)
  436    
  437   "BLD",1058 9,1,214,0)
  438   Patch Inst allation:
  439   "BLD",1058 9,1,215,0)
  440    
  441   "BLD",1058 9,1,216,0)
  442   Pre/Post I nstallatio n Overview :
  443   "BLD",1058 9,1,217,0)
  444   ---------- ---------- ---------- -
  445   "BLD",1058 9,1,218,0)
  446   N/A
  447   "BLD",1058 9,1,219,0)
  448    
  449   "BLD",1058 9,1,220,0)
  450   Pre-Instal lation Ins tructions:
  451   "BLD",1058 9,1,221,0)
  452   ---------- ---------- ----------
  453   "BLD",1058 9,1,222,0)
  454   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  455   "BLD",1058 9,1,223,0)
  456   recommende d that it  be install ed during  non-peak h ours to mi nimize
  457   "BLD",1058 9,1,224,0)
  458   potential  disruption  to users.   This pat ch should  take less  than 5 
  459   "BLD",1058 9,1,225,0)
  460   minutes to  install. 
  461   "BLD",1058 9,1,226,0)
  462    
  463   "BLD",1058 9,1,227,0)
  464   There are  no listman  Options t hat need t o be disab led for th is patch.
  465   "BLD",1058 9,1,228,0)
  466    
  467   "BLD",1058 9,1,229,0)
  468   Installati on Instruc tions:
  469   "BLD",1058 9,1,230,0)
  470   ---------- ---------- ------
  471   "BLD",1058 9,1,231,0)
  472    
  473   "BLD",1058 9,1,232,0)
  474   1.      Ch oose the P ackMan mes sage conta ining this  patch.
  475   "BLD",1058 9,1,233,0)
  476    
  477   "BLD",1058 9,1,234,0)
  478   2.      Ch oose the I NSTALL/CHE CK MESSAGE  PackMan o ption. 
  479   "BLD",1058 9,1,235,0)
  480    
  481   "BLD",1058 9,1,236,0)
  482   3.      Fr om the Ker nel Instal lation and  Distribut ion System  Menu, sel ect 
  483   "BLD",1058 9,1,237,0)
  484   the Instal lation Men u (See Ins tall Promp ts Sample  below for  more 
  485   "BLD",1058 9,1,238,0)
  486   detail).   From this  menu, you  may elect  to use the  following  options. 
  487   "BLD",1058 9,1,239,0)
  488   When promp ted for th e INSTALL  NAME enter  the patch  OR*3.0*47 0:
  489   "BLD",1058 9,1,240,0)
  490   a.      Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  491   "BLD",1058 9,1,241,0)
  492   message of  any routi nes export ed with th is patch.  It will no t backup a ny 
  493   "BLD",1058 9,1,242,0)
  494   other chan ges such a s DDs or t emplates.
  495   "BLD",1058 9,1,243,0)
  496   b.      Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  497   "BLD",1058 9,1,244,0)
  498   (allow you  to view a ll changes  that will  be made w hen this p atch         
  499   "BLD",1058 9,1,245,0)
  500   is install ed.  It co mpares all  component s of this  patch rout ines, DDs,  
  501   "BLD",1058 9,1,246,0)
  502   templates,  etc.).
  503   "BLD",1058 9,1,247,0)
  504   c.      Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  505   "BLD",1058 9,1,248,0)
  506   to ensure  the integr ity of the  routines  that are i n the tran sport glob al.
  507   "BLD",1058 9,1,249,0)
  508   4.       F rom the In stallation  Menu, sel ect the In stall Pack age(s) opt ion 
  509   "BLD",1058 9,1,250,0)
  510   and choose  the patch  to instal l.
  511   "BLD",1058 9,1,251,0)
  512    
  513   "BLD",1058 9,1,252,0)
  514   5.      Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon  Completion  of 
  515   "BLD",1058 9,1,253,0)
  516   Install? N O//' 
  517   "BLD",1058 9,1,254,0)
  518    
  519   "BLD",1058 9,1,255,0)
  520   6.      Wh en prompte d 'Want KI DS to INHI BIT LOGONs  during th e install?  
  521   "BLD",1058 9,1,256,0)
  522   NO//'
  523   "BLD",1058 9,1,257,0)
  524    
  525   "BLD",1058 9,1,258,0)
  526   7.      Wh en prompte d 'Want to  DISABLE S cheduled O ptions, Me nu Options
  527   "BLD",1058 9,1,259,0)
  528   and Protoc ols? NO//'  
  529   "BLD",1058 9,1,260,0)
  530    
  531   "BLD",1058 9,1,261,0)
  532   8.      If  prompted  'Delay Ins tall (Minu tes):  (0  - 60): 0// ' respond  0.
  533   "BLD",1058 9,1,262,0)
  534    
  535   "BLD",1058 9,1,263,0)
  536    
  537   "BLD",1058 9,1,264,0)
  538   Install Pr ompts Samp le:
  539   "BLD",1058 9,1,265,0)
  540   ---------- ---------- ------
  541   "BLD",1058 9,1,266,0)
  542    
  543   "BLD",1058 9,1,267,0)
  544   VISTA>D ^X UP
  545   "BLD",1058 9,1,268,0)
  546    
  547   "BLD",1058 9,1,269,0)
  548   Setting up  programme r environm ent
  549   "BLD",1058 9,1,270,0)
  550   This is a  TEST accou nt.
  551   "BLD",1058 9,1,271,0)
  552    
  553   "BLD",1058 9,1,272,0)
  554   Terminal T ype set to : C-VT100
  555   "BLD",1058 9,1,273,0)
  556    
  557   "BLD",1058 9,1,274,0)
  558   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  559   "BLD",1058 9,1,275,0)
  560   Load a Dis tribution
  561   "BLD",1058 9,1,276,0)
  562    
  563   "BLD",1058 9,1,277,0)
  564   Enter a Ho st File: C :\HFS\OR_3 _0_470.KID
  565   "BLD",1058 9,1,278,0)
  566    
  567   "BLD",1058 9,1,279,0)
  568   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:30:33
  569   "BLD",1058 9,1,280,0)
  570   Comment: O R*3.0*470  12/11/17
  571   "BLD",1058 9,1,281,0)
  572    
  573   "BLD",1058 9,1,282,0)
  574   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  575   "BLD",1058 9,1,283,0)
  576   Build OR*3 .0*470 has  been load ed before,  here is w hen: 
  577   "BLD",1058 9,1,284,0)
  578         OR*3 .0*470   I nstall Com pleted
  579   "BLD",1058 9,1,285,0)
  580                       w as loaded  on Oct 05,  2017@22:4 3:32
  581   "BLD",1058 9,1,286,0)
  582         OR*3 .0*470   I nstall Com pleted
  583   "BLD",1058 9,1,287,0)
  584                       w as loaded  on Oct 05,  2017@22:4 8:51
  585   "BLD",1058 9,1,288,0)
  586         OR*3 .0*470   I nstall Com pleted
  587   "BLD",1058 9,1,289,0)
  588                       w as loaded  on Oct 10,  2017@16:0 8:28
  589   "BLD",1058 9,1,290,0)
  590         OR*3 .0*470   I nstall Com pleted
  591   "BLD",1058 9,1,291,0)
  592                       w as loaded  on Nov 15,  2017@00:1 2:12
  593   "BLD",1058 9,1,292,0)
  594         OR*3 .0*470   I nstall Com pleted
  595   "BLD",1058 9,1,293,0)
  596                       w as loaded  on Nov 17,  2017@14:1 3:21
  597   "BLD",1058 9,1,294,0)
  598         OR*3 .0*470   I nstall Com pleted
  599   "BLD",1058 9,1,295,0)
  600                       w as loaded  on Nov 17,  2017@14:1 5:43
  601   "BLD",1058 9,1,296,0)
  602         OR*3 .0*470   I nstall Com pleted
  603   "BLD",1058 9,1,297,0)
  604                       w as loaded  on Nov 20,  2017@14:5 8:56
  605   "BLD",1058 9,1,298,0)
  606         OR*3 .0*470   I nstall Com pleted
  607   "BLD",1058 9,1,299,0)
  608                       w as loaded  on Nov 21,  2017@15:4 0:15
  609   "BLD",1058 9,1,300,0)
  610         OR*3 .0*470   I nstall Com pleted
  611   "BLD",1058 9,1,301,0)
  612                       w as loaded  on Nov 30,  2017@15:0 5:17
  613   "BLD",1058 9,1,302,0)
  614         OR*3 .0*470   I nstall Com pleted
  615   "BLD",1058 9,1,303,0)
  616                       w as loaded  on Dec 05,  2017@16:1 6:23
  617   "BLD",1058 9,1,304,0)
  618   OK to cont inue with  Load? NO//  YES
  619   "BLD",1058 9,1,305,0)
  620    
  621   "BLD",1058 9,1,306,0)
  622   Distributi on OK!
  623   "BLD",1058 9,1,307,0)
  624    
  625   "BLD",1058 9,1,308,0)
  626   Want to Co ntinue wit h Load? YE S// 
  627   "BLD",1058 9,1,309,0)
  628   Loading Di stribution ...
  629   "BLD",1058 9,1,310,0)
  630    
  631   "BLD",1058 9,1,311,0)
  632      OR*3.0* 470
  633   "BLD",1058 9,1,312,0)
  634   Use INSTAL L NAME: OR *3.0*470 t o install  this Distr ibution.
  635   "BLD",1058 9,1,313,0)
  636    
  637   "BLD",1058 9,1,314,0)
  638   VISTA>D ^X UP
  639   "BLD",1058 9,1,315,0)
  640    
  641   "BLD",1058 9,1,316,0)
  642   Setting up  programme r environm ent
  643   "BLD",1058 9,1,317,0)
  644   This is a  TEST accou nt.
  645   "BLD",1058 9,1,318,0)
  646   Terminal T ype set to : C-VT100
  647   "BLD",1058 9,1,319,0)
  648    
  649   "BLD",1058 9,1,320,0)
  650   Select OPT ION NAME:  XPD INS
  651   "BLD",1058 9,1,321,0)
  652        1   X PD INSTALL  BUILD        Install  Package(s )
  653   "BLD",1058 9,1,322,0)
  654        2   X PD INSTALL ATION MENU        Ins tallation
  655   "BLD",1058 9,1,323,0)
  656   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  657   "BLD",1058 9,1,324,0)
  658   Install Pa ckage(s)
  659   "BLD",1058 9,1,325,0)
  660   Select INS TALL NAME:     OR*3.0 *470     L oaded from  Distribut ion    
  661   "BLD",1058 9,1,326,0)
  662   12/12/17@2 3:4
  663   "BLD",1058 9,1,327,0)
  664   8:51
  665   "BLD",1058 9,1,328,0)
  666        => OR *3.0*470 1 2/11/17  ; Created on  Dec 11, 2 017@17:30: 33
  667   "BLD",1058 9,1,329,0)
  668    
  669   "BLD",1058 9,1,330,0)
  670   This Distr ibution wa s loaded o n Dec 12,  2017@23:48 :51 with h eader of 
  671   "BLD",1058 9,1,331,0)
  672      OR*3.0* 470 12/11/ 17  ;Creat ed on Dec  11, 2017@1 7:30:33
  673   "BLD",1058 9,1,332,0)
  674      It cons isted of t he followi ng Install (s):
  675   "BLD",1058 9,1,333,0)
  676        OR*3. 0*470
  677   "BLD",1058 9,1,334,0)
  678   Checking I nstall for  Package O R*3.0*470
  679   "BLD",1058 9,1,335,0)
  680    
  681   "BLD",1058 9,1,336,0)
  682   Install Qu estions fo r OR*3.0*4 70
  683   "BLD",1058 9,1,337,0)
  684    
  685   "BLD",1058 9,1,338,0)
  686   Incoming F iles:
  687   "BLD",1058 9,1,339,0)
  688    
  689   "BLD",1058 9,1,340,0)
  690    
  691   "BLD",1058 9,1,341,0)
  692      2          PATIENT   (Partial  Definitio n)
  693   "BLD",1058 9,1,342,0)
  694   Note:  You  already h ave the 'P ATIENT' Fi le.
  695   "BLD",1058 9,1,343,0)
  696    
  697   "BLD",1058 9,1,344,0)
  698   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install?  NO// 
  699   "BLD",1058 9,1,345,0)
  700   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  701   "BLD",1058 9,1,346,0)
  702   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  703   "BLD",1058 9,1,347,0)
  704    
  705   "BLD",1058 9,1,348,0)
  706   Enter the  Device you  want to p rint the I nstall mes sages.
  707   "BLD",1058 9,1,349,0)
  708   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  709   "BLD",1058 9,1,350,0)
  710   Enter a '^ ' to abort  the insta ll.
  711   "BLD",1058 9,1,351,0)
  712    
  713   "BLD",1058 9,1,352,0)
  714   DEVICE: HO ME//   CON SOLE
  715   "BLD",1058 9,1,353,0)
  716    
  717   "BLD",1058 9,1,354,0)
  718    Install S tarted for  OR*3.0*47 0 : 
  719   "BLD",1058 9,1,355,0)
  720                   Dec 1 2, 2017@23 :49:03
  721   "BLD",1058 9,1,356,0)
  722    
  723   "BLD",1058 9,1,357,0)
  724   Build Dist ribution D ate: Dec 1 1, 2017
  725   "BLD",1058 9,1,358,0)
  726    
  727   "BLD",1058 9,1,359,0)
  728    Installin g Routines :
  729   "BLD",1058 9,1,360,0)
  730                    Dec  12, 2017@2 3:49:04
  731   "BLD",1058 9,1,361,0)
  732    
  733   "BLD",1058 9,1,362,0)
  734    Installin g Data Dic tionaries:  
  735   "BLD",1058 9,1,363,0)
  736                    Dec  12, 2017@2 3:49:05
  737   "BLD",1058 9,1,364,0)
  738    
  739   "BLD",1058 9,1,365,0)
  740    Installin g PACKAGE  COMPONENTS
  741   "BLD",1058 9,1,366,0)
  742    
  743   "BLD",1058 9,1,367,0)
  744    Installin g HL LOGIC AL LINK
  745   "BLD",1058 9,1,368,0)
  746    
  747   "BLD",1058 9,1,369,0)
  748    Installin g PROTOCOL     
  749   "BLD",1058 9,1,370,0)
  750     Located  in the OR  (ORDER ENT RY/RESULTS  REPORTING ) namespac e.
  751   "BLD",1058 9,1,371,0)
  752     Located  in the OR  (ORDER ENT RY/RESULTS  REPORTING ) namespac e.
  753   "BLD",1058 9,1,372,0)
  754    
  755   "BLD",1058 9,1,373,0)
  756    Installin g LIST TEM PLATE
  757   "BLD",1058 9,1,374,0)
  758    
  759   "BLD",1058 9,1,375,0)
  760    Installin g OPTION
  761   "BLD",1058 9,1,376,0)
  762    
  763   "BLD",1058 9,1,377,0)
  764    Installin g PARAMETE R DEFINITI ON
  765   "BLD",1058 9,1,378,0)
  766    
  767   "BLD",1058 9,1,379,0)
  768    Installin g HLO APPL ICATION RE GISTRY
  769   "BLD",1058 9,1,380,0)
  770                    Dec  12, 2017@2 3:49:06
  771   "BLD",1058 9,1,381,0)
  772    
  773   "BLD",1058 9,1,382,0)
  774    Updating  Routine fi le...
  775   "BLD",1058 9,1,383,0)
  776    
  777   "BLD",1058 9,1,384,0)
  778    Updating  KIDS files ...
  779   "BLD",1058 9,1,385,0)
  780    
  781   "BLD",1058 9,1,386,0)
  782    OR*3.0*47 0 Installe d. 
  783   "BLD",1058 9,1,387,0)
  784                   Dec 1 2, 2017@23 :49:06
  785   "BLD",1058 9,1,388,0)
  786    
  787   "BLD",1058 9,1,389,0)
  788    No link t o PACKAGE  file
  789   "BLD",1058 9,1,390,0)
  790    
  791   "BLD",1058 9,1,391,0)
  792    NO Instal l Message  sent 
  793   "BLD",1058 9,1,392,0)
  794    
  795   "BLD",1058 9,1,393,0)
  796   Install Co mpleted
  797   "BLD",1058 9,1,394,0)
  798    
  799   "BLD",1058 9,1,395,0)
  800   VISTA>
  801   "BLD",1058 9,1,396,0)
  802    
  803   "BLD",1058 9,1,397,0)
  804    
  805   "BLD",1058 9,1,398,0)
  806    
  807   "BLD",1058 9,1,399,0)
  808   Patch Back out Instru ctions:
  809   "BLD",1058 9,1,400,0)
  810   ---------- ---------- ------
  811   "BLD",1058 9,1,401,0)
  812   1.      Go  to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect 
  813   "BLD",1058 9,1,402,0)
  814   the backup  message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup
  815   "BLD",1058 9,1,403,0)
  816   2.      Wh en prompte d 'Type <E nter> to c ontinue or  '^' to ex it:' type  '^' 
  817   "BLD",1058 9,1,404,0)
  818   and then < Enter>
  819   "BLD",1058 9,1,405,0)
  820   3.      Wh en prompte d 'Enter m essage act ion:' type  'Xtract P ackMan' an
  821   "BLD",1058 9,1,406,0)
  822   then <Ente r>
  823   "BLD",1058 9,1,407,0)
  824   4.      Th e followin g message  and the pr ompt will  display:
  825   "BLD",1058 9,1,408,0)
  826   Warning: I nstalling  this messa ge will ca use a perm anent upda te of glob als 
  827   "BLD",1058 9,1,409,0)
  828   and routin es.
  829   "BLD",1058 9,1,410,0)
  830   Do you rea lly want t o do this?  NO//' typ e 'YES' an d then <En ter>
  831   "BLD",1058 9,1,411,0)
  832   5.      Wh en prompte d: 
  833   "BLD",1058 9,1,412,0)
  834   'Shall I p reserve th e routines  on disk i n a separa te back-up  message? 
  835   "BLD",1058 9,1,413,0)
  836   YES//' typ e 'NO' and  then <Ent er>
  837   "BLD",1058 9,1,414,0)
  838   6.      Th e system w ill displa y the foll owing mess age and sh ow all the  
  839   "BLD",1058 9,1,415,0)
  840   routines t hat were u nloaded co nfirming t hat all th e routines  in the bu ild 
  841   "BLD",1058 9,1,416,0)
  842   have been  restored t o the prio r version  (unloaded) :
  843   "BLD",1058 9,1,417,0)
  844   'No backup  message b uilt.
  845   "BLD",1058 9,1,418,0)
  846    ***LIST o f routines  from back up. See fu ll routine  list at t he end of  the 
  847   "BLD",1058 9,1,419,0)
  848   document** *
  849   "BLD",1058 9,1,420,0)
  850    
  851   "BLD",1058 9,1,421,0)
  852   Select Pac kMan funct ion: and t hen <Enter >'
  853   "BLD",1058 9,1,422,0)
  854   7.      ne xVerify th at all six  routines  are listed  as above  have been 
  855   "BLD",1058 9,1,423,0)
  856   backed out :
  857   "BLD",1058 9,1,424,0)
  858   No backup  message bu ilt.
  859   "BLD",1058 9,1,425,0)
  860   When promp ted 'Want  KIDS to IN HIBIT LOGO Ns during  the instal l? NO//'
  861   "BLD",1058 9,1,426,0)
  862   Press <Ent er>.
  863   "BLD",1058 9,1,427,0)
  864   When promp ted 'Want  to DISABLE  Scheduled  Options,  Menu Optio ns, and 
  865   "BLD",1058 9,1,428,0)
  866   Protocols?  NO//' 
  867   "BLD",1058 9,1,429,0)
  868   Press <Ent er>.
  869   "BLD",1058 9,1,430,0)
  870   If prompte d 'Delay I nstall (Mi nutes):  ( 0 - 60): 0 //' respon d 0.
  871   "BLD",1058 9,1,431,0)
  872    
  873   "BLD",1058 9,1,432,0)
  874   8.      Th ere are no  globals t hat are be ing saved  off for th is patch t
  875   "BLD",1058 9,1,433,0)
  876   restore. A ll other o bjects sho uld be man ually back ed out or  deleted 
  877   "BLD",1058 9,1,434,0)
  878   Fileman. 
  879   "BLD",1058 9,1,435,0)
  880   9.      De leting Fil es:
  881   "BLD",1058 9,1,436,0)
  882   The follow ing filema n files sh ould be de leted unde r their re spective 
  883   "BLD",1058 9,1,437,0)
  884   groups. To  delete th e file, op en fileman  for the f ile specif ied. Look  for 
  885   "BLD",1058 9,1,438,0)
  886   the name a nd once se lected ent er @ to en ter the de lete optio n.
  887   "BLD",1058 9,1,439,0)
  888    
  889   "BLD",1058 9,1,440,0)
  890   Example:
  891   "BLD",1058 9,1,441,0)
  892   VA FileMan  22.2
  893   "BLD",1058 9,1,442,0)
  894    
  895   "BLD",1058 9,1,443,0)
  896    
  897   "BLD",1058 9,1,444,0)
  898   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  899   "BLD",1058 9,1,445,0)
  900    
  901   "BLD",1058 9,1,446,0)
  902   Input to w hat File:  PROTOCOL//              (4498 en tries)
  903   "BLD",1058 9,1,447,0)
  904   EDIT WHICH  FIELD: AL L//
  905   "BLD",1058 9,1,448,0)
  906    
  907   "BLD",1058 9,1,449,0)
  908    
  909   "BLD",1058 9,1,450,0)
  910   Select PRO TOCOL NAME : SD SIU T RIGGER        SD SIU  TRIGGER
  911   "BLD",1058 9,1,451,0)
  912   NAME: SD S IU TRIGGER // @
  913   "BLD",1058 9,1,452,0)
  914      SURE YO U WANT TO  DELETE THE  ENTIRE 'S D SIU TRIG GER' PROTO COL?
  915   "BLD",1058 9,1,453,0)
  916    
  917   "BLD",1058 9,1,454,0)
  918    
  919   "BLD",1058 9,1,455,0)
  920   HLO Applic ations:
  921   "BLD",1058 9,1,456,0)
  922   OR-ORM-OUT
  923   "BLD",1058 9,1,457,0)
  924    
  925   "BLD",1058 9,1,458,0)
  926   HLO Logica l Links:
  927   "BLD",1058 9,1,459,0)
  928   OR ORM OUT
  929   "BLD",1058 9,1,460,0)
  930    
  931   "BLD",1058 9,1,461,0)
  932   Parameters :
  933   "BLD",1058 9,1,462,0)
  934   ORMX C&P D EPARTMENT  ID
  935   "BLD",1058 9,1,463,0)
  936   ORMX CONV  THREADS
  937   "BLD",1058 9,1,464,0)
  938   ORMX FACIL ITY ID
  939   "BLD",1058 9,1,465,0)
  940   ORMX NEAR  DEPARTMENT  ID
  941   "BLD",1058 9,1,466,0)
  942   ORMX RTC O RDERABLE I D
  943   "BLD",1058 9,1,467,0)
  944   ORMX SCH D EFAULT FLA G
  945   "BLD",1058 9,1,468,0)
  946    
  947   "BLD",1058 9,1,469,0)
  948   List Templ ate:
  949   "BLD",1058 9,1,470,0)
  950   ORMX CONVE RSION
  951   "BLD",1058 9,1,471,0)
  952   ORMX SCHED ULABLE ACT ION
  953   "BLD",1058 9,1,472,0)
  954    
  955   "BLD",1058 9,1,473,0)
  956   Option
  957   "BLD",1058 9,1,474,0)
  958   ORMX UTILI TY
  959   "BLD",1058 9,1,475,0)
  960    
  961   "BLD",1058 9,1,476,0)
  962   Protocol:
  963   "BLD",1058 9,1,477,0)
  964   OR EVSEND  DVBA
  965   "BLD",1058 9,1,478,0)
  966   ORMX CHANG E DISPLAY  GROUP
  967   "BLD",1058 9,1,479,0)
  968   ORMX EVSEN D ADD COMM ENT
  969   "BLD",1058 9,1,480,0)
  970   ORMX GMRC  EVSEND UPD ATE
  971   "BLD",1058 9,1,481,0)
  972   ORMX ORM H L7 TRIGGER  - ADD COM MENTS
  973   "BLD",1058 9,1,482,0)
  974   ORMX ORM H L7 TRIGGER  - C&P Com ments
  975   "BLD",1058 9,1,483,0)
  976   ORMX ORM H L7 TRIGGER  - CONSULT S
  977   "BLD",1058 9,1,484,0)
  978   ORMX ORM H L7 TRIGGER  - ORDERS
  979   "BLD",1058 9,1,485,0)
  980   ORMX RUN C ONV
  981   "BLD",1058 9,1,486,0)
  982   ORMX SCHED ULABLE ACT ION
  983   "BLD",1058 9,1,487,0)
  984   ORMX SCHED ULABLE ACT ION MENU
  985   "BLD",1058 9,1,488,0)
  986    
  987   "BLD",1058 9,1,489,0)
  988    
  989   "BLD",1058 9,1,490,0)
  990   10.     Mo difying fi les:
  991   "BLD",1058 9,1,491,0)
  992   The follow ing files  can be upd ated in Fi leman but  they are e xisting 
  993   "BLD",1058 9,1,492,0)
  994   files. The y should n ot be dele ted. Inste ad reverti ng them ba ck will be  
  995   "BLD",1058 9,1,493,0)
  996   the correc t approach .
  997   "BLD",1058 9,1,494,0)
  998    
  999   "BLD",1058 9,1,495,0)
  1000   Example:
  1001   "BLD",1058 9,1,496,0)
  1002   VA FileMan  22.2
  1003   "BLD",1058 9,1,497,0)
  1004    
  1005   "BLD",1058 9,1,498,0)
  1006    
  1007   "BLD",1058 9,1,499,0)
  1008   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  1009   "BLD",1058 9,1,500,0)
  1010    
  1011   "BLD",1058 9,1,501,0)
  1012   Input to w hat File:  PROTOCOL//              (4498 en tries)
  1013   "BLD",1058 9,1,502,0)
  1014   EDIT WHICH  FIELD: AL L// item
  1015   "BLD",1058 9,1,503,0)
  1016        1   I TEM    (mu ltiple)
  1017   "BLD",1058 9,1,504,0)
  1018        2   I TEM TEXT
  1019   "BLD",1058 9,1,505,0)
  1020   CHOOSE 1-2 : 1  ITEM   (multiple )
  1021   "BLD",1058 9,1,506,0)
  1022      EDIT WH ICH ITEM S UB-FIELD:  ALL//
  1023   "BLD",1058 9,1,507,0)
  1024   THEN EDIT  FIELD:
  1025   "BLD",1058 9,1,508,0)
  1026    
  1027   "BLD",1058 9,1,509,0)
  1028    
  1029   "BLD",1058 9,1,510,0)
  1030   Select PRO TOCOL NAME : SDAM APP OINTMENT E VENTS        Appointm ent Event 
  1031   "BLD",1058 9,1,511,0)
  1032   Driver
  1033   "BLD",1058 9,1,512,0)
  1034    
  1035   "BLD",1058 9,1,513,0)
  1036   Select ITE M: SD SIU  TRIGGER//  SD SIU TRI GGER        SD SIU TR IGGER
  1037   "BLD",1058 9,1,514,0)
  1038            . ..OK? Yes/ /   (Yes)
  1039   "BLD",1058 9,1,515,0)
  1040    
  1041   "BLD",1058 9,1,516,0)
  1042     ITEM: SD  SIU TRIGG ER// @
  1043   "BLD",1058 9,1,517,0)
  1044      SURE YO U WANT TO  DELETE THE  ENTIRE IT EM?
  1045   "BLD",1058 9,1,518,0)
  1046    
  1047   "BLD",1058 9,1,519,0)
  1048   Protocol:
  1049   "BLD",1058 9,1,520,0)
  1050   OR EVSEND  DGPM              
  1051   "BLD",1058 9,1,521,0)
  1052   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1053   "BLD",1058 9,1,522,0)
  1054    
  1055   "BLD",1058 9,1,523,0)
  1056   OR EVSEND  FH                
  1057   "BLD",1058 9,1,524,0)
  1058   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1059   "BLD",1058 9,1,525,0)
  1060    
  1061   "BLD",1058 9,1,526,0)
  1062   OR EVSEND  GMRC              
  1063   "BLD",1058 9,1,527,0)
  1064   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1065   "BLD",1058 9,1,528,0)
  1066    
  1067   "BLD",1058 9,1,529,0)
  1068   OR EVSEND  LRAP              
  1069   "BLD",1058 9,1,530,0)
  1070   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1071   "BLD",1058 9,1,531,0)
  1072    
  1073   "BLD",1058 9,1,532,0)
  1074   OR EVSEND  LRBB              
  1075   "BLD",1058 9,1,533,0)
  1076   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1077   "BLD",1058 9,1,534,0)
  1078    
  1079   "BLD",1058 9,1,535,0)
  1080   OR EVSEND  LRCH              
  1081   "BLD",1058 9,1,536,0)
  1082   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1083   "BLD",1058 9,1,537,0)
  1084    
  1085   "BLD",1058 9,1,538,0)
  1086   OR EVSEND  ORG              
  1087   "BLD",1058 9,1,539,0)
  1088   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1089   "BLD",1058 9,1,540,0)
  1090    
  1091   "BLD",1058 9,1,541,0)
  1092   OR EVSEND  PS              
  1093   "BLD",1058 9,1,542,0)
  1094   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1095   "BLD",1058 9,1,543,0)
  1096    
  1097   "BLD",1058 9,1,544,0)
  1098   OR EVSEND  RA             
  1099   "BLD",1058 9,1,545,0)
  1100   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  1101   "BLD",1058 9,1,546,0)
  1102    
  1103   "BLD",1058 9,1,547,0)
  1104    
  1105   "BLD",1058 9,1,548,0)
  1106   11.     De leting an  item in a  file
  1107   "BLD",1058 9,1,549,0)
  1108   Item 11 ca n be remov ed from th e orderabl e Items fi le by goin g into Mod ify 
  1109   "BLD",1058 9,1,550,0)
  1110   File Attri butes in F ileman and  using the  @ to remo ve the ite m.
  1111   "BLD",1058 9,1,551,0)
  1112   Example:
  1113   "BLD",1058 9,1,552,0)
  1114   VA FileMan  22.2
  1115   "BLD",1058 9,1,553,0)
  1116    
  1117   "BLD",1058 9,1,554,0)
  1118   Select OPT ION: 4  MO DIFY FILE  ATTRIBUTES
  1119   "BLD",1058 9,1,555,0)
  1120   Do you wan t to use t he screen- mode versi on? YES//  n  NO
  1121   "BLD",1058 9,1,556,0)
  1122    
  1123   "BLD",1058 9,1,557,0)
  1124   Modify wha t File: PR OTOCOL// o rderable i tems    (1 702 entrie s)
  1125   "BLD",1058 9,1,558,0)
  1126    
  1127   "BLD",1058 9,1,559,0)
  1128    
  1129   "BLD",1058 9,1,560,0)
  1130   Select FIE LD: 11  MA SS SCHEDUL ING ACTION
  1131   "BLD",1058 9,1,561,0)
  1132   LABEL: MAS S SCHEDULI NG ACTION   Replace @
  1133   "BLD",1058 9,1,562,0)
  1134      SURE YO U WANT TO  DELETE THE  ENTIRE 'M ASS SCHEDU LING ACTIO N' FIELD?
  1135   "BLD",1058 9,1,563,0)
  1136    
  1137   "BLD",1058 9,1,564,0)
  1138   Post-Insta llation In structions :
  1139   "BLD",1058 9,1,565,0)
  1140   ---------- ---------- ---------- -
  1141   "BLD",1058 9,1,566,0)
  1142    
  1143   "BLD",1058 9,1,567,0)
  1144   Check list  to Verify :
  1145   "BLD",1058 9,1,568,0)
  1146    
  1147   "BLD",1058 9,1,569,0)
  1148   1.      It em 11 in t he orderab le items f ile.
  1149   "BLD",1058 9,1,570,0)
  1150   2.      HL O Applicat ions
  1151   "BLD",1058 9,1,571,0)
  1152   3.      HL  Logical L inks
  1153   "BLD",1058 9,1,572,0)
  1154   4.      Pr otocol
  1155   "BLD",1058 9,1,573,0)
  1156   5.      Pa rameters
  1157   "BLD",1058 9,1,574,0)
  1158   6.      Op tions
  1159   "BLD",1058 9,1,575,0)
  1160   7.      Li st Templat e
  1161   "BLD",1058 9,1,576,0)
  1162    
  1163   "BLD",1058 9,1,577,0)
  1164    
  1165   "BLD",1058 9,1,578,0)
  1166   Routine In formation:
  1167   "BLD",1058 9,1,579,0)
  1168   ========== ==========
  1169   "BLD",1058 9,1,580,0)
  1170    
  1171   "BLD",1058 9,1,581,0)
  1172    
  1173   "BLD",1058 9,1,582,0)
  1174   The second  line of e ach of the se routine s now look s like:
  1175   "BLD",1058 9,1,583,0)
  1176    
  1177   "BLD",1058 9,1,584,0)
  1178    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**[ Patch List ]**;Dec 17 , 1997;Bui ld 
  1179   "BLD",1058 9,1,585,0)
  1180   62
  1181   "BLD",1058 9,1,586,0)
  1182    
  1183   "BLD",1058 9,1,587,0)
  1184   The checks ums below  are new ch ecksums, a nd
  1185   "BLD",1058 9,1,588,0)
  1186    can be ch ecked with  CHECK1^XT SUMBLD.
  1187   "BLD",1058 9,1,589,0)
  1188    
  1189   "BLD",1058 9,1,590,0)
  1190   Routine Na me: ORCACT 1
  1191   "BLD",1058 9,1,591,0)
  1192       Before : B5001844 2   After:  B51038373    **7,27, 56,48,86,9 2,116,149, 215,
  1193   "BLD",1058 9,1,592,0)
  1194                                                  284,390 ,470**
  1195   "BLD",1058 9,1,593,0)
  1196   Routine Na me: ORMXCO NV
  1197   "BLD",1058 9,1,594,0)
  1198       Before :       n/ a   After:  B23256152 8  **470**
  1199   "BLD",1058 9,1,595,0)
  1200   Routine Na me: ORMXFM T
  1201   "BLD",1058 9,1,596,0)
  1202       Before :       n/ a   After:  B24275265 2  **470**
  1203   "BLD",1058 9,1,597,0)
  1204   Routine Na me: ORMXFM T1
  1205   "BLD",1058 9,1,598,0)
  1206       Before :       n/ a   After:  B83979073    **470**
  1207   "BLD",1058 9,1,599,0)
  1208   Routine Na me: ORMXTR
  1209   "BLD",1058 9,1,600,0)
  1210       Before :       n/ a   After:  B19000351 3  **470**
  1211   "BLD",1058 9,1,601,0)
  1212   Routine Na me: ORMXUT IL
  1213   "BLD",1058 9,1,602,0)
  1214       Before :       n/ a   After:  B11026599    **470**
  1215   "BLD",1058 9,1,603,0)
  1216   Rotuine Na me: ORMXHL 7
  1217   "BLD",1058 9,1,604,0)
  1218       Before :       n/ a   After:  B59928339    **470**
  1219   "BLD",1058 9,1,605,0)
  1220    
  1221   "BLD",1058 9,1,606,0)
  1222   Routine li st of prec eding patc hes: 390
  1223   "BLD",1058 9,1,607,0)
  1224    
  1225   "BLD",1058 9,1,608,0)
  1226    
  1227   "BLD",1058 9,1,609,0)
  1228   ========== ========== ========== ========== ========== ========== ========== ====
  1229   "BLD",1058 9,1,610,0)
  1230   User Infor mation:  
  1231   "BLD",1058 9,1,611,0)
  1232     Entered  By  :   NE EDHAM,MALC OLM      D ate Entere d  :   OCT   3,2017
  1233   "BLD",1058 9,1,612,0)
  1234     Complete d By:                          D ate Comple ted:   
  1235   "BLD",1058 9,1,613,0)
  1236     Released  By :                          D ate Releas ed :   
  1237   "BLD",1058 9,1,614,0)
  1238   ========== ========== ========== ========== ========== ========== ========== ===
  1239   "BLD",1058 9,4,0)
  1240   ^9.64PA^27 .11^4
  1241   "BLD",1058 9,4,2,0)
  1242   2
  1243   "BLD",1058 9,4,2,2,0)
  1244   ^9.641^2^1
  1245   "BLD",1058 9,4,2,2,2, 0)
  1246   PATIENT  ( File-top l evel)
  1247   "BLD",1058 9,4,2,2,2, 1,0)
  1248   ^9.6411^10 10.161^2
  1249   "BLD",1058 9,4,2,2,2, 1,1010.151 1,0)
  1250   APPOINTMEN T REQUEST  DATE
  1251   "BLD",1058 9,4,2,2,2, 1,1010.161 ,0)
  1252   APPOINTMEN T REQUEST  STATUS
  1253   "BLD",1058 9,4,2,222)
  1254   y^y^p^^^^n ^^n
  1255   "BLD",1058 9,4,2,224)
  1256  
  1257   "BLD",1058 9,4,27.11, 0)
  1258   27.11
  1259   "BLD",1058 9,4,27.11, 2,0)
  1260   ^9.641^27. 11^1
  1261   "BLD",1058 9,4,27.11, 2,27.11,0)
  1262   PATIENT EN ROLLMENT   (File-top  level)
  1263   "BLD",1058 9,4,27.11, 2,27.11,1, 0)
  1264   ^9.6411^.0 4^1
  1265   "BLD",1058 9,4,27.11, 2,27.11,1, .04,0)
  1266   ENROLLMENT  STATUS
  1267   "BLD",1058 9,4,27.11, 222)
  1268   y^y^p^^^^n ^^n
  1269   "BLD",1058 9,4,27.11, 224)
  1270  
  1271   "BLD",1058 9,4,101.43 ,0)
  1272   101.43
  1273   "BLD",1058 9,4,101.43 ,2,0)
  1274   ^9.641^101 .43^1
  1275   "BLD",1058 9,4,101.43 ,2,101.43, 0)
  1276   ORDERABLE  ITEMS  (Fi le-top lev el)
  1277   "BLD",1058 9,4,101.43 ,2,101.43, 1,0)
  1278   ^9.6411^11 ^1
  1279   "BLD",1058 9,4,101.43 ,2,101.43, 1,11,0)
  1280   MASS SCHED ULING ACTI ON
  1281   "BLD",1058 9,4,101.43 ,222)
  1282   y^y^p^^^^n ^^n
  1283   "BLD",1058 9,4,101.43 ,224)
  1284  
  1285   "BLD",1058 9,4,396.4, 0)
  1286   396.4
  1287   "BLD",1058 9,4,396.4, 2,0)
  1288   ^9.641^396 .4^1
  1289   "BLD",1058 9,4,396.4, 2,396.4,0)
  1290   2507 EXAM   (File-top  level)
  1291   "BLD",1058 9,4,396.4, 2,396.4,1, 0)
  1292   ^9.6411^.0 4^3
  1293   "BLD",1058 9,4,396.4, 2,396.4,1, .02,0)
  1294   2507 REQUE ST
  1295   "BLD",1058 9,4,396.4, 2,396.4,1, .03,0)
  1296   EXAM TYPE
  1297   "BLD",1058 9,4,396.4, 2,396.4,1, .04,0)
  1298   STATUS
  1299   "BLD",1058 9,4,396.4, 222)
  1300   y^y^p^^^^n ^^n
  1301   "BLD",1058 9,4,396.4, 224)
  1302  
  1303   "BLD",1058 9,4,"APDD" ,2,2)
  1304  
  1305   "BLD",1058 9,4,"APDD" ,2,2,1010. 1511)
  1306  
  1307   "BLD",1058 9,4,"APDD" ,2,2,1010. 161)
  1308  
  1309   "BLD",1058 9,4,"APDD" ,27.11,27. 11)
  1310  
  1311   "BLD",1058 9,4,"APDD" ,27.11,27. 11,.04)
  1312  
  1313   "BLD",1058 9,4,"APDD" ,101.43,10 1.43)
  1314  
  1315   "BLD",1058 9,4,"APDD" ,101.43,10 1.43,11)
  1316  
  1317   "BLD",1058 9,4,"APDD" ,396.4,396 .4)
  1318  
  1319   "BLD",1058 9,4,"APDD" ,396.4,396 .4,.02)
  1320  
  1321   "BLD",1058 9,4,"APDD" ,396.4,396 .4,.03)
  1322  
  1323   "BLD",1058 9,4,"APDD" ,396.4,396 .4,.04)
  1324  
  1325   "BLD",1058 9,4,"B",2, 2)
  1326  
  1327   "BLD",1058 9,4,"B",27 .11,27.11)
  1328  
  1329   "BLD",1058 9,4,"B",10 1.43,101.4 3)
  1330  
  1331   "BLD",1058 9,4,"B",39 6.4,396.4)
  1332  
  1333   "BLD",1058 9,6.3)
  1334   76
  1335   "BLD",1058 9,"ABPKG")
  1336   n
  1337   "BLD",1058 9,"INI")
  1338  
  1339   "BLD",1058 9,"INID")
  1340   ^^
  1341   "BLD",1058 9,"INIT")
  1342  
  1343   "BLD",1058 9,"KRN",0)
  1344   ^9.67PA^77 9.2^20
  1345   "BLD",1058 9,"KRN",.4 ,0)
  1346   .4
  1347   "BLD",1058 9,"KRN",.4 01,0)
  1348   .401
  1349   "BLD",1058 9,"KRN",.4 02,0)
  1350   .402
  1351   "BLD",1058 9,"KRN",.4 03,0)
  1352   .403
  1353   "BLD",1058 9,"KRN",.5 ,0)
  1354   .5
  1355   "BLD",1058 9,"KRN",.8 4,0)
  1356   .84
  1357   "BLD",1058 9,"KRN",3. 6,0)
  1358   3.6
  1359   "BLD",1058 9,"KRN",3. 8,0)
  1360   3.8
  1361   "BLD",1058 9,"KRN",9. 2,0)
  1362   9.2
  1363   "BLD",1058 9,"KRN",9. 8,0)
  1364   9.8
  1365   "BLD",1058 9,"KRN",9. 8,"NM",0)
  1366   ^9.68A^7^7
  1367   "BLD",1058 9,"KRN",9. 8,"NM",1,0 )
  1368   ORMXFMT^^0 ^B24275265 2
  1369   "BLD",1058 9,"KRN",9. 8,"NM",2,0 )
  1370   ORMXTR^^0^ B207478225
  1371   "BLD",1058 9,"KRN",9. 8,"NM",3,0 )
  1372   ORMXCONV^^ 0^B2325615 28
  1373   "BLD",1058 9,"KRN",9. 8,"NM",4,0 )
  1374   ORMXUTIL^^ 0^B1102659 9
  1375   "BLD",1058 9,"KRN",9. 8,"NM",5,0 )
  1376   ORMXFMT1^^ 0^B8370888 7
  1377   "BLD",1058 9,"KRN",9. 8,"NM",6,0 )
  1378   ORCACT1^^0 ^B51038373
  1379   "BLD",1058 9,"KRN",9. 8,"NM",7,0 )
  1380   ORMXHL7^^0 ^B59928339
  1381   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORCACT1" ,6)
  1382  
  1383   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXCONV ",3)
  1384  
  1385   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXFMT" ,1)
  1386  
  1387   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXFMT1 ",5)
  1388  
  1389   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXHL7" ,7)
  1390  
  1391   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXTR", 2)
  1392  
  1393   "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXUTIL ",4)
  1394  
  1395   "BLD",1058 9,"KRN",19 ,0)
  1396   19
  1397   "BLD",1058 9,"KRN",19 ,"NM",0)
  1398   ^9.68A^3^1
  1399   "BLD",1058 9,"KRN",19 ,"NM",3,0)
  1400   ORMX SET M ASS SCHEDU LE ACTION^ ^0
  1401   "BLD",1058 9,"KRN",19 ,"NM","B", "ORMX SET  MASS SCHED ULE ACTION ",3)
  1402  
  1403   "BLD",1058 9,"KRN",19 .1,0)
  1404   19.1
  1405   "BLD",1058 9,"KRN",10 1,0)
  1406   101
  1407   "BLD",1058 9,"KRN",10 1,"NM",0)
  1408   ^9.68A^26^ 22
  1409   "BLD",1058 9,"KRN",10 1,"NM",2,0 )
  1410   ORMX ORM H L7 TRIGGER  - CONSULT S^^0
  1411   "BLD",1058 9,"KRN",10 1,"NM",4,0 )
  1412   ORMX ORM H L7 TRIGGER  - ORDERS^ ^0
  1413   "BLD",1058 9,"KRN",10 1,"NM",5,0 )
  1414   OR EVSEND  RA^^2
  1415   "BLD",1058 9,"KRN",10 1,"NM",6,0 )
  1416   OR EVSEND  LRCH^^2
  1417   "BLD",1058 9,"KRN",10 1,"NM",7,0 )
  1418   OR EVSEND  LRAP^^2
  1419   "BLD",1058 9,"KRN",10 1,"NM",8,0 )
  1420   OR EVSEND  DGPM^^2
  1421   "BLD",1058 9,"KRN",10 1,"NM",9,0 )
  1422   OR EVSEND  FH^^2
  1423   "BLD",1058 9,"KRN",10 1,"NM",10, 0)
  1424   OR EVSEND  ORG^^2
  1425   "BLD",1058 9,"KRN",10 1,"NM",11, 0)
  1426   OR EVSEND  PS^^2
  1427   "BLD",1058 9,"KRN",10 1,"NM",12, 0)
  1428   OR EVSEND  GMRC^^2
  1429   "BLD",1058 9,"KRN",10 1,"NM",14, 0)
  1430   ORMX GMRC  EVSEND UPD ATE^^0
  1431   "BLD",1058 9,"KRN",10 1,"NM",15, 0)
  1432   ORMX CHANG E DISPLAY  GROUP^^0
  1433   "BLD",1058 9,"KRN",10 1,"NM",16, 0)
  1434   ORMX SCHED ULABLE ACT ION^^0
  1435   "BLD",1058 9,"KRN",10 1,"NM",17, 0)
  1436   OR EVSEND  DVBA^^0
  1437   "BLD",1058 9,"KRN",10 1,"NM",19, 0)
  1438   ORMX ORM H L7 TRIGGER  - ADD COM MENTS^^0
  1439   "BLD",1058 9,"KRN",10 1,"NM",20, 0)
  1440   ORMX ORM H L7 TRIGGER  - C&P UPD ATE^^0
  1441   "BLD",1058 9,"KRN",10 1,"NM",21, 0)
  1442   ORMX RUN C ONV^^0
  1443   "BLD",1058 9,"KRN",10 1,"NM",22, 0)
  1444   ORMX SCHED ULABLE ACT ION MENU^^ 0
  1445   "BLD",1058 9,"KRN",10 1,"NM",23, 0)
  1446   ORMX EVSEN D ADD COMM ENT^^0
  1447   "BLD",1058 9,"KRN",10 1,"NM",24, 0)
  1448   OR EVSEND  LRBB^^2
  1449   "BLD",1058 9,"KRN",10 1,"NM",25, 0)
  1450   OR EVSEND  SD^^2
  1451   "BLD",1058 9,"KRN",10 1,"NM",26, 0)
  1452   ORMX CONV  MENU^^0
  1453   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D DGPM",8)
  1454  
  1455   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D DVBA",17 )
  1456  
  1457   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D FH",9)
  1458  
  1459   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D GMRC",12 )
  1460  
  1461   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRAP",7)
  1462  
  1463   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRBB",24 )
  1464  
  1465   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRCH",6)
  1466  
  1467   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D ORG",10)
  1468  
  1469   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D PS",11)
  1470  
  1471   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D RA",5)
  1472  
  1473   "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D SD",25)
  1474  
  1475   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX CHA NGE DISPLA Y GROUP",1 5)
  1476  
  1477   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX CON V MENU",26 )
  1478  
  1479   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX EVS END ADD CO MMENT",23)
  1480  
  1481   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX GMR C EVSEND U PDATE",14)
  1482  
  1483   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM  HL7 TRIGG ER - ADD C OMMENTS",1 9)
  1484  
  1485   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM  HL7 TRIGG ER - C&P U PDATE",20)
  1486  
  1487   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM  HL7 TRIGG ER - CONSU LTS",2)
  1488  
  1489   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM  HL7 TRIGG ER - ORDER S",4)
  1490  
  1491   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX RUN  CONV",21)
  1492  
  1493   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX SCH EDULABLE A CTION",16)
  1494  
  1495   "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX SCH EDULABLE A CTION MENU ",22)
  1496  
  1497   "BLD",1058 9,"KRN",40 9.61,0)
  1498   409.61
  1499   "BLD",1058 9,"KRN",40 9.61,"NM", 0)
  1500   ^9.68A^2^2
  1501   "BLD",1058 9,"KRN",40 9.61,"NM", 1,0)
  1502   ORMX SCHED ULABLE ACT ION^^0
  1503   "BLD",1058 9,"KRN",40 9.61,"NM", 2,0)
  1504   ORMX CONVE RSION^^0
  1505   "BLD",1058 9,"KRN",40 9.61,"NM", "B","ORMX  CONVERSION ",2)
  1506  
  1507   "BLD",1058 9,"KRN",40 9.61,"NM", "B","ORMX  SCHEDULABL E ACTION", 1)
  1508  
  1509   "BLD",1058 9,"KRN",77 1,0)
  1510   771
  1511   "BLD",1058 9,"KRN",77 9.2,0)
  1512   779.2
  1513   "BLD",1058 9,"KRN",77 9.2,"NM",0 )
  1514   ^9.68A^1^1
  1515   "BLD",1058 9,"KRN",77 9.2,"NM",1 ,0)
  1516   OR-ORM-OUT ^^0
  1517   "BLD",1058 9,"KRN",77 9.2,"NM"," B","OR-ORM -OUT",1)
  1518  
  1519   "BLD",1058 9,"KRN",87 0,0)
  1520   870
  1521   "BLD",1058 9,"KRN",87 0,"NM",0)
  1522   ^9.68A^^0
  1523   "BLD",1058 9,"KRN",89 89.51,0)
  1524   8989.51
  1525   "BLD",1058 9,"KRN",89 89.51,"NM" ,0)
  1526   ^9.68A^7^7
  1527   "BLD",1058 9,"KRN",89 89.51,"NM" ,1,0)
  1528   ORMX C&P D EPARTMENT  ID^^0
  1529   "BLD",1058 9,"KRN",89 89.51,"NM" ,2,0)
  1530   ORMX NEAR  DEPARTMENT  ID^^0
  1531   "BLD",1058 9,"KRN",89 89.51,"NM" ,3,0)
  1532   ORMX FACIL ITY ID^^0
  1533   "BLD",1058 9,"KRN",89 89.51,"NM" ,4,0)
  1534   ORMX RTC O RDERABLE I D^^0
  1535   "BLD",1058 9,"KRN",89 89.51,"NM" ,5,0)
  1536   ORMX SCH D EFAULT FLA G^^0
  1537   "BLD",1058 9,"KRN",89 89.51,"NM" ,6,0)
  1538   ORMX CONV  THREADS^^0
  1539   "BLD",1058 9,"KRN",89 89.51,"NM" ,7,0)
  1540   ORMX RTC N LT PROMPT  ID^^0
  1541   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  C&P DEPAR TMENT ID", 1)
  1542  
  1543   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  CONV THRE ADS",6)
  1544  
  1545   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  FACILITY  ID",3)
  1546  
  1547   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  NEAR DEPA RTMENT ID" ,2)
  1548  
  1549   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  RTC NLT P ROMPT ID", 7)
  1550  
  1551   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  RTC ORDER ABLE ID",4 )
  1552  
  1553   "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX  SCH DEFAU LT FLAG",5 )
  1554  
  1555   "BLD",1058 9,"KRN",89 89.52,0)
  1556   8989.52
  1557   "BLD",1058 9,"KRN",89 94,0)
  1558   8994
  1559   "BLD",1058 9,"KRN","B ",.4,.4)
  1560  
  1561   "BLD",1058 9,"KRN","B ",.401,.40 1)
  1562  
  1563   "BLD",1058 9,"KRN","B ",.402,.40 2)
  1564  
  1565   "BLD",1058 9,"KRN","B ",.403,.40 3)
  1566  
  1567   "BLD",1058 9,"KRN","B ",.5,.5)
  1568  
  1569   "BLD",1058 9,"KRN","B ",.84,.84)
  1570  
  1571   "BLD",1058 9,"KRN","B ",3.6,3.6)
  1572  
  1573   "BLD",1058 9,"KRN","B ",3.8,3.8)
  1574  
  1575   "BLD",1058 9,"KRN","B ",9.2,9.2)
  1576  
  1577   "BLD",1058 9,"KRN","B ",9.8,9.8)
  1578  
  1579   "BLD",1058 9,"KRN","B ",19,19)
  1580  
  1581   "BLD",1058 9,"KRN","B ",19.1,19. 1)
  1582  
  1583   "BLD",1058 9,"KRN","B ",101,101)
  1584  
  1585   "BLD",1058 9,"KRN","B ",409.61,4 09.61)
  1586  
  1587   "BLD",1058 9,"KRN","B ",771,771)
  1588  
  1589   "BLD",1058 9,"KRN","B ",779.2,77 9.2)
  1590  
  1591   "BLD",1058 9,"KRN","B ",870,870)
  1592  
  1593   "BLD",1058 9,"KRN","B ",8989.51, 8989.51)
  1594  
  1595   "BLD",1058 9,"KRN","B ",8989.52, 8989.52)
  1596  
  1597   "BLD",1058 9,"KRN","B ",8994,899 4)
  1598  
  1599   "BLD",1058 9,"QDEF")
  1600   ^^^^NO^^^^ NO^^NO
  1601   "BLD",1058 9,"QUES",0 )
  1602   ^9.62^^
  1603   "BLD",1058 9,"REQB",0 )
  1604   ^9.611^3^3
  1605   "BLD",1058 9,"REQB",1 ,0)
  1606   OR*3.0*390 ^2
  1607   "BLD",1058 9,"REQB",2 ,0)
  1608   DG*5.3*948 ^2
  1609   "BLD",1058 9,"REQB",3 ,0)
  1610   SD*5.3*676 ^2
  1611   "BLD",1058 9,"REQB"," B","DG*5.3 *948",2)
  1612  
  1613   "BLD",1058 9,"REQB"," B","OR*3.0 *390",1)
  1614  
  1615   "BLD",1058 9,"REQB"," B","SD*5.3 *676",3)
  1616  
  1617   "FIA",2)
  1618   PATIENT
  1619   "FIA",2,0)
  1620   ^DPT(
  1621   "FIA",2,0, 0)
  1622   2I
  1623   "FIA",2,0, 1)
  1624   y^y^p^^^^n ^^n
  1625   "FIA",2,0, 10)
  1626  
  1627   "FIA",2,0, 11)
  1628  
  1629   "FIA",2,0, "RLRO")
  1630  
  1631   "FIA",2,0, "VR")
  1632   3.0^OR
  1633   "FIA",2,2)
  1634   1
  1635   "FIA",2,2, 1010.1511)
  1636  
  1637   "FIA",2,2, 1010.161)
  1638  
  1639   "FIA",27.1 1)
  1640   PATIENT EN ROLLMENT
  1641   "FIA",27.1 1,0)
  1642   ^DGEN(27.1 1,
  1643   "FIA",27.1 1,0,0)
  1644   27.11OID
  1645   "FIA",27.1 1,0,1)
  1646   y^y^p^^^^n ^^n
  1647   "FIA",27.1 1,0,10)
  1648  
  1649   "FIA",27.1 1,0,11)
  1650  
  1651   "FIA",27.1 1,0,"RLRO" )
  1652  
  1653   "FIA",27.1 1,0,"VR")
  1654   3.0^OR
  1655   "FIA",27.1 1,27.11)
  1656   1
  1657   "FIA",27.1 1,27.11,.0 4)
  1658  
  1659   "FIA",101. 43)
  1660   ORDERABLE  ITEMS
  1661   "FIA",101. 43,0)
  1662   ^ORD(101.4 3,
  1663   "FIA",101. 43,0,0)
  1664   101.43
  1665   "FIA",101. 43,0,1)
  1666   y^y^p^^^^n ^^n
  1667   "FIA",101. 43,0,10)
  1668  
  1669   "FIA",101. 43,0,11)
  1670  
  1671   "FIA",101. 43,0,"RLRO ")
  1672  
  1673   "FIA",101. 43,0,"VR")
  1674   3.0^OR
  1675   "FIA",101. 43,101.43)
  1676   1
  1677   "FIA",101. 43,101.43, 11)
  1678  
  1679   "FIA",396. 4)
  1680   2507 EXAM
  1681   "FIA",396. 4,0)
  1682   ^DVB(396.4 ,
  1683   "FIA",396. 4,0,0)
  1684   396.4I
  1685   "FIA",396. 4,0,1)
  1686   y^y^p^^^^n ^^n
  1687   "FIA",396. 4,0,10)
  1688  
  1689   "FIA",396. 4,0,11)
  1690  
  1691   "FIA",396. 4,0,"RLRO" )
  1692  
  1693   "FIA",396. 4,0,"VR")
  1694   3.0^OR
  1695   "FIA",396. 4,396.4)
  1696   1
  1697   "FIA",396. 4,396.4,.0 2)
  1698  
  1699   "FIA",396. 4,396.4,.0 3)
  1700  
  1701   "FIA",396. 4,396.4,.0 4)
  1702  
  1703   "IX",27.11 ,27.11,"AD ",0)
  1704   27.11^AD^T rigger NEA R Order on  Enrollmen t Update^M U^^R^IR^I^ 27.11^^^^^ A
  1705   "IX",27.11 ,27.11,"AD ",.1,0)
  1706   ^^1^1^3180 206^^
  1707   "IX",27.11 ,27.11,"AD ",.1,1,0)
  1708   Trigger NE AR Order o n Enrollme nt Update.
  1709   "IX",27.11 ,27.11,"AD ",1)
  1710   D TRFRMENR ^ORMXTR
  1711   "IX",27.11 ,27.11,"AD ",2)
  1712   Q
  1713   "IX",27.11 ,27.11,"AD ",11.1,0)
  1714   ^.114IA^2^ 2
  1715   "IX",27.11 ,27.11,"AD ",11.1,1,0 )
  1716   1^F^27.11^ .04^^^F
  1717   "IX",27.11 ,27.11,"AD ",11.1,2,0 )
  1718   2^F^27.11^ .02^^^F
  1719   "IX",396.4 ,396.4,"AG ",0)
  1720   396.4^AG^T his sends  MASS order  messages  for exam s tatus chan ges^MU^^R^ IR^I^396.4 ^^^^^A
  1721   "IX",396.4 ,396.4,"AG ",.1,0)
  1722   ^^2^2^3171 117^
  1723   "IX",396.4 ,396.4,"AG ",.1,1,0)
  1724   This cross -reference  sends an  HL7 messag e from MAS S to Epic  Cadence wh en 
  1725   "IX",396.4 ,396.4,"AG ",.1,2,0)
  1726   any of the  fields in  this cros s-referenc e change.
  1727   "IX",396.4 ,396.4,"AG ",1)
  1728   D TRCPMSG^ ORMXTR
  1729   "IX",396.4 ,396.4,"AG ",2)
  1730   Q
  1731   "IX",396.4 ,396.4,"AG ",11.1,0)
  1732   ^.114IA^3^ 3
  1733   "IX",396.4 ,396.4,"AG ",11.1,1,0 )
  1734   1^F^396.4^ .02^^^F
  1735   "IX",396.4 ,396.4,"AG ",11.1,2,0 )
  1736   2^F^396.4^ .03^^^F
  1737   "IX",396.4 ,396.4,"AG ",11.1,3,0 )
  1738   3^F^396.4^ .04^^^F
  1739   "KRN",19,1 1813,-1)
  1740   0^3
  1741   "KRN",19,1 1813,0)
  1742   ORMX SET M ASS SCHEDU LE ACTION^ Set MASS S chedulable  Action^^R ^^^^^^^^OR DER ENTRY/ RESULTS RE PORTING
  1743   "KRN",19,1 1813,1,0)
  1744   ^19.06^1^1 ^3171205^^ ^^
  1745   "KRN",19,1 1813,1,1,0 )
  1746   Use to set  the MASS  Schedulabl e Action f ield in OR D(101.43.
  1747   "KRN",19,1 1813,25)
  1748   SFEN^ORMXU TIL
  1749   "KRN",19,1 1813,"U")
  1750   SET MASS S CHEDULABLE  ACTION
  1751   "KRN",101, 2180,-1)
  1752   2^5
  1753   "KRN",101, 2180,0)
  1754   OR EVSEND  RA^OE/RR = > RAD/NM M ESSAGE EVE NT^^X^145^ ^^^^^^
  1755   "KRN",101, 2180,10,0)
  1756   ^101.01PA^ 5^5
  1757   "KRN",101, 2180,10,5, 0)
  1758   5011^^^
  1759   "KRN",101, 2180,10,5, "^")
  1760   ORMX ORM H L7 TRIGGER  - ORDERS
  1761   "KRN",101, 2181,-1)
  1762   2^6
  1763   "KRN",101, 2181,0)
  1764   OR EVSEND  LRCH^OE/RR  => LAB ME SSAGE EVEN T^^X^145^^ ^^^^^
  1765   "KRN",101, 2181,10,0)
  1766   ^101.01PA^ 7^6
  1767   "KRN",101, 2181,10,7, 0)
  1768   5011^^^
  1769   "KRN",101, 2181,10,7, "^")
  1770   ORMX ORM H L7 TRIGGER  - ORDERS
  1771   "KRN",101, 2183,-1)
  1772   2^24
  1773   "KRN",101, 2183,0)
  1774   OR EVSEND  LRBB^OE/RR  => BLOOD  BANK MESSA GE EVENT^^ X^1^^^^^^^
  1775   "KRN",101, 2183,10,0)
  1776   ^101.01PA^ 3^3
  1777   "KRN",101, 2183,10,3, 0)
  1778   5011^^^
  1779   "KRN",101, 2183,10,3, "^")
  1780   ORMX ORM H L7 TRIGGER  - ORDERS
  1781   "KRN",101, 2184,-1)
  1782   2^7
  1783   "KRN",101, 2184,0)
  1784   OR EVSEND  LRAP^OE/RR  => ANATOM IC PATH ME SSAGE EVEN T^^X^145^^ ^^^^^
  1785   "KRN",101, 2184,10,0)
  1786   ^101.01PA^ 5^4
  1787   "KRN",101, 2184,10,5, 0)
  1788   5011^^^
  1789   "KRN",101, 2184,10,5, "^")
  1790   ORMX ORM H L7 TRIGGER  - ORDERS
  1791   "KRN",101, 2185,-1)
  1792   2^8
  1793   "KRN",101, 2185,0)
  1794   OR EVSEND  DGPM^OE/RR  => MAS ME SSAGE EVEN T^^X^145^^ ^^^^^
  1795   "KRN",101, 2185,10,0)
  1796   ^101.01PA^ 3^3
  1797   "KRN",101, 2185,10,3, 0)
  1798   5011^^^
  1799   "KRN",101, 2185,10,3, "^")
  1800   ORMX ORM H L7 TRIGGER  - ORDERS
  1801   "KRN",101, 2186,-1)
  1802   2^9
  1803   "KRN",101, 2186,0)
  1804   OR EVSEND  FH^OE/RR = > DIET MES SAGE EVENT ^^X^145^^^ ^^^^
  1805   "KRN",101, 2186,10,0)
  1806   ^101.01PA^ 5^5
  1807   "KRN",101, 2186,10,5, 0)
  1808   5011^^^
  1809   "KRN",101, 2186,10,5, "^")
  1810   ORMX ORM H L7 TRIGGER  - ORDERS
  1811   "KRN",101, 2187,-1)
  1812   2^10
  1813   "KRN",101, 2187,0)
  1814   OR EVSEND  ORG^OE/RR  => GENERIC  MESSAGE E VENT^^X^14 5^^^^^^^
  1815   "KRN",101, 2187,10,0)
  1816   ^101.01PA^ 5^5
  1817   "KRN",101, 2187,10,5, 0)
  1818   5011^^^
  1819   "KRN",101, 2187,10,5, "^")
  1820   ORMX ORM H L7 TRIGGER  - ORDERS
  1821   "KRN",101, 2188,-1)
  1822   2^11
  1823   "KRN",101, 2188,0)
  1824   OR EVSEND  PS^OE/RR = > PHARMACY  MESSAGE E VENT^^X^14 5^^^^^^^
  1825   "KRN",101, 2188,10,0)
  1826   ^101.01PA^ 5^5
  1827   "KRN",101, 2188,10,5, 0)
  1828   5011^^^
  1829   "KRN",101, 2188,10,5, "^")
  1830   ORMX ORM H L7 TRIGGER  - ORDERS
  1831   "KRN",101, 2190,-1)
  1832   2^12
  1833   "KRN",101, 2190,0)
  1834   OR EVSEND  GMRC^OE/RR  => CONSUL TS MESSAGE  EVENT^^X^ 145^^^^^^^
  1835   "KRN",101, 2190,10,0)
  1836   ^101.01PA^ 7^7
  1837   "KRN",101, 2190,10,7, 0)
  1838   5011^^^
  1839   "KRN",101, 2190,10,7, "^")
  1840   ORMX ORM H L7 TRIGGER  - ORDERS
  1841   "KRN",101, 5011,-1)
  1842   0^4
  1843   "KRN",101, 5011,0)
  1844   ORMX ORM H L7 TRIGGER  - ORDERS^ ORMX ORM H L7 TRIGGER  - ORDERS^ ^A^^^^^^^^
  1845   "KRN",101, 5011,4)
  1846   ^^^24572
  1847   "KRN",101, 5011,20)
  1848   D TRORDMSG ^ORMXTR
  1849   "KRN",101, 5011,99)
  1850   64667,3697 1
  1851   "KRN",101, 5012,-1)
  1852   0^2
  1853   "KRN",101, 5012,0)
  1854   ORMX ORM H L7 TRIGGER  - CONSULT S^ORMX ORM  HL7 TRIGG ER - CONSU LTS^^A^^^^ ^^^^
  1855   "KRN",101, 5012,4)
  1856   ^^^24573
  1857   "KRN",101, 5012,20)
  1858   D TRGMRMSG ^ORMXTR
  1859   "KRN",101, 5012,99)
  1860   64667,3697 1
  1861   "KRN",101, 5013,-1)
  1862   2^25
  1863   "KRN",101, 5013,0)
  1864   OR EVSEND  SD^APPOINT MENT REQUE ST EVENT^^ X^110^^^^^ ^^
  1865   "KRN",101, 5013,10,0)
  1866   ^101.01PA^ 3^3
  1867   "KRN",101, 5013,10,3, 0)
  1868   5011^^^
  1869   "KRN",101, 5013,10,3, "^")
  1870   ORMX ORM H L7 TRIGGER  - ORDERS
  1871   "KRN",101, 5014,-1)
  1872   0^14
  1873   "KRN",101, 5014,0)
  1874   ORMX GMRC  EVSEND UPD ATE^ORMX G MRC EVSEND  UPDATE^^X ^^^^^^^^
  1875   "KRN",101, 5014,4)
  1876   ^^^24878
  1877   "KRN",101, 5014,10,0)
  1878   ^101.01PA^ 1^1
  1879   "KRN",101, 5014,10,1, 0)
  1880   5012^^^
  1881   "KRN",101, 5014,10,1, "^")
  1882   ORMX ORM H L7 TRIGGER  - CONSULT S
  1883   "KRN",101, 5014,99)
  1884   64667,3697 1
  1885   "KRN",101, 5015,-1)
  1886   0^16
  1887   "KRN",101, 5015,0)
  1888   ORMX SCHED ULABLE ACT ION^SET SC HEDULABLE  ACTION^^A^ ^^^^^^^
  1889   "KRN",101, 5015,15)
  1890   Q
  1891   "KRN",101, 5015,20)
  1892   D SFRUN^OR MXUTIL
  1893   "KRN",101, 5015,99)
  1894   64625,4345 0
  1895   "KRN",101, 5016,-1)
  1896   0^22
  1897   "KRN",101, 5016,0)
  1898   ORMX SCHED ULABLE ACT ION MENU^O RMX SCHEDU LABLE ACTI ON MENU^^M ^^^^^^^^
  1899   "KRN",101, 5016,4)
  1900   40^9
  1901   "KRN",101, 5016,10,0)
  1902   ^101.01PA^ 2^2
  1903   "KRN",101, 5016,10,1, 0)
  1904   5015^^^
  1905   "KRN",101, 5016,10,1, "^")
  1906   ORMX SCHED ULABLE ACT ION
  1907   "KRN",101, 5016,10,2, 0)
  1908   5017^^^
  1909   "KRN",101, 5016,10,2, "^")
  1910   ORMX CHANG E DISPLAY  GROUP
  1911   "KRN",101, 5016,26)
  1912   D SHOW^VAL M
  1913   "KRN",101, 5016,28)
  1914   Select Act ion:
  1915   "KRN",101, 5016,99)
  1916   64625,4345 0
  1917   "KRN",101, 5017,-1)
  1918   0^15
  1919   "KRN",101, 5017,0)
  1920   ORMX CHANG E DISPLAY  GROUP^CHAN GE DISPLAY  GROUP^^A^ ^^^^^^^
  1921   "KRN",101, 5017,15)
  1922   Q
  1923   "KRN",101, 5017,20)
  1924   D SFCHDGRP ^ORMXUTIL
  1925   "KRN",101, 5017,99)
  1926   64625,4345 0
  1927   "KRN",101, 5018,-1)
  1928   0^26
  1929   "KRN",101, 5018,0)
  1930   ORMX CONV  MENU^^^M^^ ^^^^^^
  1931   "KRN",101, 5018,4)
  1932   40^9
  1933   "KRN",101, 5018,10,0)
  1934   ^101.01PA^ 1^1
  1935   "KRN",101, 5018,10,1, 0)
  1936   5019^RUN^1 ^
  1937   "KRN",101, 5018,10,1, "^")
  1938   ORMX RUN C ONV
  1939   "KRN",101, 5018,26)
  1940   D SHOW^VAL M
  1941   "KRN",101, 5018,28)
  1942   Select Act ion
  1943   "KRN",101, 5018,99)
  1944   64650,5039 8
  1945   "KRN",101, 5019,-1)
  1946   0^21
  1947   "KRN",101, 5019,0)
  1948   ORMX RUN C ONV^Run Co nversion^^ A^^^^^^^^
  1949   "KRN",101, 5019,4)
  1950   ^3
  1951   "KRN",101, 5019,20)
  1952   D RUN^ORMX CONV
  1953   "KRN",101, 5019,99)
  1954   64650,5039 8
  1955   "KRN",101, 5020,-1)
  1956   0^19
  1957   "KRN",101, 5020,0)
  1958   ORMX ORM H L7 TRIGGER  - ADD COM MENTS^ORMX  ORM HL7 T RIGGER - A DD COMMENT S^^A^^^^^^ ^^
  1959   "KRN",101, 5020,4)
  1960   ^^^24574
  1961   "KRN",101, 5020,20)
  1962   D TRORCMT^ ORMXTR
  1963   "KRN",101, 5020,21,0)
  1964   ^101.021A
  1965   "KRN",101, 5020,99)
  1966   64618,5865 3
  1967   "KRN",101, 5021,-1)
  1968   0^23
  1969   "KRN",101, 5021,0)
  1970   ORMX EVSEN D ADD COMM ENT^ORMX E VSEND ADD  COMMENT^^X ^^^^^^^^
  1971   "KRN",101, 5021,4)
  1972   ^^^24575
  1973   "KRN",101, 5021,10,0)
  1974   ^101.01PA^ 1^1
  1975   "KRN",101, 5021,10,1, 0)
  1976   5020^^^
  1977   "KRN",101, 5021,10,1, "^")
  1978   ORMX ORM H L7 TRIGGER  - ADD COM MENTS
  1979   "KRN",101, 5021,99)
  1980   64618,5865 3
  1981   "KRN",101, 5022,-1)
  1982   0^17
  1983   "KRN",101, 5022,0)
  1984   OR EVSEND  DVBA^OE/RR  => C&P ME SSAGE EVEN T^^X^^^^^^ ^^
  1985   "KRN",101, 5022,10,0)
  1986   ^101.01PA^ 1^1
  1987   "KRN",101, 5022,10,1, 0)
  1988   5023^^^
  1989   "KRN",101, 5022,10,1, "^")
  1990   ORMX ORM H L7 TRIGGER  - C&P UPD ATE
  1991   "KRN",101, 5022,99)
  1992   64618,5865 3
  1993   "KRN",101, 5023,-1)
  1994   0^20
  1995   "KRN",101, 5023,0)
  1996   ORMX ORM H L7 TRIGGER  - C&P UPD ATE^ORMX O RM HL7 TRI GGER - C&P  UPDATE^^A ^^^^^^^^
  1997   "KRN",101, 5023,20)
  1998   D TRCPCMT^ ORMXTR
  1999   "KRN",101, 5023,99)
  2000   64618,5865 3
  2001   "KRN",409. 61,763,-1)
  2002   0^1
  2003   "KRN",409. 61,763,0)
  2004   ORMX SCHED ULABLE ACT ION^1^^80^ 4^20^^^^OR MX SCHEDUL ABLE ACTIO N MENU^Sch edulable A ction Util ity
  2005   "KRN",409. 61,763,1)
  2006   ^VALM HIDD EN ACTIONS
  2007   "KRN",409. 61,763,"CO L",0)
  2008   ^409.621^4 ^4
  2009   "KRN",409. 61,763,"CO L",1,0)
  2010   LINENO^2^5 ^Line^^1
  2011   "KRN",409. 61,763,"CO L",2,0)
  2012   ORDERABLE^ 8^5^ID
  2013   "KRN",409. 61,763,"CO L",3,0)
  2014   NAME^14^59 ^NAME
  2015   "KRN",409. 61,763,"CO L",4,0)
  2016   ACTION^74^ 6^ACTION
  2017   "KRN",409. 61,763,"CO L","AIDENT ",1,1)
  2018  
  2019   "KRN",409. 61,763,"CO L","B","AC TION",4)
  2020  
  2021   "KRN",409. 61,763,"CO L","B","LI NENO",1)
  2022  
  2023   "KRN",409. 61,763,"CO L","B","NA ME",3)
  2024  
  2025   "KRN",409. 61,763,"CO L","B","OR DERABLE",2 )
  2026  
  2027   "KRN",409. 61,763,"EX P")
  2028   D SFEXPND^ ORMXUTIL
  2029   "KRN",409. 61,763,"FN L")
  2030   D SFEXIT^O RMXUTIL
  2031   "KRN",409. 61,763,"HD R")
  2032   D SFHDR^OR MXUTIL
  2033   "KRN",409. 61,763,"HL P")
  2034   D SFHELP^O RMXUTIL
  2035   "KRN",409. 61,763,"IN IT")
  2036   D SFINIT^O RMXUTIL
  2037   "KRN",409. 61,764,-1)
  2038   0^2
  2039   "KRN",409. 61,764,0)
  2040   ORMX CONVE RSION^1^^8 0^5^14^0^1 ^^ORMX CON V MENU^ORM X Conversi on^1^^1
  2041   "KRN",409. 61,764,1)
  2042   ^VALM HIDD EN ACTIONS
  2043   "KRN",409. 61,764,"FN L")
  2044   D EXIT^ORM XCONV
  2045   "KRN",409. 61,764,"HD R")
  2046   D HDR^ORMX CONV
  2047   "KRN",409. 61,764,"HL P")
  2048   D HELP^ORM XCONV
  2049   "KRN",409. 61,764,"IN IT")
  2050   D INIT^ORM XCONV
  2051   "KRN",779. 2,25,-1)
  2052   0^1
  2053   "KRN",779. 2,25,0)
  2054   OR-ORM-OUT
  2055   "KRN",779. 2,25,2)
  2056   ORDER ENTR Y/RESULTS  REPORTING
  2057   "KRN",8989 .51,849,-1 )
  2058   0^3
  2059   "KRN",8989 .51,849,0)
  2060   ORMX FACIL ITY ID^FAC ILITY ID F OR ORDERS^ 0
  2061   "KRN",8989 .51,849,1)
  2062   F
  2063   "KRN",8989 .51,849,20 ,0)
  2064   ^^1^1^3171 114^
  2065   "KRN",8989 .51,849,20 ,1,0)
  2066   The Order  Facility I D is the u nique iden tifier of  this VistA  instance.
  2067   "KRN",8989 .51,849,30 ,0)
  2068   ^8989.513I ^1^1
  2069   "KRN",8989 .51,849,30 ,1,0)
  2070   1^4.2
  2071   "KRN",8989 .51,850,-1 )
  2072   0^1
  2073   "KRN",8989 .51,850,0)
  2074   ORMX C&P D EPARTMENT  ID^C&P DEP ARTMENT ID ^0^^^0
  2075   "KRN",8989 .51,850,1)
  2076   F^^Enter t he identif ier to sen d to MASS  for C&P de partment.
  2077   "KRN",8989 .51,850,20 ,0)
  2078   ^8989.512^ 1^1^317112 9^^^^
  2079   "KRN",8989 .51,850,20 ,1,0)
  2080   Identifier  to send t o MASS for  C&P depar tment.
  2081   "KRN",8989 .51,850,30 ,0)
  2082   ^8989.513I ^1^1
  2083   "KRN",8989 .51,850,30 ,1,0)
  2084   1^4.2
  2085   "KRN",8989 .51,851,-1 )
  2086   0^2
  2087   "KRN",8989 .51,851,0)
  2088   ORMX NEAR  DEPARTMENT  ID^NEAR L IST DEPART MENT ID^0^ ^^0
  2089   "KRN",8989 .51,851,1)
  2090   F^^Enter t he identif ier to sen d to MASS  for NEAR L ist depart ment.
  2091   "KRN",8989 .51,851,20 ,0)
  2092   ^8989.512^ 1^1^317112 9^^^
  2093   "KRN",8989 .51,851,20 ,1,0)
  2094   Identifier  to send t o MASS for  NEAR List  departmen t.
  2095   "KRN",8989 .51,851,30 ,0)
  2096   ^8989.513I ^1^1
  2097   "KRN",8989 .51,851,30 ,1,0)
  2098   1^4.2
  2099   "KRN",8989 .51,852,-1 )
  2100   0^5
  2101   "KRN",8989 .51,852,0)
  2102   ORMX SCH D EFAULT FLA G^SCHEDULA BLE ORDER  DEFAULT FL AG^0^^^0
  2103   "KRN",8989 .51,852,1)
  2104   N^^Default  value for  the order able item  schedulabl e flag
  2105   "KRN",8989 .51,852,20 ,0)
  2106   ^^8^8^3171 130^
  2107   "KRN",8989 .51,852,20 ,1,0)
  2108   This flag  determines  if ordera ble items  that do no t have a s chedulable  
  2109   "KRN",8989 .51,852,20 ,2,0)
  2110   flag speci fied are s chedulable .
  2111   "KRN",8989 .51,852,20 ,3,0)
  2112    
  2113   "KRN",8989 .51,852,20 ,4,0)
  2114   Options:
  2115   "KRN",8989 .51,852,20 ,5,0)
  2116   0 - Unsche dulable in  MASS
  2117   "KRN",8989 .51,852,20 ,6,0)
  2118   1 - Schedu lable in M ASS
  2119   "KRN",8989 .51,852,20 ,7,0)
  2120   2 - Schedu lable in M ASS and th e correspo nding orde r will be  completed  on 
  2121   "KRN",8989 .51,852,20 ,8,0)
  2122   scheduling .
  2123   "KRN",8989 .51,852,30 ,0)
  2124   ^8989.513I ^1^1
  2125   "KRN",8989 .51,852,30 ,1,0)
  2126   1^4.2
  2127   "KRN",8989 .51,854,-1 )
  2128   0^4
  2129   "KRN",8989 .51,854,0)
  2130   ORMX RTC O RDERABLE I D^IEN OF R TC ORDERAB LE^0^^^0
  2131   "KRN",8989 .51,854,1)
  2132   N^OR^Enter  the inter nal ID of  the ordera bles that  correspond  to RTCs
  2133   "KRN",8989 .51,854,30 ,0)
  2134   ^8989.513I ^1^1
  2135   "KRN",8989 .51,854,30 ,1,0)
  2136   1^4.2
  2137   "KRN",8989 .51,859,-1 )
  2138   0^6
  2139   "KRN",8989 .51,859,0)
  2140   ORMX CONV  THREADS^^^ ^^0
  2141   "KRN",8989 .51,859,1)
  2142   N^^Enter t he number  of threads  for the o rders conv ersion int erface
  2143   "KRN",8989 .51,859,20 ,0)
  2144   ^^2^2^3171 130^
  2145   "KRN",8989 .51,859,20 ,1,0)
  2146   When trigg ering the  conversion , this wil l allow mu ltiple app lication 
  2147   "KRN",8989 .51,859,20 ,2,0)
  2148   registries  to be use d
  2149   "KRN",8989 .51,859,30 ,0)
  2150   ^8989.513I ^1^1
  2151   "KRN",8989 .51,859,30 ,1,0)
  2152   1^4.2
  2153   "KRN",8989 .51,861,-1 )
  2154   0^7
  2155   "KRN",8989 .51,861,0)
  2156   ORMX RTC N LT PROMPT  ID^IEN of  the NLT fl ag ORDER D IALOG prom pt^0^^^0
  2157   "KRN",8989 .51,861,1)
  2158   N^^Enter t he ORDER D IALOG entr y for the  NLT flag p rompt
  2159   "KRN",8989 .51,861,20 ,0)
  2160   ^8989.512^ 2^2^318011 5^^^^
  2161   "KRN",8989 .51,861,20 ,1,0)
  2162   This is th e IEN of a n ORDER DI ALOG file  entry for  the "No la ter than" 
  2163   "KRN",8989 .51,861,20 ,2,0)
  2164   flag promp t on gener ic order r eturn to c linic orde rs
  2165   "KRN",8989 .51,861,30 ,0)
  2166   ^8989.513I ^1^1
  2167   "KRN",8989 .51,861,30 ,1,0)
  2168   1^4.2
  2169   "MBREQ")
  2170   0
  2171   "ORD",15,1 01)
  2172   101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA
  2173   "ORD",15,1 01,0)
  2174   PROTOCOL
  2175   "ORD",17,4 09.61)
  2176   409.61;17; 1;;;;LME1^ XPDIA1;;;L MDEL^XPDIA 1
  2177   "ORD",17,4 09.61,0)
  2178   LIST TEMPL ATE
  2179   "ORD",18,1 9)
  2180   19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
  2181   "ORD",18,1 9,0)
  2182   OPTION
  2183   "ORD",20,8 989.51)
  2184   8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%)
  2185   "ORD",20,8 989.51,0)
  2186   PARAMETER  DEFINITION
  2187   "ORD",22,7 79.2)
  2188   779.2;22;1 ;;HLOAP^XP DTA1;;HLOE ^XPDIA1;;;
  2189   "ORD",22,7 79.2,0)
  2190   HLO APPLIC ATION REGI STRY
  2191   "PKG",35,- 1)
  2192   1^1
  2193   "PKG",35,0 )
  2194   ORDER ENTR Y/RESULTS  REPORTING^ OR^Order E ntry/Resul ts Reporti ng
  2195   "PKG",35,2 0,0)
  2196   ^9.402P^^
  2197   "PKG",35,2 2,0)
  2198   ^9.49I^1^1
  2199   "PKG",35,2 2,1,0)
  2200   3.0^305111 9^2990416^ 1
  2201   "PKG",35,2 2,1,"PAH", 1,0)
  2202   470^318060 4
  2203   "PKG",35,2 2,1,"PAH", 1,1,0)
  2204   ^^614^614^ 3180604
  2205   "PKG",35,2 2,1,"PAH", 1,1,1,0)
  2206    
  2207   "PKG",35,2 2,1,"PAH", 1,1,2,0)
  2208   Associated  patches:  (v)OR*3*39 0    <<= m ust be ins talled BEF ORE `OR*3* 470'
  2209   "PKG",35,2 2,1,"PAH", 1,1,3,0)
  2210                         (u)DG*5.3* 948  <<= m ust be ins talled BEF ORE `OR*3* 470'
  2211   "PKG",35,2 2,1,"PAH", 1,1,4,0)
  2212                         (u)SD*5.3* 676  <<= m ust be ins talled BEF ORE `OR*3* 470'
  2213   "PKG",35,2 2,1,"PAH", 1,1,5,0)
  2214                       
  2215   "PKG",35,2 2,1,"PAH", 1,1,6,0)
  2216   Subject:   ORDER ENTR Y UPDATES  FOR EPIC C ADENCE/VIS TA INTERFA CE
  2217   "PKG",35,2 2,1,"PAH", 1,1,7,0)
  2218    
  2219   "PKG",35,2 2,1,"PAH", 1,1,8,0)
  2220   Category:   DATA DICT IONARY
  2221   "PKG",35,2 2,1,"PAH", 1,1,9,0)
  2222               ROUTINE
  2223   "PKG",35,2 2,1,"PAH", 1,1,10,0)
  2224               OTHER
  2225   "PKG",35,2 2,1,"PAH", 1,1,11,0)
  2226    
  2227   "PKG",35,2 2,1,"PAH", 1,1,12,0)
  2228   Associated  patches:  DG*5.3*948 , SD*5.3*6 76, OR*3.0 *390
  2229   "PKG",35,2 2,1,"PAH", 1,1,13,0)
  2230   Subject:   MASS ORDER S PATCH
  2231   "PKG",35,2 2,1,"PAH", 1,1,14,0)
  2232    
  2233   "PKG",35,2 2,1,"PAH", 1,1,15,0)
  2234   Category:   ORDERS, R OUTINE, PR OTOCOLS, I NTERFACES
  2235   "PKG",35,2 2,1,"PAH", 1,1,16,0)
  2236    
  2237   "PKG",35,2 2,1,"PAH", 1,1,17,0)
  2238   Descriptio n:
  2239   "PKG",35,2 2,1,"PAH", 1,1,18,0)
  2240   ---------- --
  2241   "PKG",35,2 2,1,"PAH", 1,1,19,0)
  2242   The Medica l Appointm ent Schedu ling Syste m (MASS) p rogram wil l deploy a  
  2243   "PKG",35,2 2,1,"PAH", 1,1,20,0)
  2244   commercial  schedulin g applicat ion to sup port sched ulers, and  
  2245   "PKG",35,2 2,1,"PAH", 1,1,21,0)
  2246   ultimately  our Veter ans, withi n the Chal mers P. Wy lie Depart ment of 
  2247   "PKG",35,2 2,1,"PAH", 1,1,22,0)
  2248   Veterans A ffairs (VA ) Ambulato ry Care Ce nter in Co lumbus, OH . This 
  2249   "PKG",35,2 2,1,"PAH", 1,1,23,0)
  2250   deployment  and integ ration wil l allow th e VA to mo ve from a 
  2251   "PKG",35,2 2,1,"PAH", 1,1,24,0)
  2252   clinic-bas ed schedul ing system  to a reso urce-based  schedulin g system, 
  2253   "PKG",35,2 2,1,"PAH", 1,1,25,0)
  2254   thereby st andardizin g and impr oving sche duling pro cesses, pr oviding
  2255   "PKG",35,2 2,1,"PAH", 1,1,26,0)
  2256   resource s upply mana gement, an d deliveri ng improve d access t o care 
  2257   "PKG",35,2 2,1,"PAH", 1,1,27,0)
  2258   for our Ve terans. 
  2259   "PKG",35,2 2,1,"PAH", 1,1,28,0)
  2260    
  2261   "PKG",35,2 2,1,"PAH", 1,1,29,0)
  2262   The MASS I ndefinite  Delivery/I ndefinite  Quantity ( IDIQ) cont ract 
  2263   "PKG",35,2 2,1,"PAH", 1,1,30,0)
  2264   establishe s the over arching re quirements  for the M ASS Contra ctor to 
  2265   "PKG",35,2 2,1,"PAH", 1,1,31,0)
  2266   incrementa lly captur e requirem ents, desi gn, develo p, deploy,  implement
  2267   "PKG",35,2 2,1,"PAH", 1,1,32,0)
  2268   and train  MASS acros s the VA h ealth care  enterpris e. This pr ogram 
  2269   "PKG",35,2 2,1,"PAH", 1,1,33,0)
  2270   involves i nitiation,  design, a nd executi on of a pi lot site a
  2271   "PKG",35,2 2,1,"PAH", 1,1,34,0)
  2272   Chalmers P . Wylie VA  Ambulator y Care Cen ter (herea fter refer red to as 
  2273   "PKG",35,2 2,1,"PAH", 1,1,35,0)
  2274   the Columb us ACC and  its assoc iated Comm unity Base d Outpatie nt Clinics
  2275   "PKG",35,2 2,1,"PAH", 1,1,36,0)
  2276   to demonst rate the M ASS busine ss value,  the integr ation of M ASS within
  2277   "PKG",35,2 2,1,"PAH", 1,1,37,0)
  2278   the VA ent erprise, t he impact  MASS will  have on va rious clin ical and 
  2279   "PKG",35,2 2,1,"PAH", 1,1,38,0)
  2280   administra tive proce sses and w orkflows,  and the ef fort neces sary for t he 
  2281   "PKG",35,2 2,1,"PAH", 1,1,39,0)
  2282   affected s takeholder s to adopt  these cha nges. 
  2283   "PKG",35,2 2,1,"PAH", 1,1,40,0)
  2284    
  2285   "PKG",35,2 2,1,"PAH", 1,1,41,0)
  2286   The enterp rise-wide  Medical Ap pointment  Scheduling  System (M ASS), 
  2287   "PKG",35,2 2,1,"PAH", 1,1,42,0)
  2288   enabled by  Cadence,  will manag e the appo intment li fecycle, i mprove 
  2289   "PKG",35,2 2,1,"PAH", 1,1,43,0)
  2290   clinical r esource ma nagement,  and inform  VHA manag ement at a ll 
  2291   "PKG",35,2 2,1,"PAH", 1,1,44,0)
  2292   organizati onal level s with rea l-time bus iness, res ource util ization 
  2293   "PKG",35,2 2,1,"PAH", 1,1,45,0)
  2294   and demand , supply,  and qualit y service  metrics in telligence . The MASS  
  2295   "PKG",35,2 2,1,"PAH", 1,1,46,0)
  2296   implementa tion will  address cr itical cha llenges fo r stakehol der and us er 
  2297   "PKG",35,2 2,1,"PAH", 1,1,47,0)
  2298   adoption a cross the  enterprise , seamless  integrati on with Vi stA, and 
  2299   "PKG",35,2 2,1,"PAH", 1,1,48,0)
  2300   preserver  local auto nomy while  introduci ng nationa lly standa rdized 
  2301   "PKG",35,2 2,1,"PAH", 1,1,49,0)
  2302   rules and  workflows.
  2303   "PKG",35,2 2,1,"PAH", 1,1,50,0)
  2304    
  2305   "PKG",35,2 2,1,"PAH", 1,1,51,0)
  2306   The OR*3.0 *470 patch  is the in itial rele ase of the  Medical A ppointment  
  2307   "PKG",35,2 2,1,"PAH", 1,1,52,0)
  2308   Scheduling  System (M ASS) Sched uling inte gration de velopment  for the Vi stA 
  2309   "PKG",35,2 2,1,"PAH", 1,1,53,0)
  2310   Pilot at C olumbus. T his patch  includes a ll of the  necessary  components  
  2311   "PKG",35,2 2,1,"PAH", 1,1,54,0)
  2312   that will  enable out going HL7  V2 ORM ord ering inte gration wi th MASS. 
  2313   "PKG",35,2 2,1,"PAH", 1,1,55,0)
  2314    
  2315   "PKG",35,2 2,1,"PAH", 1,1,56,0)
  2316   OR*3.0*470  patch enh ancements  include:
  2317   "PKG",35,2 2,1,"PAH", 1,1,57,0)
  2318    
  2319   "PKG",35,2 2,1,"PAH", 1,1,58,0)
  2320   1. Ability  to trigge r and buil d HL7v2 OR M messages  for any M ASS 
  2321   "PKG",35,2 2,1,"PAH", 1,1,59,0)
  2322      schedul able order
  2323   "PKG",35,2 2,1,"PAH", 1,1,60,0)
  2324   2. Placing  orders, u pdating or ders, or c anceling o rders in V istA or 
  2325   "PKG",35,2 2,1,"PAH", 1,1,61,0)
  2326      CPRS ca n now trig ger HL7v2  messages.  This inclu des adding  comments
  2327   "PKG",35,2 2,1,"PAH", 1,1,62,0)
  2328      to orde rs.
  2329   "PKG",35,2 2,1,"PAH", 1,1,63,0)
  2330   3. Ability  to set th e "Schedul able" item  on an ord erable rec ord using 
  2331   "PKG",35,2 2,1,"PAH", 1,1,64,0)
  2332      the "OR MX SET MAS S SCHEDULE  ACTION" u tility to  allow or p revent 
  2333   "PKG",35,2 2,1,"PAH", 1,1,65,0)
  2334      certain  orderable s in VistA  from trig gering HL7 v2 ORM mes sages.
  2335   "PKG",35,2 2,1,"PAH", 1,1,66,0)
  2336   4. Ability  to trigge r HL7v2 OR M messages  for conve rsion purp oses using  
  2337   "PKG",35,2 2,1,"PAH", 1,1,67,0)
  2338      the "OR MX CONV ME NU" utilit y. 
  2339   "PKG",35,2 2,1,"PAH", 1,1,68,0)
  2340   5. Ability  to comple te RTCs an d Recall R eminders f or convers ion purpos es 
  2341   "PKG",35,2 2,1,"PAH", 1,1,69,0)
  2342      using t he "ORMX C ONV MENU"  utility. 
  2343   "PKG",35,2 2,1,"PAH", 1,1,70,0)
  2344    
  2345   "PKG",35,2 2,1,"PAH", 1,1,71,0)
  2346   Patch Comp onents:
  2347   "PKG",35,2 2,1,"PAH", 1,1,72,0)
  2348   ---------- -------
  2349   "PKG",35,2 2,1,"PAH", 1,1,73,0)
  2350   HLO Applic ations:
  2351   "PKG",35,2 2,1,"PAH", 1,1,74,0)
  2352   OR-ORM-OUT
  2353   "PKG",35,2 2,1,"PAH", 1,1,75,0)
  2354    
  2355   "PKG",35,2 2,1,"PAH", 1,1,76,0)
  2356   HLO Logica l Links:
  2357   "PKG",35,2 2,1,"PAH", 1,1,77,0)
  2358   OR ORM OUT
  2359   "PKG",35,2 2,1,"PAH", 1,1,78,0)
  2360    
  2361   "PKG",35,2 2,1,"PAH", 1,1,79,0)
  2362   Parameters :
  2363   "PKG",35,2 2,1,"PAH", 1,1,80,0)
  2364   ORMX C&P D EPARTMENT  ID
  2365   "PKG",35,2 2,1,"PAH", 1,1,81,0)
  2366   ORMX CONV  THREADS
  2367   "PKG",35,2 2,1,"PAH", 1,1,82,0)
  2368   ORMX FACIL ITY ID
  2369   "PKG",35,2 2,1,"PAH", 1,1,83,0)
  2370   ORMX NEAR  DEPARTMENT  ID
  2371   "PKG",35,2 2,1,"PAH", 1,1,84,0)
  2372   ORMX RTC N LT PROMPT  ID
  2373   "PKG",35,2 2,1,"PAH", 1,1,85,0)
  2374   ORMX RTC O RDERABLE I D
  2375   "PKG",35,2 2,1,"PAH", 1,1,86,0)
  2376   ORMX SCH D EFAULT FLA G
  2377   "PKG",35,2 2,1,"PAH", 1,1,87,0)
  2378    
  2379   "PKG",35,2 2,1,"PAH", 1,1,88,0)
  2380   List Templ ate:
  2381   "PKG",35,2 2,1,"PAH", 1,1,89,0)
  2382   ORMX CONVE RSION
  2383   "PKG",35,2 2,1,"PAH", 1,1,90,0)
  2384   ORMX SCHED ULABLE ACT ION
  2385   "PKG",35,2 2,1,"PAH", 1,1,91,0)
  2386    
  2387   "PKG",35,2 2,1,"PAH", 1,1,92,0)
  2388   Files & Fi elds Assoc iated:
  2389   "PKG",35,2 2,1,"PAH", 1,1,93,0)
  2390    
  2391   "PKG",35,2 2,1,"PAH", 1,1,94,0)
  2392   File Name  (Number)          Fie ld Name (N umber)      New/Modif ied/Delete d
  2393   "PKG",35,2 2,1,"PAH", 1,1,95,0)
  2394   ---------- --------          --- ---------- ------      --------- ---------- -
  2395   "PKG",35,2 2,1,"PAH", 1,1,96,0)
  2396   ORDERABLE  ITEMS (101 .43)   MAS S SCHEDULA BLE         NEW
  2397   "PKG",35,2 2,1,"PAH", 1,1,97,0)
  2398   ACTION (11 )
  2399   "PKG",35,2 2,1,"PAH", 1,1,98,0)
  2400    
  2401   "PKG",35,2 2,1,"PAH", 1,1,99,0)
  2402   Forms Asso ciated:
  2403   "PKG",35,2 2,1,"PAH", 1,1,100,0)
  2404    
  2405   "PKG",35,2 2,1,"PAH", 1,1,101,0)
  2406   Form Name        File  #  New/Mo dified/Del eted
  2407   "PKG",35,2 2,1,"PAH", 1,1,102,0)
  2408   ---------        ---- --  ------ ---------- ----
  2409   "PKG",35,2 2,1,"PAH", 1,1,103,0)
  2410   None             N/A      N/A
  2411   "PKG",35,2 2,1,"PAH", 1,1,104,0)
  2412    
  2413   "PKG",35,2 2,1,"PAH", 1,1,105,0)
  2414   Mail Group s Associat ed:
  2415   "PKG",35,2 2,1,"PAH", 1,1,106,0)
  2416    
  2417   "PKG",35,2 2,1,"PAH", 1,1,107,0)
  2418   Mail Group  Name      New/Modifi ed/Deleted
  2419   "PKG",35,2 2,1,"PAH", 1,1,108,0)
  2420   ---------- -----      ---------- ----------
  2421   "PKG",35,2 2,1,"PAH", 1,1,109,0)
  2422   None                  N/A
  2423   "PKG",35,2 2,1,"PAH", 1,1,110,0)
  2424    
  2425   "PKG",35,2 2,1,"PAH", 1,1,111,0)
  2426   Options As sociated:
  2427   "PKG",35,2 2,1,"PAH", 1,1,112,0)
  2428    
  2429   "PKG",35,2 2,1,"PAH", 1,1,113,0)
  2430   Option Nam e              Type         New/ Modified/D eleted
  2431   "PKG",35,2 2,1,"PAH", 1,1,114,0)
  2432   ---------- -              ----         ---- ---------- ------ 
  2433   "PKG",35,2 2,1,"PAH", 1,1,115,0)
  2434   ORMX SET M ASS SCHEDU LE  RUN/RO UTINE      NEW
  2435   "PKG",35,2 2,1,"PAH", 1,1,116,0)
  2436   ACTION
  2437   "PKG",35,2 2,1,"PAH", 1,1,117,0)
  2438    
  2439   "PKG",35,2 2,1,"PAH", 1,1,118,0)
  2440   Protocols  Associated :
  2441   "PKG",35,2 2,1,"PAH", 1,1,119,0)
  2442    
  2443   "PKG",35,2 2,1,"PAH", 1,1,120,0)
  2444   Protocol N ame               New /Modified/ Deleted
  2445   "PKG",35,2 2,1,"PAH", 1,1,121,0)
  2446   ---------- ---               --- ---------- ------- 
  2447   "PKG",35,2 2,1,"PAH", 1,1,122,0)
  2448   OR EVSEND  DGPM              MOD IFIED
  2449   "PKG",35,2 2,1,"PAH", 1,1,123,0)
  2450   OR EVSEND  DVBA              NEW
  2451   "PKG",35,2 2,1,"PAH", 1,1,124,0)
  2452   OR EVSEND  FH                MOD IFIED
  2453   "PKG",35,2 2,1,"PAH", 1,1,125,0)
  2454   OR EVSEND  GMRC              MOD IFIED
  2455   "PKG",35,2 2,1,"PAH", 1,1,126,0)
  2456   OR EVSEND  LRAP              MOD IFIED
  2457   "PKG",35,2 2,1,"PAH", 1,1,127,0)
  2458   OR EVSEND  LRBB              MOD IFIED
  2459   "PKG",35,2 2,1,"PAH", 1,1,128,0)
  2460   OR EVSEND  LRCH              MOD IFIED
  2461   "PKG",35,2 2,1,"PAH", 1,1,129,0)
  2462   OR EVSEND  ORG               MOD IFIED
  2463   "PKG",35,2 2,1,"PAH", 1,1,130,0)
  2464   OR EVSEND  PS                MOD IFIED
  2465   "PKG",35,2 2,1,"PAH", 1,1,131,0)
  2466   OR EVSEND  RA                MOD IFIED
  2467   "PKG",35,2 2,1,"PAH", 1,1,132,0)
  2468   ORMX CHANG E DISPLAY  GROUP  NEW
  2469   "PKG",35,2 2,1,"PAH", 1,1,133,0)
  2470   ORMX EVSEN D ADD COMM ENT    NEW
  2471   "PKG",35,2 2,1,"PAH", 1,1,134,0)
  2472   ORMX GMRC  EVSEND UPD ATE    NEW
  2473   "PKG",35,2 2,1,"PAH", 1,1,135,0)
  2474   ORMX ORM H L7 TRIGGER        NEW
  2475   "PKG",35,2 2,1,"PAH", 1,1,136,0)
  2476   - ADD COMM ENTS
  2477   "PKG",35,2 2,1,"PAH", 1,1,137,0)
  2478   ORMX ORM H L7 TRIGGER        NEW
  2479   "PKG",35,2 2,1,"PAH", 1,1,138,0)
  2480   - C&P UPDA TE
  2481   "PKG",35,2 2,1,"PAH", 1,1,139,0)
  2482   ORMX ORM H L7 TRIGGER        NEW
  2483   "PKG",35,2 2,1,"PAH", 1,1,140,0)
  2484   - CONSULTS
  2485   "PKG",35,2 2,1,"PAH", 1,1,141,0)
  2486   ORMX ORM H L7 TRIGGER        NEW
  2487   "PKG",35,2 2,1,"PAH", 1,1,142,0)
  2488   - ORDERS
  2489   "PKG",35,2 2,1,"PAH", 1,1,143,0)
  2490   ORMX RUN C ONV               NEW
  2491   "PKG",35,2 2,1,"PAH", 1,1,144,0)
  2492   ORMX SCHED ULABLE ACT ION    NEW
  2493   "PKG",35,2 2,1,"PAH", 1,1,145,0)
  2494   ORMX SCHED ULABLE ACT ION    NEW
  2495   "PKG",35,2 2,1,"PAH", 1,1,146,0)
  2496   Menu
  2497   "PKG",35,2 2,1,"PAH", 1,1,147,0)
  2498    
  2499   "PKG",35,2 2,1,"PAH", 1,1,148,0)
  2500    
  2501   "PKG",35,2 2,1,"PAH", 1,1,149,0)
  2502   Security K eys Associ ated:
  2503   "PKG",35,2 2,1,"PAH", 1,1,150,0)
  2504    
  2505   "PKG",35,2 2,1,"PAH", 1,1,151,0)
  2506   Security K ey Name
  2507   "PKG",35,2 2,1,"PAH", 1,1,152,0)
  2508   ---------- -------
  2509   "PKG",35,2 2,1,"PAH", 1,1,153,0)
  2510   N/A
  2511   "PKG",35,2 2,1,"PAH", 1,1,154,0)
  2512    
  2513   "PKG",35,2 2,1,"PAH", 1,1,155,0)
  2514   Templates  Associated :
  2515   "PKG",35,2 2,1,"PAH", 1,1,156,0)
  2516    
  2517   "PKG",35,2 2,1,"PAH", 1,1,157,0)
  2518   Template N ame    Typ e    File  Name (Numb er)  New/M odified/De leted 
  2519   "PKG",35,2 2,1,"PAH", 1,1,158,0)
  2520   ---------- ---    --- -    ----- ---------- ---  ----- ---------- -----
  2521   "PKG",35,2 2,1,"PAH", 1,1,159,0)
  2522   None              N/A      N/A                   N/A
  2523   "PKG",35,2 2,1,"PAH", 1,1,160,0)
  2524    
  2525   "PKG",35,2 2,1,"PAH", 1,1,161,0)
  2526   Additional  Informati on:
  2527   "PKG",35,2 2,1,"PAH", 1,1,162,0)
  2528   N/A
  2529   "PKG",35,2 2,1,"PAH", 1,1,163,0)
  2530    
  2531   "PKG",35,2 2,1,"PAH", 1,1,164,0)
  2532   New Servic e Requests  (NSRs):
  2533   "PKG",35,2 2,1,"PAH", 1,1,165,0)
  2534   ---------- ---------- --------  
  2535   "PKG",35,2 2,1,"PAH", 1,1,166,0)
  2536   N/A
  2537   "PKG",35,2 2,1,"PAH", 1,1,167,0)
  2538    
  2539   "PKG",35,2 2,1,"PAH", 1,1,168,0)
  2540   Patient Sa fety Issue s (PSIs):
  2541   "PKG",35,2 2,1,"PAH", 1,1,169,0)
  2542   ---------- ---------- ---------
  2543   "PKG",35,2 2,1,"PAH", 1,1,170,0)
  2544   N/A
  2545   "PKG",35,2 2,1,"PAH", 1,1,171,0)
  2546    
  2547   "PKG",35,2 2,1,"PAH", 1,1,172,0)
  2548   Defect Tra cking Syst em Ticket( s) & Overv iew:
  2549   "PKG",35,2 2,1,"PAH", 1,1,173,0)
  2550   ---------- ---------- ---------- ---------- ----
  2551   "PKG",35,2 2,1,"PAH", 1,1,174,0)
  2552   N/A
  2553   "PKG",35,2 2,1,"PAH", 1,1,175,0)
  2554    
  2555   "PKG",35,2 2,1,"PAH", 1,1,176,0)
  2556   Problem:
  2557   "PKG",35,2 2,1,"PAH", 1,1,177,0)
  2558   -------
  2559   "PKG",35,2 2,1,"PAH", 1,1,178,0)
  2560   N/A
  2561   "PKG",35,2 2,1,"PAH", 1,1,179,0)
  2562    
  2563   "PKG",35,2 2,1,"PAH", 1,1,180,0)
  2564   Resolution :
  2565   "PKG",35,2 2,1,"PAH", 1,1,181,0)
  2566   ----------
  2567   "PKG",35,2 2,1,"PAH", 1,1,182,0)
  2568   N/A
  2569   "PKG",35,2 2,1,"PAH", 1,1,183,0)
  2570    
  2571   "PKG",35,2 2,1,"PAH", 1,1,184,0)
  2572   Test Sites :
  2573   "PKG",35,2 2,1,"PAH", 1,1,185,0)
  2574   ----------
  2575   "PKG",35,2 2,1,"PAH", 1,1,186,0)
  2576   Columbus,  OH
  2577   "PKG",35,2 2,1,"PAH", 1,1,187,0)
  2578    
  2579   "PKG",35,2 2,1,"PAH", 1,1,188,0)
  2580   Software a nd Documen tation Ret rieval Ins tructions:
  2581   "PKG",35,2 2,1,"PAH", 1,1,189,0)
  2582   ---------- ---------- ---------- ---------- ---------- -- 
  2583   "PKG",35,2 2,1,"PAH", 1,1,190,0)
  2584   Software b eing relea sed as a h ost file a nd/or docu mentation  describing  
  2585   "PKG",35,2 2,1,"PAH", 1,1,191,0)
  2586   the new fu nctionalit y introduc ed by this  patch are  available .
  2587   "PKG",35,2 2,1,"PAH", 1,1,192,0)
  2588    
  2589   "PKG",35,2 2,1,"PAH", 1,1,193,0)
  2590   The prefer red method  is to ret rieve file s from dow nload. DNS        . DNS     .
  2591   "PKG",35,2 2,1,"PAH", 1,1,194,0)
  2592   This trans mits the f iles from  the first  available  server. Si tes may 
  2593   "PKG",35,2 2,1,"PAH", 1,1,195,0)
  2594   also elect  to retrie ve files d irectly fr om a speci fic server
  2595   "PKG",35,2 2,1,"PAH", 1,1,196,0)
  2596    
  2597   "PKG",35,2 2,1,"PAH", 1,1,197,0)
  2598   Sites may  retrieve t he softwar e and/or d ocumentati on directl y using 
  2599   "PKG",35,2 2,1,"PAH", 1,1,198,0)
  2600   Secure Fil e Transfer  Protocol  (SFTP) fro m the ANON YMOUS.SOFT WARE 
  2601   "PKG",35,2 2,1,"PAH", 1,1,199,0)
  2602   directory  at the fol lowing 
  2603   "PKG",35,2 2,1,"PAH", 1,1,200,0)
  2604   OI Field O ffices:
  2605   "PKG",35,2 2,1,"PAH", 1,1,201,0)
  2606    
  2607   "PKG",35,2 2,1,"PAH", 1,1,202,0)
  2608   Hines:  DN S     .URL          
  2609   "PKG",35,2 2,1,"PAH", 1,1,203,0)
  2610   Salt Lake  City:        
. URL        
  2611   "PKG",35,2 2,1,"PAH", 1,1,204,0)
  2612    
  2613   "PKG",35,2 2,1,"PAH", 1,1,205,0)
  2614   Documentat ion can al so be foun d on the V A Software  Documenta tion Libra ry 
  2615   "PKG",35,2 2,1,"PAH", 1,1,206,0)
  2616   at:
  2617   "PKG",35,2 2,1,"PAH", 1,1,207,0)
  2618   http://www . DNS     /vdl/
  2619   "PKG",35,2 2,1,"PAH", 1,1,208,0)
  2620    
  2621   "PKG",35,2 2,1,"PAH", 1,1,209,0)
  2622    
  2623   "PKG",35,2 2,1,"PAH", 1,1,210,0)
  2624   Title   Fi le Name        FTP Mo de
  2625   "PKG",35,2 2,1,"PAH", 1,1,211,0)
  2626   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  2627   "PKG",35,2 2,1,"PAH", 1,1,212,0)
  2628   N/A
  2629   "PKG",35,2 2,1,"PAH", 1,1,213,0)
  2630    
  2631   "PKG",35,2 2,1,"PAH", 1,1,214,0)
  2632   Patch Inst allation:
  2633   "PKG",35,2 2,1,"PAH", 1,1,215,0)
  2634    
  2635   "PKG",35,2 2,1,"PAH", 1,1,216,0)
  2636   Pre/Post I nstallatio n Overview :
  2637   "PKG",35,2 2,1,"PAH", 1,1,217,0)
  2638   ---------- ---------- ---------- -
  2639   "PKG",35,2 2,1,"PAH", 1,1,218,0)
  2640   N/A
  2641   "PKG",35,2 2,1,"PAH", 1,1,219,0)
  2642    
  2643   "PKG",35,2 2,1,"PAH", 1,1,220,0)
  2644   Pre-Instal lation Ins tructions:
  2645   "PKG",35,2 2,1,"PAH", 1,1,221,0)
  2646   ---------- ---------- ----------
  2647   "PKG",35,2 2,1,"PAH", 1,1,222,0)
  2648   This patch  may be in stalled wi th users o n the syst em althoug h it is 
  2649   "PKG",35,2 2,1,"PAH", 1,1,223,0)
  2650   recommende d that it  be install ed during  non-peak h ours to mi nimize
  2651   "PKG",35,2 2,1,"PAH", 1,1,224,0)
  2652   potential  disruption  to users.   This pat ch should  take less  than 5 
  2653   "PKG",35,2 2,1,"PAH", 1,1,225,0)
  2654   minutes to  install. 
  2655   "PKG",35,2 2,1,"PAH", 1,1,226,0)
  2656    
  2657   "PKG",35,2 2,1,"PAH", 1,1,227,0)
  2658   There are  no listman  Options t hat need t o be disab led for th is patch.
  2659   "PKG",35,2 2,1,"PAH", 1,1,228,0)
  2660    
  2661   "PKG",35,2 2,1,"PAH", 1,1,229,0)
  2662   Installati on Instruc tions:
  2663   "PKG",35,2 2,1,"PAH", 1,1,230,0)
  2664   ---------- ---------- ------
  2665   "PKG",35,2 2,1,"PAH", 1,1,231,0)
  2666    
  2667   "PKG",35,2 2,1,"PAH", 1,1,232,0)
  2668   1.      Ch oose the P ackMan mes sage conta ining this  patch.
  2669   "PKG",35,2 2,1,"PAH", 1,1,233,0)
  2670    
  2671   "PKG",35,2 2,1,"PAH", 1,1,234,0)
  2672   2.      Ch oose the I NSTALL/CHE CK MESSAGE  PackMan o ption. 
  2673   "PKG",35,2 2,1,"PAH", 1,1,235,0)
  2674    
  2675   "PKG",35,2 2,1,"PAH", 1,1,236,0)
  2676   3.      Fr om the Ker nel Instal lation and  Distribut ion System  Menu, sel ect 
  2677   "PKG",35,2 2,1,"PAH", 1,1,237,0)
  2678   the Instal lation Men u (See Ins tall Promp ts Sample  below for  more 
  2679   "PKG",35,2 2,1,"PAH", 1,1,238,0)
  2680   detail).   From this  menu, you  may elect  to use the  following  options. 
  2681   "PKG",35,2 2,1,"PAH", 1,1,239,0)
  2682   When promp ted for th e INSTALL  NAME enter  the patch  OR*3.0*47 0:
  2683   "PKG",35,2 2,1,"PAH", 1,1,240,0)
  2684   a.      Ba ckup a Tra nsport Glo bal - This  option wi ll create  a backup 
  2685   "PKG",35,2 2,1,"PAH", 1,1,241,0)
  2686   message of  any routi nes export ed with th is patch.  It will no t backup a ny 
  2687   "PKG",35,2 2,1,"PAH", 1,1,242,0)
  2688   other chan ges such a s DDs or t emplates.
  2689   "PKG",35,2 2,1,"PAH", 1,1,243,0)
  2690   b.      Co mpare Tran sport Glob al to Curr ent System  - This op tion will 
  2691   "PKG",35,2 2,1,"PAH", 1,1,244,0)
  2692   (allow you  to view a ll changes  that will  be made w hen this p atch         
  2693   "PKG",35,2 2,1,"PAH", 1,1,245,0)
  2694   is install ed.  It co mpares all  component s of this  patch rout ines, DDs,  
  2695   "PKG",35,2 2,1,"PAH", 1,1,246,0)
  2696   templates,  etc.).
  2697   "PKG",35,2 2,1,"PAH", 1,1,247,0)
  2698   c.      Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow  you 
  2699   "PKG",35,2 2,1,"PAH", 1,1,248,0)
  2700   to ensure  the integr ity of the  routines  that are i n the tran sport glob al.
  2701   "PKG",35,2 2,1,"PAH", 1,1,249,0)
  2702   4.       F rom the In stallation  Menu, sel ect the In stall Pack age(s) opt ion 
  2703   "PKG",35,2 2,1,"PAH", 1,1,250,0)
  2704   and choose  the patch  to instal l.
  2705   "PKG",35,2 2,1,"PAH", 1,1,251,0)
  2706    
  2707   "PKG",35,2 2,1,"PAH", 1,1,252,0)
  2708   5.      Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon  Completion  of 
  2709   "PKG",35,2 2,1,"PAH", 1,1,253,0)
  2710   Install? N O//' 
  2711   "PKG",35,2 2,1,"PAH", 1,1,254,0)
  2712    
  2713   "PKG",35,2 2,1,"PAH", 1,1,255,0)
  2714   6.      Wh en prompte d 'Want KI DS to INHI BIT LOGONs  during th e install?  
  2715   "PKG",35,2 2,1,"PAH", 1,1,256,0)
  2716   NO//'
  2717   "PKG",35,2 2,1,"PAH", 1,1,257,0)
  2718    
  2719   "PKG",35,2 2,1,"PAH", 1,1,258,0)
  2720   7.      Wh en prompte d 'Want to  DISABLE S cheduled O ptions, Me nu Options
  2721   "PKG",35,2 2,1,"PAH", 1,1,259,0)
  2722   and Protoc ols? NO//'  
  2723   "PKG",35,2 2,1,"PAH", 1,1,260,0)
  2724    
  2725   "PKG",35,2 2,1,"PAH", 1,1,261,0)
  2726   8.      If  prompted  'Delay Ins tall (Minu tes):  (0  - 60): 0// ' respond  0.
  2727   "PKG",35,2 2,1,"PAH", 1,1,262,0)
  2728    
  2729   "PKG",35,2 2,1,"PAH", 1,1,263,0)
  2730    
  2731   "PKG",35,2 2,1,"PAH", 1,1,264,0)
  2732   Install Pr ompts Samp le:
  2733   "PKG",35,2 2,1,"PAH", 1,1,265,0)
  2734   ---------- ---------- ------
  2735   "PKG",35,2 2,1,"PAH", 1,1,266,0)
  2736    
  2737   "PKG",35,2 2,1,"PAH", 1,1,267,0)
  2738   VISTA>D ^X UP
  2739   "PKG",35,2 2,1,"PAH", 1,1,268,0)
  2740    
  2741   "PKG",35,2 2,1,"PAH", 1,1,269,0)
  2742   Setting up  programme r environm ent
  2743   "PKG",35,2 2,1,"PAH", 1,1,270,0)
  2744   This is a  TEST accou nt.
  2745   "PKG",35,2 2,1,"PAH", 1,1,271,0)
  2746    
  2747   "PKG",35,2 2,1,"PAH", 1,1,272,0)
  2748   Terminal T ype set to : C-VT100
  2749   "PKG",35,2 2,1,"PAH", 1,1,273,0)
  2750    
  2751   "PKG",35,2 2,1,"PAH", 1,1,274,0)
  2752   Select OPT ION NAME:  XPD LOAD D ISTRIBUTIO N       Lo ad a Distr ibution
  2753   "PKG",35,2 2,1,"PAH", 1,1,275,0)
  2754   Load a Dis tribution
  2755   "PKG",35,2 2,1,"PAH", 1,1,276,0)
  2756    
  2757   "PKG",35,2 2,1,"PAH", 1,1,277,0)
  2758   Enter a Ho st File: C :\HFS\OR_3 _0_470.KID
  2759   "PKG",35,2 2,1,"PAH", 1,1,278,0)
  2760    
  2761   "PKG",35,2 2,1,"PAH", 1,1,279,0)
  2762   KIDS Distr ibution sa ved on Dec  11, 2017@ 17:30:33
  2763   "PKG",35,2 2,1,"PAH", 1,1,280,0)
  2764   Comment: O R*3.0*470  12/11/17
  2765   "PKG",35,2 2,1,"PAH", 1,1,281,0)
  2766    
  2767   "PKG",35,2 2,1,"PAH", 1,1,282,0)
  2768   This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s):
  2769   "PKG",35,2 2,1,"PAH", 1,1,283,0)
  2770   Build OR*3 .0*470 has  been load ed before,  here is w hen: 
  2771   "PKG",35,2 2,1,"PAH", 1,1,284,0)
  2772         OR*3 .0*470   I nstall Com pleted
  2773   "PKG",35,2 2,1,"PAH", 1,1,285,0)
  2774                       w as loaded  on Oct 05,  2017@22:4 3:32
  2775   "PKG",35,2 2,1,"PAH", 1,1,286,0)
  2776         OR*3 .0*470   I nstall Com pleted
  2777   "PKG",35,2 2,1,"PAH", 1,1,287,0)
  2778                       w as loaded  on Oct 05,  2017@22:4 8:51
  2779   "PKG",35,2 2,1,"PAH", 1,1,288,0)
  2780         OR*3 .0*470   I nstall Com pleted
  2781   "PKG",35,2 2,1,"PAH", 1,1,289,0)
  2782                       w as loaded  on Oct 10,  2017@16:0 8:28
  2783   "PKG",35,2 2,1,"PAH", 1,1,290,0)
  2784         OR*3 .0*470   I nstall Com pleted
  2785   "PKG",35,2 2,1,"PAH", 1,1,291,0)
  2786                       w as loaded  on Nov 15,  2017@00:1 2:12
  2787   "PKG",35,2 2,1,"PAH", 1,1,292,0)
  2788         OR*3 .0*470   I nstall Com pleted
  2789   "PKG",35,2 2,1,"PAH", 1,1,293,0)
  2790                       w as loaded  on Nov 17,  2017@14:1 3:21
  2791   "PKG",35,2 2,1,"PAH", 1,1,294,0)
  2792         OR*3 .0*470   I nstall Com pleted
  2793   "PKG",35,2 2,1,"PAH", 1,1,295,0)
  2794                       w as loaded  on Nov 17,  2017@14:1 5:43
  2795   "PKG",35,2 2,1,"PAH", 1,1,296,0)
  2796         OR*3 .0*470   I nstall Com pleted
  2797   "PKG",35,2 2,1,"PAH", 1,1,297,0)
  2798                       w as loaded  on Nov 20,  2017@14:5 8:56
  2799   "PKG",35,2 2,1,"PAH", 1,1,298,0)
  2800         OR*3 .0*470   I nstall Com pleted
  2801   "PKG",35,2 2,1,"PAH", 1,1,299,0)
  2802                       w as loaded  on Nov 21,  2017@15:4 0:15
  2803   "PKG",35,2 2,1,"PAH", 1,1,300,0)
  2804         OR*3 .0*470   I nstall Com pleted
  2805   "PKG",35,2 2,1,"PAH", 1,1,301,0)
  2806                       w as loaded  on Nov 30,  2017@15:0 5:17
  2807   "PKG",35,2 2,1,"PAH", 1,1,302,0)
  2808         OR*3 .0*470   I nstall Com pleted
  2809   "PKG",35,2 2,1,"PAH", 1,1,303,0)
  2810                       w as loaded  on Dec 05,  2017@16:1 6:23
  2811   "PKG",35,2 2,1,"PAH", 1,1,304,0)
  2812   OK to cont inue with  Load? NO//  YES
  2813   "PKG",35,2 2,1,"PAH", 1,1,305,0)
  2814    
  2815   "PKG",35,2 2,1,"PAH", 1,1,306,0)
  2816   Distributi on OK!
  2817   "PKG",35,2 2,1,"PAH", 1,1,307,0)
  2818    
  2819   "PKG",35,2 2,1,"PAH", 1,1,308,0)
  2820   Want to Co ntinue wit h Load? YE S// 
  2821   "PKG",35,2 2,1,"PAH", 1,1,309,0)
  2822   Loading Di stribution ...
  2823   "PKG",35,2 2,1,"PAH", 1,1,310,0)
  2824    
  2825   "PKG",35,2 2,1,"PAH", 1,1,311,0)
  2826      OR*3.0* 470
  2827   "PKG",35,2 2,1,"PAH", 1,1,312,0)
  2828   Use INSTAL L NAME: OR *3.0*470 t o install  this Distr ibution.
  2829   "PKG",35,2 2,1,"PAH", 1,1,313,0)
  2830    
  2831   "PKG",35,2 2,1,"PAH", 1,1,314,0)
  2832   VISTA>D ^X UP
  2833   "PKG",35,2 2,1,"PAH", 1,1,315,0)
  2834    
  2835   "PKG",35,2 2,1,"PAH", 1,1,316,0)
  2836   Setting up  programme r environm ent
  2837   "PKG",35,2 2,1,"PAH", 1,1,317,0)
  2838   This is a  TEST accou nt.
  2839   "PKG",35,2 2,1,"PAH", 1,1,318,0)
  2840   Terminal T ype set to : C-VT100
  2841   "PKG",35,2 2,1,"PAH", 1,1,319,0)
  2842    
  2843   "PKG",35,2 2,1,"PAH", 1,1,320,0)
  2844   Select OPT ION NAME:  XPD INS
  2845   "PKG",35,2 2,1,"PAH", 1,1,321,0)
  2846        1   X PD INSTALL  BUILD        Install  Package(s )
  2847   "PKG",35,2 2,1,"PAH", 1,1,322,0)
  2848        2   X PD INSTALL ATION MENU        Ins tallation
  2849   "PKG",35,2 2,1,"PAH", 1,1,323,0)
  2850   CHOOSE 1-2 : 1  XPD I NSTALL BUI LD     Ins tall Packa ge(s)
  2851   "PKG",35,2 2,1,"PAH", 1,1,324,0)
  2852   Install Pa ckage(s)
  2853   "PKG",35,2 2,1,"PAH", 1,1,325,0)
  2854   Select INS TALL NAME:     OR*3.0 *470     L oaded from  Distribut ion    
  2855   "PKG",35,2 2,1,"PAH", 1,1,326,0)
  2856   12/12/17@2 3:4
  2857   "PKG",35,2 2,1,"PAH", 1,1,327,0)
  2858   8:51
  2859   "PKG",35,2 2,1,"PAH", 1,1,328,0)
  2860        => OR *3.0*470 1 2/11/17  ; Created on  Dec 11, 2 017@17:30: 33
  2861   "PKG",35,2 2,1,"PAH", 1,1,329,0)
  2862    
  2863   "PKG",35,2 2,1,"PAH", 1,1,330,0)
  2864   This Distr ibution wa s loaded o n Dec 12,  2017@23:48 :51 with h eader of 
  2865   "PKG",35,2 2,1,"PAH", 1,1,331,0)
  2866      OR*3.0* 470 12/11/ 17  ;Creat ed on Dec  11, 2017@1 7:30:33
  2867   "PKG",35,2 2,1,"PAH", 1,1,332,0)
  2868      It cons isted of t he followi ng Install (s):
  2869   "PKG",35,2 2,1,"PAH", 1,1,333,0)
  2870        OR*3. 0*470
  2871   "PKG",35,2 2,1,"PAH", 1,1,334,0)
  2872   Checking I nstall for  Package O R*3.0*470
  2873   "PKG",35,2 2,1,"PAH", 1,1,335,0)
  2874    
  2875   "PKG",35,2 2,1,"PAH", 1,1,336,0)
  2876   Install Qu estions fo r OR*3.0*4 70
  2877   "PKG",35,2 2,1,"PAH", 1,1,337,0)
  2878    
  2879   "PKG",35,2 2,1,"PAH", 1,1,338,0)
  2880   Incoming F iles:
  2881   "PKG",35,2 2,1,"PAH", 1,1,339,0)
  2882    
  2883   "PKG",35,2 2,1,"PAH", 1,1,340,0)
  2884    
  2885   "PKG",35,2 2,1,"PAH", 1,1,341,0)
  2886      2          PATIENT   (Partial  Definitio n)
  2887   "PKG",35,2 2,1,"PAH", 1,1,342,0)
  2888   Note:  You  already h ave the 'P ATIENT' Fi le.
  2889   "PKG",35,2 2,1,"PAH", 1,1,343,0)
  2890    
  2891   "PKG",35,2 2,1,"PAH", 1,1,344,0)
  2892   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install?  NO// 
  2893   "PKG",35,2 2,1,"PAH", 1,1,345,0)
  2894   Want KIDS  to INHIBIT  LOGONs du ring the i nstall? NO // 
  2895   "PKG",35,2 2,1,"PAH", 1,1,346,0)
  2896   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls? NO// 
  2897   "PKG",35,2 2,1,"PAH", 1,1,347,0)
  2898    
  2899   "PKG",35,2 2,1,"PAH", 1,1,348,0)
  2900   Enter the  Device you  want to p rint the I nstall mes sages.
  2901   "PKG",35,2 2,1,"PAH", 1,1,349,0)
  2902   You can qu eue the in stall by e nter a 'Q'  at the de vice promp t.
  2903   "PKG",35,2 2,1,"PAH", 1,1,350,0)
  2904   Enter a '^ ' to abort  the insta ll.
  2905   "PKG",35,2 2,1,"PAH", 1,1,351,0)
  2906    
  2907   "PKG",35,2 2,1,"PAH", 1,1,352,0)
  2908   DEVICE: HO ME//   CON SOLE
  2909   "PKG",35,2 2,1,"PAH", 1,1,353,0)
  2910    
  2911   "PKG",35,2 2,1,"PAH", 1,1,354,0)
  2912    Install S tarted for  OR*3.0*47 0 : 
  2913   "PKG",35,2 2,1,"PAH", 1,1,355,0)
  2914                   Dec 1 2, 2017@23 :49:03
  2915   "PKG",35,2 2,1,"PAH", 1,1,356,0)
  2916    
  2917   "PKG",35,2 2,1,"PAH", 1,1,357,0)
  2918   Build Dist ribution D ate: Dec 1 1, 2017
  2919   "PKG",35,2 2,1,"PAH", 1,1,358,0)
  2920    
  2921   "PKG",35,2 2,1,"PAH", 1,1,359,0)
  2922    Installin g Routines :
  2923   "PKG",35,2 2,1,"PAH", 1,1,360,0)
  2924                    Dec  12, 2017@2 3:49:04
  2925   "PKG",35,2 2,1,"PAH", 1,1,361,0)
  2926    
  2927   "PKG",35,2 2,1,"PAH", 1,1,362,0)
  2928    Installin g Data Dic tionaries:  
  2929   "PKG",35,2 2,1,"PAH", 1,1,363,0)
  2930                    Dec  12, 2017@2 3:49:05
  2931   "PKG",35,2 2,1,"PAH", 1,1,364,0)
  2932    
  2933   "PKG",35,2 2,1,"PAH", 1,1,365,0)
  2934    Installin g PACKAGE  COMPONENTS
  2935   "PKG",35,2 2,1,"PAH", 1,1,366,0)
  2936    
  2937   "PKG",35,2 2,1,"PAH", 1,1,367,0)
  2938    Installin g HL LOGIC AL LINK
  2939   "PKG",35,2 2,1,"PAH", 1,1,368,0)
  2940    
  2941   "PKG",35,2 2,1,"PAH", 1,1,369,0)
  2942    Installin g PROTOCOL     
  2943   "PKG",35,2 2,1,"PAH", 1,1,370,0)
  2944     Located  in the OR  (ORDER ENT RY/RESULTS  REPORTING ) namespac e.
  2945   "PKG",35,2 2,1,"PAH", 1,1,371,0)
  2946     Located  in the OR  (ORDER ENT RY/RESULTS  REPORTING ) namespac e.
  2947   "PKG",35,2 2,1,"PAH", 1,1,372,0)
  2948    
  2949   "PKG",35,2 2,1,"PAH", 1,1,373,0)
  2950    Installin g LIST TEM PLATE
  2951   "PKG",35,2 2,1,"PAH", 1,1,374,0)
  2952    
  2953   "PKG",35,2 2,1,"PAH", 1,1,375,0)
  2954    Installin g OPTION
  2955   "PKG",35,2 2,1,"PAH", 1,1,376,0)
  2956    
  2957   "PKG",35,2 2,1,"PAH", 1,1,377,0)
  2958    Installin g PARAMETE R DEFINITI ON
  2959   "PKG",35,2 2,1,"PAH", 1,1,378,0)
  2960    
  2961   "PKG",35,2 2,1,"PAH", 1,1,379,0)
  2962    Installin g HLO APPL ICATION RE GISTRY
  2963   "PKG",35,2 2,1,"PAH", 1,1,380,0)
  2964                    Dec  12, 2017@2 3:49:06
  2965   "PKG",35,2 2,1,"PAH", 1,1,381,0)
  2966    
  2967   "PKG",35,2 2,1,"PAH", 1,1,382,0)
  2968    Updating  Routine fi le...
  2969   "PKG",35,2 2,1,"PAH", 1,1,383,0)
  2970    
  2971   "PKG",35,2 2,1,"PAH", 1,1,384,0)
  2972    Updating  KIDS files ...
  2973   "PKG",35,2 2,1,"PAH", 1,1,385,0)
  2974    
  2975   "PKG",35,2 2,1,"PAH", 1,1,386,0)
  2976    OR*3.0*47 0 Installe d. 
  2977   "PKG",35,2 2,1,"PAH", 1,1,387,0)
  2978                   Dec 1 2, 2017@23 :49:06
  2979   "PKG",35,2 2,1,"PAH", 1,1,388,0)
  2980    
  2981   "PKG",35,2 2,1,"PAH", 1,1,389,0)
  2982    No link t o PACKAGE  file
  2983   "PKG",35,2 2,1,"PAH", 1,1,390,0)
  2984    
  2985   "PKG",35,2 2,1,"PAH", 1,1,391,0)
  2986    NO Instal l Message  sent 
  2987   "PKG",35,2 2,1,"PAH", 1,1,392,0)
  2988    
  2989   "PKG",35,2 2,1,"PAH", 1,1,393,0)
  2990   Install Co mpleted
  2991   "PKG",35,2 2,1,"PAH", 1,1,394,0)
  2992    
  2993   "PKG",35,2 2,1,"PAH", 1,1,395,0)
  2994   VISTA>
  2995   "PKG",35,2 2,1,"PAH", 1,1,396,0)
  2996    
  2997   "PKG",35,2 2,1,"PAH", 1,1,397,0)
  2998    
  2999   "PKG",35,2 2,1,"PAH", 1,1,398,0)
  3000    
  3001   "PKG",35,2 2,1,"PAH", 1,1,399,0)
  3002   Patch Back out Instru ctions:
  3003   "PKG",35,2 2,1,"PAH", 1,1,400,0)
  3004   ---------- ---------- ------
  3005   "PKG",35,2 2,1,"PAH", 1,1,401,0)
  3006   1.      Go  to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect 
  3007   "PKG",35,2 2,1,"PAH", 1,1,402,0)
  3008   the backup  message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup
  3009   "PKG",35,2 2,1,"PAH", 1,1,403,0)
  3010   2.      Wh en prompte d 'Type <E nter> to c ontinue or  '^' to ex it:' type  '^' 
  3011   "PKG",35,2 2,1,"PAH", 1,1,404,0)
  3012   and then < Enter>
  3013   "PKG",35,2 2,1,"PAH", 1,1,405,0)
  3014   3.      Wh en prompte d 'Enter m essage act ion:' type  'Xtract P ackMan' an
  3015   "PKG",35,2 2,1,"PAH", 1,1,406,0)
  3016   then <Ente r>
  3017   "PKG",35,2 2,1,"PAH", 1,1,407,0)
  3018   4.      Th e followin g message  and the pr ompt will  display:
  3019   "PKG",35,2 2,1,"PAH", 1,1,408,0)
  3020   Warning: I nstalling  this messa ge will ca use a perm anent upda te of glob als 
  3021   "PKG",35,2 2,1,"PAH", 1,1,409,0)
  3022   and routin es.
  3023   "PKG",35,2 2,1,"PAH", 1,1,410,0)
  3024   Do you rea lly want t o do this?  NO//' typ e 'YES' an d then <En ter>
  3025   "PKG",35,2 2,1,"PAH", 1,1,411,0)
  3026   5.      Wh en prompte d: 
  3027   "PKG",35,2 2,1,"PAH", 1,1,412,0)
  3028   'Shall I p reserve th e routines  on disk i n a separa te back-up  message? 
  3029   "PKG",35,2 2,1,"PAH", 1,1,413,0)
  3030   YES//' typ e 'NO' and  then <Ent er>
  3031   "PKG",35,2 2,1,"PAH", 1,1,414,0)
  3032   6.      Th e system w ill displa y the foll owing mess age and sh ow all the  
  3033   "PKG",35,2 2,1,"PAH", 1,1,415,0)
  3034   routines t hat were u nloaded co nfirming t hat all th e routines  in the bu ild 
  3035   "PKG",35,2 2,1,"PAH", 1,1,416,0)
  3036   have been  restored t o the prio r version  (unloaded) :
  3037   "PKG",35,2 2,1,"PAH", 1,1,417,0)
  3038   'No backup  message b uilt.
  3039   "PKG",35,2 2,1,"PAH", 1,1,418,0)
  3040    ***LIST o f routines  from back up. See fu ll routine  list at t he end of  the 
  3041   "PKG",35,2 2,1,"PAH", 1,1,419,0)
  3042   document** *
  3043   "PKG",35,2 2,1,"PAH", 1,1,420,0)
  3044    
  3045   "PKG",35,2 2,1,"PAH", 1,1,421,0)
  3046   Select Pac kMan funct ion: and t hen <Enter >'
  3047   "PKG",35,2 2,1,"PAH", 1,1,422,0)
  3048   7.      ne xVerify th at all six  routines  are listed  as above  have been 
  3049   "PKG",35,2 2,1,"PAH", 1,1,423,0)
  3050   backed out :
  3051   "PKG",35,2 2,1,"PAH", 1,1,424,0)
  3052   No backup  message bu ilt.
  3053   "PKG",35,2 2,1,"PAH", 1,1,425,0)
  3054   When promp ted 'Want  KIDS to IN HIBIT LOGO Ns during  the instal l? NO//'
  3055   "PKG",35,2 2,1,"PAH", 1,1,426,0)
  3056   Press <Ent er>.
  3057   "PKG",35,2 2,1,"PAH", 1,1,427,0)
  3058   When promp ted 'Want  to DISABLE  Scheduled  Options,  Menu Optio ns, and 
  3059   "PKG",35,2 2,1,"PAH", 1,1,428,0)
  3060   Protocols?  NO//' 
  3061   "PKG",35,2 2,1,"PAH", 1,1,429,0)
  3062   Press <Ent er>.
  3063   "PKG",35,2 2,1,"PAH", 1,1,430,0)
  3064   If prompte d 'Delay I nstall (Mi nutes):  ( 0 - 60): 0 //' respon d 0.
  3065   "PKG",35,2 2,1,"PAH", 1,1,431,0)
  3066    
  3067   "PKG",35,2 2,1,"PAH", 1,1,432,0)
  3068   8.      Th ere are no  globals t hat are be ing saved  off for th is patch t
  3069   "PKG",35,2 2,1,"PAH", 1,1,433,0)
  3070   restore. A ll other o bjects sho uld be man ually back ed out or  deleted 
  3071   "PKG",35,2 2,1,"PAH", 1,1,434,0)
  3072   Fileman. 
  3073   "PKG",35,2 2,1,"PAH", 1,1,435,0)
  3074   9.      De leting Fil es:
  3075   "PKG",35,2 2,1,"PAH", 1,1,436,0)
  3076   The follow ing filema n files sh ould be de leted unde r their re spective 
  3077   "PKG",35,2 2,1,"PAH", 1,1,437,0)
  3078   groups. To  delete th e file, op en fileman  for the f ile specif ied. Look  for 
  3079   "PKG",35,2 2,1,"PAH", 1,1,438,0)
  3080   the name a nd once se lected ent er @ to en ter the de lete optio n.
  3081   "PKG",35,2 2,1,"PAH", 1,1,439,0)
  3082    
  3083   "PKG",35,2 2,1,"PAH", 1,1,440,0)
  3084   Example:
  3085   "PKG",35,2 2,1,"PAH", 1,1,441,0)
  3086   VA FileMan  22.2
  3087   "PKG",35,2 2,1,"PAH", 1,1,442,0)
  3088    
  3089   "PKG",35,2 2,1,"PAH", 1,1,443,0)
  3090    
  3091   "PKG",35,2 2,1,"PAH", 1,1,444,0)
  3092   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  3093   "PKG",35,2 2,1,"PAH", 1,1,445,0)
  3094    
  3095   "PKG",35,2 2,1,"PAH", 1,1,446,0)
  3096   Input to w hat File:  PROTOCOL//              (4498 en tries)
  3097   "PKG",35,2 2,1,"PAH", 1,1,447,0)
  3098   EDIT WHICH  FIELD: AL L//
  3099   "PKG",35,2 2,1,"PAH", 1,1,448,0)
  3100    
  3101   "PKG",35,2 2,1,"PAH", 1,1,449,0)
  3102    
  3103   "PKG",35,2 2,1,"PAH", 1,1,450,0)
  3104   Select PRO TOCOL NAME : SD SIU T RIGGER        SD SIU  TRIGGER
  3105   "PKG",35,2 2,1,"PAH", 1,1,451,0)
  3106   NAME: SD S IU TRIGGER // @
  3107   "PKG",35,2 2,1,"PAH", 1,1,452,0)
  3108      SURE YO U WANT TO  DELETE THE  ENTIRE 'S D SIU TRIG GER' PROTO COL?
  3109   "PKG",35,2 2,1,"PAH", 1,1,453,0)
  3110    
  3111   "PKG",35,2 2,1,"PAH", 1,1,454,0)
  3112    
  3113   "PKG",35,2 2,1,"PAH", 1,1,455,0)
  3114   HLO Applic ations:
  3115   "PKG",35,2 2,1,"PAH", 1,1,456,0)
  3116   OR-ORM-OUT
  3117   "PKG",35,2 2,1,"PAH", 1,1,457,0)
  3118    
  3119   "PKG",35,2 2,1,"PAH", 1,1,458,0)
  3120   HLO Logica l Links:
  3121   "PKG",35,2 2,1,"PAH", 1,1,459,0)
  3122   OR ORM OUT
  3123   "PKG",35,2 2,1,"PAH", 1,1,460,0)
  3124    
  3125   "PKG",35,2 2,1,"PAH", 1,1,461,0)
  3126   Parameters :
  3127   "PKG",35,2 2,1,"PAH", 1,1,462,0)
  3128   ORMX C&P D EPARTMENT  ID
  3129   "PKG",35,2 2,1,"PAH", 1,1,463,0)
  3130   ORMX CONV  THREADS
  3131   "PKG",35,2 2,1,"PAH", 1,1,464,0)
  3132   ORMX FACIL ITY ID
  3133   "PKG",35,2 2,1,"PAH", 1,1,465,0)
  3134   ORMX NEAR  DEPARTMENT  ID
  3135   "PKG",35,2 2,1,"PAH", 1,1,466,0)
  3136   ORMX RTC O RDERABLE I D
  3137   "PKG",35,2 2,1,"PAH", 1,1,467,0)
  3138   ORMX SCH D EFAULT FLA G
  3139   "PKG",35,2 2,1,"PAH", 1,1,468,0)
  3140    
  3141   "PKG",35,2 2,1,"PAH", 1,1,469,0)
  3142   List Templ ate:
  3143   "PKG",35,2 2,1,"PAH", 1,1,470,0)
  3144   ORMX CONVE RSION
  3145   "PKG",35,2 2,1,"PAH", 1,1,471,0)
  3146   ORMX SCHED ULABLE ACT ION
  3147   "PKG",35,2 2,1,"PAH", 1,1,472,0)
  3148    
  3149   "PKG",35,2 2,1,"PAH", 1,1,473,0)
  3150   Option
  3151   "PKG",35,2 2,1,"PAH", 1,1,474,0)
  3152   ORMX UTILI TY
  3153   "PKG",35,2 2,1,"PAH", 1,1,475,0)
  3154    
  3155   "PKG",35,2 2,1,"PAH", 1,1,476,0)
  3156   Protocol:
  3157   "PKG",35,2 2,1,"PAH", 1,1,477,0)
  3158   OR EVSEND  DVBA
  3159   "PKG",35,2 2,1,"PAH", 1,1,478,0)
  3160   ORMX CHANG E DISPLAY  GROUP
  3161   "PKG",35,2 2,1,"PAH", 1,1,479,0)
  3162   ORMX EVSEN D ADD COMM ENT
  3163   "PKG",35,2 2,1,"PAH", 1,1,480,0)
  3164   ORMX GMRC  EVSEND UPD ATE
  3165   "PKG",35,2 2,1,"PAH", 1,1,481,0)
  3166   ORMX ORM H L7 TRIGGER  - ADD COM MENTS
  3167   "PKG",35,2 2,1,"PAH", 1,1,482,0)
  3168   ORMX ORM H L7 TRIGGER  - C&P Com ments
  3169   "PKG",35,2 2,1,"PAH", 1,1,483,0)
  3170   ORMX ORM H L7 TRIGGER  - CONSULT S
  3171   "PKG",35,2 2,1,"PAH", 1,1,484,0)
  3172   ORMX ORM H L7 TRIGGER  - ORDERS
  3173   "PKG",35,2 2,1,"PAH", 1,1,485,0)
  3174   ORMX RUN C ONV
  3175   "PKG",35,2 2,1,"PAH", 1,1,486,0)
  3176   ORMX SCHED ULABLE ACT ION
  3177   "PKG",35,2 2,1,"PAH", 1,1,487,0)
  3178   ORMX SCHED ULABLE ACT ION MENU
  3179   "PKG",35,2 2,1,"PAH", 1,1,488,0)
  3180    
  3181   "PKG",35,2 2,1,"PAH", 1,1,489,0)
  3182    
  3183   "PKG",35,2 2,1,"PAH", 1,1,490,0)
  3184   10.     Mo difying fi les:
  3185   "PKG",35,2 2,1,"PAH", 1,1,491,0)
  3186   The follow ing files  can be upd ated in Fi leman but  they are e xisting 
  3187   "PKG",35,2 2,1,"PAH", 1,1,492,0)
  3188   files. The y should n ot be dele ted. Inste ad reverti ng them ba ck will be  
  3189   "PKG",35,2 2,1,"PAH", 1,1,493,0)
  3190   the correc t approach .
  3191   "PKG",35,2 2,1,"PAH", 1,1,494,0)
  3192    
  3193   "PKG",35,2 2,1,"PAH", 1,1,495,0)
  3194   Example:
  3195   "PKG",35,2 2,1,"PAH", 1,1,496,0)
  3196   VA FileMan  22.2
  3197   "PKG",35,2 2,1,"PAH", 1,1,497,0)
  3198    
  3199   "PKG",35,2 2,1,"PAH", 1,1,498,0)
  3200    
  3201   "PKG",35,2 2,1,"PAH", 1,1,499,0)
  3202   Select OPT ION: 1  EN TER OR EDI T FILE ENT RIES
  3203   "PKG",35,2 2,1,"PAH", 1,1,500,0)
  3204    
  3205   "PKG",35,2 2,1,"PAH", 1,1,501,0)
  3206   Input to w hat File:  PROTOCOL//              (4498 en tries)
  3207   "PKG",35,2 2,1,"PAH", 1,1,502,0)
  3208   EDIT WHICH  FIELD: AL L// item
  3209   "PKG",35,2 2,1,"PAH", 1,1,503,0)
  3210        1   I TEM    (mu ltiple)
  3211   "PKG",35,2 2,1,"PAH", 1,1,504,0)
  3212        2   I TEM TEXT
  3213   "PKG",35,2 2,1,"PAH", 1,1,505,0)
  3214   CHOOSE 1-2 : 1  ITEM   (multiple )
  3215   "PKG",35,2 2,1,"PAH", 1,1,506,0)
  3216      EDIT WH ICH ITEM S UB-FIELD:  ALL//
  3217   "PKG",35,2 2,1,"PAH", 1,1,507,0)
  3218   THEN EDIT  FIELD:
  3219   "PKG",35,2 2,1,"PAH", 1,1,508,0)
  3220    
  3221   "PKG",35,2 2,1,"PAH", 1,1,509,0)
  3222    
  3223   "PKG",35,2 2,1,"PAH", 1,1,510,0)
  3224   Select PRO TOCOL NAME : SDAM APP OINTMENT E VENTS        Appointm ent Event 
  3225   "PKG",35,2 2,1,"PAH", 1,1,511,0)
  3226   Driver
  3227   "PKG",35,2 2,1,"PAH", 1,1,512,0)
  3228    
  3229   "PKG",35,2 2,1,"PAH", 1,1,513,0)
  3230   Select ITE M: SD SIU  TRIGGER//  SD SIU TRI GGER        SD SIU TR IGGER
  3231   "PKG",35,2 2,1,"PAH", 1,1,514,0)
  3232            . ..OK? Yes/ /   (Yes)
  3233   "PKG",35,2 2,1,"PAH", 1,1,515,0)
  3234    
  3235   "PKG",35,2 2,1,"PAH", 1,1,516,0)
  3236     ITEM: SD  SIU TRIGG ER// @
  3237   "PKG",35,2 2,1,"PAH", 1,1,517,0)
  3238      SURE YO U WANT TO  DELETE THE  ENTIRE IT EM?
  3239   "PKG",35,2 2,1,"PAH", 1,1,518,0)
  3240    
  3241   "PKG",35,2 2,1,"PAH", 1,1,519,0)
  3242   Protocol:
  3243   "PKG",35,2 2,1,"PAH", 1,1,520,0)
  3244   OR EVSEND  DGPM              
  3245   "PKG",35,2 2,1,"PAH", 1,1,521,0)
  3246   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3247   "PKG",35,2 2,1,"PAH", 1,1,522,0)
  3248    
  3249   "PKG",35,2 2,1,"PAH", 1,1,523,0)
  3250   OR EVSEND  FH                
  3251   "PKG",35,2 2,1,"PAH", 1,1,524,0)
  3252   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3253   "PKG",35,2 2,1,"PAH", 1,1,525,0)
  3254    
  3255   "PKG",35,2 2,1,"PAH", 1,1,526,0)
  3256   OR EVSEND  GMRC              
  3257   "PKG",35,2 2,1,"PAH", 1,1,527,0)
  3258   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3259   "PKG",35,2 2,1,"PAH", 1,1,528,0)
  3260    
  3261   "PKG",35,2 2,1,"PAH", 1,1,529,0)
  3262   OR EVSEND  LRAP              
  3263   "PKG",35,2 2,1,"PAH", 1,1,530,0)
  3264   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3265   "PKG",35,2 2,1,"PAH", 1,1,531,0)
  3266    
  3267   "PKG",35,2 2,1,"PAH", 1,1,532,0)
  3268   OR EVSEND  LRBB              
  3269   "PKG",35,2 2,1,"PAH", 1,1,533,0)
  3270   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3271   "PKG",35,2 2,1,"PAH", 1,1,534,0)
  3272    
  3273   "PKG",35,2 2,1,"PAH", 1,1,535,0)
  3274   OR EVSEND  LRCH              
  3275   "PKG",35,2 2,1,"PAH", 1,1,536,0)
  3276   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3277   "PKG",35,2 2,1,"PAH", 1,1,537,0)
  3278    
  3279   "PKG",35,2 2,1,"PAH", 1,1,538,0)
  3280   OR EVSEND  ORG              
  3281   "PKG",35,2 2,1,"PAH", 1,1,539,0)
  3282   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3283   "PKG",35,2 2,1,"PAH", 1,1,540,0)
  3284    
  3285   "PKG",35,2 2,1,"PAH", 1,1,541,0)
  3286   OR EVSEND  PS              
  3287   "PKG",35,2 2,1,"PAH", 1,1,542,0)
  3288   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3289   "PKG",35,2 2,1,"PAH", 1,1,543,0)
  3290    
  3291   "PKG",35,2 2,1,"PAH", 1,1,544,0)
  3292   OR EVSEND  RA             
  3293   "PKG",35,2 2,1,"PAH", 1,1,545,0)
  3294   1.      Re move ORMX  ORM HL7 TR IGGER - OR DERS
  3295   "PKG",35,2 2,1,"PAH", 1,1,546,0)
  3296    
  3297   "PKG",35,2 2,1,"PAH", 1,1,547,0)
  3298    
  3299   "PKG",35,2 2,1,"PAH", 1,1,548,0)
  3300   11.     De leting an  item in a  file
  3301   "PKG",35,2 2,1,"PAH", 1,1,549,0)
  3302   Item 11 ca n be remov ed from th e orderabl e Items fi le by goin g into Mod ify 
  3303   "PKG",35,2 2,1,"PAH", 1,1,550,0)
  3304   File Attri butes in F ileman and  using the  @ to remo ve the ite m.
  3305   "PKG",35,2 2,1,"PAH", 1,1,551,0)
  3306   Example:
  3307   "PKG",35,2 2,1,"PAH", 1,1,552,0)
  3308   VA FileMan  22.2
  3309   "PKG",35,2 2,1,"PAH", 1,1,553,0)
  3310    
  3311   "PKG",35,2 2,1,"PAH", 1,1,554,0)
  3312   Select OPT ION: 4  MO DIFY FILE  ATTRIBUTES
  3313   "PKG",35,2 2,1,"PAH", 1,1,555,0)
  3314   Do you wan t to use t he screen- mode versi on? YES//  n  NO
  3315   "PKG",35,2 2,1,"PAH", 1,1,556,0)
  3316    
  3317   "PKG",35,2 2,1,"PAH", 1,1,557,0)
  3318   Modify wha t File: PR OTOCOL// o rderable i tems    (1 702 entrie s)
  3319   "PKG",35,2 2,1,"PAH", 1,1,558,0)
  3320    
  3321   "PKG",35,2 2,1,"PAH", 1,1,559,0)
  3322    
  3323   "PKG",35,2 2,1,"PAH", 1,1,560,0)
  3324   Select FIE LD: 11  MA SS SCHEDUL ING ACTION
  3325   "PKG",35,2 2,1,"PAH", 1,1,561,0)
  3326   LABEL: MAS S SCHEDULI NG ACTION   Replace @
  3327   "PKG",35,2 2,1,"PAH", 1,1,562,0)
  3328      SURE YO U WANT TO  DELETE THE  ENTIRE 'M ASS SCHEDU LING ACTIO N' FIELD?
  3329   "PKG",35,2 2,1,"PAH", 1,1,563,0)
  3330    
  3331   "PKG",35,2 2,1,"PAH", 1,1,564,0)
  3332   Post-Insta llation In structions :
  3333   "PKG",35,2 2,1,"PAH", 1,1,565,0)
  3334   ---------- ---------- ---------- -
  3335   "PKG",35,2 2,1,"PAH", 1,1,566,0)
  3336    
  3337   "PKG",35,2 2,1,"PAH", 1,1,567,0)
  3338   Check list  to Verify :
  3339   "PKG",35,2 2,1,"PAH", 1,1,568,0)
  3340    
  3341   "PKG",35,2 2,1,"PAH", 1,1,569,0)
  3342   1.      It em 11 in t he orderab le items f ile.
  3343   "PKG",35,2 2,1,"PAH", 1,1,570,0)
  3344   2.      HL O Applicat ions
  3345   "PKG",35,2 2,1,"PAH", 1,1,571,0)
  3346   3.      HL  Logical L inks
  3347   "PKG",35,2 2,1,"PAH", 1,1,572,0)
  3348   4.      Pr otocol
  3349   "PKG",35,2 2,1,"PAH", 1,1,573,0)
  3350   5.      Pa rameters
  3351   "PKG",35,2 2,1,"PAH", 1,1,574,0)
  3352   6.      Op tions
  3353   "PKG",35,2 2,1,"PAH", 1,1,575,0)
  3354   7.      Li st Templat e
  3355   "PKG",35,2 2,1,"PAH", 1,1,576,0)
  3356    
  3357   "PKG",35,2 2,1,"PAH", 1,1,577,0)
  3358    
  3359   "PKG",35,2 2,1,"PAH", 1,1,578,0)
  3360   Routine In formation:
  3361   "PKG",35,2 2,1,"PAH", 1,1,579,0)
  3362   ========== ==========
  3363   "PKG",35,2 2,1,"PAH", 1,1,580,0)
  3364    
  3365   "PKG",35,2 2,1,"PAH", 1,1,581,0)
  3366    
  3367   "PKG",35,2 2,1,"PAH", 1,1,582,0)
  3368   The second  line of e ach of the se routine s now look s like:
  3369   "PKG",35,2 2,1,"PAH", 1,1,583,0)
  3370    
  3371   "PKG",35,2 2,1,"PAH", 1,1,584,0)
  3372    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**[ Patch List ]**;Dec 17 , 1997;Bui ld 
  3373   "PKG",35,2 2,1,"PAH", 1,1,585,0)
  3374   62
  3375   "PKG",35,2 2,1,"PAH", 1,1,586,0)
  3376    
  3377   "PKG",35,2 2,1,"PAH", 1,1,587,0)
  3378   The checks ums below  are new ch ecksums, a nd
  3379   "PKG",35,2 2,1,"PAH", 1,1,588,0)
  3380    can be ch ecked with  CHECK1^XT SUMBLD.
  3381   "PKG",35,2 2,1,"PAH", 1,1,589,0)
  3382    
  3383   "PKG",35,2 2,1,"PAH", 1,1,590,0)
  3384   Routine Na me: ORCACT 1
  3385   "PKG",35,2 2,1,"PAH", 1,1,591,0)
  3386       Before : B5001844 2   After:  B51038373    **7,27, 56,48,86,9 2,116,149, 215,
  3387   "PKG",35,2 2,1,"PAH", 1,1,592,0)
  3388                                                  284,390 ,470**
  3389   "PKG",35,2 2,1,"PAH", 1,1,593,0)
  3390   Routine Na me: ORMXCO NV
  3391   "PKG",35,2 2,1,"PAH", 1,1,594,0)
  3392       Before :       n/ a   After:  B23256152 8  **470**
  3393   "PKG",35,2 2,1,"PAH", 1,1,595,0)
  3394   Routine Na me: ORMXFM T
  3395   "PKG",35,2 2,1,"PAH", 1,1,596,0)
  3396       Before :       n/ a   After:  B24275265 2  **470**
  3397   "PKG",35,2 2,1,"PAH", 1,1,597,0)
  3398   Routine Na me: ORMXFM T1
  3399   "PKG",35,2 2,1,"PAH", 1,1,598,0)
  3400       Before :       n/ a   After:  B83979073    **470**
  3401   "PKG",35,2 2,1,"PAH", 1,1,599,0)
  3402   Routine Na me: ORMXTR
  3403   "PKG",35,2 2,1,"PAH", 1,1,600,0)
  3404       Before :       n/ a   After:  B19000351 3  **470**
  3405   "PKG",35,2 2,1,"PAH", 1,1,601,0)
  3406   Routine Na me: ORMXUT IL
  3407   "PKG",35,2 2,1,"PAH", 1,1,602,0)
  3408       Before :       n/ a   After:  B11026599    **470**
  3409   "PKG",35,2 2,1,"PAH", 1,1,603,0)
  3410   Rotuine Na me: ORMXHL 7
  3411   "PKG",35,2 2,1,"PAH", 1,1,604,0)
  3412       Before :       n/ a   After:  B59928339    **470**
  3413   "PKG",35,2 2,1,"PAH", 1,1,605,0)
  3414    
  3415   "PKG",35,2 2,1,"PAH", 1,1,606,0)
  3416   Routine li st of prec eding patc hes: 390
  3417   "PKG",35,2 2,1,"PAH", 1,1,607,0)
  3418    
  3419   "PKG",35,2 2,1,"PAH", 1,1,608,0)
  3420    
  3421   "PKG",35,2 2,1,"PAH", 1,1,609,0)
  3422   ========== ========== ========== ========== ========== ========== ========== ====
  3423   "PKG",35,2 2,1,"PAH", 1,1,610,0)
  3424   User Infor mation:  
  3425   "PKG",35,2 2,1,"PAH", 1,1,611,0)
  3426     Entered  By  :   NE EDHAM,MALC OLM      D ate Entere d  :   OCT   3,2017
  3427   "PKG",35,2 2,1,"PAH", 1,1,612,0)
  3428     Complete d By:                          D ate Comple ted:   
  3429   "PKG",35,2 2,1,"PAH", 1,1,613,0)
  3430     Released  By :                          D ate Releas ed :   
  3431   "PKG",35,2 2,1,"PAH", 1,1,614,0)
  3432   ========== ========== ========== ========== ========== ========== ========== ===
  3433   "QUES","XP F1",0)
  3434   Y
  3435   "QUES","XP F1","??")
  3436   ^D REP^XPD H
  3437   "QUES","XP F1","A")
  3438   Shall I wr ite over y our |FLAG|  File
  3439   "QUES","XP F1","B")
  3440   YES
  3441   "QUES","XP F1","M")
  3442   D XPF1^XPD IQ
  3443   "QUES","XP F2",0)
  3444   Y
  3445   "QUES","XP F2","??")
  3446   ^D DTA^XPD H
  3447   "QUES","XP F2","A")
  3448   Want my da ta |FLAG|  yours
  3449   "QUES","XP F2","B")
  3450   YES
  3451   "QUES","XP F2","M")
  3452   D XPF2^XPD IQ
  3453   "QUES","XP I1",0)
  3454   YO
  3455   "QUES","XP I1","??")
  3456   ^D INHIBIT ^XPDH
  3457   "QUES","XP I1","A")
  3458   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  3459   "QUES","XP I1","B")
  3460   NO
  3461   "QUES","XP I1","M")
  3462   D XPI1^XPD IQ
  3463   "QUES","XP M1",0)
  3464   PO^VA(200, :EM
  3465   "QUES","XP M1","??")
  3466   ^D MG^XPDH
  3467   "QUES","XP M1","A")
  3468   Enter the  Coordinato r for Mail  Group '|F LAG|'
  3469   "QUES","XP M1","B")
  3470  
  3471   "QUES","XP M1","M")
  3472   D XPM1^XPD IQ
  3473   "QUES","XP O1",0)
  3474   Y
  3475   "QUES","XP O1","??")
  3476   ^D MENU^XP DH
  3477   "QUES","XP O1","A")
  3478   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  3479   "QUES","XP O1","B")
  3480   NO
  3481   "QUES","XP O1","M")
  3482   D XPO1^XPD IQ
  3483   "QUES","XP Z1",0)
  3484   Y
  3485   "QUES","XP Z1","??")
  3486   ^D OPT^XPD H
  3487   "QUES","XP Z1","A")
  3488   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  3489   "QUES","XP Z1","B")
  3490   NO
  3491   "QUES","XP Z1","M")
  3492   D XPZ1^XPD IQ
  3493   "QUES","XP Z2",0)
  3494   Y
  3495   "QUES","XP Z2","??")
  3496   ^D RTN^XPD H
  3497   "QUES","XP Z2","A")
  3498   Want to MO VE routine s to other  CPUs
  3499   "QUES","XP Z2","B")
  3500   NO
  3501   "QUES","XP Z2","M")
  3502   D XPZ2^XPD IQ
  3503   "RTN")
  3504   7
  3505   "RTN","ORC ACT1")
  3506   0^6^B51038 373
  3507   "RTN","ORC ACT1",1,0)
  3508   ORCACT1 ;S LC/MKB,ASM R/BL-Act o n orders c ont ; 10/1 6/15 1:36p m
  3509   "RTN","ORC ACT1",2,0)
  3510    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**7 ,27,56,48, 86,92,116, 149,215,28 4,390,470* *;Dec 17,  1997;Build  76
  3511   "RTN","ORC ACT1",3,0)
  3512    ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  3513   "RTN","ORC ACT1",4,0)
  3514    ;
  3515   "RTN","ORC ACT1",5,0)
  3516   FLAG ; --  flag order s
  3517   "RTN","ORC ACT1",6,0)
  3518    D EN("FL" ) Q
  3519   "RTN","ORC ACT1",7,0)
  3520    ;
  3521   "RTN","ORC ACT1",8,0)
  3522   UNFLAG ; - - unflag o rders
  3523   "RTN","ORC ACT1",9,0)
  3524    D EN("UF" ) Q
  3525   "RTN","ORC ACT1",10,0 )
  3526    ;
  3527   "RTN","ORC ACT1",11,0 )
  3528   COMMENT ;  -- add war d comments  to orders
  3529   "RTN","ORC ACT1",12,0 )
  3530    D EN("CM" ) Q
  3531   "RTN","ORC ACT1",13,0 )
  3532    ;
  3533   "RTN","ORC ACT1",14,0 )
  3534   ALERT ; --  alert pro vider when  results a vailable
  3535   "RTN","ORC ACT1",15,0 )
  3536    D EN("AL" ) Q
  3537   "RTN","ORC ACT1",16,0 )
  3538    ;
  3539   "RTN","ORC ACT1",17,0 )
  3540   UNHOLD ; - - release  hold on or ders - no  longer in  use
  3541   "RTN","ORC ACT1",18,0 )
  3542    Q  ; see  UNHOLD^ORC ACT instea d
  3543   "RTN","ORC ACT1",19,0 )
  3544    ;
  3545   "RTN","ORC ACT1",20,0 )
  3546   EN(ORACT)  ; -- Actio ns that do n't create  orders
  3547   "RTN","ORC ACT1",21,0 )
  3548    ;    ORNM BR = #,#,. ..,# of se lected ord ers
  3549   "RTN","ORC ACT1",22,0 )
  3550    ;    ORAC T  = actio n to be ta ken
  3551   "RTN","ORC ACT1",23,0 )
  3552    ;
  3553   "RTN","ORC ACT1",24,0 )
  3554    ;    OREB UILD defin ed on retu rn if Orde rs tab nee ds to be r ebuilt
  3555   "RTN","ORC ACT1",25,0 )
  3556    ;
  3557   "RTN","ORC ACT1",26,0 )
  3558    N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORERR, ORQUIT
  3559   "RTN","ORC ACT1",27,0 )
  3560    I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("") Q:'OR NMBR
  3561   "RTN","ORC ACT1",28,0 )
  3562    D FREEZE^ ORCMENU S  VALMBCK="R " K OREBUI LD
  3563   "RTN","ORC ACT1",29,0 )
  3564    F ORI=1:1 :$L(ORNMBR ,",") S NM BR=$P(ORNM BR,",",ORI ) D:NMBR   Q:$D(ORQUI T)
  3565   "RTN","ORC ACT1",30,0 )
  3566    . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U)
  3567   "RTN","ORC ACT1",31,0 )
  3568    . Q:'ORIF N  S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1"
  3569   "RTN","ORC ACT1",32,0 )
  3570    . I '$D(^ OR(100,+OR IFN,0)) W  !,"This or der has be en deleted !" H 1 Q
  3571   "RTN","ORC ACT1",33,0 )
  3572    . S ORDIT M=$$ORDITE M^ORCACT(O RIFN) D SU BHDR^ORCAC T(ORDITM)
  3573   "RTN","ORC ACT1",34,0 )
  3574    . I '$$VA LID^ORCACT 0(ORIFN,OR ACT,.ORERR ) W !,ORER R H 1 Q
  3575   "RTN","ORC ACT1",35,0 )
  3576    . S ORLK= $$LOCK1^OR X2(+ORIFN)  I 'ORLK W  !,$P(ORLK ,U,2) H 1  Q
  3577   "RTN","ORC ACT1",36,0 )
  3578    . D @ORAC T,UNLK1^OR X2(+ORIFN)
  3579   "RTN","ORC ACT1",37,0 )
  3580   ENQ Q
  3581   "RTN","ORC ACT1",38,0 )
  3582    ;
  3583   "RTN","ORC ACT1",39,0 )
  3584   FL ; -- Fl ag order O RIFN
  3585   "RTN","ORC ACT1",40,0 )
  3586    D EN^ORCF LAG
  3587   "RTN","ORC ACT1",41,0 )
  3588    Q
  3589   "RTN","ORC ACT1",42,0 )
  3590    ;
  3591   "RTN","ORC ACT1",43,0 )
  3592   UF ; -- Un flag order  ORIFN
  3593   "RTN","ORC ACT1",44,0 )
  3594    D UN^ORCF LAG
  3595   "RTN","ORC ACT1",45,0 )
  3596    Q
  3597   "RTN","ORC ACT1",46,0 )
  3598    ;
  3599   "RTN","ORC ACT1",47,0 )
  3600   CM ; -- Wa rd Comment s on order  ORIFN
  3601   "RTN","ORC ACT1",48,0 )
  3602    N DIC,DWP K,DIWEPSE, DIWESUB,DD WRW
  3603   "RTN","ORC ACT1",49,0 )
  3604    S DIC="^O R(100,"_+O RIFN_",8," _+$P(ORIFN ,";",2)_", 5,",(DWPK, DIWEPSE)=1
  3605   "RTN","ORC ACT1",50,0 )
  3606    S DIWESUB =ORDITM,DD WRW="B" ;g o to botto m of text
  3607   "RTN","ORC ACT1",51,0 )
  3608    D EN^DIWE
  3609   "RTN","ORC ACT1",52,0 )
  3610    S X=+$O(^ ORD(101,"B ","ORMX EV SEND ADD C OMMENT",0) )_";ORD(10 1," ; 470
  3611   "RTN","ORC ACT1",53,0 )
  3612    D EN^XQOR
  3613   "RTN","ORC ACT1",54,0 )
  3614    Q
  3615   "RTN","ORC ACT1",55,0 )
  3616    ;
  3617   "RTN","ORC ACT1",56,0 )
  3618   AL ; -- Al ert when r esults are  available  for order  ORIFN
  3619   "RTN","ORC ACT1",57,0 )
  3620    S $P(^OR( 100,+ORIFN ,3),U,10)= 1
  3621   "RTN","ORC ACT1",58,0 )
  3622    W !?10,". .. done."  H 1
  3623   "RTN","ORC ACT1",59,0 )
  3624    Q
  3625   "RTN","ORC ACT1",60,0 )
  3626    ;
  3627   "RTN","ORC ACT1",61,0 )
  3628   RL ; -- Re lease hold  on order  ORIFN [No  longer use d]
  3629   "RTN","ORC ACT1",62,0 )
  3630    D EN^ORCS END(+ORIFN ,ORACT,3,1 ,,,.ORERR)
  3631   "RTN","ORC ACT1",63,0 )
  3632    W !,"...  order "_$S ($G(ORERR) :"not ",1: "")_"relea sed from h old."
  3633   "RTN","ORC ACT1",64,0 )
  3634    W:$L($P($ G(ORERR),U ,2)) !,"   >> "_$P(OR ERR,U,2) H  1
  3635   "RTN","ORC ACT1",65,0 )
  3636    S OREBUIL D=1 ; prin t?
  3637   "RTN","ORC ACT1",66,0 )
  3638    Q
  3639   "RTN","ORC ACT1",67,0 )
  3640    ;
  3641   "RTN","ORC ACT1",68,0 )
  3642   VERIFY(ORV ER) ; -- V erify orde rs
  3643   "RTN","ORC ACT1",69,0 )
  3644    N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORES,O RERR,ORSIG ,OROLDSTS, ORNEW,ORWA IT
  3645   "RTN","ORC ACT1",70,0 )
  3646    I "^"[$G( ORVER) W $ C(7),!!,"Y ou must be  a nurse o r clerk to  verify th ese orders !" S VALMB CK="" H 2  Q
  3647   "RTN","ORC ACT1",71,0 )
  3648    I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("") Q:'OR NMBR
  3649   "RTN","ORC ACT1",72,0 )
  3650    D FREEZE^ ORCMENU S  VALMBCK="R " K OREBUI LD
  3651   "RTN","ORC ACT1",73,0 )
  3652    F ORI=1:1 :$L(ORNMBR ,",") S NM BR=$P(ORNM BR,",",ORI ) D:NMBR   Q:$D(ORQUI T)
  3653   "RTN","ORC ACT1",74,0 )
  3654    . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U)
  3655   "RTN","ORC ACT1",75,0 )
  3656    . Q:'ORIF N  S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1"  Q:$D(ORES( ORIFN))
  3657   "RTN","ORC ACT1",76,0 )
  3658    . I '$$VA LID^ORCACT 0(ORIFN,"V R",.ORERR)  W !!,$$OR DITEM^ORCA CT(ORIFN)_ " invalid. ",!,"  >>  "_ORERR H  1 Q
  3659   "RTN","ORC ACT1",77,0 )
  3660    . S ORLK= $$LOCK1^OR X2(+ORIFN)  I 'ORLK W  !!,$$ORDI TEM^ORCACT (ORIFN)_"  invalid.", !,"  >> "_ $P(ORLK,U, 2) H 1 Q
  3661   "RTN","ORC ACT1",78,0 )
  3662    . S ORES( ORIFN)=""  D REPLCD
  3663   "RTN","ORC ACT1",79,0 )
  3664   VR1 Q:'$O( ORES(0))   D COMPLX S  ORSIG=$S( $$ESIG^ORC SIGN:1,1:0 )
  3665   "RTN","ORC ACT1",80,0 )
  3666    I 'ORSIG  W !,"Nothi ng verifie d!" D UNLO CK H 1 Q
  3667   "RTN","ORC ACT1",81,0 )
  3668    W !!,"Ver ifying ord ers ..."
  3669   "RTN","ORC ACT1",82,0 )
  3670    S ORIFN=0  F  S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0   D
  3671   "RTN","ORC ACT1",83,0 )
  3672    . S OROLD STS=+$P($G (^OR(100,+ ORIFN,3)), U,3)
  3673   "RTN","ORC ACT1",84,0 )
  3674    . D EN^OR CSEND(ORIF N,"VR","", "",,,.ORER R),UNLK1^O RX2(+ORIFN )
  3675   "RTN","ORC ACT1",85,0 )
  3676    . I $G(OR ERR) D  Q
  3677   "RTN","ORC ACT1",86,0 )
  3678    . . W !,$ $ORDITEM^O RCACT(ORIF N)_" not v erified."
  3679   "RTN","ORC ACT1",87,0 )
  3680    . . W:$L( $P($G(ORER R),U,2)) ! ,"  >> "_$ P(ORERR,U, 2) H 1
  3681   "RTN","ORC ACT1",88,0 )
  3682    . S ORNEW =+$P($G(^O R(100,+ORI FN,3)),U,3 ) I ORNEW' =OROLDSTS  W !,$$ORDI TEM^ORCACT (ORIFN)_"  is now "_$ $STS(ORNEW )_"." S OR WAIT=1
  3683   "RTN","ORC ACT1",89,0 )
  3684    S OREBUIL D=1 D:'$D( XQAID) CKA LERT I $G( ORWAIT) H  2
  3685   "RTN","ORC ACT1",90,0 )
  3686   VRQ Q
  3687   "RTN","ORC ACT1",91,0 )
  3688    ;
  3689   "RTN","ORC ACT1",92,0 )
  3690   STS(X) ; - - Return n ame of sta tus X
  3691   "RTN","ORC ACT1",93,0 )
  3692    N Y S Y=$ P($G(^ORD( 100.01,+$G (X),0)),U)
  3693   "RTN","ORC ACT1",94,0 )
  3694    Q Y
  3695   "RTN","ORC ACT1",95,0 )
  3696    ;
  3697   "RTN","ORC ACT1",96,0 )
  3698   REPLCD ; - - Ck for u nverified  replaced o rders for  ORIFN, add  to ORES(o rder#)
  3699   "RTN","ORC ACT1",97,0 )
  3700    ;    [Exp ects ORVER ; also cal led from V ERIFY^ORWD XA,VERIFY^ ORRCOR]
  3701   "RTN","ORC ACT1",98,0 )
  3702    N OR3,ORI G,ORFLD,OR DA,ORI,ORL K
  3703   "RTN","ORC ACT1",99,0 )
  3704    S ORFLD=$ S($G(ORVER )="N":8,$G (ORVER)="R ":18,1:10) ,ORDA=+$P( ORIFN,";", 2)
  3705   "RTN","ORC ACT1",100, 0)
  3706    I ORDA>1  D  Q  ;ck  for prior  unverified  actions
  3707   "RTN","ORC ACT1",101, 0)
  3708    . ;Q:$P($ G(^OR(100, +ORIFN,8,O RDA,0)),U, 2)'="XX"
  3709   "RTN","ORC ACT1",102, 0)
  3710    . S ORI=0  F  S ORI= $O(^OR(100 ,+ORIFN,8, ORI)) Q:OR I<1  Q:ORI '<ORDA  D
  3711   "RTN","ORC ACT1",103, 0)
  3712    .. Q:$P($ G(^OR(100, +ORIFN,8,O RI,0)),U,O RFLD)  ;al ready veri fied
  3713   "RTN","ORC ACT1",104, 0)
  3714    .. S ORLK =$$LOCK1^O RX2(+ORIFN ) Q:'ORLK
  3715   "RTN","ORC ACT1",105, 0)
  3716    .. S ORES (+ORIFN_"; "_ORI)=""
  3717   "RTN","ORC ACT1",106, 0)
  3718    S OR3=$G( ^OR(100,+O RIFN,3)) Q :$P(OR3,U, 11)'=1
  3719   "RTN","ORC ACT1",107, 0)
  3720    S ORIG=+$ P(OR3,U,5)  Q:'ORIG   Q:$P($G(^O R(100,ORIG ,3)),U,3)' =12
  3721   "RTN","ORC ACT1",108, 0)
  3722    S ORDA=0  F  S ORDA= $O(^OR(100 ,ORIG,8,OR DA)) Q:ORD A'>0  I '$ P($G(^(ORD A,0)),U,OR FLD) D
  3723   "RTN","ORC ACT1",109, 0)
  3724    . S ORLK= $$LOCK1^OR X2(ORIG) Q :'ORLK
  3725   "RTN","ORC ACT1",110, 0)
  3726    . S ORES( ORIG_";"_O RDA)=""
  3727   "RTN","ORC ACT1",111, 0)
  3728    Q
  3729   "RTN","ORC ACT1",112, 0)
  3730    ;
  3731   "RTN","ORC ACT1",113, 0)
  3732   COMPLX ; - - Ck for o ther child  orders to  be verifi ed at same  time
  3733   "RTN","ORC ACT1",114, 0)
  3734    N IFN,DAD ,CHLD,ALL, P,X,I
  3735   "RTN","ORC ACT1",115, 0)
  3736    S P=$S(OR VER="N":9, ORVER="C": 11,ORVER=" R":19,1:0)  Q:P<1
  3737   "RTN","ORC ACT1",116, 0)
  3738    S IFN=0 F   S IFN=$O (ORES(IFN) ) Q:IFN<1   D
  3739   "RTN","ORC ACT1",117, 0)
  3740    . S X=+$P ($G(^OR(10 0,+IFN,0)) ,U,14) Q:$ $NMSP^ORCD (X)'["PS"
  3741   "RTN","ORC ACT1",118, 0)
  3742    . S X=$P( $G(^OR(100 ,+IFN,8,+$ P(IFN,";", 2),0)),U,2 ) Q:X'="NW "&(X'="XX" )
  3743   "RTN","ORC ACT1",119, 0)
  3744    . I $P($G (^OR(100,+ IFN,3)),U, 9) S DAD(+ $P(^(3),U, 9))=""
  3745   "RTN","ORC ACT1",120, 0)
  3746    Q:'$O(DAD (0))  S IF N=0 F  S I FN=+$O(DAD (IFN)) Q:I FN<1  D
  3747   "RTN","ORC ACT1",121, 0)
  3748    . S CHLD= 0,ALL=1
  3749   "RTN","ORC ACT1",122, 0)
  3750    . F  S CH LD=+$O(^OR (100,IFN,2 ,CHLD)) Q: CHLD<1  F  X="NW","XX " D
  3751   "RTN","ORC ACT1",123, 0)
  3752    .. S I=+$ O(^OR(100, CHLD,8,"C" ,X,0)) Q:I <1
  3753   "RTN","ORC ACT1",124, 0)
  3754    .. Q:$P($ G(^OR(100, CHLD,8,I,0 )),U,P)  Q :$D(ORES(C HLD_";"_I) )
  3755   "RTN","ORC ACT1",125, 0)
  3756    .. S ORES (CHLD_";"_ I)="",ALL= 0
  3757   "RTN","ORC ACT1",126, 0)
  3758    . Q:ALL   S X=$$ORDI TEM^ORCACT (IFN) D SU BHDR^ORCAC T(X)
  3759   "RTN","ORC ACT1",127, 0)
  3760    . W !,"Al l doses of  this comp lex order  must be ve rified tog ether;"
  3761   "RTN","ORC ACT1",128, 0)
  3762    . W !,"ad ding remai ning doses  to signat ure list.. ."
  3763   "RTN","ORC ACT1",129, 0)
  3764    Q
  3765   "RTN","ORC ACT1",130, 0)
  3766    ;
  3767   "RTN","ORC ACT1",131, 0)
  3768   CKALERT ;  -- Ck if U nverified  Orders ale rts can be  deleted
  3769   "RTN","ORC ACT1",132, 0)
  3770    N ORNOW,O RBEG,ORLIS T,ORALL,OR MEDS S ORN OW=$$NOW^X LFDT
  3771   "RTN","ORC ACT1",133, 0)
  3772    S:'$G(ORW ARD) ORBEG =$$FMADD^X LFDT(ORNOW ,"-30") I  $G(ORWARD)  D
  3773   "RTN","ORC ACT1",134, 0)
  3774    . N DFN,V AIN,VAERR  S DFN=+ORV P D INP^VA DPT
  3775   "RTN","ORC ACT1",135, 0)
  3776    . S ORBEG =$S($G(VAI N(7)):$P(V AIN(7),U), 1:$$FMADD^ XLFDT(ORNO W,-30))
  3777   "RTN","ORC ACT1",136, 0)
  3778    D EN^ORQ1 (ORVP,,9,, ORBEG,ORNO W) ;see if  any unver ified orde rs remain
  3779   "RTN","ORC ACT1",137, 0)
  3780    I $G(ORLI ST),$G(^TM P("ORR",$J ,ORLIST,"T OT")) D  ; see if any  are meds
  3781   "RTN","ORC ACT1",138, 0)
  3782    . N ORRX, ORGRP,I,IF N,DG S ORA LL=1
  3783   "RTN","ORC ACT1",139, 0)
  3784    . S ORRX= +$O(^ORD(1 00.98,"B", "RX",0)) D  GRP^ORQ1( ORRX)
  3785   "RTN","ORC ACT1",140, 0)
  3786    . S I=0 F   S I=$O(^ TMP("ORR", $J,ORLIST, I)) Q:I'>0   S IFN=+^ (I),DG=+$P ($G(^OR(10 0,IFN,0)), U,11) I $D (ORGRP(DG) ) S ORMEDS =1 Q
  3787   "RTN","ORC ACT1",141, 0)
  3788    D:'$G(ORA LL) DELALR T("UNVERIF IED ORDER" )
  3789   "RTN","ORC ACT1",142, 0)
  3790    D:'$G(ORM EDS) DELAL RT("UNVERI FIED MEDIC ATION ORDE R")
  3791   "RTN","ORC ACT1",143, 0)
  3792    Q
  3793   "RTN","ORC ACT1",144, 0)
  3794    ;
  3795   "RTN","ORC ACT1",145, 0)
  3796   DELALRT(X)  ; -- dele te alert X
  3797   "RTN","ORC ACT1",146, 0)
  3798    N ORNIFN, XQAKILL,XQ AID
  3799   "RTN","ORC ACT1",147, 0)
  3800    S ORNIFN= +$O(^ORD(1 00.9,"B",X ,0)) Q:ORN IFN'>0
  3801   "RTN","ORC ACT1",148, 0)
  3802    S XQAKILL =$$XQAKILL ^ORB3F1(OR NIFN)
  3803   "RTN","ORC ACT1",149, 0)
  3804    S XQAID=$ P($G(^ORD( 100.9,ORNI FN,0)),U,2 )_","_+ORV P_","_ORNI FN
  3805   "RTN","ORC ACT1",150, 0)
  3806    D DELETEA ^XQALERT
  3807   "RTN","ORC ACT1",151, 0)
  3808    Q
  3809   "RTN","ORC ACT1",152, 0)
  3810    ;
  3811   "RTN","ORC ACT1",153, 0)
  3812   UNLOCK ; - - Unlock o rders in O RES(ORIFN)  [from VR1 ]
  3813   "RTN","ORC ACT1",154, 0)
  3814    F  S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0   D UNLK1^OR X2(+ORIFN)
  3815   "RTN","ORC ACT1",155, 0)
  3816    Q
  3817   "RTN","ORC ACT1",156, 0)
  3818    ;
  3819   "RTN","ORC ACT1",157, 0)
  3820   SIGNREQD(I FN) ; -- R eturns 2,  1, or 0, i f order/ac tions need  ES
  3821   "RTN","ORC ACT1",158, 0)
  3822    Q +$P($G( ^OR(100,IF N,0)),U,16 )
  3823   "RTN","ORC ACT1",159, 0)
  3824    ;
  3825   "RTN","ORC ACT1",160, 0)
  3826   SIGN ; --  Sign order s [no long er used]
  3827   "RTN","ORC ACT1",161, 0)
  3828    D EN^ORCS IGN
  3829   "RTN","ORC ACT1",162, 0)
  3830    Q
  3831   "RTN","ORC ACT1",163, 0)
  3832    ;
  3833   "RTN","ORC ACT1",164, 0)
  3834   COMPLETE ;  -- comple te orders
  3835   "RTN","ORC ACT1",165, 0)
  3836    N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORES,O RERR,ORSIG ,ORSTOP
  3837   "RTN","ORC ACT1",166, 0)
  3838    I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("complete ") Q:'ORNM BR
  3839   "RTN","ORC ACT1",167, 0)
  3840    D FREEZE^ ORCMENU S  VALMBCK="R " K OREBUI LD
  3841   "RTN","ORC ACT1",168, 0)
  3842    F ORI=1:1 :$L(ORNMBR ) S NMBR=$ P(ORNMBR," ,",ORI) D: NMBR  Q:$D (ORQUIT)
  3843   "RTN","ORC ACT1",169, 0)
  3844    . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U)
  3845   "RTN","ORC ACT1",170, 0)
  3846    . Q:'ORIF N  S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1"
  3847   "RTN","ORC ACT1",171, 0)
  3848    . I '$$VA LID^ORCACT 0(ORIFN,"C P",.ORERR)  W !!,$$OR DITEM^ORCA CT(ORIFN)_ " invalid. ",!,"  >>  "_ORERR H  1 Q
  3849   "RTN","ORC ACT1",172, 0)
  3850    . S ORLK= $$LOCK1^OR X2(+ORIFN)  I 'ORLK W  !!,$$ORDI TEM^ORCACT (ORIFN)_"  invalid.", !,"  >> "_ $P(ORLK,U, 2) H 1 Q
  3851   "RTN","ORC ACT1",173, 0)
  3852    . S ORES( ORIFN)=""
  3853   "RTN","ORC ACT1",174, 0)
  3854   CP1 Q:'$O( ORES(0))   S ORSIG=$S ($$ESIG^OR CSIGN:1,1: 0)
  3855   "RTN","ORC ACT1",175, 0)
  3856    I 'ORSIG  W !,"Nothi ng complet ed!" D UNL OCK H 1 Q
  3857   "RTN","ORC ACT1",176, 0)
  3858    W !!,"Com pleting or ders ..."  S ORSTOP=+ $E($$NOW^X LFDT,1,12) ,ORIFN=0
  3859   "RTN","ORC ACT1",177, 0)
  3860    F  S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0   D
  3861   "RTN","ORC ACT1",178, 0)
  3862    . D COMP^ ORCSAVE2(O RIFN,DUZ,O RSTOP),UNL K1^ORX2(+O RIFN)
  3863   "RTN","ORC ACT1",179, 0)
  3864    . D COMP^ ORMBLDOR(O RIFN)
  3865   "RTN","ORC ACT1",180, 0)
  3866    S OREBUIL D=1
  3867   "RTN","ORC ACT1",181, 0)
  3868   CPQ Q
  3869   "RTN","ORC ACT1",182, 0)
  3870    ;
  3871   "RTN","ORM XCONV")
  3872   0^3^B23256 1528
  3873   "RTN","ORM XCONV",1,0 )
  3874   ORMXCONV ; MASS/AWS -  ORDER CON VERSION;10 /10/17 ;20 18-05-11 0 7:56:32;8. 3;gk52nUkn 6F/oFbXFr5 BPf7NXt1gu BzZpiksyAF a5aaU=
  3875   "RTN","ORM XCONV",2,0 )
  3876    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;OCTOB ER 10,2017 ;Build 76
  3877   "RTN","ORM XCONV",3,0 )
  3878    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  3879   "RTN","ORM XCONV",4,0 )
  3880    ;
  3881   "RTN","ORM XCONV",5,0 )
  3882    ;  ICR# S upported R eferences
  3883   "RTN","ORM XCONV",6,0 )
  3884    ;  10013  ^DIK
  3885   "RTN","ORM XCONV",7,0 )
  3886    ;  10026  ^DIR
  3887   "RTN","ORM XCONV",8,0 )
  3888    ;  #####  $$INSTRING ^SDMXCORE
  3889   "RTN","ORM XCONV",9,0 )
  3890    ;  #####  ERRLOG^SDM XERRO
  3891   "RTN","ORM XCONV",10, 0)
  3892    ;  10118  EN^VALM
  3893   "RTN","ORM XCONV",11, 0)
  3894    ;  10117  SET^VALM10
  3895   "RTN","ORM XCONV",12, 0)
  3896    ;   2263  $$GET^XPAR
  3897   "RTN","ORM XCONV",13, 0)
  3898    ;  10102  DISP^XQORM 1
  3899   "RTN","ORM XCONV",14, 0)
  3900    ;   10035  ^DPT
  3901   "RTN","ORM XCONV",15, 0)
  3902    ;     ###  ^OR
  3903   "RTN","ORM XCONV",16, 0)
  3904    ;     ###  ^DVB
  3905   "RTN","ORM XCONV",17, 0)
  3906    ;     ###  ^DGEN
  3907   "RTN","ORM XCONV",18, 0)
  3908    ;     ###  ^GMR
  3909   "RTN","ORM XCONV",19, 0)
  3910    ;     266  ^SD
  3911   "RTN","ORM XCONV",20, 0)
  3912    ;
  3913   "RTN","ORM XCONV",21, 0)
  3914   EN ; Main  entry poin t for ORMX  Conversio n Utility
  3915   "RTN","ORM XCONV",22, 0)
  3916    D EN^VALM ("ORMX CON VERSION")
  3917   "RTN","ORM XCONV",23, 0)
  3918    Q
  3919   "RTN","ORM XCONV",24, 0)
  3920   HDR ; Head er code fo r the ORMX  Conversio n Utility
  3921   "RTN","ORM XCONV",25, 0)
  3922    S VALMHDR (1)="Order s Conversi on"
  3923   "RTN","ORM XCONV",26, 0)
  3924    Q
  3925   "RTN","ORM XCONV",27, 0)
  3926   INIT ; Set  initial v ariables a nd list ar ray for th e ORMX Con version Ut ility
  3927   "RTN","ORM XCONV",28, 0)
  3928    D SET^VAL M10(1,1_".  Orders Co nversion")
  3929   "RTN","ORM XCONV",29, 0)
  3930    D SET^VAL M10(2,2_".  C&P Conve rsion")
  3931   "RTN","ORM XCONV",30, 0)
  3932    D SET^VAL M10(3,3_".  NEAR Conv ersion")
  3933   "RTN","ORM XCONV",31, 0)
  3934    D SET^VAL M10(4,4_".  Consults  Conversion ")
  3935   "RTN","ORM XCONV",32, 0)
  3936    D SET^VAL M10(5,5_".  Recall Re minder Con version")
  3937   "RTN","ORM XCONV",33, 0)
  3938    D SET^VAL M10(6,6_".  Complete  All Return  To Clinic  Orders")
  3939   "RTN","ORM XCONV",34, 0)
  3940    D SET^VAL M10(7,7_".  Complete  All Recall  Reminders ")
  3941   "RTN","ORM XCONV",35, 0)
  3942    S VALMCNT =7
  3943   "RTN","ORM XCONV",36, 0)
  3944    Q
  3945   "RTN","ORM XCONV",37, 0)
  3946   HELP ; Hel p code for  the ORMX  Conversion  Utility
  3947   "RTN","ORM XCONV",38, 0)
  3948    S X="?" D  DISP^XQOR M1 W !!
  3949   "RTN","ORM XCONV",39, 0)
  3950    Q
  3951   "RTN","ORM XCONV",40, 0)
  3952   EXIT ; Exi t code for  the ORMX  Conversion  Utility
  3953   "RTN","ORM XCONV",41, 0)
  3954    Q
  3955   "RTN","ORM XCONV",42, 0)
  3956   EXPND ; Ex pand code  for the OR MX Convers ion Utilit y
  3957   "RTN","ORM XCONV",43, 0)
  3958    Q
  3959   "RTN","ORM XCONV",44, 0)
  3960   RUN ; Run  code for t he ORMX Co nversion U tility
  3961   "RTN","ORM XCONV",45, 0)
  3962    N DIR,DIR UT,DUOUT,X ,Y ; Neede d for call  to ^DIR
  3963   "RTN","ORM XCONV",46, 0)
  3964    N TOTAL,S ENT,COMPLE TE,FAILED
  3965   "RTN","ORM XCONV",47, 0)
  3966    S (DIR,DI RUT,DUOUT, X,Y,TOTAL, SENT,COMPL ETE,FAILED )=""
  3967   "RTN","ORM XCONV",48, 0)
  3968    ;
  3969   "RTN","ORM XCONV",49, 0)
  3970    S DIR(0)= "N^1:"_$G( VALMCNT)_" :0"
  3971   "RTN","ORM XCONV",50, 0)
  3972    D ^DIR
  3973   "RTN","ORM XCONV",51, 0)
  3974    S VALMBCK ="R"
  3975   "RTN","ORM XCONV",52, 0)
  3976    ;
  3977   "RTN","ORM XCONV",53, 0)
  3978    S Y=$G(Y)
  3979   "RTN","ORM XCONV",54, 0)
  3980    I Y=1 D   Q
  3981   "RTN","ORM XCONV",55, 0)
  3982    . D ORDCO NV^ORMXCON V(.TOTAL,. SENT,.FAIL ED)
  3983   "RTN","ORM XCONV",56, 0)
  3984    . S VALMS G="Orders  conversion  complete. "
  3985   "RTN","ORM XCONV",57, 0)
  3986    . D CONVR SLT(TOTAL, SENT,FAILE D)
  3987   "RTN","ORM XCONV",58, 0)
  3988    ;
  3989   "RTN","ORM XCONV",59, 0)
  3990    I Y=2 D   Q
  3991   "RTN","ORM XCONV",60, 0)
  3992    . D CPCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D)
  3993   "RTN","ORM XCONV",61, 0)
  3994    . S VALMS G="C&P con version co mplete."
  3995   "RTN","ORM XCONV",62, 0)
  3996    . D CONVR SLT(TOTAL, SENT,FAILE D)
  3997   "RTN","ORM XCONV",63, 0)
  3998    ;
  3999   "RTN","ORM XCONV",64, 0)
  4000    I Y=3 D   Q
  4001   "RTN","ORM XCONV",65, 0)
  4002    . D NLCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D)
  4003   "RTN","ORM XCONV",66, 0)
  4004    . S VALMS G="NEAR co nversion c omplete."
  4005   "RTN","ORM XCONV",67, 0)
  4006    . D CONVR SLT(TOTAL, SENT,FAILE D)
  4007   "RTN","ORM XCONV",68, 0)
  4008    ;
  4009   "RTN","ORM XCONV",69, 0)
  4010    I Y=4 D   Q
  4011   "RTN","ORM XCONV",70, 0)
  4012    . D GMRCO NV^ORMXCON V(.TOTAL,. SENT,.FAIL ED)
  4013   "RTN","ORM XCONV",71, 0)
  4014    . S VALMS G="Consult  conversio n complete ."
  4015   "RTN","ORM XCONV",72, 0)
  4016    . D CONVR SLT(TOTAL, SENT,FAILE D)
  4017   "RTN","ORM XCONV",73, 0)
  4018    ;
  4019   "RTN","ORM XCONV",74, 0)
  4020    I Y=5 D   Q
  4021   "RTN","ORM XCONV",75, 0)
  4022    . D RCCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D)
  4023   "RTN","ORM XCONV",76, 0)
  4024    . S VALMS G="Recall  conversion  complete. "
  4025   "RTN","ORM XCONV",77, 0)
  4026    . D CONVR SLT(TOTAL, SENT,FAILE D)
  4027   "RTN","ORM XCONV",78, 0)
  4028    ;
  4029   "RTN","ORM XCONV",79, 0)
  4030    I Y=6 D   Q
  4031   "RTN","ORM XCONV",80, 0)
  4032    . D RTCCO MP^ORMXCON V(.TOTAL,. COMPLETE,. FAILED)
  4033   "RTN","ORM XCONV",81, 0)
  4034    . S VALMS G="All Ret urn to Cli nic orders  completed ."
  4035   "RTN","ORM XCONV",82, 0)
  4036    . D COMPR SLT(.TOTAL ,.COMPLETE ,.FAILED)
  4037   "RTN","ORM XCONV",83, 0)
  4038    ;
  4039   "RTN","ORM XCONV",84, 0)
  4040    I Y=7 D   Q
  4041   "RTN","ORM XCONV",85, 0)
  4042    . D RCCOM P^ORMXCONV (.TOTAL,.C OMPLETE,.F AILED)
  4043   "RTN","ORM XCONV",86, 0)
  4044    . S VALMS G=" All re call remin ders were  completed. "
  4045   "RTN","ORM XCONV",87, 0)
  4046    . D COMPR SLT(.TOTAL ,.COMPLETE ,.FAILED)
  4047   "RTN","ORM XCONV",88, 0)
  4048    ;
  4049   "RTN","ORM XCONV",89, 0)
  4050    Q
  4051   "RTN","ORM XCONV",90, 0)
  4052   CONVRSLT(T OTAL,SENT, FAILED) ;  Print the  results fr om the con version to  the scree n
  4053   "RTN","ORM XCONV",91, 0)
  4054    ; TOTAL ( I,REQ)  -  The total  number of  records lo oped over  during the  conversio n
  4055   "RTN","ORM XCONV",92, 0)
  4056    ; SENT (I ,REQ)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4057   "RTN","ORM XCONV",93, 0)
  4058    ; FAILED  (I,REQ) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4059   "RTN","ORM XCONV",94, 0)
  4060    ;
  4061   "RTN","ORM XCONV",95, 0)
  4062    N FILTERE D
  4063   "RTN","ORM XCONV",96, 0)
  4064    ;
  4065   "RTN","ORM XCONV",97, 0)
  4066    S TOTAL=$ G(TOTAL),S ENT=$G(SEN T),FAILED= $G(FAILED)
  4067   "RTN","ORM XCONV",98, 0)
  4068    S FILTERE D=TOTAL-(S ENT+FAILED )
  4069   "RTN","ORM XCONV",99, 0)
  4070    ;
  4071   "RTN","ORM XCONV",100 ,0)
  4072    W !
  4073   "RTN","ORM XCONV",101 ,0)
  4074    W !,"Tota l records  queried: " _TOTAL
  4075   "RTN","ORM XCONV",102 ,0)
  4076    W !,"Tota l records  that were  filtered f rom the co nversion:  "_FILTERED
  4077   "RTN","ORM XCONV",103 ,0)
  4078    W !,"Tota l HL7 mess ages succe ssfully qu eued: "_SE NT
  4079   "RTN","ORM XCONV",104 ,0)
  4080    W !,"Tota l records  that faile d to build  or queue  an HL7 mes sage: "_FA ILED
  4081   "RTN","ORM XCONV",105 ,0)
  4082    W !
  4083   "RTN","ORM XCONV",106 ,0)
  4084    ;
  4085   "RTN","ORM XCONV",107 ,0)
  4086    S DIR(0)= "E" D ^DIR  K DIR W !
  4087   "RTN","ORM XCONV",108 ,0)
  4088    Q
  4089   "RTN","ORM XCONV",109 ,0)
  4090   COMPRSLT(T OTAL,COMPL ETE,FAILED ) ; Print  the result s from the  completio n conversi on to the  screen
  4091   "RTN","ORM XCONV",110 ,0)
  4092    ; TOTAL ( I,REQ)     - The tota l number o f records  looped ove r during t he convers ion
  4093   "RTN","ORM XCONV",111 ,0)
  4094    ; COMPLET E (I,REQ)  - The tota l number c ompleted
  4095   "RTN","ORM XCONV",112 ,0)
  4096    ; FAILED  (I,REQ)    - The tota l number n o complete d
  4097   "RTN","ORM XCONV",113 ,0)
  4098    ;
  4099   "RTN","ORM XCONV",114 ,0)
  4100    N FILTERE D
  4101   "RTN","ORM XCONV",115 ,0)
  4102    ;
  4103   "RTN","ORM XCONV",116 ,0)
  4104    S TOTAL=$ G(TOTAL),C OMPLETE=$G (COMPLETE) ,FAILED=$G (FAILED)
  4105   "RTN","ORM XCONV",117 ,0)
  4106    S FILTERE D=TOTAL-(C OMPLETE+FA ILED)
  4107   "RTN","ORM XCONV",118 ,0)
  4108    ;
  4109   "RTN","ORM XCONV",119 ,0)
  4110    W !
  4111   "RTN","ORM XCONV",120 ,0)
  4112    W !,"Tota l records  queried: " _TOTAL
  4113   "RTN","ORM XCONV",121 ,0)
  4114    W !,"Tota l records  that were  filtered f rom the co mpletion c onversion:  "_FILTERE D
  4115   "RTN","ORM XCONV",122 ,0)
  4116    W !,"Tota l records  completed:  "_COMPLET E
  4117   "RTN","ORM XCONV",123 ,0)
  4118    W !,"Tota l records  that could  not be co mpleted: " _FAILED
  4119   "RTN","ORM XCONV",124 ,0)
  4120    W !
  4121   "RTN","ORM XCONV",125 ,0)
  4122    ;
  4123   "RTN","ORM XCONV",126 ,0)
  4124    S DIR(0)= "E" D ^DIR  K DIR W !
  4125   "RTN","ORM XCONV",127 ,0)
  4126    Q
  4127   "RTN","ORM XCONV",128 ,0)
  4128   ORDCONV(TO TAL,SENT,F AILED) ; O rders conv ersion
  4129   "RTN","ORM XCONV",129 ,0)
  4130    ; TOTAL ( O,OPT)  -  The total  number of  records lo oped over  during the  conversio n
  4131   "RTN","ORM XCONV",130 ,0)
  4132    ; SENT (O ,OPT)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4133   "RTN","ORM XCONV",131 ,0)
  4134    ; FAILED  (O,OPT) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4135   "RTN","ORM XCONV",132 ,0)
  4136    ;
  4137   "RTN","ORM XCONV",133 ,0)
  4138    N ORDIEN, ORDABLE,HL OARR,ERROR ,SUCCESS,T HREADS,COU NT,LINK
  4139   "RTN","ORM XCONV",134 ,0)
  4140    S (ORDIEN ,ORDABLE,H LOARR,ERRO R,SUCCESS, THREADS,CO UNT,LINK)= ""
  4141   "RTN","ORM XCONV",135 ,0)
  4142    ;
  4143   "RTN","ORM XCONV",136 ,0)
  4144    S LINK="O R ORM OUT"
  4145   "RTN","ORM XCONV",137 ,0)
  4146    S TOTAL=0 ,SENT=0,FA ILED=0
  4147   "RTN","ORM XCONV",138 ,0)
  4148    ;
  4149   "RTN","ORM XCONV",139 ,0)
  4150    S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS")
  4151   "RTN","ORM XCONV",140 ,0)
  4152    F  S ORDI EN=$O(^OR( 100,ORDIEN )) Q:ORDIE N=""  D
  4153   "RTN","ORM XCONV",141 ,0)
  4154    . ;
  4155   "RTN","ORM XCONV",142 ,0)
  4156    . S TOTAL =TOTAL+1
  4157   "RTN","ORM XCONV",143 ,0)
  4158    . ;
  4159   "RTN","ORM XCONV",144 ,0)
  4160    . ; Don't  trigger m essages fo r consult  orders sin ce they wi ll be hand led in GMR CONV
  4161   "RTN","ORM XCONV",145 ,0)
  4162    . I $D(^G MR(123,"AC ",ORDIEN))  Q
  4163   "RTN","ORM XCONV",146 ,0)
  4164    . ;
  4165   "RTN","ORM XCONV",147 ,0)
  4166    . ; Only  trigger me ssages for  PENDING [ 5] and ACT IVE [6] or ders.
  4167   "RTN","ORM XCONV",148 ,0)
  4168    . ; The l ist of sta tuses is f ound in ^O RD(100.01)
  4169   "RTN","ORM XCONV",149 ,0)
  4170    . I '$$IN STRING^SDM XCORE($P($ G(^OR(100, ORDIEN,3)) ,"^",3),"5 ,6",",") Q
  4171   "RTN","ORM XCONV",150 ,0)
  4172    . ;
  4173   "RTN","ORM XCONV",151 ,0)
  4174    . ; Don't  trigger a  message i f its a ty pe of orde r we won't  schedule  in Epic
  4175   "RTN","ORM XCONV",152 ,0)
  4176    . S ORDAB LE=$G(^OR( 100,ORDIEN ,.1,1,0))
  4177   "RTN","ORM XCONV",153 ,0)
  4178    . I $$FIL TEROR^ORMX TR(ORDABLE ,ORDIEN) Q
  4179   "RTN","ORM XCONV",154 ,0)
  4180    . ;
  4181   "RTN","ORM XCONV",155 ,0)
  4182    . ; Don't  trigger a  message i f the pati ent associ ated with  the order  is dead
  4183   "RTN","ORM XCONV",156 ,0)
  4184    . I $$ISP TDEAD($P($ P($G(^OR(1 00,ORDIEN, 0)),"^",2) ,";",1)) Q
  4185   "RTN","ORM XCONV",157 ,0)
  4186    . ;
  4187   "RTN","ORM XCONV",158 ,0)
  4188    . ; handl e "Old-sty le" RTC or ders (gene ric text o rders)
  4189   "RTN","ORM XCONV",159 ,0)
  4190    . I $$ISO LDRTC(ORDI EN) D
  4191   "RTN","ORM XCONV",160 ,0)
  4192    . . S SUC CESS=$$OLD RTCFM("NW" ,ORDIEN,.H LOARR,.ERR OR)
  4193   "RTN","ORM XCONV",161 ,0)
  4194    . E  D
  4195   "RTN","ORM XCONV",162 ,0)
  4196    . . ; For mat the HL OARR
  4197   "RTN","ORM XCONV",163 ,0)
  4198    . . S SUC CESS=$$FMT OR^ORMXFMT ("NW",ORDI EN,"",.HLO ARR,.ERROR )
  4199   "RTN","ORM XCONV",164 ,0)
  4200    . ;
  4201   "RTN","ORM XCONV",165 ,0)
  4202    . ; If th ere is an  error log  it and qui t
  4203   "RTN","ORM XCONV",166 ,0)
  4204    . I SUCCE SS=-1 D  Q
  4205   "RTN","ORM XCONV",167 ,0)
  4206    . . D ERR LOG^SDMXER RO(312,ERR OR,1)
  4207   "RTN","ORM XCONV",168 ,0)
  4208    . . S FAI LED=FAILED +1
  4209   "RTN","ORM XCONV",169 ,0)
  4210    . ;
  4211   "RTN","ORM XCONV",170 ,0)
  4212    . ; Multi threading
  4213   "RTN","ORM XCONV",171 ,0)
  4214    . I $G(TH READS) D
  4215   "RTN","ORM XCONV",172 ,0)
  4216    . . S COU NT=SENT#TH READS+1
  4217   "RTN","ORM XCONV",173 ,0)
  4218    . . S LIN K="OR ORM  O"_COUNT
  4219   "RTN","ORM XCONV",174 ,0)
  4220    . ;
  4221   "RTN","ORM XCONV",175 ,0)
  4222    . ; Trigg er the mes sage
  4223   "RTN","ORM XCONV",176 ,0)
  4224    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K)
  4225   "RTN","ORM XCONV",177 ,0)
  4226    . I SUCCE SS=-1 D  Q
  4227   "RTN","ORM XCONV",178 ,0)
  4228    . . D ERR LG314^ORMX HL7(ERROR, "ORDER",$G (HLOARR("O RDER ID")) )
  4229   "RTN","ORM XCONV",179 ,0)
  4230    . . S FAI LED=FAILED +1
  4231   "RTN","ORM XCONV",180 ,0)
  4232    . ;
  4233   "RTN","ORM XCONV",181 ,0)
  4234    . S SENT= SENT+1
  4235   "RTN","ORM XCONV",182 ,0)
  4236    Q
  4237   "RTN","ORM XCONV",183 ,0)
  4238   GMRCONV(TO TAL,SENT,F AILED) ; C onsults co nversion
  4239   "RTN","ORM XCONV",184 ,0)
  4240    ; TOTAL ( O,OPT)  -  The total  number of  records lo oped over  during the  conversio n
  4241   "RTN","ORM XCONV",185 ,0)
  4242    ; SENT (O ,OPT)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4243   "RTN","ORM XCONV",186 ,0)
  4244    ; FAILED  (O,OPT) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4245   "RTN","ORM XCONV",187 ,0)
  4246    ;
  4247   "RTN","ORM XCONV",188 ,0)
  4248    N GMRIEN, HLOARR,ERR OR,SUCCESS ,ORDIEN,OR DABLE,THRE ADS,LINK,C OUNT
  4249   "RTN","ORM XCONV",189 ,0)
  4250    S (GMRIEN ,HLOARR,ER ROR,SUCCES S,ORDIEN,O RDABLE,THR EADS,LINK, COUNT)=""
  4251   "RTN","ORM XCONV",190 ,0)
  4252    ;
  4253   "RTN","ORM XCONV",191 ,0)
  4254    S LINK="O R ORM OUT"
  4255   "RTN","ORM XCONV",192 ,0)
  4256    S TOTAL=0 ,SENT=0,FA ILED=0
  4257   "RTN","ORM XCONV",193 ,0)
  4258    ;
  4259   "RTN","ORM XCONV",194 ,0)
  4260    S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS")
  4261   "RTN","ORM XCONV",195 ,0)
  4262    F  S GMRI EN=$O(^GMR (123,GMRIE N)) Q:GMRI EN=""  D
  4263   "RTN","ORM XCONV",196 ,0)
  4264    . ;
  4265   "RTN","ORM XCONV",197 ,0)
  4266    . S TOTAL =TOTAL+1
  4267   "RTN","ORM XCONV",198 ,0)
  4268    . ;
  4269   "RTN","ORM XCONV",199 ,0)
  4270    . ; Only  trigger me ssages for  PENDING [ 5] and ACT IVE [6] an d SCHEDULE D [8] cons ults.
  4271   "RTN","ORM XCONV",200 ,0)
  4272    . ; The l ist of sta tuses is f ound in ^O RD(100.01)
  4273   "RTN","ORM XCONV",201 ,0)
  4274    . I '$$IN STRING^SDM XCORE($P($ G(^GMR(123 ,GMRIEN,0) ),"^",12), "5,6,8",", ") Q
  4275   "RTN","ORM XCONV",202 ,0)
  4276    . ;
  4277   "RTN","ORM XCONV",203 ,0)
  4278    . ; Don't  trigger a  message i f its a ty pe of orde r we won't  schedule  in Epic
  4279   "RTN","ORM XCONV",204 ,0)
  4280    . S ORDIE N=$P($G(^G MR(123,GMR IEN,0)),"^ ",3)
  4281   "RTN","ORM XCONV",205 ,0)
  4282    . I ORDIE N'="" S OR DABLE=$G(^ OR(100,$G( ORDIEN),.1 ,1,0))
  4283   "RTN","ORM XCONV",206 ,0)
  4284    . I $$FIL TEROR^ORMX TR(ORDABLE ,ORDIEN) Q
  4285   "RTN","ORM XCONV",207 ,0)
  4286    . ;
  4287   "RTN","ORM XCONV",208 ,0)
  4288    . ; Don't  trigger a  message i f the pati ent associ ated with  the order  is dead
  4289   "RTN","ORM XCONV",209 ,0)
  4290    . I $$ISP TDEAD($P($ G(^GMR(123 ,GMRIEN,0) ),"^",2))  Q
  4291   "RTN","ORM XCONV",210 ,0)
  4292    . ;
  4293   "RTN","ORM XCONV",211 ,0)
  4294    . ; Forma t the HLOA RR
  4295   "RTN","ORM XCONV",212 ,0)
  4296    . S SUCCE SS=$$FMTGM RC^ORMXFMT ("NW",GMRI EN,ORDABLE ,.HLOARR,. ERROR)
  4297   "RTN","ORM XCONV",213 ,0)
  4298    . I SUCCE SS=-1 D  Q
  4299   "RTN","ORM XCONV",214 ,0)
  4300    . . D ERR LOG^SDMXER RO(312,ERR OR,1)
  4301   "RTN","ORM XCONV",215 ,0)
  4302    . . S FAI LED=FAILED +1
  4303   "RTN","ORM XCONV",216 ,0)
  4304    . ;
  4305   "RTN","ORM XCONV",217 ,0)
  4306    . ; Multi threading
  4307   "RTN","ORM XCONV",218 ,0)
  4308    . I $G(TH READS) D
  4309   "RTN","ORM XCONV",219 ,0)
  4310    . . S COU NT=SENT#TH READS+1
  4311   "RTN","ORM XCONV",220 ,0)
  4312    . . S LIN K="OR ORM  O"_COUNT
  4313   "RTN","ORM XCONV",221 ,0)
  4314    . ;
  4315   "RTN","ORM XCONV",222 ,0)
  4316    . ; Trigg er the mes sage
  4317   "RTN","ORM XCONV",223 ,0)
  4318    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K)
  4319   "RTN","ORM XCONV",224 ,0)
  4320    . I SUCCE SS=-1 D  Q
  4321   "RTN","ORM XCONV",225 ,0)
  4322    . . D ERR LG314^ORMX HL7(ERROR, "CONSULT", $G(HLOARR( "ORDER ID" )))
  4323   "RTN","ORM XCONV",226 ,0)
  4324    . . S FAI LED=FAILED +1
  4325   "RTN","ORM XCONV",227 ,0)
  4326    . ;
  4327   "RTN","ORM XCONV",228 ,0)
  4328    . S SENT= SENT+1
  4329   "RTN","ORM XCONV",229 ,0)
  4330    Q
  4331   "RTN","ORM XCONV",230 ,0)
  4332   CPCONV(TOT AL,SENT,FA ILED) ; C& P conversi on
  4333   "RTN","ORM XCONV",231 ,0)
  4334    ; TOTAL ( O,OPT)  -  The total  number of  records lo oped over  during the  conversio n
  4335   "RTN","ORM XCONV",232 ,0)
  4336    ; SENT (O ,OPT)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4337   "RTN","ORM XCONV",233 ,0)
  4338    ; FAILED  (O,OPT) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4339   "RTN","ORM XCONV",234 ,0)
  4340    ;
  4341   "RTN","ORM XCONV",235 ,0)
  4342    N DVBIEN, DVB0,HLOAR R,ERROR,SU CCESS,THRE ADS,LINK,C OUNT
  4343   "RTN","ORM XCONV",236 ,0)
  4344    S (DVBIEN ,DVB0,HLOA RR,ERROR,S UCCESS,THR EADS,LINK, COUNT)=""
  4345   "RTN","ORM XCONV",237 ,0)
  4346    ;
  4347   "RTN","ORM XCONV",238 ,0)
  4348    S LINK="O R ORM OUT"
  4349   "RTN","ORM XCONV",239 ,0)
  4350    S TOTAL=0 ,SENT=0,FA ILED=0
  4351   "RTN","ORM XCONV",240 ,0)
  4352    ;
  4353   "RTN","ORM XCONV",241 ,0)
  4354    S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS")
  4355   "RTN","ORM XCONV",242 ,0)
  4356    F  S DVBI EN=$O(^DVB (396.4,DVB IEN)) Q:DV BIEN=""  D
  4357   "RTN","ORM XCONV",243 ,0)
  4358    . ;
  4359   "RTN","ORM XCONV",244 ,0)
  4360    . S TOTAL =TOTAL+1
  4361   "RTN","ORM XCONV",245 ,0)
  4362    . ;
  4363   "RTN","ORM XCONV",246 ,0)
  4364    . S DVB0= $G(^DVB(39 6.4,DVBIEN ,0))
  4365   "RTN","ORM XCONV",247 ,0)
  4366    . I DVB0= "" Q
  4367   "RTN","ORM XCONV",248 ,0)
  4368    . ;
  4369   "RTN","ORM XCONV",249 ,0)
  4370    . ; Only  trigger me ssages for  OPEN ["O" ] requests .
  4371   "RTN","ORM XCONV",250 ,0)
  4372    . I $P(DV B0,"^",4)' ="O" Q
  4373   "RTN","ORM XCONV",251 ,0)
  4374    . ;
  4375   "RTN","ORM XCONV",252 ,0)
  4376    . ; Don't  trigger a  message i f the pati ent associ ated with  the reques t is dead
  4377   "RTN","ORM XCONV",253 ,0)
  4378    . I $$ISP TDEAD($P($ G(^DVB(396 .3,$P(DVB0 ,"^",2),0) ),"^",1))  Q
  4379   "RTN","ORM XCONV",254 ,0)
  4380    . ;
  4381   "RTN","ORM XCONV",255 ,0)
  4382    . ; Forma t the HLOA RR
  4383   "RTN","ORM XCONV",256 ,0)
  4384    . S SUCCE SS=$$FMTCP ^ORMXFMT(" NW",DVBIEN ,.HLOARR,. ERROR)
  4385   "RTN","ORM XCONV",257 ,0)
  4386    . I SUCCE SS=-1 D  Q
  4387   "RTN","ORM XCONV",258 ,0)
  4388    . . D ERR LOG^SDMXER RO(312,ERR OR,1)
  4389   "RTN","ORM XCONV",259 ,0)
  4390    . . S FAI LED=FAILED +1
  4391   "RTN","ORM XCONV",260 ,0)
  4392    . ;
  4393   "RTN","ORM XCONV",261 ,0)
  4394    . ; Multi threading
  4395   "RTN","ORM XCONV",262 ,0)
  4396    . I $G(TH READS) D
  4397   "RTN","ORM XCONV",263 ,0)
  4398    . . S COU NT=SENT#TH READS+1
  4399   "RTN","ORM XCONV",264 ,0)
  4400    . . S LIN K="OR ORM  O"_COUNT
  4401   "RTN","ORM XCONV",265 ,0)
  4402    . ;
  4403   "RTN","ORM XCONV",266 ,0)
  4404    . ; Trigg er the mes sage
  4405   "RTN","ORM XCONV",267 ,0)
  4406    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K)
  4407   "RTN","ORM XCONV",268 ,0)
  4408    . I SUCCE SS=-1 D  Q
  4409   "RTN","ORM XCONV",269 ,0)
  4410    . . D ERR LG314^ORMX HL7(ERROR, "C&P",$G(H LOARR("ORD ER ID")))
  4411   "RTN","ORM XCONV",270 ,0)
  4412    . . S FAI LED=FAILED +1
  4413   "RTN","ORM XCONV",271 ,0)
  4414    . ;
  4415   "RTN","ORM XCONV",272 ,0)
  4416    . S SENT= SENT+1
  4417   "RTN","ORM XCONV",273 ,0)
  4418    Q
  4419   "RTN","ORM XCONV",274 ,0)
  4420   NLCONV(TOT AL,SENT,FA ILED) ; NE AR (new en rollee app ointment r equest) li st convers ion
  4421   "RTN","ORM XCONV",275 ,0)
  4422    ; TOTAL ( O,OPT)  -  The total  number of  records lo oped over  during the  conversio n
  4423   "RTN","ORM XCONV",276 ,0)
  4424    ; SENT (O ,OPT)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4425   "RTN","ORM XCONV",277 ,0)
  4426    ; FAILED  (O,OPT) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4427   "RTN","ORM XCONV",278 ,0)
  4428    ;
  4429   "RTN","ORM XCONV",279 ,0)
  4430    N DFN,DGE NIEN,ERROR ,SUCCESS,T HREADS,LIN K,COUNT
  4431   "RTN","ORM XCONV",280 ,0)
  4432    S (DFN,DG ENIEN,ERRO R,SUCCESS, THREADS,LI NK,COUNT)= ""
  4433   "RTN","ORM XCONV",281 ,0)
  4434    ;
  4435   "RTN","ORM XCONV",282 ,0)
  4436    S LINK="O R ORM OUT"
  4437   "RTN","ORM XCONV",283 ,0)
  4438    S TOTAL=0 ,SENT=0,FA ILED=0
  4439   "RTN","ORM XCONV",284 ,0)
  4440    ;
  4441   "RTN","ORM XCONV",285 ,0)
  4442    S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS")
  4443   "RTN","ORM XCONV",286 ,0)
  4444    F  S DFN= $O(^DGEN(2 7.11,"C",D FN)) Q:DFN =""  D
  4445   "RTN","ORM XCONV",287 ,0)
  4446    . ;
  4447   "RTN","ORM XCONV",288 ,0)
  4448    . S TOTAL =TOTAL+1
  4449   "RTN","ORM XCONV",289 ,0)
  4450    . ;
  4451   "RTN","ORM XCONV",290 ,0)
  4452    . S DGENI EN=$O(^DGE N(27.11,"C ",DFN,""), -1)
  4453   "RTN","ORM XCONV",291 ,0)
  4454    . I DGENI EN="" Q
  4455   "RTN","ORM XCONV",292 ,0)
  4456    . ;
  4457   "RTN","ORM XCONV",293 ,0)
  4458    . ; Only  trigger me ssages for  VERIFIED  [2] reques ts.
  4459   "RTN","ORM XCONV",294 ,0)
  4460    . ; The l ist of sta tuses is f ound in ^D GEN(27.15)
  4461   "RTN","ORM XCONV",295 ,0)
  4462    . I '$$IN STRING^SDM XCORE($P($ G(^DGEN(27 .11,DGENIE N,0)),"^", 4),"2","," ) Q
  4463   "RTN","ORM XCONV",296 ,0)
  4464    . ;
  4465   "RTN","ORM XCONV",297 ,0)
  4466    . ; Don't  trigger m essages if  there is  not an app ointment r equest for  the patie nt.
  4467   "RTN","ORM XCONV",298 ,0)
  4468    . I $P($G (^DPT(DFN, 1010.15)), "^",9)'=1  Q
  4469   "RTN","ORM XCONV",299 ,0)
  4470    . ;
  4471   "RTN","ORM XCONV",300 ,0)
  4472    . ; If th e NEAR is  filled, do n't trigge r messages
  4473   "RTN","ORM XCONV",301 ,0)
  4474    . I $P($G (^DPT($G(D FN),1010.1 6)),"^",1) ="F" Q
  4475   "RTN","ORM XCONV",302 ,0)
  4476    . ;
  4477   "RTN","ORM XCONV",303 ,0)
  4478    . ; Don't  trigger a  message i f the pati ent associ ated with  the reques t is dead
  4479   "RTN","ORM XCONV",304 ,0)
  4480    . I $$ISP TDEAD(DFN)  Q
  4481   "RTN","ORM XCONV",305 ,0)
  4482    . ;
  4483   "RTN","ORM XCONV",306 ,0)
  4484    . ; Forma t the HLOA RR
  4485   "RTN","ORM XCONV",307 ,0)
  4486    . S SUCCE SS=$$FMTNL ^ORMXFMT(" NW",DFN,.H LOARR,.ERR OR)
  4487   "RTN","ORM XCONV",308 ,0)
  4488    . I SUCCE SS=-1 D  Q
  4489   "RTN","ORM XCONV",309 ,0)
  4490    . . D ERR LOG^SDMXER RO(312,ERR OR,1)
  4491   "RTN","ORM XCONV",310 ,0)
  4492    . . S FAI LED=FAILED +1
  4493   "RTN","ORM XCONV",311 ,0)
  4494    . ;
  4495   "RTN","ORM XCONV",312 ,0)
  4496    . ; Multi threading
  4497   "RTN","ORM XCONV",313 ,0)
  4498    . I $G(TH READS) D
  4499   "RTN","ORM XCONV",314 ,0)
  4500    . . S COU NT=SENT#TH READS+1
  4501   "RTN","ORM XCONV",315 ,0)
  4502    . . S LIN K="OR ORM  O"_COUNT
  4503   "RTN","ORM XCONV",316 ,0)
  4504    . ;
  4505   "RTN","ORM XCONV",317 ,0)
  4506    . ; Trigg er the mes sage
  4507   "RTN","ORM XCONV",318 ,0)
  4508    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K)
  4509   "RTN","ORM XCONV",319 ,0)
  4510    . I SUCCE SS=-1 D  Q
  4511   "RTN","ORM XCONV",320 ,0)
  4512    . . D ERR LG314^ORMX HL7(ERROR, "NEAR list  patient", $G(HLOARR( "PATIENT") ))
  4513   "RTN","ORM XCONV",321 ,0)
  4514    . . S FAI LED=FAILED +1
  4515   "RTN","ORM XCONV",322 ,0)
  4516    . ;
  4517   "RTN","ORM XCONV",323 ,0)
  4518    . S SENT= SENT+1
  4519   "RTN","ORM XCONV",324 ,0)
  4520    Q
  4521   "RTN","ORM XCONV",325 ,0)
  4522   RCCONV(TOT AL,SENT,FA ILED) ; Re call Remin der conver sion
  4523   "RTN","ORM XCONV",326 ,0)
  4524    ; TOTAL ( O,OPT)  -  The total  number of  records lo oped over  during the  conversio n
  4525   "RTN","ORM XCONV",327 ,0)
  4526    ; SENT (O ,OPT)   -  The total  number of  HL7 messag es that we re success fully queu ed
  4527   "RTN","ORM XCONV",328 ,0)
  4528    ; FAILED  (O,OPT) -  The total  number of  records th at failed  to build o r queue an  HL7 messa ge
  4529   "RTN","ORM XCONV",329 ,0)
  4530    ;
  4531   "RTN","ORM XCONV",330 ,0)
  4532    N DFN,RCI FN,ERROR,S UCCESS,THR EADS,LINK, COUNT
  4533   "RTN","ORM XCONV",331 ,0)
  4534    S (DFN,RC IFN,ERROR, SUCCESS,TH READS,LINK ,COUNT)=""
  4535   "RTN","ORM XCONV",332 ,0)
  4536    ;
  4537   "RTN","ORM XCONV",333 ,0)
  4538    S LINK="O R ORM OUT"
  4539   "RTN","ORM XCONV",334 ,0)
  4540    S TOTAL=0 ,SENT=0,FA ILED=0
  4541   "RTN","ORM XCONV",335 ,0)
  4542    ;
  4543   "RTN","ORM XCONV",336 ,0)
  4544    S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS")
  4545   "RTN","ORM XCONV",337 ,0)
  4546    F  S DFN= $O(^SD(403 .5,"B",DFN )) Q:DFN=" "  D
  4547   "RTN","ORM XCONV",338 ,0)
  4548    . ;
  4549   "RTN","ORM XCONV",339 ,0)
  4550    . ; Don't  trigger a  message i f the pati ent associ ated with  the reques t is dead
  4551   "RTN","ORM XCONV",340 ,0)
  4552    . I $$ISP TDEAD(DFN)  Q
  4553   "RTN","ORM XCONV",341 ,0)
  4554    . ;
  4555   "RTN","ORM XCONV",342 ,0)
  4556    . S RCIFN =""
  4557   "RTN","ORM XCONV",343 ,0)
  4558    . F  S RC IFN=$O(^SD (403.5,"B" ,DFN,RCIFN )) Q:RCIFN =""  D
  4559   "RTN","ORM XCONV",344 ,0)
  4560    . . ;
  4561   "RTN","ORM XCONV",345 ,0)
  4562    . . S TOT AL=TOTAL+1
  4563   "RTN","ORM XCONV",346 ,0)
  4564    . . ;
  4565   "RTN","ORM XCONV",347 ,0)
  4566    . . ; For mat the HL OARR
  4567   "RTN","ORM XCONV",348 ,0)
  4568    . . S SUC CESS=$$FMT RC^ORMXFMT ("NW",RCIF N,.HLOARR, .ERROR)
  4569   "RTN","ORM XCONV",349 ,0)
  4570    . . I SUC CESS=-1 D   Q
  4571   "RTN","ORM XCONV",350 ,0)
  4572    . . . D E RRLOG^SDMX ERRO(312,E RROR,1)
  4573   "RTN","ORM XCONV",351 ,0)
  4574    . . . S F AILED=FAIL ED+1
  4575   "RTN","ORM XCONV",352 ,0)
  4576    . . ;
  4577   "RTN","ORM XCONV",353 ,0)
  4578    . . ; Mul tithreadin g
  4579   "RTN","ORM XCONV",354 ,0)
  4580    . . I $G( THREADS) D
  4581   "RTN","ORM XCONV",355 ,0)
  4582    . . . S C OUNT=SENT# THREADS+1
  4583   "RTN","ORM XCONV",356 ,0)
  4584    . . . S L INK="OR OR M O"_COUNT
  4585   "RTN","ORM XCONV",357 ,0)
  4586    . . ;
  4587   "RTN","ORM XCONV",358 ,0)
  4588    . . ; Tri gger the m essage
  4589   "RTN","ORM XCONV",359 ,0)
  4590    . . S SUC CESS=$$BLD ORMHL^ORMX HL7(.HLOAR R,.ERROR,L INK)
  4591   "RTN","ORM XCONV",360 ,0)
  4592    . . I SUC CESS=-1 D   Q
  4593   "RTN","ORM XCONV",361 ,0)
  4594    . . . D E RRLG314^OR MXHL7(ERRO R,"Recall  Reminder", $G(HLOARR( "ORDER ID" )))
  4595   "RTN","ORM XCONV",362 ,0)
  4596    . . . S F AILED=FAIL ED+1
  4597   "RTN","ORM XCONV",363 ,0)
  4598    . . ;
  4599   "RTN","ORM XCONV",364 ,0)
  4600    . . S SEN T=SENT+1
  4601   "RTN","ORM XCONV",365 ,0)
  4602    Q
  4603   "RTN","ORM XCONV",366 ,0)
  4604   RCCOMP(TOT AL,COMPLET E,FAILED)  ; Complete  all recal l reminder s
  4605   "RTN","ORM XCONV",367 ,0)
  4606    ; TOTAL ( O,OPT)     - The tota l number o f records  looped ove r during t he convers ion
  4607   "RTN","ORM XCONV",368 ,0)
  4608    ; COMPLET E (O,OPT)  - The tota l number c ompleted
  4609   "RTN","ORM XCONV",369 ,0)
  4610    ; FAILED  (O,OPT)    - The tota l number n o complete d
  4611   "RTN","ORM XCONV",370 ,0)
  4612    ;
  4613   "RTN","ORM XCONV",371 ,0)
  4614    N DFN,SDI EN,SDRRFTR
  4615   "RTN","ORM XCONV",372 ,0)
  4616    S (DFN,SD IEN,SDRRFT R)=""
  4617   "RTN","ORM XCONV",373 ,0)
  4618    ;
  4619   "RTN","ORM XCONV",374 ,0)
  4620    S TOTAL=0 ,COMPLETE= 0,FAILED=0
  4621   "RTN","ORM XCONV",375 ,0)
  4622    F  S DFN= $O(^SD(403 .5,"B",DFN )) Q:DFN=" "  D
  4623   "RTN","ORM XCONV",376 ,0)
  4624    . F  S SD IEN=$O(^SD (403.5,"B" ,DFN,SDIEN )) Q:SDIEN =""  D
  4625   "RTN","ORM XCONV",377 ,0)
  4626    . . ;
  4627   "RTN","ORM XCONV",378 ,0)
  4628    . . S TOT AL=TOTAL+1
  4629   "RTN","ORM XCONV",379 ,0)
  4630    . . ;
  4631   "RTN","ORM XCONV",380 ,0)
  4632    . . S DA= SDIEN,SDRR FTR=7,DIK= "^SD(403.5 ," D ^DIK  K DA,DIK
  4633   "RTN","ORM XCONV",381 ,0)
  4634    . . ;
  4635   "RTN","ORM XCONV",382 ,0)
  4636    . . I $G( ^SD(403.5, "B",DFN,SD IEN))="" S  COMPLETE= COMPLETE+1
  4637   "RTN","ORM XCONV",383 ,0)
  4638    . . E  S  FAILED=FAI LED+1
  4639   "RTN","ORM XCONV",384 ,0)
  4640    Q
  4641   "RTN","ORM XCONV",385 ,0)
  4642   RTCCOMP(TO TAL,COMPLE TE,FAILED)  ; Set old  and new R TC orders  to complet e
  4643   "RTN","ORM XCONV",386 ,0)
  4644    ; TOTAL ( O,OPT)     - The tota l number o f records  looped ove r during t he convers ion
  4645   "RTN","ORM XCONV",387 ,0)
  4646    ; COMPLET E (O,OPT)  - The tota l number c ompleted
  4647   "RTN","ORM XCONV",388 ,0)
  4648    ; FAILED  (O,OPT)    - The tota l number n o complete d
  4649   "RTN","ORM XCONV",389 ,0)
  4650    ;
  4651   "RTN","ORM XCONV",390 ,0)
  4652    N ISRTC,O RDIEN,ERRO R
  4653   "RTN","ORM XCONV",391 ,0)
  4654    S (ISRTC, ORDIEN,ERR OR)=""
  4655   "RTN","ORM XCONV",392 ,0)
  4656    ;
  4657   "RTN","ORM XCONV",393 ,0)
  4658    S TOTAL=0 ,COMPLETE= 0,FAILED=0
  4659   "RTN","ORM XCONV",394 ,0)
  4660    F  S ORDI EN=$O(^OR( 100,ORDIEN )) Q:ORDIE N=""  D
  4661   "RTN","ORM XCONV",395 ,0)
  4662    . ;
  4663   "RTN","ORM XCONV",396 ,0)
  4664    . ; Need  to make su re the ord er is an R TC order
  4665   "RTN","ORM XCONV",397 ,0)
  4666    . I '($$I SRTCORD^OR MXTR(ORDIE N)!$$ISOLD RTC(ORDIEN )) Q
  4667   "RTN","ORM XCONV",398 ,0)
  4668    . ;
  4669   "RTN","ORM XCONV",399 ,0)
  4670    . S TOTAL =TOTAL+1
  4671   "RTN","ORM XCONV",400 ,0)
  4672    . ;
  4673   "RTN","ORM XCONV",401 ,0)
  4674    . ; Updat e the stat us of the  RTC order  to "Comple te"
  4675   "RTN","ORM XCONV",402 ,0)
  4676    . I $$COM PRTC^ORMXT R(ORDIEN)= -1 D  Q
  4677   "RTN","ORM XCONV",403 ,0)
  4678    . . S ERR OR="Could  not get lo ck on RTC  order "_OR DIEN_". Th e RTC orde r will nee d to be ma nually com pleted."
  4679   "RTN","ORM XCONV",404 ,0)
  4680    . . D ERR LOG^SDMXER RO(206,ERR OR,1)
  4681   "RTN","ORM XCONV",405 ,0)
  4682    . . S FAI LED=FAILED +1
  4683   "RTN","ORM XCONV",406 ,0)
  4684    . ;
  4685   "RTN","ORM XCONV",407 ,0)
  4686    . S COMPL ETE=COMPLE TE+1
  4687   "RTN","ORM XCONV",408 ,0)
  4688    Q
  4689   "RTN","ORM XCONV",409 ,0)
  4690   ISPTDEAD(D FN) ; Dete rmine if t he patient  is dead
  4691   "RTN","ORM XCONV",410 ,0)
  4692    ; DFN (I, REQ) - Pat ient IEN
  4693   "RTN","ORM XCONV",411 ,0)
  4694    ;
  4695   "RTN","ORM XCONV",412 ,0)
  4696    ; Returns  1 if the  patient is  dead; 0 o therwise.
  4697   "RTN","ORM XCONV",413 ,0)
  4698    ;
  4699   "RTN","ORM XCONV",414 ,0)
  4700    S DFN=$G( DFN)
  4701   "RTN","ORM XCONV",415 ,0)
  4702    I ($G(DFN )'=""),($G (^DPT(DFN, .35))) Q 1
  4703   "RTN","ORM XCONV",416 ,0)
  4704    Q 0
  4705   "RTN","ORM XCONV",417 ,0)
  4706   ISOLDRTC(O RIEN) ; ch ecks if or der is an  "old" styl e RTC
  4707   "RTN","ORM XCONV",418 ,0)
  4708    ; ORIEN -  order IEN  to check
  4709   "RTN","ORM XCONV",419 ,0)
  4710    ;
  4711   "RTN","ORM XCONV",420 ,0)
  4712    N ORDABLE
  4713   "RTN","ORM XCONV",421 ,0)
  4714    ;
  4715   "RTN","ORM XCONV",422 ,0)
  4716    S ORIEN=$ G(ORIEN)
  4717   "RTN","ORM XCONV",423 ,0)
  4718    I ORIEN=" " Q 0
  4719   "RTN","ORM XCONV",424 ,0)
  4720    ;
  4721   "RTN","ORM XCONV",425 ,0)
  4722    S ORDABLE =$G(^OR(10 0,$G(ORIEN ),.1,1,0))
  4723   "RTN","ORM XCONV",426 ,0)
  4724    Q $$INSTR ING^SDMXCO RE(ORDABLE ,$$GET^XPA R("SYS","O RMX RTC OR DERABLE ID "),",")
  4725   "RTN","ORM XCONV",427 ,0)
  4726   OLDRTCFM(C NTLCODE,OR DIEN,HLOAR R,ERROR) ;  Formats o ld RTC ord ers
  4727   "RTN","ORM XCONV",428 ,0)
  4728    ; NOTE: B ased on FM TOR^ORMXFM T
  4729   "RTN","ORM XCONV",429 ,0)
  4730    ;
  4731   "RTN","ORM XCONV",430 ,0)
  4732    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  4733   "RTN","ORM XCONV",431 ,0)
  4734    ; ORDIEN  (I,REQ)    - Order IE N
  4735   "RTN","ORM XCONV",432 ,0)
  4736    ; HLOARR  (O,REQ)    - Array co ntaining t he order i nformation
  4737   "RTN","ORM XCONV",433 ,0)
  4738    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  4739   "RTN","ORM XCONV",434 ,0)
  4740    ;
  4741   "RTN","ORM XCONV",435 ,0)
  4742    ; Returns  1 if we w ere succes sfully abl e to build  and forma t the HLOA RR; return s -1 other wise.
  4743   "RTN","ORM XCONV",436 ,0)
  4744    ;
  4745   "RTN","ORM XCONV",437 ,0)
  4746    N CLINIC, DIAGCNT,DI AGSEQ,DXIE N,RSNNODE, CMTNODE,CM TCNT,DXR,T OTLINES,LI NECNT,LNCO UNT
  4747   "RTN","ORM XCONV",438 ,0)
  4748    N ORTYPE, NODE,OR0,N LTFLAG,FAC ILITY,ISSC HBLE,DIAG, X,Y,DOMAIN ,DATATYPE, NLTPROMT
  4749   "RTN","ORM XCONV",439 ,0)
  4750    S (ORTYPE ,NODE,OR0, NLTFLAG,FA CILITY,ISS CHBLE,DIAG ,X,Y,DOMAI N,DATATYPE ,LNCOUNT)= ""
  4751   "RTN","ORM XCONV",440 ,0)
  4752    S (CLINIC ,DIAGCNT,D IAGSEQ,DXI EN,RSNNODE ,CMTNODE,C MTCNT,DXR, TOTLINES,L INECNT,NLT PROMT)=""
  4753   "RTN","ORM XCONV",441 ,0)
  4754    K ERROR S  ERROR=""
  4755   "RTN","ORM XCONV",442 ,0)
  4756    ;
  4757   "RTN","ORM XCONV",443 ,0)
  4758    ; Validat e paramete rs
  4759   "RTN","ORM XCONV",444 ,0)
  4760    S CNTLCOD E=$G(CNTLC ODE),ORDIE N=$G(ORDIE N)
  4761   "RTN","ORM XCONV",445 ,0)
  4762    I (CNTLCO DE="")!(OR DIEN="") D   Q -1
  4763   "RTN","ORM XCONV",446 ,0)
  4764    . S ERROR ="Missing  required p arameters  for OLDRTC FM^ORMXCON V. Order I EN: "_ORDI EN_", Cont rol Code:  "_CNTLCODE
  4765   "RTN","ORM XCONV",447 ,0)
  4766    ;
  4767   "RTN","ORM XCONV",448 ,0)
  4768    S OR0=$G( ^OR(100,OR DIEN,0))
  4769   "RTN","ORM XCONV",449 ,0)
  4770    I OR0=""  D  Q -1
  4771   "RTN","ORM XCONV",450 ,0)
  4772    . S ERROR ="The orde r does not  exist in  ^OR. The 0  node is m issing. Or der IEN: " _ORDIEN
  4773   "RTN","ORM XCONV",451 ,0)
  4774    ;
  4775   "RTN","ORM XCONV",452 ,0)
  4776    ; Initial ize HLOARR
  4777   "RTN","ORM XCONV",453 ,0)
  4778    D INITARR ^ORMXFMT1( .HLOARR)
  4779   "RTN","ORM XCONV",454 ,0)
  4780    ;
  4781   "RTN","ORM XCONV",455 ,0)
  4782    ; Add the  order inf ormation i n HLOARR
  4783   "RTN","ORM XCONV",456 ,0)
  4784    S ORTYPE= $$TRANORCD ^ORMXFMT(2 ,"^OR(100" )
  4785   "RTN","ORM XCONV",457 ,0)
  4786    S HLOARR( "ORDER ID" )=$P(OR0," ^",1)_$S(O RTYPE=-1:" ^",1:"^"_O RTYPE)
  4787   "RTN","ORM XCONV",458 ,0)
  4788    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") )
  4789   "RTN","ORM XCONV",459 ,0)
  4790    S HLOARR( "ORDERING  PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4))
  4791   "RTN","ORM XCONV",460 ,0)
  4792    S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7)
  4793   "RTN","ORM XCONV",461 ,0)
  4794    S HLOARR( "ORDER COD E")=CNTLCO DE
  4795   "RTN","ORM XCONV",462 ,0)
  4796    S HLOARR( "STOP DATE ")=$P(OR0, "^",9)
  4797   "RTN","ORM XCONV",463 ,0)
  4798    ;
  4799   "RTN","ORM XCONV",464 ,0)
  4800    ; Clinic
  4801   "RTN","ORM XCONV",465 ,0)
  4802    I $$FINDN ODE^ORMXFM T("LOCATIO N",.NODE,O RDIEN) D
  4803   "RTN","ORM XCONV",466 ,0)
  4804    . S CLINI C=+$G(^OR( 100,ORDIEN ,4.5,+NODE ,1))
  4805   "RTN","ORM XCONV",467 ,0)
  4806    I CLINIC= "" S CLINI C=$P($P(OR 0,"^",10), ";")
  4807   "RTN","ORM XCONV",468 ,0)
  4808    ;
  4809   "RTN","ORM XCONV",469 ,0)
  4810    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  4811   "RTN","ORM XCONV",470 ,0)
  4812    ;
  4813   "RTN","ORM XCONV",471 ,0)
  4814    S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$P($G( ^SC(CLINIC ,0)),"^",1 )_"^RTC"_F ACILITY
  4815   "RTN","ORM XCONV",472 ,0)
  4816    S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC)
  4817   "RTN","ORM XCONV",473 ,0)
  4818    ;
  4819   "RTN","ORM XCONV",474 ,0)
  4820    D FMTORCM ^ORMXFMT1( ORDIEN,.HL OARR)
  4821   "RTN","ORM XCONV",475 ,0)
  4822    ;
  4823   "RTN","ORM XCONV",476 ,0)
  4824    ; Clinica lly indica ted date
  4825   "RTN","ORM XCONV",477 ,0)
  4826    I $$FINDN ODE^ORMXFM T("DATE",. NODE,ORDIE N) D
  4827   "RTN","ORM XCONV",478 ,0)
  4828    . S X=$G( ^OR(100,OR DIEN,4.5,+ NODE,1))
  4829   "RTN","ORM XCONV",479 ,0)
  4830    . I '($E( X)?1A) S H LOARR("STA RT DATE")= X
  4831   "RTN","ORM XCONV",480 ,0)
  4832    . E  D
  4833   "RTN","ORM XCONV",481 ,0)
  4834    . . S LNC OUNT=HLOAR R("COMMENT ",0)
  4835   "RTN","ORM XCONV",482 ,0)
  4836    . . I LNC OUNT>1 S L NCOUNT=LNC OUNT+1,HLO ARR("COMME NT",LNCOUN T)=" "
  4837   "RTN","ORM XCONV",483 ,0)
  4838    . . S LNC OUNT=LNCOU NT+1,HLOAR R("COMMENT ",LNCOUNT) ="Clinical ly Indicat ed Date (C ID) stored  as: "_X
  4839   "RTN","ORM XCONV",484 ,0)
  4840    . . S HLO ARR("COMME NT",0)=LNC OUNT
  4841   "RTN","ORM XCONV",485 ,0)
  4842    ;
  4843   "RTN","ORM XCONV",486 ,0)
  4844    ; Loop th rough dial og prompt  answers to  find the  NLT flag
  4845   "RTN","ORM XCONV",487 ,0)
  4846    S NLTPROM T=$$GET^XP AR("SYS"," ORMX RTC N LT PROMPT  ID")
  4847   "RTN","ORM XCONV",488 ,0)
  4848    F LINECNT =1:1:$P($G (^OR(100,O RDIEN,4.5, 0)),"^",3)  D
  4849   "RTN","ORM XCONV",489 ,0)
  4850    . I $P($G (^OR(100,O RDIEN,4.5, LINECNT,0) ),"^",2)'= NLTPROMT Q
  4851   "RTN","ORM XCONV",490 ,0)
  4852    . S NLTFL AG=+$G(^OR (100,ORDIE N,4.5,+LIN ECNT,1))
  4853   "RTN","ORM XCONV",491 ,0)
  4854    . S HLOAR R("NO LATE R THAN")=$ S(NLTFLAG: "YES",1:"" ) ; should  be a 1 fo r yes if n o later th an
  4855   "RTN","ORM XCONV",492 ,0)
  4856    Q 1
  4857   "RTN","ORM XCONV",493 ,0)
  4858    ;;#eor#
  4859   "RTN","ORM XFMT")
  4860   0^1^B24275 2652
  4861   "RTN","ORM XFMT",1,0)
  4862   ORMXFMT ;M ASS/BHC -  ORDER FORM ATTING;8/2 9/17;2018- 04-13 07:3 7:01;8.3;2 tH9XNTJy73 DIaCvjBRUJ VyaQ8KFfM4 tORRUJ16O1 Uw=
  4863   "RTN","ORM XFMT",2,0)
  4864    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;AUGUS T 29,2017; Build 76
  4865   "RTN","ORM XFMT",3,0)
  4866    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  4867   "RTN","ORM XFMT",4,0)
  4868    ; Externa l Referenc es
  4869   "RTN","ORM XFMT",5,0)
  4870    ;   #####   INSTRING ^SDMXCORE
  4871   "RTN","ORM XFMT",6,0)
  4872    ;   #####   UP^XLFST R
  4873   "RTN","ORM XFMT",7,0)
  4874    ;    2263   GET^XPAR
  4875   "RTN","ORM XFMT",8,0)
  4876    ;   #####   DT^ORCDL G2
  4877   "RTN","ORM XFMT",9,0)
  4878    ;   10040   ^SC
  4879   "RTN","ORM XFMT",10,0 )
  4880    ;    4685   ^ORD
  4881   "RTN","ORM XFMT",11,0 )
  4882    ;     ###   ^OR
  4883   "RTN","ORM XFMT",12,0 )
  4884    ;     ###   ^DVB
  4885   "RTN","ORM XFMT",13,0 )
  4886    ;     ###   ^DGEN
  4887   "RTN","ORM XFMT",14,0 )
  4888    ;     ###   ^GMR
  4889   "RTN","ORM XFMT",15,0 )
  4890    ;     266   ^SD
  4891   "RTN","ORM XFMT",16,0 )
  4892   FMTOR(CNTL CODE,ORDIE N,ORDABLE, HLOARR,ERR OR) ; Form at and bui ld the HLO ARR array  from the O rder Entry  Package.
  4893   "RTN","ORM XFMT",17,0 )
  4894    ; See the  format of  the HLOAR R array at  the top o f the rout ine.
  4895   "RTN","ORM XFMT",18,0 )
  4896    ;
  4897   "RTN","ORM XFMT",19,0 )
  4898    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  4899   "RTN","ORM XFMT",20,0 )
  4900    ; ORDIEN  (I,REQ)    - Order IE N
  4901   "RTN","ORM XFMT",21,0 )
  4902    ; ORDABLE  (I,OPT)   - Orderabl e
  4903   "RTN","ORM XFMT",22,0 )
  4904    ; HLOARR  (O,REQ)    - Array co ntaining t he order i nformation
  4905   "RTN","ORM XFMT",23,0 )
  4906    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  4907   "RTN","ORM XFMT",24,0 )
  4908    ;
  4909   "RTN","ORM XFMT",25,0 )
  4910    ; Returns  1 if we w ere succes sfully abl e to build  and forma t the HLOA RR; return s -1 other wise.
  4911   "RTN","ORM XFMT",26,0 )
  4912    ;
  4913   "RTN","ORM XFMT",27,0 )
  4914    N CLINIC, DIAGCNT,DI AGSEQ,DXIE N,RSNNODE, CMTNODE,CM TCNT,DXR,T OTLINES,LI NECNT,STAT US
  4915   "RTN","ORM XFMT",28,0 )
  4916    N ORTYPE, NODE,OR0,N LTFLAG,FAC ILITY,ISSC HBLE,DIAG, X,Y,DOMAIN ,DATATYPE
  4917   "RTN","ORM XFMT",29,0 )
  4918    S (ORTYPE ,NODE,OR0, NLTFLAG,FA CILITY,ISS CHBLE,DIAG ,X,Y,DOMAI N,DATATYPE )=""
  4919   "RTN","ORM XFMT",30,0 )
  4920    S (CLINIC ,DIAGCNT,D IAGSEQ,DXI EN,RSNNODE ,CMTNODE,C MTCNT,DXR, TOTLINES,L INECNT,STA TUS)=""
  4921   "RTN","ORM XFMT",31,0 )
  4922    ;
  4923   "RTN","ORM XFMT",32,0 )
  4924    ; Validat e paramete rs
  4925   "RTN","ORM XFMT",33,0 )
  4926    K ERROR S  ERROR=""
  4927   "RTN","ORM XFMT",34,0 )
  4928    S CNTLCOD E=$G(CNTLC ODE),ORDIE N=$G(ORDIE N),ORDABLE =$G(ORDABL E)
  4929   "RTN","ORM XFMT",35,0 )
  4930    I (CNTLCO DE="")!(OR DIEN="") D   Q -1
  4931   "RTN","ORM XFMT",36,0 )
  4932    . S ERROR ="Missing  required p arameters  for FMTOR^ ORMXFMT.   Order IEN:  "_ORDIEN_ ", Control  Code: "_C NTLCODE
  4933   "RTN","ORM XFMT",37,0 )
  4934    ;
  4935   "RTN","ORM XFMT",38,0 )
  4936    S OR0=$G( ^OR(100,OR DIEN,0))
  4937   "RTN","ORM XFMT",39,0 )
  4938    I OR0=""  D  Q -1
  4939   "RTN","ORM XFMT",40,0 )
  4940    . S ERROR ="The orde r does not  exist in  ^OR. The 0  node is m issing.  O rder IEN:  "_ORDIEN
  4941   "RTN","ORM XFMT",41,0 )
  4942    ;
  4943   "RTN","ORM XFMT",42,0 )
  4944    I ORDABLE ="" S ORDA BLE=$G(^OR (100,ORDIE N,.1,1,0))
  4945   "RTN","ORM XFMT",43,0 )
  4946    ;
  4947   "RTN","ORM XFMT",44,0 )
  4948    ; Initial ize HLOARR
  4949   "RTN","ORM XFMT",45,0 )
  4950    D INITARR ^ORMXFMT1( .HLOARR)
  4951   "RTN","ORM XFMT",46,0 )
  4952    ;
  4953   "RTN","ORM XFMT",47,0 )
  4954    ; Add the  order inf ormation i n HLOARR
  4955   "RTN","ORM XFMT",48,0 )
  4956    S ORTYPE= $$TRANORCD (2,"^OR(10 0")
  4957   "RTN","ORM XFMT",49,0 )
  4958    S HLOARR( "ORDER ID" )=$P(OR0," ^",1)_$S(O RTYPE=-1:" ^",1:"^"_O RTYPE)
  4959   "RTN","ORM XFMT",50,0 )
  4960    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") )
  4961   "RTN","ORM XFMT",51,0 )
  4962    S HLOARR( "ORDERING  PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4))
  4963   "RTN","ORM XFMT",52,0 )
  4964    S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7)
  4965   "RTN","ORM XFMT",53,0 )
  4966    S HLOARR( "ORDER COD E")=CNTLCO DE
  4967   "RTN","ORM XFMT",54,0 )
  4968    S HLOARR( "STOP DATE ")=$P(OR0, "^",9)
  4969   "RTN","ORM XFMT",55,0 )
  4970    ;
  4971   "RTN","ORM XFMT",56,0 )
  4972    ; RTC spe cific proc essing if  the order  is an RTC  order
  4973   "RTN","ORM XFMT",57,0 )
  4974    I $$ISRTC ORD^ORMXTR (ORDIEN) D  FMTRTC(OR DIEN,.HLOA RR)
  4975   "RTN","ORM XFMT",58,0 )
  4976    E  D
  4977   "RTN","ORM XFMT",59,0 )
  4978    . I ORDAB LE'="" S H LOARR("ORD ERABLE")=O RDABLE_"^" _$P($G(^OR D(101.43,O RDABLE,0)) ,"^")_$S(O RTYPE=-1:" ",1:"^"_OR TYPE)
  4979   "RTN","ORM XFMT",60,0 )
  4980    . S HLOAR R("START D ATE")=$P(O R0,"^",8)
  4981   "RTN","ORM XFMT",61,0 )
  4982    . S CLINI C=$P($P(OR 0,"^",10), ";")
  4983   "RTN","ORM XFMT",62,0 )
  4984    . S HLOAR R("CLINIC" )=$$FMTCLI N^ORMXFMT1 (CLINIC)
  4985   "RTN","ORM XFMT",63,0 )
  4986    . S STATU S=$P($G(^O R(100,ORDI EN,3)),"^" ,3)
  4987   "RTN","ORM XFMT",64,0 )
  4988    . I STATU S'="" S HL OARR("CPRS  STATUS")= $P($G(^ORD (100.01,ST ATUS,0))," ^",1)
  4989   "RTN","ORM XFMT",65,0 )
  4990    ;
  4991   "RTN","ORM XFMT",66,0 )
  4992    ; Add the  diagnosis  informati on in HLOA RR
  4993   "RTN","ORM XFMT",67,0 )
  4994    S DIAGCNT =1,DIAGSEQ =""
  4995   "RTN","ORM XFMT",68,0 )
  4996    F  S DIAG SEQ=$O(^OR (100,ORDIE N,5.1,DIAG SEQ)) Q:DI AGSEQ=""   D
  4997   "RTN","ORM XFMT",69,0 )
  4998    . ;
  4999   "RTN","ORM XFMT",70,0 )
  5000    . ; Get t he diagnos es for an  order
  5001   "RTN","ORM XFMT",71,0 )
  5002    . S DXIEN =$P($G(^OR (100,ORDIE N,5.1,DIAG SEQ,0)),"^ ") ; DXIEN =pointer t o diagnosi s (ICD9) f ile #80
  5003   "RTN","ORM XFMT",72,0 )
  5004    . S DIAG= $$FMTDIAG^ ORMXFMT1(D XIEN,ORDIE N)
  5005   "RTN","ORM XFMT",73,0 )
  5006    . I DIAG' ="" D
  5007   "RTN","ORM XFMT",74,0 )
  5008    . . S HLO ARR("DIAGN OSIS",DIAG CNT)=DIAG
  5009   "RTN","ORM XFMT",75,0 )
  5010    . . S DIA GCNT=DIAGC NT+1
  5011   "RTN","ORM XFMT",76,0 )
  5012    ;
  5013   "RTN","ORM XFMT",77,0 )
  5014    S HLOARR( "DIAGNOSIS ",0)=DIAGC NT-1
  5015   "RTN","ORM XFMT",78,0 )
  5016    ;
  5017   "RTN","ORM XFMT",79,0 )
  5018    S LINECNT =1
  5019   "RTN","ORM XFMT",80,0 )
  5020    ;
  5021   "RTN","ORM XFMT",81,0 )
  5022    ; Add the  reason fo r study in formation  in HLOARR
  5023   "RTN","ORM XFMT",82,0 )
  5024    I $$FINDN ODE("REASO N",.RSNNOD E,ORDIEN)  D
  5025   "RTN","ORM XFMT",83,0 )
  5026    . ;
  5027   "RTN","ORM XFMT",84,0 )
  5028    . ; Reaso n for stud y will onl y have 1 l ine of tex t.
  5029   "RTN","ORM XFMT",85,0 )
  5030    . S HLOAR R("REASON  FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1
  5031   "RTN","ORM XFMT",86,0 )
  5032    . S HLOAR R("REASON  FOR STUDY" ,LINECNT)= $G(^OR(100 ,ORDIEN,4. 5,+RSNNODE ,1)),LINEC NT=LINECNT +1
  5033   "RTN","ORM XFMT",87,0 )
  5034    ;
  5035   "RTN","ORM XFMT",88,0 )
  5036    S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1
  5037   "RTN","ORM XFMT",89,0 )
  5038    ;
  5039   "RTN","ORM XFMT",90,0 )
  5040    ; Add the  comments  in HLOARR
  5041   "RTN","ORM XFMT",91,0 )
  5042    D FMTORCM ^ORMXFMT1( ORDIEN,.HL OARR)
  5043   "RTN","ORM XFMT",92,0 )
  5044    ;
  5045   "RTN","ORM XFMT",93,0 )
  5046    Q 1
  5047   "RTN","ORM XFMT",94,0 )
  5048   FMTGMRC(CN TLCODE,GMR IEN,ORDABL E,HLOARR,E RROR) ; Fo rmat and b uild the H LOARR arra y from the  Consult P ackage.
  5049   "RTN","ORM XFMT",95,0 )
  5050    ; See the  format of  the HLOAR R array at  the top o f the rout ine.
  5051   "RTN","ORM XFMT",96,0 )
  5052    ;
  5053   "RTN","ORM XFMT",97,0 )
  5054    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  5055   "RTN","ORM XFMT",98,0 )
  5056    ; GMRIEN  (I,REQ)    - Consult  IEN
  5057   "RTN","ORM XFMT",99,0 )
  5058    ; ORDABLE  (I,OPT)   - Orderabl e
  5059   "RTN","ORM XFMT",100, 0)
  5060    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  5061   "RTN","ORM XFMT",101, 0)
  5062    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  5063   "RTN","ORM XFMT",102, 0)
  5064    ;
  5065   "RTN","ORM XFMT",103, 0)
  5066    ; Returns  1 if we w ere sucess fully able  to build  and format  the HLOAR R; returns  -1 otherw ise.
  5067   "RTN","ORM XFMT",104, 0)
  5068    ;
  5069   "RTN","ORM XFMT",105, 0)
  5070    N CLINIC, ORDIEN,RSN CNT,NTECNT ,CMTNODE,C MTCNT,TOTL INES,DIAGC NT,DXIEN,C MTSTS,ORTY PE,DIAG,UR GENCY,STAT US
  5071   "RTN","ORM XFMT",106, 0)
  5072    S (CLINIC ,ORDIEN,RS NCNT,NTECN T,CMTNODE, CMTCNT,TOT LINES,DIAG CNT,DXIEN, CMTSTS,ORT YPE,DIAG,U RGENCY,STA TUS)=""
  5073   "RTN","ORM XFMT",107, 0)
  5074    ;
  5075   "RTN","ORM XFMT",108, 0)
  5076    ; Validat e paramete rs
  5077   "RTN","ORM XFMT",109, 0)
  5078    K ERROR S  ERROR=""
  5079   "RTN","ORM XFMT",110, 0)
  5080    S CNTLCOD E=$G(CNTLC ODE),GMRIE N=$G(GMRIE N),ORDABLE =$G(ORDABL E)
  5081   "RTN","ORM XFMT",111, 0)
  5082    I (CNTLCO DE="")!(GM RIEN="") D   Q -1
  5083   "RTN","ORM XFMT",112, 0)
  5084    . S ERROR ="Missing  required p arameters  for FMTGMR C^ORMXFMT.   Consult  IEN: "_GMR IEN_", Con trol Code:  "_CNTLCOD E
  5085   "RTN","ORM XFMT",113, 0)
  5086    ;
  5087   "RTN","ORM XFMT",114, 0)
  5088    S ORDIEN= $P($G(^GMR (123,GMRIE N,0)),"^", 3)
  5089   "RTN","ORM XFMT",115, 0)
  5090    I ORDIEN= "" D  Q -1
  5091   "RTN","ORM XFMT",116, 0)
  5092    . S ERROR ="Can not  find the a ssociated  order for  the consul t in ^OR.  Consult IE N: "_GMRIE N
  5093   "RTN","ORM XFMT",117, 0)
  5094    ;
  5095   "RTN","ORM XFMT",118, 0)
  5096    S OR0=$G( ^OR(100,OR DIEN,0))
  5097   "RTN","ORM XFMT",119, 0)
  5098    I OR0=""  D  Q -1
  5099   "RTN","ORM XFMT",120, 0)
  5100    . S ERROR ="The orde r does not  exist in  ^OR. The 0  node is m issing. Co nsult IEN:  "_GMRIEN_ ", Order I EN: "_ORDI EN
  5101   "RTN","ORM XFMT",121, 0)
  5102    ;
  5103   "RTN","ORM XFMT",122, 0)
  5104    I ORDABLE ="" S ORDA BLE=$G(^OR (100,ORDIE N,.1,1,0))
  5105   "RTN","ORM XFMT",123, 0)
  5106    ;
  5107   "RTN","ORM XFMT",124, 0)
  5108    ; Initial ize HLOARR
  5109   "RTN","ORM XFMT",125, 0)
  5110    D INITARR ^ORMXFMT1( .HLOARR)
  5111   "RTN","ORM XFMT",126, 0)
  5112    ;
  5113   "RTN","ORM XFMT",127, 0)
  5114    ; Add the  order inf ormation i n HLOARR
  5115   "RTN","ORM XFMT",128, 0)
  5116    S ORTYPE= $$TRANORCD (2,"^OR(10 0")
  5117   "RTN","ORM XFMT",129, 0)
  5118    S HLOARR( "ORDER ID" )=ORDIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE)
  5119   "RTN","ORM XFMT",130, 0)
  5120    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") )
  5121   "RTN","ORM XFMT",131, 0)
  5122    I ORDABLE '="" S HLO ARR("ORDER ABLE")=ORD ABLE_"^"_$ P($G(^ORD( 101.43,ORD ABLE,0))," ^")_$S(ORT YPE=-1:"", 1:"^"_ORTY PE)
  5123   "RTN","ORM XFMT",132, 0)
  5124    ;
  5125   "RTN","ORM XFMT",133, 0)
  5126    S HLOARR( "ORDERING  PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4))
  5127   "RTN","ORM XFMT",134, 0)
  5128    S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7)
  5129   "RTN","ORM XFMT",135, 0)
  5130    S HLOARR( "ORDER COD E")=CNTLCO DE
  5131   "RTN","ORM XFMT",136, 0)
  5132    ;
  5133   "RTN","ORM XFMT",137, 0)
  5134    ; Set the  CPRS stat us
  5135   "RTN","ORM XFMT",138, 0)
  5136    S STATUS= $P($G(^GMR (123,GMRIE N,0)),"^", 12)
  5137   "RTN","ORM XFMT",139, 0)
  5138    I STATUS' ="" S HLOA RR("CPRS S TATUS")=$P ($G(^ORD(1 00.01,STAT US,0)),"^" ,1)
  5139   "RTN","ORM XFMT",140, 0)
  5140    ;
  5141   "RTN","ORM XFMT",141, 0)
  5142    ; If the  control co de is "CA"  (or cance l), set th e cancel r eason
  5143   "RTN","ORM XFMT",142, 0)
  5144    I CNTLCOD E="CA" D
  5145   "RTN","ORM XFMT",143, 0)
  5146    . ;
  5147   "RTN","ORM XFMT",144, 0)
  5148    . ; Set a  specific  cancel rea son for fo rwards
  5149   "RTN","ORM XFMT",145, 0)
  5150    . I $$INS TRING^SDMX CORE($P($G (^GMR(123, $G(GMRIEN) ,0)),"^",1 3),"17,25" ,",") S HL OARR("CANC EL REASON" )="FWD"
  5151   "RTN","ORM XFMT",146, 0)
  5152    . E  S HL OARR("CANC EL REASON" )=""
  5153   "RTN","ORM XFMT",147, 0)
  5154    ;
  5155   "RTN","ORM XFMT",148, 0)
  5156    S HLOARR( "START DAT E")=$P($G( ^GMR(123,G MRIEN,0)), "^",24)
  5157   "RTN","ORM XFMT",149, 0)
  5158    I $G(HLOA RR("START  DATE"))=""  S HLOARR( "START DAT E")=$P(OR0 ,"^",8) ;  Default th e order st art date i f no CID
  5159   "RTN","ORM XFMT",150, 0)
  5160    S HLOARR( "STOP DATE ")=$P(OR0, "^",9)
  5161   "RTN","ORM XFMT",151, 0)
  5162    ;
  5163   "RTN","ORM XFMT",152, 0)
  5164    ; URGENCY
  5165   "RTN","ORM XFMT",153, 0)
  5166    S URGENCY =$P($G(^GM R(123,GMRI EN,0)),"^" ,9)
  5167   "RTN","ORM XFMT",154, 0)
  5168    I URGENCY '="" S HLO ARR("URGEN CY")=$P($G (^ORD(101, URGENCY,0) ),"^",2)
  5169   "RTN","ORM XFMT",155, 0)
  5170    ;
  5171   "RTN","ORM XFMT",156, 0)
  5172    ; Add the  clinic in formation  in HLOARR
  5173   "RTN","ORM XFMT",157, 0)
  5174    S CLINIC= $P($P(OR0, "^",10),"; ")
  5175   "RTN","ORM XFMT",158, 0)
  5176    S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC)
  5177   "RTN","ORM XFMT",159, 0)
  5178    ;
  5179   "RTN","ORM XFMT",160, 0)
  5180    ; Add the  diagnosis  informati on in HLOA RR
  5181   "RTN","ORM XFMT",161, 0)
  5182    S DIAGCNT =1
  5183   "RTN","ORM XFMT",162, 0)
  5184    I $D(^GMR (123,"AC", ORDIEN)) D
  5185   "RTN","ORM XFMT",163, 0)
  5186    . S DXIEN =$P($G(^GM R(123,GMRI EN,30.1)), "^") ; DXI EN=pointer  to diagno sis (ICD9)  file #80
  5187   "RTN","ORM XFMT",164, 0)
  5188    . S DIAG= $$FMTDIAG^ ORMXFMT1(D XIEN,ORDIE N)
  5189   "RTN","ORM XFMT",165, 0)
  5190    . I DIAG' ="" D
  5191   "RTN","ORM XFMT",166, 0)
  5192    . . S HLO ARR("DIAGN OSIS",DIAG CNT)=DIAG
  5193   "RTN","ORM XFMT",167, 0)
  5194    . . S DIA GCNT=DIAGC NT+1
  5195   "RTN","ORM XFMT",168, 0)
  5196    ;
  5197   "RTN","ORM XFMT",169, 0)
  5198    S HLOARR( "DIAGNOSIS ",0)=DIAGC NT-1
  5199   "RTN","ORM XFMT",170, 0)
  5200    ;
  5201   "RTN","ORM XFMT",171, 0)
  5202    ; Add the  reason fo r study in formation  in HLOARR
  5203   "RTN","ORM XFMT",172, 0)
  5204    S LINECNT =1
  5205   "RTN","ORM XFMT",173, 0)
  5206    S TOTLINE S=$P($G(^G MR(123,GMR IEN,20,0)) ,"^",3)
  5207   "RTN","ORM XFMT",174, 0)
  5208    I TOTLINE S'="" D
  5209   "RTN","ORM XFMT",175, 0)
  5210    . ;
  5211   "RTN","ORM XFMT",176, 0)
  5212    . ; Loop  through th e reason f or study a nd add to  the HLOARR
  5213   "RTN","ORM XFMT",177, 0)
  5214    . S HLOAR R("REASON  FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1
  5215   "RTN","ORM XFMT",178, 0)
  5216    . F RSNCN T=1:1:TOTL INES D
  5217   "RTN","ORM XFMT",179, 0)
  5218    . . S HLO ARR("REASO N FOR STUD Y",LINECNT )=$G(^GMR( 123,GMRIEN ,20,RSNCNT ,0)),LINEC NT=LINECNT +1
  5219   "RTN","ORM XFMT",180, 0)
  5220    ;
  5221   "RTN","ORM XFMT",181, 0)
  5222    S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1
  5223   "RTN","ORM XFMT",182, 0)
  5224    ;
  5225   "RTN","ORM XFMT",183, 0)
  5226    ; Add the  comments  in HLOARR
  5227   "RTN","ORM XFMT",184, 0)
  5228    D FMTGMRC M^ORMXFMT1 (ORDIEN,GM RIEN,.HLOA RR)
  5229   "RTN","ORM XFMT",185, 0)
  5230    ;
  5231   "RTN","ORM XFMT",186, 0)
  5232    Q 1
  5233   "RTN","ORM XFMT",187, 0)
  5234   FMTFWGMR(C NTLCODE,GM RIEN,ORDAB LE,HLOARR, ERROR) ; F ormat and  build the  HLOARR arr ay from th e Consult  Package.
  5235   "RTN","ORM XFMT",188, 0)
  5236    ; This ro utine is s pecific to  forwards  and does n ot rely on  data from  ^OR. See
  5237   "RTN","ORM XFMT",189, 0)
  5238    ; the for mat of the  HLOARR ar ray at the  top of th e routine.
  5239   "RTN","ORM XFMT",190, 0)
  5240    ;
  5241   "RTN","ORM XFMT",191, 0)
  5242    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  5243   "RTN","ORM XFMT",192, 0)
  5244    ; GMRIEN  (I,REQ)    - Consult  IEN
  5245   "RTN","ORM XFMT",193, 0)
  5246    ; ORDABLE  (I,OPT)   - Orderabl e
  5247   "RTN","ORM XFMT",194, 0)
  5248    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  5249   "RTN","ORM XFMT",195, 0)
  5250    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  5251   "RTN","ORM XFMT",196, 0)
  5252    ;
  5253   "RTN","ORM XFMT",197, 0)
  5254    ; Returns  1 if we w ere sucess fully able  to build  and format  the HLOAR R; returns  -1 otherw ise.
  5255   "RTN","ORM XFMT",198, 0)
  5256    ;
  5257   "RTN","ORM XFMT",199, 0)
  5258    N CLINIC, RSNCNT,NTE CNT,CMTNOD E,CMTCNT,T OTLINES,DI AGCNT,DXIE N,CMTSTS,O RTYPE,DIAG ,URGENCY,S TATUS,REQS ERV,GMR0,P ROVNAME
  5259   "RTN","ORM XFMT",200, 0)
  5260    S (CLINIC ,RSNCNT,NT ECNT,CMTNO DE,CMTCNT, TOTLINES,D IAGCNT,DXI EN,CMTSTS, ORTYPE,DIA G,URGENCY, STATUS,REQ SERV,GMR0, PROVNAME)= ""
  5261   "RTN","ORM XFMT",201, 0)
  5262    ;
  5263   "RTN","ORM XFMT",202, 0)
  5264    ; Validat e paramete rs
  5265   "RTN","ORM XFMT",203, 0)
  5266    K ERROR S  ERROR=""
  5267   "RTN","ORM XFMT",204, 0)
  5268    S CNTLCOD E=$G(CNTLC ODE),GMRIE N=$G(GMRIE N),ORDABLE =$G(ORDABL E)
  5269   "RTN","ORM XFMT",205, 0)
  5270    I (CNTLCO DE="")!(GM RIEN="") D   Q -1
  5271   "RTN","ORM XFMT",206, 0)
  5272    . S ERROR ="Missing  required p arameters  for FMTGMR C^ORMXFMT.   Consult  IEN: "_GMR IEN_", Con trol Code:  "_CNTLCOD E
  5273   "RTN","ORM XFMT",207, 0)
  5274    ;
  5275   "RTN","ORM XFMT",208, 0)
  5276    I ORDABLE ="" D
  5277   "RTN","ORM XFMT",209, 0)
  5278    . S REQSE RV=$P($G(^ GMR(123,GM RIEN,0))," ^",5)
  5279   "RTN","ORM XFMT",210, 0)
  5280    . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_REQSERV _"^^99CON" )
  5281   "RTN","ORM XFMT",211, 0)
  5282    ;
  5283   "RTN","ORM XFMT",212, 0)
  5284    S GMR0=$G (^GMR(123, GMRIEN,0))
  5285   "RTN","ORM XFMT",213, 0)
  5286    I GMR0=""  D  Q -1
  5287   "RTN","ORM XFMT",214, 0)
  5288    . S ERROR ="The 0 no de is miss ing in ^GM R for the  consult. C onsult IEN : "_GMRIEN _", Contro l Code: "_ CNTLCODE
  5289   "RTN","ORM XFMT",215, 0)
  5290    ;
  5291   "RTN","ORM XFMT",216, 0)
  5292    ; Initial ize HLOARR
  5293   "RTN","ORM XFMT",217, 0)
  5294    D INITARR ^ORMXFMT1( .HLOARR)
  5295   "RTN","ORM XFMT",218, 0)
  5296    ;
  5297   "RTN","ORM XFMT",219, 0)
  5298    ; Add the  order inf ormation i n HLOARR
  5299   "RTN","ORM XFMT",220, 0)
  5300    S ORTYPE= $$TRANORCD (2,"^GMR(1 23")
  5301   "RTN","ORM XFMT",221, 0)
  5302    S HLOARR( "ORDER ID" )=GMRIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE)
  5303   "RTN","ORM XFMT",222, 0)
  5304    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(GMR0, "^",2),";" ))
  5305   "RTN","ORM XFMT",223, 0)
  5306    I ORDABLE '="" S HLO ARR("ORDER ABLE")=ORD ABLE_"^"_$ P($G(^ORD( 101.43,ORD ABLE,0))," ^")_$S(ORT YPE=-1:"", 1:"^"_ORTY PE)
  5307   "RTN","ORM XFMT",224, 0)
  5308    ;
  5309   "RTN","ORM XFMT",225, 0)
  5310    S PROVNAM E=$P($G(^G MR(123,GMR IEN,12))," ^",6)
  5311   "RTN","ORM XFMT",226, 0)
  5312    S HLOARR( "ORDERING  PHYSICIAN" )="^"_$P(P ROVNAME,", ",1)_"^"_$ P(PROVNAME ,",",2)_"^ "
  5313   "RTN","ORM XFMT",227, 0)
  5314    S HLOARR( "ORDER DAT E")=$P(GMR 0,"^",7)
  5315   "RTN","ORM XFMT",228, 0)
  5316    S HLOARR( "ORDER COD E")=CNTLCO DE
  5317   "RTN","ORM XFMT",229, 0)
  5318    ;
  5319   "RTN","ORM XFMT",230, 0)
  5320    ; Set the  CPRS stat us
  5321   "RTN","ORM XFMT",231, 0)
  5322    S STATUS= $P($G(^GMR (123,GMRIE N,0)),"^", 12)
  5323   "RTN","ORM XFMT",232, 0)
  5324    I STATUS' ="" S HLOA RR("CPRS S TATUS")=$P ($G(^ORD(1 00.01,STAT US,0)),"^" ,1)
  5325   "RTN","ORM XFMT",233, 0)
  5326    ;
  5327   "RTN","ORM XFMT",234, 0)
  5328    ; If the  control co de is "CA"  (or cance l), set th e cancel r eason
  5329   "RTN","ORM XFMT",235, 0)
  5330    I CNTLCOD E="CA" D
  5331   "RTN","ORM XFMT",236, 0)
  5332    . ;
  5333   "RTN","ORM XFMT",237, 0)
  5334    . ; Set a  specific  cancel rea son for fo rwards
  5335   "RTN","ORM XFMT",238, 0)
  5336    . I $$INS TRING^SDMX CORE($P($G (^GMR(123, $G(GMRIEN) ,0)),"^",1 3),"17,25" ,",") S HL OARR("CANC EL REASON" )="FWD"
  5337   "RTN","ORM XFMT",239, 0)
  5338    . E  S HL OARR("CANC EL REASON" )=""
  5339   "RTN","ORM XFMT",240, 0)
  5340    ;
  5341   "RTN","ORM XFMT",241, 0)
  5342    S HLOARR( "START DAT E")=$P($G( ^GMR(123,G MRIEN,0)), "^",24)
  5343   "RTN","ORM XFMT",242, 0)
  5344    ;
  5345   "RTN","ORM XFMT",243, 0)
  5346    ; URGENCY
  5347   "RTN","ORM XFMT",244, 0)
  5348    S URGENCY =$P($G(^GM R(123,GMRI EN,0)),"^" ,9)
  5349   "RTN","ORM XFMT",245, 0)
  5350    I URGENCY '="" S HLO ARR("URGEN CY")=$P($G (^ORD(101, URGENCY,0) ),"^",2)
  5351   "RTN","ORM XFMT",246, 0)
  5352    ;
  5353   "RTN","ORM XFMT",247, 0)
  5354    ; Add the  clinic in formation  in HLOARR
  5355   "RTN","ORM XFMT",248, 0)
  5356    ; S CLINI C=$P($P(OR 0,"^",10), ";")
  5357   "RTN","ORM XFMT",249, 0)
  5358    ; S HLOAR R("CLINIC" )=$$FMTCLI N^ORMXFMT1 (CLINIC)
  5359   "RTN","ORM XFMT",250, 0)
  5360    ;
  5361   "RTN","ORM XFMT",251, 0)
  5362    ; Add the  reason fo r study in formation  in HLOARR
  5363   "RTN","ORM XFMT",252, 0)
  5364    S LINECNT =1
  5365   "RTN","ORM XFMT",253, 0)
  5366    S TOTLINE S=$P($G(^G MR(123,GMR IEN,20,0)) ,"^",3)
  5367   "RTN","ORM XFMT",254, 0)
  5368    I TOTLINE S'="" D
  5369   "RTN","ORM XFMT",255, 0)
  5370    . ;
  5371   "RTN","ORM XFMT",256, 0)
  5372    . ; Loop  through th e reason f or study a nd add to  the HLOARR
  5373   "RTN","ORM XFMT",257, 0)
  5374    . S HLOAR R("REASON  FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1
  5375   "RTN","ORM XFMT",258, 0)
  5376    . F RSNCN T=1:1:TOTL INES D
  5377   "RTN","ORM XFMT",259, 0)
  5378    . . S HLO ARR("REASO N FOR STUD Y",LINECNT )=$G(^GMR( 123,GMRIEN ,20,RSNCNT ,0)),LINEC NT=LINECNT +1
  5379   "RTN","ORM XFMT",260, 0)
  5380    ;
  5381   "RTN","ORM XFMT",261, 0)
  5382    S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1
  5383   "RTN","ORM XFMT",262, 0)
  5384    ;
  5385   "RTN","ORM XFMT",263, 0)
  5386    ; Add the  comments  in HLOARR
  5387   "RTN","ORM XFMT",264, 0)
  5388    D FMTGMRC M^ORMXFMT1 ("",GMRIEN ,.HLOARR)
  5389   "RTN","ORM XFMT",265, 0)
  5390    ;
  5391   "RTN","ORM XFMT",266, 0)
  5392    Q 1
  5393   "RTN","ORM XFMT",267, 0)
  5394   FMTCP(CNTL CODE,DVBIE N,HLOARR,E RROR) ; Fo rmat and b uild the H LOARR arra y from the  C&P Packa ge. See
  5395   "RTN","ORM XFMT",268, 0)
  5396    ; the for mat of the  HLOARR ar ray at the  top of th e routine.
  5397   "RTN","ORM XFMT",269, 0)
  5398    ;
  5399   "RTN","ORM XFMT",270, 0)
  5400    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  5401   "RTN","ORM XFMT",271, 0)
  5402    ; DVBIEN  (I,REQ)    - C&P IEN
  5403   "RTN","ORM XFMT",272, 0)
  5404    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  5405   "RTN","ORM XFMT",273, 0)
  5406    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  5407   "RTN","ORM XFMT",274, 0)
  5408    ;
  5409   "RTN","ORM XFMT",275, 0)
  5410    ; Returns  1 if we w ere sucess fully able  to build  and format  the HLOAR R; returns  -1 otherw ise.
  5411   "RTN","ORM XFMT",276, 0)
  5412    ;
  5413   "RTN","ORM XFMT",277, 0)
  5414    N DVB0,CP 0,ORTYPE,L INE,FACILI TY,LINECNT ,REQIEN
  5415   "RTN","ORM XFMT",278, 0)
  5416    S (DVB0,C P0,ORTYPE, LINE,FACIL ITY,LINECN T,REQIEN)= ""
  5417   "RTN","ORM XFMT",279, 0)
  5418    ;
  5419   "RTN","ORM XFMT",280, 0)
  5420    ; Validat e paramete rs
  5421   "RTN","ORM XFMT",281, 0)
  5422    K ERROR S  ERROR=""
  5423   "RTN","ORM XFMT",282, 0)
  5424    S CNTLCOD E=$G(CNTLC ODE),DVBIE N=$G(DVBIE N)
  5425   "RTN","ORM XFMT",283, 0)
  5426    I (CNTLCO DE="")!(DV BIEN="") D   Q -1
  5427   "RTN","ORM XFMT",284, 0)
  5428    . S ERROR ="Missing  required p arameters  for FMTCP^ ORMXFMT. C &P IEN: "_ DVBIEN_",  Control Co de: "_CNTL CODE
  5429   "RTN","ORM XFMT",285, 0)
  5430    ;
  5431   "RTN","ORM XFMT",286, 0)
  5432    S DVB0=$G (^DVB(396. 4,DVBIEN,0 ))
  5433   "RTN","ORM XFMT",287, 0)
  5434    I DVB0=""  D  Q -1
  5435   "RTN","ORM XFMT",288, 0)
  5436    . S ERROR ="The C&P  request do es not exi st in ^DVB . The 0 no de is miss ing. C&P I EN: "_DVBI EN
  5437   "RTN","ORM XFMT",289, 0)
  5438    ;
  5439   "RTN","ORM XFMT",290, 0)
  5440    ; Initial ize HLOARR
  5441   "RTN","ORM XFMT",291, 0)
  5442    D INITARR ^ORMXFMT1( .HLOARR)
  5443   "RTN","ORM XFMT",292, 0)
  5444    ;
  5445   "RTN","ORM XFMT",293, 0)
  5446    S CP0=$G( ^DVB(396.3 ,$P(DVB0," ^",2),0))
  5447   "RTN","ORM XFMT",294, 0)
  5448    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  5449   "RTN","ORM XFMT",295, 0)
  5450    S ORTYPE= $$TRANORCD (2,"^DVB(3 96.4")
  5451   "RTN","ORM XFMT",296, 0)
  5452    ;
  5453   "RTN","ORM XFMT",297, 0)
  5454    S HLOARR( "ORDER ID" )=DVBIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE)
  5455   "RTN","ORM XFMT",298, 0)
  5456    S HLOARR( "ORDERABLE ")=$P(DVB0 ,"^",3)_"^ "_$P($G(^D VB(396.6,$ P(DVB0,"^" ,3),0)),"^ ",1)_$S(OR TYPE=-1:"" ,1:"^"_ORT YPE)
  5457   "RTN","ORM XFMT",299, 0)
  5458    S HLOARR( "CLINIC")= $$GET^XPAR ("SYS","OR MX C&P DEP ARTMENT ID ")_"^"_FAC ILITY_"^^S C"_FACILIT Y
  5459   "RTN","ORM XFMT",300, 0)
  5460    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P(CP0,"^", 1))
  5461   "RTN","ORM XFMT",301, 0)
  5462    S HLOARR( "ORDER COD E")=CNTLCO DE
  5463   "RTN","ORM XFMT",302, 0)
  5464    ;
  5465   "RTN","ORM XFMT",303, 0)
  5466    S REQIEN= $P(DVB0,"^ ",2)
  5467   "RTN","ORM XFMT",304, 0)
  5468    I REQIEN' ="" D
  5469   "RTN","ORM XFMT",305, 0)
  5470    . S LINEC NT=$P($G(^ DVB(396.3, REQIEN,2,0 )),"^",3)
  5471   "RTN","ORM XFMT",306, 0)
  5472    . F LINE= 1:1:LINECN T D
  5473   "RTN","ORM XFMT",307, 0)
  5474    . . S HLO ARR("COMME NT",LINE)= $G(^DVB(39 6.3,REQIEN ,2,LINE,0) )
  5475   "RTN","ORM XFMT",308, 0)
  5476    . ;
  5477   "RTN","ORM XFMT",309, 0)
  5478    . S HLOAR R("COMMENT ",0)=LINEC NT
  5479   "RTN","ORM XFMT",310, 0)
  5480    ;
  5481   "RTN","ORM XFMT",311, 0)
  5482    Q 1
  5483   "RTN","ORM XFMT",312, 0)
  5484   FMTNL(CNTL CODE,DFN,H LOARR,ERRO R) ; Forma t and buil d the HLOA RR array f rom the NE AR Package .
  5485   "RTN","ORM XFMT",313, 0)
  5486    ; See the  format of  the HLOAR R array at  the top o f the rout ine.
  5487   "RTN","ORM XFMT",314, 0)
  5488    ;
  5489   "RTN","ORM XFMT",315, 0)
  5490    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  5491   "RTN","ORM XFMT",316, 0)
  5492    ; DFN (I, REQ)       - Patient  IEN
  5493   "RTN","ORM XFMT",317, 0)
  5494    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  5495   "RTN","ORM XFMT",318, 0)
  5496    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  5497   "RTN","ORM XFMT",319, 0)
  5498    ;
  5499   "RTN","ORM XFMT",320, 0)
  5500    ; Returns  1 if we w ere sucess fully able  to build  and format  the HLOAR R; returns  -1 otherw ise.
  5501   "RTN","ORM XFMT",321, 0)
  5502    ;
  5503   "RTN","ORM XFMT",322, 0)
  5504    N DGENIEN ,ORTYPE,FA CILITY
  5505   "RTN","ORM XFMT",323, 0)
  5506    S (DGENIE N,ORTYPE,F ACILITY)=" "
  5507   "RTN","ORM XFMT",324, 0)
  5508    ;
  5509   "RTN","ORM XFMT",325, 0)
  5510    ; Validat e paramete rs
  5511   "RTN","ORM XFMT",326, 0)
  5512    K ERROR S  ERROR=""
  5513   "RTN","ORM XFMT",327, 0)
  5514    S CNTLCOD E=$G(CNTLC ODE),DFN=$ G(DFN)
  5515   "RTN","ORM XFMT",328, 0)
  5516    I (CNTLCO DE="")!(DF N="") D  Q  -1
  5517   "RTN","ORM XFMT",329, 0)
  5518    . S ERROR ="Missing  required p arameters  for FMTNL^ ORMXFMT. P atient IEN : "_DFN_",  Control C ode: "_CNT LCODE
  5519   "RTN","ORM XFMT",330, 0)
  5520    ;
  5521   "RTN","ORM XFMT",331, 0)
  5522    ; Get the  most rece nt enrollm ent record  for the p atient
  5523   "RTN","ORM XFMT",332, 0)
  5524    S DGENIEN =$O(^DGEN( 27.11,"C", DFN,""),-1 )
  5525   "RTN","ORM XFMT",333, 0)
  5526    I DGENIEN ="" D  Q - 1
  5527   "RTN","ORM XFMT",334, 0)
  5528    . S ERROR ="Unable t o retrieve  the most  recent enr ollment re cord for t he patient .  Patient  IEN: "_DF N
  5529   "RTN","ORM XFMT",335, 0)
  5530    ;
  5531   "RTN","ORM XFMT",336, 0)
  5532    ; Initial ize HLOARR
  5533   "RTN","ORM XFMT",337, 0)
  5534    D INITARR ^ORMXFMT1( .HLOARR)
  5535   "RTN","ORM XFMT",338, 0)
  5536    ;
  5537   "RTN","ORM XFMT",339, 0)
  5538    S ORTYPE= $$TRANORCD (2,"^DGEN( 27.11")
  5539   "RTN","ORM XFMT",340, 0)
  5540    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  5541   "RTN","ORM XFMT",341, 0)
  5542    ;
  5543   "RTN","ORM XFMT",342, 0)
  5544    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1(D FN)
  5545   "RTN","ORM XFMT",343, 0)
  5546    S HLOARR( "ORDER COD E")=CNTLCO DE
  5547   "RTN","ORM XFMT",344, 0)
  5548    S HLOARR( "ORDER ID" )=DGENIEN_ $S(ORTYPE= -1:"",1:"^ "_ORTYPE)
  5549   "RTN","ORM XFMT",345, 0)
  5550    S HLOARR( "ORDERABLE ")="NEAR^N ew Enrolle e Appointm ent Reques t"_$S(ORTY PE=-1:"",1 :"^"_ORTYP E)
  5551   "RTN","ORM XFMT",346, 0)
  5552    S HLOARR( "CLINIC")= $$GET^XPAR ("SYS","OR MX NEAR DE PARTMENT I D")_"^"_FA CILITY_"^^ SC"_FACILI TY
  5553   "RTN","ORM XFMT",347, 0)
  5554    S HLOARR( "ORDER DAT E")=$P($G( ^DGEN(27.1 1,DGENIEN, 0)),"^",1)
  5555   "RTN","ORM XFMT",348, 0)
  5556    S HLOARR( "ORDERING  PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P($G(^DG EN(27.11,D GENIEN,"U" )),"^",2))
  5557   "RTN","ORM XFMT",349, 0)
  5558    S HLOARR( "START DAT E")=$P($G( ^DGEN(27.1 1,DGENIEN, "U")),"^", 1)
  5559   "RTN","ORM XFMT",350, 0)
  5560    ;
  5561   "RTN","ORM XFMT",351, 0)
  5562    Q 1
  5563   "RTN","ORM XFMT",352, 0)
  5564   FMTRC(CNTL CODE,RCIFN ,HLOARR,ER ROR) ; For mat and bu ild the HL OARR array  from the  recall rem inder Pack age.
  5565   "RTN","ORM XFMT",353, 0)
  5566    ; See the  format of  the HLOAR R array at  the top o f the rout ine.
  5567   "RTN","ORM XFMT",354, 0)
  5568    ;
  5569   "RTN","ORM XFMT",355, 0)
  5570    ; CNTLCOD E (I,REQ)  - The mess age contro l code (i. e. NW, DC,  CA, etc.)
  5571   "RTN","ORM XFMT",356, 0)
  5572    ; RCIFN ( I,REQ)     - Recall r eminder IE N
  5573   "RTN","ORM XFMT",357, 0)
  5574    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  5575   "RTN","ORM XFMT",358, 0)
  5576    ; ERROR ( O,OPT)     - Contains  the error  reason if  an error  occurs
  5577   "RTN","ORM XFMT",359, 0)
  5578    ;
  5579   "RTN","ORM XFMT",360, 0)
  5580    ; Returns  1 if we w ere sucess fully able  to build  and format  the HLOAR R;
  5581   "RTN","ORM XFMT",361, 0)
  5582    ; returns  -1 otherw ise.
  5583   "RTN","ORM XFMT",362, 0)
  5584    ;
  5585   "RTN","ORM XFMT",363, 0)
  5586    N SD0,ORT YPE,CLINIC ,COMMENT,F ACILITY,FA ST,LINECNT
  5587   "RTN","ORM XFMT",364, 0)
  5588    S (SD0,OR TYPE,CLINI C,COMMENT, FACILITY,F AST,LINECN T)=""
  5589   "RTN","ORM XFMT",365, 0)
  5590    ;
  5591   "RTN","ORM XFMT",366, 0)
  5592    ; Validat e paramete rs
  5593   "RTN","ORM XFMT",367, 0)
  5594    K ERROR S  ERROR=""
  5595   "RTN","ORM XFMT",368, 0)
  5596    S CNTLCOD E=$G(CNTLC ODE),RCIFN =$G(RCIFN)
  5597   "RTN","ORM XFMT",369, 0)
  5598    I (CNTLCO DE="")!(RC IFN="") D   Q -1
  5599   "RTN","ORM XFMT",370, 0)
  5600    . S ERROR ="Missing  required p arameters  for FMTRC^ ORMXFMT. R ecall Remi nder IEN:  "_RCIFN_",  Control C ode: "_CNT LCODE
  5601   "RTN","ORM XFMT",371, 0)
  5602    ;
  5603   "RTN","ORM XFMT",372, 0)
  5604    S SD0=$G( ^SD(403.5, RCIFN,0))
  5605   "RTN","ORM XFMT",373, 0)
  5606    I SD0=""  D  Q -1
  5607   "RTN","ORM XFMT",374, 0)
  5608    . S ERROR ="The reca ll reminde r does not  exist in  ^SD. The 0  node is m issing. Re call Remin der IEN: " _RCIFN
  5609   "RTN","ORM XFMT",375, 0)
  5610    ;
  5611   "RTN","ORM XFMT",376, 0)
  5612    ; Initial ize HLOARR
  5613   "RTN","ORM XFMT",377, 0)
  5614    D INITARR ^ORMXFMT1( .HLOARR)
  5615   "RTN","ORM XFMT",378, 0)
  5616    ;
  5617   "RTN","ORM XFMT",379, 0)
  5618    S ORTYPE= $$TRANORCD (2,"^SD(40 3.5")
  5619   "RTN","ORM XFMT",380, 0)
  5620    S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P(SD0,"^", 1))
  5621   "RTN","ORM XFMT",381, 0)
  5622    S HLOARR( "ORDER COD E")=CNTLCO DE
  5623   "RTN","ORM XFMT",382, 0)
  5624    S HLOARR( "ORDER ID" )=RCIFN_$S (ORTYPE=-1 :"",1:"^"_ ORTYPE)
  5625   "RTN","ORM XFMT",383, 0)
  5626    S HLOARR( "ORDER DAT E")=$P(SD0 ,"^",14)
  5627   "RTN","ORM XFMT",384, 0)
  5628    S HLOARR( "ORDERING  PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(SD0,"^ ",5))
  5629   "RTN","ORM XFMT",385, 0)
  5630    S HLOARR( "START DAT E")=$P(SD0 ,"^",6)
  5631   "RTN","ORM XFMT",386, 0)
  5632    ;
  5633   "RTN","ORM XFMT",387, 0)
  5634    ; Add the  clinic in formation  in HLOARR
  5635   "RTN","ORM XFMT",388, 0)
  5636    S CLINIC= $P(SD0,"^" ,2)
  5637   "RTN","ORM XFMT",389, 0)
  5638    S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC)
  5639   "RTN","ORM XFMT",390, 0)
  5640    ;
  5641   "RTN","ORM XFMT",391, 0)
  5642    ; ORDERAB LE will be  the clini c ID where  the patie nt should  return
  5643   "RTN","ORM XFMT",392, 0)
  5644    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  5645   "RTN","ORM XFMT",393, 0)
  5646    S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$S(CLI NIC'="":$P ($G(^SC(CL INIC,0))," ^",1),1:"" )_"^RTC"_F ACILITY
  5647   "RTN","ORM XFMT",394, 0)
  5648    ;
  5649   "RTN","ORM XFMT",395, 0)
  5650    ; Add the  comments  in HLOARR
  5651   "RTN","ORM XFMT",396, 0)
  5652    S LINECNT =1
  5653   "RTN","ORM XFMT",397, 0)
  5654    ;
  5655   "RTN","ORM XFMT",398, 0)
  5656    S COMMENT =$P(SD0,"^ ",7)
  5657   "RTN","ORM XFMT",399, 0)
  5658    I COMMENT '="" S HLO ARR("COMME NT",LINECN T)=COMMENT ,LINECNT=L INECNT+1
  5659   "RTN","ORM XFMT",400, 0)
  5660    ;
  5661   "RTN","ORM XFMT",401, 0)
  5662    ; Store t he "Fast/N o Fast" it em as a co mment on t he order.
  5663   "RTN","ORM XFMT",402, 0)
  5664    S FAST=$$ UP^XLFSTR( $P(SD0,"^" ,8)) ; Con vert to UP PERCASE
  5665   "RTN","ORM XFMT",403, 0)
  5666    I FAST'=" " D
  5667   "RTN","ORM XFMT",404, 0)
  5668    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  5669   "RTN","ORM XFMT",405, 0)
  5670    . ;
  5671   "RTN","ORM XFMT",406, 0)
  5672    . ; If "F ," then th e patient  needs to f ast. If "N " (or any  other char acter), th e patient  does not n eed to fas t
  5673   "RTN","ORM XFMT",407, 0)
  5674    . I FAST= "F" S HLOA RR("COMMEN T",LINECNT )="Lab tes t ordered,  fasting R EQUIRED.", LINECNT=LI NECNT+1
  5675   "RTN","ORM XFMT",408, 0)
  5676    . E  S HL OARR("COMM ENT",LINEC NT)="Lab t est ordere d, fasting  NOT REQUI RED.",LINE CNT=LINECN T+1
  5677   "RTN","ORM XFMT",409, 0)
  5678    ;
  5679   "RTN","ORM XFMT",410, 0)
  5680    S HLOARR( "COMMENT", 0)=LINECNT -1
  5681   "RTN","ORM XFMT",411, 0)
  5682    ;
  5683   "RTN","ORM XFMT",412, 0)
  5684    Q 1
  5685   "RTN","ORM XFMT",413, 0)
  5686   FMTRTC(ORD IEN,HLOARR ) ; Return  to Clinic  specific  processing
  5687   "RTN","ORM XFMT",414, 0)
  5688    ; ORDIEN  - input, o rder id be ing proces sed
  5689   "RTN","ORM XFMT",415, 0)
  5690    ; HLOARR  - array wh ere data s hould be s tored
  5691   "RTN","ORM XFMT",416, 0)
  5692    ;
  5693   "RTN","ORM XFMT",417, 0)
  5694    N NODE,CL INIC,OR0,F ACILITY,NL TFLAG,Y
  5695   "RTN","ORM XFMT",418, 0)
  5696    S (NODE,C LINIC,OR0, FACILITY,N LTFLAG,Y)= ""
  5697   "RTN","ORM XFMT",419, 0)
  5698    ;
  5699   "RTN","ORM XFMT",420, 0)
  5700    S ORDIEN= $G(ORDIEN) ,HLOARR=$G (HLOARR)
  5701   "RTN","ORM XFMT",421, 0)
  5702    I $G(ORDI EN)="" Q
  5703   "RTN","ORM XFMT",422, 0)
  5704    ;
  5705   "RTN","ORM XFMT",423, 0)
  5706    ; ORDERAB LE will be  the clini c ID where  the patie nt should  return
  5707   "RTN","ORM XFMT",424, 0)
  5708    I $$FINDN ODE("LOCAT ION",.NODE ,ORDIEN) D
  5709   "RTN","ORM XFMT",425, 0)
  5710    . S CLINI C=+$G(^OR( 100,ORDIEN ,4.5,+NODE ,1))
  5711   "RTN","ORM XFMT",426, 0)
  5712    I CLINIC= "" D
  5713   "RTN","ORM XFMT",427, 0)
  5714    . S OR0=$ G(^OR(100, ORDIEN,0))
  5715   "RTN","ORM XFMT",428, 0)
  5716    . S CLINI C=$P($P(OR 0,"^",10), ";")
  5717   "RTN","ORM XFMT",429, 0)
  5718    ;
  5719   "RTN","ORM XFMT",430, 0)
  5720    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  5721   "RTN","ORM XFMT",431, 0)
  5722    ;
  5723   "RTN","ORM XFMT",432, 0)
  5724    S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$P($G( ^SC(CLINIC ,0)),"^",1 )_"^RTC"_F ACILITY
  5725   "RTN","ORM XFMT",433, 0)
  5726    S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC)
  5727   "RTN","ORM XFMT",434, 0)
  5728    ;
  5729   "RTN","ORM XFMT",435, 0)
  5730    ; Set the  NLT flag
  5731   "RTN","ORM XFMT",436, 0)
  5732    I $$FINDN ODE("YN",. NODE,ORDIE N) D
  5733   "RTN","ORM XFMT",437, 0)
  5734    . S NLTFL AG=+$G(^OR (100,ORDIE N,4.5,+NOD E,1))
  5735   "RTN","ORM XFMT",438, 0)
  5736    . S HLOAR R("NO LATE R THAN")=$ S(NLTFLAG: "YES",1:"" ) ; should  be a 1 fo r yes if n o later th an
  5737   "RTN","ORM XFMT",439, 0)
  5738    ;
  5739   "RTN","ORM XFMT",440, 0)
  5740    ; Set the  recurrenc es (if pop ulated)
  5741   "RTN","ORM XFMT",441, 0)
  5742    I $$FINDN ODE("SDNUM ",.NODE,OR DIEN) D
  5743   "RTN","ORM XFMT",442, 0)
  5744    . S HLOAR R("RECUR") =+$G(^OR(1 00,ORDIEN, 4.5,+NODE, 1))
  5745   "RTN","ORM XFMT",443, 0)
  5746    ;
  5747   "RTN","ORM XFMT",444, 0)
  5748    ; Set the  frequency  (if popul ated)
  5749   "RTN","ORM XFMT",445, 0)
  5750    I $$FINDN ODE("SDINT ",.NODE,OR DIEN) D
  5751   "RTN","ORM XFMT",446, 0)
  5752    . S HLOAR R("FREQUEN CY")=$G(^O R(100,ORDI EN,4.5,+NO DE,1))
  5753   "RTN","ORM XFMT",447, 0)
  5754    ;
  5755   "RTN","ORM XFMT",448, 0)
  5756    ; set the  clinicall y indicate d date
  5757   "RTN","ORM XFMT",449, 0)
  5758    I $$FINDN ODE("CLINI CALLY",.NO DE,ORDIEN)  D
  5759   "RTN","ORM XFMT",450, 0)
  5760    . ; If th e date is  not stored  as a rela tive date,  we use it . Otherwis e we don't
  5761   "RTN","ORM XFMT",451, 0)
  5762    . S X=$G( ^OR(100,OR DIEN,4.5,+ NODE,1))
  5763   "RTN","ORM XFMT",452, 0)
  5764    . I '($E( X)?1A) S H LOARR("STA RT DATE")= X
  5765   "RTN","ORM XFMT",453, 0)
  5766    ;
  5767   "RTN","ORM XFMT",454, 0)
  5768    Q
  5769   "RTN","ORM XFMT",455, 0)
  5770   FINDNODE(I D,NODE,ORD IEN) ; Fin ds the nod e number f or the spe cifed orde r dialog p rompt ID
  5771   "RTN","ORM XFMT",456, 0)
  5772    ; ID - st ring that  identifies  the node  needed
  5773   "RTN","ORM XFMT",457, 0)
  5774    ; NODE -  output of  the node n umber that  holds the  data
  5775   "RTN","ORM XFMT",458, 0)
  5776    ;
  5777   "RTN","ORM XFMT",459, 0)
  5778    ; Returns  1 if we f ind a node  that is o n the orde r with ID  of "ID," o therwise 0
  5779   "RTN","ORM XFMT",460, 0)
  5780    ;
  5781   "RTN","ORM XFMT",461, 0)
  5782    S ORDIEN= $G(ORDIEN) ,ID=$G(ID)
  5783   "RTN","ORM XFMT",462, 0)
  5784    I $G(ID)= "" Q 0
  5785   "RTN","ORM XFMT",463, 0)
  5786    S NODE=$O (^OR(100,O RDIEN,4.5, "ID",ID,0) )
  5787   "RTN","ORM XFMT",464, 0)
  5788    I NODE Q  1 ;if we f ind a valu e, quit 1
  5789   "RTN","ORM XFMT",465, 0)
  5790    ;
  5791   "RTN","ORM XFMT",466, 0)
  5792    Q 0
  5793   "RTN","ORM XFMT",467, 0)
  5794   TRANORCD(D IRECT,VALU E) ; Trans lates a fi le string  to its HLO  order typ e code and  visa-vers a
  5795   "RTN","ORM XFMT",468, 0)
  5796    ; DIRECT  (I,REQ) -  1 for outb ound, 2 fo r inbound
  5797   "RTN","ORM XFMT",469, 0)
  5798    ; VALUE ( I,REQ) - t he value t o be trans lated.  Fi le for out bound
  5799   "RTN","ORM XFMT",470, 0)
  5800    ;                  o r the HLO  order type  code for  inbound
  5801   "RTN","ORM XFMT",471, 0)
  5802    ;
  5803   "RTN","ORM XFMT",472, 0)
  5804    ; Returns  the trans lated valu e if one i s found, o therwise r eturns -1
  5805   "RTN","ORM XFMT",473, 0)
  5806    ;
  5807   "RTN","ORM XFMT",474, 0)
  5808    N TRANARY ,FACILITY
  5809   "RTN","ORM XFMT",475, 0)
  5810    ;
  5811   "RTN","ORM XFMT",476, 0)
  5812    ; Data va lidation
  5813   "RTN","ORM XFMT",477, 0)
  5814    S DIRECT= $G(DIRECT) ,VALUE=$G( VALUE)
  5815   "RTN","ORM XFMT",478, 0)
  5816    I (DIRECT ="")!(VALU E="") Q -1
  5817   "RTN","ORM XFMT",479, 0)
  5818    ;
  5819   "RTN","ORM XFMT",480, 0)
  5820    ; Get Fac ility ID
  5821   "RTN","ORM XFMT",481, 0)
  5822    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  5823   "RTN","ORM XFMT",482, 0)
  5824    ;
  5825   "RTN","ORM XFMT",483, 0)
  5826    ; Setting  up transl ation arra y
  5827   "RTN","ORM XFMT",484, 0)
  5828    S TRANARY (1,"OR"_FA CILITY)="^ OR(100"        ; Orde rs
  5829   "RTN","ORM XFMT",485, 0)
  5830    S TRANARY (1,"GMR"_F ACILITY)=" ^GMR(123"      ; Cons ults
  5831   "RTN","ORM XFMT",486, 0)
  5832    S TRANARY (1,"CP"_FA CILITY)="^ DVB(396.4"    ; C&P e xams
  5833   "RTN","ORM XFMT",487, 0)
  5834    S TRANARY (1,"NEAR"_ FACILITY)= "^DGEN(27. 11" ; NEAR  list entr ies
  5835   "RTN","ORM XFMT",488, 0)
  5836    S TRANARY (1,"RC"_FA CILITY)="^ SD(403.5"      ; Reca ll reminde rs
  5837   "RTN","ORM XFMT",489, 0)
  5838    S TRANARY (2,"^OR(10 0")="OR"_F ACILITY
  5839   "RTN","ORM XFMT",490, 0)
  5840    S TRANARY (2,"^GMR(1 23")="GMR" _FACILITY
  5841   "RTN","ORM XFMT",491, 0)
  5842    S TRANARY (2,"^DVB(3 96.4")="CP "_FACILITY
  5843   "RTN","ORM XFMT",492, 0)
  5844    S TRANARY (2,"^DGEN( 27.11")="N EAR"_FACIL ITY
  5845   "RTN","ORM XFMT",493, 0)
  5846    S TRANARY (2,"^SD(40 3.5")="RC" _FACILITY
  5847   "RTN","ORM XFMT",494, 0)
  5848    ;
  5849   "RTN","ORM XFMT",495, 0)
  5850    I $D(TRAN ARY(DIRECT ,VALUE)) Q  $G(TRANAR Y(DIRECT,V ALUE))
  5851   "RTN","ORM XFMT",496, 0)
  5852    ;
  5853   "RTN","ORM XFMT",497, 0)
  5854    Q -1
  5855   "RTN","ORM XFMT",498, 0)
  5856    ;;#eor#
  5857   "RTN","ORM XFMT1")
  5858   0^5^B83708 887
  5859   "RTN","ORM XFMT1",1,0 )
  5860   ORMXFMT1 ; MASS/AWS -  ORDER FOR MATTING;11 /30/17;201 8-05-11 08 :57:07;8.3 ;2tH9XNTJy 73DIaCvjBR UJaGi5rTjd D8PBB1Eyi8 0/Pc=
  5861   "RTN","ORM XFMT1",2,0 )
  5862    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;Novem ber 30,201 7;Build 76
  5863   "RTN","ORM XFMT1",3,0 )
  5864    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  5865   "RTN","ORM XFMT1",4,0 )
  5866    ; Externa l Referenc es
  5867   "RTN","ORM XFMT1",5,0 )
  5868    ;   2263    GET^XPAR
  5869   "RTN","ORM XFMT1",6,0 )
  5870    ;   #####   ICDDX^IC DEXC
  5871   "RTN","ORM XFMT1",7,0 )
  5872    ;   #####   CODECS^I CDEX
  5873   "RTN","ORM XFMT1",8,0 )
  5874    ;   #####   INSTRING ^SDMXCORE
  5875   "RTN","ORM XFMT1",9,0 )
  5876    ;   4853    SETDT^HL OAPI4
  5877   "RTN","ORM XFMT1",10, 0)
  5878    ;   4716    SET^HLOA PI
  5879   "RTN","ORM XFMT1",11, 0)
  5880    ;   10035  ^DPT
  5881   "RTN","ORM XFMT1",12, 0)
  5882    ;   10040  ^SC
  5883   "RTN","ORM XFMT1",13, 0)
  5884    ;     ###  ^OR
  5885   "RTN","ORM XFMT1",14, 0)
  5886    ;     ###  ^GMR
  5887   "RTN","ORM XFMT1",15, 0)
  5888    ;   10060  ^VA
  5889   "RTN","ORM XFMT1",16, 0)
  5890   INITARR(HL OARR) ; In itialize t he HLO arr ay contain ing order  informatio n
  5891   "RTN","ORM XFMT1",17, 0)
  5892    ; The for mat of the  HLOARR is  as follow s:
  5893   "RTN","ORM XFMT1",18, 0)
  5894    ;
  5895   "RTN","ORM XFMT1",19, 0)
  5896    ; HLOARR( "ORDER ID" )            - <Uniqu e order ID  (per glob al)>^<A st ring to id entify the  global in
  5897   "RTN","ORM XFMT1",20, 0)
  5898    ;                                   VistA  that the I D comes fr om>
  5899   "RTN","ORM XFMT1",21, 0)
  5900    ; HLOARR( "PATIENT")              - <Patie nt Identif ier (e.g.  IEN)>^<A s tring to i dentify Pa tient ID t ype>
  5901   "RTN","ORM XFMT1",22, 0)
  5902    ; HLOARR( "ORDERABLE ")           - <Ident ifier for  itemordere d>^<Free t ext name o f orderabl e>^<A stri ng to
  5903   "RTN","ORM XFMT1",23, 0)
  5904    ;                                   identi fy the glo bal in Vis tA that th e Orderabl e ID comes  from>
  5905   "RTN","ORM XFMT1",24, 0)
  5906    ; HLOARR( "ORDERING  PHYSICIAN" ) - <Physi cian Ident ifier>^<Ph ysician La st Name>^< Physician  First Name >^<A strin g to
  5907   "RTN","ORM XFMT1",25, 0)
  5908    ;                                   identi fy Physici an ID type >
  5909   "RTN","ORM XFMT1",26, 0)
  5910    ; HLOARR( "ORDER DAT E")          - <VistA  format fo r Date/Tim e the orde r was plac ed>
  5911   "RTN","ORM XFMT1",27, 0)
  5912    ; HLOARR( "ORDER COD E")          - <Uniqu e order co de, e.g."N W","CA", e tc.>
  5913   "RTN","ORM XFMT1",28, 0)
  5914    ; HLOARR( "START DAT E")          - <VistA  format fo r Date/Tim e the orde r is to be  performed >
  5915   "RTN","ORM XFMT1",29, 0)
  5916    ; HLOARR( "STOP DATE ")           - <VistA  format fo r Date/Tim e the orde r expires>
  5917   "RTN","ORM XFMT1",30, 0)
  5918    ; HLOARR( "DIAGNOSIS ",0)         - <Integ er number  of diagnos es>
  5919   "RTN","ORM XFMT1",31, 0)
  5920    ; HLOARR( "DIAGNOSIS ",#)         - <Diagn osis ID>^< Free text  name of di agnosis>^< A string t o identify  the
  5921   "RTN","ORM XFMT1",32, 0)
  5922    ;                                   global  in VistA  that the D iagnosis I D comes fr om>
  5923   "RTN","ORM XFMT1",33, 0)
  5924    ; HLOARR( "CLINIC")               - <Clini c ID where  order was  placed>^< Clinic fac ility ID>^ <Clinic Na me>^<A str ing
  5925   "RTN","ORM XFMT1",34, 0)
  5926    ;                                   to ide ntify the  clinic ID  type>
  5927   "RTN","ORM XFMT1",35, 0)
  5928    ; HLOARR( "REASON FO R STUDY",0 ) - <Numbe r of lines  for the r eason for  study>
  5929   "RTN","ORM XFMT1",36, 0)
  5930    ; HLOARR( "REASON FO R STUDY",# ) - <Free  text reaso n for stud y>
  5931   "RTN","ORM XFMT1",37, 0)
  5932    ; HLOARR( "COMMENT", 0)           - <Numbe r of lines  for the c omments>
  5933   "RTN","ORM XFMT1",38, 0)
  5934    ; HLOARR( "COMMENT", #)           - <Free  text comme nts>
  5935   "RTN","ORM XFMT1",39, 0)
  5936    ; HLOARR( "NO LATER  THAN")       - <No la ter than f lag>
  5937   "RTN","ORM XFMT1",40, 0)
  5938    ; HLOARR( "RECUR")                - <Total  occurrenc es>
  5939   "RTN","ORM XFMT1",41, 0)
  5940    ; HLOARR( "FREQUENCY ")           - <Frequ ency>
  5941   "RTN","ORM XFMT1",42, 0)
  5942    ; HLOARR( "CANCEL RE ASON")       - <Cance l reason f or cancele d orders>
  5943   "RTN","ORM XFMT1",43, 0)
  5944    ; HLOARR( "URGENCY")              - <Urgen cy of a co nsult>
  5945   "RTN","ORM XFMT1",44, 0)
  5946    ; HLOARR( "CPRS STAT US")         - <CPRS  status for  an order>
  5947   "RTN","ORM XFMT1",45, 0)
  5948    ;
  5949   "RTN","ORM XFMT1",46, 0)
  5950    K HLOARR  S HLOARR=" "
  5951   "RTN","ORM XFMT1",47, 0)
  5952    ;
  5953   "RTN","ORM XFMT1",48, 0)
  5954    S HLOARR( "ORDER ID" )=""
  5955   "RTN","ORM XFMT1",49, 0)
  5956    S HLOARR( "PATIENT") =""
  5957   "RTN","ORM XFMT1",50, 0)
  5958    S HLOARR( "ORDERABLE ")=""
  5959   "RTN","ORM XFMT1",51, 0)
  5960    S HLOARR( "ORDERING  PHYSICIAN" )=""
  5961   "RTN","ORM XFMT1",52, 0)
  5962    S HLOARR( "ORDER DAT E")=""
  5963   "RTN","ORM XFMT1",53, 0)
  5964    S HLOARR( "ORDER COD E")=""
  5965   "RTN","ORM XFMT1",54, 0)
  5966    S HLOARR( "START DAT E")=""
  5967   "RTN","ORM XFMT1",55, 0)
  5968    S HLOARR( "STOP DATE ")=""
  5969   "RTN","ORM XFMT1",56, 0)
  5970    S HLOARR( "DIAGNOSIS ",0)=0
  5971   "RTN","ORM XFMT1",57, 0)
  5972    S HLOARR( "CLINIC")= ""
  5973   "RTN","ORM XFMT1",58, 0)
  5974    S HLOARR( "REASON FO R STUDY",0 )=0
  5975   "RTN","ORM XFMT1",59, 0)
  5976    S HLOARR( "COMMENT", 0)=0
  5977   "RTN","ORM XFMT1",60, 0)
  5978    S HLOARR( "NO LATER  THAN")=""
  5979   "RTN","ORM XFMT1",61, 0)
  5980    S HLOARR( "FREQUENCY ")=""
  5981   "RTN","ORM XFMT1",62, 0)
  5982    S HLOARR( "RECUR")=" "
  5983   "RTN","ORM XFMT1",63, 0)
  5984    S HLOARR( "CANCEL RE ASON")=""
  5985   "RTN","ORM XFMT1",64, 0)
  5986    S HLOARR( "URGENCY") =""
  5987   "RTN","ORM XFMT1",65, 0)
  5988    S HLOARR( "CPRS STAT US")=""
  5989   "RTN","ORM XFMT1",66, 0)
  5990    ;
  5991   "RTN","ORM XFMT1",67, 0)
  5992    Q
  5993   "RTN","ORM XFMT1",68, 0)
  5994   FMTPAT(IEN ) ; Format s the pati ent ID giv en the IEN  for the p atient
  5995   "RTN","ORM XFMT1",69, 0)
  5996    ;
  5997   "RTN","ORM XFMT1",70, 0)
  5998    ; IEN (I, REQ) - IEN  for the p atient
  5999   "RTN","ORM XFMT1",71, 0)
  6000    ;
  6001   "RTN","ORM XFMT1",72, 0)
  6002    ; Returns  the forma tted patie nt ID. If  the IEN pa ssed in do es not mat ch
  6003   "RTN","ORM XFMT1",73, 0)
  6004    ; to a pa tient, the  null stri ng will be  returned.  Format is  "<ID>^<TY PE>"
  6005   "RTN","ORM XFMT1",74, 0)
  6006    ;
  6007   "RTN","ORM XFMT1",75, 0)
  6008    S IEN=$G( IEN)
  6009   "RTN","ORM XFMT1",76, 0)
  6010    I IEN=""  Q ""
  6011   "RTN","ORM XFMT1",77, 0)
  6012    ;
  6013   "RTN","ORM XFMT1",78, 0)
  6014    I '$D(^DP T(IEN)) Q  ""
  6015   "RTN","ORM XFMT1",79, 0)
  6016    ;
  6017   "RTN","ORM XFMT1",80, 0)
  6018    Q IEN_"^I EN"
  6019   "RTN","ORM XFMT1",81, 0)
  6020   FMTPROV(IE N) ; Forma ts the pro vider ID g iven the I EN for the  provider
  6021   "RTN","ORM XFMT1",82, 0)
  6022    ;
  6023   "RTN","ORM XFMT1",83, 0)
  6024    ; IEN (I, REQ) - IEN  for provi der to mat ch from fi le #200
  6025   "RTN","ORM XFMT1",84, 0)
  6026    ;
  6027   "RTN","ORM XFMT1",85, 0)
  6028    ; Returns  either th e NPI ID ( if one exi sts) or th e IEN for  the provid er.
  6029   "RTN","ORM XFMT1",86, 0)
  6030    ; If the  IEN passed  in does n ot match t o a provid er from fi le #200, t he
  6031   "RTN","ORM XFMT1",87, 0)
  6032    ; null st ring will  be returne d. Format  is "<ID>^< LAST NAME> ^<FIRST NA ME>^<TYPE> "
  6033   "RTN","ORM XFMT1",88, 0)
  6034    ;
  6035   "RTN","ORM XFMT1",89, 0)
  6036    N NPI,NAM E,FIRSTNM, LASTNM,FAC ILITY
  6037   "RTN","ORM XFMT1",90, 0)
  6038    S (NPI,NA ME,FIRSTNM ,LASTNM,FA CILITY)=""
  6039   "RTN","ORM XFMT1",91, 0)
  6040    ;
  6041   "RTN","ORM XFMT1",92, 0)
  6042    S IEN=$G( IEN)
  6043   "RTN","ORM XFMT1",93, 0)
  6044    I IEN=""  Q ""
  6045   "RTN","ORM XFMT1",94, 0)
  6046    ;
  6047   "RTN","ORM XFMT1",95, 0)
  6048    I '$D(^VA (200,IEN))  Q ""
  6049   "RTN","ORM XFMT1",96, 0)
  6050    ;
  6051   "RTN","ORM XFMT1",97, 0)
  6052    ; Set the  name of t he provide r
  6053   "RTN","ORM XFMT1",98, 0)
  6054    S NAME=$P ($G(^VA(20 0,IEN,0)), "^",1)
  6055   "RTN","ORM XFMT1",99, 0)
  6056    I NAME'=" " D
  6057   "RTN","ORM XFMT1",100 ,0)
  6058    . S LASTN M=$P(NAME, ",",1)
  6059   "RTN","ORM XFMT1",101 ,0)
  6060    . S FIRST NM=$P(NAME ,",",2)
  6061   "RTN","ORM XFMT1",102 ,0)
  6062    ;
  6063   "RTN","ORM XFMT1",103 ,0)
  6064    ; If the  NPI ID exi sts, use t hat ID for  the provi der ID
  6065   "RTN","ORM XFMT1",104 ,0)
  6066    S NPI=$P( $G(^VA(200 ,IEN,"NPI" )),"^",1)  ; NPI ID
  6067   "RTN","ORM XFMT1",105 ,0)
  6068    I NPI'=""  Q NPI_"^" _LASTNM_"^ "_FIRSTNM_ "^"_"NPI"
  6069   "RTN","ORM XFMT1",106 ,0)
  6070    ;
  6071   "RTN","ORM XFMT1",107 ,0)
  6072    ; Get Fac ility ID
  6073   "RTN","ORM XFMT1",108 ,0)
  6074    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  6075   "RTN","ORM XFMT1",109 ,0)
  6076    ;
  6077   "RTN","ORM XFMT1",110 ,0)
  6078    ; Use the  VA ID as  the defaul t ID
  6079   "RTN","ORM XFMT1",111 ,0)
  6080    Q IEN_"^" _LASTNM_"^ "_FIRSTNM_ "^"_"VA"_F ACILITY
  6081   "RTN","ORM XFMT1",112 ,0)
  6082   FMTCLIN(IE N) ; Forma ts the cli nic ID giv en the IEN  for the c linic
  6083   "RTN","ORM XFMT1",113 ,0)
  6084    ;
  6085   "RTN","ORM XFMT1",114 ,0)
  6086    ; IEN (I, REQ) - IEN  for clini c
  6087   "RTN","ORM XFMT1",115 ,0)
  6088    ;
  6089   "RTN","ORM XFMT1",116 ,0)
  6090    ; Returns  either th e clinic I D. If the  IEN passed  in does n ot match t o a clinic , the
  6091   "RTN","ORM XFMT1",117 ,0)
  6092    ; null st ring will  be returne d. Format  is "<CLINI C ID>^<CLI NIC FACILI TY ID>^<CL INIC NAME> ^<TYPE>"
  6093   "RTN","ORM XFMT1",118 ,0)
  6094    ;
  6095   "RTN","ORM XFMT1",119 ,0)
  6096    N FACILIT Y
  6097   "RTN","ORM XFMT1",120 ,0)
  6098    ;
  6099   "RTN","ORM XFMT1",121 ,0)
  6100    S IEN=$G( IEN)
  6101   "RTN","ORM XFMT1",122 ,0)
  6102    I IEN=""  Q ""
  6103   "RTN","ORM XFMT1",123 ,0)
  6104    ;
  6105   "RTN","ORM XFMT1",124 ,0)
  6106    I '$D(^SC (IEN)) Q " "
  6107   "RTN","ORM XFMT1",125 ,0)
  6108    ;
  6109   "RTN","ORM XFMT1",126 ,0)
  6110    ; Get Fac ility ID
  6111   "RTN","ORM XFMT1",127 ,0)
  6112    S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID")
  6113   "RTN","ORM XFMT1",128 ,0)
  6114    ;
  6115   "RTN","ORM XFMT1",129 ,0)
  6116    Q IEN_"^" _FACILITY_ "^"_$P($G( ^SC(IEN,0) ),"^",1)_" ^"_"SC"_FA CILITY
  6117   "RTN","ORM XFMT1",130 ,0)
  6118   FMTDIAG(IE N,ORDIEN)  ; Formats  the diagno sis given  the IEN fo r the diag nosis
  6119   "RTN","ORM XFMT1",131 ,0)
  6120    ;
  6121   "RTN","ORM XFMT1",132 ,0)
  6122    ; IEN (I, REQ) - IEN  for diagn osis to ma tch from f ile #80
  6123   "RTN","ORM XFMT1",133 ,0)
  6124    ;
  6125   "RTN","ORM XFMT1",134 ,0)
  6126    ; Returns  the forma tted diagn osis. If t he IEN pas sed in doe s not matc h
  6127   "RTN","ORM XFMT1",135 ,0)
  6128    ; to a pr ovider fro m file #80 , the null  string wi ll be retu rned. Form at
  6129   "RTN","ORM XFMT1",136 ,0)
  6130    ; is "<DI AGNOSIS ID >^<DIAGNOS IS NAME>^< TYPE>"
  6131   "RTN","ORM XFMT1",137 ,0)
  6132    ;
  6133   "RTN","ORM XFMT1",138 ,0)
  6134    N ICD,DXV ,ORDDTTM,D XR,CODE
  6135   "RTN","ORM XFMT1",139 ,0)
  6136    S (ICD,DX V,ORDDTTM, DXR,CODE)= ""
  6137   "RTN","ORM XFMT1",140 ,0)
  6138    ;
  6139   "RTN","ORM XFMT1",141 ,0)
  6140    S IEN=$G( IEN),ORDIE N=$G(ORDIE N)
  6141   "RTN","ORM XFMT1",142 ,0)
  6142    I IEN=""  Q ""
  6143   "RTN","ORM XFMT1",143 ,0)
  6144    ;
  6145   "RTN","ORM XFMT1",144 ,0)
  6146    S ORDDTTM =$$ORFMDAT ^ORWDBA3(O RDIEN)
  6147   "RTN","ORM XFMT1",145 ,0)
  6148    S DXR=$$I CDDX^ICDEX C(IEN,ORDD TTM)
  6149   "RTN","ORM XFMT1",146 ,0)
  6150    I +DXR=-1  Q "" ; An  error occ ured when  retrieving  codes
  6151   "RTN","ORM XFMT1",147 ,0)
  6152    ;
  6153   "RTN","ORM XFMT1",148 ,0)
  6154    ; Get dia gnosis ver biage and  ICD code
  6155   "RTN","ORM XFMT1",149 ,0)
  6156    S ICD=$P( DXR,"^",2)
  6157   "RTN","ORM XFMT1",150 ,0)
  6158    S DXV=$P( DXR,"^",4)
  6159   "RTN","ORM XFMT1",151 ,0)
  6160    S CODE=$P ($$CODECS^ ICDEX(ICD) ,"^",2)
  6161   "RTN","ORM XFMT1",152 ,0)
  6162    ;
  6163   "RTN","ORM XFMT1",153 ,0)
  6164    I (ICD="" )!(DXV="")  Q ""
  6165   "RTN","ORM XFMT1",154 ,0)
  6166    ;
  6167   "RTN","ORM XFMT1",155 ,0)
  6168    Q ICD_"^" _DXV_"^"_C ODE
  6169   "RTN","ORM XFMT1",156 ,0)
  6170   FMTORCM(OR DIEN,HLOAR R) ; Forma ts the ord er comment s given th e order ID
  6171   "RTN","ORM XFMT1",157 ,0)
  6172    ; This wi ll format  the HLOARR ("COMMENT" ) array fo r orders.  This shoul d
  6173   "RTN","ORM XFMT1",158 ,0)
  6174    ; not be  called for  consult o rders.
  6175   "RTN","ORM XFMT1",159 ,0)
  6176    ;
  6177   "RTN","ORM XFMT1",160 ,0)
  6178    ; ORDIEN  (I,REQ) -  IEN for th e order
  6179   "RTN","ORM XFMT1",161 ,0)
  6180    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  6181   "RTN","ORM XFMT1",162 ,0)
  6182    ;
  6183   "RTN","ORM XFMT1",163 ,0)
  6184    N LINECNT ,CMTNODE,T OTLINES,CM TCNT,NODEC NT
  6185   "RTN","ORM XFMT1",164 ,0)
  6186    S (LINECN T,CMTNODE, TOTLINES,C MTCNT,NODE CNT)=""
  6187   "RTN","ORM XFMT1",165 ,0)
  6188    ;
  6189   "RTN","ORM XFMT1",166 ,0)
  6190    S ORDIEN= $G(ORDIEN)
  6191   "RTN","ORM XFMT1",167 ,0)
  6192    I ORDIEN= "" Q
  6193   "RTN","ORM XFMT1",168 ,0)
  6194    ;
  6195   "RTN","ORM XFMT1",169 ,0)
  6196    ; Add the  comments  in HLOARR
  6197   "RTN","ORM XFMT1",170 ,0)
  6198    S LINECNT =1
  6199   "RTN","ORM XFMT1",171 ,0)
  6200    ;
  6201   "RTN","ORM XFMT1",172 ,0)
  6202    ; Order t ext for RT C orders
  6203   "RTN","ORM XFMT1",173 ,0)
  6204    I ($$ISRT CORD^ORMXT R(ORDIEN)! $$ISOLDRTC ^ORMXCONV( ORDIEN)) D
  6205   "RTN","ORM XFMT1",174 ,0)
  6206    . ;
  6207   "RTN","ORM XFMT1",175 ,0)
  6208    . ; Add a  blank lin e to delin iate betwe en comment s
  6209   "RTN","ORM XFMT1",176 ,0)
  6210    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  6211   "RTN","ORM XFMT1",177 ,0)
  6212    . S HLOAR R("COMMENT ",LINECNT) ="ORDER TE XT",LINECN T=LINECNT+ 1
  6213   "RTN","ORM XFMT1",178 ,0)
  6214    . ;
  6215   "RTN","ORM XFMT1",179 ,0)
  6216    . ; Order  text may  have multi ple lines  so we have  to loop t hrough the m
  6217   "RTN","ORM XFMT1",180 ,0)
  6218    . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,1,. 1,0)),"^", 3)
  6219   "RTN","ORM XFMT1",181 ,0)
  6220    . F CMTCN T=1:1:TOTL INES D
  6221   "RTN","ORM XFMT1",182 ,0)
  6222    . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,1,.1,CM TCNT,0)),L INECNT=LIN ECNT+1
  6223   "RTN","ORM XFMT1",183 ,0)
  6224    ;
  6225   "RTN","ORM XFMT1",184 ,0)
  6226    I $$FINDN ODE^ORMXFM T("COMMENT ",.CMTNODE ,ORDIEN) D
  6227   "RTN","ORM XFMT1",185 ,0)
  6228    . ;
  6229   "RTN","ORM XFMT1",186 ,0)
  6230    . ; Add a  blank lin e to delin iate betwe en comment s
  6231   "RTN","ORM XFMT1",187 ,0)
  6232    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  6233   "RTN","ORM XFMT1",188 ,0)
  6234    . S HLOAR R("COMMENT ",LINECNT) ="COMMENTS ",LINECNT= LINECNT+1
  6235   "RTN","ORM XFMT1",189 ,0)
  6236    . ;
  6237   "RTN","ORM XFMT1",190 ,0)
  6238    . S NODEC NT=0 ; no  comments i n the 0 no de
  6239   "RTN","ORM XFMT1",191 ,0)
  6240    . F  S NO DECNT=$O(^ OR(100,ORD IEN,4.5,CM TNODE,NODE CNT)) Q:NO DECNT=""   D
  6241   "RTN","ORM XFMT1",192 ,0)
  6242    . . I $D( ^OR(100,OR DIEN,4.5,C MTNODE,NOD ECNT,0)) D
  6243   "RTN","ORM XFMT1",193 ,0)
  6244    . . . ;
  6245   "RTN","ORM XFMT1",194 ,0)
  6246    . . . ; C omments wi ll have mu ltiple lin es so we h ave to loo p through  them
  6247   "RTN","ORM XFMT1",195 ,0)
  6248    . . . S T OTLINES=$P ($G(^OR(10 0,ORDIEN,4 .5,CMTNODE ,NODECNT,0 )),"^",3)
  6249   "RTN","ORM XFMT1",196 ,0)
  6250    . . . F C MTCNT=1:1: TOTLINES D
  6251   "RTN","ORM XFMT1",197 ,0)
  6252    . . . . S  HLOARR("C OMMENT",LI NECNT)=$G( ^OR(100,OR DIEN,4.5,C MTNODE,NOD ECNT,CMTCN T,0)),LINE CNT=LINECN T+1
  6253   "RTN","ORM XFMT1",198 ,0)
  6254    . . E  S  HLOARR("CO MMENT",LIN ECNT)=$G(^ OR(100,ORD IEN,4.5,CM TNODE,NODE CNT)),LINE CNT=LINECN T+1
  6255   "RTN","ORM XFMT1",199 ,0)
  6256    ;
  6257   "RTN","ORM XFMT1",200 ,0)
  6258    F CMTNODE =1:1:$P($G (^OR(100,O RDIEN,8,0) ),"^",3) D
  6259   "RTN","ORM XFMT1",201 ,0)
  6260    . ;
  6261   "RTN","ORM XFMT1",202 ,0)
  6262    . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,CMT NODE,5,0)) ,"^",3)
  6263   "RTN","ORM XFMT1",203 ,0)
  6264    . I TOTLI NES="" Q
  6265   "RTN","ORM XFMT1",204 ,0)
  6266    . ;
  6267   "RTN","ORM XFMT1",205 ,0)
  6268    . ; Since  the 8 nod e will als o be for a dded comme nts, just  append "AD D COMMENTS "
  6269   "RTN","ORM XFMT1",206 ,0)
  6270    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  6271   "RTN","ORM XFMT1",207 ,0)
  6272    . S HLOAR R("COMMENT ",LINECNT) ="ADD COMM ENTS",LINE CNT=LINECN T+1
  6273   "RTN","ORM XFMT1",208 ,0)
  6274    . ;
  6275   "RTN","ORM XFMT1",209 ,0)
  6276    . F CMTCN T=1:1:TOTL INES D
  6277   "RTN","ORM XFMT1",210 ,0)
  6278    . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,CMTNODE ,5,CMTCNT, 0)),LINECN T=LINECNT+ 1
  6279   "RTN","ORM XFMT1",211 ,0)
  6280    ;
  6281   "RTN","ORM XFMT1",212 ,0)
  6282    S HLOARR( "COMMENT", 0)=LINECNT -1
  6283   "RTN","ORM XFMT1",213 ,0)
  6284    ;
  6285   "RTN","ORM XFMT1",214 ,0)
  6286    Q
  6287   "RTN","ORM XFMT1",215 ,0)
  6288   FMTGMRCM(O RDIEN,GMRI EN,HLOARR)  ; Formats  the consu lt comment s given th e order ID
  6289   "RTN","ORM XFMT1",216 ,0)
  6290    ; This wi ll format  the HLOARR ("COMMENT" ) array fo r consults . This sho uld
  6291   "RTN","ORM XFMT1",217 ,0)
  6292    ; not be  called for  orders ot her than c onsults.
  6293   "RTN","ORM XFMT1",218 ,0)
  6294    ;
  6295   "RTN","ORM XFMT1",219 ,0)
  6296    ; ORDIEN  (I,REQ) -  IEN for th e order. R equired if  GMRIEN is  null. We  will attem pt to look up the
  6297   "RTN","ORM XFMT1",220 ,0)
  6298    ;                    GMRIEN if  GMRIEN is  null.
  6299   "RTN","ORM XFMT1",221 ,0)
  6300    ; GMRIEN  (I,REQ) -  IEN for th e consult.  Required  if ORDIEN  is null. W e will att empt to lo okup the
  6301   "RTN","ORM XFMT1",222 ,0)
  6302    ;                    ORDIEN if  ORDIEN is  null.
  6303   "RTN","ORM XFMT1",223 ,0)
  6304    ; HLOARR  (IO,REQ)   - Array co ntaining t he order i nformation
  6305   "RTN","ORM XFMT1",224 ,0)
  6306    ;
  6307   "RTN","ORM XFMT1",225 ,0)
  6308    N LINECNT ,CMTNODE,T OTLINES,CM TCNT,CMTST S
  6309   "RTN","ORM XFMT1",226 ,0)
  6310    S (LINECN T,CMTNODE, TOTLINES,C MTCNT,CMTS TS)=""
  6311   "RTN","ORM XFMT1",227 ,0)
  6312    ;
  6313   "RTN","ORM XFMT1",228 ,0)
  6314    S ORDIEN= $G(ORDIEN) ,GMRIEN=$G (GMRIEN)
  6315   "RTN","ORM XFMT1",229 ,0)
  6316    ;
  6317   "RTN","ORM XFMT1",230 ,0)
  6318    I ORDIEN= "",GMRIEN' ="" S ORDI EN=$P($G(^ GMR(123,GM RIEN,0))," ^",3)
  6319   "RTN","ORM XFMT1",231 ,0)
  6320    I ORDIEN' ="",GMRIEN ="" S GMRI EN=$O(^GMR (123,"AC", ORDIEN,"") )
  6321   "RTN","ORM XFMT1",232 ,0)
  6322    I GMRIEN= "" Q
  6323   "RTN","ORM XFMT1",233 ,0)
  6324    ;
  6325   "RTN","ORM XFMT1",234 ,0)
  6326    S LINECNT =1
  6327   "RTN","ORM XFMT1",235 ,0)
  6328    I $D(^GMR (123,GMRIE N,30)) D
  6329   "RTN","ORM XFMT1",236 ,0)
  6330    . ;
  6331   "RTN","ORM XFMT1",237 ,0)
  6332    . ; Add a  blank lin e to delin iate betwe en comment s
  6333   "RTN","ORM XFMT1",238 ,0)
  6334    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)="",LINE CNT=LINECN T+1
  6335   "RTN","ORM XFMT1",239 ,0)
  6336    . ;
  6337   "RTN","ORM XFMT1",240 ,0)
  6338    . S HLOAR R("COMMENT ",LINECNT) ="PROVISIO NAL DIAGNO SIS",LINEC NT=LINECNT +1
  6339   "RTN","ORM XFMT1",241 ,0)
  6340    . S HLOAR R("COMMENT ",LINECNT) =$G(^GMR(1 23,GMRIEN, 30)),LINEC NT=LINECNT +1
  6341   "RTN","ORM XFMT1",242 ,0)
  6342    ;
  6343   "RTN","ORM XFMT1",243 ,0)
  6344    I ORDIEN' ="" F CMTN ODE=1:1:$P ($G(^OR(10 0,ORDIEN,8 ,0)),"^",3 ) D
  6345   "RTN","ORM XFMT1",244 ,0)
  6346    . ;
  6347   "RTN","ORM XFMT1",245 ,0)
  6348    . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,CMT NODE,5,0)) ,"^",3)
  6349   "RTN","ORM XFMT1",246 ,0)
  6350    . I TOTLI NES="" Q
  6351   "RTN","ORM XFMT1",247 ,0)
  6352    . ;
  6353   "RTN","ORM XFMT1",248 ,0)
  6354    . ; Since  the 8 nod e will als o be for a dded comme nts, just  append "AD D COMMENTS "
  6355   "RTN","ORM XFMT1",249 ,0)
  6356    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  6357   "RTN","ORM XFMT1",250 ,0)
  6358    . S HLOAR R("COMMENT ",LINECNT) ="ADD COMM ENTS",LINE CNT=LINECN T+1
  6359   "RTN","ORM XFMT1",251 ,0)
  6360    . ;
  6361   "RTN","ORM XFMT1",252 ,0)
  6362    . F CMTCN T=1:1:TOTL INES D
  6363   "RTN","ORM XFMT1",253 ,0)
  6364    . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,CMTNODE ,5,CMTCNT, 0)),LINECN T=LINECNT+ 1
  6365   "RTN","ORM XFMT1",254 ,0)
  6366    ;
  6367   "RTN","ORM XFMT1",255 ,0)
  6368    F CMTNODE =1:1:$P($G (^GMR(123, GMRIEN,40, 0)),"^",3)  D
  6369   "RTN","ORM XFMT1",256 ,0)
  6370    . ;
  6371   "RTN","ORM XFMT1",257 ,0)
  6372    . ; Only  add commen ts if its  an "Discon tinue", "U pdate", "F orward", " Cancel", o r "Receive " action
  6373   "RTN","ORM XFMT1",258 ,0)
  6374    . S CMTST S=$P($G(^G MR(123,GMR IEN,40,CMT NODE,0))," ^",2)
  6375   "RTN","ORM XFMT1",259 ,0)
  6376    . I '$$IN STRING^SDM XCORE(CMTS TS,"6,17,1 9,20,21"," ,") Q
  6377   "RTN","ORM XFMT1",260 ,0)
  6378    . ;
  6379   "RTN","ORM XFMT1",261 ,0)
  6380    . ; Quit  out if the re are no  comments
  6381   "RTN","ORM XFMT1",262 ,0)
  6382    . S TOTLI NES=$P($G( ^GMR(123,G MRIEN,40,C MTNODE,1,0 )),"^",3)
  6383   "RTN","ORM XFMT1",263 ,0)
  6384    . I TOTLI NES="" Q
  6385   "RTN","ORM XFMT1",264 ,0)
  6386    . ;
  6387   "RTN","ORM XFMT1",265 ,0)
  6388    . ; Add a  blank lin e to delin iate betwe en comment s
  6389   "RTN","ORM XFMT1",266 ,0)
  6390    . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1
  6391   "RTN","ORM XFMT1",267 ,0)
  6392    . ;
  6393   "RTN","ORM XFMT1",268 ,0)
  6394    . ; Set t he "commen t header"
  6395   "RTN","ORM XFMT1",269 ,0)
  6396    . D
  6397   "RTN","ORM XFMT1",270 ,0)
  6398    . . I CMT STS=6 S HL OARR("COMM ENT",LINEC NT)="DISCO NTINUE COM MENTS",LIN ECNT=LINEC NT+1 Q
  6399   "RTN","ORM XFMT1",271 ,0)
  6400    . . I CMT STS=17 S H LOARR("COM MENT",LINE CNT)="FORW ARD SERVIC E COMMENTS ",LINECNT= LINECNT+1  Q
  6401   "RTN","ORM XFMT1",272 ,0)
  6402    . . I CMT STS=19 S H LOARR("COM MENT",LINE CNT)="CANC EL COMMENT S",LINECNT =LINECNT+1  Q
  6403   "RTN","ORM XFMT1",273 ,0)
  6404    . . I CMT STS=20 S H LOARR("COM MENT",LINE CNT)="ADD  COMMENTS", LINECNT=LI NECNT+1 Q
  6405   "RTN","ORM XFMT1",274 ,0)
  6406    . . I CMT STS=21 S H LOARR("COM MENT",LINE CNT)="RECE IVE COMMEN TS",LINECN T=LINECNT+ 1 Q
  6407   "RTN","ORM XFMT1",275 ,0)
  6408    . ;
  6409   "RTN","ORM XFMT1",276 ,0)
  6410    . ; Loop  through th e comments  and add t o the HLOA RR
  6411   "RTN","ORM XFMT1",277 ,0)
  6412    . F CMTCN T=1:1:TOTL INES D
  6413   "RTN","ORM XFMT1",278 ,0)
  6414    . . S HLO ARR("COMME NT",LINECN T)=$G(^GMR (123,GMRIE N,40,CMTNO DE,1,CMTCN T,0)),LINE CNT=LINECN T+1
  6415   "RTN","ORM XFMT1",279 ,0)
  6416    ;
  6417   "RTN","ORM XFMT1",280 ,0)
  6418    S HLOARR( "COMMENT", 0)=LINECNT -1
  6419   "RTN","ORM XFMT1",281 ,0)
  6420    ;
  6421   "RTN","ORM XFMT1",282 ,0)
  6422    Q
  6423   "RTN","ORM XFMT1",283 ,0)
  6424    ;;#eor#
  6425   "RTN","ORM XHL7")
  6426   0^7^B59928 339
  6427   "RTN","ORM XHL7",1,0)
  6428   ORMXHL7 ;M ASS/AWS -  ORDER HL7  MESSAGE BU ILDING;05/ 10/18;2018 -05-10 15: 12:46;8.3; OJw4W5xBWg kJeYKckLHu 6hbE5eGFY2 B+t/EyJRSt b4s=
  6429   "RTN","ORM XHL7",2,0)
  6430    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;May 5 ,2018;Buil d 76
  6431   "RTN","ORM XHL7",3,0)
  6432    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  6433   "RTN","ORM XHL7",4,0)
  6434    ;  ICR# S upported R eferences
  6435   "RTN","ORM XHL7",5,0)
  6436    ;  #####  PID^DGMXHL 7
  6437   "RTN","ORM XHL7",6,0)
  6438    ;   4716  $$ADDSEG^H LOAPI
  6439   "RTN","ORM XHL7",7,0)
  6440    ;   4716  $$NEWMSG^H LOAPI
  6441   "RTN","ORM XHL7",8,0)
  6442    ;   4716  SET^HLOAPI
  6443   "RTN","ORM XHL7",9,0)
  6444    ;   4717  $$SENDONE^ HLOAPI1
  6445   "RTN","ORM XHL7",10,0 )
  6446    ;   4853  SETDT^HLOA PI4
  6447   "RTN","ORM XHL7",11,0 )
  6448    ;  #####  ESCINVLD^S DMXCORE
  6449   "RTN","ORM XHL7",12,0 )
  6450    ;  #####  ERRLOG^SDM XERRO
  6451   "RTN","ORM XHL7",13,0 )
  6452    ;   2263  $$GET^XPAR
  6453   "RTN","ORM XHL7",14,0 )
  6454    ;
  6455   "RTN","ORM XHL7",15,0 )
  6456   ERRLG314(E RROR,ORDTY PE,ORDNUM)  ; Formats  error tex t and logs  error for  error cod e 314, mes sage faile d build.
  6457   "RTN","ORM XHL7",16,0 )
  6458    ; ERROR ( I,REQ) - E rror text  from the H LOAPI rout ines.
  6459   "RTN","ORM XHL7",17,0 )
  6460    ; ORDTYPE  (I,REQ) -  order typ e (consult , C&P, etc .) for the  order tha t is
  6461   "RTN","ORM XHL7",18,0 )
  6462    ;                     being pro cessed.  U sed for co ntextual i nformation  on
  6463   "RTN","ORM XHL7",19,0 )
  6464    ;                     the error .
  6465   "RTN","ORM XHL7",20,0 )
  6466    ; ORDNUM  (I,REQ) -  IEN of ord er that is  being pro cessed.
  6467   "RTN","ORM XHL7",21,0 )
  6468    ;
  6469   "RTN","ORM XHL7",22,0 )
  6470    S ERROR=$ G(ERROR),O RDTYPE=$G( ORDTYPE),O RDNUM=$G(O RDNUM)
  6471   "RTN","ORM XHL7",23,0 )
  6472    I $E(ERRO R,$L(ERROR ))'="." S  ERROR=ERRO R_"."
  6473   "RTN","ORM XHL7",24,0 )
  6474    S ERROR=E RROR_" "_O RDTYPE_":  "_$S(ORDNU M'="":ORDN UM,1:"No I D availabl e")
  6475   "RTN","ORM XHL7",25,0 )
  6476    D ERRLOG^ SDMXERRO(3 14,ERROR,1 )
  6477   "RTN","ORM XHL7",26,0 )
  6478    Q
  6479   "RTN","ORM XHL7",27,0 )
  6480   BLDORMHL(H LOARR,ERRO R,LINK) ;  Builds an  ORM messag e using HL O APIs.
  6481   "RTN","ORM XHL7",28,0 )
  6482    ; HLOARR  (I,OPT) -  Array cont aining the  order inf ormation
  6483   "RTN","ORM XHL7",29,0 )
  6484    ; ERROR ( O,OPT)  -  Contains t he error r eason if a n error oc curs
  6485   "RTN","ORM XHL7",30,0 )
  6486    ;
  6487   "RTN","ORM XHL7",31,0 )
  6488    ; Returns  the messa ge number  on success ; -1 other wise
  6489   "RTN","ORM XHL7",32,0 )
  6490    ;
  6491   "RTN","ORM XHL7",33,0 )
  6492    N PARMS,H LMSTATE,SE G,DFN,DIAG SEQ,NTECNT ,WHOTO,RSN CNT,CMTCNT ,OK,SUCCES S,MASSESC, ESCCHAR
  6493   "RTN","ORM XHL7",34,0 )
  6494    S (PARMS, HLMSTATE,S EG,DFN,DIA GSEQ,NTECN T,WHOTO,RS NCNT,CMTCN T,OK,SUCCE SS,MASSESC ,ESCCHAR)= ""
  6495   "RTN","ORM XHL7",35,0 )
  6496    S HLOARR= $G(HLOARR) ,ERROR=$G( ERROR),LIN K=$G(LINK)
  6497   "RTN","ORM XHL7",36,0 )
  6498    K ERROR S  ERROR=""
  6499   "RTN","ORM XHL7",37,0 )
  6500    ;
  6501   "RTN","ORM XHL7",38,0 )
  6502    ; Set nec essary var iables
  6503   "RTN","ORM XHL7",39,0 )
  6504    S PARMS(" EVENT")="O 01"
  6505   "RTN","ORM XHL7",40,0 )
  6506    S PARMS(" MESSAGE TY PE")="ORM"
  6507   "RTN","ORM XHL7",41,0 )
  6508    S PARMS(" MESSAGE ST RUCTURE")= "ORM_O01"
  6509   "RTN","ORM XHL7",42,0 )
  6510    S PARMS(" VERSION")= "2.4"
  6511   "RTN","ORM XHL7",43,0 )
  6512    I $G(LINK )="" S LIN K="OR ORM  OUT"
  6513   "RTN","ORM XHL7",44,0 )
  6514    S MASSESC =$$GET^XPA R("SYS","M ASS ASCII  CHARACTER  SWITCH")
  6515   "RTN","ORM XHL7",45,0 )
  6516    S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII  CHAR REPLA CEMENT")
  6517   "RTN","ORM XHL7",46,0 )
  6518    ;
  6519   "RTN","ORM XHL7",47,0 )
  6520    I '$$NEWM SG^HLOAPI( .PARMS,.HL MSTATE,.ER ROR) Q -1
  6521   "RTN","ORM XHL7",48,0 )
  6522    ;
  6523   "RTN","ORM XHL7",49,0 )
  6524    ; Build P ID segment
  6525   "RTN","ORM XHL7",50,0 )
  6526    S DFN=$P( $G(HLOARR( "PATIENT") ),"^",1)
  6527   "RTN","ORM XHL7",51,0 )
  6528    ;
  6529   "RTN","ORM XHL7",52,0 )
  6530    D PID^DGM XHL7(DFN,1 ,.SEG)
  6531   "RTN","ORM XHL7",53,0 )
  6532    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6533   "RTN","ORM XHL7",54,0 )
  6534    I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1
  6535   "RTN","ORM XHL7",55,0 )
  6536    ;
  6537   "RTN","ORM XHL7",56,0 )
  6538    ; Build P V1 segment
  6539   "RTN","ORM XHL7",57,0 )
  6540    D PV1(.HL OARR,.SEG)
  6541   "RTN","ORM XHL7",58,0 )
  6542    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6543   "RTN","ORM XHL7",59,0 )
  6544    I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1
  6545   "RTN","ORM XHL7",60,0 )
  6546    ;
  6547   "RTN","ORM XHL7",61,0 )
  6548    ; Build O RC segment
  6549   "RTN","ORM XHL7",62,0 )
  6550    D ORC(.HL OARR,.SEG)
  6551   "RTN","ORM XHL7",63,0 )
  6552    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6553   "RTN","ORM XHL7",64,0 )
  6554    I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1
  6555   "RTN","ORM XHL7",65,0 )
  6556    ;
  6557   "RTN","ORM XHL7",66,0 )
  6558    ; Build O BR segment
  6559   "RTN","ORM XHL7",67,0 )
  6560    D OBR(.HL OARR,1,.SE G)
  6561   "RTN","ORM XHL7",68,0 )
  6562    I MASSESC  D ESCINVL D^SDMXCORE (.SEG,ESCC HAR)
  6563   "RTN","ORM XHL7",69,0 )
  6564    I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1
  6565   "RTN","ORM XHL7",70,0 )
  6566    ;
  6567   "RTN","ORM XHL7",71,0 )
  6568    ; Build N TE segment s
  6569   "RTN","ORM XHL7",72,0 )
  6570    S NTECNT= 1
  6571   "RTN","ORM XHL7",73,0 )
  6572    F RSNCNT= 1:1:$G(HLO ARR("REASO N FOR STUD Y",0)) D
  6573   "RTN","ORM XHL7",74,0 )
  6574    . D NTE($ G(HLOARR(" REASON FOR  STUDY",RS NCNT)),"CM T",NTECNT, .SEG)
  6575   "RTN","ORM XHL7",75,0 )
  6576    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6577   "RTN","ORM XHL7",76,0 )
  6578    . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1
  6579   "RTN","ORM XHL7",77,0 )
  6580    ;
  6581   "RTN","ORM XHL7",78,0 )
  6582    ; Add a b lank line  between co mments
  6583   "RTN","ORM XHL7",79,0 )
  6584    I (NTECNT >1),($G(HL OARR("COMM ENT",0))>0 ) D
  6585   "RTN","ORM XHL7",80,0 )
  6586    . D NTE("  ","CMT",N TECNT,.SEG )
  6587   "RTN","ORM XHL7",81,0 )
  6588    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6589   "RTN","ORM XHL7",82,0 )
  6590    . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1
  6591   "RTN","ORM XHL7",83,0 )
  6592    ;
  6593   "RTN","ORM XHL7",84,0 )
  6594    F CMTCNT= 1:1:$G(HLO ARR("COMME NT",0)) D
  6595   "RTN","ORM XHL7",85,0 )
  6596    . D NTE($ G(HLOARR(" COMMENT",C MTCNT)),"C MT",NTECNT ,.SEG)
  6597   "RTN","ORM XHL7",86,0 )
  6598    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6599   "RTN","ORM XHL7",87,0 )
  6600    . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1
  6601   "RTN","ORM XHL7",88,0 )
  6602    ;
  6603   "RTN","ORM XHL7",89,0 )
  6604    I $G(HLOA RR("CPRS S TATUS"))'= "" D
  6605   "RTN","ORM XHL7",90,0 )
  6606    . D NTE($ G(HLOARR(" CPRS STATU S")),"STS" ,NTECNT,.S EG)
  6607   "RTN","ORM XHL7",91,0 )
  6608    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6609   "RTN","ORM XHL7",92,0 )
  6610    . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1
  6611   "RTN","ORM XHL7",93,0 )
  6612    ;
  6613   "RTN","ORM XHL7",94,0 )
  6614    ; Build D G1 segment
  6615   "RTN","ORM XHL7",95,0 )
  6616    F DIAGSEQ =1:1:$G(HL OARR("DIAG NOSIS",0))  D
  6617   "RTN","ORM XHL7",96,0 )
  6618    . D DG1(. HLOARR,DIA GSEQ,.SEG)
  6619   "RTN","ORM XHL7",97,0 )
  6620    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6621   "RTN","ORM XHL7",98,0 )
  6622    . S OK=$$ ADDSEG^HLO API(.HLMST ATE,.SEG,. ERROR)
  6623   "RTN","ORM XHL7",99,0 )
  6624    ;
  6625   "RTN","ORM XHL7",100, 0)
  6626    I $G(HLOA RR("NO LAT ER THAN")) '="" D
  6627   "RTN","ORM XHL7",101, 0)
  6628    . D OBX(. HLOARR,.SE G)
  6629   "RTN","ORM XHL7",102, 0)
  6630    . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR)
  6631   "RTN","ORM XHL7",103, 0)
  6632    . S OK=$$ ADDSEG^HLO API(.HLMST ATE,.SEG,. ERROR)
  6633   "RTN","ORM XHL7",104, 0)
  6634    ;
  6635   "RTN","ORM XHL7",105, 0)
  6636    ; Send th e message
  6637   "RTN","ORM XHL7",106, 0)
  6638    S PARMS(" SENDING AP PLICATION" )="OR-ORM- OUT"
  6639   "RTN","ORM XHL7",107, 0)
  6640    S WHOTO(" RECEIVING  APPLICATIO N")="EPIC"
  6641   "RTN","ORM XHL7",108, 0)
  6642    S WHOTO(" FACILITY L INK NAME") =LINK
  6643   "RTN","ORM XHL7",109, 0)
  6644    ;
  6645   "RTN","ORM XHL7",110, 0)
  6646    S SUCCESS =$$SENDONE ^HLOAPI1(. HLMSTATE,. PARMS,.WHO TO,.ERROR)
  6647   "RTN","ORM XHL7",111, 0)
  6648    ;
  6649   "RTN","ORM XHL7",112, 0)
  6650    Q $S(SUCC ESS=0:-1,1 :SUCCESS)
  6651   "RTN","ORM XHL7",113, 0)
  6652   PV1(HLOARR ,SEG) ; Bu ilds the P V1 segment  using the  HLO segme nt buildin g APIs.
  6653   "RTN","ORM XHL7",114, 0)
  6654    ; HLOARR  (I,REQ) -  The array  containing  the order  informati on
  6655   "RTN","ORM XHL7",115, 0)
  6656    ; SEG (IO ,REQ)   -  The segmen t, returne d as a lis t of field s.
  6657   "RTN","ORM XHL7",116, 0)
  6658    ;
  6659   "RTN","ORM XHL7",117, 0)
  6660    N CLINIC
  6661   "RTN","ORM XHL7",118, 0)
  6662    K SEG S S EG="" ; Th e segment  should sta rt off bla nk.
  6663   "RTN","ORM XHL7",119, 0)
  6664    ;
  6665   "RTN","ORM XHL7",120, 0)
  6666    D SET^HLO API(.SEG," PV1",0) ;  Set the se gment type .
  6667   "RTN","ORM XHL7",121, 0)
  6668    ;
  6669   "RTN","ORM XHL7",122, 0)
  6670    ; Set Cli nic in int o PV1-3 (f ormat: <Cl inic ID> < Clinic fac ility ID>^ ^^<Clinic  facility I D>^^^^^^^< Assigning  authority> )
  6671   "RTN","ORM XHL7",123, 0)
  6672    S CLINIC= $G(HLOARR( "CLINIC"))
  6673   "RTN","ORM XHL7",124, 0)
  6674    D SET^HLO API(.SEG,$ P(CLINIC," ^",1)_" "_ $P(CLINIC, "^",2),3,1 ,1,1) ; Cl inic ID
  6675   "RTN","ORM XHL7",125, 0)
  6676    D SET^HLO API(.SEG,$ P(CLINIC," ^",2),3,4, 1,1)                        ; Cl inic facil ity ID
  6677   "RTN","ORM XHL7",126, 0)
  6678    D SET^HLO API(.SEG,$ P(CLINIC," ^",4),3,11 ,1,1)                       ; Cl inic assig ning autho rity
  6679   "RTN","ORM XHL7",127, 0)
  6680    Q
  6681   "RTN","ORM XHL7",128, 0)
  6682   ORC(HLOARR ,SEG) ; Bu ilds the O RC segment  using the  HLO segme nt buildin g APIs.
  6683   "RTN","ORM XHL7",129, 0)
  6684    ; HLOARR  (I,REQ) -  The array  containing  the order  informati on
  6685   "RTN","ORM XHL7",130, 0)
  6686    ; SEG (IO ,REQ)   -  The segmen t, returne d as a lis t of field s.
  6687   "RTN","ORM XHL7",131, 0)
  6688    ;
  6689   "RTN","ORM XHL7",132, 0)
  6690    K SEG S S EG="" ; Th e segment  should sta rt off bla nk.
  6691   "RTN","ORM XHL7",133, 0)
  6692    ;
  6693   "RTN","ORM XHL7",134, 0)
  6694    D SET^HLO API(.SEG," ORC",0) ;  Set the se gment type .
  6695   "RTN","ORM XHL7",135, 0)
  6696    D SET^HLO API(.SEG,$ G(HLOARR(" ORDER CODE ")),1) ;OR C-1
  6697   "RTN","ORM XHL7",136, 0)
  6698    D SETDT^H LOAPI4(.SE G,$G(HLOAR R("ORDER D ATE")),9)  ;ORC-9
  6699   "RTN","ORM XHL7",137, 0)
  6700    D SET^HLO API(.SEG,$ G(HLOARR(" CANCEL REA SON")),16)  ;ORC-16
  6701   "RTN","ORM XHL7",138, 0)
  6702    Q
  6703   "RTN","ORM XHL7",139, 0)
  6704   OBR(HLOARR ,SEGCNT,SE G) ; Build s the OBR  segment us ing the HL O segment  building A PIs.
  6705   "RTN","ORM XHL7",140, 0)
  6706    ; HLOARR  (I,REQ) -  The array  containing  the order  informati on
  6707   "RTN","ORM XHL7",141, 0)
  6708    ; SEGCNT  (I,OPT) -  Value for  OBR-1. For  the first  occurrenc e of the s egment
  6709   "RTN","ORM XHL7",142, 0)
  6710    ;                    it should  be set to  1, for the  second 2,  etc. If n o value
  6711   "RTN","ORM XHL7",143, 0)
  6712    ;                    is passed  in, a defa ult value  of 1 is as signed.
  6713   "RTN","ORM XHL7",144, 0)
  6714    ; SEG (O, REQ)   - T he segment , returned  as a list  of fields .
  6715   "RTN","ORM XHL7",145, 0)
  6716    ;
  6717   "RTN","ORM XHL7",146, 0)
  6718    N ORDERAB L,ORDERID, PROVIDER,T YPE
  6719   "RTN","ORM XHL7",147, 0)
  6720    S (ORDERA BL,ORDERID ,PROVIDER, TYPE)=""
  6721   "RTN","ORM XHL7",148, 0)
  6722    S HLOARR= $G(HLOARR) ,SEGCNT=$G (SEGCNT),S EG=$G(SEG)
  6723   "RTN","ORM XHL7",149, 0)
  6724    K SEG S S EG="" ; Th e segment  should sta rt off bla nk.
  6725   "RTN","ORM XHL7",150, 0)
  6726    ;
  6727   "RTN","ORM XHL7",151, 0)
  6728    D SET^HLO API(.SEG," OBR",0) ;  Set the se gment type .
  6729   "RTN","ORM XHL7",152, 0)
  6730    ;
  6731   "RTN","ORM XHL7",153, 0)
  6732    ; Set OBR -1
  6733   "RTN","ORM XHL7",154, 0)
  6734    I SEGCNT= "" D SET^H LOAPI(.SEG ,1,1) I 1
  6735   "RTN","ORM XHL7",155, 0)
  6736    E  D SET^ HLOAPI(.SE G,SEGCNT,1 )
  6737   "RTN","ORM XHL7",156, 0)
  6738    ;
  6739   "RTN","ORM XHL7",157, 0)
  6740    ; Set ord er number  in into OB R-2 (forma t: <Applic ation ID>- <ID>)
  6741   "RTN","ORM XHL7",158, 0)
  6742    S ORDERID =$G(HLOARR ("ORDER ID "))
  6743   "RTN","ORM XHL7",159, 0)
  6744    D SET^HLO API(.SEG,$ P(ORDERID, "^",2)_"-" _$P(ORDERI D,"^",1),2 ,1,1,1)
  6745   "RTN","ORM XHL7",160, 0)
  6746    ;
  6747   "RTN","ORM XHL7",161, 0)
  6748    ; Set ord erable int o OBR-4 (f ormat: <ID >^<Name>^< Coding sys tem name>)
  6749   "RTN","ORM XHL7",162, 0)
  6750    S ORDERAB L=$G(HLOAR R("ORDERAB LE"))
  6751   "RTN","ORM XHL7",163, 0)
  6752    D SET^HLO API(.SEG,$ P(ORDERABL ,"^",1),4, 1,1,1) ; O rder ID
  6753   "RTN","ORM XHL7",164, 0)
  6754    D SET^HLO API(.SEG,$ P(ORDERABL ,"^",2),4, 2,1,1) ; O rder name
  6755   "RTN","ORM XHL7",165, 0)
  6756    D SET^HLO API(.SEG,$ P(ORDERABL ,"^",3),4, 3,1,1) ; O rder codin g system n ame
  6757   "RTN","ORM XHL7",166, 0)
  6758    ;
  6759   "RTN","ORM XHL7",167, 0)
  6760    ; Set Pro vider in i nto OBR-16  (format:  <ID>^<Last  name>^<Fi rst name>^ ^^^^^<Assi gning auth ority>^^^^ <ID type>)
  6761   "RTN","ORM XHL7",168, 0)
  6762    S PROVIDE R=$G(HLOAR R("ORDERIN G PHYSICIA N"))
  6763   "RTN","ORM XHL7",169, 0)
  6764    S TYPE=$P (PROVIDER, "^",4)
  6765   "RTN","ORM XHL7",170, 0)
  6766    D SET^HLO API(.SEG,$ P(PROVIDER ,"^",1),16 ,1,1,1)  ;  Provider  ID
  6767   "RTN","ORM XHL7",171, 0)
  6768    D SET^HLO API(.SEG,$ P(PROVIDER ,"^",2),16 ,2,1,1)  ;  Provider  last name
  6769   "RTN","ORM XHL7",172, 0)
  6770    D SET^HLO API(.SEG,$ P(PROVIDER ,"^",3),16 ,3,1,1)  ;  Provider  first name
  6771   "RTN","ORM XHL7",173, 0)
  6772    D SET^HLO API(.SEG,T YPE,16,9,1 ,1)  ; Pro vider assi gning auth ority
  6773   "RTN","ORM XHL7",174, 0)
  6774    D SET^HLO API(.SEG,T YPE,16,13, 1,1) ; Pro vider ID t ype
  6775   "RTN","ORM XHL7",175, 0)
  6776    ;
  6777   "RTN","ORM XHL7",176, 0)
  6778    D SETDT^H LOAPI4(.SE G,$G(HLOAR R("START D ATE")),27, 4,1) ;OBR- 27.4
  6779   "RTN","ORM XHL7",177, 0)
  6780    D SETDT^H LOAPI4(.SE G,$G(HLOAR R("STOP DA TE")),27,5 ,1) ;OBR-2 7.5
  6781   "RTN","ORM XHL7",178, 0)
  6782    D SET^HLO API(.SEG,$ G(HLOARR(" URGENCY")) ,27,6,1,1)  ;urgency  into OBR 2 7.6
  6783   "RTN","ORM XHL7",179, 0)
  6784    ;
  6785   "RTN","ORM XHL7",180, 0)
  6786    ;Add in r eccurency  informatio n (OBR-27. 2, OBR-27. 8, OBR-27. 12)
  6787   "RTN","ORM XHL7",181, 0)
  6788    I $G(HLOA RR("RECUR" ))>1 D
  6789   "RTN","ORM XHL7",182, 0)
  6790    . D SET^H LOAPI(.SEG ,$G(HLOARR ("FREQUENC Y")),27,2, 1,1)
  6791   "RTN","ORM XHL7",183, 0)
  6792    . D SET^H LOAPI(.SEG ,"STANDING ",27,8,1,1 )
  6793   "RTN","ORM XHL7",184, 0)
  6794    . D SET^H LOAPI(.SEG ,$G(HLOARR ("RECUR")) ,27,12,1,1 )
  6795   "RTN","ORM XHL7",185, 0)
  6796    Q
  6797   "RTN","ORM XHL7",186, 0)
  6798   OBX(HLOARR ,SEG) ; Bu ilds the O BX segment  using the  HLO segme nt buildin g APIs.
  6799   "RTN","ORM XHL7",187, 0)
  6800    ; HLOARR  (I,REQ) -  The array  containing  the order  informati on
  6801   "RTN","ORM XHL7",188, 0)
  6802    ; SEG (IO ,REQ)   -  The segmen t, returne d as a lis t of field s.
  6803   "RTN","ORM XHL7",189, 0)
  6804    ;
  6805   "RTN","ORM XHL7",190, 0)
  6806    K SEG S S EG="" ; Th e segment  should sta rt off bla nk.
  6807   "RTN","ORM XHL7",191, 0)
  6808    ;
  6809   "RTN","ORM XHL7",192, 0)
  6810    D SET^HLO API(.SEG," OBX",0) ;  Set the se gment type .
  6811   "RTN","ORM XHL7",193, 0)
  6812    D SET^HLO API(.SEG,1 ,1) ;set i d into OBX -1
  6813   "RTN","ORM XHL7",194, 0)
  6814    D SET^HLO API(.SEG," TX",2) ;OB X-2 to ST
  6815   "RTN","ORM XHL7",195, 0)
  6816    D SET^HLO API(.SEG," 1",3) ;OBX -3 to the  observatio n type
  6817   "RTN","ORM XHL7",196, 0)
  6818    D SET^HLO API(.SEG,$ G(HLOARR(" NO LATER T HAN")),5)  ;OBX-5
  6819   "RTN","ORM XHL7",197, 0)
  6820    Q
  6821   "RTN","ORM XHL7",198, 0)
  6822   NTE(NTECMT ,NTETYPE,S EGCNT,SEG)  ; Builds  the NTE se gment usin g the HLO  segment bu ilding API s.
  6823   "RTN","ORM XHL7",199, 0)
  6824    ; NTECMT  (I,REQ)  -  Free text  comment
  6825   "RTN","ORM XHL7",200, 0)
  6826    ; NTETYPE  (I,OPT) -  The comme nt type
  6827   "RTN","ORM XHL7",201, 0)
  6828    ; SEGCNT  (I,REQ)  -  Value for  NTE-1. Fo r the firs t occurren ce of the  segment
  6829   "RTN","ORM XHL7",202, 0)
  6830    ;                     it should  be set to  1, for th e second 2 , etc.
  6831   "RTN","ORM XHL7",203, 0)
  6832    ; SEG (O, REQ)    -  The segmen t, returne d as a lis t of field s.
  6833   "RTN","ORM XHL7",204, 0)
  6834    ;
  6835   "RTN","ORM XHL7",205, 0)
  6836    S NTECMT= $G(NTECMT) ,NTETYPE=$ G(NTETYPE) ,SEGCNT=$G (SEGCNT),S EG=$G(SEGC NT)
  6837   "RTN","ORM XHL7",206, 0)
  6838    K SEG S S EG="" ; Th e segment  should sta rt off bla nk.
  6839   "RTN","ORM XHL7",207, 0)
  6840    ;
  6841   "RTN","ORM XHL7",208, 0)
  6842    D SET^HLO API(.SEG," NTE",0) ;  Set the se gment type .
  6843   "RTN","ORM XHL7",209, 0)
  6844    D SET^HLO API(.SEG,S EGCNT,1) ; NTE-1
  6845   "RTN","ORM XHL7",210, 0)
  6846    D SET^HLO API(.SEG,$ G(NTECMT), 3) ;NTE-3
  6847   "RTN","ORM XHL7",211, 0)
  6848    D SET^HLO API(.SEG,$ G(NTETYPE) ,4) ;NTE-4
  6849   "RTN","ORM XHL7",212, 0)
  6850    Q
  6851   "RTN","ORM XHL7",213, 0)
  6852   DG1(HLOARR ,SEGCNT,SE G) ; Build s the DG1  segment us ing the HL O segment  building A PIs.
  6853   "RTN","ORM XHL7",214, 0)
  6854    ; HLOARR  (I,REQ) -  The array  containing  the diagn osis infor mation
  6855   "RTN","ORM XHL7",215, 0)
  6856    ; SEGCNT  (I,REQ) -  Value for  DG1-1. For  the first  occurrenc e of the s egment
  6857   "RTN","ORM XHL7",216, 0)
  6858    ;                    it should  be set to  1, for the  second 2,  etc.
  6859   "RTN","ORM XHL7",217, 0)
  6860    ; SEG (O, REQ)   - T he segment , returned  as a list  of fields .
  6861   "RTN","ORM XHL7",218, 0)
  6862    ;
  6863   "RTN","ORM XHL7",219, 0)
  6864    N DIAGNSI S
  6865   "RTN","ORM XHL7",220, 0)
  6866    S HLOARR= $G(HLOARR) ,SEGCNT=$G (SEGCNT),S EG=$G(SEG)
  6867   "RTN","ORM XHL7",221, 0)
  6868    K SEG S S EG="" ;The  segment s hould star t off blan k.
  6869   "RTN","ORM XHL7",222, 0)
  6870    ;
  6871   "RTN","ORM XHL7",223, 0)
  6872    D SET^HLO API(.SEG," DG1",0) ;S et the seg ment type.
  6873   "RTN","ORM XHL7",224, 0)
  6874    D SET^HLO API(.SEG,S EGCNT,1) ; DG1-1
  6875   "RTN","ORM XHL7",225, 0)
  6876    S DIAGNSI S=$G(HLOAR R("DIAGNOS IS",SEGCNT ))
  6877   "RTN","ORM XHL7",226, 0)
  6878    D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",1),3, 1,1,1) ; D iagnosis I D
  6879   "RTN","ORM XHL7",227, 0)
  6880    D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",2),3, 2,1,1) ; D iagnosis n ame
  6881   "RTN","ORM XHL7",228, 0)
  6882    D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",3),3, 3,1,1) ; D iagnosis c ode set
  6883   "RTN","ORM XHL7",229, 0)
  6884    Q
  6885   "RTN","ORM XHL7",230, 0)
  6886    ;;#eor#
  6887   "RTN","ORM XTR")
  6888   0^2^B20747 8225
  6889   "RTN","ORM XTR",1,0)
  6890   ORMXTR ;MA SS/AWS - O RDER TRIGG ERING;08/2 2/17;2018- 05-30 13:5 4:35;8.3;u AFd6bku+Xb H9L0CuYq9L fPEhOnKwd5 j/SQBot6ob U8=
  6891   "RTN","ORM XTR",2,0)
  6892    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;AUGUS T 22,2017; Build 76
  6893   "RTN","ORM XTR",3,0)
  6894    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  6895   "RTN","ORM XTR",4,0)
  6896    ;  ICR# S upported R eferences
  6897   "RTN","ORM XTR",5,0)
  6898    ;   5903  STATUS^ORC SAVE2
  6899   "RTN","ORM XTR",6,0)
  6900    ;  #####  $$ORDITEM^ ORM
  6901   "RTN","ORM XTR",7,0)
  6902    ;  #####  $$INCINTF^ SDMXCORE
  6903   "RTN","ORM XTR",8,0)
  6904    ;  #####  $$INSTRING ^SDMXCORE
  6905   "RTN","ORM XTR",9,0)
  6906    ;  #####  ERRLOG^SDM XERRO
  6907   "RTN","ORM XTR",10,0)
  6908    ;  #####  $$LOCKORD^ SDMXLKRQ
  6909   "RTN","ORM XTR",11,0)
  6910    ;  #####  $$ULOCKORD ^SDMXLKRQ
  6911   "RTN","ORM XTR",12,0)
  6912    ;   2263  $$GET^XPAR
  6913   "RTN","ORM XTR",13,0)
  6914    ;  10035  ^DPT
  6915   "RTN","ORM XTR",14,0)
  6916    ;  10040  ^SC
  6917   "RTN","ORM XTR",15,0)
  6918    ;   4685  ^ORD
  6919   "RTN","ORM XTR",16,0)
  6920    ;    ###  ^OR
  6921   "RTN","ORM XTR",17,0)
  6922    ;    ###  ^DVB
  6923   "RTN","ORM XTR",18,0)
  6924    ;    ###  ^DGEN
  6925   "RTN","ORM XTR",19,0)
  6926    ;    ###  ^GMR
  6927   "RTN","ORM XTR",20,0)
  6928   TRORDMSG(C NTLLIST) ;  Entry poi nt for tri ggering an y (i.e. "N W","XO","C A") ORM me ssages for  orders
  6929   "RTN","ORM XTR",21,0)
  6930    ; CNTLLIS T (I,OPT)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  6931   "RTN","ORM XTR",22,0)
  6932    ;
  6933   "RTN","ORM XTR",23,0)
  6934    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  6935   "RTN","ORM XTR",24,0)
  6936    ;   CODE   - The mes sage contr ol code (i .e. NW, DC , CA, etc. )
  6937   "RTN","ORM XTR",25,0)
  6938    ;   ORIFN  - Order I D
  6939   "RTN","ORM XTR",26,0)
  6940    ;
  6941   "RTN","ORM XTR",27,0)
  6942    ; Called  By:
  6943   "RTN","ORM XTR",28,0)
  6944    ;   ORMX  ORM HL7 TR IGGER - OR DERS actio n protocol
  6945   "RTN","ORM XTR",29,0)
  6946    ;     OR  EVSEND RA
  6947   "RTN","ORM XTR",30,0)
  6948    ;     OR  EVSEND LRC H
  6949   "RTN","ORM XTR",31,0)
  6950    ;     OR  EVSEND LRB B
  6951   "RTN","ORM XTR",32,0)
  6952    ;     OR  EVSEND LRA P
  6953   "RTN","ORM XTR",33,0)
  6954    ;     OR  EVSEND DGP M
  6955   "RTN","ORM XTR",34,0)
  6956    ;     OR  EVSEND FH
  6957   "RTN","ORM XTR",35,0)
  6958    ;     OR  EVSEND ORG
  6959   "RTN","ORM XTR",36,0)
  6960    ;     OR  EVSEND PS
  6961   "RTN","ORM XTR",37,0)
  6962    ;     OR  EVSEND GMR C
  6963   "RTN","ORM XTR",38,0)
  6964    ;
  6965   "RTN","ORM XTR",39,0)
  6966    S CNTLLIS T=$G(CNTLL IST)
  6967   "RTN","ORM XTR",40,0)
  6968    ;
  6969   "RTN","ORM XTR",41,0)
  6970    N ORIEN
  6971   "RTN","ORM XTR",42,0)
  6972    S (ORIEN) =""
  6973   "RTN","ORM XTR",43,0)
  6974    ;
  6975   "RTN","ORM XTR",44,0)
  6976    ; If MASS  isn't ena bled, don' t trigger  messages
  6977   "RTN","ORM XTR",45,0)
  6978    I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q
  6979   "RTN","ORM XTR",46,0)
  6980    ;
  6981   "RTN","ORM XTR",47,0)
  6982    ; Prevent s reboundi ng message s from inc oming sche duling
  6983   "RTN","ORM XTR",48,0)
  6984    I $$INCIN TF^SDMXCOR E() Q
  6985   "RTN","ORM XTR",49,0)
  6986    ;
  6987   "RTN","ORM XTR",50,0)
  6988    ; Check a ssumed var iables
  6989   "RTN","ORM XTR",51,0)
  6990    S ORIEN=$ P($G(ORIFN ),";",1)
  6991   "RTN","ORM XTR",52,0)
  6992    I ORIEN=" " Q
  6993   "RTN","ORM XTR",53,0)
  6994    ;
  6995   "RTN","ORM XTR",54,0)
  6996    ; Prevent s triggeri ng consult s as order s
  6997   "RTN","ORM XTR",55,0)
  6998    I $D(^GMR (123,"AC", ORIEN)) Q
  6999   "RTN","ORM XTR",56,0)
  7000    ;
  7001   "RTN","ORM XTR",57,0)
  7002    ; Prevent s triggeri ng message s for batc h header
  7003   "RTN","ORM XTR",58,0)
  7004    I '$D(COD E),CNTLLIS T="" Q
  7005   "RTN","ORM XTR",59,0)
  7006    ;
  7007   "RTN","ORM XTR",60,0)
  7008    ; Determi ne the eve nt (i.e. c ontrol cod e)
  7009   "RTN","ORM XTR",61,0)
  7010    I CNTLLIS T="" S CNT LLIST=$S($ G(CODE)="N W":"NW",$G (CODE)="XO ":"XO",$$I NSTRING^SD MXCORE($G( CODE),"CA, DC",","):" CA",1:"")
  7011   "RTN","ORM XTR",62,0)
  7012    I CNTLLIS T="" Q
  7013   "RTN","ORM XTR",63,0)
  7014    ;
  7015   "RTN","ORM XTR",64,0)
  7016    ; Prevent  NW orders  that were  DCed from  triggerin g
  7017   "RTN","ORM XTR",65,0)
  7018    I CNTLLIS T="NW",$P( $G(^OR(100 ,ORIEN,6)) ,"^",1)'=" " Q
  7019   "RTN","ORM XTR",66,0)
  7020    ;
  7021   "RTN","ORM XTR",67,0)
  7022    I $$ISRTC ORD(ORIEN)  D SENDRTC (ORIEN,CNT LLIST) I 1
  7023   "RTN","ORM XTR",68,0)
  7024    E  D SEND OR(ORIEN,C NTLLIST)
  7025   "RTN","ORM XTR",69,0)
  7026    Q
  7027   "RTN","ORM XTR",70,0)
  7028   TRGMRMSG(C NTLLIST) ;  Entry poi nt for tri ggering an y (i.e. "N W","XO","C A") ORM me ssages for  consults
  7029   "RTN","ORM XTR",71,0)
  7030    ; CNTLLIS T (I,OPT)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7031   "RTN","ORM XTR",72,0)
  7032    ;
  7033   "RTN","ORM XTR",73,0)
  7034    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7035   "RTN","ORM XTR",74,0)
  7036    ;   ORCTR L - Contro l code fro m EN^GMRCH L7
  7037   "RTN","ORM XTR",75,0)
  7038    ;   GMRCT RLC - Cont rol code f rom RETURN ^GMRCHL7U
  7039   "RTN","ORM XTR",76,0)
  7040    ;   GMRCO   - Consul t ID
  7041   "RTN","ORM XTR",77,0)
  7042    ;
  7043   "RTN","ORM XTR",78,0)
  7044    ; Called  By:
  7045   "RTN","ORM XTR",79,0)
  7046    ;   ORMX  ORM HL7 TR IGGER - CO NSULTS act ion protoc ol
  7047   "RTN","ORM XTR",80,0)
  7048    ;     GMR C EVSEND O R
  7049   "RTN","ORM XTR",81,0)
  7050    ;
  7051   "RTN","ORM XTR",82,0)
  7052    S CNTLLIS T=$G(CNTLL IST)
  7053   "RTN","ORM XTR",83,0)
  7054    ;
  7055   "RTN","ORM XTR",84,0)
  7056    N ACTION, ACTNODE,GM RIEN,CTRLC ODE
  7057   "RTN","ORM XTR",85,0)
  7058    S (ACTION ,ACTNODE,G MRIEN,CTRL CODE)=""
  7059   "RTN","ORM XTR",86,0)
  7060    ;
  7061   "RTN","ORM XTR",87,0)
  7062    ; assumed  variables  from the  HL7 trigge rs to dete rmine the  event for  printing a ctions
  7063   "RTN","ORM XTR",88,0)
  7064    I $G(ORCT RL)'="" S  CTRLCODE=$ P(ORCTRL," ^")
  7065   "RTN","ORM XTR",89,0)
  7066    I $G(GMRC TRLC)'=""  S CTRLCODE =$P(GMRCTR LC,"^")
  7067   "RTN","ORM XTR",90,0)
  7068    ;
  7069   "RTN","ORM XTR",91,0)
  7070    ; If MASS  isn't ena bled, don' t trigger  messages
  7071   "RTN","ORM XTR",92,0)
  7072    I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q
  7073   "RTN","ORM XTR",93,0)
  7074    ;
  7075   "RTN","ORM XTR",94,0)
  7076    ; Check a ssumed var iables
  7077   "RTN","ORM XTR",95,0)
  7078    S GMRIEN= $P($G(GMRC O),";",1)
  7079   "RTN","ORM XTR",96,0)
  7080    I GMRIEN= "" Q
  7081   "RTN","ORM XTR",97,0)
  7082    ;
  7083   "RTN","ORM XTR",98,0)
  7084    ; Determi ne the eve nt (i.e. c ontrol cod e)
  7085   "RTN","ORM XTR",99,0)
  7086    I CNTLLIS T="" D
  7087   "RTN","ORM XTR",100,0 )
  7088    . ;
  7089   "RTN","ORM XTR",101,0 )
  7090    . ; Retri eve the la st action  taken
  7091   "RTN","ORM XTR",102,0 )
  7092    . S ACTNO DE=$P($G(^ GMR(123,GM RIEN,40,0) ),"^",3)
  7093   "RTN","ORM XTR",103,0 )
  7094    . I ACTNO DE'="" S A CTION=$P($ G(^GMR(123 ,GMRIEN,40 ,ACTNODE,0 )),"^",2)
  7095   "RTN","ORM XTR",104,0 )
  7096    . ;
  7097   "RTN","ORM XTR",105,0 )
  7098    . I $$ISC ONFWD(GMRI EN),ACTION =25 S CNTL LIST="NW"
  7099   "RTN","ORM XTR",106,0 )
  7100    . E  I AC TION=22 D
  7101   "RTN","ORM XTR",107,0 )
  7102    . . I (AC TNODE>1) S  ACTION=$P ($G(^GMR(1 23,GMRIEN, 40,ACTNODE -1,0)),"^" ,2) ; allo w checking  for forwa rds
  7103   "RTN","ORM XTR",108,0 )
  7104    . . I $$I NSTRING^SD MXCORE(ACT ION,"17,25 ",",") S C NTLLIST="C A,NW" Q  ;  special p rocessing  for forwar ds
  7105   "RTN","ORM XTR",109,0 )
  7106    . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "NW,XX",", ") S CNTLL IST="NW" Q
  7107   "RTN","ORM XTR",110,0 )
  7108    . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "XO,SC",", ") S CNTLL IST="XO" Q
  7109   "RTN","ORM XTR",111,0 )
  7110    . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "CA,OC,OD, DC",",") S  CNTLLIST= "CA" Q
  7111   "RTN","ORM XTR",112,0 )
  7112    . E  D
  7113   "RTN","ORM XTR",113,0 )
  7114    . . I $$I NSTRING^SD MXCORE(ACT ION,"2,11" ,",") S CN TLLIST="NW " Q
  7115   "RTN","ORM XTR",114,0 )
  7116    . . I $$I NSTRING^SD MXCORE(ACT ION,"3,10, 20,21","," ) S CNTLLI ST="XO" Q
  7117   "RTN","ORM XTR",115,0 )
  7118    . . I $$I NSTRING^SD MXCORE(ACT ION,"6,19" ,",") S CN TLLIST="CA " Q
  7119   "RTN","ORM XTR",116,0 )
  7120    . . I $$I NSTRING^SD MXCORE(ACT ION,"17,25 ",",") S C NTLLIST="C A,NW" Q
  7121   "RTN","ORM XTR",117,0 )
  7122    ;
  7123   "RTN","ORM XTR",118,0 )
  7124    I $$ISCON FWD(GMRIEN ) D SENDFW D(GMRIEN,C NTLLIST) I  1
  7125   "RTN","ORM XTR",119,0 )
  7126    E  D SEND GMR(GMRIEN ,CNTLLIST)
  7127   "RTN","ORM XTR",120,0 )
  7128    Q
  7129   "RTN","ORM XTR",121,0 )
  7130   TRORCMT()  ; Entry po int for tr iggering a n "Add com ment" mess age when a  comment i s added to  an order/ consult in  the CPRS  "Orders" t ab
  7131   "RTN","ORM XTR",122,0 )
  7132    ; Determi nes whethe r or not t he order i s a consul t order or  not. If t he order i s a
  7133   "RTN","ORM XTR",123,0 )
  7134    ; consult  order, we  will call  TRGMRMSG  to trigger  the messa ge. If not , we will  call TRORD MSG.
  7135   "RTN","ORM XTR",124,0 )
  7136    ;
  7137   "RTN","ORM XTR",125,0 )
  7138    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7139   "RTN","ORM XTR",126,0 )
  7140    ;   ORIFN  - Order I D
  7141   "RTN","ORM XTR",127,0 )
  7142    ;
  7143   "RTN","ORM XTR",128,0 )
  7144    ; Called  By:
  7145   "RTN","ORM XTR",129,0 )
  7146    ;   ORMX  ORM HL7 TR IGGER - AD D COMMENTS  action pr otocol
  7147   "RTN","ORM XTR",130,0 )
  7148    ;     ORM X EVSEND A DD COMMENT
  7149   "RTN","ORM XTR",131,0 )
  7150    ;
  7151   "RTN","ORM XTR",132,0 )
  7152    N GMRCO
  7153   "RTN","ORM XTR",133,0 )
  7154    S (GMRCO) =""
  7155   "RTN","ORM XTR",134,0 )
  7156    ;
  7157   "RTN","ORM XTR",135,0 )
  7158    I $G(ORIF N)="" Q
  7159   "RTN","ORM XTR",136,0 )
  7160    ;
  7161   "RTN","ORM XTR",137,0 )
  7162    ; Check i f the orde r is a con sult order
  7163   "RTN","ORM XTR",138,0 )
  7164    I $D(^GMR (123,"AC", $P($G(ORIF N),";",1)) ) D
  7165   "RTN","ORM XTR",139,0 )
  7166    . ;
  7167   "RTN","ORM XTR",140,0 )
  7168    . ; Set v ariables T RGMRMSG as sumes to b e set befo re calling
  7169   "RTN","ORM XTR",141,0 )
  7170    . S GMRCO =$O(^GMR(1 23,"AC",$P ($G(ORIFN) ,";",1),"" ))
  7171   "RTN","ORM XTR",142,0 )
  7172    . D TRGMR MSG("XO")
  7173   "RTN","ORM XTR",143,0 )
  7174    E  D TROR DMSG("XO")
  7175   "RTN","ORM XTR",144,0 )
  7176    Q
  7177   "RTN","ORM XTR",145,0 )
  7178   TRUPDMSG(G MRIEN) ; E ntry point  for trigg ering an " XO" ORM me ssages for  consults
  7179   "RTN","ORM XTR",146,0 )
  7180    ; GMRIEN  - Consult  ID
  7181   "RTN","ORM XTR",147,0 )
  7182    ;
  7183   "RTN","ORM XTR",148,0 )
  7184    ; Called  By:
  7185   "RTN","ORM XTR",149,0 )
  7186    ;   UPCON REQ^SDMXCA NC
  7187   "RTN","ORM XTR",150,0 )
  7188    ;   MAKE^ SDMXMAKE
  7189   "RTN","ORM XTR",151,0 )
  7190    ;
  7191   "RTN","ORM XTR",152,0 )
  7192    S GMRIEN= $G(GMRIEN)
  7193   "RTN","ORM XTR",153,0 )
  7194    I GMRIEN= "" Q
  7195   "RTN","ORM XTR",154,0 )
  7196    ;
  7197   "RTN","ORM XTR",155,0 )
  7198    N GMRCO
  7199   "RTN","ORM XTR",156,0 )
  7200    S GMRCO=G MRIEN
  7201   "RTN","ORM XTR",157,0 )
  7202    ;
  7203   "RTN","ORM XTR",158,0 )
  7204    D TRGMRMS G("XO")
  7205   "RTN","ORM XTR",159,0 )
  7206    Q
  7207   "RTN","ORM XTR",160,0 )
  7208   TRCPMSG(CN TLLIST) ;  Entry poin t for trig gering any  (i.e. "NW ","XO","CA ") ORM mes sages for  C&P reques ts
  7209   "RTN","ORM XTR",161,0 )
  7210    ; CNTLLIS T (I,OPT)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7211   "RTN","ORM XTR",162,0 )
  7212    ;
  7213   "RTN","ORM XTR",163,0 )
  7214    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7215   "RTN","ORM XTR",164,0 )
  7216    ;   D0 -  C&P ID
  7217   "RTN","ORM XTR",165,0 )
  7218    ;
  7219   "RTN","ORM XTR",166,0 )
  7220    ; Called  By:
  7221   "RTN","ORM XTR",167,0 )
  7222    ;   File  #396.4 (ne w-style cr oss refere nce)
  7223   "RTN","ORM XTR",168,0 )
  7224    ;     Fie ld .02 (25 07 REQUEST )
  7225   "RTN","ORM XTR",169,0 )
  7226    ;     Fie ld .03 (EX AM TYPE)
  7227   "RTN","ORM XTR",170,0 )
  7228    ;     Fie ld .04 (ST ATUS)
  7229   "RTN","ORM XTR",171,0 )
  7230    ;
  7231   "RTN","ORM XTR",172,0 )
  7232    S CNTLLIS T=$G(CNTLL IST)
  7233   "RTN","ORM XTR",173,0 )
  7234    ;
  7235   "RTN","ORM XTR",174,0 )
  7236    N DVB0,DV BIEN
  7237   "RTN","ORM XTR",175,0 )
  7238    S (DVB0,D VBIEN)=""
  7239   "RTN","ORM XTR",176,0 )
  7240    ;
  7241   "RTN","ORM XTR",177,0 )
  7242    ; If MASS  isn't ena bled, don' t trigger  messages
  7243   "RTN","ORM XTR",178,0 )
  7244    I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q
  7245   "RTN","ORM XTR",179,0 )
  7246    ;
  7247   "RTN","ORM XTR",180,0 )
  7248    ; Prevent s reboundi ng message s from inc oming sche duling
  7249   "RTN","ORM XTR",181,0 )
  7250    I $$INCIN TF^SDMXCOR E() Q
  7251   "RTN","ORM XTR",182,0 )
  7252    ;
  7253   "RTN","ORM XTR",183,0 )
  7254    ; Check a ssumed var iables
  7255   "RTN","ORM XTR",184,0 )
  7256    S DVBIEN= $G(D0)
  7257   "RTN","ORM XTR",185,0 )
  7258    I DVBIEN= "" Q
  7259   "RTN","ORM XTR",186,0 )
  7260    ;
  7261   "RTN","ORM XTR",187,0 )
  7262    ; Determi ne the eve nt (i.e. c ontrol cod e)
  7263   "RTN","ORM XTR",188,0 )
  7264    S DVB0=$G (^DVB(396. 4,DVBIEN,0 ))
  7265   "RTN","ORM XTR",189,0 )
  7266    I CNTLLIS T="" S CNT LLIST=$S($ P(DVB0,"^" ,4)="O":"N W",$$INSTR ING^SDMXCO RE($P(DVB0 ,"^",4),"X ,RX,T","," ):"CA",1:" ")
  7267   "RTN","ORM XTR",190,0 )
  7268    ;
  7269   "RTN","ORM XTR",191,0 )
  7270    D SENDCP( DVBIEN,CNT LLIST)
  7271   "RTN","ORM XTR",192,0 )
  7272    Q
  7273   "RTN","ORM XTR",193,0 )
  7274   TRCPCMT()  ; Entry po int for tr iggering a  "XO" mess age for ea ch exam wh en the com ments on t he C&P req uest are u pdated
  7275   "RTN","ORM XTR",194,0 )
  7276    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7277   "RTN","ORM XTR",195,0 )
  7278    ;   DA  -  The C&P r equest ID
  7279   "RTN","ORM XTR",196,0 )
  7280    ;
  7281   "RTN","ORM XTR",197,0 )
  7282    ; Called  By:
  7283   "RTN","ORM XTR",198,0 )
  7284    ;   ORMX  ORM HL7 TR IGGER - C& P UPDATE a ction prot ocol
  7285   "RTN","ORM XTR",199,0 )
  7286    ;
  7287   "RTN","ORM XTR",200,0 )
  7288    I $G(DA)= "" Q
  7289   "RTN","ORM XTR",201,0 )
  7290    ;
  7291   "RTN","ORM XTR",202,0 )
  7292    N D0
  7293   "RTN","ORM XTR",203,0 )
  7294    S D0=""
  7295   "RTN","ORM XTR",204,0 )
  7296    ;
  7297   "RTN","ORM XTR",205,0 )
  7298    ; Loop th rough all  exams on r equest
  7299   "RTN","ORM XTR",206,0 )
  7300    F  S D0=$ O(^DVB(396 .4,"C",$G( DA),D0)) Q :D0=""  D
  7301   "RTN","ORM XTR",207,0 )
  7302    . D TRCPM SG("XO")
  7303   "RTN","ORM XTR",208,0 )
  7304    Q
  7305   "RTN","ORM XTR",209,0 )
  7306   TRNLMSG(CN TLLIST) ;  Entry poin t for trig gering any  (i.e. "NW ","XO","CA ") ORM mes sages for  NEAR order s
  7307   "RTN","ORM XTR",210,0 )
  7308    ; CNTLLIS T (I,OPT)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7309   "RTN","ORM XTR",211,0 )
  7310    ;
  7311   "RTN","ORM XTR",212,0 )
  7312    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7313   "RTN","ORM XTR",213,0 )
  7314    ;   DFN       - Pati ent ID
  7315   "RTN","ORM XTR",214,0 )
  7316    ;   DGENR IEN - IEN  of the NEA R request
  7317   "RTN","ORM XTR",215,0 )
  7318    ;
  7319   "RTN","ORM XTR",216,0 )
  7320    ; Called  By:
  7321   "RTN","ORM XTR",217,0 )
  7322    ;   File  #2 (tradit ional-styl e cross re ference)
  7323   "RTN","ORM XTR",218,0 )
  7324    ;     fie ld 1010.15 11 (APPOIN TMENT REQU EST ON 101 0EZ) - Und er "MUMPS  'G' INDEX  OF FILE" c ross refer ence
  7325   "RTN","ORM XTR",219,0 )
  7326    ;     fie ld 1010.16 1 (APPOINT MENT REQUE ST STATUS)  - Under " MUMPS 'AY'  INDEX OF  FILE" cros s referenc e - CNTLLI ST will be  set to "C A,NW"
  7327   "RTN","ORM XTR",220,0 )
  7328    ;
  7329   "RTN","ORM XTR",221,0 )
  7330    S CNTLLIS T=$G(CNTLL IST),DFN=$ G(DFN),DGE NRIEN=$G(D GENRIEN)
  7331   "RTN","ORM XTR",222,0 )
  7332    ;
  7333   "RTN","ORM XTR",223,0 )
  7334    N FLAG,EN STATUS
  7335   "RTN","ORM XTR",224,0 )
  7336    S (FLAG,E NSTATUS)=" "
  7337   "RTN","ORM XTR",225,0 )
  7338    ;
  7339   "RTN","ORM XTR",226,0 )
  7340    ; If MASS  isn't ena bled, don' t trigger  messages
  7341   "RTN","ORM XTR",227,0 )
  7342    I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q
  7343   "RTN","ORM XTR",228,0 )
  7344    ;
  7345   "RTN","ORM XTR",229,0 )
  7346    ; Setup i dentifiers  for Patie nt IEN and  enrollmen t IEN
  7347   "RTN","ORM XTR",230,0 )
  7348    I (DFN'=" "),(DGENRI EN="") D   ; Coming f rom DPT cr oss refere nce
  7349   "RTN","ORM XTR",231,0 )
  7350    . S DGENR IEN=$P($G( ^DPT(DFN," ENR")),"^" )
  7351   "RTN","ORM XTR",232,0 )
  7352    ;
  7353   "RTN","ORM XTR",233,0 )
  7354    ; If ther e is no ap pointment  request, d on't trigg er
  7355   "RTN","ORM XTR",234,0 )
  7356    I (DFN'=" "),($P($G( ^DPT(DFN,1 010.15))," ^",9)'=1)  Q
  7357   "RTN","ORM XTR",235,0 )
  7358    ;
  7359   "RTN","ORM XTR",236,0 )
  7360    ; If the  Enrollment  is not "v erified,"  don't trig ger a mess age
  7361   "RTN","ORM XTR",237,0 )
  7362    I DGENRIE N'="" S EN STATUS=$P( $G(^DGEN(2 7.11,DGENR IEN,0)),"^ ",4)
  7363   "RTN","ORM XTR",238,0 )
  7364    I (ENSTAT US'=""),($ P($G(^DGEN (27.15,ENS TATUS,0)), "^",2)'="E ") Q
  7365   "RTN","ORM XTR",239,0 )
  7366    ;
  7367   "RTN","ORM XTR",240,0 )
  7368    I CNTLLIS T="" S CNT LLIST="NW"
  7369   "RTN","ORM XTR",241,0 )
  7370    ;
  7371   "RTN","ORM XTR",242,0 )
  7372    ; If the  NEAR is fi lled, don' t trigger  messages
  7373   "RTN","ORM XTR",243,0 )
  7374    S FLAG=$P ($G(^DPT(D FN,1010.16 )),"^",1)
  7375   "RTN","ORM XTR",244,0 )
  7376    I ($G(FLA G)="F"),(C NTLLIST="N W") Q
  7377   "RTN","ORM XTR",245,0 )
  7378    ;
  7379   "RTN","ORM XTR",246,0 )
  7380    D SENDNL( DFN,DGENRI EN,CNTLLIS T)
  7381   "RTN","ORM XTR",247,0 )
  7382    Q
  7383   "RTN","ORM XTR",248,0 )
  7384   TRFRMENR()  ; Entry p oint for t riggering  "NW" ORM m essages fo r NEAR whe n the Enro llment Sta tus (27.11 ;.04) is u pdated
  7385   "RTN","ORM XTR",249,0 )
  7386    ; Variabl es assumed  to be set  from call ing functi on/protoco l/cross re ference:
  7387   "RTN","ORM XTR",250,0 )
  7388    ;   X1(1)  - The old  status of  the NEAR  request
  7389   "RTN","ORM XTR",251,0 )
  7390    ;   X2(1)  - The new  status of  the NEAR  request
  7391   "RTN","ORM XTR",252,0 )
  7392    ;   X2(2)  - The pat ient ID
  7393   "RTN","ORM XTR",253,0 )
  7394    ;
  7395   "RTN","ORM XTR",254,0 )
  7396    ; Called  By:
  7397   "RTN","ORM XTR",255,0 )
  7398    ;   File  #27.11 (ne w-style cr oss refere nce) - Und er "1338 ' AE' index"
  7399   "RTN","ORM XTR",256,0 )
  7400    ;     fie ld .04 (EN ROLLMENT S TATUS)
  7401   "RTN","ORM XTR",257,0 )
  7402    ;
  7403   "RTN","ORM XTR",258,0 )
  7404    N OLDSTAT ,NEWSTAT,D FN,DGENRIE N,OLDCAT,N EWCAT
  7405   "RTN","ORM XTR",259,0 )
  7406    S (OLDSTA T,NEWSTAT, DFN,DGENRI EN,OLDCAT, NEWCAT)=""
  7407   "RTN","ORM XTR",260,0 )
  7408    ;
  7409   "RTN","ORM XTR",261,0 )
  7410    S OLDSTAT =$G(X1(1))
  7411   "RTN","ORM XTR",262,0 )
  7412    S NEWSTAT =$G(X2(1))
  7413   "RTN","ORM XTR",263,0 )
  7414    S DFN=$G( X2(2))
  7415   "RTN","ORM XTR",264,0 )
  7416    S DGENRIE N=$P($G(^D PT(DFN,"EN R")),"^",1 )
  7417   "RTN","ORM XTR",265,0 )
  7418    S OLDCAT= $P($G(^DGE N(27.15,OL DSTAT,0)), "^",2)
  7419   "RTN","ORM XTR",266,0 )
  7420    S NEWCAT= $P($G(^DGE N(27.15,NE WSTAT,0)), "^",2)
  7421   "RTN","ORM XTR",267,0 )
  7422    ;
  7423   "RTN","ORM XTR",268,0 )
  7424    ; If the  Enrollment  is not "v erified,"  don't trig ger a mess age
  7425   "RTN","ORM XTR",269,0 )
  7426    I OLDCAT' ="E",NEWCA T="E" D TR NLMSG()
  7427   "RTN","ORM XTR",270,0 )
  7428    Q
  7429   "RTN","ORM XTR",271,0 )
  7430   SENDOR(ORI EN,CNTLLIS T) ; Build  and send  HL7 messag es for ord ers
  7431   "RTN","ORM XTR",272,0 )
  7432    ; ORIEN ( I,REQ)     - Order IE N
  7433   "RTN","ORM XTR",273,0 )
  7434    ; CNTLLIS T (I,REQ)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7435   "RTN","ORM XTR",274,0 )
  7436    ;
  7437   "RTN","ORM XTR",275,0 )
  7438    S ORIEN=$ G(ORIEN),C NTLLIST=$G (CNTLLIST)
  7439   "RTN","ORM XTR",276,0 )
  7440    I (ORIEN= "")!(CNTLL IST="") Q
  7441   "RTN","ORM XTR",277,0 )
  7442    ;
  7443   "RTN","ORM XTR",278,0 )
  7444    N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE
  7445   "RTN","ORM XTR",279,0 )
  7446    S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)=""
  7447   "RTN","ORM XTR",280,0 )
  7448    ;
  7449   "RTN","ORM XTR",281,0 )
  7450    S ORDABLE =$G(^OR(10 0,ORIEN,.1 ,1,0))
  7451   "RTN","ORM XTR",282,0 )
  7452    ;
  7453   "RTN","ORM XTR",283,0 )
  7454    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7455   "RTN","ORM XTR",284,0 )
  7456    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7457   "RTN","ORM XTR",285,0 )
  7458    . ;
  7459   "RTN","ORM XTR",286,0 )
  7460    . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE)  Q
  7461   "RTN","ORM XTR",287,0 )
  7462    . ;
  7463   "RTN","ORM XTR",288,0 )
  7464    . ; Build  the HLOAR R with the  necessary  informati on
  7465   "RTN","ORM XTR",289,0 )
  7466    . S SUCCE SS=$$FMTOR ^ORMXFMT(C NTLCODE,OR IEN,ORDABL E,.HLOARR, .ERROR)
  7467   "RTN","ORM XTR",290,0 )
  7468    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,ER ROR,1) Q
  7469   "RTN","ORM XTR",291,0 )
  7470    . ;
  7471   "RTN","ORM XTR",292,0 )
  7472    . ; Trigg er the mes sage
  7473   "RTN","ORM XTR",293,0 )
  7474    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7475   "RTN","ORM XTR",294,0 )
  7476    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"ORDE R",$G(HLOA RR("ORDER  ID"))) Q
  7477   "RTN","ORM XTR",295,0 )
  7478    Q
  7479   "RTN","ORM XTR",296,0 )
  7480   SENDGMR(GM RIEN,CNTLL IST) ; Bui ld and sen d HL7 mess ages for c onsults
  7481   "RTN","ORM XTR",297,0 )
  7482    ; GMRIEN  (I,REQ)    - Consult  IEN
  7483   "RTN","ORM XTR",298,0 )
  7484    ; CNTLLIS T (I,REQ)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7485   "RTN","ORM XTR",299,0 )
  7486    ;
  7487   "RTN","ORM XTR",300,0 )
  7488    S GMRIEN= $G(GMRIEN) ,CNTLLIST= $G(CNTLLIS T)
  7489   "RTN","ORM XTR",301,0 )
  7490    I (GMRIEN ="")!(CNTL LIST="") Q
  7491   "RTN","ORM XTR",302,0 )
  7492    ;
  7493   "RTN","ORM XTR",303,0 )
  7494    N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE
  7495   "RTN","ORM XTR",304,0 )
  7496    S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)=""
  7497   "RTN","ORM XTR",305,0 )
  7498    ;
  7499   "RTN","ORM XTR",306,0 )
  7500    S ORIEN=$ P($G(^GMR( 123,GMRIEN ,0)),"^",3 )
  7501   "RTN","ORM XTR",307,0 )
  7502    ;
  7503   "RTN","ORM XTR",308,0 )
  7504    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7505   "RTN","ORM XTR",309,0 )
  7506    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7507   "RTN","ORM XTR",310,0 )
  7508    . ;
  7509   "RTN","ORM XTR",311,0 )
  7510    . S ORDAB LE=$$GMROR DBL(GMRIEN ,CNTLCODE)
  7511   "RTN","ORM XTR",312,0 )
  7512    . ;
  7513   "RTN","ORM XTR",313,0 )
  7514    . ; Preve nt certain  orders fr om trigger ing a mess age
  7515   "RTN","ORM XTR",314,0 )
  7516    . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE)  Q
  7517   "RTN","ORM XTR",315,0 )
  7518    . ;
  7519   "RTN","ORM XTR",316,0 )
  7520    . ; Build  the HLOAR R with the  necessary  informati on
  7521   "RTN","ORM XTR",317,0 )
  7522    . S SUCCE SS=$$FMTGM RC^ORMXFMT (CNTLCODE, $G(GMRCO), ORDABLE,.H LOARR,.ERR OR)
  7523   "RTN","ORM XTR",318,0 )
  7524    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1)  Q
  7525   "RTN","ORM XTR",319,0 )
  7526    . ;
  7527   "RTN","ORM XTR",320,0 )
  7528    . ; Trigg er the mes sage
  7529   "RTN","ORM XTR",321,0 )
  7530    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7531   "RTN","ORM XTR",322,0 )
  7532    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"CONS ULT",$G(HL OARR("ORDE R ID"))) Q
  7533   "RTN","ORM XTR",323,0 )
  7534    Q
  7535   "RTN","ORM XTR",324,0 )
  7536   SENDFWD(GM RIEN,CNTLL IST) ; Bui ld and sen d HL7 mess ages for f orwarded c onsults
  7537   "RTN","ORM XTR",325,0 )
  7538    ; GMRIEN  (I,REQ)    - Consult  IEN
  7539   "RTN","ORM XTR",326,0 )
  7540    ; CNTLLIS T (I,REQ)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7541   "RTN","ORM XTR",327,0 )
  7542    ;
  7543   "RTN","ORM XTR",328,0 )
  7544    S GMRIEN= $G(GMRIEN) ,CNTLLIST= $G(CNTLLIS T)
  7545   "RTN","ORM XTR",329,0 )
  7546    I (GMRIEN ="")!(CNTL LIST="") Q
  7547   "RTN","ORM XTR",330,0 )
  7548    ;
  7549   "RTN","ORM XTR",331,0 )
  7550    N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE
  7551   "RTN","ORM XTR",332,0 )
  7552    S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)=""
  7553   "RTN","ORM XTR",333,0 )
  7554    ;
  7555   "RTN","ORM XTR",334,0 )
  7556    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7557   "RTN","ORM XTR",335,0 )
  7558    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7559   "RTN","ORM XTR",336,0 )
  7560    . ;
  7561   "RTN","ORM XTR",337,0 )
  7562    . S ORDAB LE=$$GMROR DBL(GMRIEN ,CNTLCODE)
  7563   "RTN","ORM XTR",338,0 )
  7564    . ;
  7565   "RTN","ORM XTR",339,0 )
  7566    . ; Preve nt certain  orders fr om trigger ing a mess age
  7567   "RTN","ORM XTR",340,0 )
  7568    . I $$FIL TEROR(ORDA BLE,"",CNT LCODE) Q
  7569   "RTN","ORM XTR",341,0 )
  7570    . ;
  7571   "RTN","ORM XTR",342,0 )
  7572    . ; Build  the HLOAR R with the  necessary  informati on
  7573   "RTN","ORM XTR",343,0 )
  7574    . S SUCCE SS=$$FMTFW GMR^ORMXFM T(CNTLCODE ,GMRIEN,OR DABLE,.HLO ARR,.ERROR )
  7575   "RTN","ORM XTR",344,0 )
  7576    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1)  Q
  7577   "RTN","ORM XTR",345,0 )
  7578    . ;
  7579   "RTN","ORM XTR",346,0 )
  7580    . ; Trigg er the mes sage
  7581   "RTN","ORM XTR",347,0 )
  7582    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7583   "RTN","ORM XTR",348,0 )
  7584    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"CONS ULT",$G(HL OARR("ORDE R ID"))) Q
  7585   "RTN","ORM XTR",349,0 )
  7586    Q
  7587   "RTN","ORM XTR",350,0 )
  7588   SENDNL(PAT IEN,DGENIE N,CNTLLIST ) ; Build  and send H L7 message s for NEAR
  7589   "RTN","ORM XTR",351,0 )
  7590    ; PATIEN  (I,REQ)    - Patient  IEN
  7591   "RTN","ORM XTR",352,0 )
  7592    ; DGENIEN  (I,REQ)   - IEN of t he NEAR
  7593   "RTN","ORM XTR",353,0 )
  7594    ; CNTLLIS T (I,REQ)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7595   "RTN","ORM XTR",354,0 )
  7596    ;
  7597   "RTN","ORM XTR",355,0 )
  7598    S PATIEN= $G(PATIEN) ,DGENIEN=$ G(DGENIEN) ,CNTLLIST= $G(CNTLLIS T)
  7599   "RTN","ORM XTR",356,0 )
  7600    I (PATIEN ="")!(DGEN IEN="")!(C NTLLIST="" ) Q
  7601   "RTN","ORM XTR",357,0 )
  7602    ;
  7603   "RTN","ORM XTR",358,0 )
  7604    N CURR,CN TLCODE,SUC CESS
  7605   "RTN","ORM XTR",359,0 )
  7606    S (CURR,C NTLCODE,SU CCESS)=""
  7607   "RTN","ORM XTR",360,0 )
  7608    ;
  7609   "RTN","ORM XTR",361,0 )
  7610    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7611   "RTN","ORM XTR",362,0 )
  7612    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7613   "RTN","ORM XTR",363,0 )
  7614    . ;
  7615   "RTN","ORM XTR",364,0 )
  7616    . ; Build  the HLOAR R with the  necessary  informati on
  7617   "RTN","ORM XTR",365,0 )
  7618    . S SUCCE SS=$$FMTNL ^ORMXFMT(C NTLCODE,PA TIEN,.HLOA RR,.ERROR)
  7619   "RTN","ORM XTR",366,0 )
  7620    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1)  Q
  7621   "RTN","ORM XTR",367,0 )
  7622    . ;
  7623   "RTN","ORM XTR",368,0 )
  7624    . ; Trigg er the mes sage
  7625   "RTN","ORM XTR",369,0 )
  7626    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7627   "RTN","ORM XTR",370,0 )
  7628    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"NEAR  list pati ent",$G(HL OARR("PATI ENT"))) Q
  7629   "RTN","ORM XTR",371,0 )
  7630    Q
  7631   "RTN","ORM XTR",372,0 )
  7632   SENDCP(DVB IEN,CNTLLI ST) ; Buil d and send  HL7 messa ges for C& P requests
  7633   "RTN","ORM XTR",373,0 )
  7634    ; DVBIEN  (I,REQ)    - IEN of t he C&P req uest
  7635   "RTN","ORM XTR",374,0 )
  7636    ; CNTLLIS T (I,REQ)  - Set to a  list of s pecific co ntrol code s (i.e. "N W", "XO",  "NW,CA") y ou want to  trigger a  message f or
  7637   "RTN","ORM XTR",375,0 )
  7638    ;
  7639   "RTN","ORM XTR",376,0 )
  7640    S DVBIEN= $G(DVBIEN) ,CNTLLIST= $G(CNTLLIS T)
  7641   "RTN","ORM XTR",377,0 )
  7642    I (DVBIEN ="")!(CNTL LIST="") Q
  7643   "RTN","ORM XTR",378,0 )
  7644    ;
  7645   "RTN","ORM XTR",379,0 )
  7646    N CURR,CN TLCODE,SUC CESS
  7647   "RTN","ORM XTR",380,0 )
  7648    S (CURR,C NTLCODE,SU CCESS)=""
  7649   "RTN","ORM XTR",381,0 )
  7650    ;
  7651   "RTN","ORM XTR",382,0 )
  7652    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7653   "RTN","ORM XTR",383,0 )
  7654    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7655   "RTN","ORM XTR",384,0 )
  7656    . ;
  7657   "RTN","ORM XTR",385,0 )
  7658    . ; Build  the HLOAR R with the  necessary  informati on
  7659   "RTN","ORM XTR",386,0 )
  7660    . S SUCCE SS=$$FMTCP ^ORMXFMT(C NTLCODE,DV BIEN,.HLOA RR,.ERROR)
  7661   "RTN","ORM XTR",387,0 )
  7662    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1)  Q
  7663   "RTN","ORM XTR",388,0 )
  7664    . ;
  7665   "RTN","ORM XTR",389,0 )
  7666    . ; Trigg er the mes sage
  7667   "RTN","ORM XTR",390,0 )
  7668    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7669   "RTN","ORM XTR",391,0 )
  7670    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"C&P" ,$G(HLOARR ("ORDER ID "))) Q
  7671   "RTN","ORM XTR",392,0 )
  7672    Q
  7673   "RTN","ORM XTR",393,0 )
  7674   SENDRTC(OR IEN,CNTLLI ST) ; Buil d and send  HL7 messa ges for RT C orders
  7675   "RTN","ORM XTR",394,0 )
  7676    ; ORIEN(I ,REQ)      - Order ID
  7677   "RTN","ORM XTR",395,0 )
  7678    ; CNTLLIS T (I,REQ)  - A list o f specific  control c odes (i.e.  "NW", "XO ", "NW,CA" ) we'll tr igger a me ssage for
  7679   "RTN","ORM XTR",396,0 )
  7680    ;
  7681   "RTN","ORM XTR",397,0 )
  7682    S ORIEN=$ G(ORIEN),C NTLLIST=$G (CNTLLIST)
  7683   "RTN","ORM XTR",398,0 )
  7684    I (ORIEN= "")!(CNTLL IST="") Q
  7685   "RTN","ORM XTR",399,0 )
  7686    ;
  7687   "RTN","ORM XTR",400,0 )
  7688    N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE
  7689   "RTN","ORM XTR",401,0 )
  7690    S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)=""
  7691   "RTN","ORM XTR",402,0 )
  7692    ;
  7693   "RTN","ORM XTR",403,0 )
  7694    S ORDABLE =$G(^OR(10 0,ORIEN,.1 ,1,0))
  7695   "RTN","ORM XTR",404,0 )
  7696    ;
  7697   "RTN","ORM XTR",405,0 )
  7698    F CURR=1: 1:$L(CNTLL IST,",") D   Q:(SUCCE SS=-1)
  7699   "RTN","ORM XTR",406,0 )
  7700    . S CNTLC ODE=$P(CNT LLIST,",", CURR)
  7701   "RTN","ORM XTR",407,0 )
  7702    . ;
  7703   "RTN","ORM XTR",408,0 )
  7704    . ; Preve nt certain  orders fr om trigger ing a mess age
  7705   "RTN","ORM XTR",409,0 )
  7706    . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE)  Q
  7707   "RTN","ORM XTR",410,0 )
  7708    . ;
  7709   "RTN","ORM XTR",411,0 )
  7710    . ; Build  the HLOAR R with the  necessary  informati on
  7711   "RTN","ORM XTR",412,0 )
  7712    . S SUCCE SS=$$FMTOR ^ORMXFMT(C NTLCODE,OR IEN,ORDABL E,.HLOARR, .ERROR)
  7713   "RTN","ORM XTR",413,0 )
  7714    . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1)  Q
  7715   "RTN","ORM XTR",414,0 )
  7716    . ;
  7717   "RTN","ORM XTR",415,0 )
  7718    . ; Trigg er the mes sage
  7719   "RTN","ORM XTR",416,0 )
  7720    . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR)
  7721   "RTN","ORM XTR",417,0 )
  7722    . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"ORDE R",$G(HLOA RR("ORDER  ID"))) Q
  7723   "RTN","ORM XTR",418,0 )
  7724    I SUCCESS =-1 Q
  7725   "RTN","ORM XTR",419,0 )
  7726    ;
  7727   "RTN","ORM XTR",420,0 )
  7728    ; Set the  status of  the RTC t o "Complet e"
  7729   "RTN","ORM XTR",421,0 )
  7730    S SUCCESS =$$COMPRTC (ORIEN)
  7731   "RTN","ORM XTR",422,0 )
  7732    I SUCCESS =-1 D
  7733   "RTN","ORM XTR",423,0 )
  7734    . S ERROR ="Could no t get lock  on RTC or der "_ORIE N_". Order  will need  to be man ually comp leted."
  7735   "RTN","ORM XTR",424,0 )
  7736    . D ERRLO G^SDMXERRO (206,ERROR ,1) Q
  7737   "RTN","ORM XTR",425,0 )
  7738    Q
  7739   "RTN","ORM XTR",426,0 )
  7740   GMRORDBL(G MRIEN,CNTL CODE) ; De termine th e orderabl e for a co nsult reco rd
  7741   "RTN","ORM XTR",427,0 )
  7742    ; GMRIEN( I,REQ)     - Consult  ID
  7743   "RTN","ORM XTR",428,0 )
  7744    ; CNTLCOD E (I,REQ)  - The cont rol code ( i.e. "NW",  "XO", "CA ") we're t riggering  a message  for
  7745   "RTN","ORM XTR",429,0 )
  7746    ;
  7747   "RTN","ORM XTR",430,0 )
  7748    ; Returns  the order able for a  consult r ecord. If  one cannot  be found,  return ""
  7749   "RTN","ORM XTR",431,0 )
  7750    ;
  7751   "RTN","ORM XTR",432,0 )
  7752    S GMRIEN= $G(GMRIEN) ,CNTLCODE= $G(CNTLCOD E)
  7753   "RTN","ORM XTR",433,0 )
  7754    I GMRIEN= "" Q ""
  7755   "RTN","ORM XTR",434,0 )
  7756    ;
  7757   "RTN","ORM XTR",435,0 )
  7758    N ACTNODE ,ACTION,OR IEN,FWDFRO M,ORDABLE, REQSERV
  7759   "RTN","ORM XTR",436,0 )
  7760    S (ACTNOD E,ACTION,O RIEN,FWDFR OM,ORDABLE ,REQSERV)= ""
  7761   "RTN","ORM XTR",437,0 )
  7762    ;
  7763   "RTN","ORM XTR",438,0 )
  7764    ; Retriev e the last  action ta ken
  7765   "RTN","ORM XTR",439,0 )
  7766    S ACTNODE =$P($G(^GM R(123,GMRI EN,40,0)), "^",3)
  7767   "RTN","ORM XTR",440,0 )
  7768    I ACTNODE '="" S ACT ION=$P($G( ^GMR(123,G MRIEN,40,A CTNODE,0)) ,"^",2)
  7769   "RTN","ORM XTR",441,0 )
  7770    E  S ACTI ON=""
  7771   "RTN","ORM XTR",442,0 )
  7772    ;
  7773   "RTN","ORM XTR",443,0 )
  7774    I (ACTION =22),(ACTN ODE>1) S A CTNODE=ACT NODE-1,ACT ION=$P($G( ^GMR(123,G MRIEN,40,A CTNODE,0)) ,"^",2) ;s pecial pro cessing fo r printed  forwards
  7775   "RTN","ORM XTR",444,0 )
  7776    ;
  7777   "RTN","ORM XTR",445,0 )
  7778    ; Grab th e order if  one exist s
  7779   "RTN","ORM XTR",446,0 )
  7780    S ORIEN=$ P($G(^GMR( 123,GMRIEN ,0)),"^",3 )
  7781   "RTN","ORM XTR",447,0 )
  7782    ;
  7783   "RTN","ORM XTR",448,0 )
  7784    I ($$INST RING^SDMXC ORE(ACTION ,"17,25"," ,")),(CNTL CODE="CA")  D
  7785   "RTN","ORM XTR",449,0 )
  7786    . S FWDFR OM=$P($G(^ GMR(123,GM RIEN,40,AC TNODE,0)), "^",6)
  7787   "RTN","ORM XTR",450,0 )
  7788    . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_FWDFROM _"^^99CON" )
  7789   "RTN","ORM XTR",451,0 )
  7790    E  I $$IS CONFWD(GMR IEN) D
  7791   "RTN","ORM XTR",452,0 )
  7792    . S REQSE RV=$P($G(^ GMR(123,GM RIEN,0))," ^",5)
  7793   "RTN","ORM XTR",453,0 )
  7794    . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_REQSERV _"^^99CON" )
  7795   "RTN","ORM XTR",454,0 )
  7796    E  I ORIE N'="" S OR DABLE=$G(^ OR(100,ORI EN,.1,1,0) )
  7797   "RTN","ORM XTR",455,0 )
  7798    Q ORDABLE
  7799   "RTN","ORM XTR",456,0 )
  7800   ISCONFWD(G MRIEN) ; D etermine i f a consul t record i s a forwar ded consul t
  7801   "RTN","ORM XTR",457,0 )
  7802    ; GMRIEN( I,REQ) - C onsult ID
  7803   "RTN","ORM XTR",458,0 )
  7804    ;
  7805   "RTN","ORM XTR",459,0 )
  7806    ; Returns  1 if the  consult is  a forward ed consult ; 0 otherw ise
  7807   "RTN","ORM XTR",460,0 )
  7808    ;
  7809   "RTN","ORM XTR",461,0 )
  7810    S GMRIEN= $G(GMRIEN)
  7811   "RTN","ORM XTR",462,0 )
  7812    I GMRIEN= "" Q 0
  7813   "RTN","ORM XTR",463,0 )
  7814    Q $P($G(^ GMR(123,GM RIEN,12)), "^",5)="F"
  7815   "RTN","ORM XTR",464,0 )
  7816   FILTEROR(O RDABLE,ORI EN,CNTLCOD E) ; Filte rs orders  from trigg ering mess ages based  on the ty pe of the  order and  whether or  not the o rder is sc hedulable.
  7817   "RTN","ORM XTR",465,0 )
  7818    ; ORDABLE (I,OPT)    - Orderabl e ID
  7819   "RTN","ORM XTR",466,0 )
  7820    ; ORIEN(I ,OPT)      - Order ID
  7821   "RTN","ORM XTR",467,0 )
  7822    ; CNTLLIS T (I,OPT)  - A list o f specific  control c odes (i.e.  "NW", "XO ", "NW,CA" ) we'll tr igger a me ssage for
  7823   "RTN","ORM XTR",468,0 )
  7824    ;
  7825   "RTN","ORM XTR",469,0 )
  7826    ; Returns  1 if the  order shou ld be filt ered; 0 ot herwise
  7827   "RTN","ORM XTR",470,0 )
  7828    ;
  7829   "RTN","ORM XTR",471,0 )
  7830    N ISSCHBL E,STATUS
  7831   "RTN","ORM XTR",472,0 )
  7832    S ORDABLE =$G(ORDABL E),ORIEN=$ G(ORIEN),C NTLCODE=$G (CNTLCODE)
  7833   "RTN","ORM XTR",473,0 )
  7834    ;
  7835   "RTN","ORM XTR",474,0 )
  7836    I $$ISRTC ORD(ORIEN)  Q 0 ; RTC s should n ot be filt ered.
  7837   "RTN","ORM XTR",475,0 )
  7838    ;
  7839   "RTN","ORM XTR",476,0 )
  7840    ; If noth ing was pa ssed in fo r the orde rable, ret rieve it f rom the da tabase.
  7841   "RTN","ORM XTR",477,0 )
  7842    ; We will  want to q uit out if  there is  no orderab le.
  7843   "RTN","ORM XTR",478,0 )
  7844    I (ORDABL E=""),(ORI EN'="") S  ORDABLE=$G (^OR(100,O RIEN,.1,1, 0))
  7845   "RTN","ORM XTR",479,0 )
  7846    I ORDABLE ="" Q 1
  7847   "RTN","ORM XTR",480,0 )
  7848    ;
  7849   "RTN","ORM XTR",481,0 )
  7850    ; Get the  schedulab le flag. F ilter the  order if i t should n ot be sche duled in M ASS
  7851   "RTN","ORM XTR",482,0 )
  7852    I ORDABLE '="" S ISS CHBLE=$P($ G(^ORD(101 .43,$G(ORD ABLE),0)), "^",9)
  7853   "RTN","ORM XTR",483,0 )
  7854    E  S ISSC HBLE=""
  7855   "RTN","ORM XTR",484,0 )
  7856    I ISSCHBL E="" S ISS CHBLE=$$GE T^XPAR("SY S","ORMX S CH DEFAULT  FLAG")
  7857   "RTN","ORM XTR",485,0 )
  7858    I ISSCHBL E=0 Q 1
  7859   "RTN","ORM XTR",486,0 )
  7860    ;
  7861   "RTN","ORM XTR",487,0 )
  7862    I ORIEN'= "" S STATU S=$P($G(^O R(100,ORIE N,3)),"^", 3)
  7863   "RTN","ORM XTR",488,0 )
  7864    E  S STAT US=""
  7865   "RTN","ORM XTR",489,0 )
  7866    I $$INSTR ING^SDMXCO RE(STATUS, "11",",")  Q 1
  7867   "RTN","ORM XTR",490,0 )
  7868    ;
  7869   "RTN","ORM XTR",491,0 )
  7870    I CNTLCOD E="XO",$$I NSTRING^SD MXCORE(STA TUS,"1,13" ,",") Q 1
  7871   "RTN","ORM XTR",492,0 )
  7872    Q 0
  7873   "RTN","ORM XTR",493,0 )
  7874   ISRTCORD(O RIEN) ; De termine if  the order  is an RTC  order by  checking f or the Dis play Group  entry "CL INIC SCHED ULING"
  7875   "RTN","ORM XTR",494,0 )
  7876    ; ORIEN -  Order ID
  7877   "RTN","ORM XTR",495,0 )
  7878    ;
  7879   "RTN","ORM XTR",496,0 )
  7880    ; Returns  1 if the  order is a n RTC orde r; 0 other wise
  7881   "RTN","ORM XTR",497,0 )
  7882    ;
  7883   "RTN","ORM XTR",498,0 )
  7884    N DISPGRP ,RTCDISPG
  7885   "RTN","ORM XTR",499,0 )
  7886    ;
  7887   "RTN","ORM XTR",500,0 )
  7888    S ORIEN=$ G(ORIEN)
  7889   "RTN","ORM XTR",501,0 )
  7890    I ORIEN=" " Q 0
  7891   "RTN","ORM XTR",502,0 )
  7892    ;
  7893   "RTN","ORM XTR",503,0 )
  7894    S DISPGRP =$P($G(^OR (100,ORIEN ,0)),"^",1 1)
  7895   "RTN","ORM XTR",504,0 )
  7896    S RTCDISP G=$O(^ORD( 100.98,"B" ,"CLINIC S CHEDULING" ,""))
  7897   "RTN","ORM XTR",505,0 )
  7898    Q DISPGRP =RTCDISPG
  7899   "RTN","ORM XTR",506,0 )
  7900   COMPRTC(OR IEN) ; Set  the statu s of an RT C order to  "Complete "
  7901   "RTN","ORM XTR",507,0 )
  7902    ; ORIEN -  Order ID
  7903   "RTN","ORM XTR",508,0 )
  7904    ;
  7905   "RTN","ORM XTR",509,0 )
  7906    ; Returns  1 if the  RTC order  was comple ted; -1 ot herwise
  7907   "RTN","ORM XTR",510,0 )
  7908    ;
  7909   "RTN","ORM XTR",511,0 )
  7910    S ORIEN=$ G(ORIEN)
  7911   "RTN","ORM XTR",512,0 )
  7912    I ORIEN=" " Q -1
  7913   "RTN","ORM XTR",513,0 )
  7914    ;
  7915   "RTN","ORM XTR",514,0 )
  7916    I '$$LOCK ORD^SDMXLK RQ(ORIEN)  Q -1
  7917   "RTN","ORM XTR",515,0 )
  7918    D STATUS^ ORCSAVE2(O RIEN,2)
  7919   "RTN","ORM XTR",516,0 )
  7920    I '$$ULOC KORD^SDMXL KRQ(ORIEN)  Q -1
  7921   "RTN","ORM XTR",517,0 )
  7922    Q 1
  7923   "RTN","ORM XTR",518,0 )
  7924    ;;#eor#
  7925   "RTN","ORM XUTIL")
  7926   0^4^B11026 599
  7927   "RTN","ORM XUTIL",1,0 )
  7928   ORMXUTIL ; MASS/BHC -  ORDER UTI LITIES;11/ 28/17
  7929   "RTN","ORM XUTIL",2,0 )
  7930    ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;NOVEM BER 28,201 7;Build 76
  7931   "RTN","ORM XUTIL",3,0 )
  7932    ;;Per VA  DIRECTIVE  6402, this  routine s hould not  be modifie d.
  7933   "RTN","ORM XUTIL",4,0 )
  7934    ;
  7935   "RTN","ORM XUTIL",5,0 )
  7936   SFEN ; Mai n entry po int for OR MX Schedul able Actio n Utility
  7937   "RTN","ORM XUTIL",6,0 )
  7938    D EN^VALM ("ORMX SCH EDULABLE A CTION")
  7939   "RTN","ORM XUTIL",7,0 )
  7940    Q
  7941   "RTN","ORM XUTIL",8,0 )
  7942   SFHDR ; He ader code  for the OR MX Schedul able Actio n Utility
  7943   "RTN","ORM XUTIL",9,0 )
  7944    S VALMHDR (1)="ORMX  Schedulabl e Action U tility"
  7945   "RTN","ORM XUTIL",10, 0)
  7946    Q
  7947   "RTN","ORM XUTIL",11, 0)
  7948    ;
  7949   "RTN","ORM XUTIL",12, 0)
  7950   SFINIT ; S et initial  variables  and list  array for  the ORMX S chedulable  Action Ut ility
  7951   "RTN","ORM XUTIL",13, 0)
  7952    ;
  7953   "RTN","ORM XUTIL",14, 0)
  7954    ; Variabl es assumed  to be set  from call ing List M anager App lication:
  7955   "RTN","ORM XUTIL",15, 0)
  7956    ;   DISPG RP - Inter nal Code f or Display  Group (#1 00.98). If  blank, wi ll display  all
  7957   "RTN","ORM XUTIL",16, 0)
  7958    N LINE,OR DABLE,ORDN AME,LINEVA R,SHRTNAME ,ACTION,NA ME,ORD0
  7959   "RTN","ORM XUTIL",17, 0)
  7960    S (LINE,O RDABLE,ORD NAME,LINEV AR,SHRTNAM E,ACTION,N AME,ORD0)= ""
  7961   "RTN","ORM XUTIL",18, 0)
  7962    S DISPGRP =$G(DISPGR P)
  7963   "RTN","ORM XUTIL",19, 0)
  7964    S LINE=0
  7965   "RTN","ORM XUTIL",20, 0)
  7966    I DISPGRP '="" S SHR TNAME=$P($ G(^ORD(100 .98,DISPGR P,0)),"^", 3)
  7967   "RTN","ORM XUTIL",21, 0)
  7968    W !,SHRTN AME
  7969   "RTN","ORM XUTIL",22, 0)
  7970    I SHRTNAM E="" D
  7971   "RTN","ORM XUTIL",23, 0)
  7972    . S ORDAB LE=0
  7973   "RTN","ORM XUTIL",24, 0)
  7974    . F  S OR DABLE=$O(^ ORD(101.43 ,ORDABLE))  Q:'+ORDAB LE  D
  7975   "RTN","ORM XUTIL",25, 0)
  7976    . . S LIN E=LINE+1
  7977   "RTN","ORM XUTIL",26, 0)
  7978    . . S ORD 0=$G(^ORD( 101.43,ORD ABLE,0)) Q :ORD0=""
  7979   "RTN","ORM XUTIL",27, 0)
  7980    . . S NAM E=$P(ORD0, "^",1),ACT ION=$P(ORD 0,"^",9)
  7981   "RTN","ORM XUTIL",28, 0)
  7982    . . S LIN EVAR=$$SET FLD^VALM1( LINE_".",L INEVAR,"LI NENO")
  7983   "RTN","ORM XUTIL",29, 0)
  7984    . . S LIN EVAR=$$SET FLD^VALM1( ORDABLE,LI NEVAR,"ORD ERABLE")
  7985   "RTN","ORM XUTIL",30, 0)
  7986    . . S LIN EVAR=$$SET FLD^VALM1( NAME,LINEV AR,"NAME")
  7987   "RTN","ORM XUTIL",31, 0)
  7988    . . S LIN EVAR=$$SET FLD^VALM1( ACTION,LIN EVAR,"ACTI ON")
  7989   "RTN","ORM XUTIL",32, 0)
  7990    . . D SET ^VALM10(LI NE,LINEVAR ,ORDABLE)
  7991   "RTN","ORM XUTIL",33, 0)
  7992    E  D
  7993   "RTN","ORM XUTIL",34, 0)
  7994    . F  S OR DNAME=$O(^ ORD(101.43 ,"S."_SHRT NAME,ORDNA ME)) Q:ORD NAME=""  D
  7995   "RTN","ORM XUTIL",35, 0)
  7996    . . S LIN E=LINE+1
  7997   "RTN","ORM XUTIL",36, 0)
  7998    . . S ORD ABLE=$O(^O RD(101.43, "S."_SHRTN AME,ORDNAM E,""))
  7999   "RTN","ORM XUTIL",37, 0)
  8000    . . S ORD 0=$G(^ORD( 101.43,ORD ABLE,0)) Q :ORD0=""
  8001   "RTN","ORM XUTIL",38, 0)
  8002    . . S NAM E=$P(ORD0, "^",1),ACT ION=$P(ORD 0,"^",9)
  8003   "RTN","ORM XUTIL",39, 0)
  8004    . . S LIN EVAR=$$SET FLD^VALM1( LINE_".",L INEVAR,"LI NENO")
  8005   "RTN","ORM XUTIL",40, 0)
  8006    . . S LIN EVAR=$$SET FLD^VALM1( ORDABLE,LI NEVAR,"ORD ERABLE")
  8007   "RTN","ORM XUTIL",41, 0)
  8008    . . S LIN EVAR=$$SET FLD^VALM1( NAME,LINEV AR,"NAME")
  8009   "RTN","ORM XUTIL",42, 0)
  8010    . . S LIN EVAR=$$SET FLD^VALM1( ACTION,LIN EVAR,"ACTI ON")
  8011   "RTN","ORM XUTIL",43, 0)
  8012    . . D SET ^VALM10(LI NE,LINEVAR ,ORDABLE)
  8013   "RTN","ORM XUTIL",44, 0)
  8014    S VALMCNT =LINE
  8015   "RTN","ORM XUTIL",45, 0)
  8016    Q
  8017   "RTN","ORM XUTIL",46, 0)
  8018    ;
  8019   "RTN","ORM XUTIL",47, 0)
  8020   SFHELP ; H elp code f or the ORM X Schedula ble Action  Utility
  8021   "RTN","ORM XUTIL",48, 0)
  8022    N X
  8023   "RTN","ORM XUTIL",49, 0)
  8024    S X="?" D  DISP^XQOR M1 W !!
  8025   "RTN","ORM XUTIL",50, 0)
  8026    Q
  8027   "RTN","ORM XUTIL",51, 0)
  8028    ;
  8029   "RTN","ORM XUTIL",52, 0)
  8030   SFEXIT ; E xit code f or the ORM X Schedula ble Action  Utility
  8031   "RTN","ORM XUTIL",53, 0)
  8032    K @VALMAR ,DISPGRP
  8033   "RTN","ORM XUTIL",54, 0)
  8034    Q
  8035   "RTN","ORM XUTIL",55, 0)
  8036    ;
  8037   "RTN","ORM XUTIL",56, 0)
  8038   SFEXPND ;  Expand cod e for the  ORMX Sched ulable Act ion Utilit y
  8039   "RTN","ORM XUTIL",57, 0)
  8040    Q
  8041   "RTN","ORM XUTIL",58, 0)
  8042    ;
  8043   "RTN","ORM XUTIL",59, 0)
  8044   SFRUN ; Ru n code for  the ORMX  Schedulabl e Action U tility
  8045   "RTN","ORM XUTIL",60, 0)
  8046    N ORDABLE ,LINES,LIN E,ITER,NOD E,Y,DIR
  8047   "RTN","ORM XUTIL",61, 0)
  8048    S (ORDABL E,LINES,LI NE,ITER,NO DE,Y,DIR)= ""
  8049   "RTN","ORM XUTIL",62, 0)
  8050    ; Get Ord erables to  set actio n
  8051   "RTN","ORM XUTIL",63, 0)
  8052    K DIR
  8053   "RTN","ORM XUTIL",64, 0)
  8054    S DIR(0)= "L^1:"_VAL MCNT
  8055   "RTN","ORM XUTIL",65, 0)
  8056    D ^DIR
  8057   "RTN","ORM XUTIL",66, 0)
  8058    I Y="^" S  VALMBCK=" R" Q
  8059   "RTN","ORM XUTIL",67, 0)
  8060    S LINES=$ G(Y)
  8061   "RTN","ORM XUTIL",68, 0)
  8062    S NODE=""
  8063   "RTN","ORM XUTIL",69, 0)
  8064    F  S NODE =$O(Y(NODE )) Q:NODE= ""  F ITER =1:1:$L(Y( NODE),",")  D
  8065   "RTN","ORM XUTIL",70, 0)
  8066    . S LINE= $P(Y(NODE) ,",",ITER)  I LINE=""  Q
  8067   "RTN","ORM XUTIL",71, 0)
  8068    . S ORDAB LE(LINE)=$ O(@VALMAR@ ("IDX",LIN E,""))
  8069   "RTN","ORM XUTIL",72, 0)
  8070    ;
  8071   "RTN","ORM XUTIL",73, 0)
  8072    ; Get Act ion
  8073   "RTN","ORM XUTIL",74, 0)
  8074    K DIR
  8075   "RTN","ORM XUTIL",75, 0)
  8076    S DIR(0)= "SB^0:DO N OT SCHEDUL E;1:SCHEDU LE ONLY;2: SCHEDULE A ND COMPLET E"
  8077   "RTN","ORM XUTIL",76, 0)
  8078    D ^DIR
  8079   "RTN","ORM XUTIL",77, 0)
  8080    S Y=$G(Y)
  8081   "RTN","ORM XUTIL",78, 0)
  8082    I Y="^" S  VALMBCK=" R" Q
  8083   "RTN","ORM XUTIL",79, 0)
  8084    ;
  8085   "RTN","ORM XUTIL",80, 0)
  8086    ; Set Act ion
  8087   "RTN","ORM XUTIL",81, 0)
  8088    I $$INSTR ING^SDMXCO RE(Y,"0,1, 2",",") D  SFSET(.ORD ABLE,Y)
  8089   "RTN","ORM XUTIL",82, 0)
  8090    ;
  8091   "RTN","ORM XUTIL",83, 0)
  8092    S VALMBCK ="R"
  8093   "RTN","ORM XUTIL",84, 0)
  8094    Q
  8095   "RTN","ORM XUTIL",85, 0)
  8096    ;
  8097   "RTN","ORM XUTIL",86, 0)
  8098   SFSET(ORDA BLE,SFVAL)  ; Set 0;9  of ^ORD(1 01.43,ORDA BLE to SFV AL
  8099   "RTN","ORM XUTIL",87, 0)
  8100    ;Update f ile entry
  8101   "RTN","ORM XUTIL",88, 0)
  8102    N ORDARR, LINE
  8103   "RTN","ORM XUTIL",89, 0)
  8104    S (ORDARR ,LINE)=""
  8105   "RTN","ORM XUTIL",90, 0)
  8106    S SFVAL=$ G(SFVAL)
  8107   "RTN","ORM XUTIL",91, 0)
  8108    F  S LINE =$O(ORDABL E(LINE)) Q :'+LINE  D
  8109   "RTN","ORM XUTIL",92, 0)
  8110    . I ORDAB LE(LINE)=" " Q
  8111   "RTN","ORM XUTIL",93, 0)
  8112    . S ORDAR R(101.43,O RDABLE(LIN E)_",",11) =SFVAL
  8113   "RTN","ORM XUTIL",94, 0)
  8114    . D FILE^ DIE("","OR DARR")
  8115   "RTN","ORM XUTIL",95, 0)
  8116    . ;repain t list man ager lines
  8117   "RTN","ORM XUTIL",96, 0)
  8118    . D FLDTE XT^VALM10( LINE,"ACTI ON",SFVAL)
  8119   "RTN","ORM XUTIL",97, 0)
  8120    . D WRITE ^VALM10(LI NE)
  8121   "RTN","ORM XUTIL",98, 0)
  8122    . K ORDAR R(101.43,O RDABLE(LIN E)_",",11)
  8123   "RTN","ORM XUTIL",99, 0)
  8124    Q
  8125   "RTN","ORM XUTIL",100 ,0)
  8126    ;
  8127   "RTN","ORM XUTIL",101 ,0)
  8128   SFCHDGRP ;  prompts u ser for a  orderable  item displ ay group a nd
  8129   "RTN","ORM XUTIL",102 ,0)
  8130    ; redraws  the list  area with  only order able items  in that
  8131   "RTN","ORM XUTIL",103 ,0)
  8132    ; display  group.
  8133   "RTN","ORM XUTIL",104 ,0)
  8134    N Y
  8135   "RTN","ORM XUTIL",105 ,0)
  8136    S Y=""
  8137   "RTN","ORM XUTIL",106 ,0)
  8138    S DIR(0)= "P^100.98"
  8139   "RTN","ORM XUTIL",107 ,0)
  8140    D ^DIR
  8141   "RTN","ORM XUTIL",108 ,0)
  8142    S DISPGRP =$P(Y,"^", 1)
  8143   "RTN","ORM XUTIL",109 ,0)
  8144    D CLEAN^V ALM10
  8145   "RTN","ORM XUTIL",110 ,0)
  8146    D SFINIT
  8147   "RTN","ORM XUTIL",111 ,0)
  8148    D RE^VALM 4
  8149   "RTN","ORM XUTIL",112 ,0)
  8150    Q
  8151   "RTN","ORM XUTIL",113 ,0)
  8152    ;
  8153   "VER")
  8154   8.0^22.2
  8155   "^DD",2,2, 1010.1511, 0)
  8156   APPOINTMEN T REQUEST  DATE^D^^10 10.15;11^S  %DT="EX"  D ^%DT S X =Y K:Y<1 X
  8157   "^DD",2,2, 1010.1511, 1,0)
  8158   ^.1^^-1
  8159   "^DD",2,2, 1010.1511, 1,1,0)
  8160   2^AENR1010 1511^MUMPS
  8161   "^DD",2,2, 1010.1511, 1,1,1)
  8162   D EVENT^IV MPLOG(DA)
  8163   "^DD",2,2, 1010.1511, 1,1,2)
  8164   D EVENT^IV MPLOG(DA)
  8165   "^DD",2,2, 1010.1511, 1,1,3)
  8166    DO NOT DE LETE
  8167   "^DD",2,2, 1010.1511, 1,1,"%D",0 )
  8168   ^.101^2^2^ 3171108^^^ ^
  8169   "^DD",2,2, 1010.1511, 1,1,"%D",1 ,0)
  8170   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  8171   "^DD",2,2, 1010.1511, 1,1,"%D",2 ,0)
  8172   enrollment .
  8173   "^DD",2,2, 1010.1511, 1,1,"DT")
  8174   3050913
  8175   "^DD",2,2, 1010.1511, 1,2,0)
  8176   2^AEACL
  8177   "^DD",2,2, 1010.1511, 1,2,1)
  8178   S ^DPT("AE ACL",$E(X, 1,30),DA)= ""
  8179   "^DD",2,2, 1010.1511, 1,2,2)
  8180   K ^DPT("AE ACL",$E(X, 1,30),DA)
  8181   "^DD",2,2, 1010.1511, 1,2,"%D",0 )
  8182   ^.101^1^1^ 3171108^^
  8183   "^DD",2,2, 1010.1511, 1,2,"%D",1 ,0)
  8184   This cross  reference  is used f or Enrolle e Appt. Ca ll List
  8185   "^DD",2,2, 1010.1511, 1,2,"DT")
  8186   3080214
  8187   "^DD",2,2, 1010.1511, 3)
  8188   Enter date  VA was no tified the  enrolling  patient i s requesti ng an appo intment.
  8189   "^DD",2,2, 1010.1511, 21,0)
  8190   ^.001^2^2^ 3080214^^
  8191   "^DD",2,2, 1010.1511, 21,1,0)
  8192   This field  contains  the date t he VA enro lling a pa tient for  the first  time
  8193   "^DD",2,2, 1010.1511, 21,2,0)
  8194   was notifi ed that th e patient  requests a n appointm ent with a  provider.
  8195   "^DD",2,2, 1010.1511, "DT")
  8196   3171026
  8197   "^DD",2,2, 1010.161,0 )
  8198   APPOINTMEN T REQUEST  STATUS^S^C :CANCELLED ;E:EWL;F:F ILLED;I:IN  PROCESS/V ETERAN CON TACTED;^10 10.16;1^Q
  8199   "^DD",2,2, 1010.161,1 ,0)
  8200   ^.1
  8201   "^DD",2,2, 1010.161,1 ,1,0)
  8202   ^^TRIGGER^ 2^1010.162
  8203   "^DD",2,2, 1010.161,1 ,1,1)
  8204   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S  X=$P(Y(1), U,2),X=X S  DIU=X K Y  S X=DIV N  %I,%H,% D  NOW^%DTC  S X=% X ^D D(2,1010.1 61,1,1,1.4 )
  8205   "^DD",2,2, 1010.161,1 ,1,1.4)
  8206   S DIH=$G(^ DPT(DIV(0) ,1010.16)) ,DIV=X S $ P(^(1010.1 6),U,2)=DI V,DIH=2,DI G=1010.162  D ^DICR
  8207   "^DD",2,2, 1010.161,1 ,1,2)
  8208   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S  X=$P(Y(1), U,2),X=X S  DIU=X K Y  S X="" S  DIH=$G(^DP T(DIV(0),1 010.16)),D IV=X S $P( ^(1010.16) ,U,2)=DIV, DIH=2,DIG= 1010.162 D  ^DICR
  8209   "^DD",2,2, 1010.161,1 ,1,"CREATE  VALUE")
  8210   NOW
  8211   "^DD",2,2, 1010.161,1 ,1,"DELETE  VALUE")
  8212   @
  8213   "^DD",2,2, 1010.161,1 ,1,"FIELD" )
  8214   DATE STATU S LA
  8215   "^DD",2,2, 1010.161,1 ,2,0)
  8216   2^AY^MUMPS
  8217   "^DD",2,2, 1010.161,1 ,2,1)
  8218   Q
  8219   "^DD",2,2, 1010.161,1 ,2,2)
  8220   D TRNLMSG^ ORMXTR("CA ,NW")
  8221   "^DD",2,2, 1010.161,1 ,2,"DT")
  8222   3180511
  8223   "^DD",2,2, 1010.161,3 )
  8224   Enter stat us of appo intment re quest.
  8225   "^DD",2,2, 1010.161,2 1,0)
  8226   ^^3^3^3080 317^
  8227   "^DD",2,2, 1010.161,2 1,1,0)
  8228   This field  is the st atus of th e veteran' s new appo intment re quested.
  8229   "^DD",2,2, 1010.161,2 1,2,0)
  8230   This field  is entere d by the u ser throug h the new  enrollee a ppointment
  8231   "^DD",2,2, 1010.161,2 1,3,0)
  8232   request op tion.
  8233   "^DD",2,2, 1010.161," DT")
  8234   3180511
  8235   "^DD",27.1 1,27.11,.0 4,0)
  8236   ENROLLMENT  STATUS^RP 27.15'IX^D GEN(27.15, ^0;4^Q
  8237   "^DD",27.1 1,27.11,.0 4,1,0)
  8238   ^.1
  8239   "^DD",27.1 1,27.11,.0 4,1,1,0)
  8240   27.11^AENR C^MUMPS
  8241   "^DD",27.1 1,27.11,.0 4,1,1,1)
  8242   D SET2^DGE NDD(DA,X)
  8243   "^DD",27.1 1,27.11,.0 4,1,1,2)
  8244   D KILL2^DG ENDD(DA,X)
  8245   "^DD",27.1 1,27.11,.0 4,1,1,3)
  8246   DO NOT DEL ETE
  8247   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,0)
  8248   ^.101^7^7^ 3180202^^^ ^
  8249   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,1,0)
  8250   This index  sorts the  patients  by their c urrent enr ollment st atus.
  8251   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,2,0)
  8252   The CURREN T ENROLLME NT field o f the PATI ENT file a lso trigge rs this
  8253   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,3,0)
  8254   cross-refe rence.
  8255   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,4,0)
  8256  
  8257   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,5,0)
  8258   The format  of the in dex is:
  8259   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,6,0)
  8260  
  8261   "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,7,0)
  8262   ^DPT("AENR C",<curren t enrollme nt status> ,<DFN>)=""
  8263   "^DD",27.1 1,27.11,.0 4,1,1,"DT" )
  8264   2970619
  8265   "^DD",27.1 1,27.11,.0 4,1,2,0)
  8266   27.11^AC^M UMPS
  8267   "^DD",27.1 1,27.11,.0 4,1,2,1)
  8268   D SETREM^D GENDD(DA,X )
  8269   "^DD",27.1 1,27.11,.0 4,1,2,2)
  8270   D SETREM^D GENDD(DA,X )
  8271   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,0)
  8272   ^.101^6^6^ 3030226^^
  8273   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,1,0)
  8274   This cross -reference  calls an  API that w ill update  the Remar ks field # .091
  8275   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,2,0)
  8276   of the Pat ient file  #2 dependi ng on the  value of t he enrollm ent status .
  8277   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,3,0)
  8278   If the enr ollment st atus conta ins the wo rd REJECTE D, then th e Remarks
  8279   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,4,0)
  8280   field will  be update d with the  message * *REJECTED* *.  If the  enrollmen t
  8281   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,5,0)
  8282   status is  not a Reje cted statu s then the  message * *REJECTED* * will be
  8283   "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,6,0)
  8284   removed fr om the Rem arks field .
  8285   "^DD",27.1 1,27.11,.0 4,1,2,"DT" )
  8286   3030225
  8287   "^DD",27.1 1,27.11,.0 4,1,3,0)
  8288   27.11^AENR 04^MUMPS
  8289   "^DD",27.1 1,27.11,.0 4,1,3,1)
  8290   D E2711^DG RTRIG(DA)
  8291   "^DD",27.1 1,27.11,.0 4,1,3,2)
  8292   D E2711^DG RTRIG(DA)
  8293   "^DD",27.1 1,27.11,.0 4,1,3,3)
  8294    DO NOT DE LETE
  8295   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,0)
  8296   ^.101^2^2^ 3050913^^^ ^
  8297   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,1,0)
  8298   This cross -reference  is used t o notify H EC of chan ges that m ay affect
  8299   "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,2,0)
  8300   enrollment .
  8301   "^DD",27.1 1,27.11,.0 4,1,3,"DT" )
  8302   3050913
  8303   "^DD",27.1 1,27.11,.0 4,3)
  8304   Enter the  status of  the applic ation for  enrollment .
  8305   "^DD",27.1 1,27.11,.0 4,21,0)
  8306   ^^1^1^2990 507^^^^
  8307   "^DD",27.1 1,27.11,.0 4,21,1,0)
  8308   The status  of an app lication f or enrollm ent.
  8309   "^DD",27.1 1,27.11,.0 4,"DT")
  8310   3180202
  8311   "^DD",101. 43,101.43, 11,0)
  8312   MASS SCHED ULING ACTI ON^S^0:DO  NOT SCHEDU LE;1:SCHED ULE ONLY;2 :SCHEDULE  AND COMPLE TE;^0;9^Q
  8313   "^DD",101. 43,101.43, 11,3)
  8314   Should ord ers for th is item be  scheduled  in MASS a nd should  scheduling  the order  complete  it.
  8315   "^DD",101. 43,101.43, 11,21,0)
  8316   ^.001^3^3^ 3171116^^
  8317   "^DD",101. 43,101.43, 11,21,1,0)
  8318   This field  determine s if order s for this  item are  scheduled  in 
  8319   "^DD",101. 43,101.43, 11,21,2,0)
  8320   MASS and i f these or ders shoul d be marke d as compl ete upon 
  8321   "^DD",101. 43,101.43, 11,21,3,0)
  8322   scheduling .
  8323   "^DD",101. 43,101.43, 11,"DT")
  8324   3171116
  8325   "^DD",396. 4,396.4,.0 2,0)
  8326   2507 REQUE ST^RP396.3 'I^DVB(396 .3,^0;2^Q
  8327   "^DD",396. 4,396.4,.0 2,1,0)
  8328   ^.1^^-1
  8329   "^DD",396. 4,396.4,.0 2,1,1,0)
  8330   396.4^C
  8331   "^DD",396. 4,396.4,.0 2,1,1,1)
  8332   S ^DVB(396 .4,"C",$E( X,1,30),DA )=""
  8333   "^DD",396. 4,396.4,.0 2,1,1,2)
  8334   K ^DVB(396 .4,"C",$E( X,1,30),DA )
  8335   "^DD",396. 4,396.4,.0 2,1,1,"%D" ,0)
  8336   ^.101^1^1^ 3170908^^
  8337   "^DD",396. 4,396.4,.0 2,1,1,"%D" ,1,0)
  8338   This is a  standard F M cross re ference fo r this fie ld.
  8339   "^DD",396. 4,396.4,.0 2,1,1,"DT" )
  8340   2930218
  8341   "^DD",396. 4,396.4,.0 2,1,2,0)
  8342   396.4^APS^ MUMPS
  8343   "^DD",396. 4,396.4,.0 2,1,2,1)
  8344   N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA)=" "
  8345   "^DD",396. 4,396.4,.0 2,1,2,2)
  8346   N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA)
  8347   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,0)
  8348   ^^3^3^2930 510^^
  8349   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,1,0)
  8350   This cross  reference  contains  the patien t's intern al file nu mber, the  exam
  8351   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,2,0)
  8352   IFN and th e exam sta tus.  It i s set on t wo other f ields .03  and .04.  
  8353   "^DD",396. 4,396.4,.0 2,1,2,"%D" ,3,0)
  8354   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  8355   "^DD",396. 4,396.4,.0 2,1,2,"DT" )
  8356   2930422
  8357   "^DD",396. 4,396.4,.0 2,1,3,0)
  8358   396.4^APE^ MUMPS
  8359   "^DD",396. 4,396.4,.0 2,1,3,1)
  8360   N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" S  ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA)=""
  8361   "^DD",396. 4,396.4,.0 2,1,3,2)
  8362   N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" K  ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA)
  8363   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,0)
  8364   ^^3^3^2930 510^
  8365   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,1,0)
  8366   This cross  reference  contains  the patien t's IFN, t he exam na me, and th e
  8367   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,2,0)
  8368   request da te.  It is  set on on e other fi eld .03.   Recross re ferencing  either
  8369   "^DD",396. 4,396.4,.0 2,1,3,"%D" ,3,0)
  8370   one of the se fields  would be a cceptable.
  8371   "^DD",396. 4,396.4,.0 2,1,3,"DT" )
  8372   2930422
  8373   "^DD",396. 4,396.4,.0 2,1,4,0)
  8374   396.4^AF^M UMPS
  8375   "^DD",396. 4,396.4,.0 2,1,4,1)
  8376   N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]""  S ^DVB(396 .4,"ARQ"_X ,A,DA)=""
  8377   "^DD",396. 4,396.4,.0 2,1,4,2)
  8378   N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]""  K ^DVB(396 .4,"ARQ"_X ,A,DA)
  8379   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,0)
  8380   ^.101^2^2^ 3171108^^^ ^
  8381   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,1,0)
  8382   This cross  reference  is used t o quickly  find the c orrect exa ms that ar e
  8383   "^DD",396. 4,396.4,.0 2,1,4,"%D" ,2,0)
  8384   related to  a specifi c request.
  8385   "^DD",396. 4,396.4,.0 2,1,4,"DT" )
  8386   2930902
  8387   "^DD",396. 4,396.4,.0 2,3)
  8388   Enter the  request th at this ex am belongs  to.  You  will selec t the vete ran then w hich reque st.
  8389   "^DD",396. 4,396.4,.0 2,21,0)
  8390   ^^2^2^2940 721^^
  8391   "^DD",396. 4,396.4,.0 2,21,1,0)
  8392   This field  connects  the given  record wit h the 2507  request r ecord that
  8393   "^DD",396. 4,396.4,.0 2,21,2,0)
  8394   the exam i s on.
  8395   "^DD",396. 4,396.4,.0 2,23,0)
  8396   ^^1^1^2940 721^^
  8397   "^DD",396. 4,396.4,.0 2,23,1,0)
  8398   A pointer  to the 250 7 Request  file (396. 3).
  8399   "^DD",396. 4,396.4,.0 2,"DT")
  8400   3171003
  8401   "^DD",396. 4,396.4,.0 3,0)
  8402   EXAM TYPE^ RP396.6'I^ DVB(396.6, ^0;3^Q
  8403   "^DD",396. 4,396.4,.0 3,1,0)
  8404   ^.1
  8405   "^DD",396. 4,396.4,.0 3,1,1,0)
  8406   396.4^ARQ^ MUMPS
  8407   "^DD",396. 4,396.4,.0 3,1,1,1)
  8408   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA)=""
  8409   "^DD",396. 4,396.4,.0 3,1,1,2)
  8410   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  K ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA)
  8411   "^DD",396. 4,396.4,.0 3,1,1,"%D" ,0)
  8412   ^^1^1^2930 902^
  8413   "^DD",396. 4,396.4,.0 3,1,1,"%D" ,1,0)
  8414   This cross  reference  is to aid  in the lo ok up on t he 2507 ex am file 39 6.4
  8415   "^DD",396. 4,396.4,.0 3,1,1,"DT" )
  8416   2930902
  8417   "^DD",396. 4,396.4,.0 3,1,2,0)
  8418   396.4^AC^M UMPS
  8419   "^DD",396. 4,396.4,.0 3,1,2,1)
  8420   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA)=" "
  8421   "^DD",396. 4,396.4,.0 3,1,2,2)
  8422   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA)
  8423   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,0)
  8424   ^^3^3^2930 510^^^^
  8425   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,1,0)
  8426   This cross  reference  contains  the patien t's intern al file nu mber, the  exam 
  8427   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,2,0)
  8428   IFN and th e exam sta tus.  It i s set on t wo other f ields .02  and .04.    
  8429   "^DD",396. 4,396.4,.0 3,1,2,"%D" ,3,0)
  8430   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  8431   "^DD",396. 4,396.4,.0 3,1,2,"DT" )
  8432   2930422
  8433   "^DD",396. 4,396.4,.0 3,1,3,0)
  8434   396.4^AE^M UMPS
  8435   "^DD",396. 4,396.4,.0 3,1,3,1)
  8436   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S A=^DVB(3 96.3,A,0)  I $P(A,U,1 )]"",$P(A, U,2)]"" S  ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA)=""
  8437   "^DD",396. 4,396.4,.0 3,1,3,2)
  8438   N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]""  S A=^DVB(3 96.3,A,0)  I $P(A,U,1 )]"",$P(A, U,2)]"" K  ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA)
  8439   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,0)
  8440   ^^3^3^2930 510^
  8441   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,1,0)
  8442   This cross  reference  contains  the patien t's IFN, t he exam na me, and th e
  8443   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,2,0)
  8444   request da te.  It is  set on on e other fi eld .03.   Recross re ferencing  either
  8445   "^DD",396. 4,396.4,.0 3,1,3,"%D" ,3,0)
  8446   one of the se fields  would be a cceptable.
  8447   "^DD",396. 4,396.4,.0 3,1,3,"DT" )
  8448   2930422
  8449   "^DD",396. 4,396.4,.0 3,1,4,0)
  8450   396.4^F
  8451   "^DD",396. 4,396.4,.0 3,1,4,1)
  8452   S ^DVB(396 .4,"F",$E( X,1,30),DA )=""
  8453   "^DD",396. 4,396.4,.0 3,1,4,2)
  8454   K ^DVB(396 .4,"F",$E( X,1,30),DA )
  8455   "^DD",396. 4,396.4,.0 3,1,4,"DT" )
  8456   2930218
  8457   "^DD",396. 4,396.4,.0 3,1,5,0)
  8458   396.4^AIT2 ^MUMPS
  8459   "^DD",396. 4,396.4,.0 3,1,5,1)
  8460   S:+$P(^DVB (396.4,DA, 0),U,11)>0  ^DVB(396. 4,"AIT",$P (^(0),U,11 ),$E(X,1,3 0),DA)=""
  8461   "^DD",396. 4,396.4,.0 3,1,5,2)
  8462   I +$P(^DVB (396.4,DA, 0),U,11)>0  K ^DVB(39 6.4,"AIT", $P(^(0),U, 11),$E(X,1 ,30),DA)
  8463   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,0)
  8464   ^.101^2^2^ 3171108^^^ ^
  8465   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,1,0)
  8466   This cross  reference  is on the  Insuffici ent Reason  and Exam  Type field s.
  8467   "^DD",396. 4,396.4,.0 3,1,5,"%D" ,2,0)
  8468   It is used  by the th e Detailed  Insuffici ent Exam R eport.
  8469   "^DD",396. 4,396.4,.0 3,1,5,"DT" )
  8470   2941116
  8471   "^DD",396. 4,396.4,.0 3,3)
  8472   Enter the  name of th e exam for  this requ est.
  8473   "^DD",396. 4,396.4,.0 3,4)
  8474  
  8475   "^DD",396. 4,396.4,.0 3,21,0)
  8476   ^^1^1^2940 722^^
  8477   "^DD",396. 4,396.4,.0 3,21,1,0)
  8478   Contains t he name of  the exam.
  8479   "^DD",396. 4,396.4,.0 3,23,0)
  8480   ^^1^1^2940 722^^
  8481   "^DD",396. 4,396.4,.0 3,23,1,0)
  8482   This field  is a poin ter to the  2507 Exam  File (396 .6).
  8483   "^DD",396. 4,396.4,.0 3,"DT")
  8484   3171003
  8485   "^DD",396. 4,396.4,.0 4,0)
  8486   STATUS^S^O :OPEN;C:CO MPLETED;X: CANCELED B Y MAS;RX:C ANCELED BY  RO;T:TRAN SFERRED OU T;^0;4^Q
  8487   "^DD",396. 4,396.4,.0 4,1,0)
  8488   ^.1^^-1
  8489   "^DD",396. 4,396.4,.0 4,1,1,0)
  8490   396.4^AD^M UMPS
  8491   "^DD",396. 4,396.4,.0 4,1,1,1)
  8492   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA)=" "
  8493   "^DD",396. 4,396.4,.0 4,1,1,2)
  8494   N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA)
  8495   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,0)
  8496   ^.101^3^3^ 3171108^^^ ^
  8497   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,1,0)
  8498   This cross  reference  contains  the patien t's intern al file nu mber, the  exam 
  8499   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,2,0)
  8500   IFN and th e exam sta tus.  It i s set on t wo other f ields .02  and .03.    
  8501   "^DD",396. 4,396.4,.0 4,1,1,"%D" ,3,0)
  8502   Recross re ferencing  any one of  these fie lds will b e acceptab le.
  8503   "^DD",396. 4,396.4,.0 4,1,1,"DT" )
  8504   2930422
  8505   "^DD",396. 4,396.4,.0 4,3)
  8506   This is th e status o f the exam  in AMIE.
  8507   "^DD",396. 4,396.4,.0 4,21,0)
  8508   ^.001^2^2^ 3040910^^
  8509   "^DD",396. 4,396.4,.0 4,21,1,0)
  8510   The value  of the sta tus of the  exam reco rd.  (Open , Closed,  Transferre d or
  8511   "^DD",396. 4,396.4,.0 4,21,2,0)
  8512   Cancelled)
  8513   "^DD",396. 4,396.4,.0 4,21,3,0)
  8514    
  8515   "^DD",396. 4,396.4,.0 4,21,4,0)
  8516   This field  is used a s part of  the implem entation o f a Nation ally Contr olled
  8517   "^DD",396. 4,396.4,.0 4,21,5,0)
  8518   Procedure  (AMIS 290) .  Per VHA  Directive  10-93-142 , the info rmation 
  8519   "^DD",396. 4,396.4,.0 4,21,6,0)
  8520   contained  in this fi eld is not  to be cha nged as th e results  of local ( site) 
  8521   "^DD",396. 4,396.4,.0 4,21,7,0)
  8522   modificati ons.
  8523   "^DD",396. 4,396.4,.0 4,23,0)
  8524   ^.001^2^2^ 3040910^^
  8525   "^DD",396. 4,396.4,.0 4,23,1,0)
  8526   This field  is a set  of codes.   It contro ls what AM IE functio ns can be 
  8527   "^DD",396. 4,396.4,.0 4,23,2,0)
  8528   performed  on the exa m record.
  8529   "^DD",396. 4,396.4,.0 4,"DT")
  8530   3171003
  8531   **END**
  8532   **END**