25. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/3/2017 10:10:45 AM 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.

25.1 Files compared

# Location File Last Modified
1 V31A.zip\V31A\434 CPRSV31A_COMBINED_BUILD_V114.KID Thu Aug 3 12:23:34 2017 UTC
2 V31A.zip\V31A\434 CPRSV31A_COMBINED_BUILD_V114.KID Thu Aug 3 14:39:10 2017 UTC

25.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 22088
Changed 2 4
Inserted 0 0
Removed 0 0

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

25.4 Active regular expressions

No regular expressions were active.

25.5 Comparison detail

  1   KIDS Distr ibution sa ved on Jun  29, 2017@ 09:18:38
  2   CPRS31A_V1 14 COMBINE D KIDS BUI LD
  3   **KIDS**:C PRS V31A C OMBINED BU ILD 1.0^OR *3.0*434^G MRV*5.0*34 ^YS*5.01*1 28^
  4  
  5   **INSTALL  NAME**
  6   CPRS V31A  COMBINED B UILD 1.0
  7   "BLD",9674 ,0)
  8   CPRS V31A  COMBINED B UILD 1.0^^ 1^3170629^ y
  9   "BLD",9674 ,6.3)
  10   23
  11   "BLD",9674 ,10,0)
  12   ^9.63^3^3
  13   "BLD",9674 ,10,1,0)
  14   OR*3.0*434 ^1
  15   "BLD",9674 ,10,2,0)
  16   GMRV*5.0*3 4^1
  17   "BLD",9674 ,10,3,0)
  18   YS*5.01*12 8^1
  19   "BLD",9674 ,10,"B","G MRV*5.0*34 ",2)
  20  
  21   "BLD",9674 ,10,"B","O R*3.0*434" ,1)
  22  
  23   "BLD",9674 ,10,"B","Y S*5.01*128 ",3)
  24  
  25   "BLD",9674 ,"KRN",0)
  26   ^9.67PA^77 9.2^20
  27   "BLD",9674 ,"KRN",.4, 0)
  28   .4
  29   "BLD",9674 ,"KRN",.40 1,0)
  30   .401
  31   "BLD",9674 ,"KRN",.40 2,0)
  32   .402
  33   "BLD",9674 ,"KRN",.40 3,0)
  34   .403
  35   "BLD",9674 ,"KRN",.5, 0)
  36   .5
  37   "BLD",9674 ,"KRN",.84 ,0)
  38   .84
  39   "BLD",9674 ,"KRN",3.6 ,0)
  40   3.6
  41   "BLD",9674 ,"KRN",3.8 ,0)
  42   3.8
  43   "BLD",9674 ,"KRN",9.2 ,0)
  44   9.2
  45   "BLD",9674 ,"KRN",9.8 ,0)
  46   9.8
  47   "BLD",9674 ,"KRN",19, 0)
  48   19
  49   "BLD",9674 ,"KRN",19. 1,0)
  50   19.1
  51   "BLD",9674 ,"KRN",101 ,0)
  52   101
  53   "BLD",9674 ,"KRN",409 .61,0)
  54   409.61
  55   "BLD",9674 ,"KRN",771 ,0)
  56   771
  57   "BLD",9674 ,"KRN",779 .2,0)
  58   779.2
  59   "BLD",9674 ,"KRN",870 ,0)
  60   870
  61   "BLD",9674 ,"KRN",898 9.51,0)
  62   8989.51
  63   "BLD",9674 ,"KRN",898 9.52,0)
  64   8989.52
  65   "BLD",9674 ,"KRN",899 4,0)
  66   8994
  67   "BLD",9674 ,"KRN","B" ,.4,.4)
  68  
  69   "BLD",9674 ,"KRN","B" ,.401,.401 )
  70  
  71   "BLD",9674 ,"KRN","B" ,.402,.402 )
  72  
  73   "BLD",9674 ,"KRN","B" ,.403,.403 )
  74  
  75   "BLD",9674 ,"KRN","B" ,.5,.5)
  76  
  77   "BLD",9674 ,"KRN","B" ,.84,.84)
  78  
  79   "BLD",9674 ,"KRN","B" ,3.6,3.6)
  80  
  81   "BLD",9674 ,"KRN","B" ,3.8,3.8)
  82  
  83   "BLD",9674 ,"KRN","B" ,9.2,9.2)
  84  
  85   "BLD",9674 ,"KRN","B" ,9.8,9.8)
  86  
  87   "BLD",9674 ,"KRN","B" ,19,19)
  88  
  89   "BLD",9674 ,"KRN","B" ,19.1,19.1 )
  90  
  91   "BLD",9674 ,"KRN","B" ,101,101)
  92  
  93   "BLD",9674 ,"KRN","B" ,409.61,40 9.61)
  94  
  95   "BLD",9674 ,"KRN","B" ,771,771)
  96  
  97   "BLD",9674 ,"KRN","B" ,779.2,779 .2)
  98  
  99   "BLD",9674 ,"KRN","B" ,870,870)
  100  
  101   "BLD",9674 ,"KRN","B" ,8989.51,8 989.51)
  102  
  103   "BLD",9674 ,"KRN","B" ,8989.52,8 989.52)
  104  
  105   "BLD",9674 ,"KRN","B" ,8994,8994 )
  106  
  107   "MBREQ")
  108   0
  109   "QUES","XP F1",0)
  110   Y
  111   "QUES","XP F1","??")
  112   ^D REP^XPD H
  113   "QUES","XP F1","A")
  114   Shall I wr ite over y our |FLAG|  File
  115   "QUES","XP F1","B")
  116   YES
  117   "QUES","XP F1","M")
  118   D XPF1^XPD IQ
  119   "QUES","XP F2",0)
  120   Y
  121   "QUES","XP F2","??")
  122   ^D DTA^XPD H
  123   "QUES","XP F2","A")
  124   Want my da ta |FLAG|  yours
  125   "QUES","XP F2","B")
  126   YES
  127   "QUES","XP F2","M")
  128   D XPF2^XPD IQ
  129   "QUES","XP I1",0)
  130   YO
  131   "QUES","XP I1","??")
  132   ^D INHIBIT ^XPDH
  133   "QUES","XP I1","A")
  134   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  135   "QUES","XP I1","B")
  136   NO
  137   "QUES","XP I1","M")
  138   D XPI1^XPD IQ
  139   "QUES","XP M1",0)
  140   PO^VA(200, :EM
  141   "QUES","XP M1","??")
  142   ^D MG^XPDH
  143   "QUES","XP M1","A")
  144   Enter the  Coordinato r for Mail  Group '|F LAG|'
  145   "QUES","XP M1","B")
  146  
  147   "QUES","XP M1","M")
  148   D XPM1^XPD IQ
  149   "QUES","XP O1",0)
  150   Y
  151   "QUES","XP O1","??")
  152   ^D MENU^XP DH
  153   "QUES","XP O1","A")
  154   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  155   "QUES","XP O1","B")
  156   NO
  157   "QUES","XP O1","M")
  158   D XPO1^XPD IQ
  159   "QUES","XP Z1",0)
  160   Y
  161   "QUES","XP Z1","??")
  162   ^D OPT^XPD H
  163   "QUES","XP Z1","A")
  164   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  165   "QUES","XP Z1","B")
  166   NO
  167   "QUES","XP Z1","M")
  168   D XPZ1^XPD IQ
  169   "QUES","XP Z2",0)
  170   Y
  171   "QUES","XP Z2","??")
  172   ^D RTN^XPD H
  173   "QUES","XP Z2","A")
  174   Want to MO VE routine s to other  CPUs
  175   "QUES","XP Z2","B")
  176   NO
  177   "QUES","XP Z2","M")
  178   D XPZ2^XPD IQ
  179   "VER")
  180   8.0^22.2
  181   **INSTALL  NAME**
  182   OR*3.0*434
  183   "BLD",9670 ,0)
  184   OR*3.0*434 ^ORDER ENT RY/RESULTS  REPORTING ^0^3170629 ^y
  185   "BLD",9670 ,4,0)
  186   ^9.64PA^10 0^4
  187   "BLD",9670 ,4,100,0)
  188   100
  189   "BLD",9670 ,4,100,2,0 )
  190   ^9.641^100 .008^1
  191   "BLD",9670 ,4,100,2,1 00.008,0)
  192   ORDER ACTI ONS  (sub- file)
  193   "BLD",9670 ,4,100,2,1 00.008,1,0 )
  194   ^9.6411^41 ^2
  195   "BLD",9670 ,4,100,2,1 00.008,1,4 0,0)
  196   DISPOSITIO N BY
  197   "BLD",9670 ,4,100,2,1 00.008,1,4 1,0)
  198   DISPOSITIO N DATE/TIM E
  199   "BLD",9670 ,4,100,222 )
  200   y^^p^^^^n^ ^n
  201   "BLD",9670 ,4,100,224 )
  202  
  203   "BLD",9670 ,4,100.9,0 )
  204   100.9
  205   "BLD",9670 ,4,100.9,2 22)
  206   n^n^f^^y^^ y^o^n
  207   "BLD",9670 ,4,100.9,2 23)
  208  
  209   "BLD",9670 ,4,100.9,2 24)
  210   I +Y=91
  211   "BLD",9670 ,4,100.98, 0)
  212   100.98
  213   "BLD",9670 ,4,100.98, 222)
  214   n^n^f^^y^^ y^r^n
  215   "BLD",9670 ,4,100.98, 224)
  216   I $P(^(0), U)="CLINIC  SCHEDULIN G"
  217   "BLD",9670 ,4,101.41, 0)
  218   101.41
  219   "BLD",9670 ,4,101.41, 222)
  220   n^n^f^^y^^ y^o^n
  221   "BLD",9670 ,4,101.41, 224)
  222   I $$SENDDL G^ORY434($ P(^(0),U))
  223   "BLD",9670 ,4,"APDD", 100,100.00 8)
  224  
  225   "BLD",9670 ,4,"APDD", 100,100.00 8,40)
  226  
  227   "BLD",9670 ,4,"APDD", 100,100.00 8,41)
  228  
  229   "BLD",9670 ,4,"B",100 ,100)
  230  
  231   "BLD",9670 ,4,"B",100 .9,100.9)
  232  
  233   "BLD",9670 ,4,"B",100 .98,100.98 )
  234  
  235   "BLD",9670 ,4,"B",101 .41,101.41 )
  236  
  237   "BLD",9670 ,6.3)
  238   31
  239   "BLD",9670 ,"ABPKG")
  240   n
  241   "BLD",9670 ,"INID")
  242   n
  243   "BLD",9670 ,"INIT")
  244   POST^ORY43 4
  245   "BLD",9670 ,"KRN",0)
  246   ^9.67PA^77 9.2^20
  247   "BLD",9670 ,"KRN",.4, 0)
  248   .4
  249   "BLD",9670 ,"KRN",.4, "NM",0)
  250   ^9.68A^^
  251   "BLD",9670 ,"KRN",.40 1,0)
  252   .401
  253   "BLD",9670 ,"KRN",.40 2,0)
  254   .402
  255   "BLD",9670 ,"KRN",.40 3,0)
  256   .403
  257   "BLD",9670 ,"KRN",.5, 0)
  258   .5
  259   "BLD",9670 ,"KRN",.84 ,0)
  260   .84
  261   "BLD",9670 ,"KRN",3.6 ,0)
  262   3.6
  263   "BLD",9670 ,"KRN",3.8 ,0)
  264   3.8
  265   "BLD",9670 ,"KRN",9.2 ,0)
  266   9.2
  267   "BLD",9670 ,"KRN",9.8 ,0)
  268   9.8
  269   "BLD",9670 ,"KRN",9.8 ,"NM",0)
  270   ^9.68A^16^ 15
  271   "BLD",9670 ,"KRN",9.8 ,"NM",1,0)
  272   ORUTL4^^0^ B10504145
  273   "BLD",9670 ,"KRN",9.8 ,"NM",2,0)
  274   ORWCIRN^^0 ^B11495848
  275   "BLD",9670 ,"KRN",9.8 ,"NM",3,0)
  276   ORWDSD1^^0 ^B8304455
  277   "BLD",9670 ,"KRN",9.8 ,"NM",4,0)
  278   ORCDSD^^0^ B4634075
  279   "BLD",9670 ,"KRN",9.8 ,"NM",5,0)
  280   ORWDXM4^^0 ^B43793101
  281   "BLD",9670 ,"KRN",9.8 ,"NM",7,0)
  282   ORMBLD^^0^ B46482441
  283   "BLD",9670 ,"KRN",9.8 ,"NM",8,0)
  284   ORMBLDSD^^ 0^B1483986 5
  285   "BLD",9670 ,"KRN",9.8 ,"NM",9,0)
  286   ORM^^0^B18 341854
  287   "BLD",9670 ,"KRN",9.8 ,"NM",10,0 )
  288   ORB3FUP2^^ 0^B6992458 1
  289   "BLD",9670 ,"KRN",9.8 ,"NM",11,0 )
  290   ORMSD^^0^B 97189040
  291   "BLD",9670 ,"KRN",9.8 ,"NM",12,0 )
  292   ORWDXM1^^0 ^B11114424 9
  293   "BLD",9670 ,"KRN",9.8 ,"NM",13,0 )
  294   ORCACT0^^0 ^B67480788
  295   "BLD",9670 ,"KRN",9.8 ,"NM",14,0 )
  296   ORWDXM3^^0 ^B11836196 0
  297   "BLD",9670 ,"KRN",9.8 ,"NM",15,0 )
  298   ORQ20^^0^B 51272743
  299   "BLD",9670 ,"KRN",9.8 ,"NM",16,0 )
  300   ORWDXA^^0^ B119097370
  301   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORB3FUP2" ,10)
  302  
  303   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORCACT0", 13)
  304  
  305   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORCDSD",4 )
  306  
  307   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORM",9)
  308  
  309   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMBLD",7 )
  310  
  311   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMBLDSD" ,8)
  312  
  313   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMSD",11 )
  314  
  315   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORQ20",15 )
  316  
  317   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORUTL4",1 )
  318  
  319   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWCIRN", 2)
  320  
  321   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDSD1", 3)
  322  
  323   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXA",1 6)
  324  
  325   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM1", 12)
  326  
  327   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM3", 14)
  328  
  329   "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM4", 5)
  330  
  331   "BLD",9670 ,"KRN",19, 0)
  332   19
  333   "BLD",9670 ,"KRN",19, "NM",0)
  334   ^9.68A^1^1
  335   "BLD",9670 ,"KRN",19, "NM",1,0)
  336   OR CPRS GU I CHART^^0
  337   "BLD",9670 ,"KRN",19, "NM","B"," OR CPRS GU I CHART",1 )
  338  
  339   "BLD",9670 ,"KRN",19. 1,0)
  340   19.1
  341   "BLD",9670 ,"KRN",101 ,0)
  342   101
  343   "BLD",9670 ,"KRN",101 ,"NM",0)
  344   ^9.68A^2^2
  345   "BLD",9670 ,"KRN",101 ,"NM",1,0)
  346   OR EVSEND  SD^^0
  347   "BLD",9670 ,"KRN",101 ,"NM",2,0)
  348   OCX ORDER  CHECK HL7  RECIEVE^^4 ^
  349   "BLD",9670 ,"KRN",101 ,"NM","B", "OCX ORDER  CHECK HL7  RECIEVE", 2)
  350  
  351   "BLD",9670 ,"KRN",101 ,"NM","B", "OR EVSEND  SD",1)
  352  
  353   "BLD",9670 ,"KRN",409 .61,0)
  354   409.61
  355   "BLD",9670 ,"KRN",771 ,0)
  356   771
  357   "BLD",9670 ,"KRN",779 .2,0)
  358   779.2
  359   "BLD",9670 ,"KRN",870 ,0)
  360   870
  361   "BLD",9670 ,"KRN",898 9.51,0)
  362   8989.51
  363   "BLD",9670 ,"KRN",898 9.51,"NM", 0)
  364   ^9.68A^4^4
  365   "BLD",9670 ,"KRN",898 9.51,"NM", 1,0)
  366   ORWRP LEGA CY VIEWER  LABEL^^0
  367   "BLD",9670 ,"KRN",898 9.51,"NM", 2,0)
  368   OR MOB DLL  NAME^^0
  369   "BLD",9670 ,"KRN",898 9.51,"NM", 3,0)
  370   OR SD ADDI TIONAL INF ORMATION
  371   "BLD",9670 ,"KRN",898 9.51,"NM", 4,0)
  372   OR SD DIAL OG PREREQ
  373   "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR MO B DLL NAME ",2)
  374  
  375   "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR SD  ADDITIONA L INFORMAT ION",3)
  376  
  377   "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR SD  DIALOG PR EREQ",4)
  378  
  379   "BLD",9670 ,"KRN",898 9.51,"NM", "B","ORWRP  LEGACY VI EWER LABEL ",1)
  380  
  381   "BLD",9670 ,"KRN",898 9.52,0)
  382   8989.52
  383   "BLD",9670 ,"KRN",898 9.52,"NM", 0)
  384   ^9.68A^^
  385   "BLD",9670 ,"KRN",899 4,0)
  386   8994
  387   "BLD",9670 ,"KRN",899 4,"NM",0)
  388   ^9.68A^2^2
  389   "BLD",9670 ,"KRN",899 4,"NM",1,0 )
  390   ORWCIRN JL V LABEL^^0
  391   "BLD",9670 ,"KRN",899 4,"NM",2,0 )
  392   ORWDSD1 OD SLCT^^0
  393   "BLD",9670 ,"KRN",899 4,"NM","B" ,"ORWCIRN  JLV LABEL" ,1)
  394  
  395   "BLD",9670 ,"KRN",899 4,"NM","B" ,"ORWDSD1  ODSLCT",2)
  396  
  397   "BLD",9670 ,"KRN","B" ,.4,.4)
  398  
  399   "BLD",9670 ,"KRN","B" ,.401,.401 )
  400  
  401   "BLD",9670 ,"KRN","B" ,.402,.402 )
  402  
  403   "BLD",9670 ,"KRN","B" ,.403,.403 )
  404  
  405   "BLD",9670 ,"KRN","B" ,.5,.5)
  406  
  407   "BLD",9670 ,"KRN","B" ,.84,.84)
  408  
  409   "BLD",9670 ,"KRN","B" ,3.6,3.6)
  410  
  411   "BLD",9670 ,"KRN","B" ,3.8,3.8)
  412  
  413   "BLD",9670 ,"KRN","B" ,9.2,9.2)
  414  
  415   "BLD",9670 ,"KRN","B" ,9.8,9.8)
  416  
  417   "BLD",9670 ,"KRN","B" ,19,19)
  418  
  419   "BLD",9670 ,"KRN","B" ,19.1,19.1 )
  420  
  421   "BLD",9670 ,"KRN","B" ,101,101)
  422  
  423   "BLD",9670 ,"KRN","B" ,409.61,40 9.61)
  424  
  425   "BLD",9670 ,"KRN","B" ,771,771)
  426  
  427   "BLD",9670 ,"KRN","B" ,779.2,779 .2)
  428  
  429   "BLD",9670 ,"KRN","B" ,870,870)
  430  
  431   "BLD",9670 ,"KRN","B" ,8989.51,8 989.51)
  432  
  433   "BLD",9670 ,"KRN","B" ,8989.52,8 989.52)
  434  
  435   "BLD",9670 ,"KRN","B" ,8994,8994 )
  436  
  437   "BLD",9670 ,"PRE")
  438   ORY434
  439   "BLD",9670 ,"PRET")
  440  
  441   "BLD",9670 ,"QUES",0)
  442   ^9.62^^
  443   "BLD",9670 ,"REQB",0)
  444   ^9.611^8^7
  445   "BLD",9670 ,"REQB",1, 0)
  446   OR*3.0*423 ^2
  447   "BLD",9670 ,"REQB",2, 0)
  448   XWB*1.1*64 ^2
  449   "BLD",9670 ,"REQB",3, 0)
  450   XU*8.0*659 ^2
  451   "BLD",9670 ,"REQB",5, 0)
  452   OR*3.0*424 ^2
  453   "BLD",9670 ,"REQB",6, 0)
  454   OR*3.0*425 ^2
  455   "BLD",9670 ,"REQB",7, 0)
  456   OR*3.0*421 ^2
  457   "BLD",9670 ,"REQB",8, 0)
  458   OR*3.0*436 ^2
  459   "BLD",9670 ,"REQB","B ","OR*3.0* 421",7)
  460  
  461   "BLD",9670 ,"REQB","B ","OR*3.0* 423",1)
  462  
  463   "BLD",9670 ,"REQB","B ","OR*3.0* 424",5)
  464  
  465   "BLD",9670 ,"REQB","B ","OR*3.0* 425",6)
  466  
  467   "BLD",9670 ,"REQB","B ","OR*3.0* 436",8)
  468  
  469   "BLD",9670 ,"REQB","B ","XU*8.0* 659",3)
  470  
  471   "BLD",9670 ,"REQB","B ","XWB*1.1 *64",2)
  472  
  473   "DATA",100 .9,91,0)
  474   APPOINTMEN T REQUEST  CANCELLED^ OR^Appoint ment Reque st Cancell ed in Sche duling^PKG ^R^RTC^ORB 3FUP2
  475   "DATA",100 .9,91,1)
  476   ^OR
  477   "DATA",100 .9,91,3)
  478   ^4
  479   "DATA",100 .9,91,4)
  480   The purpos e of this  notificati on to advi se the pro vider reci pients whe n an appoi ntment req uest is ca ncelled by  the sched uling pack age.
  481   "DATA",100 .9,91,5,0)
  482   ^100.92S^2 ^2
  483   "DATA",100 .9,91,5,1, 0)
  484   CD
  485   "DATA",100 .9,91,5,2, 0)
  486   ONPP
  487   "DATA",100 .98,280,0)
  488   CLINIC SCH EDULING^Cl inic Sched uling^CSDA M^391
  489   "DATA",101 .41,391,0)
  490   SD RTC^Ret urn To Cli nic^^D^280 ^1^16^1^0
  491   "DATA",101 .41,391,4)
  492   K ORSDTISE ,ORLEAD,OR TRAIL
  493   "DATA",101 .41,391,5)
  494   ^^^^175
  495   "DATA",101 .41,391,10 ,0)
  496   ^101.412IA ^10^7
  497   "DATA",101 .41,391,10 ,1,0)
  498   1^183^^Cli nic Locati on: ^^1^0
  499   "DATA",101 .41,391,10 ,1,.1)
  500  
  501   "DATA",101 .41,391,10 ,1,2)
  502   5^^^Return  to
  503   "DATA",101 .41,391,10 ,1,4)
  504   I $$VALCLI NC^ORCDSD( Y)
  505   "DATA",101 .41,391,10 ,3,0)
  506   10^15820^^ Return to  clinic dat e: ^^1
  507   "DATA",101 .41,391,10 ,3,2)
  508   15^^^@ORLE AD^@ORTRAI L
  509   "DATA",101 .41,391,10 ,3,5)
  510   Q:$G(ORTYP E)'="Z"  I  $G(ORDIAL OG(PROMPT, INST))'["T " K DONE W  $C(7),!," Response m ust be rel ative date  (e.g. TOD AY, T+7D,  T+3M)"
  511   "DATA",101 .41,391,10 ,3,10)
  512   S ORLEAD=" on or arou nd (",ORTR AIL=")" S: $G(ORSDTIS E)="1" ORL EAD="on or  before ", ORTRAIL=""
  513   "DATA",101 .41,391,10 ,4,0)
  514   20^396^^Nu mber of Ap pointments : ^^1
  515   "DATA",101 .41,391,10 ,4,2)
  516   20^^^for a  total of  ^appointme nt(s)^1
  517   "DATA",101 .41,391,10 ,4,5)
  518  
  519   "DATA",101 .41,391,10 ,4,7)
  520   S Y=1
  521   "DATA",101 .41,391,10 ,4,10)
  522   I +$G(ORDI ALOG(PROMP T,INST))=1  S ORDIALO G($$PTR^OR CD("OR GTX  SCH INTER VAL"),INST )=""
  523   "DATA",101 .41,391,10 ,5,0)
  524   20.5^395^^ Interval: 
  525   "DATA",101 .41,391,10 ,5,.1)
  526  
  527   "DATA",101 .41,391,10 ,5,1)
  528   Select an  interval b etween 1 a nd 30
  529   "DATA",101 .41,391,10 ,5,2)
  530   30^^^with  a frequenc y of every ^day(s)
  531   "DATA",101 .41,391,10 ,5,3)
  532   I +$$VAL^O RCD("NUMBE R OF APPOI NTMENTS")> 1
  533   "DATA",101 .41,391,10 ,5,6)
  534  
  535   "DATA",101 .41,391,10 ,6,0)
  536   30^397^^Pr erequisiti es: ^^0^1^ ^^^^99
  537   "DATA",101 .41,391,10 ,6,.1)
  538   D PREREQV^ ORCDSD
  539   "DATA",101 .41,391,10 ,6,2)
  540   35^^^Prere quisites:^ ^1
  541   "DATA",101 .41,391,10 ,6,3)
  542   I $$PREREQ N^ORCDSD() >0
  543   "DATA",101 .41,391,10 ,6,6)
  544   D PREREQH^ ORCDSD
  545   "DATA",101 .41,391,10 ,7,0)
  546   40^16266^^ Comments: 
  547   "DATA",101 .41,391,10 ,7,2)
  548   45^^^^^1
  549   "DATA",101 .41,391,10 ,10,0)
  550   8^177^^Tim e sensitiv e: ^^0^0^^ ^^
  551   "DATA",101 .41,391,10 ,10,1)
  552   Select Yes  if this o rder is a  time sensi tive order .
  553   "DATA",101 .41,391,10 ,10,2)
  554   ^^^
  555   "DATA",101 .41,391,10 ,10,10)
  556   S ORSDTISE =$G(ORDIAL OG(PROMPT, INST))
  557   "DATA",101 .41,391,99 )
  558   64461,6893 7
  559   "DATA",101 .41,395,0)
  560   OR GTX SCH  INTERVAL^ Interval^^ P
  561   "DATA",101 .41,395,1)
  562   N^0:30^SDI NT
  563   "DATA",101 .41,395,2, 0)
  564   ^101.411^2 ^2^3170508 ^^
  565   "DATA",101 .41,395,2, 1,0)
  566   This provi de the use r to deter mine the f requency a  patient s hould be s ee 
  567   "DATA",101 .41,395,2, 2,0)
  568   when order ing multip le follow- up appoint ment.
  569   "DATA",101 .41,395,99 )
  570   64461,5239 7
  571   "DATA",101 .41,396,0)
  572   OR GTX APP T NUM^Numb er of Appo intments^^ P
  573   "DATA",101 .41,396,1)
  574   N^1:60:0^S DNUM
  575   "DATA",101 .41,396,2, 0)
  576   ^101.411^1 ^1^3151015 ^^
  577   "DATA",101 .41,396,2, 1,0)
  578   This promp t set the  number of  appointmen t.
  579   "DATA",101 .41,396,99 )
  580   64461,5239 7
  581   "DATA",101 .41,397,0)
  582   OR GTX PRE  REQ^Prere quisites^^ P
  583   "DATA",101 .41,397,1)
  584   F^3:30^PRE REQ
  585   "DATA",101 .41,397,99 )
  586   64461,5239 7
  587   "DATA",101 .41,16266, 0)
  588   OR GTX SD  COMMENT^Re turn to Cl inic Comme nt^^P
  589   "DATA",101 .41,16266, 1)
  590   F^1:75^SDC OMMENT
  591   "DATA",101 .41,16266, 2,0)
  592   ^^1^1^3170 510^
  593   "DATA",101 .41,16266, 2,1,0)
  594   This promp ts for the  comment f ield in th e Return t o Clinic O rder Dialo g.
  595   "DATA",101 .41,16266, 99)
  596   64461,5239 9
  597   "FIA",100)
  598   ORDER
  599   "FIA",100, 0)
  600   ^OR(100,
  601   "FIA",100, 0,0)
  602   100I
  603   "FIA",100, 0,1)
  604   y^^p^^^^n^ ^n
  605   "FIA",100, 0,10)
  606  
  607   "FIA",100, 0,11)
  608  
  609   "FIA",100, 0,"RLRO")
  610  
  611   "FIA",100, 0,"VR")
  612   3.0^OR
  613   "FIA",100, 100)
  614   1
  615   "FIA",100, 100.008)
  616   1
  617   "FIA",100, 100.008,40 )
  618  
  619   "FIA",100, 100.008,41 )
  620  
  621   "FIA",100. 9)
  622   OE/RR NOTI FICATIONS
  623   "FIA",100. 9,0)
  624   ^ORD(100.9 ,
  625   "FIA",100. 9,0,0)
  626   100.9
  627   "FIA",100. 9,0,1)
  628   n^n^f^^y^^ y^o^n
  629   "FIA",100. 9,0,10)
  630  
  631   "FIA",100. 9,0,11)
  632   I +Y=91
  633   "FIA",100. 9,0,"RLRO" )
  634  
  635   "FIA",100. 9,0,"VR")
  636   3.0^OR
  637   "FIA",100. 9,100.9)
  638   0
  639   "FIA",100. 9,100.92)
  640   0
  641   "FIA",100. 98)
  642   DISPLAY GR OUP
  643   "FIA",100. 98,0)
  644   ^ORD(100.9 8,
  645   "FIA",100. 98,0,0)
  646   100.98I
  647   "FIA",100. 98,0,1)
  648   n^n^f^^y^^ y^r^n
  649   "FIA",100. 98,0,10)
  650  
  651   "FIA",100. 98,0,11)
  652   I $P(^(0), U)="CLINIC  SCHEDULIN G"
  653   "FIA",100. 98,0,"RLRO ")
  654  
  655   "FIA",100. 98,0,"VR")
  656   3.0^OR
  657   "FIA",100. 98,100.98)
  658   0
  659   "FIA",100. 98,100.981 )
  660   0
  661   "FIA",100. 98,100.985 )
  662   0
  663   "FIA",101. 41)
  664   ORDER DIAL OG
  665   "FIA",101. 41,0)
  666   ^ORD(101.4 1,
  667   "FIA",101. 41,0,0)
  668   101.41I
  669   "FIA",101. 41,0,1)
  670   n^n^f^^y^^ y^o^n
  671   "FIA",101. 41,0,10)
  672  
  673   "FIA",101. 41,0,11)
  674   I $$SENDDL G^ORY434($ P(^(0),U))
  675   "FIA",101. 41,0,"RLRO ")
  676  
  677   "FIA",101. 41,0,"VR")
  678   3.0^OR
  679   "FIA",101. 41,101.41)
  680   0
  681   "FIA",101. 41,101.411 )
  682   0
  683   "FIA",101. 41,101.412 )
  684   0
  685   "FIA",101. 41,101.412 18)
  686   0
  687   "FIA",101. 41,101.415 )
  688   0
  689   "FIA",101. 41,101.416 )
  690   0
  691   "FIA",101. 41,101.416 2)
  692   0
  693   "FRV1",100 .98,"280,0 ",4)
  694   SD RTC
  695   "FRV1",100 .98,"280,0 ",4,"F")
  696   ;ORD(101.4 1,
  697   "FRV1",101 .41,"391,0 ",5)
  698   CLINIC SCH EDULING
  699   "FRV1",101 .41,"391,0 ",5,"F")
  700   ;ORD(100.9 8,
  701   "FRV1",101 .41,"391,0 ",7)
  702   SCHEDULING
  703   "FRV1",101 .41,"391,0 ",7,"F")
  704   ;DIC(9.4,
  705   "FRV1",101 .41,"391,1 0,1,0",2)
  706   OR GTX LOC ATION
  707   "FRV1",101 .41,"391,1 0,1,0",2," F")
  708   ;ORD(101.4 1,
  709   "FRV1",101 .41,"391,1 0,10,0",2)
  710   OR GTX YES /NO
  711   "FRV1",101 .41,"391,1 0,10,0",2, "F")
  712   ;ORD(101.4 1,
  713   "FRV1",101 .41,"391,1 0,3,0",2)
  714   OR GTX CLI NICALLY IN DICATED DA TE
  715   "FRV1",101 .41,"391,1 0,3,0",2," F")
  716   ;ORD(101.4 1,
  717   "FRV1",101 .41,"391,1 0,4,0",2)
  718   OR GTX APP T NUM
  719   "FRV1",101 .41,"391,1 0,4,0",2," F")
  720   ;ORD(101.4 1,
  721   "FRV1",101 .41,"391,1 0,5,0",2)
  722   OR GTX SCH  INTERVAL
  723   "FRV1",101 .41,"391,1 0,5,0",2," F")
  724   ;ORD(101.4 1,
  725   "FRV1",101 .41,"391,1 0,6,0",2)
  726   OR GTX PRE  REQ
  727   "FRV1",101 .41,"391,1 0,6,0",2," F")
  728   ;ORD(101.4 1,
  729   "FRV1",101 .41,"391,1 0,7,0",2)
  730   OR GTX SD  COMMENT
  731   "FRV1",101 .41,"391,1 0,7,0",2," F")
  732   ;ORD(101.4 1,
  733   "INIT")
  734   POST^ORY43 4
  735   "IX",101.4 1,101.41," B",0)
  736   101.41^B^R egular B i ndex using  full fiel d length^R ^^F^IR^I^1 01.41^^^^^ LS
  737   "IX",101.4 1,101.41," B",1)
  738   S ^ORD(101 .41,"B",$E (X,1,63),D A)=""
  739   "IX",101.4 1,101.41," B",2)
  740   K ^ORD(101 .41,"B",$E (X,1,63),D A)
  741   "IX",101.4 1,101.41," B",2.5)
  742   K ^ORD(101 .41,"B")
  743   "IX",101.4 1,101.41," B",11.1,0)
  744   ^.114IA^1^ 1
  745   "IX",101.4 1,101.41," B",11.1,1, 0)
  746   1^F^101.41 ^.01^63^1^ F
  747   "KRN",19,1 0989,-1)
  748   0^1
  749   "KRN",19,1 0989,0)
  750   OR CPRS GU I CHART^CP RSChart ve rsion 1.0. 31.114^^B^ ^^^^^^^
  751   "KRN",19,1 0989,1,0)
  752   ^19.06^2^2 ^3170601^^ ^^
  753   "KRN",19,1 0989,1,1,0 )
  754   This optio n is requi red by the  Kernel Br oker to gi ve access  to the
  755   "KRN",19,1 0989,1,2,0 )
  756   RPCs used  by the CPR S GUI (CPR SChart.EXE ).
  757   "KRN",19,1 0989,99)
  758   60921,4461 3
  759   "KRN",19,1 0989,99.1)
  760   64455,5147 1
  761   "KRN",19,1 0989,"RPC" ,0)
  762   ^19.05P^21 58^2158
  763   "KRN",19,1 0989,"RPC" ,1,0)
  764   GMRC LIST  CONSULT RE QUESTS
  765   "KRN",19,1 0989,"RPC" ,218,0)
  766   XWB GET VA RIABLE VAL UE
  767   "KRN",19,1 0989,"RPC" ,219,0)
  768   TIU AUTHOR IZATION
  769   "KRN",19,1 0989,"RPC" ,220,0)
  770   TIU CAN CH ANGE COSIG NER?
  771   "KRN",19,1 0989,"RPC" ,221,0)
  772   TIU CREATE  ADDENDUM  RECORD
  773   "KRN",19,1 0989,"RPC" ,222,0)
  774   TIU CREATE  RECORD
  775   "KRN",19,1 0989,"RPC" ,223,0)
  776   TIU DELETE  RECORD
  777   "KRN",19,1 0989,"RPC" ,224,0)
  778   TIU DETAIL ED DISPLAY
  779   "KRN",19,1 0989,"RPC" ,225,0)
  780   TIU DOCUME NTS BY CON TEXT
  781   "KRN",19,1 0989,"RPC" ,226,0)
  782   TIU GET AD DITIONAL S IGNERS
  783   "KRN",19,1 0989,"RPC" ,227,0)
  784   TIU GET AL ERT INFO
  785   "KRN",19,1 0989,"RPC" ,228,0)
  786   TIU GET DO CUMENT PAR AMETERS
  787   "KRN",19,1 0989,"RPC" ,229,0)
  788   TIU GET DS  TITLES
  789   "KRN",19,1 0989,"RPC" ,230,0)
  790   TIU GET DS  URGENCIES
  791   "KRN",19,1 0989,"RPC" ,231,0)
  792   TIU GET PE RSONAL PRE FERENCES
  793   "KRN",19,1 0989,"RPC" ,232,0)
  794   TIU GET PN  TITLES
  795   "KRN",19,1 0989,"RPC" ,233,0)
  796   TIU GET RE CORD TEXT
  797   "KRN",19,1 0989,"RPC" ,234,0)
  798   TIU IDENTI FY CONSULT S CLASS
  799   "KRN",19,1 0989,"RPC" ,235,0)
  800   TIU IS THI S A CONSUL T?
  801   "KRN",19,1 0989,"RPC" ,236,0)
  802   TIU JUSTIF Y DELETE?
  803   "KRN",19,1 0989,"RPC" ,237,0)
  804   TIU LOAD B OILERPLATE  TEXT
  805   "KRN",19,1 0989,"RPC" ,238,0)
  806   TIU LOAD R ECORD FOR  EDIT
  807   "KRN",19,1 0989,"RPC" ,239,0)
  808   TIU LOCK R ECORD
  809   "KRN",19,1 0989,"RPC" ,240,0)
  810   TIU LONG L IST CONSUL T TITLES
  811   "KRN",19,1 0989,"RPC" ,241,0)
  812   TIU LONG L IST OF TIT LES
  813   "KRN",19,1 0989,"RPC" ,242,0)
  814   TIU NOTES
  815   "KRN",19,1 0989,"RPC" ,243,0)
  816   TIU NOTES  16 BIT
  817   "KRN",19,1 0989,"RPC" ,244,0)
  818   TIU NOTES  BY VISIT
  819   "KRN",19,1 0989,"RPC" ,245,0)
  820   TIU PERSON AL TITLE L IST
  821   "KRN",19,1 0989,"RPC" ,246,0)
  822   TIU PRINT  RECORD
  823   "KRN",19,1 0989,"RPC" ,247,0)
  824   TIU REQUIR ES COSIGNA TURE
  825   "KRN",19,1 0989,"RPC" ,248,0)
  826   TIU SIGN R ECORD
  827   "KRN",19,1 0989,"RPC" ,249,0)
  828   TIU SUMMAR IES
  829   "KRN",19,1 0989,"RPC" ,250,0)
  830   TIU SUMMAR IES BY VIS IT
  831   "KRN",19,1 0989,"RPC" ,251,0)
  832   TIU UNLOCK  RECORD
  833   "KRN",19,1 0989,"RPC" ,252,0)
  834   TIU UPDATE  ADDITIONA L SIGNERS
  835   "KRN",19,1 0989,"RPC" ,253,0)
  836   TIU UPDATE  RECORD
  837   "KRN",19,1 0989,"RPC" ,254,0)
  838   TIU WHICH  SIGNATURE  ACTION
  839   "KRN",19,1 0989,"RPC" ,1032,0)
  840   ORB DELETE  ALERT
  841   "KRN",19,1 0989,"RPC" ,1033,0)
  842   ORB FOLLOW -UP ARRAY
  843   "KRN",19,1 0989,"RPC" ,1034,0)
  844   ORB FOLLOW -UP STRING
  845   "KRN",19,1 0989,"RPC" ,1035,0)
  846   ORB FOLLOW -UP TYPE
  847   "KRN",19,1 0989,"RPC" ,1036,0)
  848   ORB SORT M ETHOD
  849   "KRN",19,1 0989,"RPC" ,1037,0)
  850   ORK TRIGGE R
  851   "KRN",19,1 0989,"RPC" ,1038,0)
  852   ORQ NULL L IST
  853   "KRN",19,1 0989,"RPC" ,1039,0)
  854   ORQOR DETA IL
  855   "KRN",19,1 0989,"RPC" ,1040,0)
  856   TIU TEMPLA TE CHECK B OILERPLATE
  857   "KRN",19,1 0989,"RPC" ,1041,0)
  858   TIU TEMPLA TE CREATE/ MODIFY
  859   "KRN",19,1 0989,"RPC" ,1042,0)
  860   TIU TEMPLA TE DELETE
  861   "KRN",19,1 0989,"RPC" ,1045,0)
  862   TIU TEMPLA TE GETPROO T
  863   "KRN",19,1 0989,"RPC" ,1049,0)
  864   TIU TEMPLA TE LISTOWN R
  865   "KRN",19,1 0989,"RPC" ,1050,0)
  866   TIU TEMPLA TE SET ITE MS
  867   "KRN",19,1 0989,"RPC" ,1051,0)
  868   TIU GET LI ST OF OBJE CTS
  869   "KRN",19,1 0989,"RPC" ,1052,0)
  870   ORQOR LIST
  871   "KRN",19,1 0989,"RPC" ,1053,0)
  872   ORQORB SOR T
  873   "KRN",19,1 0989,"RPC" ,1054,0)
  874   ORQPT ATTE NDING/PRIM ARY
  875   "KRN",19,1 0989,"RPC" ,1055,0)
  876   ORQPT CLIN IC PATIENT S
  877   "KRN",19,1 0989,"RPC" ,1056,0)
  878   ORQPT CLIN ICS
  879   "KRN",19,1 0989,"RPC" ,1057,0)
  880   ORQPT DEFA ULT LIST S OURCE
  881   "KRN",19,1 0989,"RPC" ,1058,0)
  882   ORQPT DEFA ULT PATIEN T LIST
  883   "KRN",19,1 0989,"RPC" ,1059,0)
  884   ORQPT PATI ENT TEAM P ROVIDERS
  885   "KRN",19,1 0989,"RPC" ,1060,0)
  886   ORQPT PROV IDER PATIE NTS
  887   "KRN",19,1 0989,"RPC" ,1061,0)
  888   ORQPT PROV IDERS
  889   "KRN",19,1 0989,"RPC" ,1062,0)
  890   ORQPT SPEC IALTIES
  891   "KRN",19,1 0989,"RPC" ,1063,0)
  892   ORQPT SPEC IALTY PATI ENTS
  893   "KRN",19,1 0989,"RPC" ,1064,0)
  894   ORQPT TEAM  PATIENTS
  895   "KRN",19,1 0989,"RPC" ,1065,0)
  896   ORQPT TEAM S
  897   "KRN",19,1 0989,"RPC" ,1066,0)
  898   ORQPT WARD  PATIENTS
  899   "KRN",19,1 0989,"RPC" ,1067,0)
  900   ORQPT WARD RMBED
  901   "KRN",19,1 0989,"RPC" ,1068,0)
  902   ORQPT WARD S
  903   "KRN",19,1 0989,"RPC" ,1069,0)
  904   ORQQAL DET AIL
  905   "KRN",19,1 0989,"RPC" ,1070,0)
  906   ORQQAL LIS T
  907   "KRN",19,1 0989,"RPC" ,1071,0)
  908   ORQQAL LIS T REPORT
  909   "KRN",19,1 0989,"RPC" ,1072,0)
  910   ORQQCN ADD CMT
  911   "KRN",19,1 0989,"RPC" ,1073,0)
  912   ORQQCN ADM IN COMPLET E
  913   "KRN",19,1 0989,"RPC" ,1074,0)
  914   ORQQCN DET AIL
  915   "KRN",19,1 0989,"RPC" ,1075,0)
  916   ORQQCN DIS CONTINUE
  917   "KRN",19,1 0989,"RPC" ,1076,0)
  918   ORQQCN FIN D CONSULT
  919   "KRN",19,1 0989,"RPC" ,1077,0)
  920   ORQQCN FOR WARD
  921   "KRN",19,1 0989,"RPC" ,1078,0)
  922   ORQQCN GET  CONSULT
  923   "KRN",19,1 0989,"RPC" ,1079,0)
  924   ORQQCN GET  ORDER NUM BER
  925   "KRN",19,1 0989,"RPC" ,1080,0)
  926   ORQQCN GET  PROC SVCS
  927   "KRN",19,1 0989,"RPC" ,1081,0)
  928   ORQQCN LIS T
  929   "KRN",19,1 0989,"RPC" ,1082,0)
  930   ORQQCN LOA D FOR EDIT
  931   "KRN",19,1 0989,"RPC" ,1083,0)
  932   ORQQCN MED  RESULTS
  933   "KRN",19,1 0989,"RPC" ,1084,0)
  934   ORQQCN PRI NT SF513
  935   "KRN",19,1 0989,"RPC" ,1085,0)
  936   ORQQCN REC EIVE
  937   "KRN",19,1 0989,"RPC" ,1086,0)
  938   ORQQCN RES UBMIT
  939   "KRN",19,1 0989,"RPC" ,1087,0)
  940   ORQQCN SET  ACT MENUS
  941   "KRN",19,1 0989,"RPC" ,1088,0)
  942   ORQQCN SHO W SF513
  943   "KRN",19,1 0989,"RPC" ,1089,0)
  944   ORQQCN SIG FIND
  945   "KRN",19,1 0989,"RPC" ,1090,0)
  946   ORQQCN STA TUS
  947   "KRN",19,1 0989,"RPC" ,1091,0)
  948   ORQQCN SVC LIST
  949   "KRN",19,1 0989,"RPC" ,1092,0)
  950   ORQQCN SVC TREE
  951   "KRN",19,1 0989,"RPC" ,1093,0)
  952   ORQQCN URG ENCIES
  953   "KRN",19,1 0989,"RPC" ,1094,0)
  954   ORQQCN2 GE T CONTEXT
  955   "KRN",19,1 0989,"RPC" ,1095,0)
  956   ORQQCN2 SA VE CONTEXT
  957   "KRN",19,1 0989,"RPC" ,1096,0)
  958   ORQQLR DET AIL
  959   "KRN",19,1 0989,"RPC" ,1097,0)
  960   ORQQLR SEA RCH RANGE  INPT
  961   "KRN",19,1 0989,"RPC" ,1098,0)
  962   ORQQLR SEA RCH RANGE  OUTPT
  963   "KRN",19,1 0989,"RPC" ,1099,0)
  964   ORQQPL ADD  SAVE
  965   "KRN",19,1 0989,"RPC" ,1100,0)
  966   ORQQPL AUD IT HIST
  967   "KRN",19,1 0989,"RPC" ,1101,0)
  968   ORQQPL CHE CK DUP
  969   "KRN",19,1 0989,"RPC" ,1102,0)
  970   ORQQPL CLI N FILTER L IST
  971   "KRN",19,1 0989,"RPC" ,1103,0)
  972   ORQQPL CLI N SRCH
  973   "KRN",19,1 0989,"RPC" ,1104,0)
  974   ORQQPL DEL ETE
  975   "KRN",19,1 0989,"RPC" ,1105,0)
  976   ORQQPL DET AIL
  977   "KRN",19,1 0989,"RPC" ,1106,0)
  978   ORQQPL EDI T LOAD
  979   "KRN",19,1 0989,"RPC" ,1107,0)
  980   ORQQPL EDI T SAVE
  981   "KRN",19,1 0989,"RPC" ,1108,0)
  982   ORQQPL INA CTIVATE
  983   "KRN",19,1 0989,"RPC" ,1109,0)
  984   ORQQPL INI T PT
  985   "KRN",19,1 0989,"RPC" ,1110,0)
  986   ORQQPL INI T USER
  987   "KRN",19,1 0989,"RPC" ,1111,0)
  988   ORQQPL LIS T
  989   "KRN",19,1 0989,"RPC" ,1112,0)
  990   ORQQPL PRO B COMMENTS
  991   "KRN",19,1 0989,"RPC" ,1113,0)
  992   ORQQPL PRO BLEM LEX S EARCH
  993   "KRN",19,1 0989,"RPC" ,1114,0)
  994   ORQQPL PRO BLEM LIST
  995   "KRN",19,1 0989,"RPC" ,1115,0)
  996   ORQQPL PRO V FILTER L IST
  997   "KRN",19,1 0989,"RPC" ,1116,0)
  998   ORQQPL PRO VIDER LIST
  999   "KRN",19,1 0989,"RPC" ,1117,0)
  1000   ORQQPL REP LACE
  1001   "KRN",19,1 0989,"RPC" ,1118,0)
  1002   ORQQPL SAV EVIEW
  1003   "KRN",19,1 0989,"RPC" ,1119,0)
  1004   ORQQPL SER V FILTER L IST
  1005   "KRN",19,1 0989,"RPC" ,1120,0)
  1006   ORQQPL SRV C SRCH
  1007   "KRN",19,1 0989,"RPC" ,1121,0)
  1008   ORQQPL UPD ATE
  1009   "KRN",19,1 0989,"RPC" ,1122,0)
  1010   ORQQPL USE R PROB CAT S
  1011   "KRN",19,1 0989,"RPC" ,1123,0)
  1012   ORQQPL USE R PROB LIS T
  1013   "KRN",19,1 0989,"RPC" ,1124,0)
  1014   ORQQPL VER IFY
  1015   "KRN",19,1 0989,"RPC" ,1125,0)
  1016   ORQQPP LIS T
  1017   "KRN",19,1 0989,"RPC" ,1126,0)
  1018   ORQQPS DET AIL
  1019   "KRN",19,1 0989,"RPC" ,1127,0)
  1020   ORQQPS LIS T
  1021   "KRN",19,1 0989,"RPC" ,1133,0)
  1022   ORQQPX REM INDER DETA IL
  1023   "KRN",19,1 0989,"RPC" ,1135,0)
  1024   ORQQPX REM INDERS LIS T
  1025   "KRN",19,1 0989,"RPC" ,1136,0)
  1026   ORQQVI NOT EVIT
  1027   "KRN",19,1 0989,"RPC" ,1137,0)
  1028   ORQQVI VIT ALS
  1029   "KRN",19,1 0989,"RPC" ,1138,0)
  1030   ORQQVI VIT ALS FOR DA TE RANGE
  1031   "KRN",19,1 0989,"RPC" ,1139,0)
  1032   ORQQVI1 DE TAIL
  1033   "KRN",19,1 0989,"RPC" ,1140,0)
  1034   ORQQVI1 GR ID
  1035   "KRN",19,1 0989,"RPC" ,1141,0)
  1036   ORQQVI2 VI TALS HELP
  1037   "KRN",19,1 0989,"RPC" ,1142,0)
  1038   ORQQVI2 VI TALS RATE  CHECK
  1039   "KRN",19,1 0989,"RPC" ,1144,0)
  1040   ORQQVI2 VI TALS VAL &  STORE
  1041   "KRN",19,1 0989,"RPC" ,1145,0)
  1042   ORQQVI2 VI TALS VALID ATE
  1043   "KRN",19,1 0989,"RPC" ,1146,0)
  1044   ORQQVI2 VI TALS VALID ATE TYPE
  1045   "KRN",19,1 0989,"RPC" ,1147,0)
  1046   ORQQVS DET AIL NOTES
  1047   "KRN",19,1 0989,"RPC" ,1148,0)
  1048   ORQQVS DET AIL SUMMAR Y
  1049   "KRN",19,1 0989,"RPC" ,1149,0)
  1050   ORQQVS VIS ITS/APPTS
  1051   "KRN",19,1 0989,"RPC" ,1150,0)
  1052   ORQQXMB MA IL GROUPS
  1053   "KRN",19,1 0989,"RPC" ,1151,0)
  1054   ORQQXQA PA TIENT
  1055   "KRN",19,1 0989,"RPC" ,1152,0)
  1056   ORQQXQA US ER
  1057   "KRN",19,1 0989,"RPC" ,1153,0)
  1058   ORWCH LOAD ALL
  1059   "KRN",19,1 0989,"RPC" ,1154,0)
  1060   ORWCH LOAD SIZ
  1061   "KRN",19,1 0989,"RPC" ,1155,0)
  1062   ORWCH SAVE ALL
  1063   "KRN",19,1 0989,"RPC" ,1156,0)
  1064   ORWCH SAVE SIZ
  1065   "KRN",19,1 0989,"RPC" ,1157,0)
  1066   ORWCS LIST  OF CONSUL T REPORTS
  1067   "KRN",19,1 0989,"RPC" ,1158,0)
  1068   ORWCS PRIN T REPORT
  1069   "KRN",19,1 0989,"RPC" ,1159,0)
  1070   ORWCS REPO RT TEXT
  1071   "KRN",19,1 0989,"RPC" ,1160,0)
  1072   ORWCV DTLV ST
  1073   "KRN",19,1 0989,"RPC" ,1161,0)
  1074   ORWCV LAB
  1075   "KRN",19,1 0989,"RPC" ,1162,0)
  1076   ORWCV POLL
  1077   "KRN",19,1 0989,"RPC" ,1163,0)
  1078   ORWCV STAR T
  1079   "KRN",19,1 0989,"RPC" ,1164,0)
  1080   ORWCV STOP
  1081   "KRN",19,1 0989,"RPC" ,1165,0)
  1082   ORWCV VST
  1083   "KRN",19,1 0989,"RPC" ,1166,0)
  1084   ORWD DEF
  1085   "KRN",19,1 0989,"RPC" ,1167,0)
  1086   ORWD DT
  1087   "KRN",19,1 0989,"RPC" ,1168,0)
  1088   ORWD FORMI D
  1089   "KRN",19,1 0989,"RPC" ,1169,0)
  1090   ORWD GET4E DIT
  1091   "KRN",19,1 0989,"RPC" ,1170,0)
  1092   ORWD KEY
  1093   "KRN",19,1 0989,"RPC" ,1171,0)
  1094   ORWD OI
  1095   "KRN",19,1 0989,"RPC" ,1172,0)
  1096   ORWD PROVK EY
  1097   "KRN",19,1 0989,"RPC" ,1173,0)
  1098   ORWD SAVE
  1099   "KRN",19,1 0989,"RPC" ,1174,0)
  1100   ORWD SAVEA CT
  1101   "KRN",19,1 0989,"RPC" ,1175,0)
  1102   ORWD SIGN
  1103   "KRN",19,1 0989,"RPC" ,1176,0)
  1104   ORWD VALID ACT
  1105   "KRN",19,1 0989,"RPC" ,1177,0)
  1106   ORWD1 PARA M
  1107   "KRN",19,1 0989,"RPC" ,1178,0)
  1108   ORWD1 PRIN TGUI
  1109   "KRN",19,1 0989,"RPC" ,1179,0)
  1110   ORWD1 RVPR INT
  1111   "KRN",19,1 0989,"RPC" ,1180,0)
  1112   ORWD2 DEVI NFO
  1113   "KRN",19,1 0989,"RPC" ,1181,0)
  1114   ORWD2 MANU AL
  1115   "KRN",19,1 0989,"RPC" ,1182,0)
  1116   ORWDAL32 A LLERGY MAT CH
  1117   "KRN",19,1 0989,"RPC" ,1183,0)
  1118   ORWDAL32 D EF
  1119   "KRN",19,1 0989,"RPC" ,1184,0)
  1120   ORWDAL32 S YMPTOMS
  1121   "KRN",19,1 0989,"RPC" ,1185,0)
  1122   ORWDCN32 D EF
  1123   "KRN",19,1 0989,"RPC" ,1186,0)
  1124   ORWDCN32 O RDRMSG
  1125   "KRN",19,1 0989,"RPC" ,1187,0)
  1126   ORWDCN32 P ROCEDURES
  1127   "KRN",19,1 0989,"RPC" ,1188,0)
  1128   ORWDCSLT D EF
  1129   "KRN",19,1 0989,"RPC" ,1189,0)
  1130   ORWDCSLT L OOK200
  1131   "KRN",19,1 0989,"RPC" ,1190,0)
  1132   ORWDFH ADD LATE
  1133   "KRN",19,1 0989,"RPC" ,1191,0)
  1134   ORWDFH ATT R
  1135   "KRN",19,1 0989,"RPC" ,1192,0)
  1136   ORWDFH CUR ISO
  1137   "KRN",19,1 0989,"RPC" ,1193,0)
  1138   ORWDFH DIE TS
  1139   "KRN",19,1 0989,"RPC" ,1194,0)
  1140   ORWDFH FIN DTYP
  1141   "KRN",19,1 0989,"RPC" ,1195,0)
  1142   ORWDFH ISO IEN
  1143   "KRN",19,1 0989,"RPC" ,1196,0)
  1144   ORWDFH ISO LIST
  1145   "KRN",19,1 0989,"RPC" ,1197,0)
  1146   ORWDFH PAR AM
  1147   "KRN",19,1 0989,"RPC" ,1198,0)
  1148   ORWDFH QTY 2CC
  1149   "KRN",19,1 0989,"RPC" ,1199,0)
  1150   ORWDFH TFP ROD
  1151   "KRN",19,1 0989,"RPC" ,1200,0)
  1152   ORWDFH TXT
  1153   "KRN",19,1 0989,"RPC" ,1201,0)
  1154   ORWDGX LOA D
  1155   "KRN",19,1 0989,"RPC" ,1202,0)
  1156   ORWDGX VMD EF
  1157   "KRN",19,1 0989,"RPC" ,1203,0)
  1158   ORWDLR ABB SPEC
  1159   "KRN",19,1 0989,"RPC" ,1204,0)
  1160   ORWDLR ALL SAMP
  1161   "KRN",19,1 0989,"RPC" ,1205,0)
  1162   ORWDLR DEF
  1163   "KRN",19,1 0989,"RPC" ,1206,0)
  1164   ORWDLR LOA D
  1165   "KRN",19,1 0989,"RPC" ,1207,0)
  1166   ORWDLR OIP ARAM
  1167   "KRN",19,1 0989,"RPC" ,1208,0)
  1168   ORWDLR STO P
  1169   "KRN",19,1 0989,"RPC" ,1209,0)
  1170   ORWDLR32 A BBSPEC
  1171   "KRN",19,1 0989,"RPC" ,1210,0)
  1172   ORWDLR32 A LLSAMP
  1173   "KRN",19,1 0989,"RPC" ,1211,0)
  1174   ORWDLR32 A LLSPEC
  1175   "KRN",19,1 0989,"RPC" ,1212,0)
  1176   ORWDLR32 D EF
  1177   "KRN",19,1 0989,"RPC" ,1213,0)
  1178   ORWDLR32 I C DEFAULT
  1179   "KRN",19,1 0989,"RPC" ,1214,0)
  1180   ORWDLR32 I C VALID
  1181   "KRN",19,1 0989,"RPC" ,1215,0)
  1182   ORWDLR32 I MMED COLLE CT
  1183   "KRN",19,1 0989,"RPC" ,1216,0)
  1184   ORWDLR32 L AB COLL TI ME
  1185   "KRN",19,1 0989,"RPC" ,1217,0)
  1186   ORWDLR32 L OAD
  1187   "KRN",19,1 0989,"RPC" ,1218,0)
  1188   ORWDLR32 M AXDAYS
  1189   "KRN",19,1 0989,"RPC" ,1219,0)
  1190   ORWDLR32 O NE SAMPLE
  1191   "KRN",19,1 0989,"RPC" ,1220,0)
  1192   ORWDLR32 O NE SPECIME N
  1193   "KRN",19,1 0989,"RPC" ,1221,0)
  1194   ORWDLR32 S TOP
  1195   "KRN",19,1 0989,"RPC" ,1222,0)
  1196   ORWDOR VMS LCT
  1197   "KRN",19,1 0989,"RPC" ,1227,0)
  1198   ORWDPS32 A LLROUTE
  1199   "KRN",19,1 0989,"RPC" ,1228,0)
  1200   ORWDPS32 A UTH
  1201   "KRN",19,1 0989,"RPC" ,1229,0)
  1202   ORWDPS32 D LGSLCT
  1203   "KRN",19,1 0989,"RPC" ,1230,0)
  1204   ORWDPS32 D OSES
  1205   "KRN",19,1 0989,"RPC" ,1231,0)
  1206   ORWDPS32 D RUGMSG
  1207   "KRN",19,1 0989,"RPC" ,1232,0)
  1208   ORWDPS32 F ORMALT
  1209   "KRN",19,1 0989,"RPC" ,1233,0)
  1210   ORWDPS32 I SSPLY
  1211   "KRN",19,1 0989,"RPC" ,1234,0)
  1212   ORWDPS32 I VAMT
  1213   "KRN",19,1 0989,"RPC" ,1235,0)
  1214   ORWDPS32 M EDISIV
  1215   "KRN",19,1 0989,"RPC" ,1236,0)
  1216   ORWDPS32 O ISLCT
  1217   "KRN",19,1 0989,"RPC" ,1237,0)
  1218   ORWDPS32 S CSTS
  1219   "KRN",19,1 0989,"RPC" ,1238,0)
  1220   ORWDPS32 V ALQTY
  1221   "KRN",19,1 0989,"RPC" ,1239,0)
  1222   ORWDPS32 V ALRATE
  1223   "KRN",19,1 0989,"RPC" ,1240,0)
  1224   ORWDPS32 V ALSCH
  1225   "KRN",19,1 0989,"RPC" ,1241,0)
  1226   ORWDRA DEF
  1227   "KRN",19,1 0989,"RPC" ,1242,0)
  1228   ORWDRA32 A PPROVAL
  1229   "KRN",19,1 0989,"RPC" ,1243,0)
  1230   ORWDRA32 D EF
  1231   "KRN",19,1 0989,"RPC" ,1244,0)
  1232   ORWDRA32 I MTYPSEL
  1233   "KRN",19,1 0989,"RPC" ,1245,0)
  1234   ORWDRA32 I SOLATN
  1235   "KRN",19,1 0989,"RPC" ,1246,0)
  1236   ORWDRA32 L OCTYPE
  1237   "KRN",19,1 0989,"RPC" ,1247,0)
  1238   ORWDRA32 P ROCMSG
  1239   "KRN",19,1 0989,"RPC" ,1248,0)
  1240   ORWDRA32 R ADSRC
  1241   "KRN",19,1 0989,"RPC" ,1249,0)
  1242   ORWDRA32 R AORDITM
  1243   "KRN",19,1 0989,"RPC" ,1250,0)
  1244   ORWDX AGAI N
  1245   "KRN",19,1 0989,"RPC" ,1251,0)
  1246   ORWDX DGRP
  1247   "KRN",19,1 0989,"RPC" ,1252,0)
  1248   ORWDX DISM SG
  1249   "KRN",19,1 0989,"RPC" ,1253,0)
  1250   ORWDX DLGD EF
  1251   "KRN",19,1 0989,"RPC" ,1254,0)
  1252   ORWDX DLGI D
  1253   "KRN",19,1 0989,"RPC" ,1255,0)
  1254   ORWDX DLGQ UIK
  1255   "KRN",19,1 0989,"RPC" ,1256,0)
  1256   ORWDX FORM ID
  1257   "KRN",19,1 0989,"RPC" ,1257,0)
  1258   ORWDX LOAD RSP
  1259   "KRN",19,1 0989,"RPC" ,1258,0)
  1260   ORWDX LOCK
  1261   "KRN",19,1 0989,"RPC" ,1259,0)
  1262   ORWDX MSG
  1263   "KRN",19,1 0989,"RPC" ,1260,0)
  1264   ORWDX ORDI TM
  1265   "KRN",19,1 0989,"RPC" ,1261,0)
  1266   ORWDX SAVE
  1267   "KRN",19,1 0989,"RPC" ,1262,0)
  1268   ORWDX SEND
  1269   "KRN",19,1 0989,"RPC" ,1263,0)
  1270   ORWDX SEND P
  1271   "KRN",19,1 0989,"RPC" ,1264,0)
  1272   ORWDX UNLO CK
  1273   "KRN",19,1 0989,"RPC" ,1265,0)
  1274   ORWDX WRLS T
  1275   "KRN",19,1 0989,"RPC" ,1266,0)
  1276   ORWDXA ALE RT
  1277   "KRN",19,1 0989,"RPC" ,1267,0)
  1278   ORWDXA COM PLETE
  1279   "KRN",19,1 0989,"RPC" ,1268,0)
  1280   ORWDXA DC
  1281   "KRN",19,1 0989,"RPC" ,1269,0)
  1282   ORWDX2 DCR EASON
  1283   "KRN",19,1 0989,"RPC" ,1270,0)
  1284   ORWDXA DCR EQIEN
  1285   "KRN",19,1 0989,"RPC" ,1271,0)
  1286   ORWDXA FLA G
  1287   "KRN",19,1 0989,"RPC" ,1272,0)
  1288   ORWDXA FLA GTXT
  1289   "KRN",19,1 0989,"RPC" ,1273,0)
  1290   ORWDXA HOL D
  1291   "KRN",19,1 0989,"RPC" ,1274,0)
  1292   ORWDXA UNF LAG
  1293   "KRN",19,1 0989,"RPC" ,1275,0)
  1294   ORWDXA UNH OLD
  1295   "KRN",19,1 0989,"RPC" ,1276,0)
  1296   ORWDXA VAL ID
  1297   "KRN",19,1 0989,"RPC" ,1277,0)
  1298   ORWDXA VER IFY
  1299   "KRN",19,1 0989,"RPC" ,1278,0)
  1300   ORWDXA WCG ET
  1301   "KRN",19,1 0989,"RPC" ,1279,0)
  1302   ORWDXA WCP UT
  1303   "KRN",19,1 0989,"RPC" ,1280,0)
  1304   ORWDXC ACC EPT
  1305   "KRN",19,1 0989,"RPC" ,1281,0)
  1306   ORWDXC DEL AY
  1307   "KRN",19,1 0989,"RPC" ,1282,0)
  1308   ORWDXC DEL ORD
  1309   "KRN",19,1 0989,"RPC" ,1283,0)
  1310   ORWDXC DIS PLAY
  1311   "KRN",19,1 0989,"RPC" ,1284,0)
  1312   ORWDXC FIL LID
  1313   "KRN",19,1 0989,"RPC" ,1285,0)
  1314   ORWDXC ON
  1315   "KRN",19,1 0989,"RPC" ,1286,0)
  1316   ORWDXC SAV ECHK
  1317   "KRN",19,1 0989,"RPC" ,1287,0)
  1318   ORWDXC SES SION
  1319   "KRN",19,1 0989,"RPC" ,1288,0)
  1320   ORWDXM AUT OACK
  1321   "KRN",19,1 0989,"RPC" ,1289,0)
  1322   ORWDXM DLG NAME
  1323   "KRN",19,1 0989,"RPC" ,1290,0)
  1324   ORWDXM FOR MID
  1325   "KRN",19,1 0989,"RPC" ,1291,0)
  1326   ORWDXM LOA DSET
  1327   "KRN",19,1 0989,"RPC" ,1292,0)
  1328   ORWDXM MEN U
  1329   "KRN",19,1 0989,"RPC" ,1293,0)
  1330   ORWDXM MST YLE
  1331   "KRN",19,1 0989,"RPC" ,1294,0)
  1332   ORWDXM PRO MPTS
  1333   "KRN",19,1 0989,"RPC" ,1295,0)
  1334   ORWDXM1 BL DQRSP
  1335   "KRN",19,1 0989,"RPC" ,1296,0)
  1336   ORWDXM2 CL RRCL
  1337   "KRN",19,1 0989,"RPC" ,1297,0)
  1338   ORWDXQ DLG NAME
  1339   "KRN",19,1 0989,"RPC" ,1298,0)
  1340   ORWDXQ DLG SAVE
  1341   "KRN",19,1 0989,"RPC" ,1299,0)
  1342   ORWDXQ GET QLST
  1343   "KRN",19,1 0989,"RPC" ,1300,0)
  1344   ORWDXQ GET QNAM
  1345   "KRN",19,1 0989,"RPC" ,1301,0)
  1346   ORWDXQ PUT QLST
  1347   "KRN",19,1 0989,"RPC" ,1302,0)
  1348   ORWDXQ PUT QNAM
  1349   "KRN",19,1 0989,"RPC" ,1303,0)
  1350   ORWDXR ISR EL
  1351   "KRN",19,1 0989,"RPC" ,1304,0)
  1352   ORWDXR REN EW
  1353   "KRN",19,1 0989,"RPC" ,1305,0)
  1354   ORWDXR RNW FLDS
  1355   "KRN",19,1 0989,"RPC" ,1306,0)
  1356   ORWGEPT CL INRNG
  1357   "KRN",19,1 0989,"RPC" ,1307,0)
  1358   ORWLR CUMU LATIVE REP ORT
  1359   "KRN",19,1 0989,"RPC" ,1308,0)
  1360   ORWLR CUMU LATIVE SEC TION
  1361   "KRN",19,1 0989,"RPC" ,1309,0)
  1362   ORWLR REPO RT LISTS
  1363   "KRN",19,1 0989,"RPC" ,1310,0)
  1364   ORWLRR ALL TESTS
  1365   "KRN",19,1 0989,"RPC" ,1311,0)
  1366   ORWLRR ATE STS
  1367   "KRN",19,1 0989,"RPC" ,1312,0)
  1368   ORWLRR ATG
  1369   "KRN",19,1 0989,"RPC" ,1313,0)
  1370   ORWLRR ATO MICS
  1371   "KRN",19,1 0989,"RPC" ,1314,0)
  1372   ORWLRR CHA RT
  1373   "KRN",19,1 0989,"RPC" ,1315,0)
  1374   ORWLRR CHE MTEST
  1375   "KRN",19,1 0989,"RPC" ,1316,0)
  1376   ORWLRR GRI D
  1377   "KRN",19,1 0989,"RPC" ,1317,0)
  1378   ORWLRR INT ERIM
  1379   "KRN",19,1 0989,"RPC" ,1318,0)
  1380   ORWLRR INT ERIMG
  1381   "KRN",19,1 0989,"RPC" ,1319,0)
  1382   ORWLRR INT ERIMS
  1383   "KRN",19,1 0989,"RPC" ,1320,0)
  1384   ORWLRR MIC RO
  1385   "KRN",19,1 0989,"RPC" ,1321,0)
  1386   ORWLRR NEW OLD
  1387   "KRN",19,1 0989,"RPC" ,1322,0)
  1388   ORWLRR PAR AM
  1389   "KRN",19,1 0989,"RPC" ,1323,0)
  1390   ORWLRR SPE C
  1391   "KRN",19,1 0989,"RPC" ,1324,0)
  1392   ORWLRR TG
  1393   "KRN",19,1 0989,"RPC" ,1325,0)
  1394   ORWLRR USE RS
  1395   "KRN",19,1 0989,"RPC" ,1326,0)
  1396   ORWLRR UTG A
  1397   "KRN",19,1 0989,"RPC" ,1327,0)
  1398   ORWLRR UTG D
  1399   "KRN",19,1 0989,"RPC" ,1328,0)
  1400   ORWLRR UTG R
  1401   "KRN",19,1 0989,"RPC" ,1329,0)
  1402   ORWMC PATI ENT PROCED URES
  1403   "KRN",19,1 0989,"RPC" ,1330,0)
  1404   ORWOR RESU LT
  1405   "KRN",19,1 0989,"RPC" ,1331,0)
  1406   ORWOR SHEE TS
  1407   "KRN",19,1 0989,"RPC" ,1332,0)
  1408   ORWOR TSAL L
  1409   "KRN",19,1 0989,"RPC" ,1333,0)
  1410   ORWORB AUT OUNFLAG OR DERS
  1411   "KRN",19,1 0989,"RPC" ,1334,0)
  1412   ORWORB FAS TUSER
  1413   "KRN",19,1 0989,"RPC" ,1335,0)
  1414   ORWORB GET  TIU ALERT  INFO
  1415   "KRN",19,1 0989,"RPC" ,1336,0)
  1416   ORWORB GET DATA
  1417   "KRN",19,1 0989,"RPC" ,1337,0)
  1418   ORWORB KIL L UNSIG OR DERS ALERT
  1419   "KRN",19,1 0989,"RPC" ,1339,0)
  1420   ORWORDG AL LTREE
  1421   "KRN",19,1 0989,"RPC" ,1340,0)
  1422   ORWORDG GR PSEQB
  1423   "KRN",19,1 0989,"RPC" ,1341,0)
  1424   ORWORDG IE N
  1425   "KRN",19,1 0989,"RPC" ,1342,0)
  1426   ORWORDG MA PSEQ
  1427   "KRN",19,1 0989,"RPC" ,1343,0)
  1428   ORWORDG RE VSTS
  1429   "KRN",19,1 0989,"RPC" ,1344,0)
  1430   ORWORR AGE T
  1431   "KRN",19,1 0989,"RPC" ,1345,0)
  1432   ORWORR GET
  1433   "KRN",19,1 0989,"RPC" ,1346,0)
  1434   ORWORR GET 4LST
  1435   "KRN",19,1 0989,"RPC" ,1347,0)
  1436   ORWORR GET BYIFN
  1437   "KRN",19,1 0989,"RPC" ,1348,0)
  1438   ORWORR GET TXT
  1439   "KRN",19,1 0989,"RPC" ,1349,0)
  1440   ORWPCE ACT IVE PROV
  1441   "KRN",19,1 0989,"RPC" ,1350,0)
  1442   ORWPCE ACT PROB
  1443   "KRN",19,1 0989,"RPC" ,1351,0)
  1444   ORWPCE CPT REQD
  1445   "KRN",19,1 0989,"RPC" ,1352,0)
  1446   ORWPCE DEL ETE
  1447   "KRN",19,1 0989,"RPC" ,1353,0)
  1448   ORWPCE DIA G
  1449   "KRN",19,1 0989,"RPC" ,1354,0)
  1450   ORWPCE GET  EDUCATION  TOPICS
  1451   "KRN",19,1 0989,"RPC" ,1355,0)
  1452   ORWPCE GET  EXAM TYPE
  1453   "KRN",19,1 0989,"RPC" ,1356,0)
  1454   ORWPCE GET  HEALTH FA CTORS TY
  1455   "KRN",19,1 0989,"RPC" ,1357,0)
  1456   ORWPCE GET  IMMUNIZAT ION TYPE
  1457   "KRN",19,1 0989,"RPC" ,1358,0)
  1458   ORWPCE GET  SET OF CO DES
  1459   "KRN",19,1 0989,"RPC" ,1359,0)
  1460   ORWPCE GET  SKIN TEST  TYPE
  1461   "KRN",19,1 0989,"RPC" ,1360,0)
  1462   ORWPCE GET  TREATMENT  TYPE
  1463   "KRN",19,1 0989,"RPC" ,1361,0)
  1464   ORWPCE HF
  1465   "KRN",19,1 0989,"RPC" ,1362,0)
  1466   ORWPCE IMM
  1467   "KRN",19,1 0989,"RPC" ,1363,0)
  1468   ORWPCE LEX
  1469   "KRN",19,1 0989,"RPC" ,1364,0)
  1470   ORWPCE LEX CODE
  1471   "KRN",19,1 0989,"RPC" ,1366,0)
  1472   ORWPCE NOT EVSTR
  1473   "KRN",19,1 0989,"RPC" ,1367,0)
  1474   ORWPCE PCE 4NOTE
  1475   "KRN",19,1 0989,"RPC" ,1368,0)
  1476   ORWPCE PED
  1477   "KRN",19,1 0989,"RPC" ,1369,0)
  1478   ORWPCE PRO C
  1479   "KRN",19,1 0989,"RPC" ,1370,0)
  1480   ORWPCE SAV E
  1481   "KRN",19,1 0989,"RPC" ,1371,0)
  1482   ORWPCE SCD IS
  1483   "KRN",19,1 0989,"RPC" ,1372,0)
  1484   ORWPCE SCS EL
  1485   "KRN",19,1 0989,"RPC" ,1373,0)
  1486   ORWPCE SK
  1487   "KRN",19,1 0989,"RPC" ,1374,0)
  1488   ORWPCE TRT
  1489   "KRN",19,1 0989,"RPC" ,1375,0)
  1490   ORWPCE VIS IT
  1491   "KRN",19,1 0989,"RPC" ,1376,0)
  1492   ORWPCE XAM
  1493   "KRN",19,1 0989,"RPC" ,1377,0)
  1494   ORWPS ACTI VE
  1495   "KRN",19,1 0989,"RPC" ,1378,0)
  1496   ORWPS COVE R
  1497   "KRN",19,1 0989,"RPC" ,1379,0)
  1498   ORWPS DETA IL
  1499   "KRN",19,1 0989,"RPC" ,1380,0)
  1500   ORWPS1 NEW DLG
  1501   "KRN",19,1 0989,"RPC" ,1381,0)
  1502   ORWPS1 PIC KUP
  1503   "KRN",19,1 0989,"RPC" ,1382,0)
  1504   ORWPS1 REF ILL
  1505   "KRN",19,1 0989,"RPC" ,1383,0)
  1506   ORWPT ADMI TLST
  1507   "KRN",19,1 0989,"RPC" ,1384,0)
  1508   ORWPT APPT LST
  1509   "KRN",19,1 0989,"RPC" ,1385,0)
  1510   ORWPT CLIN RNG
  1511   "KRN",19,1 0989,"RPC" ,1386,0)
  1512   ORWPT CWAD
  1513   "KRN",19,1 0989,"RPC" ,1387,0)
  1514   ORWPT DFLT SRC
  1515   "KRN",19,1 0989,"RPC" ,1388,0)
  1516   ORWPT DIED ON
  1517   "KRN",19,1 0989,"RPC" ,1389,0)
  1518   ORWPT DISC HARGE
  1519   "KRN",19,1 0989,"RPC" ,1390,0)
  1520   ORWPT ENCT ITL
  1521   "KRN",19,1 0989,"RPC" ,1391,0)
  1522   ORWPT FULL SSN
  1523   "KRN",19,1 0989,"RPC" ,1392,0)
  1524   ORWPT ID I NFO
  1525   "KRN",19,1 0989,"RPC" ,1393,0)
  1526   ORWPT LAST 5
  1527   "KRN",19,1 0989,"RPC" ,1394,0)
  1528   ORWPT LIST  ALL
  1529   "KRN",19,1 0989,"RPC" ,1395,0)
  1530   ORWPT PTIN Q
  1531   "KRN",19,1 0989,"RPC" ,1396,0)
  1532   ORWPT SAVD FLT
  1533   "KRN",19,1 0989,"RPC" ,1397,0)
  1534   ORWPT SELC HK
  1535   "KRN",19,1 0989,"RPC" ,1398,0)
  1536   ORWPT SELE CT
  1537   "KRN",19,1 0989,"RPC" ,1399,0)
  1538   ORWPT SHAR E
  1539   "KRN",19,1 0989,"RPC" ,1400,0)
  1540   ORWPT TOP
  1541   "KRN",19,1 0989,"RPC" ,1401,0)
  1542   ORWPT1 PCD ETAIL
  1543   "KRN",19,1 0989,"RPC" ,1402,0)
  1544   ORWPT1 PRC ARE
  1545   "KRN",19,1 0989,"RPC" ,1403,0)
  1546   ORWPT16 AD MITLST
  1547   "KRN",19,1 0989,"RPC" ,1404,0)
  1548   ORWPT16 AP PTLST
  1549   "KRN",19,1 0989,"RPC" ,1405,0)
  1550   ORWPT16 DE MOG
  1551   "KRN",19,1 0989,"RPC" ,1406,0)
  1552   ORWPT16 GE TVSIT
  1553   "KRN",19,1 0989,"RPC" ,1407,0)
  1554   ORWPT16 ID  INFO
  1555   "KRN",19,1 0989,"RPC" ,1408,0)
  1556   ORWPT16 LI ST ALL
  1557   "KRN",19,1 0989,"RPC" ,1409,0)
  1558   ORWPT16 LO OKUP
  1559   "KRN",19,1 0989,"RPC" ,1410,0)
  1560   ORWPT16 PS CNVT
  1561   "KRN",19,1 0989,"RPC" ,1411,0)
  1562   ORWRA DEFA ULT EXAM S ETTINGS
  1563   "KRN",19,1 0989,"RPC" ,1412,0)
  1564   ORWRA IMAG ING EXAMS
  1565   "KRN",19,1 0989,"RPC" ,1413,0)
  1566   ORWRA PRIN T REPORT
  1567   "KRN",19,1 0989,"RPC" ,1414,0)
  1568   ORWRA REPO RT TEXT
  1569   "KRN",19,1 0989,"RPC" ,1415,0)
  1570   ORWRP PRIN T LAB REPO RTS
  1571   "KRN",19,1 0989,"RPC" ,1416,0)
  1572   ORWRP PRIN T REPORT
  1573   "KRN",19,1 0989,"RPC" ,1417,0)
  1574   ORWRP REPO RT LISTS
  1575   "KRN",19,1 0989,"RPC" ,1418,0)
  1576   ORWRP REPO RT TEXT
  1577   "KRN",19,1 0989,"RPC" ,1419,0)
  1578   ORWRP1 LIS TNUTR
  1579   "KRN",19,1 0989,"RPC" ,1420,0)
  1580   ORWRP16 RE PORT LISTS
  1581   "KRN",19,1 0989,"RPC" ,1421,0)
  1582   ORWRP16 RE PORT TEXT
  1583   "KRN",19,1 0989,"RPC" ,1422,0)
  1584   ORWTIU GET  DCSUMM CO NTEXT
  1585   "KRN",19,1 0989,"RPC" ,1423,0)
  1586   ORWTIU GET  TIU CONTE XT
  1587   "KRN",19,1 0989,"RPC" ,1424,0)
  1588   ORWTIU SAV E DCSUMM C ONTEXT
  1589   "KRN",19,1 0989,"RPC" ,1425,0)
  1590   ORWTIU SAV E TIU CONT EXT
  1591   "KRN",19,1 0989,"RPC" ,1426,0)
  1592   ORWU CLINL OC
  1593   "KRN",19,1 0989,"RPC" ,1427,0)
  1594   ORWU DEVIC E
  1595   "KRN",19,1 0989,"RPC" ,1428,0)
  1596   ORWU DT
  1597   "KRN",19,1 0989,"RPC" ,1429,0)
  1598   ORWU EXTNA ME
  1599   "KRN",19,1 0989,"RPC" ,1430,0)
  1600   ORWU GBLRE F
  1601   "KRN",19,1 0989,"RPC" ,1431,0)
  1602   ORWU GENER IC
  1603   "KRN",19,1 0989,"RPC" ,1432,0)
  1604   ORWU HASKE Y
  1605   "KRN",19,1 0989,"RPC" ,1433,0)
  1606   ORWU HOSPL OC
  1607   "KRN",19,1 0989,"RPC" ,1434,0)
  1608   ORWU INPLO C
  1609   "KRN",19,1 0989,"RPC" ,1435,0)
  1610   ORWU NEWPE RS
  1611   "KRN",19,1 0989,"RPC" ,1436,0)
  1612   ORWU NPHAS KEY
  1613   "KRN",19,1 0989,"RPC" ,1437,0)
  1614   ORWU PATCH
  1615   "KRN",19,1 0989,"RPC" ,1438,0)
  1616   ORWU TOOLM ENU
  1617   "KRN",19,1 0989,"RPC" ,1439,0)
  1618   ORWU USERI NFO
  1619   "KRN",19,1 0989,"RPC" ,1440,0)
  1620   ORWU VALDT
  1621   "KRN",19,1 0989,"RPC" ,1441,0)
  1622   ORWU VALID SIG
  1623   "KRN",19,1 0989,"RPC" ,1442,0)
  1624   ORWU VERSR V
  1625   "KRN",19,1 0989,"RPC" ,1443,0)
  1626   ORWU16 DEV ICE
  1627   "KRN",19,1 0989,"RPC" ,1444,0)
  1628   ORWU16 HOS PLOC
  1629   "KRN",19,1 0989,"RPC" ,1445,0)
  1630   ORWU16 NEW PERS
  1631   "KRN",19,1 0989,"RPC" ,1446,0)
  1632   ORWU16 USE RINFO
  1633   "KRN",19,1 0989,"RPC" ,1447,0)
  1634   ORWU16 VAL DT
  1635   "KRN",19,1 0989,"RPC" ,1448,0)
  1636   ORWU16 VAL IDSIG
  1637   "KRN",19,1 0989,"RPC" ,1449,0)
  1638   ORWUH POPU P
  1639   "KRN",19,1 0989,"RPC" ,1450,0)
  1640   ORWUX SYMT AB
  1641   "KRN",19,1 0989,"RPC" ,1451,0)
  1642   ORWUXT LST
  1643   "KRN",19,1 0989,"RPC" ,1452,0)
  1644   ORWUXT REF
  1645   "KRN",19,1 0989,"RPC" ,1453,0)
  1646   ORWUXT VAL
  1647   "KRN",19,1 0989,"RPC" ,1454,0)
  1648   ORQQCN DEF AULT REQUE ST REASON
  1649   "KRN",19,1 0989,"RPC" ,1455,0)
  1650   ORWDX LOCK  ORDER
  1651   "KRN",19,1 0989,"RPC" ,1456,0)
  1652   ORWDX UNLO CK ORDER
  1653   "KRN",19,1 0989,"RPC" ,1457,0)
  1654   ORWDCN32 N EWDLG
  1655   "KRN",19,1 0989,"RPC" ,1458,0)
  1656   ORQQCN GET  SERVICE I EN
  1657   "KRN",19,1 0989,"RPC" ,1459,0)
  1658   ORQQCN PRO VDX
  1659   "KRN",19,1 0989,"RPC" ,1460,0)
  1660   TIU TEMPLA TE ACCESS  LEVEL
  1661   "KRN",19,1 0989,"RPC" ,1461,0)
  1662   TIU GET DO CUMENT TIT LE
  1663   "KRN",19,1 0989,"RPC" ,1462,0)
  1664   ORWPT BYWA RD
  1665   "KRN",19,1 0989,"RPC" ,1463,0)
  1666   ORQQPX GET  HIST LOCA TIONS
  1667   "KRN",19,1 0989,"RPC" ,1464,0)
  1668   ORQQPX NEW  REMINDERS  ACTIVE
  1669   "KRN",19,1 0989,"RPC" ,1465,0)
  1670   ORWPCE GET  VISIT
  1671   "KRN",19,1 0989,"RPC" ,1480,0)
  1672   TIU GET RE QUEST
  1673   "KRN",19,1 0989,"RPC" ,1481,0)
  1674   ORWORB KIL L EXPIR ME D ALERT
  1675   "KRN",19,1 0989,"RPC" ,1482,0)
  1676   DG CHK BS5  XREF ARRA Y
  1677   "KRN",19,1 0989,"RPC" ,1483,0)
  1678   DG CHK BS5  XREF Y/N
  1679   "KRN",19,1 0989,"RPC" ,1484,0)
  1680   DG CHK PAT /DIV MEANS  TEST
  1681   "KRN",19,1 0989,"RPC" ,1485,0)
  1682   DG SENSITI VE RECORD  ACCESS
  1683   "KRN",19,1 0989,"RPC" ,1486,0)
  1684   DG SENSITI VE RECORD  BULLETIN
  1685   "KRN",19,1 0989,"RPC" ,1487,0)
  1686   ORQQCN CAN EDIT
  1687   "KRN",19,1 0989,"RPC" ,1488,0)
  1688   ORQQCN EDI T DEFAULT  REASON
  1689   "KRN",19,1 0989,"RPC" ,1489,0)
  1690   ORQQCN SF5 13 WINDOWS  PRINT
  1691   "KRN",19,1 0989,"RPC" ,1490,0)
  1692   ORWCIRN FA CLIST
  1693   "KRN",19,1 0989,"RPC" ,1491,0)
  1694   ORWDLR32 G ET LAB TIM ES
  1695   "KRN",19,1 0989,"RPC" ,1492,0)
  1696   ORWPT LEGA CY
  1697   "KRN",19,1 0989,"RPC" ,1493,0)
  1698   ORWRP GET  DEFAULT PR INTER
  1699   "KRN",19,1 0989,"RPC" ,1494,0)
  1700   ORWRP PRIN T WINDOWS  REPORT
  1701   "KRN",19,1 0989,"RPC" ,1495,0)
  1702   ORWRP SAVE  DEFAULT P RINTER
  1703   "KRN",19,1 0989,"RPC" ,1496,0)
  1704   ORWRP WINP RINT DEFAU LT
  1705   "KRN",19,1 0989,"RPC" ,1497,0)
  1706   ORWRP WINP RINT LAB R EPORTS
  1707   "KRN",19,1 0989,"RPC" ,1498,0)
  1708   ORWTIU WIN PRINT NOTE
  1709   "KRN",19,1 0989,"RPC" ,1500,0)
  1710   ORWPCE GAF OK
  1711   "KRN",19,1 0989,"RPC" ,1501,0)
  1712   ORWPCE MHC LINIC
  1713   "KRN",19,1 0989,"RPC" ,1502,0)
  1714   ORWPCE LOA DGAF
  1715   "KRN",19,1 0989,"RPC" ,1503,0)
  1716   ORWPCE SAV EGAF
  1717   "KRN",19,1 0989,"RPC" ,1504,0)
  1718   ORWPCE FOR CE
  1719   "KRN",19,1 0989,"RPC" ,1505,0)
  1720   TIU GET DE FAULT PROV IDER
  1721   "KRN",19,1 0989,"RPC" ,1506,0)
  1722   TIU GET SI TE PARAMET ERS
  1723   "KRN",19,1 0989,"RPC" ,1507,0)
  1724   TIU IS USE R A PROVID ER?
  1725   "KRN",19,1 0989,"RPC" ,1508,0)
  1726   ORWOR VWGE T
  1727   "KRN",19,1 0989,"RPC" ,1509,0)
  1728   ORWOR VWSE T
  1729   "KRN",19,1 0989,"RPC" ,1510,0)
  1730   ORWU PARAM
  1731   "KRN",19,1 0989,"RPC" ,1511,0)
  1732   ORWDOR LKS CRN
  1733   "KRN",19,1 0989,"RPC" ,1512,0)
  1734   ORWDOR VAL NUM
  1735   "KRN",19,1 0989,"RPC" ,1513,0)
  1736   ORWDPS32 V ALROUTE
  1737   "KRN",19,1 0989,"RPC" ,1515,0)
  1738   ORWORB UNS IG ORDERS  FOLLOWUP
  1739   "KRN",19,1 0989,"RPC" ,1516,0)
  1740   ORWTIU GET  LISTBOX I TEM
  1741   "KRN",19,1 0989,"RPC" ,1517,0)
  1742   ORWRP2 HS  COMP FILES
  1743   "KRN",19,1 0989,"RPC" ,1518,0)
  1744   ORWRP2 HS  COMPONENTS
  1745   "KRN",19,1 0989,"RPC" ,1519,0)
  1746   ORWRP2 HS  FILE LOOKU P
  1747   "KRN",19,1 0989,"RPC" ,1520,0)
  1748   ORWRP2 HS  REPORT TEX T
  1749   "KRN",19,1 0989,"RPC" ,1521,0)
  1750   ORWRP2 HS  SUBITEMS
  1751   "KRN",19,1 0989,"RPC" ,1522,0)
  1752   ORWPCE HAS CPT
  1753   "KRN",19,1 0989,"RPC" ,1523,0)
  1754   ORWPCE ASK PCE
  1755   "KRN",19,1 0989,"RPC" ,1524,0)
  1756   ORWPCE MHT ESTOK
  1757   "KRN",19,1 0989,"RPC" ,1525,0)
  1758   ORWPCE GAF URL
  1759   "KRN",19,1 0989,"RPC" ,1526,0)
  1760   ORQQPXRM D IALOG PROM PTS
  1761   "KRN",19,1 0989,"RPC" ,1527,0)
  1762   ORQQPXRM E DUCATION S UBTOPICS
  1763   "KRN",19,1 0989,"RPC" ,1528,0)
  1764   ORQQPXRM E DUCATION S UMMARY
  1765   "KRN",19,1 0989,"RPC" ,1529,0)
  1766   ORQQPXRM E DUCATION T OPIC
  1767   "KRN",19,1 0989,"RPC" ,1530,0)
  1768   ORQQPXRM M ENTAL HEAL TH
  1769   "KRN",19,1 0989,"RPC" ,1531,0)
  1770   ORQQPXRM M ENTAL HEAL TH RESULTS
  1771   "KRN",19,1 0989,"RPC" ,1532,0)
  1772   ORQQPXRM M ENTAL HEAL TH SAVE
  1773   "KRN",19,1 0989,"RPC" ,1533,0)
  1774   ORQQPXRM P ROGRESS NO TE HEADER
  1775   "KRN",19,1 0989,"RPC" ,1534,0)
  1776   ORQQPXRM R EMINDER CA TEGORIES
  1777   "KRN",19,1 0989,"RPC" ,1535,0)
  1778   ORQQPXRM R EMINDER DE TAIL
  1779   "KRN",19,1 0989,"RPC" ,1536,0)
  1780   ORQQPXRM R EMINDER DI ALOG
  1781   "KRN",19,1 0989,"RPC" ,1537,0)
  1782   ORQQPXRM R EMINDER EV ALUATION
  1783   "KRN",19,1 0989,"RPC" ,1538,0)
  1784   ORQQPXRM R EMINDER IN QUIRY
  1785   "KRN",19,1 0989,"RPC" ,1539,0)
  1786   ORQQPXRM R EMINDER WE B
  1787   "KRN",19,1 0989,"RPC" ,1540,0)
  1788   ORQQPXRM R EMINDERS A PPLICABLE
  1789   "KRN",19,1 0989,"RPC" ,1541,0)
  1790   ORQQPXRM R EMINDERS U NEVALUATED
  1791   "KRN",19,1 0989,"RPC" ,1542,0)
  1792   ORWLRR INF O
  1793   "KRN",19,1 0989,"RPC" ,1543,0)
  1794   TIU GET PR INT NAME
  1795   "KRN",19,1 0989,"RPC" ,1544,0)
  1796   TIU WAS TH IS SAVED?
  1797   "KRN",19,1 0989,"RPC" ,1545,0)
  1798   ORWD1 COML OC
  1799   "KRN",19,1 0989,"RPC" ,1546,0)
  1800   ORWD1 SIG4 ANY
  1801   "KRN",19,1 0989,"RPC" ,1547,0)
  1802   ORWD1 SIG4 ONE
  1803   "KRN",19,1 0989,"RPC" ,1548,0)
  1804   ORWOR UNSI GN
  1805   "KRN",19,1 0989,"RPC" ,1549,0)
  1806   ORWPT INPL OC
  1807   "KRN",19,1 0989,"RPC" ,1553,0)
  1808   ORQQCN2 GE T PREREQUI SITE
  1809   "KRN",19,1 0989,"RPC" ,1554,0)
  1810   ORQQCN2 SC HEDULE CON SULT
  1811   "KRN",19,1 0989,"RPC" ,1555,0)
  1812   YS GAF API
  1813   "KRN",19,1 0989,"RPC" ,1556,0)
  1814   TIU LONG L IST BOILER PLATED
  1815   "KRN",19,1 0989,"RPC" ,1557,0)
  1816   ORWDLR33 F UTURE LAB  COLLECTS
  1817   "KRN",19,1 0989,"RPC" ,1558,0)
  1818   ORWRP PRIN T REMOTE R EPORT
  1819   "KRN",19,1 0989,"RPC" ,1559,0)
  1820   ORWRP PRIN T WINDOWS  REMOTE
  1821   "KRN",19,1 0989,"RPC" ,1560,0)
  1822   ORWRP PRIN T LAB REMO TE
  1823   "KRN",19,1 0989,"RPC" ,1561,0)
  1824   ORWRP PRIN T WINDOWS  LAB REMOTE
  1825   "KRN",19,1 0989,"RPC" ,1562,0)
  1826   ORQQPXRM D IALOG ACTI VE
  1827   "KRN",19,1 0989,"RPC" ,1563,0)
  1828   ORWPCE MH  TEST AUTHO RIZED
  1829   "KRN",19,1 0989,"RPC" ,1564,0)
  1830   TIU GET BO ILERPLATE
  1831   "KRN",19,1 0989,"RPC" ,1565,0)
  1832   ORWRP2 HS  COMPONENT  SUBS
  1833   "KRN",19,1 0989,"RPC" ,1566,0)
  1834   ORWCH SAVF ONT
  1835   "KRN",19,1 0989,"RPC" ,1567,0)
  1836   ORWDLR33 L ASTTIME
  1837   "KRN",19,1 0989,"RPC" ,1568,0)
  1838   ORWD1 SVON LY
  1839   "KRN",19,1 0989,"RPC" ,1569,0)
  1840   ORWPCE HAS VISIT
  1841   "KRN",19,1 0989,"RPC" ,1570,0)
  1842   ORWPCE GET MOD
  1843   "KRN",19,1 0989,"RPC" ,1571,0)
  1844   ORWPCE CPT MODS
  1845   "KRN",19,1 0989,"RPC" ,1572,0)
  1846   XWB REMOTE  CLEAR
  1847   "KRN",19,1 0989,"RPC" ,1573,0)
  1848   XWB REMOTE  GETDATA
  1849   "KRN",19,1 0989,"RPC" ,1574,0)
  1850   XWB REMOTE  RPC
  1851   "KRN",19,1 0989,"RPC" ,1575,0)
  1852   XWB REMOTE  STATUS CH ECK
  1853   "KRN",19,1 0989,"RPC" ,1576,0)
  1854   ORQQCN ASS IGNABLE ME D RESULTS
  1855   "KRN",19,1 0989,"RPC" ,1577,0)
  1856   ORQQCN ATT ACH MED RE SULTS
  1857   "KRN",19,1 0989,"RPC" ,1578,0)
  1858   ORQQCN GET  MED RESUL T DETAILS
  1859   "KRN",19,1 0989,"RPC" ,1579,0)
  1860   ORQQCN REM OVABLE MED  RESULTS
  1861   "KRN",19,1 0989,"RPC" ,1580,0)
  1862   ORQQCN REM OVE MED RE SULTS
  1863   "KRN",19,1 0989,"RPC" ,1581,0)
  1864   ORQQCN SVC  W/SYNONYM S
  1865   "KRN",19,1 0989,"RPC" ,1582,0)
  1866   ORWCV1 COV ERSHEET LI ST
  1867   "KRN",19,1 0989,"RPC" ,1583,0)
  1868   ORWORB KIL L EXPIR OI  ALERT
  1869   "KRN",19,1 0989,"RPC" ,1584,0)
  1870   ORWPCE GET SVC
  1871   "KRN",19,1 0989,"RPC" ,1585,0)
  1872   ORWRP LAB  REPORT LIS TS
  1873   "KRN",19,1 0989,"RPC" ,1587,0)
  1874   ORWTPN GET CLASS
  1875   "KRN",19,1 0989,"RPC" ,1588,0)
  1876   ORWTPN GET TC
  1877   "KRN",19,1 0989,"RPC" ,1589,0)
  1878   ORWTPO CSA RNGD
  1879   "KRN",19,1 0989,"RPC" ,1590,0)
  1880   ORWTPO CSL ABD
  1881   "KRN",19,1 0989,"RPC" ,1591,0)
  1882   ORWTPO GET TABS
  1883   "KRN",19,1 0989,"RPC" ,1592,0)
  1884   ORWTPP ADD LIST
  1885   "KRN",19,1 0989,"RPC" ,1593,0)
  1886   ORWTPP CHK SURR
  1887   "KRN",19,1 0989,"RPC" ,1594,0)
  1888   ORWTPP CLD AYS
  1889   "KRN",19,1 0989,"RPC" ,1595,0)
  1890   ORWTPP CLE ARNOT
  1891   "KRN",19,1 0989,"RPC" ,1596,0)
  1892   ORWTPP CLR ANGE
  1893   "KRN",19,1 0989,"RPC" ,1597,0)
  1894   ORWTPP CSA RNG
  1895   "KRN",19,1 0989,"RPC" ,1598,0)
  1896   ORWTPP CSL AB
  1897   "KRN",19,1 0989,"RPC" ,1599,0)
  1898   ORWTPP DEL LIST
  1899   "KRN",19,1 0989,"RPC" ,1600,0)
  1900   ORWTPP GET COMBO
  1901   "KRN",19,1 0989,"RPC" ,1601,0)
  1902   ORWTPP GET COS
  1903   "KRN",19,1 0989,"RPC" ,1602,0)
  1904   ORWTPP GET DCOS
  1905   "KRN",19,1 0989,"RPC" ,1603,0)
  1906   ORWTPP GET NOT
  1907   "KRN",19,1 0989,"RPC" ,1604,0)
  1908   ORWTPP GET NOTO
  1909   "KRN",19,1 0989,"RPC" ,1605,0)
  1910   ORWTPP GET OC
  1911   "KRN",19,1 0989,"RPC" ,1606,0)
  1912   ORWTPP GET OTHER
  1913   "KRN",19,1 0989,"RPC" ,1607,0)
  1914   ORWTPP GET REM
  1915   "KRN",19,1 0989,"RPC" ,1608,0)
  1916   ORWTPP GET SUB
  1917   "KRN",19,1 0989,"RPC" ,1609,0)
  1918   ORWTPP GET SURR
  1919   "KRN",19,1 0989,"RPC" ,1610,0)
  1920   ORWTPP GET TD
  1921   "KRN",19,1 0989,"RPC" ,1611,0)
  1922   ORWTPP GET TU
  1923   "KRN",19,1 0989,"RPC" ,1612,0)
  1924   ORWTPP LSD EF
  1925   "KRN",19,1 0989,"RPC" ,1613,0)
  1926   ORWTPP NEW LIST
  1927   "KRN",19,1 0989,"RPC" ,1614,0)
  1928   ORWTPP PLI STS
  1929   "KRN",19,1 0989,"RPC" ,1615,0)
  1930   ORWTPP PLT EAMS
  1931   "KRN",19,1 0989,"RPC" ,1616,0)
  1932   ORWTPP REM LIST
  1933   "KRN",19,1 0989,"RPC" ,1617,0)
  1934   ORWTPP SAV ECD
  1935   "KRN",19,1 0989,"RPC" ,1618,0)
  1936   ORWTPP SAV ECS
  1937   "KRN",19,1 0989,"RPC" ,1619,0)
  1938   ORWTPP SAV ELIST
  1939   "KRN",19,1 0989,"RPC" ,1620,0)
  1940   ORWTPP SAV ENOT
  1941   "KRN",19,1 0989,"RPC" ,1621,0)
  1942   ORWTPP SAV ENOTO
  1943   "KRN",19,1 0989,"RPC" ,1622,0)
  1944   ORWTPP SAV EOC
  1945   "KRN",19,1 0989,"RPC" ,1623,0)
  1946   ORWTPP SAV EPLD
  1947   "KRN",19,1 0989,"RPC" ,1624,0)
  1948   ORWTPP SAV ESURR
  1949   "KRN",19,1 0989,"RPC" ,1625,0)
  1950   ORWTPP SAV ET
  1951   "KRN",19,1 0989,"RPC" ,1626,0)
  1952   ORWTPP SET COMBO
  1953   "KRN",19,1 0989,"RPC" ,1627,0)
  1954   ORWTPP SET DCOS
  1955   "KRN",19,1 0989,"RPC" ,1628,0)
  1956   ORWTPP SET OTHER
  1957   "KRN",19,1 0989,"RPC" ,1629,0)
  1958   ORWTPP SET REM
  1959   "KRN",19,1 0989,"RPC" ,1630,0)
  1960   ORWTPP SET SUB
  1961   "KRN",19,1 0989,"RPC" ,1631,0)
  1962   ORWTPP SOR TDEF
  1963   "KRN",19,1 0989,"RPC" ,1632,0)
  1964   ORWTPP TEA MS
  1965   "KRN",19,1 0989,"RPC" ,1633,0)
  1966   ORWTPT ATE AMS
  1967   "KRN",19,1 0989,"RPC" ,1634,0)
  1968   ORWTPT GET TEAM
  1969   "KRN",19,1 0989,"RPC" ,1635,0)
  1970   TIU TEMPLA TE GET DEF AULTS
  1971   "KRN",19,1 0989,"RPC" ,1636,0)
  1972   TIU TEMPLA TE GET DES CRIPTION
  1973   "KRN",19,1 0989,"RPC" ,1637,0)
  1974   TIU TEMPLA TE SET DEF AULTS
  1975   "KRN",19,1 0989,"RPC" ,1638,0)
  1976   ORWTIU IDN OTES INSTA LLED
  1977   "KRN",19,1 0989,"RPC" ,1639,0)
  1978   ORQQPX GET  FOLDERS
  1979   "KRN",19,1 0989,"RPC" ,1640,0)
  1980   ORQQPX SET  FOLDERS
  1981   "KRN",19,1 0989,"RPC" ,1641,0)
  1982   TIU FIELD  CAN EDIT
  1983   "KRN",19,1 0989,"RPC" ,1642,0)
  1984   TIU FIELD  DELETE
  1985   "KRN",19,1 0989,"RPC" ,1643,0)
  1986   TIU FIELD  EXPORT
  1987   "KRN",19,1 0989,"RPC" ,1644,0)
  1988   TIU FIELD  IMPORT
  1989   "KRN",19,1 0989,"RPC" ,1645,0)
  1990   TIU FIELD  LIST
  1991   "KRN",19,1 0989,"RPC" ,1646,0)
  1992   TIU FIELD  LOAD
  1993   "KRN",19,1 0989,"RPC" ,1647,0)
  1994   TIU FIELD  LOAD BY IE N
  1995   "KRN",19,1 0989,"RPC" ,1648,0)
  1996   TIU FIELD  LOCK
  1997   "KRN",19,1 0989,"RPC" ,1649,0)
  1998   TIU FIELD  NAME IS UN IQUE
  1999   "KRN",19,1 0989,"RPC" ,1650,0)
  2000   TIU FIELD  SAVE
  2001   "KRN",19,1 0989,"RPC" ,1651,0)
  2002   TIU FIELD  UNLOCK
  2003   "KRN",19,1 0989,"RPC" ,1652,0)
  2004   ORWDPS1 CH K94
  2005   "KRN",19,1 0989,"RPC" ,1653,0)
  2006   ORWDPS1 OD SLCT
  2007   "KRN",19,1 0989,"RPC" ,1654,0)
  2008   ORWDPS1 SC HALL
  2009   "KRN",19,1 0989,"RPC" ,1655,0)
  2010   ORWDPS2 AD MIN
  2011   "KRN",19,1 0989,"RPC" ,1656,0)
  2012   ORWDPS2 DA Y2QTY
  2013   "KRN",19,1 0989,"RPC" ,1657,0)
  2014   ORWDPS2 OI SLCT
  2015   "KRN",19,1 0989,"RPC" ,1658,0)
  2016   ORWDPS2 RE QST
  2017   "KRN",19,1 0989,"RPC" ,1659,0)
  2018   ORWDX DGNM
  2019   "KRN",19,1 0989,"RPC" ,1660,0)
  2020   ORWUL FV4D G
  2021   "KRN",19,1 0989,"RPC" ,1661,0)
  2022   ORWUL FVID X
  2023   "KRN",19,1 0989,"RPC" ,1662,0)
  2024   ORWUL FVSU B
  2025   "KRN",19,1 0989,"RPC" ,1663,0)
  2026   ORWUL QV4D G
  2027   "KRN",19,1 0989,"RPC" ,1664,0)
  2028   ORWUL QVID X
  2029   "KRN",19,1 0989,"RPC" ,1665,0)
  2030   ORWUL QVSU B
  2031   "KRN",19,1 0989,"RPC" ,1666,0)
  2032   ORWDPS1 DF LTSPLY
  2033   "KRN",19,1 0989,"RPC" ,1668,0)
  2034   PXRM REMIN DER DIALOG  (TIU)
  2035   "KRN",19,1 0989,"RPC" ,1669,0)
  2036   ORWPCE ANY TIME
  2037   "KRN",19,1 0989,"RPC" ,1670,0)
  2038   ORQQPX GET  DEF LOCAT IONS
  2039   "KRN",19,1 0989,"RPC" ,1671,0)
  2040   ORWTPP GET IMG
  2041   "KRN",19,1 0989,"RPC" ,1672,0)
  2042   ORWTPP SET IMG
  2043   "KRN",19,1 0989,"RPC" ,1673,0)
  2044   ORWTPO GET IMGD
  2045   "KRN",19,1 0989,"RPC" ,1674,0)
  2046   ORQQPX REM  INSERT AT  CURSOR
  2047   "KRN",19,1 0989,"RPC" ,1675,0)
  2048   TIU REMIND ER DIALOGS
  2049   "KRN",19,1 0989,"RPC" ,1676,0)
  2050   TIU REM DL G OK AS TE MPLATE
  2051   "KRN",19,1 0989,"RPC" ,1677,0)
  2052   ORWDPS2 MA XREF
  2053   "KRN",19,1 0989,"RPC" ,1678,0)
  2054   ORWDPS2 SC HREQ
  2055   "KRN",19,1 0989,"RPC" ,1679,0)
  2056   ORWRP COLU MN HEADERS
  2057   "KRN",19,1 0989,"RPC" ,1680,0)
  2058   TIU FIELD  DOLMTEXT
  2059   "KRN",19,1 0989,"RPC" ,1681,0)
  2060   TIU TEMPLA TE PERSONA L OBJECTS
  2061   "KRN",19,1 0989,"RPC" ,1682,0)
  2062   ORWPCE AUT O VISIT TY PE SELECT
  2063   "KRN",19,1 0989,"RPC" ,1683,0)
  2064   ORWDPS2 QT Y2DAY
  2065   "KRN",19,1 0989,"RPC" ,1684,0)
  2066   ORWU HAS O PTION ACCE SS
  2067   "KRN",19,1 0989,"RPC" ,1685,0)
  2068   TIU TEMPLA TE LOCK
  2069   "KRN",19,1 0989,"RPC" ,1686,0)
  2070   ORQQPX LVR EMLST
  2071   "KRN",19,1 0989,"RPC" ,1687,0)
  2072   ORQQPX NEW  COVER SHE ET ACTIVE
  2073   "KRN",19,1 0989,"RPC" ,1688,0)
  2074   ORQQPX NEW  COVER SHE ET REMS
  2075   "KRN",19,1 0989,"RPC" ,1689,0)
  2076   ORQQPX SAV ELVL
  2077   "KRN",19,1 0989,"RPC" ,1690,0)
  2078   PXRM REMIN DER CATEGO RY
  2079   "KRN",19,1 0989,"RPC" ,1691,0)
  2080   PXRM REMIN DERS AND C ATEGORIES
  2081   "KRN",19,1 0989,"RPC" ,1692,0)
  2082   TIU DIV AN D CLASS IN FO
  2083   "KRN",19,1 0989,"RPC" ,1693,0)
  2084   TIU TEMPLA TE GETBOIL
  2085   "KRN",19,1 0989,"RPC" ,1694,0)
  2086   TIU TEMPLA TE GETITEM S
  2087   "KRN",19,1 0989,"RPC" ,1695,0)
  2088   TIU TEMPLA TE GETROOT S
  2089   "KRN",19,1 0989,"RPC" ,1696,0)
  2090   TIU TEMPLA TE GETTEXT
  2091   "KRN",19,1 0989,"RPC" ,1697,0)
  2092   TIU TEMPLA TE ISEDITO R
  2093   "KRN",19,1 0989,"RPC" ,1698,0)
  2094   TIU TEMPLA TE UNLOCK
  2095   "KRN",19,1 0989,"RPC" ,1699,0)
  2096   TIU USER C LASS LONG  LIST
  2097   "KRN",19,1 0989,"RPC" ,1700,0)
  2098   ORWPCE ALW AYS CHECKO UT
  2099   "KRN",19,1 0989,"RPC" ,1701,0)
  2100   ORWPCE GET  EXCLUDED
  2101   "KRN",19,1 0989,"RPC" ,1702,0)
  2102   ORWDPS1 FO RMALT
  2103   "KRN",19,1 0989,"RPC" ,1703,0)
  2104   ORQPT DEFA ULT LIST S ORT
  2105   "KRN",19,1 0989,"RPC" ,1704,0)
  2106   ORWDPS1 DO SEALT
  2107   "KRN",19,1 0989,"RPC" ,1705,0)
  2108   ORWTPR OCD ESC
  2109   "KRN",19,1 0989,"RPC" ,1706,0)
  2110   ORWTPR NOT DESC
  2111   "KRN",19,1 0989,"RPC" ,1707,0)
  2112   ORWDPS1 FA ILDEA
  2113   "KRN",19,1 0989,"RPC" ,1708,0)
  2114   ORQPT DEFA ULT CLINIC  DATE RANG
  2115   "KRN",19,1 0989,"RPC" ,1709,0)
  2116   ORWTIU CAN LINK
  2117   "KRN",19,1 0989,"RPC" ,1710,0)
  2118   TIU ID ATT ACH ENTRY
  2119   "KRN",19,1 0989,"RPC" ,1711,0)
  2120   TIU ID CAN  ATTACH
  2121   "KRN",19,1 0989,"RPC" ,1712,0)
  2122   TIU ID CAN  RECEIVE
  2123   "KRN",19,1 0989,"RPC" ,1713,0)
  2124   TIU ID DET ACH ENTRY
  2125   "KRN",19,1 0989,"RPC" ,1714,0)
  2126   ORWCOM GET OBJS
  2127   "KRN",19,1 0989,"RPC" ,1715,0)
  2128   ORWCOM DET AILS
  2129   "KRN",19,1 0989,"RPC" ,1716,0)
  2130   ORWCOM PTO BJ
  2131   "KRN",19,1 0989,"RPC" ,1718,0)
  2132   TIU TEMPLA TE GETLINK
  2133   "KRN",19,1 0989,"RPC" ,1719,0)
  2134   TIU TEMPLA TE ALL TIT LES
  2135   "KRN",19,1 0989,"RPC" ,1720,0)
  2136   ORWSR LIST
  2137   "KRN",19,1 0989,"RPC" ,1721,0)
  2138   ORWSR SHOW  SURG TAB
  2139   "KRN",19,1 0989,"RPC" ,1722,0)
  2140   ORWSR GET  SURG CONTE XT
  2141   "KRN",19,1 0989,"RPC" ,1723,0)
  2142   ORWSR SAVE  SURG CONT EXT
  2143   "KRN",19,1 0989,"RPC" ,1724,0)
  2144   ORWSR ONEC ASE
  2145   "KRN",19,1 0989,"RPC" ,1727,0)
  2146   ORWSR SHOW  OPTOP WHE N SIGNING
  2147   "KRN",19,1 0989,"RPC" ,1728,0)
  2148   ORWSR IS N ON-OR PROC EDURE
  2149   "KRN",19,1 0989,"RPC" ,1729,0)
  2150   ORWSR CASE LIST
  2151   "KRN",19,1 0989,"RPC" ,1730,0)
  2152   ORQQCN GET  PROC IEN
  2153   "KRN",19,1 0989,"RPC" ,1731,0)
  2154   ORWRP PRIN T V REPORT
  2155   "KRN",19,1 0989,"RPC" ,1732,0)
  2156   ORWRP3 EXP AND COLUMN S
  2157   "KRN",19,1 0989,"RPC" ,1733,0)
  2158   ORWTPD ACT DF
  2159   "KRN",19,1 0989,"RPC" ,1734,0)
  2160   ORWTPD DEL DFLT
  2161   "KRN",19,1 0989,"RPC" ,1735,0)
  2162   ORWTPD GET DFLT
  2163   "KRN",19,1 0989,"RPC" ,1736,0)
  2164   ORWTPD RSD FLT
  2165   "KRN",19,1 0989,"RPC" ,1737,0)
  2166   ORWTPD SUD F
  2167   "KRN",19,1 0989,"RPC" ,1738,0)
  2168   ORWTPD SUI NDV
  2169   "KRN",19,1 0989,"RPC" ,1739,0)
  2170   ORWTPD GET SETS
  2171   "KRN",19,1 0989,"RPC" ,1740,0)
  2172   ORWCOM ORD EROBJ
  2173   "KRN",19,1 0989,"RPC" ,1741,0)
  2174   ORWRP2 COM PABV
  2175   "KRN",19,1 0989,"RPC" ,1742,0)
  2176   ORWRP2 GET LKUP
  2177   "KRN",19,1 0989,"RPC" ,1743,0)
  2178   ORWRP2 SAV LKUP
  2179   "KRN",19,1 0989,"RPC" ,1744,0)
  2180   ORWRP2 COM PDISP
  2181   "KRN",19,1 0989,"RPC" ,1745,0)
  2182   ORWPCE ISC LINIC
  2183   "KRN",19,1 0989,"RPC" ,1746,0)
  2184   ORWCH SAVE COL
  2185   "KRN",19,1 0989,"RPC" ,1747,0)
  2186   ORWSR RPTL IST
  2187   "KRN",19,1 0989,"RPC" ,1748,0)
  2188   ORQQPXRM M ST UPDATE
  2189   "KRN",19,1 0989,"RPC" ,1749,0)
  2190   ORWMC PATI ENT PROCED URES1
  2191   "KRN",19,1 0989,"RPC" ,1750,0)
  2192   ORWRA IMAG ING EXAMS1
  2193   "KRN",19,1 0989,"RPC" ,1751,0)
  2194   ORWRA REPO RT TEXT1
  2195   "KRN",19,1 0989,"RPC" ,1752,0)
  2196   ORWDPS4 CP INFO
  2197   "KRN",19,1 0989,"RPC" ,1753,0)
  2198   ORWDPS4 CP LST
  2199   "KRN",19,1 0989,"RPC" ,1754,0)
  2200   ORWORB KIL L UNVER ME DS ALERT
  2201   "KRN",19,1 0989,"RPC" ,1755,0)
  2202   ORWORB KIL L UNVER OR DERS ALERT
  2203   "KRN",19,1 0989,"RPC" ,1756,0)
  2204   ORWPCE HNC OK
  2205   "KRN",19,1 0989,"RPC" ,1757,0)
  2206   ORWPS MEDH IST
  2207   "KRN",19,1 0989,"RPC" ,1758,0)
  2208   TIU FIELD  CHECK
  2209   "KRN",19,1 0989,"RPC" ,1759,0)
  2210   TIU FIELD  LIST ADD
  2211   "KRN",19,1 0989,"RPC" ,1760,0)
  2212   TIU FIELD  LIST IMPOR T
  2213   "KRN",19,1 0989,"RPC" ,1761,0)
  2214   TIU SET DO CUMENT TEX T
  2215   "KRN",19,1 0989,"RPC" ,1762,0)
  2216   ORWDPS2 CH KPI
  2217   "KRN",19,1 0989,"RPC" ,1763,0)
  2218   ORWDXR GTO RITM
  2219   "KRN",19,1 0989,"RPC" ,1764,0)
  2220   ORWDPS2 CH KGRP
  2221   "KRN",19,1 0989,"RPC" ,1765,0)
  2222   ORWDPS2 QO GRP
  2223   "KRN",19,1 0989,"RPC" ,1766,0)
  2224   ORWDXR GET PKG
  2225   "KRN",19,1 0989,"RPC" ,1767,0)
  2226   ORQPT MAKE  RPL
  2227   "KRN",19,1 0989,"RPC" ,1768,0)
  2228   ORQPT READ  RPL
  2229   "KRN",19,1 0989,"RPC" ,1769,0)
  2230   ORQPT KILL  RPL
  2231   "KRN",19,1 0989,"RPC" ,1770,0)
  2232   ORWTIU GET  SAVED CP  FIELDS
  2233   "KRN",19,1 0989,"RPC" ,1771,0)
  2234   ORWDPS1 LO CPICK
  2235   "KRN",19,1 0989,"RPC" ,1772,0)
  2236   ORWPT LAST 5 RPL
  2237   "KRN",19,1 0989,"RPC" ,1773,0)
  2238   ORWPT FULL SSN RPL
  2239   "KRN",19,1 0989,"RPC" ,1774,0)
  2240   ORWOR PKIU SE
  2241   "KRN",19,1 0989,"RPC" ,1775,0)
  2242   ORWOR1 SIG
  2243   "KRN",19,1 0989,"RPC" ,1776,0)
  2244   ORWOR1 CHK DIG
  2245   "KRN",19,1 0989,"RPC" ,1777,0)
  2246   ORWOR1 GET DTEXT
  2247   "KRN",19,1 0989,"RPC" ,1778,0)
  2248   ORWOR1 GET DSIG
  2249   "KRN",19,1 0989,"RPC" ,1779,0)
  2250   ORWTPD GET IMG
  2251   "KRN",19,1 0989,"RPC" ,1780,0)
  2252   OREVNTX1 P RMPTID
  2253   "KRN",19,1 0989,"RPC" ,1781,0)
  2254   ORECS01 CH KESSO
  2255   "KRN",19,1 0989,"RPC" ,1782,0)
  2256   ORECS01 VS ITID
  2257   "KRN",19,1 0989,"RPC" ,1784,0)
  2258   OREVNTX LI ST
  2259   "KRN",19,1 0989,"RPC" ,1785,0)
  2260   OREVNTX PA T
  2261   "KRN",19,1 0989,"RPC" ,1786,0)
  2262   OREVNTX1 G TEVT
  2263   "KRN",19,1 0989,"RPC" ,1787,0)
  2264   OREVNTX1 C PACT
  2265   "KRN",19,1 0989,"RPC" ,1788,0)
  2266   OREVNTX1 C URSPE
  2267   "KRN",19,1 0989,"RPC" ,1789,0)
  2268   OREVNTX1 C HGEVT
  2269   "KRN",19,1 0989,"RPC" ,1790,0)
  2270   OREVNTX1 D ELPTEVT
  2271   "KRN",19,1 0989,"RPC" ,1791,0)
  2272   OREVNTX1 D FLTEVT
  2273   "KRN",19,1 0989,"RPC" ,1792,0)
  2274   OREVNTX AC TIVE
  2275   "KRN",19,1 0989,"RPC" ,1793,0)
  2276   OREVNTX1 P UTEVNT
  2277   "KRN",19,1 0989,"RPC" ,1794,0)
  2278   OREVNTX1 W RLSTED
  2279   "KRN",19,1 0989,"RPC" ,1795,0)
  2280   OREVNTX1 E VT
  2281   "KRN",19,1 0989,"RPC" ,1796,0)
  2282   OREVNTX1 N AME
  2283   "KRN",19,1 0989,"RPC" ,1797,0)
  2284   OREVNTX1 M ATCH
  2285   "KRN",19,1 0989,"RPC" ,1798,0)
  2286   OREVNTX1 E MPTY
  2287   "KRN",19,1 0989,"RPC" ,1799,0)
  2288   OREVNTX1 E XISTS
  2289   "KRN",19,1 0989,"RPC" ,1800,0)
  2290   OREVNTX1 G TEVT1
  2291   "KRN",19,1 0989,"RPC" ,1801,0)
  2292   OREVNTX1 D IV
  2293   "KRN",19,1 0989,"RPC" ,1802,0)
  2294   OREVNTX1 D IV1
  2295   "KRN",19,1 0989,"RPC" ,1803,0)
  2296   OREVNTX1 L OC
  2297   "KRN",19,1 0989,"RPC" ,1804,0)
  2298   OREVNTX1 L OC1
  2299   "KRN",19,1 0989,"RPC" ,1805,0)
  2300   ORWDX SEND ED
  2301   "KRN",19,1 0989,"RPC" ,1806,0)
  2302   OREVNTX1 G ETDLG
  2303   "KRN",19,1 0989,"RPC" ,1807,0)
  2304   ORECS01 EC PRINT
  2305   "KRN",19,1 0989,"RPC" ,1811,0)
  2306   ORECS01 EC RPT
  2307   "KRN",19,1 0989,"RPC" ,1812,0)
  2308   OREVNTX1 I SDCOD
  2309   "KRN",19,1 0989,"RPC" ,1813,0)
  2310   OREVNTX1 S ETDFLT
  2311   "KRN",19,1 0989,"RPC" ,1815,0)
  2312   TIU IS THI S A CLINPR OC?
  2313   "KRN",19,1 0989,"RPC" ,1816,0)
  2314   TIU IDENTI FY CLINPRO C CLASS
  2315   "KRN",19,1 0989,"RPC" ,1817,0)
  2316   TIU LONG L IST CLINPR OC TITLES
  2317   "KRN",19,1 0989,"RPC" ,1819,0)
  2318   ORWDPS1 HA SOIPI
  2319   "KRN",19,1 0989,"RPC" ,1821,0)
  2320   OREVNTX1 D EFLTS
  2321   "KRN",19,1 0989,"RPC" ,1822,0)
  2322   OREVNTX1 M ULTS
  2323   "KRN",19,1 0989,"RPC" ,1823,0)
  2324   OREVNTX1 D ONE
  2325   "KRN",19,1 0989,"RPC" ,1824,0)
  2326   OREVNTX1 P ROMPT IDS
  2327   "KRN",19,1 0989,"RPC" ,1825,0)
  2328   ORWCIRN CH ECKLINK
  2329   "KRN",19,1 0989,"RPC" ,1826,0)
  2330   XWB DIRECT  RPC
  2331   "KRN",19,1 0989,"RPC" ,1827,0)
  2332   ORWDPS1 HA SROUTE
  2333   "KRN",19,1 0989,"RPC" ,1828,0)
  2334   ORQQCN UNR ESOLVED
  2335   "KRN",19,1 0989,"RPC" ,1829,0)
  2336   OREVNTX1 D ELDFLT
  2337   "KRN",19,1 0989,"RPC" ,1830,0)
  2338   ORWCH LDFO NT
  2339   "KRN",19,1 0989,"RPC" ,1831,0)
  2340   ORWU1 NAME CVT
  2341   "KRN",19,1 0989,"RPC" ,1832,0)
  2342   OREVNTX1 D FLTDLG
  2343   "KRN",19,1 0989,"RPC" ,1833,0)
  2344   ORWDPS5 LE SAPI
  2345   "KRN",19,1 0989,"RPC" ,1834,0)
  2346   ORWDPS5 LE SGRP
  2347   "KRN",19,1 0989,"RPC" ,1839,0)
  2348   OREVNTX1 T YPEXT
  2349   "KRN",19,1 0989,"RPC" ,1840,0)
  2350   ORWORR RGE T
  2351   "KRN",19,1 0989,"RPC" ,1841,0)
  2352   OREVNTX1 A UTHMREL
  2353   "KRN",19,1 0989,"RPC" ,1842,0)
  2354   OREVNTX1 H AVEPRT
  2355   "KRN",19,1 0989,"RPC" ,1843,0)
  2356   OREVNTX1 C MEVTS
  2357   "KRN",19,1 0989,"RPC" ,1844,0)
  2358   OREVNTX1 O DPTEVID
  2359   "KRN",19,1 0989,"RPC" ,1845,0)
  2360   ORWOR PKIS ITE
  2361   "KRN",19,1 0989,"RPC" ,1846,0)
  2362   OREVNTX1 C OMP
  2363   "KRN",19,1 0989,"RPC" ,1847,0)
  2364   OREVNTX1 I SHDORD
  2365   "KRN",19,1 0989,"RPC" ,1848,0)
  2366   ORWDXR ORC PLX
  2367   "KRN",19,1 0989,"RPC" ,1849,0)
  2368   OREVNTX1 I SPASS
  2369   "KRN",19,1 0989,"RPC" ,1850,0)
  2370   OREVNTX1 I SPASS1
  2371   "KRN",19,1 0989,"RPC" ,1851,0)
  2372   OREVNTX1 D LGIEN
  2373   "KRN",19,1 0989,"RPC" ,1852,0)
  2374   ORWDXR CAN RN
  2375   "KRN",19,1 0989,"RPC" ,1853,0)
  2376   ORWDXR ISC PLX
  2377   "KRN",19,1 0989,"RPC" ,1854,0)
  2378   ORWDXA OFC PLX
  2379   "KRN",19,1 0989,"RPC" ,1855,0)
  2380   ORQQPX GET  NOT PURPO SE
  2381   "KRN",19,1 0989,"RPC" ,1856,0)
  2382   ORWDPS1 IV DEA
  2383   "KRN",19,1 0989,"RPC" ,1857,0)
  2384   ORWDXR ISN OW
  2385   "KRN",19,1 0989,"RPC" ,1858,0)
  2386   ORRHCQ QRY ITR
  2387   "KRN",19,1 0989,"RPC" ,1859,0)
  2388   OREVNTX1 G ETSTS
  2389   "KRN",19,1 0989,"RPC" ,1860,0)
  2390   ORWU DEFAU LT DIVISIO N
  2391   "KRN",19,1 0989,"RPC" ,1861,0)
  2392   ORWDXA ISA CTOI
  2393   "KRN",19,1 0989,"RPC" ,1862,0)
  2394   ORECS01 SA VPATH
  2395   "KRN",19,1 0989,"RPC" ,1863,0)
  2396   ORWOR RESU LT HISTORY
  2397   "KRN",19,1 0989,"RPC" ,1864,0)
  2398   XUS GET TO KEN
  2399   "KRN",19,1 0989,"RPC" ,1865,0)
  2400   ORQQPX IMM UN LIST
  2401   "KRN",19,1 0989,"RPC" ,1866,0)
  2402   XWB DEFERR ED CLEARAL L
  2403   "KRN",19,1 0989,"RPC" ,1867,0)
  2404   ORWOR1 SET DTEXT
  2405   "KRN",19,1 0989,"RPC" ,1868,0)
  2406   ORWOR1 GET DEA
  2407   "KRN",19,1 0989,"RPC" ,1869,0)
  2408   ORWOR1 GET DSCH
  2409   "KRN",19,1 0989,"RPC" ,1870,0)
  2410   ORWORB TEX T FOLLOWUP
  2411   "KRN",19,1 0989,"RPC" ,1871,0)
  2412   ORWU1 NEWL OC
  2413   "KRN",19,1 0989,"RPC" ,1872,0)
  2414   ORWPCE ACT IVE CODE
  2415   "KRN",19,1 0989,"RPC" ,1873,0)
  2416   ORQQPXRM G ET WH LETT ER TEXT
  2417   "KRN",19,1 0989,"RPC" ,1874,0)
  2418   ORQQPXRM G ET WH LETT ER TYPE
  2419   "KRN",19,1 0989,"RPC" ,1875,0)
  2420   ORQQPXRM G ET WH PROC  RESULT
  2421   "KRN",19,1 0989,"RPC" ,1876,0)
  2422   ORQQPXRM W OMEN HEALT H SAVE
  2423   "KRN",19,1 0989,"RPC" ,1877,0)
  2424   ORB FORWAR D ALERT
  2425   "KRN",19,1 0989,"RPC" ,1878,0)
  2426   ORB RENEW  ALERT
  2427   "KRN",19,1 0989,"RPC" ,1879,0)
  2428   ORPRF CLEA R
  2429   "KRN",19,1 0989,"RPC" ,1880,0)
  2430   ORPRF GETF LG
  2431   "KRN",19,1 0989,"RPC" ,1881,0)
  2432   ORPRF HASF LG
  2433   "KRN",19,1 0989,"RPC" ,1882,0)
  2434   ORWTPD GET OCM
  2435   "KRN",19,1 0989,"RPC" ,1883,0)
  2436   TIU ONE VI SIT NOTE?
  2437   "KRN",19,1 0989,"RPC" ,1884,0)
  2438   VAFCTFU CO NVERT ICN  TO DFN
  2439   "KRN",19,1 0989,"RPC" ,1885,0)
  2440   ORIMO IMOL OC
  2441   "KRN",19,1 0989,"RPC" ,1886,0)
  2442   ORIMO IMOO D
  2443   "KRN",19,1 0989,"RPC" ,1887,0)
  2444   ORWDPS4 IP OD4OP
  2445   "KRN",19,1 0989,"RPC" ,1888,0)
  2446   ORWDPS4 UP DTDG
  2447   "KRN",19,1 0989,"RPC" ,1889,0)
  2448   TIU USER I NACTIVE?
  2449   "KRN",19,1 0989,"RPC" ,1890,0)
  2450   ORWTPD PUT OCM
  2451   "KRN",19,1 0989,"RPC" ,1891,0)
  2452   ORWOR ACTI ON TEXT
  2453   "KRN",19,1 0989,"RPC" ,1892,0)
  2454   ORQQPXRM G EC DIALOG
  2455   "KRN",19,1 0989,"RPC" ,1893,0)
  2456   ORQQPXRM G ET WH REPO RT TEXT
  2457   "KRN",19,1 0989,"RPC" ,1894,0)
  2458   ORWDXR01 C ANCHG
  2459   "KRN",19,1 0989,"RPC" ,1895,0)
  2460   ORWDXR01 S AVCHG
  2461   "KRN",19,1 0989,"RPC" ,1896,0)
  2462   TIU HAS AU THOR SIGNE D?
  2463   "KRN",19,1 0989,"RPC" ,1897,0)
  2464   ORQQPXRM C HECK REM V ERSION
  2465   "KRN",19,1 0989,"RPC" ,1898,0)
  2466   ORQQPXRM G EC STATUS  PROMPT
  2467   "KRN",19,1 0989,"RPC" ,1899,0)
  2468   ORQQPXRM G EC STATUS  PROMPT
  2469   "KRN",19,1 0989,"RPC" ,1900,0)
  2470   ORWDAL32 S END BULLET IN
  2471   "KRN",19,1 0989,"RPC" ,1901,0)
  2472   ORWDBA1 OR PKGTYP
  2473   "KRN",19,1 0989,"RPC" ,1902,0)
  2474   ORWDXR01 I SSPLY
  2475   "KRN",19,1 0989,"RPC" ,1903,0)
  2476   ORWDBA1 RC VORCI
  2477   "KRN",19,1 0989,"RPC" ,1904,0)
  2478   ORWPS REAS ON
  2479   "KRN",19,1 0989,"RPC" ,1905,0)
  2480   ORQQPXRM G EC FINISHE D?
  2481   "KRN",19,1 0989,"RPC" ,1906,0)
  2482   ORWDXM3 IS UDQO
  2483   "KRN",19,1 0989,"RPC" ,1908,0)
  2484   ORWDBA1 SC LST
  2485   "KRN",19,1 0989,"RPC" ,1909,0)
  2486   ORWDXR01 O XDATA
  2487   "KRN",19,1 0989,"RPC" ,1914,0)
  2488   ORWDBA1 BA STATUS
  2489   "KRN",19,1 0989,"RPC" ,1920,0)
  2490   ORWORB SET SORT
  2491   "KRN",19,1 0989,"RPC" ,1921,0)
  2492   ORWORB GET SORT
  2493   "KRN",19,1 0989,"RPC" ,1922,0)
  2494   ORWOR EXPI RED
  2495   "KRN",19,1 0989,"RPC" ,1928,0)
  2496   ORECS01 GE TDIV
  2497   "KRN",19,1 0989,"RPC" ,1933,0)
  2498   ORWTPD1 GE TEFDAT
  2499   "KRN",19,1 0989,"RPC" ,1934,0)
  2500   ORWTPD1 GE TEDATS
  2501   "KRN",19,1 0989,"RPC" ,1935,0)
  2502   ORWTPD1 PU TEDATS
  2503   "KRN",19,1 0989,"RPC" ,1936,0)
  2504   ORWTPD1 GE TCSDEF
  2505   "KRN",19,1 0989,"RPC" ,1937,0)
  2506   ORWTPD1 GE TCSRNG
  2507   "KRN",19,1 0989,"RPC" ,1938,0)
  2508   ORWTPD1 PU TCSRNG
  2509   "KRN",19,1 0989,"RPC" ,1939,0)
  2510   ORWTPD1 GE TEAFL
  2511   "KRN",19,1 0989,"RPC" ,1940,0)
  2512   ORWDBA1 GE TORDX
  2513   "KRN",19,1 0989,"RPC" ,1941,0)
  2514   ORWDBA3 HI NTS
  2515   "KRN",19,1 0989,"RPC" ,1942,0)
  2516   ORWDAL32 L OAD FOR ED IT
  2517   "KRN",19,1 0989,"RPC" ,1943,0)
  2518   ORWDAL32 S AVE ALLERG Y
  2519   "KRN",19,1 0989,"RPC" ,1944,0)
  2520   ORWDAL32 S ITE PARAMS
  2521   "KRN",19,1 0989,"RPC" ,1945,0)
  2522   ORWPCE CXN OSHOW
  2523   "KRN",19,1 0989,"RPC" ,1946,0)
  2524   ORWDBA2 AD DPDL
  2525   "KRN",19,1 0989,"RPC" ,1947,0)
  2526   ORWDBA2 DE LPDL
  2527   "KRN",19,1 0989,"RPC" ,1948,0)
  2528   ORWDBA2 GE TDUDC
  2529   "KRN",19,1 0989,"RPC" ,1949,0)
  2530   ORWDBA2 GE TPDL
  2531   "KRN",19,1 0989,"RPC" ,1950,0)
  2532   ORWDBA4 GE TBAUSR
  2533   "KRN",19,1 0989,"RPC" ,1951,0)
  2534   ORWDBA4 GE TTFCI
  2535   "KRN",19,1 0989,"RPC" ,1952,0)
  2536   ORWNSS NSS MSG
  2537   "KRN",19,1 0989,"RPC" ,1953,0)
  2538   ORWNSS QOS CH
  2539   "KRN",19,1 0989,"RPC" ,1954,0)
  2540   ORWNSS VAL SCH
  2541   "KRN",19,1 0989,"RPC" ,1955,0)
  2542   ORWNSS CHK SCH
  2543   "KRN",19,1 0989,"RPC" ,1956,0)
  2544   ORWDPS4 IS UDIV
  2545   "KRN",19,1 0989,"RPC" ,1957,0)
  2546   ORWDPS32 A UTHNVA
  2547   "KRN",19,1 0989,"RPC" ,1962,0)
  2548   ORWTIU CHK TXT
  2549   "KRN",19,1 0989,"RPC" ,1964,0)
  2550   ORWDPS5 IS VTP
  2551   "KRN",19,1 0989,"RPC" ,1965,0)
  2552   TIU IS THI S A SURGER Y?
  2553   "KRN",19,1 0989,"RPC" ,1966,0)
  2554   TIU IDENTI FY SURGERY  CLASS
  2555   "KRN",19,1 0989,"RPC" ,1967,0)
  2556   TIU LONG L IST SURGER Y TITLES
  2557   "KRN",19,1 0989,"RPC" ,1968,0)
  2558   TIU GET DO CUMENTS FO R REQUEST
  2559   "KRN",19,1 0989,"RPC" ,1969,0)
  2560   TIU SET AD MINISTRATI VE CLOSURE
  2561   "KRN",19,1 0989,"RPC" ,1970,0)
  2562   ORBCMA5 GE TUDID
  2563   "KRN",19,1 0989,"RPC" ,1973,0)
  2564   ORIMO ISCL OC
  2565   "KRN",19,1 0989,"RPC" ,1974,0)
  2566   ORIMO ISIV QO
  2567   "KRN",19,1 0989,"RPC" ,1975,0)
  2568   ORWDBA7 GE TIEN9
  2569   "KRN",19,1 0989,"RPC" ,1976,0)
  2570   ORWGN GNLO C
  2571   "KRN",19,1 0989,"RPC" ,1977,0)
  2572   ORWGN AUTH USR
  2573   "KRN",19,1 0989,"RPC" ,1978,0)
  2574   ORVAA VAA
  2575   "KRN",19,1 0989,"RPC" ,1981,0)
  2576   ORWDAL32 C LINUSER
  2577   "KRN",19,1 0989,"RPC" ,1982,0)
  2578   ORWDBA7 IS WITCH
  2579   "KRN",19,1 0989,"RPC" ,1983,0)
  2580   ORWDFH CUR RENT MEALS
  2581   "KRN",19,1 0989,"RPC" ,1984,0)
  2582   ORWDFH NFS LOC READY
  2583   "KRN",19,1 0989,"RPC" ,1985,0)
  2584   ORWDFH OPD IETS
  2585   "KRN",19,1 0989,"RPC" ,1986,0)
  2586   ORWMHV MHV
  2587   "KRN",19,1 0989,"RPC" ,1987,0)
  2588   ORWPCE1 NO NCOUNT
  2589   "KRN",19,1 0989,"RPC" ,1988,0)
  2590   ORWPFSS IS  PFSS ACTI VE?
  2591   "KRN",19,1 0989,"RPC" ,1989,0)
  2592   GMV EXTRAC T REC
  2593   "KRN",19,1 0989,"RPC" ,1990,0)
  2594   GMV MARK E RROR
  2595   "KRN",19,1 0989,"RPC" ,1991,0)
  2596   ORWDXVB CO MPORD
  2597   "KRN",19,1 0989,"RPC" ,1992,0)
  2598   ORWDXVB GE TALL
  2599   "KRN",19,1 0989,"RPC" ,1993,0)
  2600   ORWDXVB RA W
  2601   "KRN",19,1 0989,"RPC" ,1994,0)
  2602   ORWDXVB RE SULTS
  2603   "KRN",19,1 0989,"RPC" ,1995,0)
  2604   ORWDXVB ST ATALOW
  2605   "KRN",19,1 0989,"RPC" ,1996,0)
  2606   ORWGRPC AL LITEMS
  2607   "KRN",19,1 0989,"RPC" ,1997,0)
  2608   ORWGRPC CL ASS
  2609   "KRN",19,1 0989,"RPC" ,1998,0)
  2610   ORWGRPC DA TEITEM
  2611   "KRN",19,1 0989,"RPC" ,1999,0)
  2612   ORWGRPC DE LVIEWS
  2613   "KRN",19,1 0989,"RPC" ,2000,0)
  2614   ORWGRPC DE TAILS
  2615   "KRN",19,1 0989,"RPC" ,2001,0)
  2616   ORWGRPC GE TDATES
  2617   "KRN",19,1 0989,"RPC" ,2002,0)
  2618   ORWGRPC GE TPREF
  2619   "KRN",19,1 0989,"RPC" ,2003,0)
  2620   ORWGRPC GE TVIEWS
  2621   "KRN",19,1 0989,"RPC" ,2004,0)
  2622   ORWGRPC IT EMDATA
  2623   "KRN",19,1 0989,"RPC" ,2005,0)
  2624   ORWGRPC IT EMS
  2625   "KRN",19,1 0989,"RPC" ,2006,0)
  2626   ORWGRPC LO OKUP
  2627   "KRN",19,1 0989,"RPC" ,2007,0)
  2628   ORWGRPC PU BLIC
  2629   "KRN",19,1 0989,"RPC" ,2008,0)
  2630   ORWGRPC RP TPARAM
  2631   "KRN",19,1 0989,"RPC" ,2009,0)
  2632   ORWGRPC SE TPREF
  2633   "KRN",19,1 0989,"RPC" ,2010,0)
  2634   ORWGRPC SE TVIEWS
  2635   "KRN",19,1 0989,"RPC" ,2011,0)
  2636   ORWGRPC TE STSPEC
  2637   "KRN",19,1 0989,"RPC" ,2012,0)
  2638   ORWGRPC TY PES
  2639   "KRN",19,1 0989,"RPC" ,2013,0)
  2640   TIU GET DO CUMENT STA TUS
  2641   "KRN",19,1 0989,"RPC" ,2014,0)
  2642   TIU GET PR F ACTIONS
  2643   "KRN",19,1 0989,"RPC" ,2015,0)
  2644   TIU ISPRF
  2645   "KRN",19,1 0989,"RPC" ,2016,0)
  2646   TIU LINK T O FLAG
  2647   "KRN",19,1 0989,"RPC" ,2017,0)
  2648   ORWGRPC DE TAIL
  2649   "KRN",19,1 0989,"RPC" ,2018,0)
  2650   ORWU VERSI ON
  2651   "KRN",19,1 0989,"RPC" ,2019,0)
  2652   GMV ALLERG Y
  2653   "KRN",19,1 0989,"RPC" ,2020,0)
  2654   ORWCIRN WE BADDR
  2655   "KRN",19,1 0989,"RPC" ,2023,0)
  2656   ORWGRPC TA X
  2657   "KRN",19,1 0989,"RPC" ,2024,0)
  2658   GMV DLL VE RSION
  2659   "KRN",19,1 0989,"RPC" ,2025,0)
  2660   ORWDX CHAN GE
  2661   "KRN",19,1 0989,"RPC" ,2026,0)
  2662   GMV ADD VM
  2663   "KRN",19,1 0989,"RPC" ,2027,0)
  2664   GMV CONVER T DATE
  2665   "KRN",19,1 0989,"RPC" ,2028,0)
  2666   GMV GET CA TEGORY IEN
  2667   "KRN",19,1 0989,"RPC" ,2029,0)
  2668   GMV GET CU RRENT TIME
  2669   "KRN",19,1 0989,"RPC" ,2030,0)
  2670   GMV GET VI TAL TYPE I EN
  2671   "KRN",19,1 0989,"RPC" ,2031,0)
  2672   GMV LATEST  VM
  2673   "KRN",19,1 0989,"RPC" ,2032,0)
  2674   GMV MANAGE R
  2675   "KRN",19,1 0989,"RPC" ,2033,0)
  2676   GMV PARAME TER
  2677   "KRN",19,1 0989,"RPC" ,2034,0)
  2678   GMV USER
  2679   "KRN",19,1 0989,"RPC" ,2035,0)
  2680   GMV VITALS /CAT/QUAL
  2681   "KRN",19,1 0989,"RPC" ,2036,0)
  2682   GMV V/M AL LDATA
  2683   "KRN",19,1 0989,"RPC" ,2037,0)
  2684   TIU GET LI NKED PRF N OTES
  2685   "KRN",19,1 0989,"RPC" ,2038,0)
  2686   TIU GET PR F TITLE
  2687   "KRN",19,1 0989,"RPC" ,2039,0)
  2688   ORWDX1 PAT WARD
  2689   "KRN",19,1 0989,"RPC" ,2040,0)
  2690   ORWRP4 HDR  MODIFY
  2691   "KRN",19,1 0989,"RPC" ,2041,0)
  2692   ORWDX1 STC HANGE
  2693   "KRN",19,1 0989,"RPC" ,2042,0)
  2694   ORWDX1 DCR EN
  2695   "KRN",19,1 0989,"RPC" ,2043,0)
  2696   ORQQPXRM M HV
  2697   "KRN",19,1 0989,"RPC" ,2044,0)
  2698   ORWGRPC GE TSIZE
  2699   "KRN",19,1 0989,"RPC" ,2045,0)
  2700   ORWGRPC SE TSIZE
  2701   "KRN",19,1 0989,"RPC" ,2046,0)
  2702   GMV LOCATI ON SELECT
  2703   "KRN",19,1 0989,"RPC" ,2047,0)
  2704   ORWCIRN AU TORDV
  2705   "KRN",19,1 0989,"RPC" ,2048,0)
  2706   ORPRF TRIG GER POPUP
  2707   "KRN",19,1 0989,"RPC" ,2049,0)
  2708   ORWCIRN HD RON
  2709   "KRN",19,1 0989,"RPC" ,2051,0)
  2710   ORCDLR2 CH ECK ALL LC  TO WC
  2711   "KRN",19,1 0989,"RPC" ,2052,0)
  2712   ORCDLR2 CH ECK ONE LC  TO WC
  2713   "KRN",19,1 0989,"RPC" ,2053,0)
  2714   ORALWORD A LLWORD
  2715   "KRN",19,1 0989,"RPC" ,2054,0)
  2716   ORWDX1 ORD MATCH
  2717   "KRN",19,1 0989,"RPC" ,2055,0)
  2718   ORWDX1 DCO RIG
  2719   "KRN",19,1 0989,"RPC" ,2056,0)
  2720   ORWDX1 UND CORIG
  2721   "KRN",19,1 0989,"RPC" ,2057,0)
  2722   ORWDXVB SU BCHK
  2723   "KRN",19,1 0989,"RPC" ,2058,0)
  2724   ORDDPAPI A DMTIME
  2725   "KRN",19,1 0989,"RPC" ,2059,0)
  2726   ORWU PARAM S
  2727   "KRN",19,1 0989,"RPC" ,2060,0)
  2728   ORWDPS1 DO WSCH
  2729   "KRN",19,1 0989,"RPC" ,2061,0)
  2730   ORWDPS33 C OMPLOC
  2731   "KRN",19,1 0989,"RPC" ,2062,0)
  2732   ORWGRPC FA STDATA
  2733   "KRN",19,1 0989,"RPC" ,2063,0)
  2734   ORWGRPC FA STITEM
  2735   "KRN",19,1 0989,"RPC" ,2064,0)
  2736   ORWGRPC FA STTASK
  2737   "KRN",19,1 0989,"RPC" ,2065,0)
  2738   ORWGRPC FA STLABS
  2739   "KRN",19,1 0989,"RPC" ,2066,0)
  2740   ORWDPS1 QO MEDALT
  2741   "KRN",19,1 0989,"RPC" ,2067,0)
  2742   ORWGRPC AL LVIEWS
  2743   "KRN",19,1 0989,"RPC" ,2068,0)
  2744   ORDDPAPI C LOZMSG
  2745   "KRN",19,1 0989,"RPC" ,2069,0)
  2746   ORWGRPC TE STING
  2747   "KRN",19,1 0989,"RPC" ,2070,0)
  2748   ORQQPXRM M HDLL
  2749   "KRN",19,1 0989,"RPC" ,2071,0)
  2750   ORWDLR33 L C TO WC
  2751   "KRN",19,1 0989,"RPC" ,2072,0)
  2752   ORWU2 COSI GNER
  2753   "KRN",19,1 0989,"RPC" ,2073,0)
  2754   ORWDXVB NU RSADMN
  2755   "KRN",19,1 0989,"RPC" ,2075,0)
  2756   TIU IS USE R A USR PR OVIDER
  2757   "KRN",19,1 0989,"RPC" ,2076,0)
  2758   ORWDPS33 I VDOSFRM
  2759   "KRN",19,1 0989,"RPC" ,2077,0)
  2760   ORWDPS32 A LLIVRTE
  2761   "KRN",19,1 0989,"RPC" ,2078,0)
  2762   ORWDXM1 SV RPC
  2763   "KRN",19,1 0989,"RPC" ,2079,0)
  2764   ORWDXVB VB TNS
  2765   "KRN",19,1 0989,"RPC" ,2080,0)
  2766   MAG4 REMOT E IMPORT
  2767   "KRN",19,1 0989,"RPC" ,2081,0)
  2768   ORWDX UNLK OTH
  2769   "KRN",19,1 0989,"RPC" ,2082,0)
  2770   OR GET COM BAT VET
  2771   "KRN",19,1 0989,"RPC" ,2083,0)
  2772   GMV CLOSES T READING
  2773   "KRN",19,1 0989,"RPC" ,2084,0)
  2774   ORQQCN ISP ROSVC
  2775   "KRN",19,1 0989,"RPC" ,2085,0)
  2776   ORQQPL PRO BLEM NTRT  BULLETIN
  2777   "KRN",19,1 0989,"RPC" ,2086,0)
  2778   ORWPCE GET  DX TEXT
  2779   "KRN",19,1 0989,"RPC" ,2087,0)
  2780   ORCHECK IS MONO
  2781   "KRN",19,1 0989,"RPC" ,2088,0)
  2782   ORCHECK GE TMONO
  2783   "KRN",19,1 0989,"RPC" ,2089,0)
  2784   ORCHECK GE TMONOL
  2785   "KRN",19,1 0989,"RPC" ,2090,0)
  2786   ORCHECK DE LMONO
  2787   "KRN",19,1 0989,"RPC" ,2091,0)
  2788   ORCHECK GE TXTRA
  2789   "KRN",19,1 0989,"RPC" ,2092,0)
  2790   ORWDPS33 G ETADDFR
  2791   "KRN",19,1 0989,"RPC" ,2093,0)
  2792   ORCNOTE GE T TOTAL
  2793   "KRN",19,1 0989,"RPC" ,2094,0)
  2794   ORVW FACLI ST
  2795   "KRN",19,1 0989,"RPC" ,2095,0)
  2796   ORWDXVB3 D IAGORD
  2797   "KRN",19,1 0989,"RPC" ,2096,0)
  2798   ORWDXVB3 C OLLTIM
  2799   "KRN",19,1 0989,"RPC" ,2097,0)
  2800   ORWDXVB3 S WPANEL
  2801   "KRN",19,1 0989,"RPC" ,2099,0)
  2802   XUS PKI GE T UPN
  2803   "KRN",19,1 0989,"RPC" ,2100,0)
  2804   ORDEA HASH INFO
  2805   "KRN",19,1 0989,"RPC" ,2101,0)
  2806   ORDEA ORDH INFO
  2807   "KRN",19,1 0989,"RPC" ,2102,0)
  2808   ORDEA DEAT EXT
  2809   "KRN",19,1 0989,"RPC" ,2103,0)
  2810   ORDEA CSVA LUE
  2811   "KRN",19,1 0989,"RPC" ,2104,0)
  2812   ORDEA SIGI NFO
  2813   "KRN",19,1 0989,"RPC" ,2106,0)
  2814   ORWPCE ICD VER
  2815   "KRN",19,1 0989,"RPC" ,2107,0)
  2816   ORDEA PINL KCHK
  2817   "KRN",19,1 0989,"RPC" ,2108,0)
  2818   ORDEA PINL KSET
  2819   "KRN",19,1 0989,"RPC" ,2109,0)
  2820   ORQQPL4 LE X
  2821   "KRN",19,1 0989,"RPC" ,2110,0)
  2822   ORDEA PNDH LD
  2823   "KRN",19,1 0989,"RPC" ,2111,0)
  2824   XUS PKI SE T UPN
  2825   "KRN",19,1 0989,"RPC" ,2112,0)
  2826   ORDEA LNKM SG
  2827   "KRN",19,1 0989,"RPC" ,2113,0)
  2828   ORWPCE4 LE X
  2829   "KRN",19,1 0989,"RPC" ,2114,0)
  2830   ORWLEX GET I10DX
  2831   "KRN",19,1 0989,"RPC" ,2115,0)
  2832   ORWPCE I10 IMPDT
  2833   "KRN",19,1 0989,"RPC" ,2131,0)
  2834   ORWLEX GET FREQ
  2835   "KRN",19,1 0989,"RPC" ,2132,0)
  2836   ORDEBUG SA VERPCS
  2837   "KRN",19,1 0989,"RPC" ,2133,0)
  2838   ORDEBUG SA VEDESC
  2839   "KRN",19,1 0989,"RPC" ,2144,0)
  2840   XWB ARE RP CS AVAILAB LE
  2841   "KRN",19,1 0989,"RPC" ,2145,0)
  2842   ORWRP1A RA DIO
  2843   "KRN",19,1 0989,"RPC" ,2146,0)
  2844   ORQQCN GET  USER AUTH
  2845   "KRN",19,1 0989,"RPC" ,2147,0)
  2846   ORUTL ISCL ORD
  2847   "KRN",19,1 0989,"RPC" ,2148,0)
  2848   ORWU OVERD L
  2849   "KRN",19,1 0989,"RPC" ,2149,0)
  2850   ORBCMA5 JO B
  2851   "KRN",19,1 0989,"RPC" ,2150,0)
  2852   ORBCMA5 LO CK
  2853   "KRN",19,1 0989,"RPC" ,2151,0)
  2854   ORBCMA5 UN LOCK
  2855   "KRN",19,1 0989,"RPC" ,2152,0)
  2856   TIU CAN PR INT WORK/C HART COPY
  2857   "KRN",19,1 0989,"RPC" ,2154,0)
  2858   ORWGN IDTV ALID
  2859   "KRN",19,1 0989,"RPC" ,2155,0)
  2860   ORWGN MAXF RQ
  2861   "KRN",19,1 0989,"RPC" ,2156,0)
  2862   ORUTL4 DLL
  2863   "KRN",19,1 0989,"RPC" ,2157,0)
  2864   ORWCIRN JL V LABEL
  2865   "KRN",19,1 0989,"RPC" ,2158,0)
  2866   ORWDSD1 OD SLCT
  2867   "KRN",19,1 0989,"U")
  2868   CPRSCHART  VERSION 1. 0.31.114
  2869   "KRN",101, 3601,-1)
  2870   4^2
  2871   "KRN",101, 3601,0)
  2872   OCX ORDER  CHECK HL7  RECIEVE
  2873   "KRN",101, 6356,-1)
  2874   0^1
  2875   "KRN",101, 6356,0)
  2876   OR EVSEND  SD^APPOINT MENT REQUE ST EVENT^^ X^^^^^^^^
  2877   "KRN",101, 6356,1,0)
  2878   ^101.06^2^ 2^3170509^ ^
  2879   "KRN",101, 6356,1,1,0 )
  2880   This proto col is use d to send  return to  clinic app ointment r equests to  
  2881   "KRN",101, 6356,1,2,0 )
  2882   Scheduling .
  2883   "KRN",101, 6356,10,0)
  2884   ^101.01PA^ 2^2
  2885   "KRN",101, 6356,10,1, 0)
  2886   3601^^2^
  2887   "KRN",101, 6356,10,1, "^")
  2888   OCX ORDER  CHECK HL7  RECIEVE
  2889   "KRN",101, 6356,99)
  2890   64412,4676 2
  2891   "KRN",8989 .5,22706,0 )
  2892   170;DIC(9. 4,^OR MOB  DLL NAME^1
  2893   "KRN",8989 .5,22706,1 )
  2894   OrderCom.d ll
  2895   "KRN",8989 .51,864,-1 )
  2896   0^1
  2897   "KRN",8989 .51,864,0)
  2898   ORWRP LEGA CY VIEWER  LABEL^JLV  Remote But ton Label  Name^^^JLV  REMOTE BU TTON LABEL  NAME
  2899   "KRN",8989 .51,864,1)
  2900   F^^Enter t he name fo r the JLV/ VistaWeb R emote butt on
  2901   "KRN",8989 .51,864,20 ,0)
  2902   ^^7^7^3161 019^
  2903   "KRN",8989 .51,864,20 ,1,0)
  2904   This param eter works  in conjun ction with  the ORWRP  VISTAWEB
  2905   "KRN",8989 .51,864,20 ,2,0)
  2906   ADDRESS pa rameter fo r viewing  external r emote data  using the
  2907   "KRN",8989 .51,864,20 ,3,0)
  2908   WEB. Vista Web has be en the veh icle for v iewing ext ernal remo te
  2909   "KRN",8989 .51,864,20 ,4,0)
  2910   data, but  the VA is  transition ing to a n ew vehicle  called JL V
  2911   "KRN",8989 .51,864,20 ,5,0)
  2912    (Joint Le gacy Viewe r). When a  site move s to JLV,  this param eter 
  2913   "KRN",8989 .51,864,20 ,6,0)
  2914   value will  need to b e set to " JLV" and t he URL wil l need to  be 
  2915   "KRN",8989 .51,864,20 ,7,0)
  2916   updated to  point to  the JLV we bsite.
  2917   "KRN",8989 .51,864,30 ,0)
  2918   ^8989.513I ^4^4
  2919   "KRN",8989 .51,864,30 ,1,0)
  2920   1^200
  2921   "KRN",8989 .51,864,30 ,2,0)
  2922   2^4
  2923   "KRN",8989 .51,864,30 ,3,0)
  2924   3^4.2
  2925   "KRN",8989 .51,864,30 ,4,0)
  2926   4^9.4
  2927   "KRN",8989 .51,867,-1 )
  2928   0^2
  2929   "KRN",8989 .51,867,0)
  2930   OR MOB DLL  NAME^CPRS  Med Order  Button DL L file nam e^0^CPRS M OB DLL nam e^^0
  2931   "KRN",8989 .51,867,1)
  2932   F^^Name of  the DLL o n the wind ows file s ystem
  2933   "KRN",8989 .51,867,6)
  2934   F^free^Nam e of the C PRS MOB DL L
  2935   "KRN",8989 .51,867,20 ,0)
  2936   ^^2^2^3161 026^
  2937   "KRN",8989 .51,867,20 ,1,0)
  2938   This param eter is us ed to stor e the name  of the .d ll on the  file syste
  2939   "KRN",8989 .51,867,20 ,2,0)
  2940   of the CPR S users of  this Vist A system.
  2941   "KRN",8989 .51,867,30 ,0)
  2942   ^8989.513I ^3^3
  2943   "KRN",8989 .51,867,30 ,1,0)
  2944   1^200
  2945   "KRN",8989 .51,867,30 ,2,0)
  2946   2^4.2
  2947   "KRN",8989 .51,867,30 ,3,0)
  2948   3^9.4
  2949   "KRN",8989 .51,876,-1 )
  2950   0^4
  2951   "KRN",8989 .51,876,0)
  2952   OR SD DIAL OG PREREQ^ RTC Order  Dialog Pre requisites ^1^^RTC Or der Prereq uisites
  2953   "KRN",8989 .51,876,1)
  2954   F^^Enter p rerequisit es that sh ow in the  RTC Order  Dialog
  2955   "KRN",8989 .51,876,6)
  2956   F
  2957   "KRN",8989 .51,876,30 ,0)
  2958   ^8989.513I ^1^1
  2959   "KRN",8989 .51,876,30 ,1,0)
  2960   6^4.2
  2961   "KRN",8989 .51,877,-1 )
  2962   0^3
  2963   "KRN",8989 .51,877,0)
  2964   OR SD ADDI TIONAL INF ORMATION^R TC Order D ialog Addi tional Inf ormation^0 ^^Addition al Informa tion Messa ge Text
  2965   "KRN",8989 .51,877,1)
  2966   W^^Enter a  message t o display  when writi ng a Retur n to Clini c Order
  2967   "KRN",8989 .51,877,20 ,0)
  2968   ^8989.512^ 2^2^317050 9^
  2969   "KRN",8989 .51,877,20 ,1,0)
  2970   This param eter allow s sites to  set what  text they  would like  the users  to 
  2971   "KRN",8989 .51,877,20 ,2,0)
  2972   see when p lacing a R eturn To C linic Orde r.
  2973   "KRN",8989 .51,877,30 ,0)
  2974   ^8989.513I ^2^2
  2975   "KRN",8989 .51,877,30 ,1,0)
  2976   6^4.2
  2977   "KRN",8989 .51,877,30 ,2,0)
  2978   5^4
  2979   "KRN",8994 ,3567,-1)
  2980   0^1
  2981   "KRN",8994 ,3567,0)
  2982   ORWCIRN JL V LABEL^JL V^ORWCIRN^ 1
  2983   "KRN",8994 ,3567,1,0)
  2984   ^^5^5^3161 019^
  2985   "KRN",8994 ,3567,1,1, 0)
  2986   This RPC g ets the La bel/Captio n for the  JLV/VistaW eb externa l
  2987   "KRN",8994 ,3567,1,2, 0)
  2988   remote dat a button.  The label  has histor ically had  a value o
  2989   "KRN",8994 ,3567,1,3, 0)
  2990   VistaWeb.   With the  addition o f this RPC  and a new  parameter
  2991   "KRN",8994 ,3567,1,4, 0)
  2992   ORWRP LEGA CY VIEWER  LABEL, the  caption o f this but ton can be
  2993   "KRN",8994 ,3567,1,5, 0)
  2994   changed to  JLV (Join t Legacy V iewer) whe n JLV beco mes availa ble.
  2995   "KRN",8994 ,3661,-1)
  2996   0^2
  2997   "KRN",8994 ,3661,0)
  2998   ORWDSD1 OD SLCT^ODSLC T^ORWDSD1^ 2
  2999   "KRN",8994 ,3661,2,0)
  3000   ^8994.02A^ 2^2
  3001   "KRN",8994 ,3661,2,1, 0)
  3002   DFN^1^^1^1
  3003   "KRN",8994 ,3661,2,2, 0)
  3004   LOC^1^^1^2
  3005   "KRN",8994 ,3661,2,"B ","DFN",1)
  3006  
  3007   "KRN",8994 ,3661,2,"B ","LOC",2)
  3008  
  3009   "KRN",8994 ,3661,2,"P ARAMSEQ",1 ,1)
  3010  
  3011   "KRN",8994 ,3661,2,"P ARAMSEQ",2 ,2)
  3012  
  3013   "MBREQ")
  3014   1
  3015   "ORD",15,1 01)
  3016   101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA
  3017   "ORD",15,1 01,0)
  3018   PROTOCOL
  3019   "ORD",16,8 994)
  3020   8994;16;1; ;;;;;;RPCD EL^XPDIA1
  3021   "ORD",16,8 994,0)
  3022   REMOTE PRO CEDURE
  3023   "ORD",18,1 9)
  3024   19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
  3025   "ORD",18,1 9,0)
  3026   OPTION
  3027   "ORD",20,8 989.51)
  3028   8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%)
  3029   "ORD",20,8 989.51,0)
  3030   PARAMETER  DEFINITION
  3031   "PGL",100. 9,1,1,1)
  3032   NON-MENU T YPE OPTION  ACTION^P1 9'^DIC(19, ^1;1^Q
  3033   "PGL",100. 98,0,4,4)
  3034   DEFAULT DI ALOG^P101. 41'^ORD(10 1.41,^0;4^ Q
  3035   "PGL",101. 41,0,5,5)
  3036   DISPLAY GR OUP^P100.9 8'^ORD(100 .98,^0;5^Q
  3037   "PGL",101. 41,0,7,7)
  3038   PACKAGE^P9 .4'^DIC(9. 4,^0;7^Q
  3039   "PGL",101. 412,0,2,2)
  3040   ITEM^P101. 41'X^ORD(1 01.41,^0;2 ^D TREE^OR DD41
  3041   "PGL",101. 412,0,11,1 )
  3042   PARENT^P10 1.41'^ORD( 101.41,^0; 11^Q
  3043   "PGL",101. 415,0,2,2)
  3044   ITEM^P101. 41'^ORD(10 1.41,^0;2^ Q
  3045   "PGL",101. 416,0,2,.0 2)
  3046   DIALOG^P10 1.41'^ORD( 101.41,^0; 2^Q
  3047   "PKG",170, -1)
  3048   1^1
  3049   "PKG",170, 0)
  3050   ORDER ENTR Y/RESULTS  REPORTING^ OR^Order E ntry/Resul ts Reporti ng
  3051   "PKG",170, 20,0)
  3052   ^9.402P^^
  3053   "PKG",170, 22,0)
  3054   ^9.49I^1^1
  3055   "PKG",170, 22,1,0)
  3056   3.0^297121 7^2980917^ 11712
  3057   "PKG",170, 22,1,"PAH" ,1,0)
  3058   434^317062 9^10000000 200
  3059   "PRE")
  3060   ORY434
  3061   "QUES","XP F1",0)
  3062   Y
  3063   "QUES","XP F1","??")
  3064   ^D REP^XPD H
  3065   "QUES","XP F1","A")
  3066   Shall I wr ite over y our |FLAG|  File
  3067   "QUES","XP F1","B")
  3068   YES
  3069   "QUES","XP F1","M")
  3070   D XPF1^XPD IQ
  3071   "QUES","XP F2",0)
  3072   Y
  3073   "QUES","XP F2","??")
  3074   ^D DTA^XPD H
  3075   "QUES","XP F2","A")
  3076   Want my da ta |FLAG|  yours
  3077   "QUES","XP F2","B")
  3078   YES
  3079   "QUES","XP F2","M")
  3080   D XPF2^XPD IQ
  3081   "QUES","XP I1",0)
  3082   YO
  3083   "QUES","XP I1","??")
  3084   ^D INHIBIT ^XPDH
  3085   "QUES","XP I1","A")
  3086   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  3087   "QUES","XP I1","B")
  3088   NO
  3089   "QUES","XP I1","M")
  3090   D XPI1^XPD IQ
  3091   "QUES","XP M1",0)
  3092   PO^VA(200, :EM
  3093   "QUES","XP M1","??")
  3094   ^D MG^XPDH
  3095   "QUES","XP M1","A")
  3096   Enter the  Coordinato r for Mail  Group '|F LAG|'
  3097   "QUES","XP M1","B")
  3098  
  3099   "QUES","XP M1","M")
  3100   D XPM1^XPD IQ
  3101   "QUES","XP O1",0)
  3102   Y
  3103   "QUES","XP O1","??")
  3104   ^D MENU^XP DH
  3105   "QUES","XP O1","A")
  3106   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  3107   "QUES","XP O1","B")
  3108   NO
  3109   "QUES","XP O1","M")
  3110   D XPO1^XPD IQ
  3111   "QUES","XP Z1",0)
  3112   Y
  3113   "QUES","XP Z1","??")
  3114   ^D OPT^XPD H
  3115   "QUES","XP Z1","A")
  3116   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  3117   "QUES","XP Z1","B")
  3118   NO
  3119   "QUES","XP Z1","M")
  3120   D XPZ1^XPD IQ
  3121   "QUES","XP Z2",0)
  3122   Y
  3123   "QUES","XP Z2","??")
  3124   ^D RTN^XPD H
  3125   "QUES","XP Z2","A")
  3126   Want to MO VE routine s to other  CPUs
  3127   "QUES","XP Z2","B")
  3128   NO
  3129   "QUES","XP Z2","M")
  3130   D XPZ2^XPD IQ
  3131   "RTN")
  3132   16
  3133   "RTN","ORB 3FUP2")
  3134   0^10^B6992 4581
  3135   "RTN","ORB 3FUP2",1,0 )
  3136   ORB3FUP2 ;  slc/CLA -  Routine t o support  notificati on follow- up actions  ;05/16/17   08:21
  3137   "RTN","ORB 3FUP2",2,0 )
  3138    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 1,64,88,11 2,243,434* *;Dec 17,  1997;Build  31
  3139   "RTN","ORB 3FUP2",3,0 )
  3140   RESULT ;ST AT, ordere r-flagged  and site-f lagged res ult follow -up
  3141   "RTN","ORB 3FUP2",4,0 )
  3142    ;determin e what pkg  to get re port/resul ts from th en do RPTL AB or RPTR AD
  3143   "RTN","ORB 3FUP2",5,0 )
  3144    N ORBFILL  S ORBFILL =$P($P(XQA DATA,"|",2 ),"@",2)
  3145   "RTN","ORB 3FUP2",6,0 )
  3146    I ORBFILL ["LR" D RP TLAB
  3147   "RTN","ORB 3FUP2",7,0 )
  3148    I ORBFILL ["RA" D RP TRAD
  3149   "RTN","ORB 3FUP2",8,0 )
  3150    I ORBFILL ["GMRC" D  RPTCON
  3151   "RTN","ORB 3FUP2",9,0 )
  3152    Q
  3153   "RTN","ORB 3FUP2",10, 0)
  3154   CSPN ;co-s ign progre ss note(s)  follow-up
  3155   "RTN","ORB 3FUP2",11, 0)
  3156    K XQAKILL
  3157   "RTN","ORB 3FUP2",12, 0)
  3158    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3159   "RTN","ORB 3FUP2",13, 0)
  3160    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3161   "RTN","ORB 3FUP2",14, 0)
  3162    I $G(OREN VIR)="GUI"  ;entry pt  to get no tes req co -sign then  quit
  3163   "RTN","ORB 3FUP2",15, 0)
  3164    ;joel rtn  to displa y notes re q co-signa ture and a llow co-si gn on vt
  3165   "RTN","ORB 3FUP2",16, 0)
  3166    ;if lm fu p action c ompleted D  DEL^ORB3F UP1(.ORY,O RBXQAID)
  3167   "RTN","ORB 3FUP2",17, 0)
  3168    Q
  3169   "RTN","ORB 3FUP2",18, 0)
  3170   USPN ;unsi gned progr ess note(s ) follow-u p
  3171   "RTN","ORB 3FUP2",19, 0)
  3172    K XQAKILL
  3173   "RTN","ORB 3FUP2",20, 0)
  3174    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3175   "RTN","ORB 3FUP2",21, 0)
  3176    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3177   "RTN","ORB 3FUP2",22, 0)
  3178    I $G(OREN VIR)="GUI"  ;entry pt  to get un signed not es then qu it
  3179   "RTN","ORB 3FUP2",23, 0)
  3180    ;joel rtn  to displa y notes re q signatur e and allo w signatur e on vt
  3181   "RTN","ORB 3FUP2",24, 0)
  3182    ;if lm fu p action c ompleted D  DEL^ORB3F UP1(.ORY,O RBXQAID)
  3183   "RTN","ORB 3FUP2",25, 0)
  3184    Q
  3185   "RTN","ORB 3FUP2",26, 0)
  3186   EXMED ;exp iring med( s) follow- up
  3187   "RTN","ORB 3FUP2",27, 0)
  3188    K XQAKILL
  3189   "RTN","ORB 3FUP2",28, 0)
  3190    N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL
  3191   "RTN","ORB 3FUP2",29, 0)
  3192    S ORBXQAI D=XQAID
  3193   "RTN","ORB 3FUP2",30, 0)
  3194    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3195   "RTN","ORB 3FUP2",31, 0)
  3196    ;the FLG  code for E XPIRING or ders in OR Q1 is '5'
  3197   "RTN","ORB 3FUP2",32, 0)
  3198    I $G(OREN VIR)="GUI"  D LIST^OR QOR1(.ORBY ,ORPT,"RX" ,5,"","")
  3199   "RTN","ORB 3FUP2",33, 0)
  3200    I $G(OREN VIR)'="GUI " D
  3201   "RTN","ORB 3FUP2",34, 0)
  3202    .D MSG^OR B3FUP1
  3203   "RTN","ORB 3FUP2",35, 0)
  3204    .S ORDG=$ $DG^ORQOR1 ("RX")  ;g et Display  Group ien
  3205   "RTN","ORB 3FUP2",36, 0)
  3206    .D EN^ORC B(ORPT,5,O RDG,.ORBLM DEL)
  3207   "RTN","ORB 3FUP2",37, 0)
  3208    .K ^TMP(" ORR",$J)
  3209   "RTN","ORB 3FUP2",38, 0)
  3210    .Q:$G(ORB LMDEL)=1   ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in  LM
  3211   "RTN","ORB 3FUP2",39, 0)
  3212    .D EN^ORQ 1(ORPT_";D PT(",ORDG, 5,"","","" ,0,0)
  3213   "RTN","ORB 3FUP2",40, 0)
  3214    .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X=""   I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D
  3215   "RTN","ORB 3FUP2",41, 0)
  3216    ..D DEL^O RB3FUP1(.O RY,ORBXQAI D)  ;if no  more EXPI RING order s found, d elete the  alert
  3217   "RTN","ORB 3FUP2",42, 0)
  3218    .K X,^TMP ("ORR",$J)
  3219   "RTN","ORB 3FUP2",43, 0)
  3220    Q
  3221   "RTN","ORB 3FUP2",44, 0)
  3222   UVMED ;unv erified me d(s) follo w-up
  3223   "RTN","ORB 3FUP2",45, 0)
  3224    K XQAKILL
  3225   "RTN","ORB 3FUP2",46, 0)
  3226    N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL,ORADT
  3227   "RTN","ORB 3FUP2",47, 0)
  3228    S ORBXQAI D=XQAID
  3229   "RTN","ORB 3FUP2",48, 0)
  3230    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3231   "RTN","ORB 3FUP2",49, 0)
  3232    ;the FLG  code for U NVERIFIED  (NURSE) or ders in OR Q1 is '9'
  3233   "RTN","ORB 3FUP2",50, 0)
  3234    I $G(OREN VIR)="GUI"  D LIST^OR QOR1(.ORBY ,ORPT,"RX" ,9,"","")
  3235   "RTN","ORB 3FUP2",51, 0)
  3236    I $G(OREN VIR)'="GUI " D
  3237   "RTN","ORB 3FUP2",52, 0)
  3238    .D MSG^OR B3FUP1
  3239   "RTN","ORB 3FUP2",53, 0)
  3240    .S ORDG=$ $DG^ORQOR1 ("RX")  ;g et Display  Group ien
  3241   "RTN","ORB 3FUP2",54, 0)
  3242    .D EN^ORC B(ORPT,9,O RDG,.ORBLM DEL)
  3243   "RTN","ORB 3FUP2",55, 0)
  3244    .K ^TMP(" ORR",$J)
  3245   "RTN","ORB 3FUP2",56, 0)
  3246    .Q:$G(ORB LMDEL)=1   ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in  LM
  3247   "RTN","ORB 3FUP2",57, 0)
  3248    .;
  3249   "RTN","ORB 3FUP2",58, 0)
  3250    .;if user  doesn't h ave ORELSE  or ORMAS  keys (can' t verify),
  3251   "RTN","ORB 3FUP2",59, 0)
  3252    .;   dele te user's  alert afte r display:
  3253   "RTN","ORB 3FUP2",60, 0)
  3254    .I '$D(^X USEC("OREL SE",DUZ)), ('$D(^XUSE C("OREMAS" ,DUZ))) S  XQAKILL=1  D DEL^ORB3 FUP1(.ORY, ORBXQAID)  Q
  3255   "RTN","ORB 3FUP2",61, 0)
  3256    .;
  3257   "RTN","ORB 3FUP2",62, 0)
  3258    .;get cur rent admis sion date/ time:
  3259   "RTN","ORB 3FUP2",63, 0)
  3260    .N DFN S  DFN=ORPT,V A200="" D  INP^VADPT
  3261   "RTN","ORB 3FUP2",64, 0)
  3262    .S ORADT= $P($G(VAIN (7)),U)
  3263   "RTN","ORB 3FUP2",65, 0)
  3264    .S ORADT= $S('$L($G( ORADT)):$$ FMADD^XLFD T($$NOW^XL FDT,"-30") ,1:ORADT)
  3265   "RTN","ORB 3FUP2",66, 0)
  3266    .;
  3267   "RTN","ORB 3FUP2",67, 0)
  3268    .;if no m ore UNVERI FIED MED o rders foun d (within  current ad mission or
  3269   "RTN","ORB 3FUP2",68, 0)
  3270    .; past 3 0 days), d elete the  alert:
  3271   "RTN","ORB 3FUP2",69, 0)
  3272    .D EN^ORQ 1(ORPT_";D PT(",ORDG, 9,"",ORADT ,$$NOW^XLF DT,0,0)
  3273   "RTN","ORB 3FUP2",70, 0)
  3274    .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X=""   I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D
  3275   "RTN","ORB 3FUP2",71, 0)
  3276    ..D DEL^O RB3FUP1(.O RY,ORBXQAI D)
  3277   "RTN","ORB 3FUP2",72, 0)
  3278    .K X,^TMP ("ORR",$J) ,VA200,VAI N
  3279   "RTN","ORB 3FUP2",73, 0)
  3280    Q
  3281   "RTN","ORB 3FUP2",74, 0)
  3282   UNVER ;unv erified or der(s) fol low-up
  3283   "RTN","ORB 3FUP2",75, 0)
  3284    K XQAKILL
  3285   "RTN","ORB 3FUP2",76, 0)
  3286    N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL,ORADT
  3287   "RTN","ORB 3FUP2",77, 0)
  3288    S ORBXQAI D=XQAID
  3289   "RTN","ORB 3FUP2",78, 0)
  3290    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3291   "RTN","ORB 3FUP2",79, 0)
  3292    ;the FLG  code for U NVERIFIED  (NURSE) or ders in OR Q1 is '9'
  3293   "RTN","ORB 3FUP2",80, 0)
  3294    I $G(OREN VIR)="GUI"  D LIST^OR QOR1(.ORBY ,ORPT,"ALL ",9,"","")
  3295   "RTN","ORB 3FUP2",81, 0)
  3296    I $G(OREN VIR)'="GUI " D
  3297   "RTN","ORB 3FUP2",82, 0)
  3298    .D MSG^OR B3FUP1
  3299   "RTN","ORB 3FUP2",83, 0)
  3300    .S ORDG=$ $DG^ORQOR1 ("ALL")  ; get Displa y Group ie n
  3301   "RTN","ORB 3FUP2",84, 0)
  3302    .D EN^ORC B(ORPT,9,O RDG,.ORBLM DEL)
  3303   "RTN","ORB 3FUP2",85, 0)
  3304    .K ^TMP(" ORR",$J)
  3305   "RTN","ORB 3FUP2",86, 0)
  3306    .Q:$G(ORB LMDEL)=1   ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in  LM
  3307   "RTN","ORB 3FUP2",87, 0)
  3308    .;
  3309   "RTN","ORB 3FUP2",88, 0)
  3310    .;if user  doesn't h ave ORELSE  or ORMAS  keys (can' t verify),
  3311   "RTN","ORB 3FUP2",89, 0)
  3312    .;   dele te user's  alert afte r display:
  3313   "RTN","ORB 3FUP2",90, 0)
  3314    .I '$D(^X USEC("OREL SE",DUZ)), ('$D(^XUSE C("OREMAS" ,DUZ))) S  XQAKILL=1  D DEL^ORB3 FUP1(.ORY, ORBXQAID)  Q
  3315   "RTN","ORB 3FUP2",91, 0)
  3316    .;
  3317   "RTN","ORB 3FUP2",92, 0)
  3318    .;get cur rent admis sion date/ time:
  3319   "RTN","ORB 3FUP2",93, 0)
  3320    .N DFN S  DFN=ORPT,V A200="" D  INP^VADPT
  3321   "RTN","ORB 3FUP2",94, 0)
  3322    .S ORADT= $P($G(VAIN (7)),U)
  3323   "RTN","ORB 3FUP2",95, 0)
  3324    .S ORADT= $S('$L($G( ORADT)):$$ FMADD^XLFD T($$NOW^XL FDT,"-30") ,1:ORADT)
  3325   "RTN","ORB 3FUP2",96, 0)
  3326    .;
  3327   "RTN","ORB 3FUP2",97, 0)
  3328    .;if no m ore UNVERI FIED order s found (w ithin curr ent admiss ion or pas t
  3329   "RTN","ORB 3FUP2",98, 0)
  3330    .; 30 day s), delete  the alert :
  3331   "RTN","ORB 3FUP2",99, 0)
  3332    .D EN^ORQ 1(ORPT_";D PT(",ORDG, 9,"",ORADT ,$$NOW^XLF DT,0,0)
  3333   "RTN","ORB 3FUP2",100 ,0)
  3334    .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X=""   I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D
  3335   "RTN","ORB 3FUP2",101 ,0)
  3336    ..D DEL^O RB3FUP1(.O RY,ORBXQAI D)
  3337   "RTN","ORB 3FUP2",102 ,0)
  3338    .K X,^TMP ("ORR",$J) ,VA200,VAI N
  3339   "RTN","ORB 3FUP2",103 ,0)
  3340    Q
  3341   "RTN","ORB 3FUP2",104 ,0)
  3342   NEWCON ;ne w consult/ request fo llow-up
  3343   "RTN","ORB 3FUP2",105 ,0)
  3344    K XQAKILL
  3345   "RTN","ORB 3FUP2",106 ,0)
  3346    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3347   "RTN","ORB 3FUP2",107 ,0)
  3348    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3349   "RTN","ORB 3FUP2",108 ,0)
  3350    ;I $G(ORE NVIR)="GUI " D  ;comm ent out un til GUI fo llow-up
  3351   "RTN","ORB 3FUP2",109 ,0)
  3352    ;.entry p t to get n ew consult s then qui t
  3353   "RTN","ORB 3FUP2",110 ,0)
  3354    I $G(OREN VIR)'="GUI " D
  3355   "RTN","ORB 3FUP2",111 ,0)
  3356    .D MSG^OR B3FUP1
  3357   "RTN","ORB 3FUP2",112 ,0)
  3358    .D EN^GMR CALRT(XQAD ATA,XQAID)  ;display  new c/r an d allow ac tion
  3359   "RTN","ORB 3FUP2",113 ,0)
  3360    .;D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;Dwight  does the  delete in  GMRC
  3361   "RTN","ORB 3FUP2",114 ,0)
  3362    Q
  3363   "RTN","ORB 3FUP2",115 ,0)
  3364   UPCON ;upd ated consu lt/request  follow-up
  3365   "RTN","ORB 3FUP2",116 ,0)
  3366    K XQAKILL
  3367   "RTN","ORB 3FUP2",117 ,0)
  3368    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3369   "RTN","ORB 3FUP2",118 ,0)
  3370    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3371   "RTN","ORB 3FUP2",119 ,0)
  3372    I $G(OREN VIR)'="GUI " D
  3373   "RTN","ORB 3FUP2",120 ,0)
  3374    .D MSG^OR B3FUP1
  3375   "RTN","ORB 3FUP2",121 ,0)
  3376    .D EN^GMR CALRT(XQAD ATA,XQAID)  ;display  updated c/ r and allo w action
  3377   "RTN","ORB 3FUP2",122 ,0)
  3378    Q
  3379   "RTN","ORB 3FUP2",123 ,0)
  3380   DCCON ;can celled, he ld or DCed  consult/r equest fol low-up
  3381   "RTN","ORB 3FUP2",124 ,0)
  3382    K XQAKILL
  3383   "RTN","ORB 3FUP2",125 ,0)
  3384    N ORPT,NX QADATA
  3385   "RTN","ORB 3FUP2",126 ,0)
  3386    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3387   "RTN","ORB 3FUP2",127 ,0)
  3388    ;I $G(ORE NVIR)="GUI " D  ;comm ent out un til GUI fo llow-up
  3389   "RTN","ORB 3FUP2",128 ,0)
  3390    ;.entry p t to get n ew consult s then qui t
  3391   "RTN","ORB 3FUP2",129 ,0)
  3392    I $G(OREN VIR)'="GUI " D
  3393   "RTN","ORB 3FUP2",130 ,0)
  3394    .D MSG^OR B3FUP1
  3395   "RTN","ORB 3FUP2",131 ,0)
  3396    .I XQADAT A["GMRC" S  NXQADATA= $P($P(XQAD ATA,"|",2) ,"@") D EN ^GMRCEDIT( NXQADATA,X QAID)
  3397   "RTN","ORB 3FUP2",132 ,0)
  3398    .I +$G(NX QADATA)<1  D EN^GMRCE DIT(XQADAT A,XQAID)
  3399   "RTN","ORB 3FUP2",133 ,0)
  3400    Q
  3401   "RTN","ORB 3FUP2",134 ,0)
  3402   RPTCON ;co nsult resu lt follow- up
  3403   "RTN","ORB 3FUP2",135 ,0)
  3404    K XQAKILL
  3405   "RTN","ORB 3FUP2",136 ,0)
  3406    N NXQADAT A
  3407   "RTN","ORB 3FUP2",137 ,0)
  3408    ;N ORPT,O RBXQAID,OR Y S ORBXQA ID=XQAID
  3409   "RTN","ORB 3FUP2",138 ,0)
  3410    ;S ORPT=$ P($P(XQAID ,";"),",", 2)  ;get p t dfn from  xqaid
  3411   "RTN","ORB 3FUP2",139 ,0)
  3412    I $G(OREN VIR)="GUI"  D DETAIL^ ORQQCN(.OR BY,XQADATA )
  3413   "RTN","ORB 3FUP2",140 ,0)
  3414    I $G(OREN VIR)'="GUI " D
  3415   "RTN","ORB 3FUP2",141 ,0)
  3416    .D MSG^OR B3FUP1
  3417   "RTN","ORB 3FUP2",142 ,0)
  3418    .D EN^GMR CALRT(XQAD ATA,XQAID)
  3419   "RTN","ORB 3FUP2",143 ,0)
  3420    .;I XQADA TA["GMRC"  S NXQADATA =$P($P(XQA DATA,"|",2 ),"@") D E N^GMRCALRT (NXQADATA, XQAID)
  3421   "RTN","ORB 3FUP2",144 ,0)
  3422    .;I +$G(N XQADATA)<1  D EN^GMRC ALRT(XQADA TA,XQAID)
  3423   "RTN","ORB 3FUP2",145 ,0)
  3424    .;D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;Dwight  does the  delete in  GMRC
  3425   "RTN","ORB 3FUP2",146 ,0)
  3426    Q
  3427   "RTN","ORB 3FUP2",147 ,0)
  3428   RPTAP ; AP  lab resul t follow-u p
  3429   "RTN","ORB 3FUP2",148 ,0)
  3430    K XQAKILL
  3431   "RTN","ORB 3FUP2",149 ,0)
  3432    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3433   "RTN","ORB 3FUP2",150 ,0)
  3434    S ORPT=$P ($P(ORBXQA ID,";"),", ",2)  ;get  pt dfn fr om xqaid
  3435   "RTN","ORB 3FUP2",151 ,0)
  3436    N ORACCNU M,ORDTSTKN  S ORACCNU M=$P(XQADA TA,U,2),OR DTSTKN=$P( XQADATA,U, 3)
  3437   "RTN","ORB 3FUP2",152 ,0)
  3438    I $G(OREN VIR)'="GUI " D
  3439   "RTN","ORB 3FUP2",153 ,0)
  3440    .D MSG^OR B3FUP1
  3441   "RTN","ORB 3FUP2",154 ,0)
  3442    .D EN1^OR CXPND(ORPT ,ORACCNUM_ "-"_ORDTST KN,"LABS")
  3443   "RTN","ORB 3FUP2",155 ,0)
  3444    .D DEL^OR B3FUP1(.OR Y,ORBXQAID )
  3445   "RTN","ORB 3FUP2",156 ,0)
  3446    Q
  3447   "RTN","ORB 3FUP2",157 ,0)
  3448   RPTLAB ;la b result f ollow-up
  3449   "RTN","ORB 3FUP2",158 ,0)
  3450    K XQAKILL
  3451   "RTN","ORB 3FUP2",159 ,0)
  3452    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3453   "RTN","ORB 3FUP2",160 ,0)
  3454    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3455   "RTN","ORB 3FUP2",161 ,0)
  3456    N ORDER,O RLAB S ORD ER=$P(XQAD ATA,"@")
  3457   "RTN","ORB 3FUP2",162 ,0)
  3458    I $G(OREN VIR)="GUI"  D DETAIL^ ORQQLR(.OR BY,ORPT,OR DER)
  3459   "RTN","ORB 3FUP2",163 ,0)
  3460    I $G(OREN VIR)'="GUI " D
  3461   "RTN","ORB 3FUP2",164 ,0)
  3462    .D MSG^OR B3FUP1
  3463   "RTN","ORB 3FUP2",165 ,0)
  3464    .;S ORLAB =$$OETOLAB ^ORQQLR1(O RDER)
  3465   "RTN","ORB 3FUP2",166 ,0)
  3466    .;Q:'$L($ G(ORLAB))
  3467   "RTN","ORB 3FUP2",167 ,0)
  3468    .;D EN1^O RCXPND(ORP T,ORLAB,"L ABS")  ;ap i used lab  # pre-6/9 7
  3469   "RTN","ORB 3FUP2",168 ,0)
  3470    .D EN1^OR CXPND(ORPT ,ORDER,"LA BS")
  3471   "RTN","ORB 3FUP2",169 ,0)
  3472    .D DEL^OR B3FUP1(.OR Y,ORBXQAID )
  3473   "RTN","ORB 3FUP2",170 ,0)
  3474    Q
  3475   "RTN","ORB 3FUP2",171 ,0)
  3476   RPTRAD ;ra diology re sult follo w-up for H L7-trigger ed notific ations
  3477   "RTN","ORB 3FUP2",172 ,0)
  3478    K XQAKILL
  3479   "RTN","ORB 3FUP2",173 ,0)
  3480    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3481   "RTN","ORB 3FUP2",174 ,0)
  3482    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3483   "RTN","ORB 3FUP2",175 ,0)
  3484    N INVDT,C ASE S INVD T="",CASE= ""
  3485   "RTN","ORB 3FUP2",176 ,0)
  3486    ;XQADATA  is differe nt for HL7 -triggered  vs. radio logy pkg t riggered
  3487   "RTN","ORB 3FUP2",177 ,0)
  3488    S INVDT=$ P(XQADATA, "~",2),CAS E=$P($P(XQ ADATA,"~", 3),"@")
  3489   "RTN","ORB 3FUP2",178 ,0)
  3490    I $G(OREN VIR)="GUI"  D DETAIL^ ORQQRA(.OR BY,ORPT,IN VDT,CASE)
  3491   "RTN","ORB 3FUP2",179 ,0)
  3492    I $G(OREN VIR)'="GUI " D
  3493   "RTN","ORB 3FUP2",180 ,0)
  3494    .D MSG^OR B3FUP1
  3495   "RTN","ORB 3FUP2",181 ,0)
  3496    .D EN1^OR CXPND(ORPT ,INVDT_"-" _CASE,"XRA YS")
  3497   "RTN","ORB 3FUP2",182 ,0)
  3498    .D DEL^OR B3FUP1(.OR Y,ORBXQAID )
  3499   "RTN","ORB 3FUP2",183 ,0)
  3500    Q
  3501   "RTN","ORB 3FUP2",184 ,0)
  3502   RPTRAD2 ;r adiology r esult foll ow-up for  radiology  pkg-trigge red notifi cations
  3503   "RTN","ORB 3FUP2",185 ,0)
  3504    K XQAKILL
  3505   "RTN","ORB 3FUP2",186 ,0)
  3506    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3507   "RTN","ORB 3FUP2",187 ,0)
  3508    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3509   "RTN","ORB 3FUP2",188 ,0)
  3510    N INVDT,C ASE S INVD T="",CASE= ""
  3511   "RTN","ORB 3FUP2",189 ,0)
  3512    ;XQADATA  is differe nt for HL7 -triggered  vs. radio logy pkg t riggered
  3513   "RTN","ORB 3FUP2",190 ,0)
  3514    S INVDT=$ P(XQADATA, "~",1),CAS E=$P(XQADA TA,"~",2)
  3515   "RTN","ORB 3FUP2",191 ,0)
  3516    I $G(OREN VIR)="GUI"  D DETAIL^ ORQQRA(.OR BY,ORPT,IN VDT,CASE)
  3517   "RTN","ORB 3FUP2",192 ,0)
  3518    I $G(OREN VIR)'="GUI " D
  3519   "RTN","ORB 3FUP2",193 ,0)
  3520    .D MSG^OR B3FUP1
  3521   "RTN","ORB 3FUP2",194 ,0)
  3522    .D EN1^OR CXPND(ORPT ,INVDT_"-" _CASE,"XRA YS")
  3523   "RTN","ORB 3FUP2",195 ,0)
  3524    .D DEL^OR B3FUP1(.OR Y,ORBXQAID )
  3525   "RTN","ORB 3FUP2",196 ,0)
  3526    Q
  3527   "RTN","ORB 3FUP2",197 ,0)
  3528   EXOI ;expi ring flagg ed orderab le items f ollow-up
  3529   "RTN","ORB 3FUP2",198 ,0)
  3530    K XQAKILL
  3531   "RTN","ORB 3FUP2",199 ,0)
  3532    N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL
  3533   "RTN","ORB 3FUP2",200 ,0)
  3534    S ORBXQAI D=XQAID
  3535   "RTN","ORB 3FUP2",201 ,0)
  3536    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3537   "RTN","ORB 3FUP2",202 ,0)
  3538    ;the FLG  code for E XPIRING or ders in OR Q1 is '5'
  3539   "RTN","ORB 3FUP2",203 ,0)
  3540    I $G(OREN VIR)="GUI"  D LIST^OR QOR1(.ORBY ,ORPT,"ALL ",5,"","")
  3541   "RTN","ORB 3FUP2",204 ,0)
  3542    I $G(OREN VIR)'="GUI " D
  3543   "RTN","ORB 3FUP2",205 ,0)
  3544    .D MSG^OR B3FUP1
  3545   "RTN","ORB 3FUP2",206 ,0)
  3546    .S ORDG=$ $DG^ORQOR1 ("ALL")  ; get Displa y Group ie n
  3547   "RTN","ORB 3FUP2",207 ,0)
  3548    .D EN^ORC B(ORPT,5,O RDG,.ORBLM DEL)
  3549   "RTN","ORB 3FUP2",208 ,0)
  3550    .K ^TMP(" ORR",$J)
  3551   "RTN","ORB 3FUP2",209 ,0)
  3552    .Q:$G(ORB LMDEL)=1   ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in  LM
  3553   "RTN","ORB 3FUP2",210 ,0)
  3554    .D EN^ORQ 1(ORPT_";D PT(",ORDG, 5,"","","" ,0,0)
  3555   "RTN","ORB 3FUP2",211 ,0)
  3556    .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X=""   I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D
  3557   "RTN","ORB 3FUP2",212 ,0)
  3558    ..D DEL^O RB3FUP1(.O RY,ORBXQAI D)  ;if no  more EXPI RING order s found, d elete the  alert
  3559   "RTN","ORB 3FUP2",213 ,0)
  3560    .K X,^TMP ("ORR",$J)
  3561   "RTN","ORB 3FUP2",214 ,0)
  3562    Q
  3563   "RTN","ORB 3FUP2",215 ,0)
  3564   INTCON ;co nsult inte rpretation  follow-up
  3565   "RTN","ORB 3FUP2",216 ,0)
  3566    K XQAKILL
  3567   "RTN","ORB 3FUP2",217 ,0)
  3568    N NXQADAT A
  3569   "RTN","ORB 3FUP2",218 ,0)
  3570    I $G(OREN VIR)'="GUI " D
  3571   "RTN","ORB 3FUP2",219 ,0)
  3572    .D MSG^OR B3FUP1
  3573   "RTN","ORB 3FUP2",220 ,0)
  3574    .R !!?5," This alert  must be p rocessed i n the CPRS  GUI.",X:1 0
  3575   "RTN","ORB 3FUP2",221 ,0)
  3576    .K X
  3577   "RTN","ORB 3FUP2",222 ,0)
  3578    Q
  3579   "RTN","ORB 3FUP2",223 ,0)
  3580   CHGRAD ;ra diology fo llow-up fo r #67 Imag ing Reques t Changed
  3581   "RTN","ORB 3FUP2",224 ,0)
  3582    K XQAKILL
  3583   "RTN","ORB 3FUP2",225 ,0)
  3584    N ORPT,OR BXQAID,ORY  S ORBXQAI D=XQAID
  3585   "RTN","ORB 3FUP2",226 ,0)
  3586    S ORPT=$P ($P(XQAID, ";"),",",2 )  ;get pt  dfn from  xqaid
  3587   "RTN","ORB 3FUP2",227 ,0)
  3588    I $G(OREN VIR)'="GUI " D
  3589   "RTN","ORB 3FUP2",228 ,0)
  3590    .D MSG^OR B3FUP1
  3591   "RTN","ORB 3FUP2",229 ,0)
  3592    .I $L($T( EN1^RAO7PC 4))>0 D
  3593   "RTN","ORB 3FUP2",230 ,0)
  3594    ..D EN1^R AO7PC4  ;d isplay bef ore and af ter change (s)
  3595   "RTN","ORB 3FUP2",231 ,0)
  3596    ..D DEL^O RB3FUP1(.O RY,ORBXQAI D)
  3597   "RTN","ORB 3FUP2",232 ,0)
  3598    Q
  3599   "RTN","ORB 3FUP2",233 ,0)
  3600   INFODEL ;f ollow-up a ction to d elete "inf ormational " alerts
  3601   "RTN","ORB 3FUP2",234 ,0)
  3602    K XQAKILL
  3603   "RTN","ORB 3FUP2",235 ,0)
  3604    N ORY,ORB XQAID
  3605   "RTN","ORB 3FUP2",236 ,0)
  3606    S ORBXQAI D=XQAID
  3607   "RTN","ORB 3FUP2",237 ,0)
  3608    D MSG^ORB 3FUP1
  3609   "RTN","ORB 3FUP2",238 ,0)
  3610    D DEL^ORB 3FUP1(.ORY ,ORBXQAID)
  3611   "RTN","ORB 3FUP2",239 ,0)
  3612    Q
  3613   "RTN","ORB 3FUP2",240 ,0)
  3614   RTC ;follo wup action  for RTC o rder alert
  3615   "RTN","ORB 3FUP2",241 ,0)
  3616    N ORY
  3617   "RTN","ORB 3FUP2",242 ,0)
  3618    W !,"You  must use C PRS to pro cess this  alert!"
  3619   "RTN","ORB 3FUP2",243 ,0)
  3620    D RENEW^O RB31(.ORY, XQAID)
  3621   "RTN","ORB 3FUP2",244 ,0)
  3622    Q
  3623   "RTN","ORB 3FUP2",245 ,0)
  3624    ;
  3625   "RTN","ORC ACT0")
  3626   0^13^B6748 0788
  3627   "RTN","ORC ACT0",1,0)
  3628   ORCACT0 ;S LC/MKB-Val idate orde r action ; 06/13/17
  3629   "RTN","ORC ACT0",2,0)
  3630    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**7 ,27,48,72, 86,92,94,1 41,165,177 ,173,190,2 15,243,289 ,204,306,3 50,425,434 **;Dec 17,  1997;Buil d 31
  3631   "RTN","ORC ACT0",3,0)
  3632    ;
  3633   "RTN","ORC ACT0",4,0)
  3634    ;Referenc e to REFIL L^PSOREF s upported b y IA #2399
  3635   "RTN","ORC ACT0",5,0)
  3636    ;
  3637   "RTN","ORC ACT0",6,0)
  3638   VALID(IFN, ACTION,ERR OR,NATR) ;  -- Determ ines if ac tion is va lid for or der IFN
  3639   "RTN","ORC ACT0",7,0)
  3640    N OR0,OR3 ,ORA0,AIFN ,PKG,DG,OR DSTS,ACTST S,VER,X,Y, MEDPARM,CS ORD,ORDLG, ORENVIR K  ERROR
  3641   "RTN","ORC ACT0",8,0)
  3642    S OR0=$G( ^OR(100,+I FN,0)),OR3 =$G(^(3)), PKG=$$NMSP ^ORCD($P(O R0,U,14))
  3643   "RTN","ORC ACT0",9,0)
  3644    S ORENVIR =$S('$D(XQ Y0):"",$P( XQY0,U)="O R CPRS GUI  CHART":"G UI",1:"")
  3645   "RTN","ORC ACT0",10,0 )
  3646    I $G(OREN VIR)'="GUI "&(ACTION= "ES") D  G  VQ
  3647   "RTN","ORC ACT0",11,0 )
  3648    . S CSORD ="" D CSVA LUE^ORDEA( .CSORD,+IF N)
  3649   "RTN","ORC ACT0",12,0 )
  3650    . S ORDLG =$S($P(OR0 ,U,5)["101 .41":$P($G (^ORD(101. 41,+$P(OR0 ,U,5),0)), U),1:"")
  3651   "RTN","ORC ACT0",13,0 )
  3652    . I CSORD &(ORDLG="P SO OERR")  D
  3653   "RTN","ORC ACT0",14,0 )
  3654    . . S ERR OR="Outpat ient contr olled subs tance orde r(s) canno t be signe d in VistA  due to"_$ C(13,10)
  3655   "RTN","ORC ACT0",15,0 )
  3656    . . S ERR OR=ERROR_"      DEA r ules! Plea se sign yo ur order(s ) from the  CPRS GUI. "
  3657   "RTN","ORC ACT0",16,0 )
  3658    . . Q
  3659   "RTN","ORC ACT0",17,0 )
  3660    S DG=$P($ G(^ORD(100 .98,+$P(OR 0,U,11),0) ),U,3)
  3661   "RTN","ORC ACT0",18,0 )
  3662    S MEDPARM =$S($G(NAT R)="A":2,P KG'="PS":2 ,'$D(^XUSE C("OREMAS" ,DUZ)):2,D G="NV RX": $$GET^XPAR ("ALL","OR  OREMAS NO N-VA MED O RDERS"),1: $$GET^XPAR ("ALL","OR  OREMAS ME D ORDERS") )
  3663   "RTN","ORC ACT0",19,0 )
  3664    S AIFN=$P (IFN,";",2 ) S:'AIFN  AIFN=+$P(O R3,U,7)
  3665   "RTN","ORC ACT0",20,0 )
  3666    S ORA0=$G (^OR(100,+ IFN,8,AIFN ,0)),ACTST S=$P(ORA0, U,15)
  3667   "RTN","ORC ACT0",21,0 )
  3668    S ORDSTS= $P(OR3,U,3 ),VER=$S($ P(OR0,U,5) ["101.41": 3,1:2)
  3669   "RTN","ORC ACT0",22,0 )
  3670   CM ;I ACTI ON="CM" S  ERROR="Thi s action i s no longe r availabl e!" G VQ ;  ward comm ents - no  restrictio ns
  3671   "RTN","ORC ACT0",23,0 )
  3672   FL I ACTIO N="FL" D   G VQ ; fla g
  3673   "RTN","ORC ACT0",24,0 )
  3674    . I PKG=" SD" S ERRO R="Flaggin g not allo wed on Sch eduling or ders!" Q
  3675   "RTN","ORC ACT0",25,0 )
  3676    . I +$G(^ OR(100,+IF N,8,AIFN,3 )) S ERROR ="This ord er is alre ady flagge d!" Q
  3677   "RTN","ORC ACT0",26,0 )
  3678   UF I ACTIO N="UF" D   G VQ ; unf lag
  3679   "RTN","ORC ACT0",27,0 )
  3680    . I PKG=" SD" S ERRO R="Un-Flag ging not a llowed on  Scheduling  orders!"  Q
  3681   "RTN","ORC ACT0",28,0 )
  3682    . I '+$G( ^OR(100,+I FN,8,AIFN, 3)) S ERRO R="This or der is not  flagged!"  Q
  3683   "RTN","ORC ACT0",29,0 )
  3684   DC1 I ACTI ON="DC",AC TSTS D  G  VQ ; disco ntinue/can cel unrel  or canc or der
  3685   "RTN","ORC ACT0",30,0 )
  3686    . I (ACTS TS=11)!(AC TSTS=10) D   Q  ; unr eleased
  3687   "RTN","ORC ACT0",31,0 )
  3688    .. I 'MED PARM S ERR OR="You ar e not auth orized to  cancel med  orders!"  Q
  3689   "RTN","ORC ACT0",32,0 )
  3690    .. I $G(N ATR)="A" S  X=$O(^ORE (100.2,"AO ",+IFN,0))  I X,'$G(^ ORE(100.2, X,1)) S ER ROR="Futur e event or ders may n ot be auto -discontin ued!" Q
  3691   "RTN","ORC ACT0",33,0 )
  3692    . I ACTST S=12 S ERR OR="This o rder has b een dc'd d ue to edit !" Q
  3693   "RTN","ORC ACT0",34,0 )
  3694    . I ACTST S=13 S ERR OR="This o rder has b een cancel led!" Q
  3695   "RTN","ORC ACT0",35,0 )
  3696   ES I (ACTI ON="ES")!( ACTION="OC ")!(ACTION ="RS")!(AC TION="DS")  D ES^ORCA CT01 G VQ  ; sign
  3697   "RTN","ORC ACT0",36,0 )
  3698   VR I ACTIO N="VR" D   G VQ ; ver ify
  3699   "RTN","ORC ACT0",37,0 )
  3700    . I $G(OR VER)="N",$ P(ORA0,U,9 ) S ERROR= "This orde r has been  verified! " Q
  3701   "RTN","ORC ACT0",38,0 )
  3702    . I $G(OR VER)="C",$ P(ORA0,U,1 1) S ERROR ="This ord er has bee n verified !" Q
  3703   "RTN","ORC ACT0",39,0 )
  3704    . I $G(OR VER)="R",$ P(ORA0,U,1 9) S ERROR ="This ord er has bee n reviewed !" Q
  3705   "RTN","ORC ACT0",40,0 )
  3706    . I (ACTS TS=11)!(AC TSTS=10) S  ERROR="Th is order h as not bee n released  to the se rvice." Q
  3707   "RTN","ORC ACT0",41,0 )
  3708    . I AIFN= 1,ORDSTS=5 ,PKG="PS"  S X=$$DISA BLED I X S  ERROR=$P( X,U,2) Q
  3709   "RTN","ORC ACT0",42,0 )
  3710   DIS S X=$$ DISABLED I  X S ERROR =$P(X,U,2)  G VQ
  3711   "RTN","ORC ACT0",43,0 )
  3712   MN I ACTIO N="MN" D   G VQ ; man ually rele ase (delay ed)
  3713   "RTN","ORC ACT0",44,0 )
  3714    . I ACTST S'=10,ACTS TS'=11 S E RROR="This  order has  already b een releas ed!" Q
  3715   "RTN","ORC ACT0",45,0 )
  3716    . ;I $P(O R0,U,12)=" I",'$G(^DP T(+ORVP,.1 05)) S ERR OR="This p atient is  not curren tly admitt ed!"
  3717   "RTN","ORC ACT0",46,0 )
  3718   GMRA I PKG ="GMRA" S  ERROR="Thi s action i s not allo wed on an  allergy/ad verse reac tion!" G V Q ; no act ions allow ed on Alle rgies
  3719   "RTN","ORC ACT0",47,0 )
  3720   MEDS I PKG ="PS",'MED PARM S ERR OR="You ar e not auth orized to  enter med  orders!" G  VQ
  3721   "RTN","ORC ACT0",48,0 )
  3722   RW I ACTIO N="RW" D R W^ORCACT01  G VQ ; re write/copy
  3723   "RTN","ORC ACT0",49,0 )
  3724   XFR I ACTI ON="XFR" D   G VQ
  3725   "RTN","ORC ACT0",50,0 )
  3726    . N A
  3727   "RTN","ORC ACT0",51,0 )
  3728    . S A=""
  3729   "RTN","ORC ACT0",52,0 )
  3730    . F  S A= $O(^OR(100 ,+IFN,4.5, "ID","CONJ ",A)) Q:'A   I ^OR(10 0,+IFN,4.5 ,A,1)="X"  S ERROR="O rders with  a conjunc tion of 'E XCEPT' may  not be tr ansferred. " Q
  3731   "RTN","ORC ACT0",53,0 )
  3732    . F  S A= $O(^OR(100 ,+IFN,4.5, "ID","CONJ ",A)) Q:'A   I ^OR(10 0,+IFN,4.5 ,A,1)="T"  S ERROR="O rders with  a conjunc tion of 'T HEN' may n ot be tran sferred."  Q
  3733   "RTN","ORC ACT0",54,0 )
  3734    . I $G(ER ROR)]"" Q
  3735   "RTN","ORC ACT0",55,0 )
  3736    . D XFR^O RCACT01 ;  transfer t o in/outpt
  3737   "RTN","ORC ACT0",56,0 )
  3738   RN I ACTIO N="RN" D R N^ORCACT01  G VQ ; re new
  3739   "RTN","ORC ACT0",57,0 )
  3740   TRM I $$DO NE G VQ ;  ORDSTS=1,2 ,7,12,13
  3741   "RTN","ORC ACT0",58,0 )
  3742   EV I ACTIO N="EV" D   G VQ ; cha nge delay  event
  3743   "RTN","ORC ACT0",59,0 )
  3744    . I ORDST S'=10,ORDS TS'=11 S E RROR="This  order has  been rele ased!" Q
  3745   "RTN","ORC ACT0",60,0 )
  3746    . I DG="N V RX" S ER ROR="Non-V A Med orde rs do not  support th is action! " Q
  3747   "RTN","ORC ACT0",61,0 )
  3748    . I $$EVT ORDER^OREV NTX(IFN) S  ERROR="Th e release  event for  this order  may not b e changed! " Q
  3749   "RTN","ORC ACT0",62,0 )
  3750    . S X=$P( ORA0,U,4)  I X'=2,X'= 3 S ERROR= "Signed or ders may n ot be dela yed to ano ther event !" Q
  3751   "RTN","ORC ACT0",63,0 )
  3752   DC2 I ACTI ON="DC",AC TSTS="" D   G VQ ; DC  released  order
  3753   "RTN","ORC ACT0",64,0 )
  3754    . I $G(NA TR)="A" D   Q:$D(ERRO R)
  3755   "RTN","ORC ACT0",65,0 )
  3756    .. S X=$O (^ORE(100. 2,"AO",+IF N,0)) I X  S:'$G(^ORE (100.2,X,1 )) ERROR=" Future eve nt orders  may not be  auto-disc ontinued!"  Q
  3757   "RTN","ORC ACT0",66,0 )
  3758    .. I $$GE T1^DIQ(9.4 ,+$P(OR0,U ,14)_",",1 )="PSO",$G (DGPMT)=1  Q  ;177 If  admission  auto-dc a nd order i s outpt me d then no  further ch ecking nee ded
  3759   "RTN","ORC ACT0",67,0 )
  3760    .. I $G(D GPMT)=1,$P ($G(^SC(+$ P(OR0,U,10 ),0)),U,3) '="C" S ER ROR="Only  outpatient  orders ma y be auto- discontinu ed!" Q
  3761   "RTN","ORC ACT0",68,0 )
  3762    .. I $G(D GPMT)'=1,$ P($G(^SC(+ $P(OR0,U,1 0),0)),U,3 )="C",PKG' ="PS" S ER ROR="Only  inpatient  orders may  be auto-d iscontinue d!" Q
  3763   "RTN","ORC ACT0",69,0 )
  3764    . I PKG=" RA",ORDSTS =6 S ERROR ="Active R adiology o rders cann ot be disc ontinued!"  Q
  3765   "RTN","ORC ACT0",70,0 )
  3766    . I PKG=" VBEC",ORDS TS=6 S ERR OR="Active  Blood Pro duct order s cannot b e disconti nued!" Q
  3767   "RTN","ORC ACT0",71,0 )
  3768    . I PKG=" LR" D  Q
  3769   "RTN","ORC ACT0",72,0 )
  3770    .. I $$CO LLECTD S E RROR="Lab  orders tha t have bee n collecte d may not  be discont inued!" Q
  3771   "RTN","ORC ACT0",73,0 )
  3772    .. I $G(N ATR)="A"," ^12^38^"'[ (U_$P($G(D GPMA),U,18 )_U),$$VAL UE^ORX8(+I FN,"COLLEC T")="SP",$ P(OR0,U,8) '<DT S ERR OR="Future  Send Pati ent orders  may not b e auto-dis continued! " Q
  3773   "RTN","ORC ACT0",74,0 )
  3774    . I PKG=" GMRC",ORDS TS=9 S ERR OR="Consul ts orders  with parti al results  cannot be  discontin ued!" Q
  3775   "RTN","ORC ACT0",75,0 )
  3776    . I DG="D O",$G(DGPM T)'=3,ORDS TS=6,'$$NP O(+IFN) S  ERROR="Act ive Diets  cannot be  discontinu ed; please  order a n ew diet!"  Q
  3777   "RTN","ORC ACT0",76,0 )
  3778   RL I ACTIO N="RL" D   G VQ  ; re lease hold
  3779   "RTN","ORC ACT0",77,0 )
  3780    . I ORDST S'=3 D  Q
  3781   "RTN","ORC ACT0",78,0 )
  3782    ..I $P(OR A0,U,4)=2  S ERROR="P roviders h as not yet  signed th e hold ord er and the refor it c annot yet  be release d" Q
  3783   "RTN","ORC ACT0",79,0 )
  3784    ..S ERROR ="Orders n ot on hold  cannot be  released! " Q
  3785   "RTN","ORC ACT0",80,0 )
  3786    . I ACTST S S ERROR= $$ACTION($ P(ORA0,U,2 ))_" order s cannot b e released  from hold !" Q
  3787   "RTN","ORC ACT0",81,0 )
  3788    . N NATR, ACT S ACT= $S($P(ORA0 ,U,2)="HD" :AIFN,1:+$ P(OR3,U,7) )
  3789   "RTN","ORC ACT0",82,0 )
  3790    . S NATR= +$P($G(^OR (100,+IFN, 8,ACT,0)), U,12),ACT= $P($G(^(0) ),U,2)
  3791   "RTN","ORC ACT0",83,0 )
  3792    . I PKG=" RA"!(ACT'= "HD")!($P( $G(^ORD(10 0.02,NATR, 0)),U,2)=" S") S ERRO R="Orders  held by a  service mu st be rele ased from  hold throu gh the ser vice!" Q
  3793   "RTN","ORC ACT0",84,0 )
  3794   AIFN S X=$ P(ORA0,U,2 ) I AIFN>1 ,ACTSTS S  ERROR="Thi s action i s not allo wed on a " _$$ACTION( X)_" order !" G VQ
  3795   "RTN","ORC ACT0",85,0 )
  3796   RF I ACTIO N="RF" D   G VQ
  3797   "RTN","ORC ACT0",86,0 )
  3798    . I DG'=" O RX",DG'= "SPLY" S E RROR="Only  Outpatien t Med and  Supply ord ers may be  refilled! " Q
  3799   "RTN","ORC ACT0",87,0 )
  3800    . I ORDST S=5 S ERRO R="Pending  orders ma y not be r efilled!"  Q
  3801   "RTN","ORC ACT0",88,0 )
  3802    . I ORDST S=7 S ERRO R="Expired  orders ma y not be r efilled!"  Q
  3803   "RTN","ORC ACT0",89,0 )
  3804    . N X,PSI FN S PSIFN =$G(^OR(10 0,+IFN,4))
  3805   "RTN","ORC ACT0",90,0 )
  3806    . S X=$$R EFILL^PSOR EF(PSIFN)  I X'>0 S E RROR=$P(X, U,2) Q
  3807   "RTN","ORC ACT0",91,0 )
  3808   CP I ACTIO N="CP" D   G VQ ; com plete
  3809   "RTN","ORC ACT0",92,0 )
  3810    . I PKG'= "OR" S ERR OR="Only g eneric tex t orders m ay be comp leted thro ugh this o ption!" Q
  3811   "RTN","ORC ACT0",93,0 )
  3812    . I ORDST S=11!(ORDS TS=10) S E RROR="This  order has  not been  released!"  Q
  3813   "RTN","ORC ACT0",94,0 )
  3814   AL I ACTIO N="AL" D   G VQ
  3815   "RTN","ORC ACT0",95,0 )
  3816    . I PKG'= "LR",PKG'= "RA",PKG'= "GMRC" S E RROR="This  order doe s not gene rate resul ts!" Q
  3817   "RTN","ORC ACT0",96,0 )
  3818    . I $P(OR 3,U,10) S  ERROR="Thi s order is  already f lagged to  alert the  provider w hen result ed!" Q
  3819   "RTN","ORC ACT0",97,0 )
  3820   XX I ACTIO N="XX" D   G VQ ; edi t/change
  3821   "RTN","ORC ACT0",98,0 )
  3822    . I PKG=" SD",ORDSTS '=11 S ERR OR="Change  action no t allowed  on Schedul ing orders !" Q
  3823   "RTN","ORC ACT0",99,0 )
  3824    . I ORDST S=7 S ERRO R="Expired  orders ma y not be c hanged!" Q
  3825   "RTN","ORC ACT0",100, 0)
  3826    . D XX^OR CACT01
  3827   "RTN","ORC ACT0",101, 0)
  3828   HD I ACTIO N="HD" D   G VQ ; hol d
  3829   "RTN","ORC ACT0",102, 0)
  3830    . I PKG=" FH" S ERRO R="Diet or ders canno t be held! " Q
  3831   "RTN","ORC ACT0",103, 0)
  3832    . I PKG=" LR" S ERRO R="Lab ord ers cannot  be held!"  Q
  3833   "RTN","ORC ACT0",104, 0)
  3834    . I PKG=" RA" S ERRO R="Radiolo gy orders  cannot be  held!" Q
  3835   "RTN","ORC ACT0",105, 0)
  3836    . I PKG=" GMRC" S ER ROR="Consu lt orders  cannot be  held!" Q
  3837   "RTN","ORC ACT0",106, 0)
  3838    . I DG="N V RX" S ER ROR="Non-V A Med orde rs cannot  be held!"  Q
  3839   "RTN","ORC ACT0",107, 0)
  3840    . I PKG=" SD" S ERRO R="Schedul ing orders  cannot be  held!" Q
  3841   "RTN","ORC ACT0",108, 0)
  3842    . I ORDST S=3 S ERRO R="This or der is alr eady on ho ld!" Q
  3843   "RTN","ORC ACT0",109, 0)
  3844    . I ORDST S'=6,PKG=" PS" S ERRO R="Only ac tive Pharm acy orders  may be he ld!" Q
  3845   "RTN","ORC ACT0",110, 0)
  3846    . I (ORDS TS=11)!(OR DSTS=10) S  ERROR="Th is order h as not bee n released  to the se rvice." Q
  3847   "RTN","ORC ACT0",111, 0)
  3848   VQ S Y=$S( $D(ERROR): 0,1:1)
  3849   "RTN","ORC ACT0",112, 0)
  3850    Q Y
  3851   "RTN","ORC ACT0",113, 0)
  3852    ;
  3853   "RTN","ORC ACT0",114, 0)
  3854   ACTION(X)  ; -- Retur n text of  action X
  3855   "RTN","ORC ACT0",115, 0)
  3856    N Y S Y=$ S(X="NW":" New",X="DC ":"Discont inue",X="H D":"Hold", X="RL":"Re lease Hold ",X="RN":" Renew",1:X )
  3857   "RTN","ORC ACT0",116, 0)
  3858    Q Y
  3859   "RTN","ORC ACT0",117, 0)
  3860    ;
  3861   "RTN","ORC ACT0",118, 0)
  3862   NPO(ORIFN)  ; -- Retu rns 1 or 0 , if order  ORIFN is  for NPO
  3863   "RTN","ORC ACT0",119, 0)
  3864    N X,Y S X =$$VALUE^O RX8(+ORIFN ,"ORDERABL E",1,"E")
  3865   "RTN","ORC ACT0",120, 0)
  3866    S Y=$S($E (X,1,3)="N PO":1,1:0)
  3867   "RTN","ORC ACT0",121, 0)
  3868    Q Y
  3869   "RTN","ORC ACT0",122, 0)
  3870    ;
  3871   "RTN","ORC ACT0",123, 0)
  3872   COLLECTD()  ; -- Lab  order coll ected/acti ve (incl a ll childre n)?
  3873   "RTN","ORC ACT0",124, 0)
  3874    I (ORDSTS =11)!(ORDS TS=10) Q 0  ; unrelea sed
  3875   "RTN","ORC ACT0",125, 0)
  3876    I '$O(^OR (100,+IFN, 2,0)) Q (O RDSTS'=5)
  3877   "RTN","ORC ACT0",126, 0)
  3878    ;I ORDSTS '=6 Q 1 ;  Parent ->  active ins tead of pe nding
  3879   "RTN","ORC ACT0",127, 0)
  3880    N Y,Z S Y =1,Z=0
  3881   "RTN","ORC ACT0",128, 0)
  3882    F  S Z=$O (^OR(100,+ IFN,2,Z))  Q:Z'>0  I  $P($G(^OR( 100,Z,3)), U,3)=5 S Y =0 Q
  3883   "RTN","ORC ACT0",129, 0)
  3884    Q Y
  3885   "RTN","ORC ACT0",130, 0)
  3886    ;
  3887   "RTN","ORC ACT0",131, 0)
  3888   DONE() ; - - sets ERR OR if term inal statu s
  3889   "RTN","ORC ACT0",132, 0)
  3890    I ORDSTS= 1 S ERROR= "This orde r has been  discontin ued!" Q 1
  3891   "RTN","ORC ACT0",133, 0)
  3892    I ORDSTS= 2 S ERROR= "This orde r has been  completed !" Q 1
  3893   "RTN","ORC ACT0",134, 0)
  3894    I ORDSTS= 7,DG'="O R X" S ERROR ="This ord er has exp ired!" Q 1
  3895   "RTN","ORC ACT0",135, 0)
  3896    I ORDSTS= 12 S ERROR ="This ord er has bee n changed! " Q 1
  3897   "RTN","ORC ACT0",136, 0)
  3898    I ORDSTS= 13 S ERROR ="This ord er has bee n cancelle d!" Q 1
  3899   "RTN","ORC ACT0",137, 0)
  3900    I ORDSTS= 14 S ERROR ="This ord er has lap sed!" Q 1
  3901   "RTN","ORC ACT0",138, 0)
  3902    I ORDSTS= 15 S ERROR ="This ord er has bee n renewed! " Q 1
  3903   "RTN","ORC ACT0",139, 0)
  3904    Q 0
  3905   "RTN","ORC ACT0",140, 0)
  3906    ;
  3907   "RTN","ORC ACT0",141, 0)
  3908   DISABLED()  ; -- Orde r dialog [ or protoco l] disable d?
  3909   "RTN","ORC ACT0",142, 0)
  3910    N X,DLG S  DLG=$P(OR 0,U,5),X=0  I +DLG'>0  Q X
  3911   "RTN","ORC ACT0",143, 0)
  3912    I VER'<3, DLG?1.N1"; ORD(101.41 ," S X=$$M SG^ORXD(+D LG) Q X
  3913   "RTN","ORC ACT0",144, 0)
  3914    S DLG=$S( PKG="RA":" RA OERR EX AM",PKG="G MRC":"GMRC OR CONSULT ",1:"")
  3915   "RTN","ORC ACT0",145, 0)
  3916    I $L(DLG)  S DLG=+$O (^ORD(101. 41,"AB",DL G,0)),X=$$ MSG^ORXD(D LG)
  3917   "RTN","ORC ACT0",146, 0)
  3918    Q X
  3919   "RTN","ORC DSD")
  3920   0^4^B46340 75
  3921   "RTN","ORC DSD",1,0)
  3922   ORCDSD ;SL C/AGP Sche duling Ord er dialog  utilities  ;05/10/17   07:47
  3923   "RTN","ORC DSD",2,0)
  3924    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31
  3925   "RTN","ORC DSD",3,0)
  3926    ;Per VHA  Directive  2004-038,  this routi ne should  not be mod ified.
  3927   "RTN","ORC DSD",4,0)
  3928    Q
  3929   "RTN","ORC DSD",5,0)
  3930    ;
  3931   "RTN","ORC DSD",6,0)
  3932   INTERH ;
  3933   "RTN","ORC DSD",7,0)
  3934    N LIST,NA ME
  3935   "RTN","ORC DSD",8,0)
  3936    W !,"Sele ct one of  the follow ing:"
  3937   "RTN","ORC DSD",9,0)
  3938    D INTERL( .LIST)
  3939   "RTN","ORC DSD",10,0)
  3940    S NAME=""  F  S NAME =$O(LIST(N AME)) Q:NA ME=""  W ! ,"  "_NAME
  3941   "RTN","ORC DSD",11,0)
  3942    Q
  3943   "RTN","ORC DSD",12,0)
  3944   INTERL(LIS T) ;
  3945   "RTN","ORC DSD",13,0)
  3946    S LIST("W EEKLY")="" ,LIST("DAI LY")=""
  3947   "RTN","ORC DSD",14,0)
  3948    Q
  3949   "RTN","ORC DSD",15,0)
  3950    ;
  3951   "RTN","ORC DSD",16,0)
  3952   INTERV ;
  3953   "RTN","ORC DSD",17,0)
  3954    N NAME,LI ST,TMP
  3955   "RTN","ORC DSD",18,0)
  3956    S TMP=$$U P^XLFSTR(X )
  3957   "RTN","ORC DSD",19,0)
  3958    D INTERL( .LIST)
  3959   "RTN","ORC DSD",20,0)
  3960    I $D(LIST (TMP)) Q
  3961   "RTN","ORC DSD",21,0)
  3962    W !!,X_"i s an inval id interva l",!!
  3963   "RTN","ORC DSD",22,0)
  3964    D INTERH
  3965   "RTN","ORC DSD",23,0)
  3966    W !
  3967   "RTN","ORC DSD",24,0)
  3968    K X
  3969   "RTN","ORC DSD",25,0)
  3970    Q
  3971   "RTN","ORC DSD",26,0)
  3972    ;
  3973   "RTN","ORC DSD",27,0)
  3974   PREREQP(LI ST) ;
  3975   "RTN","ORC DSD",28,0)
  3976    N ERR
  3977   "RTN","ORC DSD",29,0)
  3978    D GETLST^ XPAR(.LIST ,"SYS","OR  SD DIALOG  PREREQ"," N",.ERR)
  3979   "RTN","ORC DSD",30,0)
  3980    Q
  3981   "RTN","ORC DSD",31,0)
  3982    ;
  3983   "RTN","ORC DSD",32,0)
  3984   PREREQH ;
  3985   "RTN","ORC DSD",33,0)
  3986    N CNT,LIS T
  3987   "RTN","ORC DSD",34,0)
  3988    D PREREQP (.LIST)
  3989   "RTN","ORC DSD",35,0)
  3990    I '$D(LIS T) W !,"No  prerequis ites defin ed"
  3991   "RTN","ORC DSD",36,0)
  3992    W !,"Sele ct from tt he followi ng:"
  3993   "RTN","ORC DSD",37,0)
  3994    S CNT=0 F   S CNT=$O (LIST(CNT) ) Q:CNT'>0   D
  3995   "RTN","ORC DSD",38,0)
  3996    .I $P(LIS T(CNT),U)= "" Q
  3997   "RTN","ORC DSD",39,0)
  3998    .W !,"  " _$P(LIST(C NT),U)
  3999   "RTN","ORC DSD",40,0)
  4000    Q
  4001   "RTN","ORC DSD",41,0)
  4002    ;
  4003   "RTN","ORC DSD",42,0)
  4004   PREREQN()  ;
  4005   "RTN","ORC DSD",43,0)
  4006    N LIST,NU M
  4007   "RTN","ORC DSD",44,0)
  4008    D PREREQP (.LIST)
  4009   "RTN","ORC DSD",45,0)
  4010    I '$D(LIS T) Q 0
  4011   "RTN","ORC DSD",46,0)
  4012    S NUM=LIS T
  4013   "RTN","ORC DSD",47,0)
  4014    Q NUM
  4015   "RTN","ORC DSD",48,0)
  4016    ;
  4017   "RTN","ORC DSD",49,0)
  4018   PREREQV ;
  4019   "RTN","ORC DSD",50,0)
  4020    N ARRAY,C NT,NODE,LI ST,TMP
  4021   "RTN","ORC DSD",51,0)
  4022    S TMP=$$U P^XLFSTR(X )
  4023   "RTN","ORC DSD",52,0)
  4024    D PREREQP (.LIST)
  4025   "RTN","ORC DSD",53,0)
  4026    S CNT=0 F   S CNT=$O (LIST(CNT) ) Q:CNT'>0   D
  4027   "RTN","ORC DSD",54,0)
  4028    .I $P(LIS T(CNT),U)= "" Q
  4029   "RTN","ORC DSD",55,0)
  4030    .S ARRAY( $$UP^XLFST R($P(LIST( CNT),U)))= ""
  4031   "RTN","ORC DSD",56,0)
  4032    I '$D(ARR AY(TMP)) W  !,X_" is  not a vali d prerequi site" K X  Q
  4033   "RTN","ORC DSD",57,0)
  4034    I $G(X)=" " W !! D P REREQH
  4035   "RTN","ORC DSD",58,0)
  4036    Q
  4037   "RTN","ORC DSD",59,0)
  4038    ;
  4039   "RTN","ORC DSD",60,0)
  4040   SETSTOP()  ;
  4041   "RTN","ORC DSD",61,0)
  4042    N %DT,CID C,RESULT,O FFSET,X,Y
  4043   "RTN","ORC DSD",62,0)
  4044    S RESULT= "T"
  4045   "RTN","ORC DSD",63,0)
  4046    S X=$$VAL ^ORCD("CLI NICALLY")
  4047   "RTN","ORC DSD",64,0)
  4048    S %DT="T"  D ^%DT
  4049   "RTN","ORC DSD",65,0)
  4050    S OFFSET= $$GET^XPAR ("SYS","OR  SD CIDC S TOP OFFSET ",1,"E")
  4051   "RTN","ORC DSD",66,0)
  4052    I Y>0 S R ESULT=$$FM ADD^XLFDT( Y,OFFSET)
  4053   "RTN","ORC DSD",67,0)
  4054    Q RESULT
  4055   "RTN","ORC DSD",68,0)
  4056    ;
  4057   "RTN","ORC DSD",69,0)
  4058   VALCLINC(Y ) ;
  4059   "RTN","ORC DSD",70,0)
  4060    ;N IEN
  4061   "RTN","ORC DSD",71,0)
  4062    ;S IEN=$O (^SC("B",X ,"")) I IE N'>0 Q 0
  4063   "RTN","ORC DSD",72,0)
  4064    I ("C"'[$ P($G(^SC(Y ,0)),U,3)! ('$$ACTLOC ^ORWU(Y)))  Q 0
  4065   "RTN","ORC DSD",73,0)
  4066    Q 1
  4067   "RTN","ORC DSD",74,0)
  4068    ;
  4069   "RTN","ORM ")
  4070   0^9^B18341 854
  4071   "RTN","ORM ",1,0)
  4072   ORM ; SLC/ MKB/JDL -  ORM msg ro uter ;11/1 7/00  10:5 8
  4073   "RTN","ORM ",2,0)
  4074    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 ,97,141,18 7,195,434* *;Dec 17,  1997;Build  31
  4075   "RTN","ORM ",3,0)
  4076   EN(MSG) ;  -- main en try point  for OR REC EIVE where  MSG conta ins HL7 ms g
  4077   "RTN","ORM ",4,0)
  4078    N ORMSG,O RNMSP,ORTY PE,MSH,PID ,PV1,ORC,O RVP,ORTS,O RL,ORCAT,O RAPPT
  4079   "RTN","ORM ",5,0)
  4080    S ORAPPT= "",ORL=0
  4081   "RTN","ORM ",6,0)
  4082    S ORMSG=$ S($L($G(MS G)):MSG,1: "MSG") ; M SG="NAME"  or MSG(#)= message
  4083   "RTN","ORM ",7,0)
  4084    I '$O(@OR MSG@(0)) D  EN^ORERR( "Missing H L7 message ",.ORMSG)  Q
  4085   "RTN","ORM ",8,0)
  4086    S MSH=0 F   S MSH=$O (@ORMSG@(M SH)) Q:MSH '>0  Q:$E( @ORMSG@(MS H),1,3)="M SH"
  4087   "RTN","ORM ",9,0)
  4088    I 'MSH D  EN^ORERR(" Missing or  invalid M SH segment ",.ORMSG)  Q
  4089   "RTN","ORM ",10,0)
  4090    S ORNMSP= $$NMSP($P( @ORMSG@(MS H),"|",3)) ,ORTYPE=$P (@ORMSG@(M SH),"|",9)
  4091   "RTN","ORM ",11,0)
  4092    I ORTYPE= "SRM" D EN ^ORMSD(.MS G) Q
  4093   "RTN","ORM ",12,0)
  4094    I '$L(ORN MSP) D EN^ ORERR("Mis sing or in valid send ing applic ation",.OR MSG) Q
  4095   "RTN","ORM ",13,0)
  4096    D PID I ' $G(ORVP) D  EN^ORERR( "Missing o r invalid  patient ID ",.ORMSG)  Q
  4097   "RTN","ORM ",14,0)
  4098    D PV1 S O RC=PID
  4099   "RTN","ORM ",15,0)
  4100   EN1 F  S O RC=$O(@ORM SG@(+ORC))  Q:ORC'>0   I $E(@ORM SG@(ORC),1 ,3)="ORC"  D
  4101   "RTN","ORM ",16,0)
  4102    . N ORDCN TRL,ORDSTS ,PKGIFN,OR IFN,ORNP,O RTN,ORERR, ORLOG,ORDU Z,ORQT,ORS TRT,ORSTOP ,ORURG,ORN ATR,OREASO N
  4103   "RTN","ORM ",17,0)
  4104    . S ORC=O RC_U_@ORMS G@(ORC),OR DCNTRL=$TR ($P(ORC,"| ",2),"@"," P")
  4105   "RTN","ORM ",18,0)
  4106    . I '$L(O RDCNTRL) S  ORERR="In valid cont rol code"  D ERROR Q
  4107   "RTN","ORM ",19,0)
  4108    . S ORIFN =$P($P(ORC ,"|",3),U) ,PKGIFN=$P ($P(ORC,"| ",4),U)
  4109   "RTN","ORM ",20,0)
  4110    . I ORIFN ,$D(^OR(10 0,+ORIFN,0 )),$P(^(0) ,U,2)'=ORV P S ORERR= "Patient d oesn't mat ch" D ERRO R Q
  4111   "RTN","ORM ",21,0)
  4112    . S ORDST S=$P(ORC," |",6),ORQT =$P(ORC,"| ",8)
  4113   "RTN","ORM ",22,0)
  4114    . S ORSTR T=$$FMDATE ($P(ORQT,U ,4)),ORSTO P=$$FMDATE ($P(ORQT,U ,5))
  4115   "RTN","ORM ",23,0)
  4116    . S ORURG =$$URGENCY ($P(ORQT,U ,6)),ORLOG =$$FMDATE( $P(ORC,"|" ,10))
  4117   "RTN","ORM ",24,0)
  4118    . S ORDUZ =+$P(ORC," |",11),ORN P=+$P(ORC, "|",13),OR EASON=$P(O RC,"|",17)
  4119   "RTN","ORM ",25,0)
  4120    . S ORNAT R=$S($P(OR EASON,U,3) ="99ORN":$ P(OREASON, U),1:"")
  4121   "RTN","ORM ",26,0)
  4122    . S ORTN= "EN^ORM"_O RNMSP D @O RTN I $D(O RERR) D ER ROR Q
  4123   "RTN","ORM ",27,0)
  4124    . I ORDCN TRL="SN",$ G(ORIFN) D  MSG^ORMBL D(ORIFN,"N A")
  4125   "RTN","ORM ",28,0)
  4126    . I $G(DG PMT),ORDCN TRL="OD"!( ORDCNTRL=" OC") D XTM P
  4127   "RTN","ORM ",29,0)
  4128    Q
  4129   "RTN","ORM ",30,0)
  4130    ;
  4131   "RTN","ORM ",31,0)
  4132   NMSP(NAME)  ; -- Retu rns pkg na mespace
  4133   "RTN","ORM ",32,0)
  4134    I NAME="R ADIOLOGY"! (NAME="IMA GING") Q " RA"
  4135   "RTN","ORM ",33,0)
  4136    I NAME="L ABORATORY"  Q "LR"
  4137   "RTN","ORM ",34,0)
  4138    I NAME="D IETETICS"  Q "FH"
  4139   "RTN","ORM ",35,0)
  4140    I NAME="P HARMACY" Q  "PS"
  4141   "RTN","ORM ",36,0)
  4142    I NAME="C ONSULTS" Q  "GMRC"
  4143   "RTN","ORM ",37,0)
  4144    I NAME="P ROCEDURES"  Q "GMRC"
  4145   "RTN","ORM ",38,0)
  4146    I NAME="O RDER ENTRY " Q "ORG"
  4147   "RTN","ORM ",39,0)
  4148    I NAME="S CHEDULING"  Q "SD"
  4149   "RTN","ORM ",40,0)
  4150    Q ""
  4151   "RTN","ORM ",41,0)
  4152    ;
  4153   "RTN","ORM ",42,0)
  4154   PID ; -- R eturns pat ient from  PID segmen t in curre nt msg
  4155   "RTN","ORM ",43,0)
  4156    ;    Sets  PID, ORVP , ORTS if  valid pati ent
  4157   "RTN","ORM ",44,0)
  4158    N I,DFN,S EG S I=MSH ,PID=""
  4159   "RTN","ORM ",45,0)
  4160    F  S I=$O (@ORMSG@(I )) Q:I'>0   S SEG=$E( @ORMSG@(I) ,1,3) Q:SE G="ORC"  I  SEG="PID"  D  Q
  4161   "RTN","ORM ",46,0)
  4162    . S DFN=+ $P(@ORMSG@ (I),"|",4) ,PID=I
  4163   "RTN","ORM ",47,0)
  4164    . I $D(^D PT(DFN,0))  S ORVP=DF N_";DPT(", ORTS=$G(^D PT(DFN,.10 3)) Q
  4165   "RTN","ORM ",48,0)
  4166    . S:$L($P (@ORMSG@(I ),"|",5))  ORVP=$P(@O RMSG@(I)," |",5) ; al t ID for L ab
  4167   "RTN","ORM ",49,0)
  4168    Q
  4169   "RTN","ORM ",50,0)
  4170    ;
  4171   "RTN","ORM ",51,0)
  4172   PV1 ; -- R eturns pat ient locat ion in PV1  segment i n current  msg
  4173   "RTN","ORM ",52,0)
  4174    ;    Sets  PV1, ORCA T, & ORL i f valid lo cation, OR APPT: IMO  appointmen t
  4175   "RTN","ORM ",53,0)
  4176    N I,X,SEG  S I=PID,P V1=""
  4177   "RTN","ORM ",54,0)
  4178    F  S I=$O (@ORMSG@(I )) Q:I'>0   S SEG=$E( @ORMSG@(I) ,1,3) Q:SE G="ORC"  I  SEG="PV1"  D  Q
  4179   "RTN","ORM ",55,0)
  4180    . S X=+$P (@ORMSG@(I ),"|",4),O RCAT=$P(@O RMSG@(I)," |",3),PV1= I
  4181   "RTN","ORM ",56,0)
  4182    . S:$D(^S C(X,0)) OR L=X_";SC("
  4183   "RTN","ORM ",57,0)
  4184    . S ORAPP T=$P(@ORMS G@(I),"|", 45)
  4185   "RTN","ORM ",58,0)
  4186    . S:+$G(O RAPPT) ORA PPT=$$FMDA TE($G(ORAP PT))
  4187   "RTN","ORM ",59,0)
  4188    Q
  4189   "RTN","ORM ",60,0)
  4190    ;
  4191   "RTN","ORM ",61,0)
  4192   ORDITEM(US ID) ; -- R eturns poi nter to Or derable It em file fo r USID
  4193   "RTN","ORM ",62,0)
  4194    N ID,OI
  4195   "RTN","ORM ",63,0)
  4196    S ID=$P(U SID,U,4)_" ;"_$P(USID ,U,6)
  4197   "RTN","ORM ",64,0)
  4198    S OI=+$O( ^ORD(101.4 3,"ID",ID, 0))
  4199   "RTN","ORM ",65,0)
  4200    Q OI
  4201   "RTN","ORM ",66,0)
  4202    ;
  4203   "RTN","ORM ",67,0)
  4204   URGENCY(CO DE) ; -- R eturn ptr  to Order U rgency fil e #101.42
  4205   "RTN","ORM ",68,0)
  4206    S:'$L(COD E) CODE="R "
  4207   "RTN","ORM ",69,0)
  4208    Q $O(^ORD (101.42,"C ",CODE,0))
  4209   "RTN","ORM ",70,0)
  4210    ;
  4211   "RTN","ORM ",71,0)
  4212   FMDATE(Y)  ; -- Conve rt HL7 dat e/time to  FM format
  4213   "RTN","ORM ",72,0)
  4214    Q $$HL7TF M^XLFDT(Y)   ;**97
  4215   "RTN","ORM ",73,0)
  4216    ;
  4217   "RTN","ORM ",74,0)
  4218   ERROR ; --  Sends a D E reply to  current m sg
  4219   "RTN","ORM ",75,0)
  4220    ; Uses OR VP, ORNMSP , ORDUZ, O RIFN, ORER R, and PKG IFN
  4221   "RTN","ORM ",76,0)
  4222    N ORV S O RV("XQY0") ="" D EN^O RERR(ORERR ,.ORMSG,.O RV)
  4223   "RTN","ORM ",77,0)
  4224    Q:ORTYPE= "ORR"  Q:' $L($G(ORNM SP))
  4225   "RTN","ORM ",78,0)
  4226    N OREMSG, ORVP,ORTS  S:'$G(ORDU Z) ORDUZ=D UZ D:'$G(O RVP) PID
  4227   "RTN","ORM ",79,0)
  4228    S OREMSG( 1)=$$MSH^O RMBLD("ORR ",ORNMSP), OREMSG(2)= $$PID^ORMB LD($G(ORVP ))
  4229   "RTN","ORM ",80,0)
  4230    S OREMSG( 3)="ORC|DE |"_$S($G(O RIFN):ORIF N_"^OR",1: "")_"|"_$S ($L($G(PKG IFN)):PKGI FN_U_ORNMS P,1:"")_"| ||||||"_OR DUZ_"||||| |"_ORERR
  4231   "RTN","ORM ",81,0)
  4232    D MSG^XQO R("OR EVSE ND "_ORNMS P,.OREMSG)
  4233   "RTN","ORM ",82,0)
  4234    Q
  4235   "RTN","ORM ",83,0)
  4236    ;
  4237   "RTN","ORM ",84,0)
  4238   FIND(SEG,P IECE) ; --  Returns v alue in $P (@ORMSG@(S EG),"|",PI ECE)
  4239   "RTN","ORM ",85,0)
  4240    N X,Y,FLD S,I,DONE
  4241   "RTN","ORM ",86,0)
  4242    S X=$G(@O RMSG@(SEG) ),FLDS=$L( X,"|"),Y=" ",(I,DONE) =0
  4243   "RTN","ORM ",87,0)
  4244    F  D  Q:D ONE
  4245   "RTN","ORM ",88,0)
  4246    . I PIECE <FLDS S Y= $P(X,"|",P IECE),DONE =1 Q
  4247   "RTN","ORM ",89,0)
  4248    . I PIECE =FLDS D  Q
  4249   "RTN","ORM ",90,0)
  4250    . . S Y=$ P(X,"|",PI ECE),I=$O( @ORMSG@(SE G,I)),DONE =1
  4251   "RTN","ORM ",91,0)
  4252    . . I I S  Y=Y_$P($G (@ORMSG@(S EG,I)),"|" )
  4253   "RTN","ORM ",92,0)
  4254    . S I=$O( @ORMSG@(SE G,I)) I 'I  S Y="",DO NE=1 Q
  4255   "RTN","ORM ",93,0)
  4256    . S PIECE =PIECE-(FL DS-1),X=$G (@ORMSG@(S EG,I)),FLD S=$L(X,"|" )
  4257   "RTN","ORM ",94,0)
  4258   FQ Q Y
  4259   "RTN","ORM ",95,0)
  4260    ;
  4261   "RTN","ORM ",96,0)
  4262   XTMP ; --  Save packa ge auto-dc 'd order n umbers in  ^XTMP
  4263   "RTN","ORM ",97,0)
  4264    ;    Uses  ORIFN, OR NMSP
  4265   "RTN","ORM ",98,0)
  4266    Q:'$G(ORI FN)  Q:"^1 ^13^"'[($P ($G(^OR(10 0,+ORIFN,3 )),U,3)_U)
  4267   "RTN","ORM ",99,0)
  4268    N ORNOW,O RDC S ORNO W=+$$NOW^X LFDT,ORDC= "ORDC-"_$G (DGPMDA)
  4269   "RTN","ORM ",100,0)
  4270    I $G(^XTM P(ORDC,0)) ,+^(0)<ORN OW K ^XTMP (ORDC)
  4271   "RTN","ORM ",101,0)
  4272    I '$G(^XT MP(ORDC,0) ) D
  4273   "RTN","ORM ",102,0)
  4274    . N ORNOW 1H S ORNOW 1H=$$FMADD ^XLFDT(ORN OW,,1)
  4275   "RTN","ORM ",103,0)
  4276    . S ^XTMP (ORDC,0)=O RNOW1H_U_O RNOW_"^Ord ers AutoDC 'd by Pack ages on Di scharge"
  4277   "RTN","ORM ",104,0)
  4278    S ^XTMP(O RDC,+ORIFN )=$G(ORNMS P)
  4279   "RTN","ORM ",105,0)
  4280    Q
  4281   "RTN","ORM BLD")
  4282   0^7^B46482 441
  4283   "RTN","ORM BLD",1,0)
  4284   ORMBLD ; S LC/MKB/JDL  - Build o utgoing OR M msgs ;05 /10/17  10 :08
  4285   "RTN","ORM BLD",2,0)
  4286    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 ,33,26,45, 79,97,133, 168,187,19 0,195,215, 350,434**; Dec 17, 19 97;Build 3 1
  4287   "RTN","ORM BLD",3,0)
  4288    ;
  4289   "RTN","ORM BLD",4,0)
  4290    ;
  4291   "RTN","ORM BLD",5,0)
  4292    ;
  4293   "RTN","ORM BLD",6,0)
  4294   NEW(IFN,CO DE) ; -- S end NW ord er message  to pkg
  4295   "RTN","ORM BLD",7,0)
  4296    ;I $P($G( ^ORD(101.4 2,+$$VALUE ^ORCSAVE2( IFN,"URGEN CY"),0)),U )="DONE" D  STATUS^OR CSAVE2(IFN ,2) Q  ; c omplete ->  don't sen d to pkg
  4297   "RTN","ORM BLD",8,0)
  4298    N ORPKG,O RMSG,DGQUI ET K ^TMP( "ORWORD",$ J)
  4299   "RTN","ORM BLD",9,0)
  4300    S DGQUIET =1 D  Q:'$ O(ORMSG(0) )  ;build  msg, ORDIA LOG gone w hen posted
  4301   "RTN","ORM BLD",10,0)
  4302    . N OR0,O R3,OR8,ORV P,ORDG,ORD IALOG,ORPA RENT S:'$D (CODE) COD E="NW"
  4303   "RTN","ORM BLD",11,0)
  4304    . S OR0=$ G(^OR(100, IFN,0)) Q: '$L(OR0)   S OR3=$G(^ (3)),OR8=$ G(^(8,1,0) )
  4305   "RTN","ORM BLD",12,0)
  4306    . S ORVP= $P(OR0,U,2 ),ORDG=$P( OR0,U,11), ORPKG=$$NM SP^ORCD($P (OR0,U,14) )
  4307   "RTN","ORM BLD",13,0)
  4308    . Q:"^GMR A^GMRC^FH^ LR^PS^RA^O R^SD^"'[(U _ORPKG_U)
  4309   "RTN","ORM BLD",14,0)
  4310    . S ORDIA LOG=+$P(OR 0,U,5) Q:' ORDIALOG
  4311   "RTN","ORM BLD",15,0)
  4312    . D GETDL G1^ORCD(OR DIALOG),GE TORDER^ORC D(IFN)
  4313   "RTN","ORM BLD",16,0)
  4314    . S ORMSG (1)=$$MSH( "ORM",ORPK G),ORMSG(2 )=$$PID(OR VP)
  4315   "RTN","ORM BLD",17,0)
  4316    . S ORMSG (3)=$$PV1( ORVP,$P(OR 0,U,12),+$ P(OR0,U,10 ),"",$P(OR 0,U,18))
  4317   "RTN","ORM BLD",18,0)
  4318    . S ORPAR ENT=$P(OR3 ,U,9) I OR PARENT,$G( ORDIALOG($ $PTR^ORCD( "OR GTX SC HEDULE"),1 ))="NOW"!' $O(^OR(100 ,+ORPARENT ,4.5,"ID", "CONJ",0))  S ORPAREN T="" ;no p arent if N OW or only  child
  4319   "RTN","ORM BLD",19,0)
  4320    . S ORMSG (4)="ORC|" _CODE_"|"_ +OR0_";1^O R||||||"_O RPARENT_"| "_$$HL7DAT E($P(OR0,U ,7))_"|"_+ $P(OR0,U,6 )_"||"_+$P (OR0,U,4)_ "|||"_$$HL 7DATE($$NO W^XLFDT)_" |"_$$NATUR E($P(OR8,U ,12))_"^^^ "
  4321   "RTN","ORM BLD",20,0)
  4322    . D @ORPK G K ^TMP(" ORWORD",$J )
  4323   "RTN","ORM BLD",21,0)
  4324    I $G(ORZT EST) M ORZ TEST=ORMSG  Q  ;testi ng only
  4325   "RTN","ORM BLD",22,0)
  4326    D MSG^XQO R("OR EVSE ND "_ORPKG ,.ORMSG)
  4327   "RTN","ORM BLD",23,0)
  4328    Q
  4329   "RTN","ORM BLD",24,0)
  4330    ;
  4331   "RTN","ORM BLD",25,0)
  4332   MSG(IFN,CO DE,REASON)  ; -- Send  all other  order msg s
  4333   "RTN","ORM BLD",26,0)
  4334    N ORPKG,O RMSG,DGQUI ET K ^TMP( "ORWORD",$ J)
  4335   "RTN","ORM BLD",27,0)
  4336    S DGQUIET =1 D  Q:'$ O(ORMSG(0) )  ; build  message
  4337   "RTN","ORM BLD",28,0)
  4338    . N OR0,O R8,DG,PKGI D,I,TYPE,D A,PROV,NAT R,STS,OI
  4339   "RTN","ORM BLD",29,0)
  4340    . S OR0=$ G(^OR(100, +IFN,0)),P KGID=$G(^( 4)),STS=$P ($G(^(3)), U,3)
  4341   "RTN","ORM BLD",30,0)
  4342    . S ORPKG =$$NMSP^OR CD($P(OR0, U,14))
  4343   "RTN","ORM BLD",31,0)
  4344    . I ORPKG ="VBEC" D: $L($T(CA^O RMBLDVB))  CA^ORMBLDV B(IFN,$G(R EASON)) Q
  4345   "RTN","ORM BLD",32,0)
  4346    . Q:"^GMR A^GMRC^FH^ LR^PS^RA^O R^SD^"'[(U _ORPKG_U)
  4347   "RTN","ORM BLD",33,0)
  4348    . I ORPKG ="LR" S OR PKG="LRCH"  S:CODE="D C" CODE="C A" ;DC if  VBEC child
  4349   "RTN","ORM BLD",34,0)
  4350    . S DA=+$ P(IFN,";", 2),OR8=$G( ^OR(100,+I FN,8,DA,0) )
  4351   "RTN","ORM BLD",35,0)
  4352    . S PROV= $P(OR8,U,3 ),NATR=$P( OR8,U,12)  S:'PROV PR OV=$G(ORNP )
  4353   "RTN","ORM BLD",36,0)
  4354    . S TYPE= $S(CODE="N A"!(CODE=" DE"):"ORR" ,1:"ORM")
  4355   "RTN","ORM BLD",37,0)
  4356    . S ORMSG (1)=$$MSH( TYPE,ORPKG ),ORMSG(2) =$$PID($P( OR0,U,2)), I=2
  4357   "RTN","ORM BLD",38,0)
  4358    . I ORPKG ="SD",CODE ="DC" D DC ^ORMBLDSD  Q
  4359   "RTN","ORM BLD",39,0)
  4360    . I ORPKG ="PS"!(ORP KG="FH"&($ P(OR0,U,12 )="O")) S  I=I+1,ORMS G(I)=$$PV1 ($P(OR0,U, 2),$P(OR0, U,12),+$P( OR0,U,10))
  4361   "RTN","ORM BLD",40,0)
  4362    . S I=I+1 ,ORMSG(I)= "ORC|"_COD E_"|"_IFN_ "^OR|"_PKG ID_U_ORPKG _"||||||"_ $S($G(DGPM A):$$HL7DA TE($P(DGPM A,U)),1:"" )_"|"_DUZ_ "||"_PROV_ "|||"_$$HL 7DATE($$NO W^XLFDT)_" |"_$$REASO N(+$G(REAS ON),NATR)
  4363   "RTN","ORM BLD",41,0)
  4364    . I ORPKG ="FH",CODE ="SS" S $P (ORMSG(I), "|",6)=$S( STS=8:"SC" ,STS=6:"IP ",1:"")
  4365   "RTN","ORM BLD",42,0)
  4366    . I $E(OR PKG,1,2)=" LR" S OI=+ $O(^OR(100 ,+IFN,.1,0 )),OI=+$G( ^(OI,0)) S :OI I=I+1, ORMSG(I)=" OBR||||"_$ $USID(OI)
  4367   "RTN","ORM BLD",43,0)
  4368    . I $P(^O RD(100.98, $P(OR0,U,1 1),0),U)=" NON-VA MED ICATIONS"  D
  4369   "RTN","ORM BLD",44,0)
  4370    . . I (CO DE="CA")!( CODE="DC")  S I=I+1,O RMSG(I)="Z RN|N"
  4371   "RTN","ORM BLD",45,0)
  4372    . K ^TMP( "ORWORD",$ J)
  4373   "RTN","ORM BLD",46,0)
  4374    D MSG^XQO R("OR EVSE ND "_ORPKG ,.ORMSG)
  4375   "RTN","ORM BLD",47,0)
  4376    Q
  4377   "RTN","ORM BLD",48,0)
  4378    ;
  4379   "RTN","ORM BLD",49,0)
  4380   BHS(PAT) ;  -- Send b atch heade r segment/ message to  Lab
  4381   "RTN","ORM BLD",50,0)
  4382    N ORMSG S  ORMSG(1)= "BHS|^~\&| ORDER ENTR Y|"_$G(DUZ (2))_"|LAB ORATORY|"_ $G(DUZ(2)) _"|"_$$HL7 DATE($$NOW ^XLFDT)
  4383   "RTN","ORM BLD",51,0)
  4384    S ORMSG(2 )=$$PID($G (PAT))
  4385   "RTN","ORM BLD",52,0)
  4386    D MSG^XQO R("OR EVSE ND LRCH",. ORMSG)
  4387   "RTN","ORM BLD",53,0)
  4388    Q
  4389   "RTN","ORM BLD",54,0)
  4390    ;
  4391   "RTN","ORM BLD",55,0)
  4392   BTS(PAT) ;  -- Send b atch trail er segment /message t o Lab
  4393   "RTN","ORM BLD",56,0)
  4394    N ORMSG S  ORMSG(1)= "BTS",ORMS G(2)=$$PID ($G(PAT))
  4395   "RTN","ORM BLD",57,0)
  4396    D MSG^XQO R("OR EVSE ND LRCH",. ORMSG)
  4397   "RTN","ORM BLD",58,0)
  4398    Q
  4399   "RTN","ORM BLD",59,0)
  4400    ;
  4401   "RTN","ORM BLD",60,0)
  4402   MSH(TYPE,T O) ; -- MS H segment
  4403   "RTN","ORM BLD",61,0)
  4404    N MSH
  4405   "RTN","ORM BLD",62,0)
  4406    S MSH="MS H|^~\&|ORD ER ENTRY|" _$G(DUZ(2) )_"|"_$$NA ME(TO)_"|" _$G(DUZ(2) )_"|"_$$HL 7DATE($$NO W^XLFDT)_" ||"_TYPE
  4407   "RTN","ORM BLD",63,0)
  4408    Q MSH
  4409   "RTN","ORM BLD",64,0)
  4410    ;
  4411   "RTN","ORM BLD",65,0)
  4412   NAME(NMSP)  ; -- Retu rns name o f pkg NMSP
  4413   "RTN","ORM BLD",66,0)
  4414    I NMSP="G MRA" Q "AL LERGIES"
  4415   "RTN","ORM BLD",67,0)
  4416    I NMSP="G MRC" Q "CO NSULTS"
  4417   "RTN","ORM BLD",68,0)
  4418    I NMSP="F H" Q "DIET ETICS"
  4419   "RTN","ORM BLD",69,0)
  4420    I NMSP?1" LR".E Q "L ABORATORY"
  4421   "RTN","ORM BLD",70,0)
  4422    I NMSP="P S" Q "PHAR MACY"
  4423   "RTN","ORM BLD",71,0)
  4424    I NMSP="R A" Q "RADI OLOGY"
  4425   "RTN","ORM BLD",72,0)
  4426    I NMSP="O R" Q "ORDE R ENTRY"
  4427   "RTN","ORM BLD",73,0)
  4428    I NMSP="S D" Q "SCHE DULING"
  4429   "RTN","ORM BLD",74,0)
  4430    Q ""
  4431   "RTN","ORM BLD",75,0)
  4432    ;
  4433   "RTN","ORM BLD",76,0)
  4434   PID(DFN) ;  -- PID se gment
  4435   "RTN","ORM BLD",77,0)
  4436    N PID,PTR ,ROOT
  4437   "RTN","ORM BLD",78,0)
  4438    S PTR=+$P (DFN,";"), ROOT=$P(DF N,";",2),P ID="PID||| "
  4439   "RTN","ORM BLD",79,0)
  4440    I ROOT="D PT(" S PID =PID_PTR_" ||"_$P($G( ^DPT(PTR,0 )),U)
  4441   "RTN","ORM BLD",80,0)
  4442    E  S PID= PID_"|"_DF N_"|"_$S($ L(ROOT):$P ($G(@(U_RO OT_PTR_",0 )")),U),1: "")
  4443   "RTN","ORM BLD",81,0)
  4444    Q PID
  4445   "RTN","ORM BLD",82,0)
  4446    ;
  4447   "RTN","ORM BLD",83,0)
  4448   PV1(OBJ,TY PE,LOC,VIS IT,APPTDT)  ; -- PV1  segment
  4449   "RTN","ORM BLD",84,0)
  4450    N PV1,RB, PACH S RB= ""
  4451   "RTN","ORM BLD",85,0)
  4452    S:$G(APPT DT) APPTDT =$$FMTHL7^ XLFDT(APPT DT)
  4453   "RTN","ORM BLD",86,0)
  4454    I TYPE="I ",+OBJ,$P( OBJ,";",2) ="DPT(" S  RB=$P($G(^ DPT(+OBJ,. 101)),U)
  4455   "RTN","ORM BLD",87,0)
  4456    S PACH=$$ PATCH^XPDU TL("PSJ*5. 0*111")
  4457   "RTN","ORM BLD",88,0)
  4458    S:PACH PV 1="PV1||"_ TYPE_"|"_L OC_$S($L(R B):U_RB,1: "")_"||||| |||||||||| |"_$G(VISI T)_"|||||| |||||||||| |||||||||" _$G(APPTDT )
  4459   "RTN","ORM BLD",89,0)
  4460    S:'PACH P V1="PV1||" _TYPE_"|"_ LOC_$S($L( RB):U_RB,1 :"")_"|||| |||||||||| ||"_$G(VIS IT)
  4461   "RTN","ORM BLD",90,0)
  4462    Q PV1
  4463   "RTN","ORM BLD",91,0)
  4464    ;
  4465   "RTN","ORM BLD",92,0)
  4466   HL7DATE(DA TE) ; -- F M -> HL7 f ormat
  4467   "RTN","ORM BLD",93,0)
  4468    Q $$FMTHL 7^XLFDT(DA TE)  ;**97
  4469   "RTN","ORM BLD",94,0)
  4470    ;
  4471   "RTN","ORM BLD",95,0)
  4472   USID(OI) ;  -- Return s Univ Ser v ID for O rderable I tem
  4473   "RTN","ORM BLD",96,0)
  4474    N OITEM,N ATL,LOCAL  S OITEM=$G (^ORD(101. 43,+OI,0))
  4475   "RTN","ORM BLD",97,0)
  4476    S NATL=$P (OITEM,U,3 )_U_U_$P(O ITEM,U,4)
  4477   "RTN","ORM BLD",98,0)
  4478    S LOCAL=$ P($P(OITEM ,U,2),";") _U_$P(OITE M,U)_U_$P( $P(OITEM,U ,2),";",2)
  4479   "RTN","ORM BLD",99,0)
  4480    Q NATL_U_ LOCAL
  4481   "RTN","ORM BLD",100,0 )
  4482    ;
  4483   "RTN","ORM BLD",101,0 )
  4484   NATURE(X)  ; -- Retur ns 3 ^-pie ce identif ier for na ture X
  4485   "RTN","ORM BLD",102,0 )
  4486    N ORN,Y S  ORN=$G(^O RD(100.02, +$G(X),0))
  4487   "RTN","ORM BLD",103,0 )
  4488    S Y=$P(OR N,U,2)_U_$ P(ORN,U)_" ^99ORN"
  4489   "RTN","ORM BLD",104,0 )
  4490    Q Y
  4491   "RTN","ORM BLD",105,0 )
  4492    ;
  4493   "RTN","ORM BLD",106,0 )
  4494   REASON(X,N ) ; -- Ret urns 6 ^-p iece forma t of reaso n X
  4495   "RTN","ORM BLD",107,0 )
  4496    ;    N ^  NATURE ^ 9 9ORN ^ # ^  Reason ^  99ORR
  4497   "RTN","ORM BLD",108,0 )
  4498    N Y,ORR S  ORR=$G(^O RD(100.03, +$G(X),0))
  4499   "RTN","ORM BLD",109,0 )
  4500    S:'$G(N)  N=+$P(ORR, U,7) S Y=$ $NATURE(N)
  4501   "RTN","ORM BLD",110,0 )
  4502    S:$G(X) Y =Y_U_$S(OR PKG'="RA": +X,1:"")_U _$P(ORR,U) _"^99ORR"
  4503   "RTN","ORM BLD",111,0 )
  4504    Q Y
  4505   "RTN","ORM BLD",112,0 )
  4506    ;
  4507   "RTN","ORM BLD",113,0 )
  4508   IP() ; --  Returns OR IFN^Type i f pt has a ctive isol ation orde r (or 0 if  not)
  4509   "RTN","ORM BLD",114,0 )
  4510    N TYPE,ST ART,ORIFN, Y
  4511   "RTN","ORM BLD",115,0 )
  4512    S TYPE=$O (^ORD(100. 98,"B","PR EC",0)),ST ART=$$NOW^ XLFDT,Y=0
  4513   "RTN","ORM BLD",116,0 )
  4514    F  S STAR T=$O(^OR(1 00,"AW",OR VP,TYPE,ST ART),-1) Q :START'>0   S ORIFN=$ O(^(START, 0)) I $P($ G(^OR(100, ORIFN,3)), U,3)=6 S Y =ORIFN Q
  4515   "RTN","ORM BLD",117,0 )
  4516    I Y S TYP E=$$VALUE^ ORCSAVE2(O RIFN,"ISOL ATION"),Y= Y_U_$$GET1 ^DIQ(119.4 ,+TYPE_"," ,.01)
  4517   "RTN","ORM BLD",118,0 )
  4518    Q Y
  4519   "RTN","ORM BLD",119,0 )
  4520    ;
  4521   "RTN","ORM BLD",120,0 )
  4522   OR ; -- ne w Generic  order
  4523   "RTN","ORM BLD",121,0 )
  4524    I ORDG=$O (^ORD(100. 98,"B","M. A.S.",0))  D ADT^ORMB LDOR Q
  4525   "RTN","ORM BLD",122,0 )
  4526    D EN^ORMB LDOR
  4527   "RTN","ORM BLD",123,0 )
  4528    Q
  4529   "RTN","ORM BLD",124,0 )
  4530    ;
  4531   "RTN","ORM BLD",125,0 )
  4532   GMRA ; --  new Allerg y order
  4533   "RTN","ORM BLD",126,0 )
  4534    Q:$$PATCH ^XPDUTL("O R*3.0*216" )  ;195 qu it if patc h 216 is i n
  4535   "RTN","ORM BLD",127,0 )
  4536    D:$L($T(A LG^ORMBLDA L)) ALG^OR MBLDAL
  4537   "RTN","ORM BLD",128,0 )
  4538    Q
  4539   "RTN","ORM BLD",129,0 )
  4540    ;
  4541   "RTN","ORM BLD",130,0 )
  4542   GMRC ; --  new Consul t order
  4543   "RTN","ORM BLD",131,0 )
  4544    D CSLT^OR MBLDGM
  4545   "RTN","ORM BLD",132,0 )
  4546    Q
  4547   "RTN","ORM BLD",133,0 )
  4548    ;
  4549   "RTN","ORM BLD",134,0 )
  4550   FH ; -- ne w Diet ord er
  4551   "RTN","ORM BLD",135,0 )
  4552    N ORPARAM  D EN^FHWO R8(+ORVP,. ORPARAM) ;  set param eters
  4553   "RTN","ORM BLD",136,0 )
  4554    S:'$L($G( ORPARAM(3) )) ORPARAM (3)="T"
  4555   "RTN","ORM BLD",137,0 )
  4556    I ORDG=$O (^ORD(100. 98,"B","PR ECAUTIONS" ,0)) D IP^ ORMBLDFH Q
  4557   "RTN","ORM BLD",138,0 )
  4558    I ORDG=$O (^ORD(100. 98,"B","EA RLY/LATE T RAYS",0))  D TRAY^ORM BLDFH Q
  4559   "RTN","ORM BLD",139,0 )
  4560    I ORDG=$O (^ORD(100. 98,"B","TU BEFEEDINGS ",0)) D TF ^ORMBLDFH  Q
  4561   "RTN","ORM BLD",140,0 )
  4562    I ORDG=$O (^ORD(100. 98,"B","DI ET ADDITIO NAL ORDERS ",0)) D AD DN^ORMBLDF H Q
  4563   "RTN","ORM BLD",141,0 )
  4564    D DIET^OR MBLDFH
  4565   "RTN","ORM BLD",142,0 )
  4566    Q
  4567   "RTN","ORM BLD",143,0 )
  4568    ;
  4569   "RTN","ORM BLD",144,0 )
  4570   LR ; -- ne w Lab orde r
  4571   "RTN","ORM BLD",145,0 )
  4572    I CODE="X O" D XO^OR MBLDLR Q   ; change
  4573   "RTN","ORM BLD",146,0 )
  4574    D CH^ORMB LDLR S ORP KG="LRCH"  Q  ;no dif ference by  subscript  at this t ime
  4575   "RTN","ORM BLD",147,0 )
  4576    N SUB S S UB=$P($G(^ ORD(100.98 ,ORDG,0)), U,3)
  4577   "RTN","ORM BLD",148,0 )
  4578    S:(SUB="S P")!(SUB=" EM")!(SUB= "AU")!(SUB ="CY") SUB ="AP"
  4579   "RTN","ORM BLD",149,0 )
  4580    S:(SUB="L AB")!(SUB= "MI")!(SUB ="HEMA") S UB="CH"
  4581   "RTN","ORM BLD",150,0 )
  4582    D @(SUB_" ^ORMBLDLR" ) S ORPKG= ORPKG_SUB
  4583   "RTN","ORM BLD",151,0 )
  4584    Q
  4585   "RTN","ORM BLD",152,0 )
  4586    ;
  4587   "RTN","ORM BLD",153,0 )
  4588   PS ; -- ne w Pharmacy  order
  4589   "RTN","ORM BLD",154,0 )
  4590    ;I ORDG=$ O(^ORD(100 .98,"B","O UTPATIENT  MEDICATION S",0)) D O UT^ORMBLDP S Q
  4591   "RTN","ORM BLD",155,0 )
  4592    ;D UD^ORM BLDPS
  4593   "RTN","ORM BLD",156,0 )
  4594    N IVDLG S  IVDLG=+$P (OR0,U,5)  ;JD
  4595   "RTN","ORM BLD",157,0 )
  4596    N PKG S P KG=$P(OR0, U,14),PKG= $$GET1^DIQ (9.4,+PKG_ ",",1)
  4597   "RTN","ORM BLD",158,0 )
  4598    I +$$VALU E^ORCSAVE2 (IFN,"URGE NCY")=99,$ P(OR3,U,11 )'="B" D   Q  ;only s end DONE o rders from  BCMA
  4599   "RTN","ORM BLD",159,0 )
  4600    . D STATU S^ORCSAVE2 (IFN,2) K  ORMSG
  4601   "RTN","ORM BLD",160,0 )
  4602    . I $P(OR 3,U,11)=1, $P($G(^OR( 100,+$P(OR 3,U,5),3)) ,U,3)=5 D  MSG(+$P(OR 3,U,5),"CA ") ;cancel  original  instead
  4603   "RTN","ORM BLD",161,0 )
  4604    I ORDG=$O (^ORD(100. 98,"B","IV  RX",0))!( ORDG=$O(^O RD(100.98, "B","TPN", 0)))!(IVDL G=$O(^ORD( 101.41,"B" ,"PSJI OR  PAT FLUID  OE",0)))!( IVDLG=$O(^ ORD(101.41 ,"B","CLIN IC OR PAT  FLUID OE", 0))) D IV^ ORMBLDPS Q
  4605   "RTN","ORM BLD",162,0 )
  4606    D @($S(PK G="PSIV":" IV",PKG="P SO":"OUT", PKG="PSH": "NVA",1:"U D")_"^ORMB LDPS")
  4607   "RTN","ORM BLD",163,0 )
  4608    Q
  4609   "RTN","ORM BLD",164,0 )
  4610    ;
  4611   "RTN","ORM BLD",165,0 )
  4612   RA ; -- ne w Radiolog y order
  4613   "RTN","ORM BLD",166,0 )
  4614    D EN^ORMB LDRA
  4615   "RTN","ORM BLD",167,0 )
  4616    Q
  4617   "RTN","ORM BLD",168,0 )
  4618    ;
  4619   "RTN","ORM BLD",169,0 )
  4620   SD ;
  4621   "RTN","ORM BLD",170,0 )
  4622    D EN^ORMB LDSD(CODE)
  4623   "RTN","ORM BLD",171,0 )
  4624    Q
  4625   "RTN","ORM BLD",172,0 )
  4626    ;
  4627   "RTN","ORM BLD",173,0 )
  4628   TEST(ORIFN ) ; -- Bui ld/display  HL7 msgs  w/o sendin g
  4629   "RTN","ORM BLD",174,0 )
  4630    K ORZTEST  S ORZTEST =1 D NEW(O RIFN) ; le aves msg i n ORZTEST( ) on exit
  4631   "RTN","ORM BLD",175,0 )
  4632    Q
  4633   "RTN","ORM BLDSD")
  4634   0^8^B14839 865
  4635   "RTN","ORM BLDSD",1,0 )
  4636   ORMBLDSD ;  SLC/MKB -  Build out going SCHE DULING ORM  msgs ;06/ 28/17
  4637   "RTN","ORM BLDSD",2,0 )
  4638    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31
  4639   "RTN","ORM BLDSD",3,0 )
  4640    ;
  4641   "RTN","ORM BLDSD",4,0 )
  4642    ;
  4643   "RTN","ORM BLDSD",5,0 )
  4644    ;
  4645   "RTN","ORM BLDSD",6,0 )
  4646   ESC(STR) ;
  4647   "RTN","ORM BLDSD",7,0 )
  4648    Q $$ESC^O RHLESC(STR ,"~|\&^")
  4649   "RTN","ORM BLDSD",8,0 )
  4650    ;
  4651   "RTN","ORM BLDSD",9,0 )
  4652   HL7DATE(DA TE) ; -- F M -> HL7 f ormat
  4653   "RTN","ORM BLDSD",10, 0)
  4654    Q $$FMTHL 7^XLFDT(DA TE)  ;**97
  4655   "RTN","ORM BLDSD",11, 0)
  4656    ;
  4657   "RTN","ORM BLDSD",12, 0)
  4658   PTR(NAME)  ; -- Retur ns ptr val ue of prom pt in Dial og file
  4659   "RTN","ORM BLDSD",13, 0)
  4660    Q $O(^ORD (101.41,"A B",$E("OR  GTX "_NAME ,1,63),0))
  4661   "RTN","ORM BLDSD",14, 0)
  4662    ;
  4663   "RTN","ORM BLDSD",15, 0)
  4664   DC ;
  4665   "RTN","ORM BLDSD",16, 0)
  4666    N OR0,ORD IALOG
  4667   "RTN","ORM BLDSD",17, 0)
  4668    S OR0=$G( ^OR(100,+I FN,0)) Q:' $L(OR0)
  4669   "RTN","ORM BLDSD",18, 0)
  4670    S ORDIALO G=+$P(OR0, U,5) Q:'OR DIALOG
  4671   "RTN","ORM BLDSD",19, 0)
  4672    D GETDLG1 ^ORCD(ORDI ALOG),GETO RDER^ORCD( +IFN)
  4673   "RTN","ORM BLDSD",20, 0)
  4674    D EN("DC" )
  4675   "RTN","ORM BLDSD",21, 0)
  4676    Q
  4677   "RTN","ORM BLDSD",22, 0)
  4678    ;
  4679   "RTN","ORM BLDSD",23, 0)
  4680   EN(CODE) ;  -- Segmen ts for new  Schedulin g order
  4681   "RTN","ORM BLDSD",24, 0)
  4682    N A,ACT,D ATEUPD,ORN OW,APPTNUM ,APPTINV,C LINIC,COMM ENT,INC,IN ST,LOC,LOC SEG
  4683   "RTN","ORM BLDSD",25, 0)
  4684    N NODE,OR IFN,ORDER, PREREQ,PKG REF,PTR,RO OM,RTCDATE ,SEGCNT,ST ART,TIME,V ALUE
  4685   "RTN","ORM BLDSD",26, 0)
  4686    N TEMP,WH OENTER,WHO SIGN,X0,X1 ,X2,X3,X8
  4687   "RTN","ORM BLDSD",27, 0)
  4688    S ACT=$S( IFN[";":$P (IFN,";",2 ),1:1),DAT EUPD=0
  4689   "RTN","ORM BLDSD",28, 0)
  4690    S X0=$G(^ OR(100,+IF N,0)),X3=$ G(^OR(100, +IFN,3)),X 8=$G(^OR(1 00,+IFN,8, ACT,0))
  4691   "RTN","ORM BLDSD",29, 0)
  4692    S PKGREF= $P($G(^OR( 100,+IFN,4 )),U)
  4693   "RTN","ORM BLDSD",30, 0)
  4694    S WHOSIGN =$P(X8,U,5 ),WHOENTER =$P(X0,U,6 )
  4695   "RTN","ORM BLDSD",31, 0)
  4696    I WHOSIGN '>0 S WHOS IGN=$P(X8, U,7)
  4697   "RTN","ORM BLDSD",32, 0)
  4698    S WHOSIGN =WHOSIGN_U _$$GET1^DI Q(200,WHOS IGN,.01)
  4699   "RTN","ORM BLDSD",33, 0)
  4700    S WHOENTE R=WHOENTER _U_$$GET1^ DIQ(200,WH OENTER,.01 )
  4701   "RTN","ORM BLDSD",34, 0)
  4702    I CODE'=" DC" S ORDE R=$P(ORMSG (4),"|",3)  K ORMSG(4 )
  4703   "RTN","ORM BLDSD",35, 0)
  4704    S SEGCNT= $S(CODE="D C":3,1:4)
  4705   "RTN","ORM BLDSD",36, 0)
  4706    S LOC=+$P (X0,U,10), LOCSEG=""
  4707   "RTN","ORM BLDSD",37, 0)
  4708    I LOC>0 S  LOCSEG=+L OC_":"_$$G ET1^DIQ(44 ,LOC,.01)_ U
  4709   "RTN","ORM BLDSD",38, 0)
  4710    I $P($G(^ SC(LOC,0)) ,U,3)="W"  S LOCSEG=L OCSEG_$P($ G(^DPT(+OR VP,.101)), U)
  4711   "RTN","ORM BLDSD",39, 0)
  4712    S ORIFN=$ S(IFN[";": IFN,1:IFN_ ";1")
  4713   "RTN","ORM BLDSD",40, 0)
  4714    ;I PKGREF '>0,CODE=" XO" D
  4715   "RTN","ORM BLDSD",41, 0)
  4716    ;.S ORPRE V=$P(X3,U, 5) I ORPRE V'>0 Q
  4717   "RTN","ORM BLDSD",42, 0)
  4718    ;.S PKGRE F=$P($G(^O R(100,ORPR EV,4)),U)
  4719   "RTN","ORM BLDSD",43, 0)
  4720    ;S ORMSG( SEGCNT)="A RQ|"_ORIFN _"^OR|"_PK GREF_"|||^ followup^^ ^^|"_$S(CO DE="DC":"S 05",CODE=" XO":"S03", 1:"S01")_" ||"
  4721   "RTN","ORM BLDSD",44, 0)
  4722    S ORMSG(S EGCNT)="AR Q|"_ORIFN_ "^OR|"_PKG REF_"|||^f ollowup^^^ ^|"_$S(COD E="DC":"S0 5",1:"S01" )_"||"
  4723   "RTN","ORM BLDSD",45, 0)
  4724    S $P(ORMS G(1),"|",9 )="SRM|"_O RIFN_U_$S( CODE="DC": "S05",CODE ="XX":"S03 ",1:"S01")
  4725   "RTN","ORM BLDSD",46, 0)
  4726    S A=$G(OR DIALOG($$P TR("CLINIC ALLY INDIC ATED DATE" ),1))
  4727   "RTN","ORM BLDSD",47, 0)
  4728    I A["+" D
  4729   "RTN","ORM BLDSD",48, 0)
  4730    . S ORNOW =$$NOW^XLF DT()
  4731   "RTN","ORM BLDSD",49, 0)
  4732    . S X1=$P (ORNOW,"." ),X2=$P(A, "+",2) D C ^%DTC S A= X_$S(A?1"N ".E:"."_$P (ORNOW,"." ),1:"")
  4733   "RTN","ORM BLDSD",50, 0)
  4734    . S ORDIA LOG($$PTR( "CLINICALL Y INDICATE D DATE"),1 )=A,DATEUP D=1
  4735   "RTN","ORM BLDSD",51, 0)
  4736    S RTCDATE =$$HL7DATE (A)
  4737   "RTN","ORM BLDSD",52, 0)
  4738    S START=$ P(X0,U,8), TIME=$G(OR DIALOG($$P TR("YES/NO "),1))
  4739   "RTN","ORM BLDSD",53, 0)
  4740    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _$S(TIME=1 :U_RTCDATE _"|T|",1:R TCDATE_U_" ||")
  4741   "RTN","ORM BLDSD",54, 0)
  4742    I +TIME=1  S ORLEAD= "on or aro und ",ORTR AIL=""
  4743   "RTN","ORM BLDSD",55, 0)
  4744    I +TIME=0  S ORLEAD= "on or aro und (",ORT RAIL=")"
  4745   "RTN","ORM BLDSD",56, 0)
  4746    S APPTNUM =$G(ORDIAL OG($$PTR(" APPT NUM") ,1))
  4747   "RTN","ORM BLDSD",57, 0)
  4748    S APPTINV =+$G(ORDIA LOG($$PTR( "SCH INTER VAL"),1))
  4749   "RTN","ORM BLDSD",58, 0)
  4750    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _$S(APPTIN V>0:"Q"_AP PTINV_"D", 1:"")_"|"
  4751   "RTN","ORM BLDSD",59, 0)
  4752    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _APPTNUM_" |"
  4753   "RTN","ORM BLDSD",60, 0)
  4754    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _WHOSIGN_" ||||"
  4755   "RTN","ORM BLDSD",61, 0)
  4756    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _WHOENTER_ "||"
  4757   "RTN","ORM BLDSD",62, 0)
  4758    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _LOCSEG_"| ||"
  4759   "RTN","ORM BLDSD",63, 0)
  4760    S ORMSG(S EGCNT)=ORM SG(SEGCNT) _IFN_"|"_P KGREF_"|"
  4761   "RTN","ORM BLDSD",64, 0)
  4762   AIL ;
  4763   "RTN","ORM BLDSD",65, 0)
  4764    S SEGCNT= SEGCNT+1
  4765   "RTN","ORM BLDSD",66, 0)
  4766    S CLINIC= $G(ORDIALO G($$PTR("L OCATION"), 1))
  4767   "RTN","ORM BLDSD",67, 0)
  4768    S CLINIC= CLINIC_U_$ $GET1^DIQ( 44,CLINIC, .01)
  4769   "RTN","ORM BLDSD",68, 0)
  4770    S ORMSG(S EGCNT)="AI L|||"_CLIN IC
  4771   "RTN","ORM BLDSD",69, 0)
  4772    S PTR=$$P TR("PRE RE Q")
  4773   "RTN","ORM BLDSD",70, 0)
  4774    ;
  4775   "RTN","ORM BLDSD",71, 0)
  4776   AIG ;
  4777   "RTN","ORM BLDSD",72, 0)
  4778    S INST=0  F  S INST= $O(ORDIALO G(PTR,INST )) Q:INST' >0  S PRER EQ(INST)=O RDIALOG(PT R,INST)
  4779   "RTN","ORM BLDSD",73, 0)
  4780    I $D(PRER EQ) D
  4781   "RTN","ORM BLDSD",74, 0)
  4782    .S SEGCNT =SEGCNT+1, INC=0
  4783   "RTN","ORM BLDSD",75, 0)
  4784    .S INST=0  F  S INST =$O(PREREQ (INST)) Q: INST'>0  D
  4785   "RTN","ORM BLDSD",76, 0)
  4786    ..S INC=I NC+1
  4787   "RTN","ORM BLDSD",77, 0)
  4788    ..I INC=1  S ORMSG(S EGCNT)="AI G|"_INC_"| "_U_PREREQ (INST)_U_U _U_U_"|||| |||||||" Q
  4789   "RTN","ORM BLDSD",78, 0)
  4790    ..I INC>1  S ORMSG(S EGCNT,INC- 1)="AIG|"_ INC_"|"_U_ PREREQ(INS T)_U_U_U_U _"|||||||| |||"
  4791   "RTN","ORM BLDSD",79, 0)
  4792   NXT ;
  4793   "RTN","ORM BLDSD",80, 0)
  4794    S COMMENT =$G(ORDIAL OG($$PTR(" SD COMMENT "),1))
  4795   "RTN","ORM BLDSD",81, 0)
  4796    I COMMENT '="" S SEG CNT=SEGCNT +1,ORMSG(S EGCNT)="NT E|6|P|"_$$ ESC(COMMEN T)
  4797   "RTN","ORM BLDSD",82, 0)
  4798    I DATEUPD =1 S ORIFN =+ORIFN K  ^OR(100,OR IFN,4.5) D  RESPONSE^ ORCSAVE,OR DTEXT^ORCS AVE1(ORIFN _";"_ACT)
  4799   "RTN","ORM BLDSD",83, 0)
  4800    Q
  4801   "RTN","ORM SD")
  4802   0^11^B9718 9040
  4803   "RTN","ORM SD",1,0)
  4804   ORMSD ; SL C/AGP - Pr ocess Sche duling ORM  msgs ;06/ 19/17
  4805   "RTN","ORM SD",2,0)
  4806    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31
  4807   "RTN","ORM SD",3,0)
  4808    ;
  4809   "RTN","ORM SD",4,0)
  4810    ;EN build s an resul ts array
  4811   "RTN","ORM SD",5,0)
  4812    ;INPUTS(" APPT IEN") =0
  4813   "RTN","ORM SD",6,0)
  4814    ;INPUTS(" APPT TYPE" )="followu p"
  4815   "RTN","ORM SD",7,0)
  4816    ;INPUTS(" CLINIC")=" 240^20 MIN UTE"
  4817   "RTN","ORM SD",8,0)
  4818    ;INPUTS(" COMMENT")= "This is t he new com ment field "
  4819   "RTN","ORM SD",9,0)
  4820    ;INPUTS(" ENTERED BY ")="100000 00195^PULE O,ANTHONY"
  4821   "RTN","ORM SD",10,0)
  4822    ;INPUTS(" INTERVAL") ="Q7D"
  4823   "RTN","ORM SD",11,0)
  4824    ;INPUTS(" MSG ID")=" "
  4825   "RTN","ORM SD",12,0)
  4826    ;INPUTS(" DISCONTINU E")=1
  4827   "RTN","ORM SD",13,0)
  4828    ;INPUTS(" ENTERED IN  ERROR")=1
  4829   "RTN","ORM SD",14,0)
  4830    ;INPUTS(" NLT")=1
  4831   "RTN","ORM SD",15,0)
  4832    ;INPUTS(" NUMBER APP T")=4
  4833   "RTN","ORM SD",16,0)
  4834    ;INPUTS(" ORDER IEN" )=14524362
  4835   "RTN","ORM SD",17,0)
  4836    ;INPUTS(" PATIENT")= "346^"
  4837   "RTN","ORM SD",18,0)
  4838    ;INPUTS(" PREREQ",2) ="XRAY"
  4839   "RTN","ORM SD",19,0)
  4840    ;INPUTS(" PREREQ",3) ="VITALS"
  4841   "RTN","ORM SD",20,0)
  4842    ;INPUTS(" RTC DATE") =20170524
  4843   "RTN","ORM SD",21,0)
  4844    ;INPUTS(" SIGNED BY" )=""
  4845   "RTN","ORM SD",22,0)
  4846    ;
  4847   "RTN","ORM SD",23,0)
  4848    ;
  4849   "RTN","ORM SD",24,0)
  4850   CREATACT(N ATURE) ;
  4851   "RTN","ORM SD",25,0)
  4852    N IEN
  4853   "RTN","ORM SD",26,0)
  4854    S IEN=$O( ^ORD(100.0 2,"C",NATU RE,"")) I  IEN'>0 Q 0
  4855   "RTN","ORM SD",27,0)
  4856    I +$P($G( ^ORD(100.0 2,IEN,1)), U)=1 Q 1
  4857   "RTN","ORM SD",28,0)
  4858    Q 0
  4859   "RTN","ORM SD",29,0)
  4860    ;
  4861   "RTN","ORM SD",30,0)
  4862   EN(MSG) ;  -- main en try point  for OR REC EIVE where  MSG conta ins HL7 ms g
  4863   "RTN","ORM SD",31,0)
  4864    N ACTION, AIG,AIL,AR Q,DATE,ENT ER,ERROR,F AILMSA,FRE Q,HASMSA,I NST,MSH,NO DE,NUM,NXT ,ORMSG,PAT ,RESULT,X, PID,PV1,SE G,SIGN
  4865   "RTN","ORM SD",32,0)
  4866    S ERROR=" "
  4867   "RTN","ORM SD",33,0)
  4868    S ORMSG=$ S($L($G(MS G)):MSG,1: "MSG") ; M SG="NAME"  or MSG(#)= message
  4869   "RTN","ORM SD",34,0)
  4870    I '$O(@OR MSG@(0)) D  EN^ORERR( "Missing H L7 message ",.MSG) Q
  4871   "RTN","ORM SD",35,0)
  4872    S MSH=0 F   S MSH=$O (@ORMSG@(M SH)) Q:MSH '>0  Q:$E( @ORMSG@(MS H),1,3)="M SH"
  4873   "RTN","ORM SD",36,0)
  4874    I 'MSH D  EN^ORERR(" Missing or  invalid M SH segment ",.MSG)
  4875   "RTN","ORM SD",37,0)
  4876    S X=0,FAI LMSA=0,HAS MSA=0 F  S  X=$O(@ORM SG@(X)) Q: X'>0!(ERRO R'="")!(HA SMSA=1)  D
  4877   "RTN","ORM SD",38,0)
  4878    .S SEG=$P (@ORMSG@(X ),"|"),NOD E=$P(@ORMS G@(X),"|", 2,99)
  4879   "RTN","ORM SD",39,0)
  4880    .I SEG="M SA" S HASM SA=1
  4881   "RTN","ORM SD",40,0)
  4882    .S SEG=SE G_"(.RESUL T,X,NODE,. ERROR)"
  4883   "RTN","ORM SD",41,0)
  4884    .D @SEG
  4885   "RTN","ORM SD",42,0)
  4886    I FAILMSA =1 D REJEC T(.RESULT)  G ENX
  4887   "RTN","ORM SD",43,0)
  4888    I HASMSA= 1 D ACCEPT (.RESULT)  G ENX
  4889   "RTN","ORM SD",44,0)
  4890    I $G(ERRO R)'="" D S ENDFAIL(.E RROR,.RESU LT) G ENX
  4891   "RTN","ORM SD",45,0)
  4892    I '$$VALI DATE(.RESU LT,.ERROR)  D SENDFAI L(.ERROR,. RESULT) G  ENX
  4893   "RTN","ORM SD",46,0)
  4894    D SAVEREC (.RESULT)
  4895   "RTN","ORM SD",47,0)
  4896    D SENDOK( .RESULT)
  4897   "RTN","ORM SD",48,0)
  4898   ENX ;
  4899   "RTN","ORM SD",49,0)
  4900    Q
  4901   "RTN","ORM SD",50,0)
  4902    ;
  4903   "RTN","ORM SD",51,0)
  4904   LASTACT(OR IFN) ;
  4905   "RTN","ORM SD",52,0)
  4906    N RESULT
  4907   "RTN","ORM SD",53,0)
  4908    I ORIFN[" ;" S RESUL T=$P(ORIFN ,";",2) G  LASTACTX
  4909   "RTN","ORM SD",54,0)
  4910    S RESULT= $O(^OR(100 ,ORIFN,8," "),-1)
  4911   "RTN","ORM SD",55,0)
  4912    I RESULT= "" S RESUL T=1
  4913   "RTN","ORM SD",56,0)
  4914   LASTACTX ;
  4915   "RTN","ORM SD",57,0)
  4916    Q RESULT
  4917   "RTN","ORM SD",58,0)
  4918    ;
  4919   "RTN","ORM SD",59,0)
  4920   MSH(RESULT ,X,SEG,ERR OR) ;
  4921   "RTN","ORM SD",60,0)
  4922    S RESULT( "MSG ID")= $P(SEG,"|" ,9)
  4923   "RTN","ORM SD",61,0)
  4924    S RESULT( "MSG DATE/ TIME")=$$H L7TFM^XLFD T($P(SEG," |",6),"L")
  4925   "RTN","ORM SD",62,0)
  4926    Q
  4927   "RTN","ORM SD",63,0)
  4928    ;
  4929   "RTN","ORM SD",64,0)
  4930   MSA(RESULT ,X,SEG,ERR OR) ;
  4931   "RTN","ORM SD",65,0)
  4932    N STATUS
  4933   "RTN","ORM SD",66,0)
  4934    I $P(SEG, "|")'="AR"  D  Q
  4935   "RTN","ORM SD",67,0)
  4936    .S STATUS =$P(SEG,"| ",2)
  4937   "RTN","ORM SD",68,0)
  4938    .S RESULT ("APPT IEN ")=$P(STAT US,U,2)
  4939   "RTN","ORM SD",69,0)
  4940    S RESULT( "REJECTION  ERROR")=$ P(SEG,"|", 2) S FAILM SA=1
  4941   "RTN","ORM SD",70,0)
  4942    ;S OREASO N=RESULT(" REJECTION  ERROR")
  4943   "RTN","ORM SD",71,0)
  4944    Q
  4945   "RTN","ORM SD",72,0)
  4946    ;
  4947   "RTN","ORM SD",73,0)
  4948   SCH(RESULT ,X,SEG,ERR OR) ;
  4949   "RTN","ORM SD",74,0)
  4950    N TIME
  4951   "RTN","ORM SD",75,0)
  4952    S RESULT( "ORDER IEN ")=$P(SEG, "|",2),RES ULT("APPT  IEN")=+$P( SEG,"|",1)
  4953   "RTN","ORM SD",76,0)
  4954    S RESULT( "APPT TYPE ")=$P($P(S EG,"|",5), U,2)
  4955   "RTN","ORM SD",77,0)
  4956    S ACTION= $P(SEG,"|" ,6) S RESU LT($S($P(A CTION,U)=" S15":"DISC ONTINUE",1 :"COMPLETE "))=1
  4957   "RTN","ORM SD",78,0)
  4958    I $P(ACTI ON,U,2)="P ARTIAL" S  RESULT("PA RTIAL")=1
  4959   "RTN","ORM SD",79,0)
  4960    S DATE=$P (SEG,"|",8 ),TIME=$P( SEG,"|",9)
  4961   "RTN","ORM SD",80,0)
  4962    I TIME="T " S RESULT ("NLT")=1
  4963   "RTN","ORM SD",81,0)
  4964    S RESULT( "RTC DATE" )=$$HL7TFM ^XLFDT($S( TIME="T":$ P(DATE,U,2 ),1:$P(DAT E,U)),"L")
  4965   "RTN","ORM SD",82,0)
  4966    S FREQ=$P (SEG,"|",1 0),NUM=+$P (SEG,"|",1 1)
  4967   "RTN","ORM SD",83,0)
  4968    S RESULT( "NUMBER AP PT")=NUM I  NUM>0 S R ESULT("INT ERVAL")=+$ E(FREQ,2,3 )
  4969   "RTN","ORM SD",84,0)
  4970    S RESULT( "SIGNED BY ")=$P(SEG, "|",14)
  4971   "RTN","ORM SD",85,0)
  4972    S RESULT( "DISPOSITI ON BY")=$P (SEG,"|",1 6)
  4973   "RTN","ORM SD",86,0)
  4974    Q
  4975   "RTN","ORM SD",87,0)
  4976    ;
  4977   "RTN","ORM SD",88,0)
  4978   AIL(RESULT ,X,SEG,ERR OR) ;
  4979   "RTN","ORM SD",89,0)
  4980    S RESULT( "CLINIC")= $P(SEG,"|" ,3)
  4981   "RTN","ORM SD",90,0)
  4982    Q
  4983   "RTN","ORM SD",91,0)
  4984   AIG(RESULT ,X,SEG,ERR OR) ;
  4985   "RTN","ORM SD",92,0)
  4986    N INST,NO DE
  4987   "RTN","ORM SD",93,0)
  4988    S RESULT( "PREREQ",$ P(SEG,"|") )=$P($P(SE G,"|",2),U ,2)
  4989   "RTN","ORM SD",94,0)
  4990    S INST=0  F  S INST= $O(@ORMSG@ (X,INST))  Q:INST'>0   D
  4991   "RTN","ORM SD",95,0)
  4992    .S NODE=$ P(@ORMSG@( X,INST),"| ",2,99)
  4993   "RTN","ORM SD",96,0)
  4994    .S RESULT ("PREREQ", $P(NODE,"| "))=$P($P( NODE,"|",2 ),U,2)
  4995   "RTN","ORM SD",97,0)
  4996    Q
  4997   "RTN","ORM SD",98,0)
  4998    ;
  4999   "RTN","ORM SD",99,0)
  5000   NTE(RESULT ,X,SEG,ERR OR) ;
  5001   "RTN","ORM SD",100,0)
  5002    S RESULT( "COMMENT") =$P(SEG,"| ",3)
  5003   "RTN","ORM SD",101,0)
  5004    Q
  5005   "RTN","ORM SD",102,0)
  5006    ;
  5007   "RTN","ORM SD",103,0)
  5008    ;
  5009   "RTN","ORM SD",104,0)
  5010   PID(RESULT ,X,SEG,ERR OR) ;
  5011   "RTN","ORM SD",105,0)
  5012    S RESULT( "PATIENT") =$P(SEG,"| ",3)_U_$P( SEG,"|",5)
  5013   "RTN","ORM SD",106,0)
  5014    Q
  5015   "RTN","ORM SD",107,0)
  5016    ;
  5017   "RTN","ORM SD",108,0)
  5018   PV1(RESULT ,X,SEG,ERR OR) ; -- G ets Patien t location  info.
  5019   "RTN","ORM SD",109,0)
  5020    ;    may  not be nee ded for sc heduling
  5021   "RTN","ORM SD",110,0)
  5022    Q
  5023   "RTN","ORM SD",111,0)
  5024    ;
  5025   "RTN","ORM SD",112,0)
  5026   FMDATE(Y)  ; -- Conve rt HL7 dat e/time to  FM format
  5027   "RTN","ORM SD",113,0)
  5028    Q $$HL7TF M^XLFDT(Y)
  5029   "RTN","ORM SD",114,0)
  5030    ;
  5031   "RTN","ORM SD",115,0)
  5032   REJECT(RES ULT) ;
  5033   "RTN","ORM SD",116,0)
  5034    N ORIFN,O RNATR
  5035   "RTN","ORM SD",117,0)
  5036    S ORIFN=$ P($G(RESUL T("MSG ID" )),U) Q:+O RIFN'>0
  5037   "RTN","ORM SD",118,0)
  5038    S:'$G(ORN ATR) ORNAT R="X" ;Rej ected
  5039   "RTN","ORM SD",119,0)
  5040    S ^OR(100 ,+ORIFN,6) =$O(^ORD(1 00.02,"C", ORNATR,0)) _U_U_+$E($ $NOW^XLFDT ,1,12)_U_U _RESULT("R EJECTION E RROR")
  5041   "RTN","ORM SD",120,0)
  5042    I $P($G(^ OR(100,+OR IFN,3)),U, 11)=2 N OR IG S ORIG= $P(^(3),U, 5) S:ORIG  $P(^OR(100 ,ORIG,3),U ,6)="" ;re move fwd p tr if pend ing renewa l
  5043   "RTN","ORM SD",121,0)
  5044    S ORERR=R ESULT("REJ ECTION ERR OR")
  5045   "RTN","ORM SD",122,0)
  5046    N ORDA S  ORDA=+$P(O RIFN,";",2 ) I ORDA D
  5047   "RTN","ORM SD",123,0)
  5048    . S $P(^O R(100,+ORI FN,8,ORDA, 0),U,15)=1 3 ;request  rejected
  5049   "RTN","ORM SD",124,0)
  5050    . S:$L(RE SULT("REJE CTION ERRO R")) ^OR(1 00,+ORIFN, 8,ORDA,1)= RESULT("RE JECTION ER ROR")
  5051   "RTN","ORM SD",125,0)
  5052    D STATUS^ ORCSAVE2(+ ORIFN,13)
  5053   "RTN","ORM SD",126,0)
  5054    Q
  5055   "RTN","ORM SD",127,0)
  5056    ;
  5057   "RTN","ORM SD",128,0)
  5058   ACCEPT(RES ULT) ;
  5059   "RTN","ORM SD",129,0)
  5060    N ORIFN
  5061   "RTN","ORM SD",130,0)
  5062    S ORIFN=$ P($G(RESUL T("MSG ID" )),U)
  5063   "RTN","ORM SD",131,0)
  5064    I $P(RESU LT("MSG ID "),U,2)'=" S05" D  Q
  5065   "RTN","ORM SD",132,0)
  5066    .S ^OR(10 0,+ORIFN,4 )=$G(RESUL T("APPT IE N"))
  5067   "RTN","ORM SD",133,0)
  5068    .D STATUS ^ORCSAVE2( +ORIFN,5)
  5069   "RTN","ORM SD",134,0)
  5070    .D DATES^ ORCSAVE2(+ ORIFN,DT," ")
  5071   "RTN","ORM SD",135,0)
  5072    D DCACK(+ ORIFN,.RES ULT)
  5073   "RTN","ORM SD",136,0)
  5074    Q
  5075   "RTN","ORM SD",137,0)
  5076    ;
  5077   "RTN","ORM SD",138,0)
  5078   DCACK(ORIF N,RESULT)  ;
  5079   "RTN","ORM SD",139,0)
  5080    N ORSTS
  5081   "RTN","ORM SD",140,0)
  5082    ;set stat us to disc ontinue us ed as a va riable for  future co de changes
  5083   "RTN","ORM SD",141,0)
  5084    S ORSTS=1
  5085   "RTN","ORM SD",142,0)
  5086    D EXPDT(O RIFN)
  5087   "RTN","ORM SD",143,0)
  5088    D STATUS^ ORCSAVE2(+ ORIFN,ORST S)
  5089   "RTN","ORM SD",144,0)
  5090    I $G(RESU LT("APPT I EN"))'=""  S ^OR(100, +ORIFN,4)= RESULT("AP PT IEN")
  5091   "RTN","ORM SD",145,0)
  5092    Q
  5093   "RTN","ORM SD",146,0)
  5094    ;
  5095   "RTN","ORM SD",147,0)
  5096   GETSTAT(RE SULT) ;
  5097   "RTN","ORM SD",148,0)
  5098    I +$G(RES ULT("DISCO NTINUE"))  Q $O(^ORD( 100.01,"B" ,"DISCONTI NUED",""))
  5099   "RTN","ORM SD",149,0)
  5100    I +$G(RES ULT("PARTI AL")) Q $O (^ORD(100. 01,"B","PA RTIAL RESU LTS",""))
  5101   "RTN","ORM SD",150,0)
  5102    Q $O(^ORD (100.01,"B ","COMPLET E",""))
  5103   "RTN","ORM SD",151,0)
  5104    ;
  5105   "RTN","ORM SD",152,0)
  5106   EXPDT(ORIF N) ; -- sa ve exp dat e when dc' d
  5107   "RTN","ORM SD",153,0)
  5108    N STOP S  STOP=$P($G (^OR(100,+ ORIFN,0)), U,9)
  5109   "RTN","ORM SD",154,0)
  5110    I STOP,ST OP<$$NOW^X LFDT,'$P($ G(^OR(100, +ORIFN,6)) ,U,6) S $P (^(6),U,6) =STOP
  5111   "RTN","ORM SD",155,0)
  5112    Q
  5113   "RTN","ORM SD",156,0)
  5114    ;
  5115   "RTN","ORM SD",157,0)
  5116   VALIDATE(R ESULT,ERRO R) ;
  5117   "RTN","ORM SD",158,0)
  5118    ;INPUTS(" APPT IEN") =0
  5119   "RTN","ORM SD",159,0)
  5120    ;INPUTS(" APPT TYPE" )="followu p"
  5121   "RTN","ORM SD",160,0)
  5122    ;INPUTS(" CLINIC")=" 240^20 MIN UTE"
  5123   "RTN","ORM SD",161,0)
  5124    ;INPUTS(" COMMENT")= "This is t he new com ment field "
  5125   "RTN","ORM SD",162,0)
  5126    ;INPUTS(" ENTERED BY ")="100000 00195^PULE O,ANTHONY"
  5127   "RTN","ORM SD",163,0)
  5128    ;INPUTS(" INTERVAL") ="Q7D"
  5129   "RTN","ORM SD",164,0)
  5130    ;INPUTS(" MSG ID")=" "
  5131   "RTN","ORM SD",165,0)
  5132    ;INPUTS(" DISCONTINU E")=1
  5133   "RTN","ORM SD",166,0)
  5134    ;INPUTS(" ENTERED IN  ERROR")=1
  5135   "RTN","ORM SD",167,0)
  5136    ;INPUTS(" NLT")=1
  5137   "RTN","ORM SD",168,0)
  5138    ;INPUTS(" NUMBER APP T")=4
  5139   "RTN","ORM SD",169,0)
  5140    ;INPUTS(" ORDER IEN" )=14524362
  5141   "RTN","ORM SD",170,0)
  5142    ;INPUTS(" PATIENT")= "346^"
  5143   "RTN","ORM SD",171,0)
  5144    ;INPUTS(" PREREQ",2) ="XRAY"
  5145   "RTN","ORM SD",172,0)
  5146    ;INPUTS(" PREREQ",3) ="VITALS"
  5147   "RTN","ORM SD",173,0)
  5148    ;INPUTS(" RTC DATE") =20170524
  5149   "RTN","ORM SD",174,0)
  5150    ;INPUTS(" SIGNED BY" )=""
  5151   "RTN","ORM SD",175,0)
  5152    N OK,ORIF N,OR3,STS
  5153   "RTN","ORM SD",176,0)
  5154    S OK=1
  5155   "RTN","ORM SD",177,0)
  5156    I +$G(RES ULT("CLINI C"))'>0 S  ERROR="Cli nic locati on not def ined" S OK =0 G VALID ATX
  5157   "RTN","ORM SD",178,0)
  5158    I '$G(RES ULT("COMPL ETE")),'$G (RESULT("D ISCONTINUE ")) S ERRO R="Status  not define d" S OK=0  G VALIDATX
  5159   "RTN","ORM SD",179,0)
  5160    I +$G(RES ULT("PATIE NT"))'>0 S  ERROR="Pa tient is n ot defined " S OK=0 G  VALIDATX
  5161   "RTN","ORM SD",180,0)
  5162    I +$G(RES ULT("PATIE NT"))_";DP T("'=$P($G (^OR(100,R ESULT("ORD ER IEN"),0 )),U,2) S  ERROR="Pat ient doesn 't match"  S OK=0 G V ALIDATX
  5163   "RTN","ORM SD",181,0)
  5164    I '+$G(RE SULT("DISP OSITION BY ")) S ERRO R="User wh o disposit ion the or der not de fined" S O K=0 G VALI DATX
  5165   "RTN","ORM SD",182,0)
  5166    S ORIFN=R ESULT("ORD ER IEN") I  +ORIFN'>0  S ERROR=" Order numb er not def ined" S OK =0 G VALID ATX
  5167   "RTN","ORM SD",183,0)
  5168    S OR3=$G( ^OR(100,+O RIFN,3)),S TS=$P(OR3, U,3)
  5169   "RTN","ORM SD",184,0)
  5170    I STS=1!( STS=2) S E RROR="Orde r with a s tatus of " _$S(STS=1: "discontin ued",1:"co mplete")_"  cannot be  changed"  S OK=0 G V ALIDATX
  5171   "RTN","ORM SD",185,0)
  5172   VALIDATX ;
  5173   "RTN","ORM SD",186,0)
  5174    Q OK
  5175   "RTN","ORM SD",187,0)
  5176    ;
  5177   "RTN","ORM SD",188,0)
  5178   SAVEREC(RE SULT) ;
  5179   "RTN","ORM SD",189,0)
  5180    N C,CREAT ACT,DISPBY ,I,ID,ISTI ME,OERR,OR DA,ORDG,OR DIALOG,ORI FN,ORNATR, ORNP,ORNOW ,ORPKG,ORS TRT,ORVP,O RWHO,STATU S,TYPE,WHO SIGN,X0,X8
  5181   "RTN","ORM SD",190,0)
  5182    N ORLEAD, ORTRAIL
  5183   "RTN","ORM SD",191,0)
  5184    S ORWHO=+ RESULT("DI SPOSITION  BY")
  5185   "RTN","ORM SD",192,0)
  5186    S ORNP=OR WHO
  5187   "RTN","ORM SD",193,0)
  5188    S ORNOW=+ $E($$NOW^X LFDT,1,12)
  5189   "RTN","ORM SD",194,0)
  5190    S ORDIALO G=+$O(^ORD (101.41,"A B","SD RTC ",0))
  5191   "RTN","ORM SD",195,0)
  5192    S ORDG=+$ O(^ORD(100 .98,"B","C LINIC SCHE DULING",0) )
  5193   "RTN","ORM SD",196,0)
  5194    S ORIFN=R ESULT("ORD ER IEN")
  5195   "RTN","ORM SD",197,0)
  5196    S ORVP=+R ESULT("PAT IENT")_";D PT("
  5197   "RTN","ORM SD",198,0)
  5198    S ORPKG=+ $$PKG("SD" ) D GETDLG 1^ORCD(ORD IALOG),GET ORDER^ORCD (+ORIFN,"O RDIALOG")
  5199   "RTN","ORM SD",199,0)
  5200    ;set ORDI ALOG array  to values  returned  from sched uling sing le instanc e
  5201   "RTN","ORM SD",200,0)
  5202    ;D UPDRES P(ORIFN,.O RDIALOG)
  5203   "RTN","ORM SD",201,0)
  5204    S ORDA=$P (ORIFN,";" ,2) I ORDA ="" S ORDA =1
  5205   "RTN","ORM SD",202,0)
  5206    S X0=$G(^ OR(100,+OR IFN,0)),X8 =$G(^OR(10 0,ORIFN,8, ORDA,0))
  5207   "RTN","ORM SD",203,0)
  5208    ;get whos igned and  start date  for later
  5209   "RTN","ORM SD",204,0)
  5210    S WHOSIGN =$P(X8,U,5 ),ORSTRT=$ P(X0,U,8)
  5211   "RTN","ORM SD",205,0)
  5212    ;update p ackage ref erence
  5213   "RTN","ORM SD",206,0)
  5214    S ^OR(100 ,+ORIFN,4) =$G(RESULT ("APPT IEN "))
  5215   "RTN","ORM SD",207,0)
  5216    ;create n ew order a ction
  5217   "RTN","ORM SD",208,0)
  5218    ;set to c omplete st atus until  next iter ation of V SE
  5219   "RTN","ORM SD",209,0)
  5220    ;S STATUS =$S(+$G(RE SULT("DISC ONTINUE")) :$O(^ORD(1 00.01,"B", "CANCELLED ","")),1:$ O(^ORD(100 .01,"B","C OMPLETE"," ")))
  5221   "RTN","ORM SD",210,0)
  5222    ;S STATUS =$S(+$G(RE SULT("DISC ONTINUE")) :$O(^ORD(1 00.01,"B", "DISCONTIN UED","")), +$G(RESULT ("PARTIAL" )):$O(^ORD (100.01,"B ","PARTIAL  RESULTS", "")),1:$O( ^ORD(100.0 1,"B","COM PLETE","") ))
  5223   "RTN","ORM SD",211,0)
  5224    S STATUS= $$GETSTAT( .RESULT)
  5225   "RTN","ORM SD",212,0)
  5226    S TYPE=$S (+$G(RESUL T("DISCONT INUE")):"D C",1:"XX")
  5227   "RTN","ORM SD",213,0)
  5228    D STATUS^ ORCSAVE2(O RIFN,STATU S)
  5229   "RTN","ORM SD",214,0)
  5230    S CREATAC T=$$CREATA CT("I")
  5231   "RTN","ORM SD",215,0)
  5232    I CREATAC T=1 S ORDA =$$ACTION^ ORCSAVE(TY PE,ORIFN,W HOSIGN,$S( TYPE="DC": "Per Sched uling",1:" "),ORNOW,O RWHO)
  5233   "RTN","ORM SD",216,0)
  5234    I CREATAC T=0 S ORDA =$$LASTACT (ORIFN)
  5235   "RTN","ORM SD",217,0)
  5236    ;if order  is not cr eated how  to get thi s to exper t system
  5237   "RTN","ORM SD",218,0)
  5238    I ORDA'>0  S ORERR=" Cannot cre ate new or der action " Q
  5239   "RTN","ORM SD",219,0)
  5240    ;update s tatus to c ompete set  indexes
  5241   "RTN","ORM SD",220,0)
  5242    ;I TYPE'= "DC" D SET ALL^ORDD10 0(ORIFN)
  5243   "RTN","ORM SD",221,0)
  5244    D SETALL^ ORDD100(OR IFN)
  5245   "RTN","ORM SD",222,0)
  5246    ;set the  order as i t has been  release t o scheduli ng with th e update
  5247   "RTN","ORM SD",223,0)
  5248    D RELEASE ^ORCSAVE2( ORIFN,ORDA ,ORNOW,ORW HO,"I")
  5249   "RTN","ORM SD",224,0)
  5250    S ORNATR= "I"
  5251   "RTN","ORM SD",225,0)
  5252    D SIGSTS^ ORCSAVE2(+ ORIFN,ORDA )
  5253   "RTN","ORM SD",226,0)
  5254    ;update d ates
  5255   "RTN","ORM SD",227,0)
  5256    D DATES^O RCSAVE2(OR IFN,ORSTRT ,ORNOW)
  5257   "RTN","ORM SD",228,0)
  5258    ;set disp osition fi elds
  5259   "RTN","ORM SD",229,0)
  5260    N DA,DR,D IE
  5261   "RTN","ORM SD",230,0)
  5262    S DA(1)=O RIFN,DA=OR DA
  5263   "RTN","ORM SD",231,0)
  5264    S DIE="^O R(100,"_DA (1)_",8,"
  5265   "RTN","ORM SD",232,0)
  5266    S DR="40/ ///"_ORWHO _";41////" _RESULT("M SG DATE/TI ME")
  5267   "RTN","ORM SD",233,0)
  5268    D ^DIE
  5269   "RTN","ORM SD",234,0)
  5270    S $P(^OR( 100,+ORIFN ,8,ORDA,0) ,U,14)=ORD A
  5271   "RTN","ORM SD",235,0)
  5272    S $P(^OR( 100,+ORIFN ,3),U,7)=O RDA
  5273   "RTN","ORM SD",236,0)
  5274    I TYPE="D C" D
  5275   "RTN","ORM SD",237,0)
  5276    .D CANCEL ^ORCSEND(+ ORIFN)
  5277   "RTN","ORM SD",238,0)
  5278    .D EN^ORB 3(91,+RESU LT("PATIEN T"),ORIFN, "","Appoin tment Requ est Cancel led in Sch eduling"," NEW,"_ORIF N) Q
  5279   "RTN","ORM SD",239,0)
  5280    ;Disconti nue update s only
  5281   "RTN","ORM SD",240,0)
  5282    ;I TYPE=" DC" D  Q
  5283   "RTN","ORM SD",241,0)
  5284    ;.S ORNAT R="E"
  5285   "RTN","ORM SD",242,0)
  5286    ;.;D SIGS TS^ORCSAVE 2(+ORIFN,O RDA)
  5287   "RTN","ORM SD",243,0)
  5288    ;.S $P(^O R(100,+ORI FN,3),U,7) =ORDA
  5289   "RTN","ORM SD",244,0)
  5290    ;.D CANCE L^ORCSEND( +ORIFN)
  5291   "RTN","ORM SD",245,0)
  5292    ;update r esponses 4 .5 and SIG
  5293   "RTN","ORM SD",246,0)
  5294    S ISTIME= ORDIALOG($ $PTR($P("Y ES/NO",U)) ,1)
  5295   "RTN","ORM SD",247,0)
  5296    S ORLEAD= $S(ISTIME= 1:"on or b efore ",1: "on or aro und ("),OR TRAIL=$S(I STIME=1:"" ,1:")")
  5297   "RTN","ORM SD",248,0)
  5298    K ^OR(100 ,+ORIFN,4. 5) D RESPO NSE^ORCSAV E,ORDTEXT^ ORCSAVE1(+ ORIFN_";"_ ORDA)
  5299   "RTN","ORM SD",249,0)
  5300    ;update t he dialog  and packag e fiels. T his may ha ve value i n future v ersion of  VSE
  5301   "RTN","ORM SD",250,0)
  5302    S $P(^OR( 100,ORIFN, 0),U,5)=OR DIALOG_";O RD(101.41, ",$P(^(0), U,14)=ORPK G
  5303   "RTN","ORM SD",251,0)
  5304    ;validate  display g roup and u pdate if n eeded
  5305   "RTN","ORM SD",252,0)
  5306    I $P(^OR( 100,ORIFN, 0),U,11)'= ORDG D
  5307   "RTN","ORM SD",253,0)
  5308    . N DA,DR ,DIE
  5309   "RTN","ORM SD",254,0)
  5310    . S DA=OR IFN,DR="23 ////"_ORDG ,DIE="^OR( 100," D ^D IE
  5311   "RTN","ORM SD",255,0)
  5312    ;S $P(^(8 ,ORDA,0),U ,14)=ORDA
  5313   "RTN","ORM SD",256,0)
  5314    ;send bac k ack back , because  scheduling  is using  a SRM mess age this c ode is bra nched from
  5315   "RTN","ORM SD",257,0)
  5316    ;the stan dard OR HL 7 message.  This hand le in the  EN line ta g of this  routine.
  5317   "RTN","ORM SD",258,0)
  5318    ;S ORIFN= ORIFN_";"_ ORDA,ORDCN TRL="SN" ; to send NA  msg back
  5319   "RTN","ORM SD",259,0)
  5320    Q
  5321   "RTN","ORM SD",260,0)
  5322    ;
  5323   "RTN","ORM SD",261,0)
  5324   UPDRESP(OR IFN,ORDIAL OG) ;
  5325   "RTN","ORM SD",262,0)
  5326    N C,I,ID, TYPE
  5327   "RTN","ORM SD",263,0)
  5328    F ID="LOC ATION","CL INICALLY", "YN","SDNU M","SDINT" ,"SDCOMMEN T" D
  5329   "RTN","ORM SD",264,0)
  5330    .S TYPE=$ $PMPTMAP(I D) I ID=""  Q
  5331   "RTN","ORM SD",265,0)
  5332    .I ID="SD INT",+$G(O RDIALOG($$ PTR($P(TYP E,U)),1))= 0,$P($G(RE SULT($P(TY PE,U,2))), U)=0 Q
  5333   "RTN","ORM SD",266,0)
  5334    .I $P($G( RESULT($P( TYPE,U,2)) ),U)'="" S  ORDIALOG( $$PTR($P(T YPE,U)),1) =$P($G(RES ULT($P(TYP E,U,2))),U ) Q
  5335   "RTN","ORM SD",267,0)
  5336    .I $G(ORD IALOG($$PT R($P(TYPE, U)),1))'=" " S ORDIAL OG($$PTR($ P(TYPE,U)) ,1)="@"
  5337   "RTN","ORM SD",268,0)
  5338    ;set ORDI ALOG array  to values  returned  from sched uling mult iple insta nces
  5339   "RTN","ORM SD",269,0)
  5340    ;I $D(RES ULT("PRERE Q")) D
  5341   "RTN","ORM SD",270,0)
  5342    ;.S C=0,I =0 F  S I= $O(RESULT( "PREREQ",I )) Q:I'>0   D
  5343   "RTN","ORM SD",271,0)
  5344    ;..S C=C+ 1,ORDIALOG ($$PTR("PR E REQ"),C) =$G(RESULT ("PREREQ", I))
  5345   "RTN","ORM SD",272,0)
  5346    Q
  5347   "RTN","ORM SD",273,0)
  5348    ;
  5349   "RTN","ORM SD",274,0)
  5350   PMPTMAP(ID ) ;
  5351   "RTN","ORM SD",275,0)
  5352    I ID="CLI NIC" Q "LO CATION"_U_ "CLINIC"
  5353   "RTN","ORM SD",276,0)
  5354    I ID="CLI NICALLY" Q  "CLINICAL LY INDICAT ED DATE"_U _"RTC DATE "
  5355   "RTN","ORM SD",277,0)
  5356    I ID="SDN UM" Q "APP T NUM"_U_" NUMBER APP T"
  5357   "RTN","ORM SD",278,0)
  5358    I ID="SDI NT" Q "SCH  INTERVAL" _U_"INTERV AL"
  5359   "RTN","ORM SD",279,0)
  5360    I ID="SDC OMMENT" Q  "SD COMMEN T"_U_"COMM ENT"
  5361   "RTN","ORM SD",280,0)
  5362    I ID="YN"  Q "YES/NO "_U_"NLT"
  5363   "RTN","ORM SD",281,0)
  5364    Q ""
  5365   "RTN","ORM SD",282,0)
  5366    ;
  5367   "RTN","ORM SD",283,0)
  5368   SENDFAIL(E RROR,RESUL T) ;
  5369   "RTN","ORM SD",284,0)
  5370    N ORV
  5371   "RTN","ORM SD",285,0)
  5372    S ORV("XQ Y0")="" D  EN^ORERR(E RROR,.ORMS G,.ORV)
  5373   "RTN","ORM SD",286,0)
  5374    ;Q:ORTYPE ="ORR"  Q: '$L($G(ORN MSP))
  5375   "RTN","ORM SD",287,0)
  5376    N OREMSG
  5377   "RTN","ORM SD",288,0)
  5378    ;N ORVP,O RTS S:'$G( ORDUZ) ORD UZ=PAT_";D PT(" D:'$G (ORVP) PID
  5379   "RTN","ORM SD",289,0)
  5380    S OREMSG( 1)=$$MSH^O RMBLD("SRM ","SD")_"| "_$G(RESUL T("MSG ID" ))
  5381   "RTN","ORM SD",290,0)
  5382    S OREMSG( 2)="MSA|AR |"_ERROR_" |||207^"_E RROR
  5383   "RTN","ORM SD",291,0)
  5384    S OREMSG( 3)="ERR|^^ ^"
  5385   "RTN","ORM SD",292,0)
  5386    D MSG^XQO R("OR EVSE ND SD",.OR EMSG)
  5387   "RTN","ORM SD",293,0)
  5388    Q
  5389   "RTN","ORM SD",294,0)
  5390    ;
  5391   "RTN","ORM SD",295,0)
  5392   SENDOK(RES ULT) ;
  5393   "RTN","ORM SD",296,0)
  5394    N ORMSG
  5395   "RTN","ORM SD",297,0)
  5396    S ORMSG(1 )=$$MSH^OR MBLD("SRM" ,"SD")_"|" _RESULT("M SG ID")
  5397   "RTN","ORM SD",298,0)
  5398    S ORMSG(2 )="MSA|AA| OK|||"
  5399   "RTN","ORM SD",299,0)
  5400    D MSG^XQO R("OR EVSE ND SD",.OR MSG)
  5401   "RTN","ORM SD",300,0)
  5402    Q
  5403   "RTN","ORM SD",301,0)
  5404    ;
  5405   "RTN","ORM SD",302,0)
  5406   PKG(NMSP)  ; -- Retur n Package  file ptr f or NMSP
  5407   "RTN","ORM SD",303,0)
  5408    N I S I=0
  5409   "RTN","ORM SD",304,0)
  5410    F  S I=+$ O(^DIC(9.4 ,"C",NMSP, I)) Q:I<1   Q:'$O(^(I ,0))  ;no  Addl Prefs
  5411   "RTN","ORM SD",305,0)
  5412    Q I
  5413   "RTN","ORM SD",306,0)
  5414    ;
  5415   "RTN","ORM SD",307,0)
  5416   PTR(X) ; - - Return p tr to prom pt OR GTX  X
  5417   "RTN","ORM SD",308,0)
  5418    Q +$O(^OR D(101.41," AB","OR GT X "_X,0))
  5419   "RTN","ORM SD",309,0)
  5420    ;
  5421   "RTN","ORM SD",310,0)
  5422   VALUE(ID)  ; -- Retur n value of  ID in ^OR (100,+ORIF N,4.5,"ID" )
  5423   "RTN","ORM SD",311,0)
  5424    N I,Y I ' $L($G(ID))  Q ""
  5425   "RTN","ORM SD",312,0)
  5426    S I=+$O(^ OR(100,+OR IFN,4.5,"I D",ID,0))
  5427   "RTN","ORM SD",313,0)
  5428    S Y=$G(^O R(100,+ORI FN,4.5,I,1 ))
  5429   "RTN","ORM SD",314,0)
  5430    Q Y
  5431   "RTN","ORQ 20")
  5432   0^15^B5127 2743
  5433   "RTN","ORQ 20",1,0)
  5434   ORQ20 ; SL C/MKB - De tailed Ord er Report  cont ;3/6/ 08  10:25
  5435   "RTN","ORQ 20",2,0)
  5436    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 2,27,92,94 ,116,141,1 77,186,190 ,215,243,4 34**;Dec 1 7, 1997;Bu ild 31
  5437   "RTN","ORQ 20",3,0)
  5438   ACT ; -- a dd Activit y [from ^O RQ2]
  5439   "RTN","ORQ 20",4,0)
  5440    N ORACT S  ORACT=$P( ACTION,U,2 )
  5441   "RTN","ORQ 20",5,0)
  5442    I ORACT'= "NW",$P(AC TION,U,4)= 5,$P(ACTIO N,U,15)=13  Q  ;skip  canc actio ns
  5443   "RTN","ORQ 20",6,0)
  5444    N NVA,USE R S:$P(^OR D(100.98,$ P(^OR(100, +ORIFN,0), U,11),0),U )="NON-VA  MEDICATION S" NVA=1
  5445   "RTN","ORQ 20",7,0)
  5446    S CNT=CNT +1,@ORY@(C NT)=$$DATE ($P(ACTION ,U))_"  "_ $$ACTION(O RACT)
  5447   "RTN","ORQ 20",8,0)
  5448    I $P(ACTI ON,U,13) S  @ORY@(CNT )=@ORY@(CN T)_" enter ed by "_$$ USER(+$P(A CTION,U,13 ))
  5449   "RTN","ORQ 20",9,0)
  5450    I ORACT=" NW" D  ;Sh ow origina l order te xt
  5451   "RTN","ORQ 20",10,0)
  5452    . N ORZ,I ,ORIGVIEW  S ORIGVIEW =2 D TEXT^ ORQ12(.ORZ ,ORIFN_";1 ",80)
  5453   "RTN","ORQ 20",11,0)
  5454    . S CNT=C NT+1,@ORY@ (CNT)="      Order Te xt:         "_$G(ORZ( 1))
  5455   "RTN","ORQ 20",12,0)
  5456    . S I=1 F   S I=$O(O RZ(I)) Q:I '>0  S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORZ(I ))
  5457   "RTN","ORQ 20",13,0)
  5458    I ORACT=" XX" D  ;Ch anged - sh ow new tex t
  5459   "RTN","ORQ 20",14,0)
  5460    . N ORZ,I ,ORIGVIEW  S ORIGVIEW =2 D TEXT^ ORQ12(.ORZ ,ORIFN_";" _ORI,80)
  5461   "RTN","ORQ 20",15,0)
  5462    . S CNT=C NT+1,@ORY@ (CNT)="      Changed  to:         "_$G(ORZ( 1))
  5463   "RTN","ORQ 20",16,0)
  5464    . S I=1 F   S I=$O(O RZ(I)) Q:I '>0  S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORZ(I ))
  5465   "RTN","ORQ 20",17,0)
  5466   A1 I $P(AC TION,U,12)  D  ;Natur e of Order /Release
  5467   "RTN","ORQ 20",18,0)
  5468    . N ORZ S  ORZ=$G(^O RD(100.02, +$P(ACTION ,U,12),0))
  5469   "RTN","ORQ 20",19,0)
  5470    . S CNT=C NT+1,@ORY@ (CNT)="      Nature o f Order:    "_$P(ORZ, U)
  5471   "RTN","ORQ 20",20,0)
  5472    . I $P(OR 0,U,17),(O RACT="NW")  Q  ;see e vent
  5473   "RTN","ORQ 20",21,0)
  5474    . I "^V^P ^"[(U_$P(O RZ,U,2)_U) ,$P(ACTION ,U,16) S C NT=CNT+1,@ ORY@(CNT)= "     Rele ased by:        "_$$U SER(+$P(AC TION,U,17) )_" on "_$ $DATE($P(A CTION,U,16 ))
  5475   "RTN","ORQ 20",22,0)
  5476    I $P(OR0, U,17)&(ORA CT="NW") D   ;Delayed  Release E vent
  5477   "RTN","ORQ 20",23,0)
  5478    . N EVT,X ,ORV,I S E VT=+$P(OR0 ,U,17),X=$ $NAME^OREV NTX(EVT)
  5479   "RTN","ORQ 20",24,0)
  5480    . S:$E(X, 1,8)="Dela yed " X=$E (X,9,99)
  5481   "RTN","ORQ 20",25,0)
  5482    . I $G(^O RE(100.2,E VT,1)),'$P (ACTION,U, 16) S X=X_ " on "_$$D ATE(+^(1))
  5483   "RTN","ORQ 20",26,0)
  5484    . S CNT=C NT+1,@ORY@ (CNT)="      Delayed  Until:      "_X Q:'$P (ACTION,U, 16)
  5485   "RTN","ORQ 20",27,0)
  5486    . D EVENT (.ORV) S C NT=CNT+1,@ ORY@(CNT)= "     Rele ased by:        "_ORV (1)
  5487   "RTN","ORQ 20",28,0)
  5488    . S I=1 F   S I=$O(O RV(I)) Q:I '>0  S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORV(I ))
  5489   "RTN","ORQ 20",29,0)
  5490   A2 I $P(AC TION,U,5)  S CNT=CNT+ 1,@ORY@(CN T)=$S($P(A CTION,U,4) =7:"       Dig",1:"      Elec")_ " Signatur e:    "_$$ USER(+$P(A CTION,U,5) )_" on "_$ $DATE($P(A CTION,U,6) )
  5491   "RTN","ORQ 20",30,0)
  5492    I '$P(ACT ION,U,5)!( $P(ACTION, U,3)'=$P(A CTION,U,5) ),'$$SERVC ORR S CNT= CNT+1,@ORY @(CNT)="      "_$S($D (NVA):"Doc umented by :",1:"Orde red by:    ")_"     " _$$USER(+$ P(ACTION,U ,3))
  5493   "RTN","ORQ 20",31,0)
  5494    I '$P(ACT ION,U,5),$ L($P(ACTIO N,U,4)) D
  5495   "RTN","ORQ 20",32,0)
  5496    .I $P(ACT ION,U,4)=0  D
  5497   "RTN","ORQ 20",33,0)
  5498    ..S USER= $$USER(+$P (ACTION,U, 7))
  5499   "RTN","ORQ 20",34,0)
  5500    ..S CNT=C NT+1
  5501   "RTN","ORQ 20",35,0)
  5502    ..I USER' ="" S @ORY @(CNT)="      Release d by:        "_USER_"  on "_$$DA TE($P(ACTI ON,U,16))
  5503   "RTN","ORQ 20",36,0)
  5504    ..I USER= "" S @ORY@ (CNT)="         Relea sed:        "_$$DATE( $P(ACTION, U,16))
  5505   "RTN","ORQ 20",37,0)
  5506    .S CNT=CN T+1,@ORY@( CNT)="      Signature :          "_$$SIG($P (ACTION,U, 4)) ;186
  5507   "RTN","ORQ 20",38,0)
  5508    ;I '$P(AC TION,U,5), $L($P(ACTI ON,U,4)) S :$P(ACTION ,U,4)=0 CN T=CNT+1,@O RY@(CNT)="      Relea sed by:        "_$$US ER(+$P(ACT ION,U,7))_ " on "_$$D ATE($P(ACT ION,U,16))  S CNT=CNT +1,@ORY@(C NT)="      Signature:          " _$$SIG($P( ACTION,U,4 )) ;186
  5509   "RTN","ORQ 20",39,0)
  5510    I $P(ACTI ON,U,9) S  CNT=CNT+1, @ORY@(CNT) ="     Nur se Verifie d:    "_$S ($P(ACTION ,U,8):$$US ER(+$P(ACT ION,U,8))_ " on ",1:" ")_$$DATE( $P(ACTION, U,9))
  5511   "RTN","ORQ 20",40,0)
  5512    I $P(ACTI ON,U,11) S  CNT=CNT+1 ,@ORY@(CNT )="     Cl erk Verifi ed:    "_$ S($P(ACTIO N,U,10):$$ USER(+$P(A CTION,U,10 ))_" on ", 1:"")_$$DA TE($P(ACTI ON,U,11))
  5513   "RTN","ORQ 20",41,0)
  5514    I $P(ACTI ON,U,19) S  CNT=CNT+1 ,@ORY@(CNT )="     Ch art Review ed:    "_$ S($P(ACTIO N,U,18):$$ USER(+$P(A CTION,U,18 ))_" on ", 1:"")_$$DA TE($P(ACTI ON,U,19))
  5515   "RTN","ORQ 20",42,0)
  5516   A3 I $P(AC TION,U,2)= "DC",$L(OR 6) S X=$S( $L($P(OR6, U,5)):$P(O R6,U,5),$P (OR6,U,4): $P($G(^ORD (100.03,+$ P(OR6,U,4) ,0)),U),$P (OR6,U):$P ($G(^ORD(1 00.02,+$P( OR6,U),0)) ,U),1:"")  S:$L(X) CN T=CNT+1,@O RY@(CNT)="      Reaso n for DC:      "_X
  5517   "RTN","ORQ 20",43,0)
  5518    I $L($G(^ OR(100,ORI FN,8,ORI,1 ))) S X=^( 1) D  ;add  backdoor  comments
  5519   "RTN","ORQ 20",44,0)
  5520    . N LBL,I  S LBL=""
  5521   "RTN","ORQ 20",45,0)
  5522    . I $P(AC TION,U,15) ="",$P(ACT ION,U,2)'= "DC" S LBL ="     Com ments:           " ;D C shown ab ove
  5523   "RTN","ORQ 20",46,0)
  5524    . I $P(AC TION,U,15) =13,$P(ACT ION,U,2)'= "NW" S LBL ="     Can celled:          " ;N W shown in  ORQ2
  5525   "RTN","ORQ 20",47,0)
  5526    . Q:'$L(L BL)  I $L( X)'>56 S C NT=CNT+1,@ ORY@(CNT)= LBL_X Q
  5527   "RTN","ORQ 20",48,0)
  5528    . S DIWL= 1,DIWR=56, DIWF="C56"  K ^UTILIT Y($J,"W")  D ^DIWP
  5529   "RTN","ORQ 20",49,0)
  5530    . S I=0 F   S I=$O(^ UTILITY($J ,"W",DIWL, I)) Q:I'>0   S CNT=CN T+1,@ORY@( CNT)=LBL_^ (I,0),LBL= "                          "
  5531   "RTN","ORQ 20",50,0)
  5532    I $D(^OR( 100,ORIFN, 8,ORI,5))  D  ;Ward c omments
  5533   "RTN","ORQ 20",51,0)
  5534    . N X,ORJ  K ^UTILIT Y($J,"W")
  5535   "RTN","ORQ 20",52,0)
  5536    . S ORJ=0  F  S ORJ= $O(^OR(100 ,ORIFN,8,O RI,5,ORJ))  Q:ORJ'>0   S X=^(ORJ ,0) D ^DIW P
  5537   "RTN","ORQ 20",53,0)
  5538    . S ORJ=0  F  S ORJ= $O(^UTILIT Y($J,"W",D IWL,ORJ))  Q:ORJ'>0   S CNT=CNT+ 1,@ORY@(CN T)=$S(ORJ= 1:"     Wa rd/Clinic  Cmmts: ",1 :"                          ")_^ (ORJ,0)
  5539   "RTN","ORQ 20",54,0)
  5540    . K ^UTIL ITY($J,"W" )
  5541   "RTN","ORQ 20",55,0)
  5542   A4 I $P(AC TION,U,2)= "HD",$G(^O R(100,ORIF N,8,ORI,2) ) S X2=^(2 ),CNT=CNT+ 1,@ORY@(CN T)="     H old Releas ed:     "_ $$FMTE^XLF DT($P(X2,U ),"2P")_"  by "_$$USE R($P(X2,U, 2))
  5543   "RTN","ORQ 20",56,0)
  5544    I $D(^OR( 100,ORIFN, 8,ORI,3))  D  ;Un-/Fl agged
  5545   "RTN","ORQ 20",57,0)
  5546    . N X S X =$G(^OR(10 0,ORIFN,8, ORI,3))
  5547   "RTN","ORQ 20",58,0)
  5548    . S CNT=C NT+1,@ORY@ (CNT)="      Flagged  by:         "_$$USER( +$P(X,U,4) )_" on "_$ $DATE($P(X ,U,3))
  5549   "RTN","ORQ 20",59,0)
  5550    . S CNT=C NT+1,@ORY@ (CNT)="                           "_$P(X,U, 5)
  5551   "RTN","ORQ 20",60,0)
  5552    . Q:X  S  CNT=CNT+1, @ORY@(CNT) ="     Unf lagged by:       "_$$ USER(+$P(X ,U,7))_" o n "_$$DATE ($P(X,U,6) )
  5553   "RTN","ORQ 20",61,0)
  5554    . S CNT=C NT+1,@ORY@ (CNT)="                           "_$P(X,U, 8)
  5555   "RTN","ORQ 20",62,0)
  5556   A5 ;dispos ition/RTC  Orders
  5557   "RTN","ORQ 20",63,0)
  5558    I $D(^OR( 100,ORIFN, 8,ORI,4))  D
  5559   "RTN","ORQ 20",64,0)
  5560    .N S S X= $G(^OR(100 ,ORIFN,8,O RI,4))
  5561   "RTN","ORQ 20",65,0)
  5562    .I +$P(X, U)>0 S CNT =CNT+1,@OR Y@(CNT)="      Dispos ition by:     "_$$USE R(+$P(X,U) )_" on "_$ $DATE($P(X ,U,2))
  5563   "RTN","ORQ 20",66,0)
  5564    Q
  5565   "RTN","ORQ 20",67,0)
  5566    ;
  5567   "RTN","ORQ 20",68,0)
  5568   DC ; -- Ad d Reason f or DC
  5569   "RTN","ORQ 20",69,0)
  5570    S CNT=CNT +1,@ORY@(C NT)=$$DATE ($P(OR6,U, 3))_$S($P( OR6,U,8):"   Auto-",1 :"  ")_"Di scontinued "
  5571   "RTN","ORQ 20",70,0)
  5572    I $P(OR6, U,8) D  Q
  5573   "RTN","ORQ 20",71,0)
  5574    . N EVT,P KG,ORV,I
  5575   "RTN","ORQ 20",72,0)
  5576    . S EVT=$ P(OR6,U,8) ,PKG=$P($G (^ORE(100. 2,+EVT,3,O RIFN,0)),U ,2)
  5577   "RTN","ORQ 20",73,0)
  5578    . S @ORY@ (CNT)=@ORY @(CNT)_" b y "_$S(PKG ="FH":"DIE TETICS",PK G="LR":"LA BORATORY", PKG="PS":" PHARMACY", 1:"CPRS")
  5579   "RTN","ORQ 20",74,0)
  5580    . D EVENT (.ORV,1) S  CNT=CNT+1 ,@ORY@(CNT )="     Pa tient Move ment:  "_O RV(1)
  5581   "RTN","ORQ 20",75,0)
  5582    . S I=1 F   S I=$O(O RV(I)) Q:I '>0  S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORV(I ))
  5583   "RTN","ORQ 20",76,0)
  5584    I $P(OR6, U,2),$P($G (^ORD(100. 02,+$P(OR6 ,U),0)),U, 2)'="A" S  @ORY@(CNT) =@ORY@(CNT )_" by "_$ $USER($P(O R6,U,2)) ; don't show  user name  if auto-d c
  5585   "RTN","ORQ 20",77,0)
  5586    N X S X=$ S($L($P(OR 6,U,5)):$P (OR6,U,5), $P(OR6,U,4 ):$P($G(^O RD(100.03, +$P(OR6,U, 4),0)),U), $P(OR6,U): $P($G(^ORD (100.02,+$ P(OR6,U),0 )),U),1:"" ) S:$L(X)  CNT=CNT+1, @ORY@(CNT) ="     Rea son for DC :     "_X
  5587   "RTN","ORQ 20",78,0)
  5588    Q
  5589   "RTN","ORQ 20",79,0)
  5590    ;
  5591   "RTN","ORQ 20",80,0)
  5592   ACTION(COD E) ; -- Re turn name  of action  CODE
  5593   "RTN","ORQ 20",81,0)
  5594    N NAME S  NAME=$S(CO DE="NW":"N ew Order", CODE="DC": "Discontin ue",CODE=" HD":"Hold" ,CODE="RL" :"Release  Hold",CODE ="RN":"Ren ewal",CODE ="XX":"Cha nge",1:"")
  5595   "RTN","ORQ 20",82,0)
  5596    I CODE="N W",$P(OR3, U,11) S NA ME=NAME_$S ($P(OR3,U, 11)=1:" (C hange)",$P (OR3,U,11) =2:" (Rene wal)",1:"" )
  5597   "RTN","ORQ 20",83,0)
  5598    Q NAME
  5599   "RTN","ORQ 20",84,0)
  5600    ;
  5601   "RTN","ORQ 20",85,0)
  5602   XACT(X) ;  -- Return  name of tr ansaction  code X
  5603   "RTN","ORQ 20",86,0)
  5604    N Y S X=$ G(X)
  5605   "RTN","ORQ 20",87,0)
  5606    S Y=$S(X= "XX":"Edit ed",X="DC" :"Disconti nued",X="H D":"Held", X="RL":"Ho ld Release d",X="FW": "Forwarded ",X="CA":" Cancelled" ,1:"")
  5607   "RTN","ORQ 20",88,0)
  5608    Q Y
  5609   "RTN","ORQ 20",89,0)
  5610    ;
  5611   "RTN","ORQ 20",90,0)
  5612   DATE(X) ;  -- Return  date forma tted as 00 /00/0000 0 0:00
  5613   "RTN","ORQ 20",91,0)
  5614    N T,Y  S  T=$P(X,"." ,2)_"0000"
  5615   "RTN","ORQ 20",92,0)
  5616    S Y=$E(X, 4,5)_"/"_$ E(X,6,7)_" /"_(1700+$ E(X,1,3))
  5617   "RTN","ORQ 20",93,0)
  5618    I T S Y=Y _" "_$E(T, 1,2)_":"_$ E(T,3,4)
  5619   "RTN","ORQ 20",94,0)
  5620    Q Y
  5621   "RTN","ORQ 20",95,0)
  5622    ;
  5623   "RTN","ORQ 20",96,0)
  5624   USER(X) ;  -- Returns  NAME (TIT LE) of New  Person X
  5625   "RTN","ORQ 20",97,0)
  5626    N X0,Y S  X0=$G(^VA( 200,+X,0)) ,Y=$P(X0,U )
  5627   "RTN","ORQ 20",98,0)
  5628    S:$P(X0,U ,9) Y=Y_"  ("_$E($P($ G(^DIC(3.1 ,+$P(X0,U, 9),0)),U), 1,15)_")"
  5629   "RTN","ORQ 20",99,0)
  5630    Q Y
  5631   "RTN","ORQ 20",100,0)
  5632    ;
  5633   "RTN","ORQ 20",101,0)
  5634   SIG(X) ; - - Returns  text of si gnature st atus X
  5635   "RTN","ORQ 20",102,0)
  5636    N Y S Y=" "
  5637   "RTN","ORQ 20",103,0)
  5638    I X=0 S Y ="ON CHART  WITH WRIT TEN ORDERS "
  5639   "RTN","ORQ 20",104,0)
  5640    I X=1 S Y ="ELECTRON ICALLY SIG NED"
  5641   "RTN","ORQ 20",105,0)
  5642    I X=2 S Y ="NOT SIGN ED"
  5643   "RTN","ORQ 20",106,0)
  5644    I X=3 S Y ="NOT REQU IRED"
  5645   "RTN","ORQ 20",107,0)
  5646    I X=4 S Y ="ON CHART  WITH PRIN TED ORDERS "
  5647   "RTN","ORQ 20",108,0)
  5648    I X=5 S Y ="NOT REQU IRED DUE T O SERVICE  CANCEL/LAP SE"
  5649   "RTN","ORQ 20",109,0)
  5650    I X=6 S Y ="SERVICE  CORRECTION  TO SIGNED  ORDER"
  5651   "RTN","ORQ 20",110,0)
  5652    Q Y
  5653   "RTN","ORQ 20",111,0)
  5654    ;
  5655   "RTN","ORQ 20",112,0)
  5656   SERVCORR()  ; -- Retu rns 1 or 0 , if curre nt ACTION  is a serv  corr chang e
  5657   "RTN","ORQ 20",113,0)
  5658    N Y,NATUR E,I,X S Y= 0
  5659   "RTN","ORQ 20",114,0)
  5660    G:ORACT'= "XX" SCQ
  5661   "RTN","ORQ 20",115,0)
  5662    S NATURE= +$P(ACTION ,U,12),NAT URE=$P($G( ^ORD(100.0 2,NATURE,0 )),U,2)
  5663   "RTN","ORQ 20",116,0)
  5664    I "^S^I^" '[(U_NATUR E_U) G SCQ
  5665   "RTN","ORQ 20",117,0)
  5666    S I=$O(^O R(100,ORIF N,8,ORI),- 1),X=$G(^( I,0))
  5667   "RTN","ORQ 20",118,0)
  5668    I $P(X,U, 3)'=$P(ACT ION,U,3),$ P(X,U,5)'= $P(ACTION, U,3) G SCQ  ;show pro v
  5669   "RTN","ORQ 20",119,0)
  5670    S Y=1
  5671   "RTN","ORQ 20",120,0)
  5672   SCQ Q Y
  5673   "RTN","ORQ 20",121,0)
  5674    ;
  5675   "RTN","ORQ 20",122,0)
  5676   EVENT(ORTX ,DC) ; --  Returns pa tient even t info for  EVT
  5677   "RTN","ORQ 20",123,0)
  5678    N EVT1,RE L,X,Y,I,OR MAX
  5679   "RTN","ORQ 20",124,0)
  5680    S ORTX(1) ="" ;177
  5681   "RTN","ORQ 20",125,0)
  5682    S EVT1=$G (^ORE(100. 2,EVT,1)), REL=$G(^OR E(100.2,EV T,2,ORIFN, 0))
  5683   "RTN","ORQ 20",126,0)
  5684    ; Return  event data  if AutoDC  or auto-r eleased by  an event:
  5685   "RTN","ORQ 20",127,0)
  5686    I $G(DC)! (REL&'$L($ P(REL,U,2) )&($P(EVT1 ,U,2)!$P(E VT1,U,4)))  D  Q
  5687   "RTN","ORQ 20",128,0)
  5688    . S Y=$S( $P(EVT1,U, 5):$P(EVT1 ,U,5),1:EV T) ;parent  owns Acti vity
  5689   "RTN","ORQ 20",129,0)
  5690    . S Y=+$O (^ORE(100. 2,+Y,10,0) ),Y=$G(^(Y ,0)),X=$P( Y,U,4) Q:' $L(X)
  5691   "RTN","ORQ 20",130,0)
  5692    . S X=$S( X="A":"ADM ISSION",X= "T":"TRANS FER",X="D" :"DISCHARG E",X="S":" SPECIALTY  CHANGE",1: $S($P(EVT1 ,U)>$$DPI^ ORUTL1("SR *3.0*157") :"IN TO O. R.",1:"OUT  OF O.R.") )_" on "_$ $DATE($P(E VT1,U)) ;2 43
  5693   "RTN","ORQ 20",131,0)
  5694    . S ORTX( 1)=X,ORTX= 1,ORMAX=56
  5695   "RTN","ORQ 20",132,0)
  5696    . I $P(Y, U,6) S X=$ S($P(Y,U,4 )="D":"fro m ",1:"to  ")_$$GET1^ DIQ(45.7,+ $P(Y,U,6)_ ",",.01) D  TXT^ORCHT AB
  5697   "RTN","ORQ 20",133,0)
  5698    . I $P(Y, U,7) S X=" on "_$$GET 1^DIQ(42,+ $P(Y,U,7)_ ",",.01) D  TXT^ORCHT AB
  5699   "RTN","ORQ 20",134,0)
  5700    S X=$$USE R(+$P(ACTI ON,U,17))_ " on "_$$D ATE($P(ACT ION,U,16))
  5701   "RTN","ORQ 20",135,0)
  5702    I ORIFN'= +$P($G(^OR E(100.2,EV T,0)),U,4) ,$P(REL,U, 2)="MN" S  X=X_" (man ually rele ased)"
  5703   "RTN","ORQ 20",136,0)
  5704    S ORTX(1) =X
  5705   "RTN","ORQ 20",137,0)
  5706    Q
  5707   "RTN","ORU TL4")
  5708   0^1^B10504 145
  5709   "RTN","ORU TL4",1,0)
  5710   ORUTL4 ;SL C/CB/TC -  OE/RR Util ities ;06/ 27/17  15: 02
  5711   "RTN","ORU TL4",2,0)
  5712    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 50,424,434 **;Dec 17,  1997;Buil d 31
  5713   "RTN","ORU TL4",3,0)
  5714    ;
  5715   "RTN","ORU TL4",4,0)
  5716    ;
  5717   "RTN","ORU TL4",5,0)
  5718    ;
  5719   "RTN","ORU TL4",6,0)
  5720   DLL(ORRSLT S,ORDLLNME ,ORDLLVRS)  ; Will ch eck DLL ve rsion agai nst the se rver to se e if it's  valid
  5721   "RTN","ORU TL4",7,0)
  5722    ; Input p arameters
  5723   "RTN","ORU TL4",8,0)
  5724    ;  1. ORR SLTS    RP C Return a rray
  5725   "RTN","ORU TL4",9,0)
  5726    ;  2. ORD LLNME   Na me of Dll  to look up
  5727   "RTN","ORU TL4",10,0)
  5728    ;  3. ORD LLVRS   Ve rsion of t he DLL on  the user's  machine
  5729   "RTN","ORU TL4",11,0)
  5730    ;
  5731   "RTN","ORU TL4",12,0)
  5732    S ORDLLNM E=$$UP^XLF STR(ORDLLN ME)
  5733   "RTN","ORU TL4",13,0)
  5734    I ORDLLNM E="GMV_VIT ALSVIEWENT ER.DLL" D  VITAL(.ORR SLTS,ORDLL VRS)
  5735   "RTN","ORU TL4",14,0)
  5736    I ORDLLNM E=$$UP^XLF STR($$GET^ XPAR("SYS" ,"YS MHA_A  DLL NAME" )) D MENTA L(.ORRSLTS ,ORDLLVRS, ORDLLNME)
  5737   "RTN","ORU TL4",15,0)
  5738    I ORDLLNM E="CPRS MO B DLL" D C PRSMOB(.OR RSLTS,ORDL LVRS) S ^T MP($J,"OR  MOB APP1") =""
  5739   "RTN","ORU TL4",16,0)
  5740    I ORRSLTS ="" S ORRS LTS="-1"
  5741   "RTN","ORU TL4",17,0)
  5742    Q
  5743   "RTN","ORU TL4",18,0)
  5744    ;
  5745   "RTN","ORU TL4",19,0)
  5746   VITAL(ORRS LTS,ORDLLV RS) ;
  5747   "RTN","ORU TL4",20,0)
  5748    ; Input p arameters
  5749   "RTN","ORU TL4",21,0)
  5750    ;  1. ORR SLTS    Th e return m essage
  5751   "RTN","ORU TL4",22,0)
  5752    ;  2. ORD LLVRS   Ve rsion of t he DLL on  the user's  machine
  5753   "RTN","ORU TL4",23,0)
  5754    ;
  5755   "RTN","ORU TL4",24,0)
  5756    N ORVAL S  ORRSLTS=" "
  5757   "RTN","ORU TL4",25,0)
  5758    S ORVAL=$ $GET^XPAR( "SYS","GMV  DLL VERSI ON",ORDLLV RS,"E")
  5759   "RTN","ORU TL4",26,0)
  5760    I ORVAL=" YES" S ORR SLTS=1
  5761   "RTN","ORU TL4",27,0)
  5762    E  S ORRS LTS="-1^Th is version  of the Vi tals Viewe r "_ORDLLV RS_" is no t compatib le with th e server s oftware. P lease cont act IRM to  update th e GMV_Vita lsViewEnte r.dll file ."
  5763   "RTN","ORU TL4",28,0)
  5764    Q
  5765   "RTN","ORU TL4",29,0)
  5766    ;
  5767   "RTN","ORU TL4",30,0)
  5768   MENTAL(ORR SLTS,ORDLL VRS,ORDLLN ME) ;
  5769   "RTN","ORU TL4",31,0)
  5770    ; Input p arameters
  5771   "RTN","ORU TL4",32,0)
  5772    ;  1. ORR SLTS    Th e return m essage
  5773   "RTN","ORU TL4",33,0)
  5774    ;  2. ORD LLVRS   Ve rsion of t he DLL on  the user's  machine
  5775   "RTN","ORU TL4",34,0)
  5776    ;  3. ORD LLNME   Na me of Dll  to look up
  5777   "RTN","ORU TL4",35,0)
  5778    ;
  5779   "RTN","ORU TL4",36,0)
  5780    N ORYSLST ,ORYSVAL,O RREQVER S  ORRSLTS=""
  5781   "RTN","ORU TL4",37,0)
  5782    D FIND^DI C(19,,1,"X ","YS BROK ER1",1,,,, "ORYSLST")
  5783   "RTN","ORU TL4",38,0)
  5784    I 'ORYSLS T("DILIST" ,0) S ORRS LTS="-1^Th e YS BROKE R1 option  is not ins talled on  this serve r. Please  contact IR M to get t his instal led." Q
  5785   "RTN","ORU TL4",39,0)
  5786    S ORYSVAL =$G(ORYSLS T("DILIST" ,"ID",1,1) )
  5787   "RTN","ORU TL4",40,0)
  5788    S ORREQVE R=$P($P(OR YSVAL,"ver sion ",2), "~",2)
  5789   "RTN","ORU TL4",41,0)
  5790    I ORDLLVR S=ORREQVER  S ORRSLTS =1
  5791   "RTN","ORU TL4",42,0)
  5792    E  S ORRS LTS="-1^Th is is vers ion "_ORDL LVRS_" of  "_ORDLLNME _". "_ORRE QVER_" is  now the pr oper versi on in serv ice. Pleas e contact  your local  IRM or CP RS expert  to obtain  the update d version. "
  5793   "RTN","ORU TL4",43,0)
  5794    Q
  5795   "RTN","ORU TL4",44,0)
  5796    ;
  5797   "RTN","ORU TL4",45,0)
  5798   CPRSMOB(OR RSLTS,ORDL LVRS) ;get  the expec ted versio n of the C PRS MOB DL L
  5799   "RTN","ORU TL4",46,0)
  5800    ; Input p arameters
  5801   "RTN","ORU TL4",47,0)
  5802    ;  1. ORR SLTS    Th e return m essage
  5803   "RTN","ORU TL4",48,0)
  5804    ;  2. ORD LLVRS   Ve rsion of t he DLL on  the user's  machine
  5805   "RTN","ORU TL4",49,0)
  5806    ;
  5807   "RTN","ORU TL4",50,0)
  5808    N ORREQVE R S ORRSLT S=""
  5809   "RTN","ORU TL4",51,0)
  5810    S ORREQVE R=$$GET^XP AR("SYS^PK G","OR MOB  DLL VERSI ON")
  5811   "RTN","ORU TL4",52,0)
  5812    I ORDLLVR S=ORREQVER  S ORRSLTS ="1^"_ORRE QVER
  5813   "RTN","ORU TL4",53,0)
  5814    E  S ORRS LTS="-1^"_ ORREQVER_" ^This vers ion of the  CPRS MOB  "_ORDLLVRS _" is not  compatible  with the  server sof tware. Ple ase contac t IRM to u pdate the  OrderCom.d ll file."
  5815   "RTN","ORU TL4",54,0)
  5816    Q
  5817   "RTN","ORU TL4",55,0)
  5818    ;
  5819   "RTN","ORW CIRN")
  5820   0^2^B11495 848
  5821   "RTN","ORW CIRN",1,0)
  5822   ORWCIRN ;S LC/DCM,REV  - FUNCTIO NS FOR GUI  CIRN ACTI ONS ;03/17 /2015  10: 24
  5823   "RTN","ORW CIRN",2,0)
  5824    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,101,109, 132,141,16 0,208,239, 215,243,35 0,434**;De c 17, 1997 ;Build 31
  5825   "RTN","ORW CIRN",3,0)
  5826    ;
  5827   "RTN","ORW CIRN",4,0)
  5828   FACLIST(OR Y,ORDFN) ;  Return li st of remo te facilit ies for pa tient
  5829   "RTN","ORW CIRN",5,0)
  5830    ;Check to  see if CI RN PD/MPI  installed
  5831   "RTN","ORW CIRN",6,0)
  5832    N X,ORSIT ES,I,IFN,L OCAL,CTR,H DRFLG,GOTN HIN
  5833   "RTN","ORW CIRN",7,0)
  5834    S X="MPIF 001" X ^%Z OSF("TEST" )
  5835   "RTN","ORW CIRN",8,0)
  5836    I '$T S O RY(0)="-1^ CIRN MPI n ot install ed." Q
  5837   "RTN","ORW CIRN",9,0)
  5838    S X="VAFC TFU1" X ^% ZOSF("TEST ")
  5839   "RTN","ORW CIRN",10,0 )
  5840    I '$T S O RY(0)="-1^ Remote dat a view not  installed ." Q
  5841   "RTN","ORW CIRN",11,0 )
  5842    S X=$$GET ^XPAR("ALL ","ORWRP C IRN REMOTE  DATA ALLO W",1,"I")
  5843   "RTN","ORW CIRN",12,0 )
  5844    I 'X S OR Y(0)="-1^R emote acce ss not all owed" Q
  5845   "RTN","ORW CIRN",13,0 )
  5846    D TFL^VAF CTFU1(.ORY ,ORDFN)
  5847   "RTN","ORW CIRN",14,0 )
  5848    S (GOTNHI N,I)=0 F   S I=$O(ORY (I)) Q:'I   I $P(ORY( I),"^",5)= "OTHER" D   ;Screen o ut Type 'O THER' loca tions
  5849   "RTN","ORW CIRN",15,0 )
  5850    . I $P(OR Y(I),"^")= "200HD" Q   ;HDR
  5851   "RTN","ORW CIRN",16,0 )
  5852    . I $P(OR Y(I),"^")= "200NDD" Q   ;DoD Cor related Pa tients
  5853   "RTN","ORW CIRN",17,0 )
  5854    . S JLV=" VistAWeb"
  5855   "RTN","ORW CIRN",18,0 )
  5856    . I $L($T (JLV^ORWCI RN)) D JLV (.X) S JLV =$S($L(X): X,1:"VistA Web")
  5857   "RTN","ORW CIRN",19,0 )
  5858    . I $E($P (ORY(I),"^ "),1,4)="2 00N",'GOTN HIN S GOTN HIN=1,$P(O RY(I),"^", 2)="Non-VA  Data may  be Availab le - Use " _JLV_" to  Access" Q   ;NwHIN Ma ster Item
  5859   "RTN","ORW CIRN",20,0 )
  5860    . K ORY(I )
  5861   "RTN","ORW CIRN",21,0 )
  5862    S HDRFLG= 0
  5863   "RTN","ORW CIRN",22,0 )
  5864    I $$GET^X PAR("ALL", "ORWRP CIR N SITES AL L",1,"I")  D
  5865   "RTN","ORW CIRN",23,0 )
  5866    . S (CTR, I)=0
  5867   "RTN","ORW CIRN",24,0 )
  5868    . F  S I= $O(ORY(I))  Q:'I  S $ P(ORY(I)," ^",5)=1,CT R=CTR+1 D
  5869   "RTN","ORW CIRN",25,0 )
  5870    .. I $P(O RY(I),"^") =200 S $P( ORY(I),"^" ,2)="DEPT.  OF DEFENS E"
  5871   "RTN","ORW CIRN",26,0 )
  5872    .. I $P(O RY(I),"^") ="200HD" D
  5873   "RTN","ORW CIRN",27,0 )
  5874    ... I +$$ GET^XPAR(" ALL","ORWR P HDR ON", 1,"I")=0 K  ORY(I) S  CTR=CTR-1  Q
  5875   "RTN","ORW CIRN",28,0 )
  5876    ... S HDR FLG=I ; Re move comme nted out c ode to ena ble HDR +  1 other si te. 
  5877   "RTN","ORW CIRN",29,0 )
  5878    D GETLST^ XPAR(.ORSI TES,"ALL", "ORWRP CIR N SITES"," I")
  5879   "RTN","ORW CIRN",30,0 )
  5880    S (CTR,I) =0,LOCAL=$ P($$SITE^V ASITE,"^", 3)
  5881   "RTN","ORW CIRN",31,0 )
  5882    F  S I=$O (ORY(I)) Q :'I  D
  5883   "RTN","ORW CIRN",32,0 )
  5884    . I +ORY( I)=+LOCAL  K ORY(I) Q
  5885   "RTN","ORW CIRN",33,0 )
  5886    . S IFN=$ $IEN^XUAF4 (ORY(I)),C TR=CTR+1
  5887   "RTN","ORW CIRN",34,0 )
  5888    . I IFN,$ G(ORSITES( IFN)) S $P (ORY(I),"^ ",5)=1 D
  5889   "RTN","ORW CIRN",35,0 )
  5890    .. I $P(O RY(I),"^") =200 S $P( ORY(I),"^" ,2)="DEPT.  OF DEFENS E"
  5891   "RTN","ORW CIRN",36,0 )
  5892    . I IFN,$ G(ORSITES( IFN)),$P(O RY(I),"^") ="200HD" D
  5893   "RTN","ORW CIRN",37,0 )
  5894    .. I +$$G ET^XPAR("A LL","ORWRP  HDR ON",1 ,"I")=0 K  ORY(I) S C TR=CTR-1 Q
  5895   "RTN","ORW CIRN",38,0 )
  5896    .. S HDRF LG=I ; Rem ove commen ted out co de to enab le HDR + 1  other sit e. 
  5897   "RTN","ORW CIRN",39,0 )
  5898    I '$L($O( ORY("")))  S ORY(0)=" -1^Only lo cal data e xists for  this patie nt"
  5899   "RTN","ORW CIRN",40,0 )
  5900    I $G(HDRF LG),CTR'>1  K ORY(HDR FLG) S ORY (0)="-1^On ly HDR has  data for  this patie nt"
  5901   "RTN","ORW CIRN",41,0 )
  5902    Q
  5903   "RTN","ORW CIRN",42,0 )
  5904   RESTRICT(O RY,PATID)  ;Check for  sensitive  patient
  5905   "RTN","ORW CIRN",43,0 )
  5906    N DFN,ICN ,SITE
  5907   "RTN","ORW CIRN",44,0 )
  5908    I '$G(PAT ID) S ORY( 1)="-1",OR Y(2)="Inva lid Patien t ID" Q
  5909   "RTN","ORW CIRN",45,0 )
  5910    S ICN=$P( PATID,";", 2)
  5911   "RTN","ORW CIRN",46,0 )
  5912    I 'ICN S  ORY(1)="-1 ",ORY(2)=" Invalid IC N" Q
  5913   "RTN","ORW CIRN",47,0 )
  5914    S SITE=$$ SITE^VASIT E,SITE=$P( SITE,"^",2 )_";"_$P(S ITE,"^",3)
  5915   "RTN","ORW CIRN",48,0 )
  5916    S DFN=+$$ GETDFN^MPI F001(ICN)
  5917   "RTN","ORW CIRN",49,0 )
  5918    I DFN<0 S  ORY(1)="- 1",ORY(2)= "Patient n ot found o n remote s ystem ("_S ITE_")" Q
  5919   "RTN","ORW CIRN",50,0 )
  5920    D PTSEC^D GSEC4(.ORY ,DFN)
  5921   "RTN","ORW CIRN",51,0 )
  5922    Q
  5923   "RTN","ORW CIRN",52,0 )
  5924   CHKLNK(ORY ) ;Check f or active  HL7 TCP li nk on loca l system
  5925   "RTN","ORW CIRN",53,0 )
  5926    S ORY=$$S TAT^HLCSLM
  5927   "RTN","ORW CIRN",54,0 )
  5928    Q
  5929   "RTN","ORW CIRN",55,0 )
  5930   WEBADDR(OR Y,PATID) ; Get VistaW eb Address
  5931   "RTN","ORW CIRN",56,0 )
  5932    S ORY=$$G ET^XPAR("A LL","ORWRP  VISTAWEB  ADDRESS",1 ,"I")
  5933   "RTN","ORW CIRN",57,0 )
  5934    I ORY=""  S ORY="htt ps://vista web. URL         " Q
  5935   "RTN","ORW CIRN",58,0 )
  5936    I ORY="ht tps://vist aweb. URL         " Q
  5937   "RTN","ORW CIRN",59,0 )
  5938    S ORY=ORY _"?q9gtw0= "_$P($$SIT E^VASITE," ^",3)_"&xq i4z="_PATI D_"&yiicf= "_DUZ
  5939   "RTN","ORW CIRN",60,0 )
  5940    Q
  5941   "RTN","ORW CIRN",61,0 )
  5942   AUTORDV(OR Y) ;Get pa rameter va lue for OR WRP CIRN A UTOMATIC
  5943   "RTN","ORW CIRN",62,0 )
  5944    S ORY=+$$ GET^XPAR(" ALL","ORWR P CIRN AUT OMATIC",1, "I")
  5945   "RTN","ORW CIRN",63,0 )
  5946    Q
  5947   "RTN","ORW CIRN",64,0 )
  5948   HDRON(ORY)  ;Get para meter valu e for ORWR P HDR ON
  5949   "RTN","ORW CIRN",65,0 )
  5950    S ORY=+$$ GET^XPAR(" ALL","ORWR P HDR ON", 1,"I")
  5951   "RTN","ORW CIRN",66,0 )
  5952    Q
  5953   "RTN","ORW CIRN",67,0 )
  5954   JLV(ORY) ; Get parame ter value  for ORWRP  LEGACY VIE WER LABEL
  5955   "RTN","ORW CIRN",68,0 )
  5956    S ORY=$$G ET^XPAR("A LL","ORWRP  LEGACY VI EWER LABEL ",1,"I")
  5957   "RTN","ORW CIRN",69,0 )
  5958    Q
  5959   "RTN","ORW DSD1")
  5960   0^3^B83044 55
  5961   "RTN","ORW DSD1",1,0)
  5962   ORWDSD1 ;S LC/AGP - R eturn to C linic Call s for Wind ows Dialog  ;05/22/17   07:45
  5963   "RTN","ORW DSD1",2,0)
  5964    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31
  5965   "RTN","ORW DSD1",3,0)
  5966    ;
  5967   "RTN","ORW DSD1",4,0)
  5968   ODSLCT(LST ,DFN,LOC)  ; return d efault lis ts for dia log
  5969   "RTN","ORW DSD1",5,0)
  5970    N ILST S  ILST=0
  5971   "RTN","ORW DSD1",6,0)
  5972    S ILST=IL ST+1,LST(I LST)="~Sho rtList"  D  SHORT
  5973   "RTN","ORW DSD1",7,0)
  5974    ;S ILST=I LST+1,LST( ILST)="~Cl inic" D CL INIC(.LST, .ILST,DFN, LOC)
  5975   "RTN","ORW DSD1",8,0)
  5976    ;S ILST=I LST+1,LST( ILST)="~Pr ovider" D  PROVIDER(. LST,.ILST, DFN,LOC)
  5977   "RTN","ORW DSD1",9,0)
  5978    ;S ILST=I LST+1,LST( ILST)="~In terval" D  INTERVAL(. LST,.ILST, DFN,LOC)
  5979   "RTN","ORW DSD1",10,0 )
  5980    S ILST=IL ST+1,LST(I LST)="~Pre Req" D PRE REQ(.LST,. ILST,DFN,L OC)
  5981   "RTN","ORW DSD1",11,0 )
  5982    ;S ILST=I LST+1,LST( ILST)="~Of fset" D OF FSET(.LST, .ILST,DFN, LOC)
  5983   "RTN","ORW DSD1",12,0 )
  5984    S ILST=IL ST+1,LST(I LST)="~Inf o" D INFO( .LST,.ILST ,DFN,LOC)
  5985   "RTN","ORW DSD1",13,0 )
  5986    Q
  5987   "RTN","ORW DSD1",14,0 )
  5988    ;
  5989   "RTN","ORW DSD1",15,0 )
  5990   CLINIC(LST ,ILST,DFN, LOC) ;
  5991   "RTN","ORW DSD1",16,0 )
  5992    N CLST,CN T,FOUND,LC NT,IEN,NAM E,NODE,TMP
  5993   "RTN","ORW DSD1",17,0 )
  5994    ;
  5995   "RTN","ORW DSD1",18,0 )
  5996    S NAME="" ,FOUND=0
  5997   "RTN","ORW DSD1",19,0 )
  5998    I LOC>0 D
  5999   "RTN","ORW DSD1",20,0 )
  6000    .S NODE=$ G(^SC(LOC, 0)) I $P(N ODE,U,3)'= "C" Q
  6001   "RTN","ORW DSD1",21,0 )
  6002    .S NAME=$ P(NODE,U)  I $L(NAME) <3 S TMP=N AME Q
  6003   "RTN","ORW DSD1",22,0 )
  6004    .S TMP=$E (NAME,1,($ L(NAME)-1) )
  6005   "RTN","ORW DSD1",23,0 )
  6006    I $G(TMP) ="" Q
  6007   "RTN","ORW DSD1",24,0 )
  6008    D NEWLOC^ ORWU1(.CLS T,TMP,1)
  6009   "RTN","ORW DSD1",25,0 )
  6010    S CNT=0,L CNT=0 F  S  CNT=$O(CL ST(CNT)) Q :CNT'>0  D
  6011   "RTN","ORW DSD1",26,0 )
  6012    .S LCNT=C NT
  6013   "RTN","ORW DSD1",27,0 )
  6014    .I $P(CLS T(CNT),U)= LOC,NAME'= "" S ILST= ILST+1,LST (ILST)="d" _CLST(CNT) ,FOUND=1,I LST=ILST+1 ,LST(ILST) ="i"_CLST( CNT) Q
  6015   "RTN","ORW DSD1",28,0 )
  6016    .S ILST=I LST+1,LST( ILST)="i"_ CLST(CNT)
  6017   "RTN","ORW DSD1",29,0 )
  6018    I FOUND=0 ,NAME'=""  S ILST=ILS T+1,LST(IL ST)="d"_LO C_U_NAME,I LST=ILST+1 ,LST(ILST) ="i"_LOC_U _NAME
  6019   "RTN","ORW DSD1",30,0 )
  6020    Q
  6021   "RTN","ORW DSD1",31,0 )
  6022    ;
  6023   "RTN","ORW DSD1",32,0 )
  6024   INFO(LST,I LST,DFN,LO C) ;
  6025   "RTN","ORW DSD1",33,0 )
  6026    N CNT,ERR ,X
  6027   "RTN","ORW DSD1",34,0 )
  6028    D GETWP^X PAR(.X,"AL L","OR SD  ADDITIONAL  INFORMATI ON",.ERR)
  6029   "RTN","ORW DSD1",35,0 )
  6030    S CNT=0 F   S CNT=$O (X(CNT)) Q :CNT'>0  D
  6031   "RTN","ORW DSD1",36,0 )
  6032    .S ILST=I LST+1,LST( ILST)="t"_ X(CNT,0)
  6033   "RTN","ORW DSD1",37,0 )
  6034    Q
  6035   "RTN","ORW DSD1",38,0 )
  6036    ;
  6037   "RTN","ORW DSD1",39,0 )
  6038   INTERVAL(L ST,ILST,DF N,LOC) ;
  6039   "RTN","ORW DSD1",40,0 )
  6040    S ILST=IL ST+1,LST(I LST)="id^D aily"
  6041   "RTN","ORW DSD1",41,0 )
  6042    S ILST=IL ST+1,LST(I LST)="iw^W eekly"
  6043   "RTN","ORW DSD1",42,0 )
  6044    Q
  6045   "RTN","ORW DSD1",43,0 )
  6046    ;
  6047   "RTN","ORW DSD1",44,0 )
  6048   OFFSET(LST ,ILST,DFN, LOC) ;
  6049   "RTN","ORW DSD1",45,0 )
  6050    N OFFSET
  6051   "RTN","ORW DSD1",46,0 )
  6052    S OFFSET= $$GET^XPAR ("SYS","OR  SD CIDC S TOP OFFSET ",1,"E")
  6053   "RTN","ORW DSD1",47,0 )
  6054    I OFFSET' >0 S OFFSE T=30
  6055   "RTN","ORW DSD1",48,0 )
  6056    S ILST=IL ST+1,LST(I LST)="i"_O FFSET_U_OF FSET
  6057   "RTN","ORW DSD1",49,0 )
  6058    Q
  6059   "RTN","ORW DSD1",50,0 )
  6060   PREREQ(LST ,ILST,DFN, LOC) ;
  6061   "RTN","ORW DSD1",51,0 )
  6062    N PREREQS ,X
  6063   "RTN","ORW DSD1",52,0 )
  6064    D PREREQP ^ORCDSD(.P REREQS)
  6065   "RTN","ORW DSD1",53,0 )
  6066    ;F X=1:1: PREREQS I  $G(PREREQS (X))'=""
  6067   "RTN","ORW DSD1",54,0 )
  6068    S X=0 F   S X=$O(PRE REQS(X)) Q :X'>0  I $ G(PREREQS( X))'="" S  ILST=ILST+ 1,LST(ILST )="i"_$G(P REREQS(X))
  6069   "RTN","ORW DSD1",55,0 )
  6070    Q
  6071   "RTN","ORW DSD1",56,0 )
  6072    ;
  6073   "RTN","ORW DSD1",57,0 )
  6074   PROVIDER(L ST,ILST,DF N,LOC) ;
  6075   "RTN","ORW DSD1",58,0 )
  6076    N CNT,PLS T
  6077   "RTN","ORW DSD1",59,0 )
  6078    D NEWPERS ^ORWU(.PLS T,"",1,"PR OVIDER",DT ,0,"")
  6079   "RTN","ORW DSD1",60,0 )
  6080    S CNT=0 F   S CNT=$O (PLST(CNT) ) Q:CNT'>0   S ILST=I LST+1,LST( ILST)="i"_ PLST(CNT)
  6081   "RTN","ORW DSD1",61,0 )
  6082    Q
  6083   "RTN","ORW DSD1",62,0 )
  6084    ;
  6085   "RTN","ORW DSD1",63,0 )
  6086   SHORT ; fr om DLGSLCT , get shor t list of  med quick  orders
  6087   "RTN","ORW DSD1",64,0 )
  6088    N I,X,TMP
  6089   "RTN","ORW DSD1",65,0 )
  6090    S X="CSDA M"
  6091   "RTN","ORW DSD1",66,0 )
  6092    D GETQLST ^ORWDXQ(.T MP,X,"iQ")
  6093   "RTN","ORW DSD1",67,0 )
  6094    S I=0 F   S I=$O(TMP (I)) Q:'I   S ILST=IL ST+1,LST(I LST)=TMP(I )
  6095   "RTN","ORW DSD1",68,0 )
  6096    Q
  6097   "RTN","ORW DSD1",69,0 )
  6098    ;
  6099   "RTN","ORW DSD1",70,0 )
  6100   RTC ;
  6101   "RTN","ORW DSD1",71,0 )
  6102    N INT,NUM ,PROMPT
  6103   "RTN","ORW DSD1",72,0 )
  6104    ;S PROMPT =$O(^ORD(1 01.41,"AB" ,"OR GTX S TOP DATE", 0))
  6105   "RTN","ORW DSD1",73,0 )
  6106    ;S ORDIAL OG(PROMPT, 1)=$$SETST OP^ORCDSD( )
  6107   "RTN","ORW DSD1",74,0 )
  6108    ;get numb er of appo intments a nd interva l
  6109   "RTN","ORW DSD1",75,0 )
  6110    S PROMPT= $O(^ORD(10 1.41,"AB", "OR GTX AP PT NUM",0) )
  6111   "RTN","ORW DSD1",76,0 )
  6112    S NUM=$G( ORDIALOG(P ROMPT,1))
  6113   "RTN","ORW DSD1",77,0 )
  6114    S PROMPT= $O(^ORD(10 1.41,"AB", "OR GTX SC H INTERVAL ",0))
  6115   "RTN","ORW DSD1",78,0 )
  6116    S INT=$G( ORDIALOG(P ROMPT,1))
  6117   "RTN","ORW DSD1",79,0 )
  6118    ;check th at apppoin tment and  interval m atch
  6119   "RTN","ORW DSD1",80,0 )
  6120    I NUM>1,I NT="" S AU TOACK=0 Q
  6121   "RTN","ORW DSD1",81,0 )
  6122    I INT'="" ,NUM=1 S A UTOACK=0 Q
  6123   "RTN","ORW DSD1",82,0 )
  6124    Q
  6125   "RTN","ORW DSD1",83,0 )
  6126    ;
  6127   "RTN","ORW DXA")
  6128   0^16^B1190 97370
  6129   "RTN","ORW DXA",1,0)
  6130   ORWDXA ; S LC/KCM/JLI  - Utilite s for Orde r Actions  ;06/21/17   09:42
  6131   "RTN","ORW DXA",2,0)
  6132    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,116,1 32,148,141 ,149,187,2 13,195,215 ,243,280,3 06,390,421 ,436,434** ;Dec 17, 1 997;Build  31
  6133   "RTN","ORW DXA",3,0)
  6134    ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  6135   "RTN","ORW DXA",4,0)
  6136    ;
  6137   "RTN","ORW DXA",5,0)
  6138    ;
  6139   "RTN","ORW DXA",6,0)
  6140   VALID(VAL, ORID,ACTIO N,ORNP,ORW NAT) ; Is  action val id for ord er?
  6141   "RTN","ORW DXA",7,0)
  6142    N DG,ORAC T,ORVP,ORV ER,ORIFN,P RTID S VAL ="",PRTID= 0
  6143   "RTN","ORW DXA",8,0)
  6144    I +ORID=0  S VAL="Th is order h as been de leted." Q
  6145   "RTN","ORW DXA",9,0)
  6146    I '$D(^OR (100,+ORID ,0)) S VAL ="This ord er has bee n deleted! " Q
  6147   "RTN","ORW DXA",10,0)
  6148    I ACTION= "XFR",'$L( $T(XFR^ORC ACT01)) S  ACTION="RW " ; for pr e-POE
  6149   "RTN","ORW DXA",11,0)
  6150    N ORNSS S  ORNSS=1
  6151   "RTN","ORW DXA",12,0)
  6152    I (ACTION ="RN") D V ALSCH^ORWN SS(.ORNSS, ORID)
  6153   "RTN","ORW DXA",13,0)
  6154    I ORNSS=0  S VAL="Th is order c ontains an  invalid a dministrat ion schedu le." Q
  6155   "RTN","ORW DXA",14,0)
  6156    I (ACTION ="RN") D I SVALIV^ORW DPS33(.VAL ,ORID,ACTI ON) I $L(V AL)>0 Q
  6157   "RTN","ORW DXA",15,0)
  6158    S ORIFN=O RID,ORVP=$ P(^OR(100, +ORID,0),U ,2)  ; ORC ACT0 expec ts
  6159   "RTN","ORW DXA",16,0)
  6160    I (ACTION ="RN") D   Q:$L(VAL)
  6161   "RTN","ORW DXA",17,0)
  6162    . N DLG S  DLG=$P(^O R(100,+ORI D,0),U,5)  Q:DLG'[";O RD(101.41, "
  6163   "RTN","ORW DXA",18,0)
  6164    . I $G(^O RD(101.41, +DLG,3))'[ "PROVIDER^ ORCDPSIV"  Q
  6165   "RTN","ORW DXA",19,0)
  6166    . D AUTH^ ORWDPS32(. VAL,ORNP,+ DLG)
  6167   "RTN","ORW DXA",20,0)
  6168    . I VAL S  VAL=$P(VA L,U,2)
  6169   "RTN","ORW DXA",21,0)
  6170    . E  S VA L=""
  6171   "RTN","ORW DXA",22,0)
  6172    S ORVER=$ S(ACTION=" CR":"R",$D (^XUSEC("O RELSE",DUZ )):"N",$D( ^XUSEC("OR EMAS",DUZ) ):"C",1:"^ ")
  6173   "RTN","ORW DXA",23,0)
  6174    I ACTION= "CR" S ACT ION="VR"
  6175   "RTN","ORW DXA",24,0)
  6176    I (ACTION ="ES")!(AC TION="OC") !(ACTION=" RS") S ORA CT=ACTION  ; why not  defined???
  6177   "RTN","ORW DXA",25,0)
  6178    I (ACTION ="VR"),'($ D(^XUSEC(" ORELSE",DU Z))!$D(^XU SEC("OREMA S",DUZ)))  D  Q
  6179   "RTN","ORW DXA",26,0)
  6180    . S VAL=" You are no t authoriz ed to veri fy these o rders."
  6181   "RTN","ORW DXA",27,0)
  6182    I $L(VAL)  Q
  6183   "RTN","ORW DXA",28,0)
  6184    N OIIEN,I SIV,IVOD
  6185   "RTN","ORW DXA",29,0)
  6186    S (ISIV,O IIEN,IVOD) =0
  6187   "RTN","ORW DXA",30,0)
  6188    I (ACTION ="RW")!(AC TION="XX") !(ACTION=" XFR") D  Q :$L(VAL)
  6189   "RTN","ORW DXA",31,0)
  6190    . S ISIV= $P(^OR(100 ,+ORID,0), U,11)
  6191   "RTN","ORW DXA",32,0)
  6192    . I ISIV, ($P(^ORD(1 00.98,ISIV ,0),U,3)=" IV RX") S  IVOD=1
  6193   "RTN","ORW DXA",33,0)
  6194    . D:'IVOD  GTORITM^O RWDXR(.OII EN,+ORID)
  6195   "RTN","ORW DXA",34,0)
  6196    . D:OIIEN  ISACTOI(. VAL,OIIEN)  I $L(VAL) >0 Q
  6197   "RTN","ORW DXA",35,0)
  6198    . N DLG,F RM,A,ORDG, I,TYPE,B
  6199   "RTN","ORW DXA",36,0)
  6200    . S A=^OR (100,+ORID ,0),DLG=$P (A,U,5),OR DG=$P(A,"^ ",11),FRM= 0
  6201   "RTN","ORW DXA",37,0)
  6202    . I $P(DL G,";",2)'= "ORD(101.4 1," S DLG= 0
  6203   "RTN","ORW DXA",38,0)
  6204    . I DLG D  FORMID^OR WDXM(.FRM, +DLG)
  6205   "RTN","ORW DXA",39,0)
  6206    . I '(DLG &FRM) D
  6207   "RTN","ORW DXA",40,0)
  6208    . . S VAL ="Copy & C hange are  not implem ented for  this order  that pred ates CPRS. "
  6209   "RTN","ORW DXA",41,0)
  6210    . I ACTIO N="XX" D   ;PATLOC is  being pas sed in and  not defin ed in this  routine
  6211   "RTN","ORW DXA",42,0)
  6212    .. F I="U NIT DOSE M EDICATIONS ","INPATIE NT MEDICAT IONS","IV  MEDICATION S" S A=$O( ^ORD(100.9 8,"B",I,"" )) I A S A (A)=""
  6213   "RTN","ORW DXA",43,0)
  6214    .. S TYPE ="" I $G(P ATLOC) S T YPE=$P(^SC (PATLOC,0) ,"^",3)
  6215   "RTN","ORW DXA",44,0)
  6216    .. I $D(A (ORDG)),TY PE="C" S B =1 D SDAUT HCL^SDAMA2 03(PATLOC, .B) I B=1  S VAL="Can not use a  Clinic Loc ation for  this chang e. Please  check your  encounter  location. "
  6217   "RTN","ORW DXA",45,0)
  6218    S DG=$P(^ OR(100,+OR ID,0),U,11 )
  6219   "RTN","ORW DXA",46,0)
  6220    I DG,($P( ^ORD(100.9 8,DG,0),U, 3)="CSDAM" ),$P($G(^O R(100,+ORI D,3)),U,3) =9 S VAL=" Partial Re turn to Cl inic Order s cannot b e disconti nued." Q
  6221   "RTN","ORW DXA",47,0)
  6222    N OREBUIL D
  6223   "RTN","ORW DXA",48,0)
  6224    ;I (ACTIO N="RW")!(A CTION="XFR ")!(ACTION ="RN") D I SVALIV^ORW DPS33(.VAL ,ORID,ACTI ON) I $L(V AL)>0 Q
  6225   "RTN","ORW DXA",49,0)
  6226    I $$VALID ^ORCACT0(O RID,ACTION ,.VAL,$G(O RWNAT)) S  VAL="" ; V AL=error
  6227   "RTN","ORW DXA",50,0)
  6228    I ACTION= "RN",$$UPC TCHK(ORID)  S VAL="Ca nnot renew  this orde r due to a n illegal  character  ""^"" in t he comment s or patie nt instruc tions."
  6229   "RTN","ORW DXA",51,0)
  6230    I ACTION= "RW",$$UPC TCHK(ORID)  S VAL="Ca nnot copy  this order  due to an  illegal c haracter " "^"" in th e comments  or patien t instruct ions."
  6231   "RTN","ORW DXA",52,0)
  6232    Q
  6233   "RTN","ORW DXA",53,0)
  6234    ;
  6235   "RTN","ORW DXA",54,0)
  6236   HOLD(REC,O RID,ORNP)  ; Place or der on hol d
  6237   "RTN","ORW DXA",55,0)
  6238    N ACTDA
  6239   "RTN","ORW DXA",56,0)
  6240    S ACTDA=$ $ACTION^OR CSAVE("HD" ,+ORID,ORN P)
  6241   "RTN","ORW DXA",57,0)
  6242    D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA)
  6243   "RTN","ORW DXA",58,0)
  6244    Q
  6245   "RTN","ORW DXA",59,0)
  6246   UNHOLD(REC ,ORID,ORNP ) ; Releas e order fr om hold
  6247   "RTN","ORW DXA",60,0)
  6248    N ACTDA
  6249   "RTN","ORW DXA",61,0)
  6250    S ACTDA=$ $ACTION^OR CSAVE("RL" ,+ORID,ORN P)
  6251   "RTN","ORW DXA",62,0)
  6252    D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA)
  6253   "RTN","ORW DXA",63,0)
  6254    Q
  6255   "RTN","ORW DXA",64,0)
  6256   DC(REC,ORI D,ORNP,ORL ,REASON,DC ORIG,ISNEW ORD) ; Dis continue/C ancel/Dele te order
  6257   "RTN","ORW DXA",65,0)
  6258    N NATURE, CREATE,PRI NT,STATUS, ACTDA,SIGS TS
  6259   "RTN","ORW DXA",66,0)
  6260    N X3,X8,C URRACT
  6261   "RTN","ORW DXA",67,0)
  6262    Q:'+ORID
  6263   "RTN","ORW DXA",68,0)
  6264    I $G(DCOR IG)="" S D CORIG=0
  6265   "RTN","ORW DXA",69,0)
  6266    S CURRACT =0
  6267   "RTN","ORW DXA",70,0)
  6268    S ORL(2)= ORL_";SC(" ,ORL=ORL(2 ),NATURE=" "
  6269   "RTN","ORW DXA",71,0)
  6270    I REASON  S NATURE=$ P(^ORD(100 .02,$P(^OR D(100.03,R EASON,0),U ,7),0),U,2 )
  6271   "RTN","ORW DXA",72,0)
  6272    S:NATURE= "" NATURE= "W"  ; S:O RNP=DUZ NA TURE="E"
  6273   "RTN","ORW DXA",73,0)
  6274    ;change t he way cre ate work t o support  forcing si gnature fo r all DC
  6275   "RTN","ORW DXA",74,0)
  6276    ;reasons
  6277   "RTN","ORW DXA",75,0)
  6278    S CREATE= 1,PRINT=$$ PRINT^ORCA CT2(NATURE )
  6279   "RTN","ORW DXA",76,0)
  6280    ;S CREATE =$$CREATE^ ORX1(NATUR E)
  6281   "RTN","ORW DXA",77,0)
  6282    S X3=$G(^ OR(100,+OR ID,3))
  6283   "RTN","ORW DXA",78,0)
  6284    S CURRACT =$P(X3,U,7 ) S:CURRAC T<1 CURRAC T=+$O(^OR( 100,+ORID, 8,"?"),-1)
  6285   "RTN","ORW DXA",79,0)
  6286    I '$D(^OR (100,+ORID ,8,+$P(ORI D,";",2),0 )) D
  6287   "RTN","ORW DXA",80,0)
  6288    . S X8=$G (^OR(100,+ ORID,8,CUR RACT,0))
  6289   "RTN","ORW DXA",81,0)
  6290    . S SIGST S=$P(X8,U, 4)
  6291   "RTN","ORW DXA",82,0)
  6292    . S $P(OR ID,";",2)= CURRACT
  6293   "RTN","ORW DXA",83,0)
  6294    E  D
  6295   "RTN","ORW DXA",84,0)
  6296    . S X8=^O R(100,+ORI D,8,+$P(OR ID,";",2), 0)
  6297   "RTN","ORW DXA",85,0)
  6298    . S SIGST S=$P(X8,U, 4)
  6299   "RTN","ORW DXA",86,0)
  6300    I '$D(SIG STS) S SIG STS=1
  6301   "RTN","ORW DXA",87,0)
  6302    S STATUS= $P($G(^OR( 100,+ORID, 8,+$P(ORID ,";",2),0) ),U,15)
  6303   "RTN","ORW DXA",88,0)
  6304    I (STATUS =10)!(STAT US=11) D   Q   ; dele te/cancel  unreleased  order
  6305   "RTN","ORW DXA",89,0)
  6306    . N RPLOR D
  6307   "RTN","ORW DXA",90,0)
  6308    . S RPLOR D=$P($G(^O R(100,+ORI D,3)),U,5)     ; repl aced order
  6309   "RTN","ORW DXA",91,0)
  6310    . D GETBY IFN^ORWORR (.REC,ORID )
  6311   "RTN","ORW DXA",92,0)
  6312    . I STATU S=10,($P(X 8,U,4)'=2)  D  ; CANC EL signed,  delayed,  unreleased
  6313   "RTN","ORW DXA",93,0)
  6314    . . ; tak en from CL RDLY^ORCAC T2
  6315   "RTN","ORW DXA",94,0)
  6316    . . I REA SON D SET^ ORCACT2(+O RID,NATURE ,REASON,,D CORIG)
  6317   "RTN","ORW DXA",95,0)
  6318    . . I 'RE ASON D SET ^ORCACT2(+ ORID,"M"," ","Delayed  Order Can celled",DC ORIG)
  6319   "RTN","ORW DXA",96,0)
  6320    . . D STA TUS^ORCSAV E2(+ORID,1 3) S $P(^O R(100,+ORI D,8,1,0),U ,15)=13
  6321   "RTN","ORW DXA",97,0)
  6322    . . ;D CO MP^ORMBLDO R(+$G(ORID )) ;  modi fied to tr igger an u nsolicited  sync acti on when a  signed ord er is disc ontinued
  6323   "RTN","ORW DXA",98,0)
  6324    . E  D                              ; CANC EL OR DELE TE unsigne d, unrelea sed
  6325   "RTN","ORW DXA",99,0)
  6326    . . I $P( X8,U,2)="D C" K ^OR(1 00,+ORID,6 )
  6327   "RTN","ORW DXA",100,0 )
  6328    . . ; del ete fwd pt r to order  about to  be deleted
  6329   "RTN","ORW DXA",101,0 )
  6330    . . I RPL ORD,$P(X8, U,2)="NW"  S $P(^OR(1 00,RPLORD, 3),U,6)=""
  6331   "RTN","ORW DXA",102,0 )
  6332    . . ; del ete ptr to  order in  Patient Ev ent file # 100.2
  6333   "RTN","ORW DXA",103,0 )
  6334    . . N EVT  S EVT=$P( $G(^OR(100 ,+ORID,0)) ,U,17) I E VT,EVT=+$O (^ORE(100. 2,"AO",+OR ID,0)) S $ P(^ORE(100 .2,EVT,0), U,4)="" K  ^ORE(100.2 ,"AO",+ORI D,EVT)
  6335   "RTN","ORW DXA",104,0 )
  6336    . . I $G( ISNEWORD)  D POST^HMP EVNT(+$P(^ OR(100,+OR ID,0),U,2) ,"order",+ ORID,"@")  D
  6337   "RTN","ORW DXA",105,0 )
  6338    . . . ; D elete the  discontinu ed order i n HMP(8000 00, if the  order is  discontinu ed before  it is sign ed it is d eleted in  OR(100,
  6339   "RTN","ORW DXA",106,0 )
  6340    . . . ; w e need to  delete in  HMP(800000  as since  the order  number can  be reused  by OR(100
  6341   "RTN","ORW DXA",107,0 )
  6342    . . . N H DFN S HDFN =+$P(^OR(1 00,+ORID,0 ),U,2) I $ D(^HMP(800 000,$$SRVR NO^HMPOR(H DFN),1,HDF N,1,+ORID, 0)) D DELO RDR^HMPOR( +HDFN,+ORI D)
  6343   "RTN","ORW DXA",108,0 )
  6344    . . I $G( ISNEWORD)  D DELETE^O RCSAVE2(OR ID)
  6345   "RTN","ORW DXA",109,0 )
  6346    . . I '$G (ISNEWORD)  D
  6347   "RTN","ORW DXA",110,0 )
  6348    . . . ; U pdate acti on date/ti me in hmp  orders sub file
  6349   "RTN","ORW DXA",111,0 )
  6350    . . . N R SLT,VALS,H DFN
  6351   "RTN","ORW DXA",112,0 )
  6352    . . . S H DFN=+$P(^O R(100,+ORI D,0),U,2)
  6353   "RTN","ORW DXA",113,0 )
  6354    . . . S V ALS(.15)=$ $NOW^XLFDT
  6355   "RTN","ORW DXA",114,0 )
  6356    . . . D U PDTORDR^HM POR(.RSLT, .VALS,+ORI D,HDFN)
  6357   "RTN","ORW DXA",115,0 )
  6358    . . . ; h andle erro rs from UP DTORDR, Ca n't just q uit here
  6359   "RTN","ORW DXA",116,0 )
  6360    . . . ; T rigger uns olicited u pdate
  6361   "RTN","ORW DXA",117,0 )
  6362    . . . D P OST^HMPEVN T(+$P(^OR( 100,+ORID, 0),U,2),"o rder",+ORI D)
  6363   "RTN","ORW DXA",118,0 )
  6364    . . . ; N ow cancel  the order
  6365   "RTN","ORW DXA",119,0 )
  6366    . . . D C ANCEL^ORCS AVE2(ORID)
  6367   "RTN","ORW DXA",120,0 )
  6368    . I RPLOR D,'(SIGSTS =1) S ORID =RPLORD  ;  for Renew s & Change s, show re placed ord er
  6369   "RTN","ORW DXA",121,0 )
  6370    . I '$D(^ OR(100,+OR ID)) D
  6371   "RTN","ORW DXA",122,0 )
  6372    . . S $P( REC(1),U)= "~0",REC(2 )="tDELETE D: "_$E(RE C(2),2,245 )
  6373   "RTN","ORW DXA",123,0 )
  6374    . E  D
  6375   "RTN","ORW DXA",124,0 )
  6376    . . K REC
  6377   "RTN","ORW DXA",125,0 )
  6378    . . D GET BYIFN^ORWO RR(.REC,+O RID_";"_$P ($G(^OR(10 0,+ORID,3) ),U,7))
  6379   "RTN","ORW DXA",126,0 )
  6380    . S $P(RE C(1),U,14) =2 ; DCTyp e = deleti on
  6381   "RTN","ORW DXA",127,0 )
  6382    S ACTDA=$ $ACTION^OR CSAVE("DC" ,+ORID,ORN P)
  6383   "RTN","ORW DXA",128,0 )
  6384    D SET^ORC ACT2(+ORID ,NATURE,RE ASON,,DCOR IG)
  6385   "RTN","ORW DXA",129,0 )
  6386    D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA)
  6387   "RTN","ORW DXA",130,0 )
  6388    S $P(REC( 1),U,14)=$ S(CREATE:1 ,1:3)  ;DC Type - 1=N ewOrder, 3 =NewStatus
  6389   "RTN","ORW DXA",131,0 )
  6390    N PKG
  6391   "RTN","ORW DXA",132,0 )
  6392    S PKG=$P( $G(^OR(100 ,+ORID,0)) ,U,14)
  6393   "RTN","ORW DXA",133,0 )
  6394    S PKG=$$N MSP^ORCD(P KG)
  6395   "RTN","ORW DXA",134,0 )
  6396    I REASON= 16&(PKG="P S") D
  6397   "RTN","ORW DXA",135,0 )
  6398    . N XMB
  6399   "RTN","ORW DXA",136,0 )
  6400    . S XMB=" OR DRUG OR DER CANCEL LED"
  6401   "RTN","ORW DXA",137,0 )
  6402    . S XMB(1 )=$P($G(RE C(2)),"tDi scontinue" ,2),XMB(4) =$P($G(^VA (200,DUZ,0 )),U)
  6403   "RTN","ORW DXA",138,0 )
  6404    . S XMB(2 )=+ORID
  6405   "RTN","ORW DXA",139,0 )
  6406    . S XMB(3 )=+$P($G(^ OR(100,+OR ID,0)),U,2 )
  6407   "RTN","ORW DXA",140,0 )
  6408    . S XMB(3 )=$P($G(^D PT(XMB(3), 0)),U)
  6409   "RTN","ORW DXA",141,0 )
  6410    . D ^XMB
  6411   "RTN","ORW DXA",142,0 )
  6412    Q
  6413   "RTN","ORW DXA",143,0 )
  6414   DCREQIEN(V AL) ; Retu rn IEN for  Req Phys  Cancelled  reason
  6415   "RTN","ORW DXA",144,0 )
  6416    S VAL=$O( ^ORD(100.0 3,"S","REQ ",0))
  6417   "RTN","ORW DXA",145,0 )
  6418    Q
  6419   "RTN","ORW DXA",146,0 )
  6420   COMPLETE(R EC,ORID,ES CODE) ; Co mplete ord er (generi c)
  6421   "RTN","ORW DXA",147,0 )
  6422    ;N X S X= +$E($$NOW^ XLFDT,1,12 )
  6423   "RTN","ORW DXA",148,0 )
  6424    ;D DATES^ ORCSAVE2(+ ORID,,X)
  6425   "RTN","ORW DXA",149,0 )
  6426    ;D STATUS ^ORCSAVE2( +ORID,2)
  6427   "RTN","ORW DXA",150,0 )
  6428    ; validat e ESCode
  6429   "RTN","ORW DXA",151,0 )
  6430    D COMP^OR CSAVE2(ORI D)
  6431   "RTN","ORW DXA",152,0 )
  6432    D COMP^OR MBLDOR(ORI D)
  6433   "RTN","ORW DXA",153,0 )
  6434    D GETBYIF N^ORWORR(. REC,ORID)
  6435   "RTN","ORW DXA",154,0 )
  6436    Q
  6437   "RTN","ORW DXA",155,0 )
  6438   VERIFY(REC ,ORID,ESCO DE,ORVER)  ; Verify o rder
  6439   "RTN","ORW DXA",156,0 )
  6440    ; validat e ESCode
  6441   "RTN","ORW DXA",157,0 )
  6442    S ORVER=$ G(ORVER,$S ($D(^XUSEC ("ORELSE", DUZ)):"N", $D(^XUSEC( "OREMAS",D UZ)):"C",1 :U))
  6443   "RTN","ORW DXA",158,0 )
  6444    I ORVER'= U D
  6445   "RTN","ORW DXA",159,0 )
  6446    . N ORIFN ,ORES,ORI
  6447   "RTN","ORW DXA",160,0 )
  6448    . ; VERIF Y any repl aced order s:
  6449   "RTN","ORW DXA",161,0 )
  6450    . S ORIFN =ORID,ORES (ORIFN)=""  D REPLCD^ ORCACT1
  6451   "RTN","ORW DXA",162,0 )
  6452    . S ORI=" " F  S ORI =$O(ORES(O RI)) Q:ORI =""  D EN^ ORCSEND(OR I,"VR","", ""),UNLK1^ ORX2(+ORI) :ORI'=ORID  ;ORID loc ked prior
  6453   "RTN","ORW DXA",163,0 )
  6454    D GETBYIF N^ORWORR(. REC,ORID)
  6455   "RTN","ORW DXA",164,0 )
  6456    Q
  6457   "RTN","ORW DXA",165,0 )
  6458   ALERT(DUMM Y,ORID,ORD UZ) ; aler t user (OR DUZ) when  order (ORI D) resulte d
  6459   "RTN","ORW DXA",166,0 )
  6460    ;if no us er passed,  use order ing provid er:
  6461   "RTN","ORW DXA",167,0 )
  6462    I $G(ORDU Z)<1 S ORD UZ=+$$ORDE RER^ORQOR2 (+ORID)
  6463   "RTN","ORW DXA",168,0 )
  6464    I $L($G(O RDUZ))<1 S  ORDUZ=DUZ
  6465   "RTN","ORW DXA",169,0 )
  6466    S DUMMY=1 ,$P(^OR(10 0,+ORID,3) ,U,10)=ORD UZ
  6467   "RTN","ORW DXA",170,0 )
  6468    Q
  6469   "RTN","ORW DXA",171,0 )
  6470   FLAG(REC,O RIFN,OREAS ON,ORNP) ;  Flag orde r
  6471   "RTN","ORW DXA",172,0 )
  6472    ;variable  XMZ is no t defined  by this se ction, but  passed in  (if avail able)
  6473   "RTN","ORW DXA",173,0 )
  6474    N ORB,ORV P,DA,ORPS, ORNOW
  6475   "RTN","ORW DXA",174,0 )
  6476    S ORNOW=$ $NOW^XLFDT
  6477   "RTN","ORW DXA",175,0 )
  6478    D BULLETI N
  6479   "RTN","ORW DXA",176,0 )
  6480    S DA=$P(O RIFN,";",2 ),ORVP=+$P (^OR(100,+ ORIFN,0),U ,2)
  6481   "RTN","ORW DXA",177,0 )
  6482    K ^OR(100 ,+ORIFN,8, DA,3) S ^( 3)="1^"_$G (XMZ)_U_+$ E($$NOW^XL FDT,1,12)_ U_DUZ_U_OR EASON_$S($ G(ORNP):"^ ^^^"_+ORNP ,1:"")
  6483   "RTN","ORW DXA",178,0 )
  6484    D KILL^XM ,MSG^ORCFL AG(ORIFN)
  6485   "RTN","ORW DXA",179,0 )
  6486    S $P(^OR( 100,+ORIFN ,3),U)=ORN OW ; Last  Activity
  6487   "RTN","ORW DXA",180,0 )
  6488    I +$G(ORN P)<1 S ORN P=+$P($G(^ OR(100,+OR IFN,8,DA,0 )),U,3)
  6489   "RTN","ORW DXA",181,0 )
  6490    S ORB=+OR VP_U_+ORIF N_U_ORNP_" ^1" D EN^O CXOERR(ORB ) ; notifi cation
  6491   "RTN","ORW DXA",182,0 )
  6492    D GETBYIF N^ORWORR(. REC,ORIFN)
  6493   "RTN","ORW DXA",183,0 )
  6494    D HMPFLAG (+ORIFN,OR VP,ORNOW,D UZ,"F",ORE ASON,DA)
  6495   "RTN","ORW DXA",184,0 )
  6496    ;
  6497   "RTN","ORW DXA",185,0 )
  6498    Q
  6499   "RTN","ORW DXA",186,0 )
  6500   BULLETIN ;  flagged o rder bulle tin
  6501   "RTN","ORW DXA",187,0 )
  6502    ;variable s OREASON  and ORIFN  are assume d to be de fined by t he calling  process a nd
  6503   "RTN","ORW DXA",188,0 )
  6504    ;are neit her KILLed  or NEWed  in this se ction
  6505   "RTN","ORW DXA",189,0 )
  6506    N OR0,OR3 ,ORDTXT,XM B,XMY,XMDU Z,ORENT,BU LL,ORSRV,O RUSR
  6507   "RTN","ORW DXA",190,0 )
  6508    S OR0=$G( ^OR(100,+O RIFN,0)),O R3=$G(^(3) )
  6509   "RTN","ORW DXA",191,0 )
  6510    ;CLA - 3/ 21/96:
  6511   "RTN","ORW DXA",192,0 )
  6512    S ORUSR=+ $P(OR0,U,4 )
  6513   "RTN","ORW DXA",193,0 )
  6514    S ORSRV=$ G(^VA(200, ORUSR,5))  I +ORSRV>0  S ORSRV=$ P(ORSRV,U)
  6515   "RTN","ORW DXA",194,0 )
  6516    S ORENT=" USR.`"_ORU SR_"^SRV.` "_$G(ORSRV )_"^DIV^SY S^PKG"
  6517   "RTN","ORW DXA",195,0 )
  6518    S BULL=$$ GET^XPAR(O RENT,"ORB  FLAGGED OR DERS BULLE TIN",1,"Q" )
  6519   "RTN","ORW DXA",196,0 )
  6520    Q:$G(BULL )'="Y"   ; quit if pa rm val not  'Y'es
  6521   "RTN","ORW DXA",197,0 )
  6522    ;
  6523   "RTN","ORW DXA",198,0 )
  6524    S XMB="OR  FLAGGED O RDER",XMDU Z=DUZ,XMY( +$P(OR0,U, 4))=""
  6525   "RTN","ORW DXA",199,0 )
  6526    S XMB(1)= $P(^DPT(+$ P(OR0,U,2) ,0),U),XMB (2)=$P(^(0 ),U,9),XMB (3)="" ;sb  AGE
  6527   "RTN","ORW DXA",200,0 )
  6528    S XMB(4)= $$FMTE^XLF DT($P(OR0, U,7))
  6529   "RTN","ORW DXA",201,0 )
  6530    D TEXT^OR Q12(.ORDTX T,+ORIFN,8 0)
  6531   "RTN","ORW DXA",202,0 )
  6532    S XMB(5)= $G(ORDTXT( 1)),XMB(6) =$G(ORDTXT (2)),XMB(7 )=$G(ORDTX T(3))
  6533   "RTN","ORW DXA",203,0 )
  6534    S XMB(8)= $$FMTE^XLF DT($P(OR0, U,8)),XMB( 9)=$$FMTE^ XLFDT($P(O R0,U,9)),X MB(10)=ORE ASON
  6535   "RTN","ORW DXA",204,0 )
  6536    S XMB(11) =$P($G(^OR D(100.01,+ $P(OR3,U,3 ),0)),U)
  6537   "RTN","ORW DXA",205,0 )
  6538    D EN^XMB
  6539   "RTN","ORW DXA",206,0 )
  6540    Q
  6541   "RTN","ORW DXA",207,0 )
  6542   UNFLAG(REC ,ORIFN,ORE ASON) ; Un flag order
  6543   "RTN","ORW DXA",208,0 )
  6544    N DA,ORB, ORNP,ORVP, ORPS,ORNOW
  6545   "RTN","ORW DXA",209,0 )
  6546    S ORNOW=$ $NOW^XLFDT
  6547   "RTN","ORW DXA",210,0 )
  6548    S DA=$P(O RIFN,";",2 ),ORVP=+$P (^OR(100,+ ORIFN,0),U ,2)
  6549   "RTN","ORW DXA",211,0 )
  6550    S $P(^OR( 100,+ORIFN ,8,DA,3),U )=0,$P(^(3 ),U,6,8)=+ $E($$NOW^X LFDT,1,12) _U_DUZ_U_O REASON D M SG^ORCFLAG (ORIFN)
  6551   "RTN","ORW DXA",212,0 )
  6552    S $P(^OR( 100,+ORIFN ,3),U)=ORN OW  ; Last  Activity
  6553   "RTN","ORW DXA",213,0 )
  6554    S ORNP=+$ P($G(^OR(1 00,+ORIFN, 8,DA,0)),U ,3)
  6555   "RTN","ORW DXA",214,0 )
  6556    S ORB=+OR VP_U_+ORIF N_U_ORNP_" ^0" D EN^O CXOERR(ORB ) ; notifi cation
  6557   "RTN","ORW DXA",215,0 )
  6558    D GETBYIF N^ORWORR(. REC,ORIFN)
  6559   "RTN","ORW DXA",216,0 )
  6560    D HMPFLAG (+ORIFN,OR VP,ORNOW,D UZ,"U",ORE ASON,DA)
  6561   "RTN","ORW DXA",217,0 )
  6562    Q
  6563   "RTN","ORW DXA",218,0 )
  6564   FLAGTXT(LS T,ORID) ;  flag reaso n
  6565   "RTN","ORW DXA",219,0 )
  6566    N FLAG
  6567   "RTN","ORW DXA",220,0 )
  6568    S FLAG=$G (^OR(100,+ ORID,8,$P( ORID,";",2 ),3))
  6569   "RTN","ORW DXA",221,0 )
  6570    S LST(1)= "FLAGGED:  "_$$FMTE^X LFDT($P(FL AG,U,3))_"  by "_$P($ G(^VA(200, +$P(FLAG,U ,4),0)),U)
  6571   "RTN","ORW DXA",222,0 )
  6572    S LST(2)= $P(FLAG,U, 5) ; reaso n
  6573   "RTN","ORW DXA",223,0 )
  6574    Q
  6575   "RTN","ORW DXA",224,0 )
  6576   WCGET(LST, ORID) ; wa rd comment s
  6577   "RTN","ORW DXA",225,0 )
  6578    N I,ORIFN ,ACT S ORI FN=+ORID,A CT=+$P(ORI D,";",2)
  6579   "RTN","ORW DXA",226,0 )
  6580    S I=0 F   S I=$O(^OR (100,ORIFN ,8,ACT,5,I )) Q:'I  S  LST(I)=$G (^(I,0))
  6581   "RTN","ORW DXA",227,0 )
  6582    Q
  6583   "RTN","ORW DXA",228,0 )
  6584   WCPUT(ERR, ORID,WCLST ) ; Set wa rd comment s
  6585   "RTN","ORW DXA",229,0 )
  6586    N DIERR,E RRLST,ORIF N,ACT S OR IFN=+ORID, ACT=+$P(OR ID,";",2)
  6587   "RTN","ORW DXA",230,0 )
  6588    D WP^DIE( 100.008,AC T_","_ORIF N_",",50," ","WCLST", "ERRLST")
  6589   "RTN","ORW DXA",231,0 )
  6590    S ERR=""  I $D(DIERR ) S ERR="A n error oc curred whi le saving  comments."
  6591   "RTN","ORW DXA",232,0 )
  6592    Q
  6593   "RTN","ORW DXA",233,0 )
  6594   OFCPLX(ORY ,ORID,PRTO RDER) ; is  ORID chil d of PRTOR DER
  6595   "RTN","ORW DXA",234,0 )
  6596    N NUMCHDS ,NOWID,NOW VAL,X3,ORD A,ISNOW
  6597   "RTN","ORW DXA",235,0 )
  6598    Q:'$D(^OR (100,+ORID ,0))
  6599   "RTN","ORW DXA",236,0 )
  6600    S ISNOW=0
  6601   "RTN","ORW DXA",237,0 )
  6602    D ISNOW^O RWDXR(.ISN OW,+ORID)
  6603   "RTN","ORW DXA",238,0 )
  6604    Q:ISNOW
  6605   "RTN","ORW DXA",239,0 )
  6606    N PKG
  6607   "RTN","ORW DXA",240,0 )
  6608    S PKG=$P( $G(^OR(100 ,+ORID,0)) ,U,14)
  6609   "RTN","ORW DXA",241,0 )
  6610    S PKG=$$N MSP^ORCD(P KG)
  6611   "RTN","ORW DXA",242,0 )
  6612    I PKG'="P S" Q
  6613   "RTN","ORW DXA",243,0 )
  6614    I $L($G(^ OR(100,+OR ID,3))),(' $L($P(^(3) ,U,9))) Q
  6615   "RTN","ORW DXA",244,0 )
  6616    S (NUMCHD S,NOWID,NO WVAL,X3,OR DA)=0
  6617   "RTN","ORW DXA",245,0 )
  6618    S PRTORDE R=+$P(^(3) ,U,9)
  6619   "RTN","ORW DXA",246,0 )
  6620    S X3=$G(^ OR(100,PRT ORDER,3)), ORDA=$P(X3 ,U,7)
  6621   "RTN","ORW DXA",247,0 )
  6622    S PRTORDE R=PRTORDER _";"_ORDA
  6623   "RTN","ORW DXA",248,0 )
  6624    S NUMCHDS =$P($G(^OR (100,+PRTO RDER,2,0)) ,U,4)
  6625   "RTN","ORW DXA",249,0 )
  6626    I NUMCHDS >2 S ORY=" COMPLEX-PS I"_U_PRTOR DER
  6627   "RTN","ORW DXA",250,0 )
  6628    S:$D(^OR( 100,+PRTOR DER,4.5,"I D","NOW"))  NOWID=$O( ^("NOW",0) )
  6629   "RTN","ORW DXA",251,0 )
  6630    S:NOWID N OWVAL=$G(^ OR(100,+PR TORDER,4.5 ,NOWID,1))
  6631   "RTN","ORW DXA",252,0 )
  6632    I NOWVAL= 1 Q
  6633   "RTN","ORW DXA",253,0 )
  6634    E  S ORY= "COMPLEX-P SI"_U_PRTO RDER
  6635   "RTN","ORW DXA",254,0 )
  6636    Q
  6637   "RTN","ORW DXA",255,0 )
  6638   ISACTOI(OR Y,OI) ; Is  ord item  active?
  6639   "RTN","ORW DXA",256,0 )
  6640    I $G(^ORD (101.43,+O I,.1)),^(. 1)'>$$NOW^ XLFDT D
  6641   "RTN","ORW DXA",257,0 )
  6642    . S ORY=$ P($G(^ORD( 101.43,OI, 0)),U)_" h as been in activated  and may no t be order ed anymore ."
  6643   "RTN","ORW DXA",258,0 )
  6644    Q
  6645   "RTN","ORW DXA",259,0 )
  6646   UPCTCHK(OR ID) ;
  6647   "RTN","ORW DXA",260,0 )
  6648    ;ORID=ORD ER NUMBER
  6649   "RTN","ORW DXA",261,0 )
  6650    ;RETURNS  1 IF THERE  IS AN UPC ARET IN TH E ORDER'S  COMMENTS
  6651   "RTN","ORW DXA",262,0 )
  6652    N RET,COM MID,WPCNT, PIID S RET =0
  6653   "RTN","ORW DXA",263,0 )
  6654    S COMMID= $O(^OR(100 ,+ORID,4.5 ,"ID","COM MENT",0))
  6655   "RTN","ORW DXA",264,0 )
  6656    I COMMID  S WPCNT=0  F  S WPCNT =$O(^OR(10 0,+ORID,4. 5,COMMID,2 ,WPCNT)) Q :'WPCNT!(R ET)  D
  6657   "RTN","ORW DXA",265,0 )
  6658    .I $G(^OR (100,+ORID ,4.5,COMMI D,2,WPCNT, 0))["^" S  RET=1
  6659   "RTN","ORW DXA",266,0 )
  6660    S PIID=$O (^OR(100,+ ORID,4.5," ID","PI",0 ))
  6661   "RTN","ORW DXA",267,0 )
  6662    I PIID S  WPCNT=0 F   S WPCNT=$ O(^OR(100, +ORID,4.5, PIID,2,WPC NT)) Q:'WP CNT!(RET)   D
  6663   "RTN","ORW DXA",268,0 )
  6664    .I $G(^OR (100,+ORID ,4.5,PIID, 2,WPCNT,0) )["^" S RE T=1
  6665   "RTN","ORW DXA",269,0 )
  6666    Q RET
  6667   "RTN","ORW DXA",270,0 )
  6668   HMPFLAG(OR IFN,HMDFN, WHEN,USR,F LGACTN,RSN ,ORACLVL)  ;
  6669   "RTN","ORW DXA",271,0 )
  6670    ; ORACLVL  = ^OR(100 ,ORIFN,8,l evel)
  6671   "RTN","ORW DXA",272,0 )
  6672    ;
  6673   "RTN","ORW DXA",273,0 )
  6674    N RSLT,VA L  ; resul t, FileMan  values
  6675   "RTN","ORW DXA",274,0 )
  6676    S VAL(.01 )=$G(WHEN)   ; date/t ime of act ivity
  6677   "RTN","ORW DXA",275,0 )
  6678    S VAL(.02 )=$G(FLGAC TN)  ; fla g or unfla g
  6679   "RTN","ORW DXA",276,0 )
  6680    S VAL(.03 )=$G(USR)   ; DUZ
  6681   "RTN","ORW DXA",277,0 )
  6682    S VAL(.04 )=$G(RSN)   ; flag/un flag reaso n
  6683   "RTN","ORW DXA",278,0 )
  6684    D ADDFLAG ^HMPOR(.RS LT,.VAL,+$ G(ORIFN),$ G(HMDFN),O RACLVL_";" _$G(FLGACT N))
  6685   "RTN","ORW DXA",279,0 )
  6686    Q:RSLT<0   D COMP^OR MBLDOR(+$G (ORIFN))   ;trigger u nsolicited  synch for  flag/unfl ag
  6687   "RTN","ORW DXA",280,0 )
  6688    Q
  6689   "RTN","ORW DXM1")
  6690   0^12^B1111 44249
  6691   "RTN","ORW DXM1",1,0)
  6692   ORWDXM1 ;S LC/KCM - O rder Dialo gs, Menus  ;05/22/17   11:15
  6693   "RTN","ORW DXM1",2,0)
  6694    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,131,1 32,141,178 ,185,187,2 15,243,280 ,331,388,3 50,423,434 **;Dec 17,  1997;Buil d 31
  6695   "RTN","ORW DXM1",3,0)
  6696    ;
  6697   "RTN","ORW DXM1",4,0)
  6698    ;
  6699   "RTN","ORW DXM1",5,0)
  6700   BLDQRSP(LS T,ORIT,FLD S,ISIMO,EN CLOC) ; Bu ild respon ses for an  order
  6701   "RTN","ORW DXM1",6,0)
  6702    ; LST=Qui ckLevel^Re sponseID(O RIT;$H)^Di alog^Type^ FormID^DGr p
  6703   "RTN","ORW DXM1",7,0)
  6704    ; LST(n)= verify or  reject tex t
  6705   "RTN","ORW DXM1",8,0)
  6706    ; ORIT= p tr to 101. 41 for qui ck order,  100 for co py
  6707   "RTN","ORW DXM1",9,0)
  6708    ; 1 2 3 4  5 6 7 8 1 1-20
  6709   "RTN","ORW DXM1",10,0 )
  6710    ; FLDS=DF N^LOC^ORNP ^INPT^SEX^ AGE^EVENT^ SC%^^^Key  Variables. ..
  6711   "RTN","ORW DXM1",11,0 )
  6712    ; ORIT=+O RIT: ptr t o 101.41,  $E(ORIT)=C : copy $E( ORIT)=X: c hange
  6713   "RTN","ORW DXM1",12,0 )
  6714    ; !! SHOU LD CHECK f or PRE-CPR S ORDERS ( treat as t ext?)
  6715   "RTN","ORW DXM1",13,0 )
  6716    K ^TMP($J ,"ORWDX LO ADRSP","QO  SAVE")
  6717   "RTN","ORW DXM1",14,0 )
  6718    K ^TMP("O RWDXMQ",$J )
  6719   "RTN","ORW DXM1",15,0 )
  6720    N ORWMODE  ; 0:Dlg,Q uick 1:cop y 2:change
  6721   "RTN","ORW DXM1",16,0 )
  6722    N TEMPCAT  ; pt cat  from DPT
  6723   "RTN","ORW DXM1",17,0 )
  6724    N ISXFER  ; Trnsfr o rder?
  6725   "RTN","ORW DXM1",18,0 )
  6726    N ORIMO ; If IMO(inp t med on o pt)
  6727   "RTN","ORW DXM1",19,0 )
  6728    N TEMPORI T
  6729   "RTN","ORW DXM1",20,0 )
  6730    N ADMLOC, PATLOC,ORD LOC,LEVEL, DELAY,SCHL OC,SCHTYP
  6731   "RTN","ORW DXM1",21,0 )
  6732    S PATLOC= $P(FLDS,U, 2)
  6733   "RTN","ORW DXM1",22,0 )
  6734    S ORDLOC= $S(ORIT["C ":+$P($G(^ OR(100,+$P (ORIT,"C", 2),0)),U,1 0),1:0)
  6735   "RTN","ORW DXM1",23,0 )
  6736    S ORIMO=$ G(ISIMO)
  6737   "RTN","ORW DXM1",24,0 )
  6738    S ORWMODE =0,ISXFER= ""
  6739   "RTN","ORW DXM1",25,0 )
  6740    S:$E(ORIT )="C" ORWM ODE=1 S:$E (ORIT)="T"  ORWMODE=1 ,ISXFER="; T" ;treat  xfer as co py
  6741   "RTN","ORW DXM1",26,0 )
  6742    S:$E(ORIT )="X" ORWM ODE=2
  6743   "RTN","ORW DXM1",27,0 )
  6744    S TEMPORI T=ORIT
  6745   "RTN","ORW DXM1",28,0 )
  6746    I ORWMODE  S ORIT=$E (ORIT,2,99 9)
  6747   "RTN","ORW DXM1",29,0 )
  6748    S LST(0)= ""
  6749   "RTN","ORW DXM1",30,0 )
  6750    ;disable
  6751   "RTN","ORW DXM1",31,0 )
  6752    D CHKDSBL ^ORWDXM3(. LST,ORIT,O RWMODE) Q: +LST(0)=8
  6753   "RTN","ORW DXM1",32,0 )
  6754    ;action
  6755   "RTN","ORW DXM1",33,0 )
  6756    D CHKVACT ^ORWDXM3(. LST,ORIT,O RWMODE,$P( FLDS,U,3))  Q:+LST(0) =8
  6757   "RTN","ORW DXM1",34,0 )
  6758    ;no copy
  6759   "RTN","ORW DXM1",35,0 )
  6760    I ORWMODE =1 D CHKCO PY^ORWDXM3 (.LST,ORIT ,FLDS) Q:+ LST(0)=8
  6761   "RTN","ORW DXM1",36,0 )
  6762    ;change
  6763   "RTN","ORW DXM1",37,0 )
  6764    I ORWMODE =2 D BLD4C HG^ORWDXM3 (.LST,ORIT ,FLDS) Q
  6765   "RTN","ORW DXM1",38,0 )
  6766    I 'ORWMOD E,($P(^ORD (101.41,+O RIT,0),U,4 )="D"),$P( ^ORD(101.4 1,+ORIT,0) ,"^",7)=$O (^DIC(9.4, "C","SD",0 )) S LST(0 )="0^0^"_$ $DLGINFO^O RWDXM3(ORI T,ORWMODE_ ISXFER) Q
  6767   "RTN","ORW DXM1",39,0 )
  6768    I 'ORWMOD E,($P(^ORD (101.41,+O RIT,0),U,4 )="D"),'($ O(^DIC(9.4 ,"C","OR", 0))[$P(^OR D(101.41,+ ORIT,0),U, 7)) S LST( 0)="0^0^"_ $$DLGINFO^ ORWDXM3(OR IT,ORWMODE _ISXFER) Q
  6769   "RTN","ORW DXM1",40,0 )
  6770    N ORIMTYP E,ORCOMP,O RTAS,LRFZX ,LRFSAMP,L RFSPEC,LRF DATE,LRFUR G,LRFSCH
  6771   "RTN","ORW DXM1",41,0 )
  6772    N ORTIME, ORCOLLCT,O RMAX,ORTES T,ORIMTIME ,ORSMAX,OR STMS,ORSCH
  6773   "RTN","ORW DXM1",42,0 )
  6774    N PSJNOPC ,ORMORE,OR INPT,ORXNP ,ORSCHED,O RQTY,ORNOU NS,ORXNP,O REFILLS
  6775   "RTN","ORW DXM1",43,0 )
  6776    N ORCOMPL X,ORQTY,OR COPAY,ORDR UG,ORWPSPI K,ORWPSWRG ,ORSD,ORDS UP,ORWP94
  6777   "RTN","ORW DXM1",44,0 )
  6778    N ORPARAM ,ORNPO,ORT IME,ORMEAL ,ORTRAY,OR DATE,GMRCN OPD,GMRCNO AT,GMRCREA F
  6779   "RTN","ORW DXM1",45,0 )
  6780    N ORTYPE, ORVP,ORL,O RNP,ORSEX, ORAGE,ORWA RD,OREVENT ,ORDIV,ORS C,KEYVAR
  6781   "RTN","ORW DXM1",46,0 )
  6782    N ORDG,OR DIALOG,ORC AT,FIRST,O RQUIT,X,OR TRAIL,ORLE AD,RSPREF, AUTOACK
  6783   "RTN","ORW DXM1",47,0 )
  6784    N OREVNTY P
  6785   "RTN","ORW DXM1",48,0 )
  6786    S ORWP94= $O(^ORD(10 1.41,"AB", "PS MEDS", 0))>0
  6787   "RTN","ORW DXM1",49,0 )
  6788    S ORVP=$P (FLDS,U,1) _";DPT(",O RNP=+$P(FL DS,U,3),OR SC=$P(FLDS ,U,8)
  6789   "RTN","ORW DXM1",50,0 )
  6790    S ORL=$P( FLDS,U,2)_ ";SC(",ORL (2)=ORL
  6791   "RTN","ORW DXM1",51,0 )
  6792    S ORSEX=$ P(FLDS,U,5 ),ORAGE=$P (FLDS,U,6) ,ORTYPE="Q ",FIRST=1
  6793   "RTN","ORW DXM1",52,0 )
  6794    I $P(FLDS ,U,4),$G(^ SC(+ORL,42 )) S ORWAR D=+^SC(+OR L,42)
  6795   "RTN","ORW DXM1",53,0 )
  6796    I $L($P(F LDS,U,7))  D
  6797   "RTN","ORW DXM1",54,0 )
  6798    . S OREVE NT=$P(FLDS ,U,7)
  6799   "RTN","ORW DXM1",55,0 )
  6800    . S OREVN TYP=$P(ORE VENT,";",2 )
  6801   "RTN","ORW DXM1",56,0 )
  6802    . S OREVE NT("TS")=$ P(OREVENT, ";",3)
  6803   "RTN","ORW DXM1",57,0 )
  6804    . S OREVE NT("EFFECT IVE")=$P(O REVENT,";" ,4)
  6805   "RTN","ORW DXM1",58,0 )
  6806    . S OREVE NT=+$P(ORE VENT,";",1 )
  6807   "RTN","ORW DXM1",59,0 )
  6808    I 'ORWMOD E D
  6809   "RTN","ORW DXM1",60,0 )
  6810    . D SETKE YV^ORWDXM3 ($P(FLDS,U ,11,20)) ;  from menu  path
  6811   "RTN","ORW DXM1",61,0 )
  6812    . S KEYVA R=$$KEYVAR ^ORWDXM3(O RIT) ; fro m entry ac tion
  6813   "RTN","ORW DXM1",62,0 )
  6814    . D SETKE YV^ORWDXM3 (KEYVAR)
  6815   "RTN","ORW DXM1",63,0 )
  6816    K ^TMP("O RWORD",$J)
  6817   "RTN","ORW DXM1",64,0 )
  6818    ; init re turn recor d based on  auto-acce pt
  6819   "RTN","ORW DXM1",65,0 )
  6820    I ORWMODE  S LST(0)= "2^"_ORIT  ;verify on  copy
  6821   "RTN","ORW DXM1",66,0 )
  6822    E  S LST( 0)=+$P($G( ^ORD(101.4 1,ORIT,5)) ,U,8)_U_OR IT
  6823   "RTN","ORW DXM1",67,0 )
  6824    S TEMPCAT =$S($L($P( $G(^DPT(+O RVP,.1)),U )):"I",1:" O")
  6825   "RTN","ORW DXM1",68,0 )
  6826    I TEMPCAT ="I",+$P(F LDS,U,4)=1 ,$E(TEMPOR IT)="C",$P ($G(^ORD(1 00.98,$P($ G(^OR(100, +ORIT,0)), U,11),0)), U)="OUTPAT IENT MEDIC ATIONS" S  TEMPCAT="O "
  6827   "RTN","ORW DXM1",69,0 )
  6828    I $L($G(O REVNTYP))  D
  6829   "RTN","ORW DXM1",70,0 )
  6830    . S ORCAT =$S(OREVNT YP="A":"I" ,OREVNTYP= "T":"I",OR EVNTYP="O" :TEMPCAT,O REVNTYP="M ":TEMPCAT, OREVNTYP=" C":TEMPCAT ,1:"O") I  $G(OREVENT ) D
  6831   "RTN","ORW DXM1",71,0 )
  6832    .. N X S  X=$$EVT^OR EVNTX(OREV ENT),X=$P( $G(^ORD(10 0.5,+X,0)) ,U,7)
  6833   "RTN","ORW DXM1",72,0 )
  6834    .. I OREV NTYP="T",X ,X<4 S ORC AT="O" ;To  pass=outp t
  6835   "RTN","ORW DXM1",73,0 )
  6836    .. I OREV NTYP="D",X =41 S ORCA T="I" ;Fro m ASIH=inp t
  6837   "RTN","ORW DXM1",74,0 )
  6838    E  S ORCA T=TEMPCAT
  6839   "RTN","ORW DXM1",75,0 )
  6840    D SETUP^O RWDXM4 Q:+ LST(0)=8
  6841   "RTN","ORW DXM1",76,0 )
  6842    S X="OR G TX START D ATE"_$S($G (ORWP94):" /TIME",1:" ")
  6843   "RTN","ORW DXM1",77,0 )
  6844    I ORWMODE ,(ORDG=+$O (^ORD(100. 98,"B","O  RX",0))) D   ;remove  old values
  6845   "RTN","ORW DXM1",78,0 )
  6846    . K ORDIA LOG($$PTR^ ORCD(X),1)
  6847   "RTN","ORW DXM1",79,0 )
  6848    . I ORWMO DE=2,$$DRA FT^ORWDX2( ORIT) Q  ; keep comme nts
  6849   "RTN","ORW DXM1",80,0 )
  6850    . K:ISXFE R'["T" ORD IALOG($$PT R^ORCD("OR  GTX WORD  PROCESSING  1"),1)
  6851   "RTN","ORW DXM1",81,0 )
  6852    D SETUPS^ ORWDXM4 ;m oved to sa ve space,  expects X
  6853   "RTN","ORW DXM1",82,0 )
  6854    Q:+LST(0) =8
  6855   "RTN","ORW DXM1",83,0 )
  6856    I $G(ORQU IT) S LST( 0)="0^0^"_ $$DLGINFO^ ORWDXM3(OR IT,ORWMODE _ISXFER)_" ^"_$G(KEYV AR) Q
  6857   "RTN","ORW DXM1",84,0 )
  6858    N SEQ,DA, XCODE,MUST ASK,PROMPT ,INST,KEY, IVFID,CLIV FID
  6859   "RTN","ORW DXM1",85,0 )
  6860    S IVFID=$ O(^ORD(101 .41,"B","P SJI OR PAT  FLUID OE" ,0))
  6861   "RTN","ORW DXM1",86,0 )
  6862    S CLIVFID =$O(^ORD(1 01.41,"B", "CLINIC OR  PAT FLUID  OE",0))
  6863   "RTN","ORW DXM1",87,0 )
  6864    S AUTOACK =$S($D(ORW PSWRG):0,1 :1)
  6865   "RTN","ORW DXM1",88,0 )
  6866    ; If copy ing, clear  bad dates . Later, S ETITEM wil l fill dat es with de fault valu es. ;DJE-V M *331
  6867   "RTN","ORW DXM1",89,0 )
  6868    I ORWMODE =1 D  ;
  6869   "RTN","ORW DXM1",90,0 )
  6870    . I $L($$ VAL^ORCD(" START DATE ")) D  ;
  6871   "RTN","ORW DXM1",91,0 )
  6872    . . S X=$ $VAL^ORCD( "START DAT E"),%DT="T X" D ^%DT
  6873   "RTN","ORW DXM1",92,0 )
  6874    . . I Y'< $$DT^XLFDT ,(($L($$VA L^ORCD("ST OP DATE")) =0)!('$$FT DCOMP^ORCD ("START DA TE","STOP  DATE",">") )) Q  ;qui t if valid  dates: st art not in  the past  or stop af ter start
  6875   "RTN","ORW DXM1",93,0 )
  6876    . . K ORD IALOG($$PT R("START D ATE"),1),O RDIALOG($$ PTR("START  DATE/TIME "),1) ;era se bad sta rt and sto p dates.
  6877   "RTN","ORW DXM1",94,0 )
  6878    . . K ORD IALOG($$PT R("STOP DA TE"),1),OR DIALOG($$P TR("STOP D ATE/TIME") ,1)
  6879   "RTN","ORW DXM1",95,0 )
  6880    . ; check  start and  stop date s found in  diet orde rs
  6881   "RTN","ORW DXM1",96,0 )
  6882    . I $L($$ VAL^ORCD(" EFFECTIVE  DATE/TIME" )) D  ;
  6883   "RTN","ORW DXM1",97,0 )
  6884    . . S X=$ $VAL^ORCD( "EFFECTIVE  DATE/TIME "),%DT="TX " D ^%DT
  6885   "RTN","ORW DXM1",98,0 )
  6886    . . I Y'< $$DT^XLFDT ,(($L($$VA L^ORCD("EX PIRATION D ATE/TIME") )=0)!('$$F TDCOMP^ORC D("EFFECTI VE DATE/TI ME","EXPIR ATION DATE /TIME",">" ))) Q  ;qu it if vali d dates: s tart not i n the past  or stop a fter start
  6887   "RTN","ORW DXM1",99,0 )
  6888    . . K ORD IALOG($P(O RDIALOG("B ","EFFECTI VE DATE/TI ME"),U,2), 1) ;erase  bad start  and stop d ates.
  6889   "RTN","ORW DXM1",100, 0)
  6890    . . K ORD IALOG($P(O RDIALOG("B ","EXPIRAT ION DATE/T IME"),U,2) ,1)
  6891   "RTN","ORW DXM1",101, 0)
  6892    . ; check  date desi red field  found in i maging ord ers
  6893   "RTN","ORW DXM1",102, 0)
  6894    . I $L($$ VAL^ORCD(" DATE DESIR ED")) D  ;
  6895   "RTN","ORW DXM1",103, 0)
  6896    . . S X=$ $VAL^ORCD( "DATE DESI RED"),%DT= "TX" D ^%D T
  6897   "RTN","ORW DXM1",104, 0)
  6898    . . I Y'< $$DT^XLFDT  Q  ;quit  if not a p ast date
  6899   "RTN","ORW DXM1",105, 0)
  6900    . . K ORD IALOG($P(O RDIALOG("B ","DATE DE SIRED"),U, 2),1) ;era se bad dat e
  6901   "RTN","ORW DXM1",106, 0)
  6902    . ; check  collectio n date fie ld found i n lab orde rs
  6903   "RTN","ORW DXM1",107, 0)
  6904    . I $L($$ VAL^ORCD(" COLLECTION  DATE/TIME ")) D  ;
  6905   "RTN","ORW DXM1",108, 0)
  6906    . . S X=$ $VAL^ORCD( "COLLECTIO N DATE/TIM E")
  6907   "RTN","ORW DXM1",109, 0)
  6908    . . I X=" NEXT" Q  ; No need to  check thi s.
  6909   "RTN","ORW DXM1",110, 0)
  6910    . . S %DT ="TX" D ^% DT
  6911   "RTN","ORW DXM1",111, 0)
  6912    . . I $P( Y,".",2),Y '<$E($$NOW ^XLFDT,1,1 2) Q  ;qui t if not a  past date  and time  (lab is mo re precise  than othe r dates)
  6913   "RTN","ORW DXM1",112, 0)
  6914    . . I $P( Y,".",2)=" ",Y'<$$DT^ XLFDT Q  ;
  6915   "RTN","ORW DXM1",113, 0)
  6916    . . K ORD IALOG($P(O RDIALOG("B ","COLLECT ION DATE/T IME"),U,2) ,1) ;erase  bad date
  6917   "RTN","ORW DXM1",114, 0)
  6918    S SEQ=0 F   S SEQ=$O (^ORD(101. 41,+ORDIAL OG,10,"B", SEQ)) Q:'S EQ  D
  6919   "RTN","ORW DXM1",115, 0)
  6920    . S DA=0  F  S DA=$O (^ORD(101. 41,+ORDIAL OG,10,"B", SEQ,DA)) Q :'DA  D
  6921   "RTN","ORW DXM1",116, 0)
  6922    . . ; ski p if child  prmpt
  6923   "RTN","ORW DXM1",117, 0)
  6924    . . I $P( ^ORD(101.4 1,+ORDIALO G,10,DA,0) ,U,11) Q
  6925   "RTN","ORW DXM1",118, 0)
  6926    . . ; set  dflt for  prmpt, chk  if intera ctive
  6927   "RTN","ORW DXM1",119, 0)
  6928    . . S PRO MPT=$P(^OR D(101.41,+ ORDIALOG,1 0,DA,0),U, 2)
  6929   "RTN","ORW DXM1",120, 0)
  6930    . . D SET ITEM(DA,PR OMPT,1,.MU STASK)
  6931   "RTN","ORW DXM1",121, 0)
  6932    . . I MUS TASK S AUT OACK=0 Q
  6933   "RTN","ORW DXM1",122, 0)
  6934    . . ; ite rate throu gh child i tems if pa rent & edi t only
  6935   "RTN","ORW DXM1",123, 0)
  6936    . . Q:'$D (^ORD(101. 41,+ORDIAL OG,10,"DAD ",PROMPT))
  6937   "RTN","ORW DXM1",124, 0)
  6938    . . N CSE Q,CDA,CPRO MPT,INST,O RQUIT
  6939   "RTN","ORW DXM1",125, 0)
  6940    . . S CSE Q=0 F  S C SEQ=$O(^OR D(101.41,+ ORDIALOG,1 0,"DAD",PR OMPT,CSEQ) ) Q:'CSEQ   D  Q:$G(O RQUIT)
  6941   "RTN","ORW DXM1",126, 0)
  6942    . . . S C DA=$O(^ORD (101.41,+O RDIALOG,10 ,"DAD",PRO MPT,CSEQ,0 ))
  6943   "RTN","ORW DXM1",127, 0)
  6944    . . . S C PROMPT=$P( ^ORD(101.4 1,+ORDIALO G,10,CDA,0 ),U,2)
  6945   "RTN","ORW DXM1",128, 0)
  6946    . . . ; i f req & no  instances  then need  interacti on
  6947   "RTN","ORW DXM1",129, 0)
  6948    . . . I $ P(^ORD(101 .41,+ORDIA LOG,10,CDA ,0),U,6) D
  6949   "RTN","ORW DXM1",130, 0)
  6950    . . . . I  ORDIALOG= IVFID!(ORD IALOG=CLIV FID) Q
  6951   "RTN","ORW DXM1",131, 0)
  6952    . . . . I  '$O(ORDIA LOG(CPROMP T,0)) S AU TOACK=0
  6953   "RTN","ORW DXM1",132, 0)
  6954    . . . S I NST=0 F  S  INST=$O(O RDIALOG(CP ROMPT,INST )) Q:'INST   D
  6955   "RTN","ORW DXM1",133, 0)
  6956    . . . . N  ORASK D V BASK^ORWDX M4(INST) ;  set ORASK  for VBECS
  6957   "RTN","ORW DXM1",134, 0)
  6958    . . . . ;  set dflt  for each c hild prmpt
  6959   "RTN","ORW DXM1",135, 0)
  6960    . . . . D  SETITEM(C DA,CPROMPT ,INST,.MUS TASK)
  6961   "RTN","ORW DXM1",136, 0)
  6962    . . . . ;  if no val  & child p rmpt req'd  then need  interacti on
  6963   "RTN","ORW DXM1",137, 0)
  6964    . . . . I  MUSTASK,$ P(^ORD(101 .41,+ORDIA LOG,10,CDA ,0),U,6) S  AUTOACK=0
  6965   "RTN","ORW DXM1",138, 0)
  6966    N IVDLG,C LINFDLG,SP LYDLG
  6967   "RTN","ORW DXM1",139, 0)
  6968    S IVDLG=$ O(^ORD(101 .41,"AB"," PSJI OR PA T FLUID OE ",0))
  6969   "RTN","ORW DXM1",140, 0)
  6970    S CLINFDL G=$O(^ORD( 101.41,"AB ","CLINIC  OR PAT FLU ID OE",0))
  6971   "RTN","ORW DXM1",141, 0)
  6972    S SPLYDLG =$O(^ORD(1 01.41,"AB" ,"PSO SUPP LY",0))
  6973   "RTN","ORW DXM1",142, 0)
  6974    I $$ISMED (ORIT),(OR DIALOG'=IV DLG),(ORDI ALOG'=CLIN FDLG),(ORD IALOG'=SPL YDLG),(ORC AT="I") D
  6975   "RTN","ORW DXM1",143, 0)
  6976    . N P
  6977   "RTN","ORW DXM1",144, 0)
  6978    . F P="PA TIENT INST RUCTIONS", "DAYS SUPP LY","QUANT ITY","REFI LLS","ROUT ING","SERV ICE CONNEC TED" K ORD IALOG($$PT R(P),1)
  6979   "RTN","ORW DXM1",145, 0)
  6980    . I '$$IS QO(ORIT) K  ORDIALOG( $$PTR("STA RT DATE/TI ME"),1) ;  kill if no t a non-VA  med quick  order. p3 88
  6981   "RTN","ORW DXM1",146, 0)
  6982    S KEY=$S( ORWMODE:"C ",1:"")_OR IT_"-"_$P( $H,",",2), SEQ=0
  6983   "RTN","ORW DXM1",147, 0)
  6984    I $$ISINP MED(ORIT)  D
  6985   "RTN","ORW DXM1",148, 0)
  6986    .S LEVEL= $P(LST(0), U),DELAY=$ S($P($G(OR EVENT),";" )>0:1,1:0)
  6987   "RTN","ORW DXM1",149, 0)
  6988    .I LEVEL= 2!(ISIMO)  D ADMTIME^ ORWDXM2(OR DLOC,PATLO C,ENCLOC,D ELAY,ISIMO )
  6989   "RTN","ORW DXM1",150, 0)
  6990    I ($$ISME D(ORIT)),' ($$VALQO^O RWDXM3(ORI T)) S AUTO ACK=0
  6991   "RTN","ORW DXM1",151, 0)
  6992    I $P(^ORD (101.41,+O RIT,0),"^" ,7)=$O(^DI C(9.4,"C", "SD",0)),' ($$SDRTCVE R^ORWDXM3( .ORDIALOG) ) S AUTOAC K=0
  6993   "RTN","ORW DXM1",152, 0)
  6994    S PROMPT= 0 F  S PRO MPT=$O(ORD IALOG(PROM PT)) Q:'PR OMPT  D
  6995   "RTN","ORW DXM1",153, 0)
  6996    . I '$D(^ ORD(101.41 ,ORDIALOG, 10,"D",PRO MPT)) K OR DIALOG(PRO MPT) Q
  6997   "RTN","ORW DXM1",154, 0)
  6998    . S INST= 0 F  S INS T=$O(ORDIA LOG(PROMPT ,INST)) Q: 'INST  D
  6999   "RTN","ORW DXM1",155, 0)
  7000    . . S SEQ =SEQ+1,^TM P("ORWDXMQ ",$J,KEY,S EQ,0)=U_PR OMPT_U_INS T
  7001   "RTN","ORW DXM1",156, 0)
  7002    . . ; sav e word pro c val
  7003   "RTN","ORW DXM1",157, 0)
  7004    . . I $E( ORDIALOG(P ROMPT,0))= "W",$L(ORD IALOG(PROM PT,INST))  D
  7005   "RTN","ORW DXM1",158, 0)
  7006    . . . M ^ TMP("ORWDX MQ",$J,KEY ,SEQ,2)=@O RDIALOG(PR OMPT,INST)
  7007   "RTN","ORW DXM1",159, 0)
  7008    . . ; sav e other va l types
  7009   "RTN","ORW DXM1",160, 0)
  7010    . . E  S  ^TMP("ORWD XMQ",$J,KE Y,SEQ,1)=O RDIALOG(PR OMPT,INST)
  7011   "RTN","ORW DXM1",161, 0)
  7012    I AUTOACK  D
  7013   "RTN","ORW DXM1",162, 0)
  7014    . I ORWMO DE S AUTOA CK=2
  7015   "RTN","ORW DXM1",163, 0)
  7016    . I 'ORWM ODE,($P(^O RD(101.41, ORIT,0),U, 8)!'LST(0) ) S AUTOAC K=2
  7017   "RTN","ORW DXM1",164, 0)
  7018    ;I ($$ISM ED(ORIT)), '($$VALQO^ ORWDXM3(OR IT)) S AUT OACK=0
  7019   "RTN","ORW DXM1",165, 0)
  7020    I ORIMO,O RWMODE S A UTOACK=2
  7021   "RTN","ORW DXM1",166, 0)
  7022    ; accept  Herbal/OTC /NonVA Med  quick ord ers
  7023   "RTN","ORW DXM1",167, 0)
  7024    I $L($G(^ ORD(101.41 ,+ORIT,0)) ),($P(^ORD (100.98,$P (^ORD(101. 41,+ORIT,0 ),U,5),0), U,3)="NV R X"),($P($G (^ORD(101. 41,+ORIT,5 )),U,8)) S  AUTOACK=1
  7025   "RTN","ORW DXM1",168, 0)
  7026    ;I AUTOAC K=2,$$ISME D(ORIT),(O RDIALOG=IV DLG),$$VER ORD^ORWDXM 3=0 S AUTO ACK=0
  7027   "RTN","ORW DXM1",169, 0)
  7028    I AUTOACK =2,$$ISMED (ORIT),$$V ERORD^ORWD XM3(ORIT)= 0 S AUTOAC K=0
  7029   "RTN","ORW DXM1",170, 0)
  7030    I AUTOACK =2 D VERTX T^ORWDXM2
  7031   "RTN","ORW DXM1",171, 0)
  7032    S LST(0)= AUTOACK_U_ KEY_U_$$DL GINFO^ORWD XM3(ORIT,O RWMODE_ISX FER)_"^"_$ G(KEYVAR)
  7033   "RTN","ORW DXM1",172, 0)
  7034    I $P(LST( 0),U,4)="D " S $P(LST (0),U,4)=" Q"
  7035   "RTN","ORW DXM1",173, 0)
  7036    I ORWMODE =1 S $P(LS T(0),U,4)= "C"
  7037   "RTN","ORW DXM1",174, 0)
  7038    K ^TMP("O RWORD",$J)
  7039   "RTN","ORW DXM1",175, 0)
  7040    K ^TMP("P SJINS",$J) ,^TMP("PSJ MR",$J),^T MP("PSJNOU N",$J)
  7041   "RTN","ORW DXM1",176, 0)
  7042    Q
  7043   "RTN","ORW DXM1",177, 0)
  7044   SETITEM(DA ,PROMPT,IN ST,MUSTASK ) ; set df lt val & r eturn if m ust prompt
  7045   "RTN","ORW DXM1",178, 0)
  7046    N EDITONL Y,Y,VALIV, XCODE
  7047   "RTN","ORW DXM1",179, 0)
  7048    S MUSTASK =0,EDITONL Y=0,VALIV= 0
  7049   "RTN","ORW DXM1",180, 0)
  7050    I $D(^TMP ("ORWDHTM" ,$J,ORDIAL OG,PROMPT) ) D
  7051   "RTN","ORW DXM1",181, 0)
  7052    . I $E(OR DIALOG(PRO MPT,0))="W " D
  7053   "RTN","ORW DXM1",182, 0)
  7054    . . S ^TM P("ORWORD" ,$J,PROMPT ,INST,1,0) =^TMP("ORW DHTM",$J,O RDIALOG,PR OMPT)
  7055   "RTN","ORW DXM1",183, 0)
  7056    . . S ORD IALOG(PROM PT,INST)=" ^TMP(""ORW ORD"","_$J _","_PROMP T_","_INST _")"
  7057   "RTN","ORW DXM1",184, 0)
  7058    . E  S OR DIALOG(PRO MPT,INST)= ^TMP("ORWD HTM",$J,OR DIALOG,PRO MPT)
  7059   "RTN","ORW DXM1",185, 0)
  7060    I $D(^TMP ("ORWDHTM" ,$J,ORIT,P ROMPT)) D
  7061   "RTN","ORW DXM1",186, 0)
  7062    . S ORDIA LOG(PROMPT ,INST)=^TM P("ORWDHTM ",$J,ORIT, PROMPT)
  7063   "RTN","ORW DXM1",187, 0)
  7064    . ; NEED  TO CLEAN U P ^TMP("OR WDHTM") af ter proces s order se t!!!
  7065   "RTN","ORW DXM1",188, 0)
  7066    ;
  7067   "RTN","ORW DXM1",189, 0)
  7068    ; skip if  a value a lready exi sts for th is prompt  and not WP
  7069   "RTN","ORW DXM1",190, 0)
  7070    Q:$D(ORDI ALOG(PROMP T,INST))&( $E(ORDIALO G(PROMPT,0 ))'="W")
  7071   "RTN","ORW DXM1",191, 0)
  7072    ; execute  default a ction if n o value in  QO, check ing EDITON LY afterwa rds
  7073   "RTN","ORW DXM1",192, 0)
  7074    I '$D(ORD IALOG(PROM PT,INST))  D
  7075   "RTN","ORW DXM1",193, 0)
  7076    . ;
  7077   "RTN","ORW DXM1",194, 0)
  7078    . ;Interm ittent IV  orders do  not requir e a soluti on or an i nfusion ra te
  7079   "RTN","ORW DXM1",195, 0)
  7080    . I PROMP T=$$PTR("I NFUSION RA TE"),$$GET IVTYP^ORWD XM3="I" S  VALIV=1 Q
  7081   "RTN","ORW DXM1",196, 0)
  7082    . I PROMP T=$$PTR("O RDERABLE I TEM"),$$GE TIVTYP^ORW DXM3="I" S  VALIV=1 Q
  7083   "RTN","ORW DXM1",197, 0)
  7084    . I $E(OR DIALOG(PRO MPT,0))="W ",$D(^ORD( 101.41,+OR DIALOG,10, DA,8))>9 D
  7085   "RTN","ORW DXM1",198, 0)
  7086    . . M ^TM P("ORWORD" ,$J,PROMPT ,INST)=^OR D(101.41,+ ORDIALOG,1 0,DA,8)
  7087   "RTN","ORW DXM1",199, 0)
  7088    . . S ORD IALOG(PROM PT,INST)=" ^TMP(""ORW ORD"","_$J _","_PROMP T_","_INST _")"
  7089   "RTN","ORW DXM1",200, 0)
  7090    . E  D
  7091   "RTN","ORW DXM1",201, 0)
  7092    . . S XCO DE=$$SUBCO DE($G(^ORD (101.41,+O RDIALOG,10 ,DA,7)))
  7093   "RTN","ORW DXM1",202, 0)
  7094    . . I $L( XCODE) X X CODE S:$D( Y) ORDIALO G(PROMPT,I NST)=Y
  7095   "RTN","ORW DXM1",203, 0)
  7096    Q:VALIV=1
  7097   "RTN","ORW DXM1",204, 0)
  7098    Q:$G(EDIT ONLY)
  7099   "RTN","ORW DXM1",205, 0)
  7100    I 'ORWMOD E,$P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,8) Q
  7101   "RTN","ORW DXM1",206, 0)
  7102    I ORWMODE ,($P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,9)'["W") ,'$P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,6)!$D(OR DIALOG(PRO MPT,INST))  Q
  7103   "RTN","ORW DXM1",207, 0)
  7104    I 'ORWMOD E,LST(0),$ D(ORDIALOG (PROMPT,IN ST)),($E(O RDIALOG(PR OMPT,0))=" W") Q
  7105   "RTN","ORW DXM1",208, 0)
  7106    I 'ORWMOD E,LST(0),' $P($G(^ORD (101.41,+O RDIALOG,10 ,DA,0)),U, 6) Q
  7107   "RTN","ORW DXM1",209, 0)
  7108    S XCODE=$ $SUBCODE($ G(^ORD(101 .41,+ORDIA LOG,10,DA, 3)))
  7109   "RTN","ORW DXM1",210, 0)
  7110    I $L(XCOD E) X XCODE  Q:'$T
  7111   "RTN","ORW DXM1",211, 0)
  7112    S MUSTASK =1
  7113   "RTN","ORW DXM1",212, 0)
  7114    Q
  7115   "RTN","ORW DXM1",213, 0)
  7116   SUBCODE(X)  ; substit ute code
  7117   "RTN","ORW DXM1",214, 0)
  7118    I X["$$RE QDCOMM^ORC DLR" Q "I  $$LRRQCM^O RWDXM2"
  7119   "RTN","ORW DXM1",215, 0)
  7120    I X["$$AS KSAMP^ORCD LR" Q "I $ $LRASMP^OR WDXM2"
  7121   "RTN","ORW DXM1",216, 0)
  7122    I X["$$SC HEDULD^ORC DRA1" Q "I  $$SCHEDUL D^ORWDXM2"
  7123   "RTN","ORW DXM1",217, 0)
  7124    I X["(^PS X(550,""C" ")" Q "S Y =$E($$DEFP ICK^ORWDPS 32) K:'$L( Y) Y"
  7125   "RTN","ORW DXM1",218, 0)
  7126    I X["I $$ ASKURG^ORC DVBEC" Q " I 1"
  7127   "RTN","ORW DXM1",219, 0)
  7128    I X["K:$G (ORASK)" Q  "I $G(ORA SK)"
  7129   "RTN","ORW DXM1",220, 0)
  7130    Q X
  7131   "RTN","ORW DXM1",221, 0)
  7132   PTR(NAME)  ; -- Retur ns pointer  to OR GTX  NAME
  7133   "RTN","ORW DXM1",222, 0)
  7134    Q +$O(^OR D(101.41," AB",$E("OR  GTX "_NAM E,1,63),0) )
  7135   "RTN","ORW DXM1",223, 0)
  7136    ;
  7137   "RTN","ORW DXM1",224, 0)
  7138   ISINPMED(I FN) ;
  7139   "RTN","ORW DXM1",225, 0)
  7140    N PKG,RES ULT,Y
  7141   "RTN","ORW DXM1",226, 0)
  7142    I 'ORWMOD E S PKG=$P ($G(^ORD(1 01.41,IFN, 0)),U,7)
  7143   "RTN","ORW DXM1",227, 0)
  7144    E  S PKG= $P($G(^OR( 100,+IFN,0 )),U,14)
  7145   "RTN","ORW DXM1",228, 0)
  7146    S Y=$$GET 1^DIQ(9.4, +PKG_",",1 )
  7147   "RTN","ORW DXM1",229, 0)
  7148    S RESULT= $S($E(Y,1, 3)="PSJ":1 ,1:0)
  7149   "RTN","ORW DXM1",230, 0)
  7150    Q RESULT
  7151   "RTN","ORW DXM1",231, 0)
  7152    ;
  7153   "RTN","ORW DXM1",232, 0)
  7154   ISMED(IFN)  ; return  1 if pharm acy order  dlg used
  7155   "RTN","ORW DXM1",233, 0)
  7156    N PKG
  7157   "RTN","ORW DXM1",234, 0)
  7158    I 'ORWMOD E S PKG=$P ($G(^ORD(1 01.41,IFN, 0)),U,7)
  7159   "RTN","ORW DXM1",235, 0)
  7160    E  S PKG= $P($G(^OR( 100,+IFN,0 )),U,14)
  7161   "RTN","ORW DXM1",236, 0)
  7162    Q $$NMSP^ ORCD(PKG)= "PS"
  7163   "RTN","ORW DXM1",237, 0)
  7164   SITEVAL()  ;return 1  if site do es want th e reason f or study t o carry th rough from  past orde rs of this  ordering  session
  7165   "RTN","ORW DXM1",238, 0)
  7166    I $$GET^X PAR("ALL^S RV.`"_+^VA (200,DUZ,5 ),"OR RA R FS CARRY O N")=0 Q 0
  7167   "RTN","ORW DXM1",239, 0)
  7168    Q 1
  7169   "RTN","ORW DXM1",240, 0)
  7170   SVRPC(RET, X) ;RPC FO R SITEVAL
  7171   "RTN","ORW DXM1",241, 0)
  7172    S RET=$$S ITEVAL
  7173   "RTN","ORW DXM1",242, 0)
  7174    Q
  7175   "RTN","ORW DXM1",243, 0)
  7176   ISQO(IFN)  ;return 1  if a non-V A medicati on quick o rder type  of order d ialog. p38 8
  7177   "RTN","ORW DXM1",244, 0)
  7178    I $P($G(^ ORD(101.41 ,IFN,0)),U ,5)'=$O(^O RD(100.98, "B","NV RX ",0)) Q 0
  7179   "RTN","ORW DXM1",245, 0)
  7180    I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)="Q" Q  1
  7181   "RTN","ORW DXM1",246, 0)
  7182    Q 0
  7183   "RTN","ORW DXM3")
  7184   0^14^B1183 61960
  7185   "RTN","ORW DXM3",1,0)
  7186   ORWDXM3 ;  SLC/KCM/JL I - Quick  Orders ;06 /22/17
  7187   "RTN","ORW DXM3",2,0)
  7188    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,131,1 32,141,185 ,187,190,1 95,215,243 ,303,296,2 80,350,434 **;Dec 17,  1997;Buil d 31
  7189   "RTN","ORW DXM3",3,0)
  7190    ;
  7191   "RTN","ORW DXM3",4,0)
  7192    ;
  7193   "RTN","ORW DXM3",5,0)
  7194    ;
  7195   "RTN","ORW DXM3",6,0)
  7196   VALCOUNT(N AME,ORDIAL OG) ;
  7197   "RTN","ORW DXM3",7,0)
  7198    N COUNT,I EN,NUM
  7199   "RTN","ORW DXM3",8,0)
  7200    S NUM=0,C OUNT=0
  7201   "RTN","ORW DXM3",9,0)
  7202    S IEN=$P( $G(ORDIALO G("B",NAME )),U,2) Q: IEN'>0
  7203   "RTN","ORW DXM3",10,0 )
  7204    F  S NUM= $O(ORDIALO G(IEN,NUM) ) Q:+NUM'> 0  S COUNT =COUNT+1
  7205   "RTN","ORW DXM3",11,0 )
  7206    Q COUNT
  7207   "RTN","ORW DXM3",12,0 )
  7208    ;
  7209   "RTN","ORW DXM3",13,0 )
  7210   ISMISSFL(O RDIALOG,IV TYPE) ;
  7211   "RTN","ORW DXM3",14,0 )
  7212    N ADDCNT, RESULT,SOL CNT,STRCNT
  7213   "RTN","ORW DXM3",15,0 )
  7214    S RESULT= 0
  7215   "RTN","ORW DXM3",16,0 )
  7216    S ADDCNT= $$VALCOUNT ("ADDITIVE ",.ORDIALO G)
  7217   "RTN","ORW DXM3",17,0 )
  7218    S STRCNT= $$VALCOUNT ("STRENGTH ",.ORDIALO G)
  7219   "RTN","ORW DXM3",18,0 )
  7220    S SOLCNT= $$VALCOUNT ("SOLUTION ",.ORDIALO G)
  7221   "RTN","ORW DXM3",19,0 )
  7222    I IVTYPE' ="I",ADDCN T'=STRCNT  S RESULT=1
  7223   "RTN","ORW DXM3",20,0 )
  7224    I IVTYPE= "I" D
  7225   "RTN","ORW DXM3",21,0 )
  7226    .I ADDCNT =0,SOLCNT> 0 Q
  7227   "RTN","ORW DXM3",22,0 )
  7228    .I ADDCNT =0 S RESUL T=1 Q
  7229   "RTN","ORW DXM3",23,0 )
  7230    .I ADDCNT '=STRCNT S  RESULT=1  Q
  7231   "RTN","ORW DXM3",24,0 )
  7232    Q RESULT
  7233   "RTN","ORW DXM3",25,0 )
  7234    ;
  7235   "RTN","ORW DXM3",26,0 )
  7236   IVADFCHK(O RDIALOG) ;
  7237   "RTN","ORW DXM3",27,0 )
  7238    ; This li ne tag che cks to see  if there  are the sa me number  of values
  7239   "RTN","ORW DXM3",28,0 )
  7240    ;for ADDI TIVE and A dditive Fr equency. T his also c hecks to s ee if
  7241   "RTN","ORW DXM3",29,0 )
  7242    ;the valu e assigned  to ADDFRE Q is one o f the thre e possible  values
  7243   "RTN","ORW DXM3",30,0 )
  7244    ;All Bags , 1 bag/da y, See Com ments. If  See Commen ts it also  checks
  7245   "RTN","ORW DXM3",31,0 )
  7246    ;for text  in the co mment sect ion.
  7247   "RTN","ORW DXM3",32,0 )
  7248    N ADDCNT, ADDFCNT,AD DFREQ,COMM ENT,FREQ,I NST,RESULT
  7249   "RTN","ORW DXM3",33,0 )
  7250    S ADDCNT= $$VALCOUNT ("ADDITIVE ",.ORDIALO G)
  7251   "RTN","ORW DXM3",34,0 )
  7252    S ADDFCNT =$$VALCOUN T("ADDITIV E FREQUENC Y",.ORDIAL OG)
  7253   "RTN","ORW DXM3",35,0 )
  7254    I ADDCNT' =ADDFCNT Q  0
  7255   "RTN","ORW DXM3",36,0 )
  7256    S ADDFREQ =$O(^ORD(1 01.41,"AB" ,"OR GTX A DDITIVE FR EQUENCY"," "))
  7257   "RTN","ORW DXM3",37,0 )
  7258    S COMMENT =$O(^ORD(1 01.41,"AB" ,"OR GTX W ORD PROCES SING 1","" ))
  7259   "RTN","ORW DXM3",38,0 )
  7260    I +$G(ADD FREQ)'>0 Q  0
  7261   "RTN","ORW DXM3",39,0 )
  7262    S INST=0, RESULT=1
  7263   "RTN","ORW DXM3",40,0 )
  7264    F  S INST =$O(ORDIAL OG(ADDFREQ ,INST)) Q: INST'>0!(R ESULT=0)   D
  7265   "RTN","ORW DXM3",41,0 )
  7266    .S FREQ=$ $ADDFRQCV^ ORMBLDP1($ G(ORDIALOG (ADDFREQ,I NST)),"O")
  7267   "RTN","ORW DXM3",42,0 )
  7268    .I FREQ=" A"!(FREQ=1 ) Q
  7269   "RTN","ORW DXM3",43,0 )
  7270    .I FREQ=" " S RESULT =0 Q
  7271   "RTN","ORW DXM3",44,0 )
  7272    .I FREQ=" S",'$L($G( ORDIALOG(C OMMENT,1)) ) S RESULT =0 Q
  7273   "RTN","ORW DXM3",45,0 )
  7274    Q RESULT
  7275   "RTN","ORW DXM3",46,0 )
  7276    ;
  7277   "RTN","ORW DXM3",47,0 )
  7278   KEYVAR(DLG )  ; Parse  entry act ion for ke y variable s & return  in string
  7279   "RTN","ORW DXM3",48,0 )
  7280    ; RV=Coll Tp^Samp^Sp ec^CollDt^ Urg^Sched^ NoComm^NoD iag^NoProv ^NoRsn
  7281   "RTN","ORW DXM3",49,0 )
  7282    N XCODE,R V,POS,Z
  7283   "RTN","ORW DXM3",50,0 )
  7284    S XCODE=$ G(^ORD(101 .41,DLG,3) ),RV=""
  7285   "RTN","ORW DXM3",51,0 )
  7286    I '$L(XCO DE) Q ""
  7287   "RTN","ORW DXM3",52,0 )
  7288    S POS=$F( XCODE,"LRF ZX=")    I  POS S $P( RV,U,1)=$$ VALUE(XCOD E,POS)
  7289   "RTN","ORW DXM3",53,0 )
  7290    S POS=$F( XCODE,"LRF SAMP=")  I  POS S $P( RV,U,2)=$$ VALUE(XCOD E,POS)
  7291   "RTN","ORW DXM3",54,0 )
  7292    S POS=$F( XCODE,"LRF SPEC=")  I  POS S $P( RV,U,3)=$$ VALUE(XCOD E,POS)
  7293   "RTN","ORW DXM3",55,0 )
  7294    S POS=$F( XCODE,"LRF DATE=")  I  POS S $P( RV,U,4)=$$ VALUE(XCOD E,POS)
  7295   "RTN","ORW DXM3",56,0 )
  7296    S POS=$F( XCODE,"LRF URG=")   I  POS S $P( RV,U,5)=$$ VALUE(XCOD E,POS)
  7297   "RTN","ORW DXM3",57,0 )
  7298    S POS=$F( XCODE,"LRF SCH=")   I  POS S $P( RV,U,6)=$$ VALUE(XCOD E,POS)
  7299   "RTN","ORW DXM3",58,0 )
  7300    S POS=$F( XCODE,"PSJ NOPC=")  I  POS S $P( RV,U,7)=$$ VALUE(XCOD E,POS)
  7301   "RTN","ORW DXM3",59,0 )
  7302    S POS=$F( XCODE,"GMR CNOPD=") I  POS S $P( RV,U,8)=$$ VALUE(XCOD E,POS)
  7303   "RTN","ORW DXM3",60,0 )
  7304    S POS=$F( XCODE,"GMR CNOAT=") I  POS S $P( RV,U,9)=$$ VALUE(XCOD E,POS)
  7305   "RTN","ORW DXM3",61,0 )
  7306    S POS=$F( XCODE,"GMR CREAF=") I  POS S $P( RV,U,10)=$ $VALUE(XCO DE,POS)
  7307   "RTN","ORW DXM3",62,0 )
  7308    S POS=$F( XCODE,"ORF ORGET=") I  POS D
  7309   "RTN","ORW DXM3",63,0 )
  7310    . ; need  to change  this so th at it is e xecuted in  SETKEYV s o
  7311   "RTN","ORW DXM3",64,0 )
  7312    . ; that  it is exec uted each  time menu  is revisit ed
  7313   "RTN","ORW DXM3",65,0 )
  7314    . N ORFOR GET S ORFO RGET=$$VAL UE(XCODE,P OS)
  7315   "RTN","ORW DXM3",66,0 )
  7316    . I ORFOR GET K ^TMP ("ORECALL" ,$J,+ORFOR GET)
  7317   "RTN","ORW DXM3",67,0 )
  7318    . E  K ^T MP("ORECAL L",$J)
  7319   "RTN","ORW DXM3",68,0 )
  7320    Q RV
  7321   "RTN","ORW DXM3",69,0 )
  7322   VALUE(STR, BEG) ; Ret urn value  of "var="  (copied fr om ORCONVR T)
  7323   "RTN","ORW DXM3",70,0 )
  7324    N X,Y,I S  X=$E(STR, BEG,999),Y =""
  7325   "RTN","ORW DXM3",71,0 )
  7326    S:$E(X)=" """ X=$E(X ,2,999) ;  strip lead ing "
  7327   "RTN","ORW DXM3",72,0 )
  7328    F I=1:1:$ L(X) S Z=$ E(X,I) Q:( Z=",")!(Z= " ")!(Z="" "")  S Y=Y _Z
  7329   "RTN","ORW DXM3",73,0 )
  7330    Q $TR(Y,U ,"")
  7331   "RTN","ORW DXM3",74,0 )
  7332    ;
  7333   "RTN","ORW DXM3",75,0 )
  7334   SETKEYV(X)       ; Se t the key  variables  based on c ontents of  X
  7335   "RTN","ORW DXM3",76,0 )
  7336    I $L($P(X ,U,1))  S  LRFZX=$P(X ,U,1)
  7337   "RTN","ORW DXM3",77,0 )
  7338    I $L($P(X ,U,2))  S  LRFSAMP=$P (X,U,2)
  7339   "RTN","ORW DXM3",78,0 )
  7340    I $L($P(X ,U,3))  S  LRFSPEC=$P (X,U,3)
  7341   "RTN","ORW DXM3",79,0 )
  7342    I $L($P(X ,U,4))  S  LRFDATE=$P (X,U,4)
  7343   "RTN","ORW DXM3",80,0 )
  7344    I $L($P(X ,U,5))  S  LRFURG=$P( X,U,5)
  7345   "RTN","ORW DXM3",81,0 )
  7346    I $L($P(X ,U,6))  S  LRFSCH=$P( X,U,6)
  7347   "RTN","ORW DXM3",82,0 )
  7348    I $L($P(X ,U,7))  S  PSJNOPC=$P (X,U,7)
  7349   "RTN","ORW DXM3",83,0 )
  7350    I $L($P(X ,U,8))  S  GMRCNOPD=$ P(X,U,8)
  7351   "RTN","ORW DXM3",84,0 )
  7352    I $L($P(X ,U,9))  S  GMRCNOAT=$ P(X,U,9)
  7353   "RTN","ORW DXM3",85,0 )
  7354    I $L($P(X ,U,10)) S  GMRCREAF=$ P(X,U,10)
  7355   "RTN","ORW DXM3",86,0 )
  7356    Q
  7357   "RTN","ORW DXM3",87,0 )
  7358   DLGINFO(IE N,MODE)     ; return  informatio n about a  dialog
  7359   "RTN","ORW DXM3",88,0 )
  7360    ; IEN=Dlg IEN or ORI FN, MODE=0 :Dlg,1:Cop y,2:Change
  7361   "RTN","ORW DXM3",89,0 )
  7362    ; RESULT= DlgIEN^Dlg Type^FormI D^DGrp
  7363   "RTN","ORW DXM3",90,0 )
  7364    ; If MODE ="1;T",don 't check " PS MEDS" f or transfe r order
  7365   "RTN","ORW DXM3",91,0 )
  7366    ; PSMDGP= 1: Unit/Do se  Group
  7367   "RTN","ORW DXM3",92,0 )
  7368    ; PSMDGP= 2: OutPati ent Group
  7369   "RTN","ORW DXM3",93,0 )
  7370    N X0,DLGI EN,TYP,FID ,DGRP,PSMD GP,ISXF
  7371   "RTN","ORW DXM3",94,0 )
  7372    S PSMDGP= 0,ISXF=""
  7373   "RTN","ORW DXM3",95,0 )
  7374    S ISXF=$P (MODE,";", 2)
  7375   "RTN","ORW DXM3",96,0 )
  7376    S MODE=+M ODE
  7377   "RTN","ORW DXM3",97,0 )
  7378    S DLGIEN= IEN I MODE ,(ISXF'="T ") D
  7379   "RTN","ORW DXM3",98,0 )
  7380    . S DLGIE N=+$P($G(^ OR(100,+IE N,0)),U,5)
  7381   "RTN","ORW DXM3",99,0 )
  7382    . I $P(^O RD(101.41, DLGIEN,0), U)="PS MED S" D
  7383   "RTN","ORW DXM3",100, 0)
  7384    . . N PTC AT S PTCAT =$P($G(^OR (100,+IEN, 0)),U,12)
  7385   "RTN","ORW DXM3",101, 0)
  7386    . . I PTC AT="I" S D LGIEN=$O(^ ORD(101.41 ,"B","PSJ  OR PAT OE" ,0)),PSMDG P=1
  7387   "RTN","ORW DXM3",102, 0)
  7388    . . I PTC AT="O" S D LGIEN=$O(^ ORD(101.41 ,"B","PSO  OERR",0)), PSMDGP=2
  7389   "RTN","ORW DXM3",103, 0)
  7390    I MODE,(I SXF="T") S  DLGIEN=+$ P($G(^OR(1 00,+IEN,0) ),U,5)
  7391   "RTN","ORW DXM3",104, 0)
  7392    S X0=$G(^ ORD(101.41 ,DLGIEN,0) ),TYP=$P(X 0,U,4),DGR P=$P(X0,U, 5)
  7393   "RTN","ORW DXM3",105, 0)
  7394    I MODE S  DGRP=+$P($ G(^OR(100, +IEN,0)),U ,11)
  7395   "RTN","ORW DXM3",106, 0)
  7396    ;JD NEW S TART 11/13 /02
  7397   "RTN","ORW DXM3",107, 0)
  7398    I DLGIEN= $O(^ORD(10 1.41,"B"," PSJ OR PAT  OE",0)) S  PSMDGP=1
  7399   "RTN","ORW DXM3",108, 0)
  7400    I DLGIEN= $O(^ORD(10 1.41,"B"," PSO OERR", 0)) S PSMD GP=2
  7401   "RTN","ORW DXM3",109, 0)
  7402    ;JD NEW E ND 11/13/0 2
  7403   "RTN","ORW DXM3",110, 0)
  7404    ; for cop y or chang e, if the  base dialo g has chan ged, use i t's info
  7405   "RTN","ORW DXM3",111, 0)
  7406    I MODE,$G (ORDIALOG) ,(+DLGIEN' =+ORDIALOG ),(PSMDGP= 0) D
  7407   "RTN","ORW DXM3",112, 0)
  7408    . S DLGIE N=+ORDIALO G,DGRP=$P( ^ORD(101.4 1,+ORDIALO G,0),U,5)
  7409   "RTN","ORW DXM3",113, 0)
  7410    D FORMID^ ORWDXM(.FI D,DLGIEN)
  7411   "RTN","ORW DXM3",114, 0)
  7412    Q DLGIEN_ U_TYP_U_FI D_U_DGRP
  7413   "RTN","ORW DXM3",115, 0)
  7414    ;
  7415   "RTN","ORW DXM3",116, 0)
  7416   CHKDSBL(LS T,ID,MODE)   ; return  message i f dialog d isabled
  7417   "RTN","ORW DXM3",117, 0)
  7418    ; ID=DlgI EN or ORIF N, MODE=0: Dialog,1:C opy,2:Chan ge
  7419   "RTN","ORW DXM3",118, 0)
  7420    ; LST=QL_ REJECT + d isabled me ssage or u nchanged
  7421   "RTN","ORW DXM3",119, 0)
  7422    N PKG
  7423   "RTN","ORW DXM3",120, 0)
  7424    S DLGIEN= +ID I MODE  S DLGIEN= +$P($G(^OR (100,+ID,0 )),U,5)
  7425   "RTN","ORW DXM3",121, 0)
  7426    S X0=$G(^ ORD(101.41 ,DLGIEN,0) ),X=$P(X0, U,3)
  7427   "RTN","ORW DXM3",122, 0)
  7428    I '$L(X), ($P(X0,U,4 )="Q") D   ; check de fault dial og
  7429   "RTN","ORW DXM3",123, 0)
  7430    . S DLGIE N=+$$DEFDL G^ORWDXQ($ P(X0,U,5))
  7431   "RTN","ORW DXM3",124, 0)
  7432    . S X=$P( $G(^ORD(10 1.41,DLGIE N,0)),U,3)
  7433   "RTN","ORW DXM3",125, 0)
  7434    I $L(X) D
  7435   "RTN","ORW DXM3",126, 0)
  7436    . I MODE  D GETTXT^O RWORR(.LST ,ID) S LST (.6)="",LS T(.7)="Can not "_$S(M ODE=1:"Cop y",1:"Chan ge")_" -"
  7437   "RTN","ORW DXM3",127, 0)
  7438    . S LST(0 )="8^0",LS T(.5)="Dia log Disabl ed:  "_X
  7439   "RTN","ORW DXM3",128, 0)
  7440    S PKG=$P( X0,"^",7)  I PKG]"",$ P($G(^DIC( 9.4,PKG,0) ),"^",2)=" SD",'$$PAT CH^XPDUTL( "SD*5.3*67 1") S LST( 0)="8^0",L ST(.5)="Di alog Disab led: VSE p atch SD*5. 3*671 not  installed"
  7441   "RTN","ORW DXM3",129, 0)
  7442    Q
  7443   "RTN","ORW DXM3",130, 0)
  7444   CHKVACT(LS T,ID,MODE, ORNP)  ; r eturn mess age if act ion not va lid
  7445   "RTN","ORW DXM3",131, 0)
  7446    ; ID=DlgI EN or ORIF N, MODE=0: Dialog,1:C opy,2:Chan ge
  7447   "RTN","ORW DXM3",132, 0)
  7448    ; LST=QL_ REJECT + i nvalid act ion messag e or uncha nged
  7449   "RTN","ORW DXM3",133, 0)
  7450    Q:'MODE   ; not an a ction on a n order
  7451   "RTN","ORW DXM3",134, 0)
  7452    N X,ACT S  ACT=$S(MO DE=1:"RW", MODE=2:"XX ",1:"")
  7453   "RTN","ORW DXM3",135, 0)
  7454    D VALID^O RWDXA(.X,I D,ACT,ORNP )
  7455   "RTN","ORW DXM3",136, 0)
  7456    I $L(X) D  GETTXT^OR WORR(.LST, ID) D
  7457   "RTN","ORW DXM3",137, 0)
  7458    . S LST(0 )="8^0",LS T(.5)=X,LS T(.6)="",L ST(.7)="Ca nnot "_$S( MODE=1:"Co py",1:"Cha nge")_" -"
  7459   "RTN","ORW DXM3",138, 0)
  7460    Q
  7461   "RTN","ORW DXM3",139, 0)
  7462   CHKCOPY(LS T,ID,FLDS)   ; return  message i f can't co py this or der
  7463   "RTN","ORW DXM3",140, 0)
  7464    ; ID=ORIF N;ACT FLDS =EventType  in 7th pi ece
  7465   "RTN","ORW DXM3",141, 0)
  7466    ; LST=QL_ REJECT + c annot copy  message o r unchange d
  7467   "RTN","ORW DXM3",142, 0)
  7468    I "^A^D^T ^"'[(U_$E( $P(FLDS,U, 7))_U) Q               ; not eve nt delayed
  7469   "RTN","ORW DXM3",143, 0)
  7470    N PKG S P KG=$P($G(^ OR(100,+ID ,0)),U,14)
  7471   "RTN","ORW DXM3",144, 0)
  7472    S PKG=$$N MSP^ORCD(P KG) I PKG= "OR"!(PKG= "PS") Q     ; xfer me ds, generi cs
  7473   "RTN","ORW DXM3",145, 0)
  7474    N ORWCAT  S ORWCAT=$ P($G(^OR(1 00,+ID,0)) ,U,12)
  7475   "RTN","ORW DXM3",146, 0)
  7476    I ORWCAT= "I",("^A^T ^"[(U_$E($ P(FLDS,U,7 ))_U)) Q    ; admit,  xfer inpt
  7477   "RTN","ORW DXM3",147, 0)
  7478    I ORWCAT= "O",$E($P( FLDS,U,7)) ="D" Q                 ; dischar ge outpt
  7479   "RTN","ORW DXM3",148, 0)
  7480    D GETTXT^ ORWORR(.LS T,ID)
  7481   "RTN","ORW DXM3",149, 0)
  7482    I ORWCAT= "I" S LST( .5)="inpat ient order  to outpat ient -"
  7483   "RTN","ORW DXM3",150, 0)
  7484    I ORWCAT= "O" S LST( .5)="outpa tient orde r to inpat ient -"
  7485   "RTN","ORW DXM3",151, 0)
  7486    S:$D(LST( .5)) LST(. 5)="Cannot  copy the  following  "_LST(.5)
  7487   "RTN","ORW DXM3",152, 0)
  7488    S LST(0)= "8^0",LST( .7)=""
  7489   "RTN","ORW DXM3",153, 0)
  7490    Q
  7491   "RTN","ORW DXM3",154, 0)
  7492   BLD4CHG(LS T,ID,FLDS)   ; build  responses  for an edi t
  7493   "RTN","ORW DXM3",155, 0)
  7494    ; ID=ORIF N;ACT FLDS =unused ri ght now
  7495   "RTN","ORW DXM3",156, 0)
  7496    ; LST(0)= Qlvl^RespI D(XOrderID )^DlgIEN^D lgType^For mID^DGrp
  7497   "RTN","ORW DXM3",157, 0)
  7498    N OIDX,OI ,CNT
  7499   "RTN","ORW DXM3",158, 0)
  7500    S (OI,OID X,CNT)=0
  7501   "RTN","ORW DXM3",159, 0)
  7502    S:$D(^OR( 100,+ID,4. 5,"ID","OR DERABLE"))  OIDX=$O(^ OR(100,+ID ,4.5,"ID", "ORDERABLE ",0))
  7503   "RTN","ORW DXM3",160, 0)
  7504    I $D(^OR( 100,+ID,4. 5,OIDX)) D
  7505   "RTN","ORW DXM3",161, 0)
  7506    . F  S CN T=$O(^OR(1 00,+ID,4.5 ,OIDX,CNT) ) Q:'CNT   D
  7507   "RTN","ORW DXM3",162, 0)
  7508    . . S OI= ^(CNT) D V ALDOI
  7509   "RTN","ORW DXM3",163, 0)
  7510    I +LST(0) =8 S LST(. 5)="You ca n not chan ge this or der." Q
  7511   "RTN","ORW DXM3",164, 0)
  7512    S LST(0)= "0^X"_ID_U _$$DLGINFO (+ID,2)
  7513   "RTN","ORW DXM3",165, 0)
  7514    S $P(LST( 0),U,4)="X "
  7515   "RTN","ORW DXM3",166, 0)
  7516    Q
  7517   "RTN","ORW DXM3",167, 0)
  7518   GETIVTYP()  ;
  7519   "RTN","ORW DXM3",168, 0)
  7520    N RESULT, TYPEIEN
  7521   "RTN","ORW DXM3",169, 0)
  7522    S RESULT= ""
  7523   "RTN","ORW DXM3",170, 0)
  7524    S TYPEIEN =$O(^ORD(1 01.41,"B", "OR GTX IV  TYPE","") ) I TYPEIE N'>0 Q RES ULT
  7525   "RTN","ORW DXM3",171, 0)
  7526    S RESULT= $G(ORDIALO G(TYPEIEN, 1))
  7527   "RTN","ORW DXM3",172, 0)
  7528    Q RESULT
  7529   "RTN","ORW DXM3",173, 0)
  7530    ;
  7531   "RTN","ORW DXM3",174, 0)
  7532   VALDOI ; V alidate th e Orderabl e Items
  7533   "RTN","ORW DXM3",175, 0)
  7534    N ORQUIT, ORPS
  7535   "RTN","ORW DXM3",176, 0)
  7536    I $G(^ORD (101.43,OI ,.1)),^(.1 )'>$$NOW^X LFDT D
  7537   "RTN","ORW DXM3",177, 0)
  7538    . S ORQUI T=1
  7539   "RTN","ORW DXM3",178, 0)
  7540    . S LST(0 )="8^0"
  7541   "RTN","ORW DXM3",179, 0)
  7542    I $D(ORQU IT) Q:ORQU IT
  7543   "RTN","ORW DXM3",180, 0)
  7544    S ORPS=$G (^ORD(101. 43,+OI,"PS "))
  7545   "RTN","ORW DXM3",181, 0)
  7546    I $P(ORPS ,U,1,4)="0 ^0^0^0",($ P(ORPS,U,7 )=0) S LST (0)="8^0"
  7547   "RTN","ORW DXM3",182, 0)
  7548    Q
  7549   "RTN","ORW DXM3",183, 0)
  7550   VERDUR(ORD IALOG) ;
  7551   "RTN","ORW DXM3",184, 0)
  7552    ;check fo r duration  value if  a THEN con junation i s used
  7553   "RTN","ORW DXM3",185, 0)
  7554    N CONJ,CO NVALUE,DUR ,I,SUCC
  7555   "RTN","ORW DXM3",186, 0)
  7556    S SUCC=1
  7557   "RTN","ORW DXM3",187, 0)
  7558    S CONJ=$$ PTR^ORCDPS 1("AND/THE N")
  7559   "RTN","ORW DXM3",188, 0)
  7560    S DUR=$$P TR^ORCDPS1 ("DURATION ")
  7561   "RTN","ORW DXM3",189, 0)
  7562    S I=0 F   S I=$O(ORD IALOG(CONJ ,I)) Q:I'> 0!(SUCC=0)   D
  7563   "RTN","ORW DXM3",190, 0)
  7564    . I $$UP^ XLFSTR($E( $G(ORDIALO G(CONJ,I)) ,1))="T" D
  7565   "RTN","ORW DXM3",191, 0)
  7566    . . I '$L ($G(ORDIAL OG(DUR,I)) ) S SUCC=0
  7567   "RTN","ORW DXM3",192, 0)
  7568    Q SUCC
  7569   "RTN","ORW DXM3",193, 0)
  7570    ;
  7571   "RTN","ORW DXM3",194, 0)
  7572   VERORD(OIE N) ;
  7573   "RTN","ORW DXM3",195, 0)
  7574    N IFN,INF USE,INFUID ,ODG,ODP,A SSIV,SUCC, TYPE
  7575   "RTN","ORW DXM3",196, 0)
  7576    S SUCC=0, IFN=ORDIAL OG
  7577   "RTN","ORW DXM3",197, 0)
  7578    S ODP=+$P ($G(^ORD(1 01.41,+IFN ,0)),U,7), ODG=+$P($G (^(0)),U,5 )
  7579   "RTN","ORW DXM3",198, 0)
  7580    S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3)
  7581   "RTN","ORW DXM3",199, 0)
  7582    I ODP'["P S" Q 1
  7583   "RTN","ORW DXM3",200, 0)
  7584    I ODP="PS H" Q 1
  7585   "RTN","ORW DXM3",201, 0)
  7586    ;check in fusion rat e for IV Q O
  7587   "RTN","ORW DXM3",202, 0)
  7588    I ODG="IV  RX"!(ODG= "TPN") D   Q SUCC
  7589   "RTN","ORW DXM3",203, 0)
  7590    .S TYPE=$ $GETIVTYP
  7591   "RTN","ORW DXM3",204, 0)
  7592    .I TYPE=" "
  7593   "RTN","ORW DXM3",205, 0)
  7594    .S PASSIV =$$IVRTECH K
  7595   "RTN","ORW DXM3",206, 0)
  7596    .I PASSIV =0
  7597   "RTN","ORW DXM3",207, 0)
  7598    .S INFUID =$O(^ORD(1 01.41,"B", "OR GTX IN FUSION RAT E",0))
  7599   "RTN","ORW DXM3",208, 0)
  7600    .S INFUSE =$G(ORDIAL OG(INFUID, 1))
  7601   "RTN","ORW DXM3",209, 0)
  7602    .S SUCC=$ $VALINF(TY PE,INFUSE)
  7603   "RTN","ORW DXM3",210, 0)
  7604    .I SUCC=0  Q
  7605   "RTN","ORW DXM3",211, 0)
  7606    .I TYPE=" C" S SUCC= $$IVADFCHK (.ORDIALOG )
  7607   "RTN","ORW DXM3",212, 0)
  7608    I (ODP="P SJ")!(ODP= "PSO"),ODG '="IV RX", ODG'="TPN"  S SUCC=$$ VERDUR(.OR DIALOG)
  7609   "RTN","ORW DXM3",213, 0)
  7610    Q SUCC
  7611   "RTN","ORW DXM3",214, 0)
  7612    ;
  7613   "RTN","ORW DXM3",215, 0)
  7614   VALINF(TYP E,INFUSE)  ;
  7615   "RTN","ORW DXM3",216, 0)
  7616    N SUCC
  7617   "RTN","ORW DXM3",217, 0)
  7618    S SUCC=0
  7619   "RTN","ORW DXM3",218, 0)
  7620    I TYPE="I " D  Q SUC C
  7621   "RTN","ORW DXM3",219, 0)
  7622    .I INFUSE ="" S SUCC =1 Q
  7623   "RTN","ORW DXM3",220, 0)
  7624    .I $TR(IN FUSE,"abcd efghijklmn opqrstuvwx yz","ABCDE FGHIJKLMNO PQRSTUVWXY Z")["INFUS E OVER" S  SUCC=1 Q
  7625   "RTN","ORW DXM3",221, 0)
  7626    .I $L(INF USE)>4 Q
  7627   "RTN","ORW DXM3",222, 0)
  7628    Q 1
  7629   "RTN","ORW DXM3",223, 0)
  7630    ;
  7631   "RTN","ORW DXM3",224, 0)
  7632   VALQO(IFN)  ;Check to  see if it 's a good  QO med
  7633   "RTN","ORW DXM3",225, 0)
  7634    ;If it's  an IV QO:  check if i nfusion ra te entered
  7635   "RTN","ORW DXM3",226, 0)
  7636    ;If it's  an UD QO:  check if d osage ente red
  7637   "RTN","ORW DXM3",227, 0)
  7638    ;regular  order trea ted as goo d QO
  7639   "RTN","ORW DXM3",228, 0)
  7640    ;
  7641   "RTN","ORW DXM3",229, 0)
  7642    I IFN[";" ,($$UPCTCH K^ORWDXA(+ IFN)) Q 0
  7643   "RTN","ORW DXM3",230, 0)
  7644    I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)'="Q" Q  1
  7645   "RTN","ORW DXM3",231, 0)
  7646    N ODP,ODG ,INFUID,IN FUSE,DSAGE ID,SUCC,PA SSIV,TYPE, PRIORID,DO NEID,OK
  7647   "RTN","ORW DXM3",232, 0)
  7648    S SUCC=0
  7649   "RTN","ORW DXM3",233, 0)
  7650    S ODP=+$P ($G(^ORD(1 01.41,IFN, 0)),U,7),O DG=+$P($G( ^(0)),U,5)
  7651   "RTN","ORW DXM3",234, 0)
  7652    S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3)
  7653   "RTN","ORW DXM3",235, 0)
  7654    I ODP'["P S" Q 1
  7655   "RTN","ORW DXM3",236, 0)
  7656    I ODP="PS H" Q 1
  7657   "RTN","ORW DXM3",237, 0)
  7658    ;check fo r DONE urg ency/prior ity on Out patient QO
  7659   "RTN","ORW DXM3",238, 0)
  7660    I ODG="O  RX" D  Q:' OK 0
  7661   "RTN","ORW DXM3",239, 0)
  7662    . S OK=1, PRIORID=$O (^ORD(101. 41,"B","OR  GTX URGEN CY",0)) Q: 'PRIORID
  7663   "RTN","ORW DXM3",240, 0)
  7664    . S DONEI D=$O(^ORD( 101.42,"B" ,"DONE",0) ) Q:'DONEI D
  7665   "RTN","ORW DXM3",241, 0)
  7666    . I $G(OR DIALOG(PRI ORID,1))=D ONEID S OK =0
  7667   "RTN","ORW DXM3",242, 0)
  7668    ;check in fusion rat e for IV Q O
  7669   "RTN","ORW DXM3",243, 0)
  7670    I ODG="IV  RX"!(ODG= "TPN") D
  7671   "RTN","ORW DXM3",244, 0)
  7672    . S INFUI D=$O(^ORD( 101.41,"B" ,"OR GTX I NFUSION RA TE",0))
  7673   "RTN","ORW DXM3",245, 0)
  7674    . S TYPE= $$GETIVTYP
  7675   "RTN","ORW DXM3",246, 0)
  7676    . I TYPE= "" Q
  7677   "RTN","ORW DXM3",247, 0)
  7678    . I $D(OR DIALOG(INF UID,1)) D
  7679   "RTN","ORW DXM3",248, 0)
  7680    . . I TYP E="I" D  Q
  7681   "RTN","ORW DXM3",249, 0)
  7682    . . . S I NFUSE=$G(O RDIALOG(IN FUID,1))
  7683   "RTN","ORW DXM3",250, 0)
  7684    . . . I I NFUSE="" Q
  7685   "RTN","ORW DXM3",251, 0)
  7686    . . . I I NFUSE["INF USE OVER"  S SUCC=1 Q
  7687   "RTN","ORW DXM3",252, 0)
  7688    . . . I $ L(INFUSE)> 4 Q
  7689   "RTN","ORW DXM3",253, 0)
  7690    . . . I + INFUSE>0 S  INFUSE="I NFUSE OVER  "_INFUSE_ " Minutes"
  7691   "RTN","ORW DXM3",254, 0)
  7692    . . . S O RDIALOG(IN FUID,1)=IN FUSE,SUCC= 1
  7693   "RTN","ORW DXM3",255, 0)
  7694    . . S SUC C=1
  7695   "RTN","ORW DXM3",256, 0)
  7696    . ; addit ive freque ncy check/ infusion r ate checks  for conti nuous orde rs
  7697   "RTN","ORW DXM3",257, 0)
  7698    . I TYPE= "C" D  I S UCC=0 Q
  7699   "RTN","ORW DXM3",258, 0)
  7700    . . I $D( ORDIALOG(I NFUID,1))  S SUCC=1 I  SUCC=0 Q
  7701   "RTN","ORW DXM3",259, 0)
  7702    . . S SUC C=$$IVADFC HK(.ORDIAL OG)
  7703   "RTN","ORW DXM3",260, 0)
  7704    . I SUCC= 0 Q
  7705   "RTN","ORW DXM3",261, 0)
  7706    . I '$D(O RDIALOG(IN FUID,1)),T YPE="I" S  SUCC=1
  7707   "RTN","ORW DXM3",262, 0)
  7708    . S PASSI V=$$IVRTEC HK
  7709   "RTN","ORW DXM3",263, 0)
  7710    . I SUCC= 0 Q
  7711   "RTN","ORW DXM3",264, 0)
  7712    . I PASSI V=0 S SUCC =0
  7713   "RTN","ORW DXM3",265, 0)
  7714    . I SUCC= 1,$$ISMISS FL(.ORDIAL OG,TYPE)=1  S SUCC=0
  7715   "RTN","ORW DXM3",266, 0)
  7716    ;check do sage for U D QO
  7717   "RTN","ORW DXM3",267, 0)
  7718    I (ODP="P SJ")!(ODP= "PSO"),ODG '="IV RX", ODG'="TPN"  D
  7719   "RTN","ORW DXM3",268, 0)
  7720    . S DSAGE ID=$O(^ORD (101.41,"B ","OR GTX  INSTRUCTIO NS",0))
  7721   "RTN","ORW DXM3",269, 0)
  7722    . I $D(OR DIALOG(DSA GEID,1)) S  SUCC=1
  7723   "RTN","ORW DXM3",270, 0)
  7724    . I SUCC= 0 Q
  7725   "RTN","ORW DXM3",271, 0)
  7726    . ;
  7727   "RTN","ORW DXM3",272, 0)
  7728    . S SUCC= $$VERDUR(. ORDIALOG)
  7729   "RTN","ORW DXM3",273, 0)
  7730    ;
  7731   "RTN","ORW DXM3",274, 0)
  7732    I SUCC=1, $P($G(^ORD (101.41,IF N,5)),U,8)  D
  7733   "RTN","ORW DXM3",275, 0)
  7734    .N COMMID ,WPCNT
  7735   "RTN","ORW DXM3",276, 0)
  7736    .S COMMID =$O(^ORD(1 01.41,"B", "OR GTX WO RD PROCESS ING 1",0))
  7737   "RTN","ORW DXM3",277, 0)
  7738    .S COMMID =$O(^ORD(1 01.41,IFN, 6,"D",COMM ID,0))
  7739   "RTN","ORW DXM3",278, 0)
  7740    .I COMMID  S WPCNT=0  F  S WPCN T=$O(^ORD( 101.41,IFN ,6,COMMID, 2,WPCNT))  Q:'WPCNT!( 'SUCC)  D
  7741   "RTN","ORW DXM3",279, 0)
  7742    ..I ^ORD( 101.41,IFN ,6,COMMID, 2,WPCNT,0) ["^" S SUC C=0
  7743   "RTN","ORW DXM3",280, 0)
  7744    Q SUCC
  7745   "RTN","ORW DXM3",281, 0)
  7746    ;
  7747   "RTN","ORW DXM3",282, 0)
  7748   IVRTECHK()  ;
  7749   "RTN","ORW DXM3",283, 0)
  7750    N RTIEN,R TVALUE,RES ULT
  7751   "RTN","ORW DXM3",284, 0)
  7752    N CNT,NUM ,ORDERIDS, OIIEN,OTYP E,ROUTE
  7753   "RTN","ORW DXM3",285, 0)
  7754    S CNT=0,R ESULT=0
  7755   "RTN","ORW DXM3",286, 0)
  7756    S RTIEN=+ $P($G(ORDI ALOG("B"," ROUTE")),U ,2) I RTIE N'>0 Q RES ULT
  7757   "RTN","ORW DXM3",287, 0)
  7758    S RTVALUE =+$G(ORDIA LOG(RTIEN, 1)) I RTVA LUE'>0 Q R ESULT
  7759   "RTN","ORW DXM3",288, 0)
  7760    F OTYPE=" SOLUTION", "ADDITIVE"  D
  7761   "RTN","ORW DXM3",289, 0)
  7762    .S OIIEN= +$P($G(ORD IALOG("B", OTYPE)),U, 2) I OIIEN >0 D
  7763   "RTN","ORW DXM3",290, 0)
  7764    ..S NUM=0  F  S NUM= $O(ORDIALO G(OIIEN,NU M)) Q:NUM' >0  I +$G( ORDIALOG(O IIEN,NUM)) >0 D
  7765   "RTN","ORW DXM3",291, 0)
  7766    ...S CNT= CNT+1,ORDE RIDS(CNT)= ORDIALOG(O IIEN,NUM)
  7767   "RTN","ORW DXM3",292, 0)
  7768    I $D(ORDE RIDS)=0 Q
  7769   "RTN","ORW DXM3",293, 0)
  7770    S ROUTE=$ $IVQOVAL^O RWDPS33(.O RDERIDS,RT VALUE)
  7771   "RTN","ORW DXM3",294, 0)
  7772    I ROUTE=" " S ORDIAL OG(RTIEN,1 )=ROUTE
  7773   "RTN","ORW DXM3",295, 0)
  7774    I ROUTE'= "" S RESUL T=1
  7775   "RTN","ORW DXM3",296, 0)
  7776    ;K ^TMP($ J,"ORWDXM3  IVRTECHK" )
  7777   "RTN","ORW DXM3",297, 0)
  7778    ;D ALL^PS S51P2(RTVA LUE,,,,"OR WDXM3 IVRT ECHK")
  7779   "RTN","ORW DXM3",298, 0)
  7780    ;I +^TMP( $J,"ORWDXM 3 IVRTECHK ",RTVALUE, 6)'=1 S OR DIALOG(RTI EN,1)="",R ESULT=0
  7781   "RTN","ORW DXM3",299, 0)
  7782    ;K ^TMP($ J,"ORWDXM3  IVRTECHK" )
  7783   "RTN","ORW DXM3",300, 0)
  7784    Q RESULT
  7785   "RTN","ORW DXM3",301, 0)
  7786    ;
  7787   "RTN","ORW DXM3",302, 0)
  7788   ISUDQO(ORY ,DLGID) ;T rue: is un it dose qu ick order
  7789   "RTN","ORW DXM3",303, 0)
  7790    S ORY=0
  7791   "RTN","ORW DXM3",304, 0)
  7792    Q:'$D(^OR D(101.41,D LGID,0))
  7793   "RTN","ORW DXM3",305, 0)
  7794    N CLODGRP ,CLIVDGRP, UDGRP1,UDG RP2,DLGTYP ,DLGGRP
  7795   "RTN","ORW DXM3",306, 0)
  7796    S UDGRP1= $O(^ORD(10 0.98,"B"," UD RX",0))
  7797   "RTN","ORW DXM3",307, 0)
  7798    S UDGRP2= $O(^ORD(10 0.98,"B"," I RX",0))
  7799   "RTN","ORW DXM3",308, 0)
  7800    S CLODGRP =$O(^ORD(1 00.98,"B", "CLINIC ME DICATIONS" ,""))
  7801   "RTN","ORW DXM3",309, 0)
  7802    S CLIVDGR P=$O(^ORD( 100.98,"B" ,"CLINIC I NFUSIONS", ""))
  7803   "RTN","ORW DXM3",310, 0)
  7804    S DLGTYP= $P($G(^ORD (101.41,DL GID,0)),U, 4)
  7805   "RTN","ORW DXM3",311, 0)
  7806    S DLGGRP= $P($G(^ORD (101.41,DL GID,0)),U, 5)
  7807   "RTN","ORW DXM3",312, 0)
  7808    I (DLGTYP ="Q"),((DL GGRP=UDGRP 1)!(DLGGRP =UDGRP2)!( DLGGRP=CLO DGRP)!(DLG GRP=CLIVDG RP)) S ORY =1
  7809   "RTN","ORW DXM3",313, 0)
  7810    Q
  7811   "RTN","ORW DXM3",314, 0)
  7812    ;
  7813   "RTN","ORW DXM3",315, 0)
  7814   SDRTCVER(O RDIALOG) ;
  7815   "RTN","ORW DXM3",316, 0)
  7816    ;Return t o Clinic Q O verifier
  7817   "RTN","ORW DXM3",317, 0)
  7818    I +$$VAL^ ORCD("NUMB ER OF APPO INTMENTS") >1,+$$VAL^ ORCD("INTE RVAL")<1 Q  0
  7819   "RTN","ORW DXM3",318, 0)
  7820    I +$$VAL^ ORCD("NUMB ER OF APPO INTMENTS") =1,+$$VAL^ ORCD("INTE RVAL")>0 Q  0
  7821   "RTN","ORW DXM3",319, 0)
  7822    Q 1
  7823   "RTN","ORW DXM3",320, 0)
  7824    ;
  7825   "RTN","ORW DXM4")
  7826   0^5^B43793 101
  7827   "RTN","ORW DXM4",1,0)
  7828   ORWDXM4 ;  SLC/KCM -  Order Dial ogs, Menus ;05/09/17  ;05/10/17   07:48
  7829   "RTN","ORW DXM4",2,0)
  7830    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,215,2 96,280,394 ,350,434** ;Dec 17, 1 997;Build  31
  7831   "RTN","ORW DXM4",3,0)
  7832    ;
  7833   "RTN","ORW DXM4",4,0)
  7834   SETUP ; --  setup dia log (conti nued from  ORWDXM1)
  7835   "RTN","ORW DXM4",5,0)
  7836    ;    if x fer med or der, setup  ORDIALOG  differentl y
  7837   "RTN","ORW DXM4",6,0)
  7838    I ORWMODE ,$$ISMED(O RIT),$$CHG STS(ORCAT, ORIT) D ME DXFER Q
  7839   "RTN","ORW DXM4",7,0)
  7840    ;    get  base dialo g (based o n display  group) & l ocation of  responses
  7841   "RTN","ORW DXM4",8,0)
  7842    I ORWMODE  D
  7843   "RTN","ORW DXM4",9,0)
  7844    . S ORDG= $P(^OR(100 ,+ORIT,0), U,11),ORDI ALOG=+$P(^ (0),U,5)
  7845   "RTN","ORW DXM4",10,0 )
  7846    . S RSPRE F="^OR(100 ,"_+ORIT_" ,4.5)"
  7847   "RTN","ORW DXM4",11,0 )
  7848    E  D
  7849   "RTN","ORW DXM4",12,0 )
  7850    . N X0 S  X0=$G(^ORD (101.41,OR IT,0))
  7851   "RTN","ORW DXM4",13,0 )
  7852    . S ORDIA LOG=$S($P( X0,U,4)="D ":ORIT,1:0 )
  7853   "RTN","ORW DXM4",14,0 )
  7854    . S ORDG= $P(X0,U,5)  Q:'ORDG
  7855   "RTN","ORW DXM4",15,0 )
  7856    . I 'ORDI ALOG S ORD IALOG=+$$D EFDLG^ORWD XQ(ORDG)
  7857   "RTN","ORW DXM4",16,0 )
  7858    . S RSPRE F="^ORD(10 1.41,"_ORI T_",6)"
  7859   "RTN","ORW DXM4",17,0 )
  7860    ;    setu p the ORDI ALOG array
  7861   "RTN","ORW DXM4",18,0 )
  7862    D GETDLG^ ORCD(ORDIA LOG)
  7863   "RTN","ORW DXM4",19,0 )
  7864    D GETORDE R^ORCD(RSP REF)
  7865   "RTN","ORW DXM4",20,0 )
  7866    Q
  7867   "RTN","ORW DXM4",21,0 )
  7868   SETUPS ; - - setup fo r specific  types of  dialogs (c ontinued f rom ORWDXM 1)
  7869   "RTN","ORW DXM4",22,0 )
  7870    ; pharmac y uses ORC AT to know  order pac kage
  7871   "RTN","ORW DXM4",23,0 )
  7872    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO OERR ",0)) S OR CAT="O"
  7873   "RTN","ORW DXM4",24,0 )
  7874    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR P AT OE",0))  D
  7875   "RTN","ORW DXM4",25,0 )
  7876    . I ORCAT ="O",'ORIM O S ORWPSW RG="" ; no t auto-ack , pt not i npt
  7877   "RTN","ORW DXM4",26,0 )
  7878    . S ORCAT ="I"
  7879   "RTN","ORW DXM4",27,0 )
  7880    I ORCAT=" O",$D(OREV ENT("EFFEC TIVE")),(O RDG=+$O(^O RD(100.98, "B","O RX" ,0))) D
  7881   "RTN","ORW DXM4",28,0 )
  7882    . S ORDIA LOG($O(^OR D(101.41," B",X,0)),1 )=OREVENT( "EFFECTIVE ")
  7883   "RTN","ORW DXM4",29,0 )
  7884    ;p394 for ce interac tive dialo g for imag ing QO for  female of  child-bea ring age.
  7885   "RTN","ORW DXM4",30,0 )
  7886    N ORRAORD  S ORRAORD =0 ;set is  radiology  flag to f alse (0)
  7887   "RTN","ORW DXM4",31,0 )
  7888    I ORDIALO G=$O(^ORD( 101.41,"B" ,"RA OERR  EXAM",0))  D
  7889   "RTN","ORW DXM4",32,0 )
  7890    . N ORPRM PT1,ORPRMP T2,ORCODE  S ORRAORD= 1
  7891   "RTN","ORW DXM4",33,0 )
  7892    . Q:($G(O RTYPE)'="Q ")!($G(ORS EX)'="F")
  7893   "RTN","ORW DXM4",34,0 )
  7894    . S ORPRM PT1=$O(^OR D(101.41," B","OR GTX  PREGNANT" ,0)),ORPRM PT2=$P($G( ORDIALOG(O RPRMPT1)), "^")
  7895   "RTN","ORW DXM4",35,0 )
  7896    . S ORCOD E=$G(^ORD( 101.41,ORD IALOG,10,O RPRMPT2,7) ) N Y S Y= "Y" X ORCO DE K ORCOD E
  7897   "RTN","ORW DXM4",36,0 )
  7898    . S:Y="Y"  ORWPSWRG= "" ;
  7899   "RTN","ORW DXM4",37,0 )
  7900    I ORRAORD  D RA^ORWD XM2 G XENV
  7901   "RTN","ORW DXM4",38,0 )
  7902    I ORDIALO G=$O(^ORD( 101.41,"B" ,"LR OTHER  LAB TESTS ",0))   D  LR^ORWDXM2  G XENV
  7903   "RTN","ORW DXM4",39,0 )
  7904    I ORDIALO G=$O(^ORD( 101.41,"B" ,"FHW1",0) )                  D  DO^ORWDXM2  G XENV
  7905   "RTN","ORW DXM4",40,0 )
  7906    I ORDIALO G=$O(^ORD( 101.41,"B" ,"FHW2",0) )                  D  EL^ORWDXM2  G XENV
  7907   "RTN","ORW DXM4",41,0 )
  7908    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR P AT OE",0))         D  UD^ORWDXM2  G XENV
  7909   "RTN","ORW DXM4",42,0 )
  7910    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR C LINIC OE", 0))         D UD^ORWD XM2 G XENV
  7911   "RTN","ORW DXM4",43,0 )
  7912    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJI OR  PAT FLUID  OE",0)) D  IV^ORWDXM2  G XENV
  7913   "RTN","ORW DXM4",44,0 )
  7914    I ORDIALO G=$O(^ORD( 101.41,"B" ,"CLINIC O R PAT FLUI D OE",0))  D IV^ORWDX M2 G XENV
  7915   "RTN","ORW DXM4",45,0 )
  7916    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO OERR ",0))              D  OP^ORWDXM2  G XENV
  7917   "RTN","ORW DXM4",46,0 )
  7918    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO SUPP LY",0))            D  OP^ORWDXM2  G XENV
  7919   "RTN","ORW DXM4",47,0 )
  7920    I ORDIALO G=$O(^ORD( 101.41,"B" ,"PS MEDS" ,0))               D  PS^ORWDPS3  G XENV
  7921   "RTN","ORW DXM4",48,0 )
  7922    I ORDIALO G=$O(^ORD( 101.41,"B" ,"VBEC BLO OD BANK",0 ))      D  VB^ORWDXM4  G XENV
  7923   "RTN","ORW DXM4",49,0 )
  7924    I ORDIALO G=$O(^ORD( 101.41,"B" ,"SD RTC", 0))      D  RTC^ORWDS D1 G XENV
  7925   "RTN","ORW DXM4",50,0 )
  7926    I ORDIALO G=$O(^ORD( 101.41,"B" ,"GMRAOR A LLERGY ENT ER/EDIT",0 )) S ORQUI T=1
  7927   "RTN","ORW DXM4",51,0 )
  7928   XENV ;     end case
  7929   "RTN","ORW DXM4",52,0 )
  7930    Q
  7931   "RTN","ORW DXM4",53,0 )
  7932   MEDXFER ;  -- setup O RDIALOG fo r a med th at is tran sferred (f rom SETUP)
  7933   "RTN","ORW DXM4",54,0 )
  7934    ;
  7935   "RTN","ORW DXM4",55,0 )
  7936    ; use ORW DPS3 if OR *3*94 inst alled
  7937   "RTN","ORW DXM4",56,0 )
  7938    I ORWP94  G MEDXFER^ ORWDPS3
  7939   "RTN","ORW DXM4",57,0 )
  7940    ;
  7941   "RTN","ORW DXM4",58,0 )
  7942    N UDLG,FD LG,ODLG,DL G,OI K ^TM P("PS",$J)
  7943   "RTN","ORW DXM4",59,0 )
  7944    S UDLG=$O (^ORD(101. 41,"AB","P SJ OR PAT  OE",0))
  7945   "RTN","ORW DXM4",60,0 )
  7946    S FDLG=$O (^ORD(101. 41,"AB","P SJI OR PAT  FLUID OE" ,0))
  7947   "RTN","ORW DXM4",61,0 )
  7948    S ODLG=$O (^ORD(101. 41,"AB","P SO OERR",0 ))
  7949   "RTN","ORW DXM4",62,0 )
  7950    S DLG=$P( $G(^OR(100 ,+ORIT,0)) ,U,5)
  7951   "RTN","ORW DXM4",63,0 )
  7952    S ORDIALO G=$S(+DLG= UDLG:ODLG, +DLG=ODLG: UDLG,+DLG= FDLG:FDLG, 1:0)
  7953   "RTN","ORW DXM4",64,0 )
  7954    I 'ORDIAL OG D SETER R(ORIT,"In complete O rder Recor d") Q
  7955   "RTN","ORW DXM4",65,0 )
  7956    S ORDG=+$ P(^ORD(101 .41,ORDIAL OG,0),U,5)
  7957   "RTN","ORW DXM4",66,0 )
  7958    D GETDLG^ ORCD(ORDIA LOG)
  7959   "RTN","ORW DXM4",67,0 )
  7960    D GETORDE R^ORCD("^O R(100,"_+O RIT_",4.5) ")
  7961   "RTN","ORW DXM4",68,0 )
  7962    S OI=$$VA L^ORCD("ME DICATION")
  7963   "RTN","ORW DXM4",69,0 )
  7964    I '$$MEDO K(OI,ORCAT ) D SETERR (ORIT,"Thi s may not  be ordered  as an "_$ S(ORCAT="I ":"in",1:" out")_"pat ient drug. ") Q
  7965   "RTN","ORW DXM4",70,0 )
  7966    I $G(^ORD (101.43,OI ,.1)),(^(. 1)<$$NOW^X LFDT) D SE TERR(ORIT, "This may  no longer  be ordered .") Q
  7967   "RTN","ORW DXM4",71,0 )
  7968    K ORDIALO G($$PTR("D ISPENSE DR UG"),1)
  7969   "RTN","ORW DXM4",72,0 )
  7970    K ORDIALO G($$PTR("W ORD PROCES SING 1"),1 )
  7971   "RTN","ORW DXM4",73,0 )
  7972    I ORDIALO G=ODLG D I N2OUT  ; c ould call   IN^ORCMED  except fo r writes
  7973   "RTN","ORW DXM4",74,0 )
  7974    I ORDIALO G=UDLG D O UT2IN  ; c ould call  OUT^ORCMED  except fo r writes
  7975   "RTN","ORW DXM4",75,0 )
  7976    Q
  7977   "RTN","ORW DXM4",76,0 )
  7978   IN2OUT ; - - make inp atient res ponses int o outpatie nt
  7979   "RTN","ORW DXM4",77,0 )
  7980    N I,DDRUG ,PKGID,DOS E
  7981   "RTN","ORW DXM4",78,0 )
  7982    S DOSE=$G (ORDIALOG( $$PTR("INS TRUCTIONS" ),1))
  7983   "RTN","ORW DXM4",79,0 )
  7984    F I="INST RUCTIONS", "UNITS/DOS E","FREE T EXT","DISP ENSE DRUG"  K ORDIALO G($$PTR(I) ,1)
  7985   "RTN","ORW DXM4",80,0 )
  7986    S PKGID=$ G(^OR(100, +ORIT,4))_ ";"_$P(^(0 ),U,12)
  7987   "RTN","ORW DXM4",81,0 )
  7988    D OEL^PSO ORRL(+ORVP ,PKGID) S  DDRUG=$G(^ TMP("PS",$ J,"DD",1,0 ))
  7989   "RTN","ORW DXM4",82,0 )
  7990    I $P(DDRU G,U,3) S O RDIALOG($$ PTR("DISPE NSE DRUG") ,1)=$P(DDR UG,U,3)
  7991   "RTN","ORW DXM4",83,0 )
  7992    ;    keep  instructi ons if IV  med, other wise use u nits retur ned
  7993   "RTN","ORW DXM4",84,0 )
  7994    I $P($G(^ ORD(101.43 ,OI,"PS")) ,U)=2 S OR DIALOG($$P TR("INSTRU CTIONS"),1 )=DOSE
  7995   "RTN","ORW DXM4",85,0 )
  7996    E  S:$P(D DRUG,U,2)  ORDIALOG($ $PTR("INST RUCTIONS") ,1)=$P(DDR UG,U,2)
  7997   "RTN","ORW DXM4",86,0 )
  7998    ;    chan ge orderab le item if  new order able item  returned
  7999   "RTN","ORW DXM4",87,0 )
  8000    I $P(DDRU G,U,4),$P( DDRUG,U,4) '=+$P($G(^ ORD(101.43 ,OI,0)),U, 2) D
  8001   "RTN","ORW DXM4",88,0 )
  8002    . S OI=+$ O(^ORD(101 .43,"ID",+ $P(DDRUG,U ,4)_";99PS P",0))
  8003   "RTN","ORW DXM4",89,0 )
  8004    . S:OI OR DIALOG($$P TR("ORDERA BLE ITEM") ,1)=OI
  8005   "RTN","ORW DXM4",90,0 )
  8006    Q
  8007   "RTN","ORW DXM4",91,0 )
  8008   OUT2IN ; m ake outpat ient respo nses into  inpatient
  8009   "RTN","ORW DXM4",92,0 )
  8010    N ORP,ORI ,PROMPT,PK GID,DDRUG, ONE
  8011   "RTN","ORW DXM4",93,0 )
  8012    D CHANGED ^ORCDPS("X FR") ; Kil l extra va lues not i n inpt dia log
  8013   "RTN","ORW DXM4",94,0 )
  8014    S PKGID=$ G(^OR(100, +ORIT,4))_ ";"_$P(^(0 ),U,12)
  8015   "RTN","ORW DXM4",95,0 )
  8016    D OEL^PSO ORRL(+ORVP ,PKGID) S  DDRUG=$G(^ TMP("PS",$ J,"DD",1,0 ))
  8017   "RTN","ORW DXM4",96,0 )
  8018    S:$P(DDRU G,U,3) ORD IALOG($$PT R("DISPENS E DRUG"),1 )=$P(DDRUG ,U,3)
  8019   "RTN","ORW DXM4",97,0 )
  8020    I $P(DDRU G,U,4),$P( DDRUG,U,4) '=+$P($G(^ ORD(101.43 ,+OI,0)),U ,2) D
  8021   "RTN","ORW DXM4",98,0 )
  8022    . S OI=+$ O(^ORD(101 .43,"ID",+ $P(DDRUG,U ,4)_";99PS P",0))
  8023   "RTN","ORW DXM4",99,0 )
  8024    . S:OI OR DIALOG($$P TR("ORDERA BLE ITEM") ,1)=OI
  8025   "RTN","ORW DXM4",100, 0)
  8026    S ONE=$O( ORDIALOG($ $PTR("INST RUCTIONS") ,0)) ; fir st inst
  8027   "RTN","ORW DXM4",101, 0)
  8028    F ORP="RO UTE","SCHE DULE" D
  8029   "RTN","ORW DXM4",102, 0)
  8030    . S ORI=0 ,PROMPT=$$ PTR(ORP)
  8031   "RTN","ORW DXM4",103, 0)
  8032    . F  S OR I=$O(ORDIA LOG(PROMPT ,ORI)) Q:O RI'>0  I O RDIALOG(PR OMPT,ORI)= ""!(ORI>ON E) K ORDIA LOG(PROMPT ,ORI)
  8033   "RTN","ORW DXM4",104, 0)
  8034    Q
  8035   "RTN","ORW DXM4",105, 0)
  8036   PTR(NAME)  ; -- Retur ns pointer  to OR GTX  NAME (cop ied from O RCMED)
  8037   "RTN","ORW DXM4",106, 0)
  8038    Q +$O(^OR D(101.41," AB",$E("OR  GTX "_NAM E,1,63),0) )
  8039   "RTN","ORW DXM4",107, 0)
  8040    ;
  8041   "RTN","ORW DXM4",108, 0)
  8042   MEDOK(OI,C AT)   ; re turn 1 if  med may be  ordered f or this pa tient cate gory
  8043   "RTN","ORW DXM4",109, 0)
  8044    N P S P=$ S(CAT="I": 1,1:2)
  8045   "RTN","ORW DXM4",110, 0)
  8046    Q $P($G(^ ORD(101.43 ,+OI,"PS") ),U,P)
  8047   "RTN","ORW DXM4",111, 0)
  8048    ;
  8049   "RTN","ORW DXM4",112, 0)
  8050   CHGSTS(ECA T,IFN)         ; retu rn 1 if ou t to in or  in to out
  8051   "RTN","ORW DXM4",113, 0)
  8052    N OCAT
  8053   "RTN","ORW DXM4",114, 0)
  8054    S OCAT=$P ($G(^OR(10 0,+IFN,0)) ,U,12)
  8055   "RTN","ORW DXM4",115, 0)
  8056    Q OCAT'=E CAT
  8057   "RTN","ORW DXM4",116, 0)
  8058    ;
  8059   "RTN","ORW DXM4",117, 0)
  8060   ISMED(IFN)       ; re turn 1 if  this is a  pharmacy o rder
  8061   "RTN","ORW DXM4",118, 0)
  8062    N PKG S P KG=$P($G(^ OR(100,+IF N,0)),U,14 )
  8063   "RTN","ORW DXM4",119, 0)
  8064    Q $$NMSP^ ORCD(PKG)= "PS"
  8065   "RTN","ORW DXM4",120, 0)
  8066   SETERR(ID, X)       ;  sets LST  to rejecti on with er ror messag e
  8067   "RTN","ORW DXM4",121, 0)
  8068    D GETTXT^ ORWORR(.LS T,ID)
  8069   "RTN","ORW DXM4",122, 0)
  8070    S LST(0)= "8^0",LST( .5)=X,LST( .6)=""
  8071   "RTN","ORW DXM4",123, 0)
  8072    Q
  8073   "RTN","ORW DXM4",124, 0)
  8074   VB ; setup  environme nt for VBE CS
  8075   "RTN","ORW DXM4",125, 0)
  8076    ; -- setu p ORTIME,  ORIMTIME a rrays
  8077   "RTN","ORW DXM4",126, 0)
  8078    D GETIMES ^ORCDLR1
  8079   "RTN","ORW DXM4",127, 0)
  8080    ; -- setu p ORCOMP,  ORTEST, an d ORTAS
  8081   "RTN","ORW DXM4",128, 0)
  8082    S (ORCOMP ,ORTEST,OR TAS)=""
  8083   "RTN","ORW DXM4",129, 0)
  8084    N P,PROMP T,I,X,X0
  8085   "RTN","ORW DXM4",130, 0)
  8086    S P=+$O(^ ORD(101.41 ,"AB","OR  GTX ORDERA BLE ITEM", 0))
  8087   "RTN","ORW DXM4",131, 0)
  8088    S I=0 F   S I=$O(ORD IALOG(P,I) ) Q:I<1  S  X=+$G(ORD IALOG(P,I) ) D
  8089   "RTN","ORW DXM4",132, 0)
  8090    . S X0=$G (^ORD(101. 43,X,"VB") ),X=+$P($G (^(0)),U,2 )
  8091   "RTN","ORW DXM4",133, 0)
  8092    . I $P(X0 ,U) S ORCO MP=ORCOMP_ $S($L(ORCO MP):U,1:"" )_X Q
  8093   "RTN","ORW DXM4",134, 0)
  8094    . S ORTES T=ORTEST_$ S($L(ORTES T):U,1:"") _X
  8095   "RTN","ORW DXM4",135, 0)
  8096    . I X=2 S  ORTAS=1
  8097   "RTN","ORW DXM4",136, 0)
  8098    I '$D(ORT EST("Lab C ollSamp"))  D
  8099   "RTN","ORW DXM4",137, 0)
  8100    . N I,V,T ,LC S LC=1
  8101   "RTN","ORW DXM4",138, 0)
  8102    . F I=1:1 :$L(ORTEST ,U) S V=+$ P(ORTEST,U ,I) D  Q:' LC  ;no LC  samp
  8103   "RTN","ORW DXM4",139, 0)
  8104    .. S T=$$ LAB60^ORCD VBEC(V) ;V BECS ID ->  #60 ien
  8105   "RTN","ORW DXM4",140, 0)
  8106    .. I '$P( $G(^LAB(60 ,T,0)),U,9 ) S LC=0 Q
  8107   "RTN","ORW DXM4",141, 0)
  8108    . S ORTES T("Lab Col lSamp")=LC
  8109   "RTN","ORW DXM4",142, 0)
  8110    I '$D(ORT IME),'$D(O RIMTIME) D  GETIMES^O RCDLR1
  8111   "RTN","ORW DXM4",143, 0)
  8112    S PROMPT= $O(^ORD(10 1.41,"B"," OR GTX COL LECTION TY PE",0))
  8113   "RTN","ORW DXM4",144, 0)
  8114    I $D(ORDI ALOG(PROMP T,1)) S OR COLLCT=ORD IALOG(PROM PT,1) I 1
  8115   "RTN","ORW DXM4",145, 0)
  8116    E  S EDIT ONLY=0,ORC OLLCT=$$CO LLTYPE^ORC DLR1
  8117   "RTN","ORW DXM4",146, 0)
  8118    I ORCOLLC T="I" D
  8119   "RTN","ORW DXM4",147, 0)
  8120    . S PROMP T=$O(^ORD( 101.41,"B" ,"OR GTX S TART DATE/ TIME",0))
  8121   "RTN","ORW DXM4",148, 0)
  8122    . D LRICT MOK^ORWDXM 2
  8123   "RTN","ORW DXM4",149, 0)
  8124    Q
  8125   "RTN","ORW DXM4",150, 0)
  8126   VBASK(I) ;  set the O RASK varia ble for ch ild compon ent prompt s in VBECS  order
  8127   "RTN","ORW DXM4",151, 0)
  8128    I ORDIALO G'=$O(^ORD (101.41,"B ","VBEC BL OOD BANK", 0)) Q
  8129   "RTN","ORW DXM4",152, 0)
  8130    N P S P=+ $O(^ORD(10 1.41,"AB", "OR GTX OR DERABLE IT EM",0))
  8131   "RTN","ORW DXM4",153, 0)
  8132    N OI S OI =+$G(ORDIA LOG(P,I))
  8133   "RTN","ORW DXM4",154, 0)
  8134    I +$G(^OR D(101.43,+ $G(OI),"VB ")) S ORAS K=1
  8135   "RTN","ORW DXM4",155, 0)
  8136    Q
  8137   "RTN","ORW DXM4",156, 0)
  8138   VBQO(IFN)  ;Check to  see if it' s a good V BECS QO
  8139   "RTN","ORW DXM4",157, 0)
  8140    ;regular  order trea ted as goo d QO
  8141   "RTN","ORW DXM4",158, 0)
  8142    ;
  8143   "RTN","ORW DXM4",159, 0)
  8144    I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)'="Q" Q  1
  8145   "RTN","ORW DXM4",160, 0)
  8146    N ODP,ODG ,RESULT,P, TNS,I
  8147   "RTN","ORW DXM4",161, 0)
  8148    S RESULT= 0
  8149   "RTN","ORW DXM4",162, 0)
  8150    S ODP=+$P ($G(^ORD(1 01.41,IFN, 0)),U,7),O DG=+$P($G( ^(0)),U,5)
  8151   "RTN","ORW DXM4",163, 0)
  8152    S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3)
  8153   "RTN","ORW DXM4",164, 0)
  8154    I ODP'["V BEC" Q 1
  8155   "RTN","ORW DXM4",165, 0)
  8156    Q RESULT
  8157   "RTN","ORY 434")
  8158   0^^B110365 55
  8159   "RTN","ORY 434",1,0)
  8160   ORY434 ;IS L/JLC - EN VIRONMENT  CHECK FOR  CPRS VERSI ON 31A ;06 /27/17
  8161   "RTN","ORY 434",2,0)
  8162    ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31
  8163   "RTN","ORY 434",3,0)
  8164    ;
  8165   "RTN","ORY 434",4,0)
  8166    ;
  8167   "RTN","ORY 434",5,0)
  8168    Q
  8169   "RTN","ORY 434",6,0)
  8170   POST ;;SET  THE MOB D LL VERSION
  8171   "RTN","ORY 434",7,0)
  8172    ;D PUT^XP AR("PKG"," OR MOB DLL  VERSION", 1,"2.0.17. 0")
  8173   "RTN","ORY 434",8,0)
  8174    D PUT^XPA R("PKG","O R MOB DLL  NAME",1,"O rderCom.dl l")
  8175   "RTN","ORY 434",9,0)
  8176    I $$PATCH ^XPDUTL("S D*5.3*671" ) D ADD^XP DPROT("OR  EVSEND SD" ,"SD RECEI VE OR","", 1)
  8177   "RTN","ORY 434",10,0)
  8178    N TEXT
  8179   "RTN","ORY 434",11,0)
  8180    S TEXT(1) =" "
  8181   "RTN","ORY 434",12,0)
  8182    S TEXT(2) ="  Adding  'Clinic S cheduling'  Display G roup to"
  8183   "RTN","ORY 434",13,0)
  8184    S TEXT(3) ="  the 'A ll Service s' Display  Group..."
  8185   "RTN","ORY 434",14,0)
  8186    D MES^XPD UTL(.TEXT)
  8187   "RTN","ORY 434",15,0)
  8188    D SETDG
  8189   "RTN","ORY 434",16,0)
  8190    D MES^XPD UTL("  DON E")
  8191   "RTN","ORY 434",17,0)
  8192    S TEXT(1) =" "
  8193   "RTN","ORY 434",18,0)
  8194    S TEXT(2) ="  Adding  'Clinic S cheduling'  Display G roup to"
  8195   "RTN","ORY 434",19,0)
  8196    S TEXT(3) ="  parame ter 'ORWOR  CATEGORY  SEQUENCE'. .."
  8197   "RTN","ORY 434",20,0)
  8198    D MES^XPD UTL(.TEXT)
  8199   "RTN","ORY 434",21,0)
  8200    D SETPAR
  8201   "RTN","ORY 434",22,0)
  8202    D MES^XPD UTL("  DON E")
  8203   "RTN","ORY 434",23,0)
  8204    ;SEND NEW  NOTIFICAT ION
  8205   "RTN","ORY 434",24,0)
  8206    N ENT,EXI T,INST,ORM SG,LINE,OR I
  8207   "RTN","ORY 434",25,0)
  8208    D BMES^XP DUTL("  Lo ading para meter valu es for new  notificat ion...")
  8209   "RTN","ORY 434",26,0)
  8210    S ENT="PK G.ORDER EN TRY/RESULT S REPORTIN G"
  8211   "RTN","ORY 434",27,0)
  8212    S ORI=91  D  S EXIT= 0
  8213   "RTN","ORY 434",28,0)
  8214    . F LINE= 1:1 Q:$G(E XIT)  D
  8215   "RTN","ORY 434",29,0)
  8216    .. N TEXT ,ORERROR
  8217   "RTN","ORY 434",30,0)
  8218    .. S TEXT =$P($T(PAR AM+LINE)," ;;",2)
  8219   "RTN","ORY 434",31,0)
  8220    .. S INST =$P($G(^OR D(100.9,OR I,0)),U,1)
  8221   "RTN","ORY 434",32,0)
  8222    .. I $P(T EXT," ")=" ORB" D  Q
  8223   "RTN","ORY 434",33,0)
  8224    ... D EN^ XPAR(ENT,$ P(TEXT,U), INST,$P(TE XT,U,2),.O RERROR)  ; ICR #2336
  8225   "RTN","ORY 434",34,0)
  8226    ... I +OR ERROR D
  8227   "RTN","ORY 434",35,0)
  8228    .... S OR MSG(1)=" " ,EXIT=2
  8229   "RTN","ORY 434",36,0)
  8230    .... S OR MSG(2)="ER ROR: Unabl e to confi gure the n ew "_INST_ " notifica tion"
  8231   "RTN","ORY 434",37,0)
  8232    .... S OR MSG(3)="Ke rnel Param eter Tools  Error #"_ +ORERROR_" : "_$P(ORE RROR,U,2)
  8233   "RTN","ORY 434",38,0)
  8234    .... D BM ES^XPDUTL( .ORMSG)
  8235   "RTN","ORY 434",39,0)
  8236    .. I TEXT ="" S EXIT =1
  8237   "RTN","ORY 434",40,0)
  8238    D:$G(EXIT )<2 MES^XP DUTL("  Fi nished loa ding new n otificatio n values")
  8239   "RTN","ORY 434",41,0)
  8240    Q
  8241   "RTN","ORY 434",42,0)
  8242   PARAM ;PAR AMETER VAL UES TO LOA D
  8243   "RTN","ORY 434",43,0)
  8244    ;;ORB ARC HIVE PERIO D^30
  8245   "RTN","ORY 434",44,0)
  8246    ;;ORB DEL ETE MECHAN ISM^Indivi dual Recip ient
  8247   "RTN","ORY 434",45,0)
  8248    ;;ORB FOR WARD BACKU P REVIEWER ^0
  8249   "RTN","ORY 434",46,0)
  8250    ;;ORB FOR WARD SUPER VISOR^0
  8251   "RTN","ORY 434",47,0)
  8252    ;;ORB FOR WARD SURRO GATES^0
  8253   "RTN","ORY 434",48,0)
  8254    ;;ORB PRO CESSING FL AG^Disable d
  8255   "RTN","ORY 434",49,0)
  8256    ;;ORB PRO VIDER RECI PIENTS^O
  8257   "RTN","ORY 434",50,0)
  8258    ;;ORB URG ENCY^High
  8259   "RTN","ORY 434",51,0)
  8260    Q
  8261   "RTN","ORY 434",52,0)
  8262   SETDG ;
  8263   "RTN","ORY 434",53,0)
  8264    N DA,DIC, DLAYGO,ORD G,X
  8265   "RTN","ORY 434",54,0)
  8266    S ORDG=$O (^ORD(100. 98,"B","AL L SERVICES ",0)) Q:'O RDG
  8267   "RTN","ORY 434",55,0)
  8268    S X=$O(^O RD(100.98, "B","CLINI C SCHEDULI NG",0)),DA (1)=ORDG I  'X D MES^ XPDUTL("   'Clinic Sc heduling'  display gr oup not fo und") Q
  8269   "RTN","ORY 434",56,0)
  8270    I $O(^ORD (100.98,DA (1),1,"B", X,0)) D ME S^XPDUTL("   Display  group alre ady attach ed")  Q  ; not first  install -  done.
  8271   "RTN","ORY 434",57,0)
  8272    S:'$D(^OR D(100.98,D A(1),1,0))  ^(0)="^10 0.981P^^"
  8273   "RTN","ORY 434",58,0)
  8274    S DIC="^O RD(100.98, "_DA(1)_", 1,",DIC(0) ="NLX",DLA YGO=100.98
  8275   "RTN","ORY 434",59,0)
  8276    S X="CLIN IC SCHEDUL ING" D ^DI C
  8277   "RTN","ORY 434",60,0)
  8278    Q
  8279   "RTN","ORY 434",61,0)
  8280   SETPAR ;
  8281   "RTN","ORY 434",62,0)
  8282    N X
  8283   "RTN","ORY 434",63,0)
  8284    I '$D(^OR D(100.98," B","CLINIC  SCHEDULIN G")) D MES ^XPDUTL("   Display g roup alrea dy attache d") Q
  8285   "RTN","ORY 434",64,0)
  8286    S X=0,X=$ O(^ORD(100 .98,"B","C LINIC SCHE DULING",X) ) Q:'X  D
  8287   "RTN","ORY 434",65,0)
  8288    . D PUT^X PAR("PKG", "ORWOR CAT EGORY SEQU ENCE",135, X)
  8289   "RTN","ORY 434",66,0)
  8290    Q
  8291   "RTN","ORY 434",67,0)
  8292   SENDDLG(AN AME) ;Entr ies from 1 01.41 to s end
  8293   "RTN","ORY 434",68,0)
  8294    ;I ANAME= "OR GTX CL INIC LOCAT ION" Q 1
  8295   "RTN","ORY 434",69,0)
  8296    I ANAME=" OR GTX SD  COMMENT" Q  1
  8297   "RTN","ORY 434",70,0)
  8298    I ANAME=" OR GTX APP T NUM" Q 1
  8299   "RTN","ORY 434",71,0)
  8300    I ANAME=" OR GTX SCH  INTERVAL"  Q 1
  8301   "RTN","ORY 434",72,0)
  8302    I ANAME=" OR GTX PRE  REQ" Q 1
  8303   "RTN","ORY 434",73,0)
  8304    I ANAME=" SD RTC" Q  1
  8305   "RTN","ORY 434",74,0)
  8306    Q 0
  8307   "UP",100,1 00.008,-1)
  8308   100^8
  8309   "UP",100,1 00.008,0)
  8310   100.008
  8311   "VER")
  8312   8.0^22.2
  8313   "^DD",100, 100.008,40 ,0)
  8314   DISPOSITIO N BY^P200' ^VA(200,^4 ;1^Q
  8315   "^DD",100, 100.008,40 ,3)
  8316   DO NOT EDI T THIS FIE LD
  8317   "^DD",100, 100.008,40 ,21,0)
  8318   ^^2^2^3170 620^
  8319   "^DD",100, 100.008,40 ,21,1,0)
  8320   This is th e person w ho disposi tioned the  order in  the schedu ling packa ge. 
  8321   "^DD",100, 100.008,40 ,21,2,0)
  8322   Only appli es to Sche duling ord ers.
  8323   "^DD",100, 100.008,40 ,"DT")
  8324   3170620
  8325   "^DD",100, 100.008,41 ,0)
  8326   DISPOSITIO N DATE/TIM E^D^^4;2^S  %DT="ESTX R" D ^%DT  S X=Y K:X< 1 X
  8327   "^DD",100, 100.008,41 ,3)
  8328   DO NOT EDI T THIS FIE LD
  8329   "^DD",100, 100.008,41 ,21,0)
  8330   ^^2^2^3170 620^
  8331   "^DD",100, 100.008,41 ,21,1,0)
  8332   This is th e date/tim e a schedu ler dispos itioned an  appointme nt request  
  8333   "^DD",100, 100.008,41 ,21,2,0)
  8334   in the sch eduling pa ckage. Onl y applies  to Return  to Clinic  Order.
  8335   "^DD",100, 100.008,41 ,"DT")
  8336   3170620
  8337   "^DD",100. 9,100.9,0)
  8338   FIELD^^2^1 3
  8339   "^DD",100. 9,100.9,0, "DDA")
  8340   N
  8341   "^DD",100. 9,100.9,0, "DT")
  8342   3140915
  8343   "^DD",100. 9,100.9,0, "IX","B",1 00.9,.01)
  8344  
  8345   "^DD",100. 9,100.9,0, "IX","C",1 00.9,.02)
  8346  
  8347   "^DD",100. 9,100.9,0, "IX","D",1 00.9,.03)
  8348  
  8349   "^DD",100. 9,100.9,0, "NM","OE/R R NOTIFICA TIONS")
  8350  
  8351   "^DD",100. 9,100.9,0, "PT",100.2 1019,.01)
  8352  
  8353   "^DD",100. 9,100.9,0, "PT",860.2 2,3)
  8354  
  8355   "^DD",100. 9,100.9,0, "PT",21695 .2,.1)
  8356  
  8357   "^DD",100. 9,100.9,0, "PT",21695 .52,.01)
  8358  
  8359   "^DD",100. 9,100.9,0, "VRPK")
  8360   OR
  8361   "^DD",100. 9,100.9,.0 01,0)
  8362   NUMBER^NJ9 ,0X^^ ^K:+ X'=X!(X>99 999)!(X<1) !(X?.E1"." 1N.N)!('$$ VALNUM^ORB INPTR(X))  X
  8363   "^DD",100. 9,100.9,.0 01,3)
  8364   Enter your  station n umber, fol lowed by 0 1 to 99. F or example , 66001. N umbers 1-9 999 are re served for  National  notificati ons only.
  8365   "^DD",100. 9,100.9,.0 01,21,0)
  8366   ^^11^11^31 21106^
  8367   "^DD",100. 9,100.9,.0 01,21,1,0)
  8368   This is th e internal  entry num ber assign ed to a no tification .  Entries
  8369   "^DD",100. 9,100.9,.0 01,21,2,0)
  8370   1 through  9999 are r eserved fo r National  release b y the OE/R
  8371   "^DD",100. 9,100.9,.0 01,21,3,0)
  8372   Notificati ons packag e.
  8373   "^DD",100. 9,100.9,.0 01,21,4,0)
  8374    
  8375   "^DD",100. 9,100.9,.0 01,21,5,0)
  8376   For local  site-defin ed notific ations, th e internal  entry num ber must b
  8377   "^DD",100. 9,100.9,.0 01,21,6,0)
  8378   specific t o your VAM C in the f ollowing f ormat:
  8379   "^DD",100. 9,100.9,.0 01,21,7,0)
  8380    
  8381   "^DD",100. 9,100.9,.0 01,21,8,0)
  8382   <your stat ion number ><incremen tal notifi cation num ber 01-99>
  8383   "^DD",100. 9,100.9,.0 01,21,9,0)
  8384    
  8385   "^DD",100. 9,100.9,.0 01,21,10,0 )
  8386   For exampl e, if your  site is n umber 456,  your firs t locally  created 
  8387   "^DD",100. 9,100.9,.0 01,21,11,0 )
  8388   notificati on would b e 45601.                            
  8389   "^DD",100. 9,100.9,.0 01,23,0)
  8390   ^.001^3^3^ 3121106^^^ ^
  8391   "^DD",100. 9,100.9,.0 01,23,1,0)
  8392   This field  is used b y DHCP pac kages trig gering not ifications  (Lab, MAS , etc)
  8393   "^DD",100. 9,100.9,.0 01,23,2,0)
  8394   to send th e correct  message an d paramete rs to OE/R R.  These  numbers mu st not
  8395   "^DD",100. 9,100.9,.0 01,23,3,0)
  8396   be altered  in any fa shion.
  8397   "^DD",100. 9,100.9,.0 01,"DT")
  8398   3121026
  8399   "^DD",100. 9,100.9,.0 1,0)
  8400   NAME^RF^^0 ;1^K:$L(X) >30!($L(X) <3)!'(X'?1 P.E) X
  8401   "^DD",100. 9,100.9,.0 1,1,0)
  8402   ^.1
  8403   "^DD",100. 9,100.9,.0 1,1,1,0)
  8404   100.9^B
  8405   "^DD",100. 9,100.9,.0 1,1,1,1)
  8406   S ^ORD(100 .9,"B",$E( X,1,30),DA )=""
  8407   "^DD",100. 9,100.9,.0 1,1,1,2)
  8408   K ^ORD(100 .9,"B",$E( X,1,30),DA )
  8409   "^DD",100. 9,100.9,.0 1,1,2,0)
  8410   ^^TRIGGER^ 100.9^.02
  8411   "^DD",100. 9,100.9,.0 1,1,2,1)
  8412   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^ORD(10 0.9,D0,0)) :^(0),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X  K Y S X=D IV S X="OR " X ^DD(10 0.9,.01,1, 2,1.4)
  8413   "^DD",100. 9,100.9,.0 1,1,2,1.4)
  8414   S DIH=$S($ D(^ORD(100 .9,DIV(0), 0)):^(0),1 :""),DIV=X  S $P(^(0) ,U,2)=DIV, DIH=100.9, DIG=.02 D  ^DICR:$O(^ DD(DIH,DIG ,1,0))>0
  8415   "^DD",100. 9,100.9,.0 1,1,2,2)
  8416   K DIV S DI V=X,D0=DA, DIV(0)=D0  S Y(1)=$S( $D(^ORD(10 0.9,D0,0)) :^(0),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X  K Y S X=D IV S X=X X  ^DD(100.9 ,.01,1,2,2 .4)
  8417   "^DD",100. 9,100.9,.0 1,1,2,2.4)
  8418   S DIH=$S($ D(^ORD(100 .9,DIV(0), 0)):^(0),1 :""),DIV=X  S $P(^(0) ,U,2)=DIV, DIH=100.9, DIG=.02 D  ^DICR:$O(^ DD(DIH,DIG ,1,0))>0
  8419   "^DD",100. 9,100.9,.0 1,1,2,"%D" ,0)
  8420   ^^2^2^2920 505^
  8421   "^DD",100. 9,100.9,.0 1,1,2,"%D" ,1,0)
  8422   Automatica lly trigge r the sett ing of the  PACKAGE I D field wi th "OR"
  8423   "^DD",100. 9,100.9,.0 1,1,2,"%D" ,2,0)
  8424   to indicat e ORder en try when a  notificat ion is cre ated.
  8425   "^DD",100. 9,100.9,.0 1,1,2,"CRE ATE VALUE" )
  8426   "OR"
  8427   "^DD",100. 9,100.9,.0 1,1,2,"DEL ETE VALUE" )
  8428   OLD NAME
  8429   "^DD",100. 9,100.9,.0 1,1,2,"DT" )
  8430   2920505
  8431   "^DD",100. 9,100.9,.0 1,1,2,"FIE LD")
  8432   PACKAGE ID
  8433   "^DD",100. 9,100.9,.0 1,3)
  8434   Answer mus t be 3-30  characters  in length . Enter th e name of  the notifi cation.  T he name sh ould match  the entry  in the ME SSAGE TEXT  field as  closely as  possible.
  8435   "^DD",100. 9,100.9,.0 1,21,0)
  8436   ^^4^4^2990 416^^^^
  8437   "^DD",100. 9,100.9,.0 1,21,1,0)
  8438   This is th e name of  the notifi cation.  I t should m atch the t ext in the
  8439   "^DD",100. 9,100.9,.0 1,21,2,0)
  8440   MESSAGE TE XT field a s closely  as possibl e (it may  be an abbr eviated ve rsion
  8441   "^DD",100. 9,100.9,.0 1,21,3,0)
  8442   of the ent ry in MESS AGE TEXT.)   This fie ld is disp layed to u sers when
  8443   "^DD",100. 9,100.9,.0 1,21,4,0)
  8444   selecting  or reviewi ng entries  in this f ile (100.9 ).
  8445   "^DD",100. 9,100.9,.0 1,"DT")
  8446   2920505
  8447   "^DD",100. 9,100.9,.0 2,0)
  8448   PACKAGE ID ^RFX^^0;2^ S X="OR" ; K:X[""""!( $A(X)=^ X  I $D(X) K: $L(X)>20!( $L(X)<2) X
  8449   "^DD",100. 9,100.9,.0 2,1,0)
  8450   ^.1
  8451   "^DD",100. 9,100.9,.0 2,1,1,0)
  8452   100.9^C
  8453   "^DD",100. 9,100.9,.0 2,1,1,1)
  8454   S ^ORD(100 .9,"C",$E( X,1,30),DA )=""
  8455   "^DD",100. 9,100.9,.0 2,1,1,2)
  8456   K ^ORD(100 .9,"C",$E( X,1,30),DA )
  8457   "^DD",100. 9,100.9,.0 2,1,1,"%D" ,0)
  8458   ^^2^2^2920 427^^
  8459   "^DD",100. 9,100.9,.0 2,1,1,"%D" ,1,0)
  8460   This cross -reference  provides  a way to g roup notif ications b y package  or 
  8461   "^DD",100. 9,100.9,.0 2,1,1,"%D" ,2,0)
  8462   other cate gory.
  8463   "^DD",100. 9,100.9,.0 2,1,1,"DT" )
  8464   2910429
  8465   "^DD",100. 9,100.9,.0 2,3)
  8466   Always ent er "OR" in  this fiel d.  This f ield is us ed to crea te the XQA ID field p assed to t he XQALERT  entry poi nts.  It w ill typica lly be the  Package I D. 
  8467   "^DD",100. 9,100.9,.0 2,5,1,0)
  8468   100.9^.01^ 2
  8469   "^DD",100. 9,100.9,.0 2,9)
  8470   ^
  8471   "^DD",100. 9,100.9,.0 2,21,0)
  8472   ^^10^10^29 90416^^^^
  8473   "^DD",100. 9,100.9,.0 2,21,1,0)
  8474   This entry  should al ways be "O R" to indi cate the a lert (noti fication)  is 
  8475   "^DD",100. 9,100.9,.0 2,21,2,0)
  8476   processed  by OE/RR.   "OR" is s tuffed via  a trigger  x-ref in  field .01.
  8477   "^DD",100. 9,100.9,.0 2,21,3,0)
  8478   This Packa ge ID will  have ";DF N;NIEN" co ncatenated  to the en d of it, t o
  8479   "^DD",100. 9,100.9,.0 2,21,4,0)
  8480   make the X QAID varia ble which  is used by  the XQALE RT routine  to provid e a
  8481   "^DD",100. 9,100.9,.0 2,21,5,0)
  8482   unique cro ss-referen ce.  The o rder entry  notificat ion system  will chec k
  8483   "^DD",100. 9,100.9,.0 2,21,6,0)
  8484   the New pe rson file  to determi ne if this  message i s already  pending fo r
  8485   "^DD",100. 9,100.9,.0 2,21,7,0)
  8486   the user.   If it alr eady exist s, the use r will not  receive a  second me ssage.
  8487   "^DD",100. 9,100.9,.0 2,21,8,0)
  8488    
  8489   "^DD",100. 9,100.9,.0 2,21,9,0)
  8490   DFN is the  Patient F ile intern al entry n umber.
  8491   "^DD",100. 9,100.9,.0 2,21,10,0)
  8492   NIEN is th e Notifica tion File  internal e ntry numbe r.
  8493   "^DD",100. 9,100.9,.0 2,"DT")
  8494   2911008
  8495   "^DD",100. 9,100.9,.0 3,0)
  8496   MESSAGE TE XT^RF^^0;3 ^K:X[""""! ($A(X)=45)  X I $D(X)  K:$L(X)>5 1!($L(X)<3 ) X
  8497   "^DD",100. 9,100.9,.0 3,1,0)
  8498   ^.1
  8499   "^DD",100. 9,100.9,.0 3,1,1,0)
  8500   100.9^D
  8501   "^DD",100. 9,100.9,.0 3,1,1,1)
  8502   S ^ORD(100 .9,"D",$E( X,1,30),DA )=""
  8503   "^DD",100. 9,100.9,.0 3,1,1,2)
  8504   K ^ORD(100 .9,"D",$E( X,1,30),DA )
  8505   "^DD",100. 9,100.9,.0 3,1,1,"%D" ,0)
  8506   ^^1^1^2910 429^
  8507   "^DD",100. 9,100.9,.0 3,1,1,"%D" ,1,0)
  8508   This cross  reference  provides  a look-up  based on t he Message  Text.
  8509   "^DD",100. 9,100.9,.0 3,1,1,"DT" )
  8510   2910429
  8511   "^DD",100. 9,100.9,.0 3,3)
  8512   Answer mus t be 3-51  characters  in length .  This en try is use d as the a ctual text  of the no tification  (MESSAGE  TYPE = 'NO T') or the  default t ext (MESSA GE TEXT =  'PKG').
  8513   "^DD",100. 9,100.9,.0 3,21,0)
  8514   ^^6^6^2920 224^^^^
  8515   "^DD",100. 9,100.9,.0 3,21,1,0)
  8516   This text  will be ap pended to  the Patien t last nam e and last  4 charact ers of
  8517   "^DD",100. 9,100.9,.0 3,21,2,0)
  8518   the social  security  number to  create the  order not ification  text.
  8519   "^DD",100. 9,100.9,.0 3,21,3,0)
  8520   (e.g., SMI TH (4356):  Unsigned  orders. -  Where "Uns igned orde rs." is th
  8521   "^DD",100. 9,100.9,.0 3,21,4,0)
  8522   content of  MESSAGE T EXT.)  Tex t entered  into this  field is t he default  text
  8523   "^DD",100. 9,100.9,.0 3,21,5,0)
  8524   for notifi cations wh ere the te xt message  usually c omes from  the packag e
  8525   "^DD",100. 9,100.9,.0 3,21,6,0)
  8526   (MESSAGE T YPE = PKG) .
  8527   "^DD",100. 9,100.9,.0 3,"DT")
  8528   2911008
  8529   "^DD",100. 9,100.9,.0 4,0)
  8530   MESSAGE TY PE^RS^PKG: PACKAGE PR OVIDES A V ARIABLE ME SSAGE;NOT: NOTIFICATI ON FILE PR OVIDES MES SAGE;^0;4^ Q
  8531   "^DD",100. 9,100.9,.0 4,3)
  8532   Messages c an be prov ided by th e NOTIFICA TION file  where they  are defin ed with th e notifica tion 'NOT'  or they c an be vari able messa ges suppli ed by the  package 'P KG' when t he notific ation is t riggered.
  8533   "^DD",100. 9,100.9,.0 4,21,0)
  8534   ^^1^1^2960 503^^^^
  8535   "^DD",100. 9,100.9,.0 4,21,1,0)
  8536   MESSAGE TY PE field i s used as  a flag to  determine  where the  message te xt origina tes.  If f rom the NO TIFICATION  file, MES SAGE TYPE  is 'NOT.'   If the me ssage come s from the  package,  MESSAGE TY PE is 'PKG .'
  8537   "^DD",100. 9,100.9,.0 4,"DT")
  8538   2910627
  8539   "^DD",100. 9,100.9,.0 5,0)
  8540   ACTION FLA G^RS^I:INF ORMATION O NLY;R:RUN  ROUTINE;^0 ;5^Q
  8541   "^DD",100. 9,100.9,.0 5,3)
  8542   Enter 'I'  if the use r is to ta ke no foll ow-up acti on for thi s notifica tion.  Ent er 'R' if  the user i s to take  a follow-u p action a fter viewi ng this no tification  (e.g. Sig n an unsig ned order. )
  8543   "^DD",100. 9,100.9,.0 5,21,0)
  8544   ^^7^7^2920 417^^^^
  8545   "^DD",100. 9,100.9,.0 5,21,1,0)
  8546   This a man datory fla g used to  regulate p rocessing  in XQALERT  processin g.
  8547   "^DD",100. 9,100.9,.0 5,21,2,0)
  8548   The flag i s set to I  to indica te the not ification  is for INF ORMATION O NLY - 
  8549   "^DD",100. 9,100.9,.0 5,21,3,0)
  8550   no follow- up action  is to be t aken.  'I'  notificat ions are d eleted as  each
  8551   "^DD",100. 9,100.9,.0 5,21,4,0)
  8552   user revie ws them.   'R' notifi cations ha ve a follo w-up actio n associat ed
  8553   "^DD",100. 9,100.9,.0 5,21,5,0)
  8554   with them.   The user  will be t aken to an other rout ine or opt ion when t hey
  8555   "^DD",100. 9,100.9,.0 5,21,6,0)
  8556   select a n otificatio n with ACT ION FLAG =  R and a f ollow-up r outine/opt ion
  8557   "^DD",100. 9,100.9,.0 5,21,7,0)
  8558   is defined .
  8559   "^DD",100. 9,100.9,.0 5,"DT")
  8560   2910627
  8561   "^DD",100. 9,100.9,.0 6,0)
  8562   ENTRY POIN T^F^^0;6^K :$L(X)>8!( $L(X)<1) X
  8563   "^DD",100. 9,100.9,.0 6,3)
  8564   Answer mus t be 1-8 c haracters  in length.   This sho uld be the  tag to be  concatena ted with t he ROUTINE  NAME (.07 ) field.   It is the  entry poin t for foll ow-up acti on in that  routine.
  8565   "^DD",100. 9,100.9,.0 6,21,0)
  8566   ^^2^2^2920 224^^^
  8567   "^DD",100. 9,100.9,.0 6,21,1,0)
  8568   This is an  optional  field used  to create  the XQARO U variable  to be use d by
  8569   "^DD",100. 9,100.9,.0 6,21,2,0)
  8570   the XQALER T routine.   This fie ld represe nts the TA G in tag^r outine. 
  8571   "^DD",100. 9,100.9,.0 6,"DT")
  8572   2910429
  8573   "^DD",100. 9,100.9,.0 7,0)
  8574   ROUTINE NA ME^F^^0;7^ K:$L(X)>8! ($L(X)<2)  X
  8575   "^DD",100. 9,100.9,.0 7,3)
  8576   Answer mus t be 2-8 c haracters  in length.   This is  concatenat ed with th e ENTRY PO INT (.06)  to create  XQAROU.  I t is the r outine whe re the fol low-up act ion (if an y) for thi s notifica tion is in itiated.
  8577   "^DD",100. 9,100.9,.0 7,21,0)
  8578   ^^2^2^2920 224^^^
  8579   "^DD",100. 9,100.9,.0 7,21,1,0)
  8580   This is an  optional  variable i dentifying  a routine  or tag(fi eld .06)^r outine
  8581   "^DD",100. 9,100.9,.0 7,21,2,0)
  8582   used to cr eate XQARO U for proc essing by  XQALERT.
  8583   "^DD",100. 9,100.9,.0 7,"DT")
  8584   2910429
  8585   "^DD",100. 9,100.9,1, 0)
  8586   NON-MENU T YPE OPTION  ACTION^P1 9'^DIC(19, ^1;1^Q
  8587   "^DD",100. 9,100.9,1, 3)
  8588   This field  is for fu ture enhan cements.   It is curr ently (5/9 2) unused.
  8589   "^DD",100. 9,100.9,1, 21,0)
  8590   ^^5^5^2920 506^^^^
  8591   "^DD",100. 9,100.9,1, 21,1,0)
  8592   This is an  optional  field used  to create  the varia ble XQAOPT  for use
  8593   "^DD",100. 9,100.9,1, 21,2,0)
  8594   by XQALERT .  It shou ld indicat e a non-me nu type op tion on th e user's
  8595   "^DD",100. 9,100.9,1, 21,3,0)
  8596   primary or  secondary  menu, not  on the Co mmon menu.   The phan tom jump 
  8597   "^DD",100. 9,100.9,1, 21,4,0)
  8598   is used to  navigate  to the des tination o ption and  will check  pathway
  8599   "^DD",100. 9,100.9,1, 21,5,0)
  8600   restrictio ns in doin g so.
  8601   "^DD",100. 9,100.9,1, "DT")
  8602   2910429
  8603   "^DD",100. 9,100.9,1. 5,0)
  8604   RELATED PA CKAGE^F^^1 ;2^K:$L(X) >30!($L(X) <2) X
  8605   "^DD",100. 9,100.9,1. 5,3)
  8606   Answer mus t be 2-30  characters  in length .  Enter t he appropr iate name  of the pac kage where  the notif ication or iginates ( e.g., LAB,  MAS, Phar macy.)
  8607   "^DD",100. 9,100.9,1. 5,21,0)
  8608   ^^1^1^2920 224^^^
  8609   "^DD",100. 9,100.9,1. 5,21,1,0)
  8610   This field  contains  the name o f the pack age where  the notifi cation ori ginates or  is trigge red (e.g.,  LAB, MAS,  Pharmacy. )
  8611   "^DD",100. 9,100.9,1. 5,"DT")
  8612   2910627
  8613   "^DD",100. 9,100.9,2, 0)
  8614   PROCESSING  FLAGS^100 .92S^^5;0
  8615   "^DD",100. 9,100.9,2, 21,0)
  8616   ^^2^2^3140 701^
  8617   "^DD",100. 9,100.9,2, 21,1,0)
  8618   This field  tells the  notificat ion system  any speci al instruc tions to 
  8619   "^DD",100. 9,100.9,2, 21,2,0)
  8620   follow whe n creating  the notif ication.
  8621   "^DD",100. 9,100.9,4, 0)
  8622   DESCRIPTIO N^RF^^4;1^ K:$L(X)>25 0!($L(X)<3 ) X
  8623   "^DD",100. 9,100.9,4, 3)
  8624   Answer mus t be 3-250  character s in lengt h.  Enter  a descript ion of the  notificat ion with e mphasis on  what trig gers the n otificatio n and what  actions d elete it.
  8625   "^DD",100. 9,100.9,4, 21,0)
  8626   ^^2^2^2950 711^^^
  8627   "^DD",100. 9,100.9,4, 21,1,0)
  8628   This field  contains  free text  describing  the notif ication, h ow it is t rig-
  8629   "^DD",100. 9,100.9,4, 21,2,0)
  8630   gered and  what actio n(s) delet e it.
  8631   "^DD",100. 9,100.9,4, "DT")
  8632   2950424
  8633   "^DD",100. 9,100.9,5, 0)
  8634   FOLLOW-UP  TYPE^S^0:R EPORT;1:CO SIGN_PN;2: EXPIRING_O RDER;3:FLA GGED_ORDER ;4:ORDER;5 :UNLINKED; 6:NEW_CONS ULT;7:NEW_ ORDER;8:CO SIGN_ORDER ;9:ES_ORDE R;10:UNSIG N_PN;11:UN VERIFIED_M ED;^3;2^Q
  8635   "^DD",100. 9,100.9,5, 3)
  8636   Enter the  follow-up  code corre spond to t he notific ation's fo llow-up ac tion.  If  unsure, le ave blank.
  8637   "^DD",100. 9,100.9,5, 21,0)
  8638   ^^5^5^2990 412^^^^
  8639   "^DD",100. 9,100.9,5, 21,1,0)
  8640   This field  contains  the type o f follow-u p action t o be taken .  It is u sed 
  8641   "^DD",100. 9,100.9,5, 21,2,0)
  8642   by the app lication m anaging th e follow-u p action   (e.g. GUI  interface)  to
  8643   "^DD",100. 9,100.9,5, 21,3,0)
  8644   initiate t he proper  follow-up  action sep arate from  the under lying data  
  8645   "^DD",100. 9,100.9,5, 21,4,0)
  8646   base and a pplication  layers.   Example fo llow-up ty pes includ e: report,
  8647   "^DD",100. 9,100.9,5, 21,5,0)
  8648   e/s, flag.
  8649   "^DD",100. 9,100.9,5, 23,0)
  8650   ^^6^6^2990 412^^^^
  8651   "^DD",100. 9,100.9,5, 23,1,0)
  8652   This field  is basica lly a flag  for the e nvironment  (e.g. GUI  - Delphi)
  8653   "^DD",100. 9,100.9,5, 23,2,0)
  8654   handling n otificatio n follow-u p to initi ate the ap propriate  action.  F or
  8655   "^DD",100. 9,100.9,5, 23,3,0)
  8656   example if  the type  was report , the data  returned  in the API  call woul d be
  8657   "^DD",100. 9,100.9,5, 23,4,0)
  8658   stuffed in to a gener ic text bo x for disp lay; where as if the  type was
  8659   "^DD",100. 9,100.9,5, 23,5,0)
  8660   flag, the  follow-up  action wou ld be to f ind and di splay all  flagged or ders
  8661   "^DD",100. 9,100.9,5, 23,6,0)
  8662   for the pa tient and  allow unfl agging.
  8663   "^DD",100. 9,100.9,5, "DT")
  8664   2990412
  8665   "^DD",100. 9,100.92,0 )
  8666   PROCESSING  FLAGS SUB -FIELD^^.0 1^1
  8667   "^DD",100. 9,100.92,0 ,"DT")
  8668   3140915
  8669   "^DD",100. 9,100.92,0 ,"IX","B", 100.92,.01 )
  8670  
  8671   "^DD",100. 9,100.92,0 ,"NM","PRO CESSING FL AGS")
  8672  
  8673   "^DD",100. 9,100.92,0 ,"UP")
  8674   100.9
  8675   "^DD",100. 9,100.92,. 01,0)
  8676   PROCESSING  FLAG^MSX^ ONPP:GENER ATE ONE NO TIFICATION  PER PATIE NT;CD:COMB INE DATA F ROM DUPLIC ATES;^0;1^ I X="ONPP" ,$P(^ORD(1 00.9,DA(1) ,0),U,6,7) ='"INDORDE R^ORB3FUP1 " K X
  8677   "^DD",100. 9,100.92,. 01,1,0)
  8678   ^.1
  8679   "^DD",100. 9,100.92,. 01,1,1,0)
  8680   100.92^B
  8681   "^DD",100. 9,100.92,. 01,1,1,1)
  8682   S ^ORD(100 .9,DA(1),5 ,"B",$E(X, 1,30),DA)= ""
  8683   "^DD",100. 9,100.92,. 01,1,1,2)
  8684   K ^ORD(100 .9,DA(1),5 ,"B",$E(X, 1,30),DA)
  8685   "^DD",100. 9,100.92,. 01,3)
  8686   Select the  flag to c ontrol cre ation of t his notifi cation.
  8687   "^DD",100. 9,100.92,. 01,21,0)
  8688   ^^2^2^3140 701^
  8689   "^DD",100. 9,100.92,. 01,21,1,0)
  8690   This field  stores a  special in struction  that the n otificatio n system w ill 
  8691   "^DD",100. 9,100.92,. 01,21,2,0)
  8692   follow whe n creating  the notif ication.
  8693   "^DD",100. 9,100.92,. 01,"DT")
  8694   3140915
  8695   "^DD",100. 98,100.98, 0)
  8696   FIELD^NL^5 ^6
  8697   "^DD",100. 98,100.98, 0,"DDA")
  8698   N
  8699   "^DD",100. 98,100.98, 0,"DT")
  8700   3170504
  8701   "^DD",100. 98,100.98, 0,"IX","AD ",100.981, .01)
  8702  
  8703   "^DD",100. 98,100.98, 0,"IX","B" ,100.98,.0 1)
  8704  
  8705   "^DD",100. 98,100.98, 0,"IX","B" ,100.98,3)
  8706  
  8707   "^DD",100. 98,100.98, 0,"NM","DI SPLAY GROU P")
  8708  
  8709   "^DD",100. 98,100.98, 0,"PT",100 ,23)
  8710  
  8711   "^DD",100. 98,100.98, 0,"PT",100 .65,.01)
  8712  
  8713   "^DD",100. 98,100.98, 0,"PT",100 .981,.01)
  8714  
  8715   "^DD",100. 98,100.98, 0,"PT",100 .995,1.1)
  8716  
  8717   "^DD",100. 98,100.98, 0,"PT",101 .41,5)
  8718  
  8719   "^DD",100. 98,100.98, 0,"PT",101 .43,5)
  8720  
  8721   "^DD",100. 98,100.98, 0,"PT",123 .5,123.01)
  8722  
  8723   "^DD",100. 98,100.98, 0,"VRPK")
  8724   ORDER ENTR Y/RESULTS  REPORTING
  8725   "^DD",100. 98,100.98, .01,0)
  8726   NAME^RF^^0 ;1^K:X[""" "!($A(X)=4 5) X I $D( X) K:$L(X) >30!($L(X) <3)!'(X'?1 P.E) X
  8727   "^DD",100. 98,100.98, .01,1,0)
  8728   ^.1^^-1
  8729   "^DD",100. 98,100.98, .01,1,1,0)
  8730   100.98^B
  8731   "^DD",100. 98,100.98, .01,1,1,1)
  8732   S ^ORD(100 .98,"B",$E (X,1,30),D A)=""
  8733   "^DD",100. 98,100.98, .01,1,1,2)
  8734   K ^ORD(100 .98,"B",$E (X,1,30),D A)
  8735   "^DD",100. 98,100.98, .01,3)
  8736   ANSWER MUS T BE 3-30  CHARACTERS  IN LENGTH
  8737   "^DD",100. 98,100.98, .01,4)
  8738  
  8739   "^DD",100. 98,100.98, .01,21,0)
  8740   ^^3^3^2920 224^^^^
  8741   "^DD",100. 98,100.98, .01,21,1,0 )
  8742   This is th e name of  the displa y group fo r a partic ular kind  of order.
  8743   "^DD",100. 98,100.98, .01,21,2,0 )
  8744   The displa y group ge nerally co rresponds  to a hospi tal servic e or part
  8745   "^DD",100. 98,100.98, .01,21,3,0 )
  8746   of a servi ce.
  8747   "^DD",100. 98,100.98, .01,"DT")
  8748   2890131
  8749   "^DD",100. 98,100.98, 1,0)
  8750   MEMBER^100 .981P^^1;0
  8751   "^DD",100. 98,100.98, 1,3)
  8752   Enter a di splay grou p as a mem ber.
  8753   "^DD",100. 98,100.98, 1,21,0)
  8754   ^^3^3^3161 110^
  8755   "^DD",100. 98,100.98, 1,21,1,0)
  8756   This is a  list of sp ecific dis play group s that `be long' to t he display
  8757   "^DD",100. 98,100.98, 1,21,2,0)
  8758   group list ed in the  NAME field .  (This i s similar  to menu it ems in the
  8759   "^DD",100. 98,100.98, 1,21,3,0)
  8760   OPTION Fil e.)
  8761   "^DD",100. 98,100.98, 2,0)
  8762   MIXED NAME ^F^^0;2^K: $L(X)>30!( $L(X)<1) X
  8763   "^DD",100. 98,100.98, 2,3)
  8764   Answer mus t be 1-30  characters  in length .
  8765   "^DD",100. 98,100.98, 2,21,0)
  8766   ^^3^3^2960 617^
  8767   "^DD",100. 98,100.98, 2,21,1,0)
  8768   This field  contains  a mixed ca se name fo r the disp lay group.   The name  
  8769   "^DD",100. 98,100.98, 2,21,2,0)
  8770   should be  as short a s possible  without b eing obscu re.  This  name is 
  8771   "^DD",100. 98,100.98, 2,21,3,0)
  8772   primarily  intended f or use in  the window s display  of orders.
  8773   "^DD",100. 98,100.98, 2,"DT")
  8774   2960617
  8775   "^DD",100. 98,100.98, 3,0)
  8776   SHORT NAME ^F^^0;3^K: X[""""!($A (X)=45) X  I $D(X) K: $L(X)>5!($ L(X)<1) X
  8777   "^DD",100. 98,100.98, 3,1,0)
  8778   ^.1
  8779   "^DD",100. 98,100.98, 3,1,1,0)
  8780   100.98^B^M NEMONIC
  8781   "^DD",100. 98,100.98, 3,1,1,1)
  8782   S:'$D(^ORD (100.98,"B ",$E(X,1,3 0),DA)) ^( DA)=1
  8783   "^DD",100. 98,100.98, 3,1,1,2)
  8784   I $D(^ORD( 100.98,"B" ,$E(X,1,30 ),DA)),^(D A) K ^(DA)
  8785   "^DD",100. 98,100.98, 3,3)
  8786   ANSWER MUS T BE 1-5 C HARACTERS  IN LENGTH
  8787   "^DD",100. 98,100.98, 3,21,0)
  8788   ^^2^2^2920 224^^^
  8789   "^DD",100. 98,100.98, 3,21,1,0)
  8790   This is an  abbreviat ion for th e display  group to b e used in  displays a nd
  8791   "^DD",100. 98,100.98, 3,21,2,0)
  8792   reports.
  8793   "^DD",100. 98,100.98, 3,"DT")
  8794   2880308
  8795   "^DD",100. 98,100.98, 4,0)
  8796   DEFAULT DI ALOG^P101. 41'^ORD(10 1.41,^0;4^ Q
  8797   "^DD",100. 98,100.98, 4,3)
  8798   Enter the  default or dering dia log for th is display  group.
  8799   "^DD",100. 98,100.98, 4,21,0)
  8800   ^^2^2^2960 815^^
  8801   "^DD",100. 98,100.98, 4,21,1,0)
  8802   This is th e dialog t hat will b e used as  the defaul t definiti on when
  8803   "^DD",100. 98,100.98, 4,21,2,0)
  8804   placing qu ick orders  associate d with thi s display  group.
  8805   "^DD",100. 98,100.98, 4,"DT")
  8806   2960814
  8807   "^DD",100. 98,100.98, 5,0)
  8808   SECURITY K EY^100.985 P^^2;0
  8809   "^DD",100. 98,100.98, 5,21,0)
  8810   ^^2^2^3161 110^
  8811   "^DD",100. 98,100.98, 5,21,1,0)
  8812   A list of  Security K eys assign ed to a Di splay Grou p to be us ed for
  8813   "^DD",100. 98,100.98, 5,21,2,0)
  8814   validating  a user's  privileges  when atte mpting to  unflag an  order.
  8815   "^DD",100. 98,100.981 ,0)
  8816   MEMBER SUB -FIELD^^.0 1^2
  8817   "^DD",100. 98,100.981 ,0,"DT")
  8818   2920601
  8819   "^DD",100. 98,100.981 ,0,"IX","B ",100.981, .01)
  8820  
  8821   "^DD",100. 98,100.981 ,0,"NM","M EMBER")
  8822  
  8823   "^DD",100. 98,100.981 ,0,"UP")
  8824   100.98
  8825   "^DD",100. 98,100.981 ,.001,0)
  8826   SEQUENCE^N J5,1^^ ^K: +X'=X!(X>9 00)!(X<0)! (X?.E1"."2 N.N) X
  8827   "^DD",100. 98,100.981 ,.001,3)
  8828   Type a Num ber betwee n 0 and 90 0, 1 Decim al Digit
  8829   "^DD",100. 98,100.981 ,.001,21,0 )
  8830   ^^2^2^2920 601^
  8831   "^DD",100. 98,100.981 ,.001,21,1 ,0)
  8832   This is th e sequence  of the me mber in th e display  group for  reporting
  8833   "^DD",100. 98,100.981 ,.001,21,2 ,0)
  8834   purposes.
  8835   "^DD",100. 98,100.981 ,.001,"DT" )
  8836   2920601
  8837   "^DD",100. 98,100.981 ,.01,0)
  8838   MEMBER^MP1 00.98X^ORD (100.98,^0 ;1^S ORDDF =100.98 D  TREE^ORDD1 01
  8839   "^DD",100. 98,100.981 ,.01,1,0)
  8840   ^.1
  8841   "^DD",100. 98,100.981 ,.01,1,1,0 )
  8842   100.981^B
  8843   "^DD",100. 98,100.981 ,.01,1,1,1 )
  8844   S ^ORD(100 .98,DA(1), 1,"B",$E(X ,1,30),DA) =""
  8845   "^DD",100. 98,100.981 ,.01,1,1,2 )
  8846   K ^ORD(100 .98,DA(1), 1,"B",$E(X ,1,30),DA)
  8847   "^DD",100. 98,100.981 ,.01,1,2,0 )
  8848   100.98^AD^ MUMPS
  8849   "^DD",100. 98,100.981 ,.01,1,2,1 )
  8850   S ^ORD(100 .98,"AD",$ E(X,1,30), DA(1),DA)= ""
  8851   "^DD",100. 98,100.981 ,.01,1,2,2 )
  8852   K ^ORD(100 .98,"AD",$ E(X,1,30), DA(1),DA)
  8853   "^DD",100. 98,100.981 ,.01,1,2," %D",0)
  8854   ^^2^2^2971 217^^
  8855   "^DD",100. 98,100.981 ,.01,1,2," %D",1,0)
  8856   ^ORD(100.9 8,"AD",ORM EM,ORGRP,D A)
  8857   "^DD",100. 98,100.981 ,.01,1,2," %D",2,0)
  8858   Provides b ackwards p ointer fro m member t o parent g roup.
  8859   "^DD",100. 98,100.981 ,.01,3)
  8860   Enter a di splay grou p.  A disp lay group  that is an  ancestor  may not al so be a me mber.
  8861   "^DD",100. 98,100.981 ,.01,4)
  8862  
  8863   "^DD",100. 98,100.981 ,.01,21,0)
  8864   ^^2^2^2920 224^^^
  8865   "^DD",100. 98,100.981 ,.01,21,1, 0)
  8866   This is a  display gr oup listed  in the NA ME field.  (This is s imilar to  a
  8867   "^DD",100. 98,100.981 ,.01,21,2, 0)
  8868   menu item  in the OPT ION File.)
  8869   "^DD",100. 98,100.981 ,.01,"DT")
  8870   2890207
  8871   "^DD",100. 98,100.985 ,0)
  8872   SECURITY K EY SUB-FIE LD^^.01^1
  8873   "^DD",100. 98,100.985 ,0,"DT")
  8874   3170208
  8875   "^DD",100. 98,100.985 ,0,"IX","B ",100.985, .01)
  8876  
  8877   "^DD",100. 98,100.985 ,0,"NM","S ECURITY KE Y")
  8878  
  8879   "^DD",100. 98,100.985 ,0,"UP")
  8880   100.98
  8881   "^DD",100. 98,100.985 ,.01,0)
  8882   SECURITY K EY^P19.1'^ DIC(19.1,^ 0;1^Q
  8883   "^DD",100. 98,100.985 ,.01,1,0)
  8884   ^.1
  8885   "^DD",100. 98,100.985 ,.01,1,1,0 )
  8886   100.985^B
  8887   "^DD",100. 98,100.985 ,.01,1,1,1 )
  8888   S ^ORD(100 .98,DA(1), 2,"B",$E(X ,1,30),DA) =""
  8889   "^DD",100. 98,100.985 ,.01,1,1,2 )
  8890   K ^ORD(100 .98,DA(1), 2,"B",$E(X ,1,30),DA)
  8891   "^DD",100. 98,100.985 ,.01,3)
  8892   Enter a Se curity Key  from file  19.1 to b e assigned  to this D isplay Gro up
  8893   "^DD",100. 98,100.985 ,.01,21,0)
  8894   ^^2^2^3161 110^
  8895   "^DD",100. 98,100.985 ,.01,21,1, 0)
  8896   A Security  Key assig ned to thi s Display  Group to b e used for
  8897   "^DD",100. 98,100.985 ,.01,21,2, 0)
  8898   validating  a user's  privileges  when atte mpting to  unflag an  order.
  8899   "^DD",100. 98,100.985 ,.01,"DT")
  8900   3161110
  8901   "^DD",101. 41,101.41, 0)
  8902   FIELD^^99^ 30
  8903   "^DD",101. 41,101.41, 0,"DDA")
  8904   N
  8905   "^DD",101. 41,101.41, 0,"DT")
  8906   3170621
  8907   "^DD",101. 41,101.41, 0,"IX","AB ",101.41,. 01)
  8908  
  8909   "^DD",101. 41,101.41, 0,"IX","AD ",101.412, 2)
  8910  
  8911   "^DD",101. 41,101.41, 0,"IX","AM ",101.41,9 9)
  8912  
  8913   "^DD",101. 41,101.41, 0,"IX","AM 2",101.41, 2)
  8914  
  8915   "^DD",101. 41,101.41, 0,"IX","AM 51",101.41 ,51)
  8916  
  8917   "^DD",101. 41,101.41, 0,"IX","AM 52",101.41 ,52)
  8918  
  8919   "^DD",101. 41,101.41, 0,"IX","AM M",101.412 ,.01)
  8920  
  8921   "^DD",101. 41,101.41, 0,"IX","AM M2",101.41 2,2)
  8922  
  8923   "^DD",101. 41,101.41, 0,"IX","AM M3",101.41 2,3)
  8924  
  8925   "^DD",101. 41,101.41, 0,"IX","AM M4",101.41 2,4)
  8926  
  8927   "^DD",101. 41,101.41, 0,"IX","AM M5",101.41 2,5)
  8928  
  8929   "^DD",101. 41,101.41, 0,"IX","AP KG",101.41 ,7)
  8930  
  8931   "^DD",101. 41,101.41, 0,"IX","C" ,101.41,2)
  8932  
  8933   "^DD",101. 41,101.41, 0,"NM","OR DER DIALOG ")
  8934  
  8935   "^DD",101. 41,101.41, 0,"PT",100 ,2)
  8936  
  8937   "^DD",101. 41,101.41, 0,"PT",100 ,7)
  8938  
  8939   "^DD",101. 41,101.41, 0,"PT",100 .045,.02)
  8940  
  8941   "^DD",101. 41,101.41, 0,"PT",100 .5,4)
  8942  
  8943   "^DD",101. 41,101.41, 0,"PT",100 .5,5)
  8944  
  8945   "^DD",101. 41,101.41, 0,"PT",100 .95,3)
  8946  
  8947   "^DD",101. 41,101.41, 0,"PT",100 .98,4)
  8948  
  8949   "^DD",101. 41,101.41, 0,"PT",101 .412,1)
  8950  
  8951   "^DD",101. 41,101.41, 0,"PT",101 .412,2)
  8952  
  8953   "^DD",101. 41,101.41, 0,"PT",101 .415,2)
  8954  
  8955   "^DD",101. 41,101.41, 0,"PT",101 .416,.02)
  8956  
  8957   "^DD",101. 41,101.41, 0,"PT",101 .441,.01)
  8958  
  8959   "^DD",101. 41,101.41, 0,"PT",801 .41,15)
  8960  
  8961   "^DD",101. 41,101.41, 0,"PT",801 .4118,.01)
  8962  
  8963   "^DD",101. 41,101.41, 0,"PT",800 001.05,.01 )
  8964  
  8965   "^DD",101. 41,101.41, 0,"VRPK")
  8966   OR
  8967   "^DD",101. 41,101.41, .01,0)
  8968   NAME^RF^^0 ;1^K:X[""" "!($A(X)=4 5) X I $D( X) K:$L(X) >63!($L(X) <3)!'(X'?1 P.E) X
  8969   "^DD",101. 41,101.41, .01,1,0)
  8970   ^.1^^-1
  8971   "^DD",101. 41,101.41, .01,1,2,0)
  8972   101.41^AB
  8973   "^DD",101. 41,101.41, .01,1,2,1)
  8974   S ^ORD(101 .41,"AB",$ E(X,1,63), DA)=""
  8975   "^DD",101. 41,101.41, .01,1,2,2)
  8976   K ^ORD(101 .41,"AB",$ E(X,1,63), DA)
  8977   "^DD",101. 41,101.41, .01,1,2,"% D",0)
  8978   ^^1^1^2971 020^
  8979   "^DD",101. 41,101.41, .01,1,2,"% D",1,0)
  8980   This is a  regular in dex on the  full 63 c haracters  of the Nam e field.
  8981   "^DD",101. 41,101.41, .01,1,2,"D T")
  8982   2971020
  8983   "^DD",101. 41,101.41, .01,3)
  8984   Answer mus t be 3-63  characters  in length .
  8985   "^DD",101. 41,101.41, .01,21,0)
  8986   ^^3^3^2971 219^
  8987   "^DD",101. 41,101.41, .01,21,1,0 )
  8988   This is th e name of  the dialog ; entries  that were  converted  from the
  8989   "^DD",101. 41,101.41, .01,21,2,0 )
  8990   Protocol f ile will r etain the  same name.   Namespac ing is not  required,
  8991   "^DD",101. 41,101.41, .01,21,3,0 )
  8992   but still  encouraged .
  8993   "^DD",101. 41,101.41, .01,"DT")
  8994   2971020
  8995   "^DD",101. 41,101.41, 2,0)
  8996   DISPLAY TE XT^FX^^0;2 ^K:$L(X)>8 0!($L(X)<3 )!($$CHKNA M^ORUTL(X) ) X
  8997   "^DD",101. 41,101.41, 2,1,0)
  8998   ^.1
  8999   "^DD",101. 41,101.41, 2,1,1,0)
  9000   101.41^C
  9001   "^DD",101. 41,101.41, 2,1,1,1)
  9002   S ^ORD(101 .41,"C",$$ UP^XLFSTR( $E(X,1,63) ),DA)=""
  9003   "^DD",101. 41,101.41, 2,1,1,2)
  9004   K ^ORD(101 .41,"C",$$ UP^XLFSTR( $E(X,1,63) ),DA)
  9005   "^DD",101. 41,101.41, 2,1,1,"DT" )
  9006   2950112
  9007   "^DD",101. 41,101.41, 2,1,2,0)
  9008   101.41^AM2 ^MUMPS
  9009   "^DD",101. 41,101.41, 2,1,2,1)
  9010   D REDOM^OR DD41
  9011   "^DD",101. 41,101.41, 2,1,2,2)
  9012   D REDOM^OR DD41
  9013   "^DD",101. 41,101.41, 2,1,2,"%D" ,0)
  9014   ^^1^1^2990 210^
  9015   "^DD",101. 41,101.41, 2,1,2,"%D" ,1,0)
  9016   Update TIM ESTAMP whe never DISP LAY TEXT i s changed.
  9017   "^DD",101. 41,101.41, 2,1,2,"DT" )
  9018   2990210
  9019   "^DD",101. 41,101.41, 2,3)
  9020   Answer mus t be 3-80  characters  and canno t contain  an up-arro w (^) or s emi-colon  (;).
  9021   "^DD",101. 41,101.41, 2,21,0)
  9022   ^.001^1^1^ 3010913^^^ ^
  9023   "^DD",101. 41,101.41, 2,21,1,0)
  9024   The text o f this dia log's name  as it app ears on a  menu or su bheader.
  9025   "^DD",101. 41,101.41, 2,"DT")
  9026   3000823
  9027   "^DD",101. 41,101.41, 3,0)
  9028   DISABLE^F^ ^0;3^K:$L( X)>40!($L( X)<1) X
  9029   "^DD",101. 41,101.41, 3,3)
  9030   Enter a me ssage here  to disabl e this dia log, 1-40  characters  in length .
  9031   "^DD",101. 41,101.41, 3,21,0)
  9032   ^^3^3^2950 112^
  9033   "^DD",101. 41,101.41, 3,21,1,0)
  9034   This field  disables  use of thi s dialog w hen it con tains text .  The tex t
  9035   "^DD",101. 41,101.41, 3,21,2,0)
  9036   should be  a short me ssage expl aining why  use of th is dialog  has been
  9037   "^DD",101. 41,101.41, 3,21,3,0)
  9038   disabled,  as it will  be displa yed if thi s dialog i s selected .
  9039   "^DD",101. 41,101.41, 3,"DT")
  9040   2950112
  9041   "^DD",101. 41,101.41, 4,0)
  9042   TYPE^RS^P: prompt;D:d ialog;Q:qu ick order; O:order se t;M:menu;A :action;^0 ;4^Q
  9043   "^DD",101. 41,101.41, 4,3)
  9044   Specify a  type for t his dialog .
  9045   "^DD",101. 41,101.41, 4,21,0)
  9046   ^^5^5^2950 716^^^^
  9047   "^DD",101. 41,101.41, 4,21,1,0)
  9048   This field  defines t he type of  order dia log to be  processed.   Control
  9049   "^DD",101. 41,101.41, 4,21,2,0)
  9050   will be pa ssed to th e OE/RR Di alog Proce ssor for d ialog item s; menu ty pes
  9051   "^DD",101. 41,101.41, 4,21,3,0)
  9052   are used f or display ing and se lecting di alog items .  Action  types will  only
  9053   "^DD",101. 41,101.41, 4,21,4,0)
  9054   execute th e entry an d exit act ions, igno ring any i tems that  may exist;  these
  9055   "^DD",101. 41,101.41, 4,21,5,0)
  9056   dialogs sh ould not c reate entr ies in the  Orders fi le.
  9057   "^DD",101. 41,101.41, 4,"DT")
  9058   2950716
  9059   "^DD",101. 41,101.41, 5,0)
  9060   DISPLAY GR OUP^P100.9 8'^ORD(100 .98,^0;5^Q
  9061   "^DD",101. 41,101.41, 5,3)
  9062   Enter the  display gr oup contai ning order able items  defined b y this dia log.
  9063   "^DD",101. 41,101.41, 5,21,0)
  9064   ^^3^3^2950 112^
  9065   "^DD",101. 41,101.41, 5,21,1,0)
  9066   This field  determine s what dis play group  this dial og has bee n defined  for.
  9067   "^DD",101. 41,101.41, 5,21,2,0)
  9068   It will de fine which  orderable  items are  selectabl e with thi s dialog,
  9069   "^DD",101. 41,101.41, 5,21,3,0)
  9070   as well as  what serv ice to sen d the orde r to when  it is comp lete.
  9071   "^DD",101. 41,101.41, 5,"DT")
  9072   2950112
  9073   "^DD",101. 41,101.41, 6,0)
  9074   SIGNATURE  REQUIRED^S ^0:NONE;1: ORELSE;2:O RES;^0;6^Q
  9075   "^DD",101. 41,101.41, 6,3)
  9076   Enter the  OR key req uired to s ign orders  created b y this dia log
  9077   "^DD",101. 41,101.41, 6,21,0)
  9078   ^^6^6^2970 318^^
  9079   "^DD",101. 41,101.41, 6,21,1,0)
  9080   This field  indicates  what sign ature will  be requir ed for ord ers create d by
  9081   "^DD",101. 41,101.41, 6,21,2,0)
  9082   this dialo g, to be c onsidered  complete a nd ready t o release  to the ser vice
  9083   "^DD",101. 41,101.41, 6,21,3,0)
  9084   for action .  If this  flag is s et to NO a nd the dia log contai ns a promp t
  9085   "^DD",101. 41,101.41, 6,21,4,0)
  9086   for item(s ) from the  Orderable  Item file , the orde r created  may still
  9087   "^DD",101. 41,101.41, 6,21,5,0)
  9088   require a  signature  if any of  the items  ordered ar e individu ally flagg ed
  9089   "^DD",101. 41,101.41, 6,21,6,0)
  9090   as requiri ng a signa ture.
  9091   "^DD",101. 41,101.41, 6,"DT")
  9092   3170621
  9093   "^DD",101. 41,101.41, 7,0)
  9094   PACKAGE^P9 .4'^DIC(9. 4,^0;7^Q
  9095   "^DD",101. 41,101.41, 7,1,0)
  9096   ^.1
  9097   "^DD",101. 41,101.41, 7,1,1,0)
  9098   101.41^APK G
  9099   "^DD",101. 41,101.41, 7,1,1,1)
  9100   S ^ORD(101 .41,"APKG" ,$E(X,1,30 ),DA)=""
  9101   "^DD",101. 41,101.41, 7,1,1,2)
  9102   K ^ORD(101 .41,"APKG" ,$E(X,1,30 ),DA)
  9103   "^DD",101. 41,101.41, 7,1,1,"DT" )
  9104   2970325
  9105   "^DD",101. 41,101.41, 7,3)
  9106   Enter the  VISTA pack age that i s to recei ve orders  created by  this dial og.
  9107   "^DD",101. 41,101.41, 7,21,0)
  9108   ^^3^3^2950 208^
  9109   "^DD",101. 41,101.41, 7,21,1,0)
  9110   This is th e VISTA pa ckage that  is intend ed to rece ive orders  created b y
  9111   "^DD",101. 41,101.41, 7,21,2,0)
  9112   this dialo g; this is  required  for creati ng the HL7  messages  to pass th e
  9113   "^DD",101. 41,101.41, 7,21,3,0)
  9114   order.
  9115   "^DD",101. 41,101.41, 7,"DT")
  9116   2970325
  9117   "^DD",101. 41,101.41, 8,0)
  9118   VERIFY ORD ER^S^1:YES ;0:NO;^0;8 ^Q
  9119   "^DD",101. 41,101.41, 8,3)
  9120   Enter YES  to have or ders creat ed by this  dialog pr esented to  the user  before sav ing, with  the opport unity to e dit.
  9121   "^DD",101. 41,101.41, 8,21,0)
  9122   ^^3^3^2950 623^
  9123   "^DD",101. 41,101.41, 8,21,1,0)
  9124   This field  is a flag , which de termines i f the orde r created  by this di alog
  9125   "^DD",101. 41,101.41, 8,21,2,0)
  9126   will be pr esented to  the user  for verifi cation bef ore saving  in the Or ders
  9127   "^DD",101. 41,101.41, 8,21,3,0)
  9128   file; for  most quick  orders, t his flag s hould be s et to 0 (n o).
  9129   "^DD",101. 41,101.41, 8,"DT")
  9130   3170621
  9131   "^DD",101. 41,101.41, 9,0)
  9132   ASK FOR AN OTHER ORDE R^S^0:NO;1 :YES;2:YES -DON'T ASK ;^0;9^Q
  9133   "^DD",101. 41,101.41, 9,3)
  9134   Enter YES  to have th e user ask ed to ente r another  order from  this dial og before  exiting.
  9135   "^DD",101. 41,101.41, 9,21,0)
  9136   ^^6^6^2970 616^^^
  9137   "^DD",101. 41,101.41, 9,21,1,0)
  9138   This field  allows th e user to  add anothe r order fr om this di alog, when  the
  9139   "^DD",101. 41,101.41, 9,21,2,0)
  9140   initial or der is acc epted and  placed; if  set to YE S, the use r will be
  9141   "^DD",101. 41,101.41, 9,21,3,0)
  9142   asked "Add  another < dialog dis play text>  order?" t o allow fo r either
  9143   "^DD",101. 41,101.41, 9,21,4,0)
  9144   exiting th e processo r or addin g an addit ional orde r of the s ame type.
  9145   "^DD",101. 41,101.41, 9,21,5,0)
  9146   This field  can also  be set to  YES-DON'T  ASK to for ce the pro cessor to
  9147   "^DD",101. 41,101.41, 9,21,6,0)
  9148   automatica lly drop i nto prompt ing for an other orde r without  asking fir st.
  9149   "^DD",101. 41,101.41, 9,"DT")
  9150   2970616
  9151   "^DD",101. 41,101.41, 10,0)
  9152   ITEMS^101. 412IA^^10; 0
  9153   "^DD",101. 41,101.41, 10,21,0)
  9154   ^^5^5^2990 211^^^^
  9155   "^DD",101. 41,101.41, 10,21,1,0)
  9156   This field  contains  the compon ents for d ialogs:
  9157   "^DD",101. 41,101.41, 10,21,2,0)
  9158        Dialo gs      ->  prompts
  9159   "^DD",101. 41,101.41, 10,21,3,0)
  9160        Quick  orders ->  prompts ( completed)
  9161   "^DD",101. 41,101.41, 10,21,4,0)
  9162        Order  sets   ->  dialogs o r quick or ders
  9163   "^DD",101. 41,101.41, 10,21,5,0)
  9164        Menus         ->  dialogs,  quick orde rs, or ord er sets
  9165   "^DD",101. 41,101.41, 11,0)
  9166   DATA TYPE^ S^D:date/t ime;R:free  text date /time;F:fr ee text;N: numeric;S: set of cod es;Y:yes/n o;P:pointe r;W:word p rocessing; ^1;1^Q
  9167   "^DD",101. 41,101.41, 11,3)
  9168   Enter the  type of da ta to be c ollected a t this pro mpt.
  9169   "^DD",101. 41,101.41, 11,21,0)
  9170   ^^2^2^2950 823^^
  9171   "^DD",101. 41,101.41, 11,21,1,0)
  9172   This is th e type of  data being  prompted  for; this  field is u sed to def ine
  9173   "^DD",101. 41,101.41, 11,21,2,0)
  9174   a call to  the reader  (^DIR) in  most case s.
  9175   "^DD",101. 41,101.41, 11,23,0)
  9176   ^^1^1^2950 823^^
  9177   "^DD",101. 41,101.41, 11,23,1,0)
  9178   Used with  Prompt-typ e only.
  9179   "^DD",101. 41,101.41, 11,"DT")
  9180   2950407
  9181   "^DD",101. 41,101.41, 12,0)
  9182   DOMAIN^F^^ 1;2^K:$L(X )>235!($L( X)<1) X
  9183   "^DD",101. 41,101.41, 12,3)
  9184   Answer mus t be 1-235  character s in lengt h.
  9185   "^DD",101. 41,101.41, 12,21,0)
  9186   ^^3^3^2990 225^^^^
  9187   "^DD",101. 41,101.41, 12,21,1,0)
  9188   This is a  parameter  that may b e used to  further sp ecify the  data type.
  9189   "^DD",101. 41,101.41, 12,21,2,0)
  9190   The string  stored he re should  be appropr iate for t he second  ^-piece of
  9191   "^DD",101. 41,101.41, 12,21,3,0)
  9192   DIR(0) whe n used wit h the data  type fiel d.
  9193   "^DD",101. 41,101.41, 12,23,0)
  9194   ^^1^1^2990 225^^^^
  9195   "^DD",101. 41,101.41, 12,23,1,0)
  9196   Used with  Prompt-typ e only.
  9197   "^DD",101. 41,101.41, 12,"DT")
  9198   2990225
  9199   "^DD",101. 41,101.41, 13,0)
  9200   ID^F^^1;3^ K:$L(X)>10 !($L(X)<2)  X
  9201   "^DD",101. 41,101.41, 13,3)
  9202   Answer mus t be 2-10  characters  in length .
  9203   "^DD",101. 41,101.41, 13,21,0)
  9204   ^.001^20^2 0^3010727^ ^
  9205   "^DD",101. 41,101.41, 13,21,1,0)
  9206   This field  may conta in a singl e word ide ntifier wh ich will b e
  9207   "^DD",101. 41,101.41, 13,21,2,0)
  9208   stored wit h the user  response  in the Ord ers file # 100, where  it
  9209   "^DD",101. 41,101.41, 13,21,3,0)
  9210   will be in dexed for  quick refe rence to c ertain val ues in the
  9211   "^DD",101. 41,101.41, 13,21,4,0)
  9212   order dial og.  The f ollowing a re some ex amples of  values
  9213   "^DD",101. 41,101.41, 13,21,5,0)
  9214   currently  in use:
  9215   "^DD",101. 41,101.41, 13,21,6,0)
  9216    
  9217   "^DD",101. 41,101.41, 13,21,7,0)
  9218      START       -> Sta rt date/ti me
  9219   "^DD",101. 41,101.41, 13,21,8,0)
  9220      STOP        -> Sto p date/tim e
  9221   "^DD",101. 41,101.41, 13,21,9,0)
  9222      SCHEDUL E   -> Adm inistratio n Schedule
  9223   "^DD",101. 41,101.41, 13,21,10,0 )
  9224      ORDERAB LE  -> Ord erable Ite m
  9225   "^DD",101. 41,101.41, 13,21,11,0 )
  9226      DRUG        -> Dis pense Drug
  9227   "^DD",101. 41,101.41, 13,21,12,0 )
  9228      CANCEL      -> Can cel Future  Orders fl ag
  9229   "^DD",101. 41,101.41, 13,21,13,0 )
  9230      COMMENT     -> Wor d processi ng comment s
  9231   "^DD",101. 41,101.41, 13,21,14,0 )
  9232    
  9233   "^DD",101. 41,101.41, 13,21,15,0 )
  9234   These valu es must be  unique am ong entrie s within a n order di alog
  9235   "^DD",101. 41,101.41, 13,21,16,0 )
  9236   but do not  need to b e unique a cross the  entire fil e.  Be sur e to
  9237   "^DD",101. 41,101.41, 13,21,17,0 )
  9238   check the  IDs assign ed to gene ric text e ntries to  make sure  that
  9239   "^DD",101. 41,101.41, 13,21,18,0 )
  9240   all IDs ar e unique.   In order  to avoid p otential p roblems it 's
  9241   "^DD",101. 41,101.41, 13,21,19,0 )
  9242   recommende d that you  use uniqu e IDs for  any local  entries th at you
  9243   "^DD",101. 41,101.41, 13,21,20,0 )
  9244   create.
  9245   "^DD",101. 41,101.41, 13,"DT")
  9246   2960215
  9247   "^DD",101. 41,101.41, 17,0)
  9248   VALIDATION ^K^^7;E1,2 45^K:$L(X) >245 X D:$ D(X) ^DIM
  9249   "^DD",101. 41,101.41, 17,3)
  9250   This is St andard MUM PS code.
  9251   "^DD",101. 41,101.41, 17,9)
  9252   @
  9253   "^DD",101. 41,101.41, 17,21,0)
  9254   ^^3^3^2960 912^
  9255   "^DD",101. 41,101.41, 17,21,1,0)
  9256   This is MU MPS code t hat will b e executed  at the ti me of rele asing an
  9257   "^DD",101. 41,101.41, 17,21,2,0)
  9258   order crea ted with t his dialog ; dialog r esponses m ay be chec ked again
  9259   "^DD",101. 41,101.41, 17,21,3,0)
  9260   here befor e releasin g the orde r to the s ervice.
  9261   "^DD",101. 41,101.41, 17,"DT")
  9262   2960912
  9263   "^DD",101. 41,101.41, 19,0)
  9264   ADDITIONAL  TEXT^K^^9 ;E1,245^K: $L(X)>245  X D:$D(X)  ^DIM
  9265   "^DD",101. 41,101.41, 19,3)
  9266   This is St andard MUM PS code.
  9267   "^DD",101. 41,101.41, 19,9)
  9268   @
  9269   "^DD",101. 41,101.41, 19,21,0)
  9270   ^^3^3^2960 405^^
  9271   "^DD",101. 41,101.41, 19,21,1,0)
  9272   This is MU MPS code t hat will b e executed  when orde r ORIFN cr eated by t his
  9273   "^DD",101. 41,101.41, 19,21,2,0)
  9274   dialog is  about to b e displaye d; any str ing that s hould be a ppended to  the
  9275   "^DD",101. 41,101.41, 19,21,3,0)
  9276   order text  should be  returned  in Y.
  9277   "^DD",101. 41,101.41, 19,"DT")
  9278   2960405
  9279   "^DD",101. 41,101.41, 20,0)
  9280   DESCRIPTIO N^101.411^ ^2;0
  9281   "^DD",101. 41,101.41, 20,21,0)
  9282   ^^1^1^2971 219^
  9283   "^DD",101. 41,101.41, 20,21,1,0)
  9284   This is a  descriptio n of the d ialog and  its uses.
  9285   "^DD",101. 41,101.41, 21,0)
  9286   RESPONSES^ 101.416^^6 ;0
  9287   "^DD",101. 41,101.41, 21,21,0)
  9288   ^^2^2^2971 219^
  9289   "^DD",101. 41,101.41, 21,21,1,0)
  9290   This multi ple contai ns any res ponses to  prompts th at have be en pre-ans wered
  9291   "^DD",101. 41,101.41, 21,21,2,0)
  9292   to create  a quick or der.
  9293   "^DD",101. 41,101.41, 30,0)
  9294   ENTRY ACTI ON^K^^3;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M
  9295   "^DD",101. 41,101.41, 30,3)
  9296   This is St andard MUM PS code.
  9297   "^DD",101. 41,101.41, 30,9)
  9298   @
  9299   "^DD",101. 41,101.41, 30,21,0)
  9300   ^^4^4^2950 425^
  9301   "^DD",101. 41,101.41, 30,21,1,0)
  9302   This is MU MPS code t hat will b e executed  at the to p of a dia log, prior  to
  9303   "^DD",101. 41,101.41, 30,21,2,0)
  9304   the execut ion of any  prompts;  it may per form funct ions such  as listing
  9305   "^DD",101. 41,101.41, 30,21,3,0)
  9306   the recent  Radiology  exams bef ore orderi ng a new o ne, or ale rting the
  9307   "^DD",101. 41,101.41, 30,21,4,0)
  9308   user to an  existing  diet order  before ma king a cha nge.
  9309   "^DD",101. 41,101.41, 30,"DT")
  9310   2950425
  9311   "^DD",101. 41,101.41, 31,0)
  9312   QUICK SETU P^K^^3.1;E 1,245^K:$L (X)>245 X  D:$D(X) ^D IM
  9313   "^DD",101. 41,101.41, 31,3)
  9314   This is St andard MUM PS code.
  9315   "^DD",101. 41,101.41, 31,9)
  9316   @
  9317   "^DD",101. 41,101.41, 31,21,0)
  9318   ^^3^3^2970 113^
  9319   "^DD",101. 41,101.41, 31,21,1,0)
  9320   This is MU MPS code t hat will b e executed  in the pl ace of the  Entry Act ion
  9321   "^DD",101. 41,101.41, 31,21,2,0)
  9322   when creat ing quick  orders for  this dial og; variab les may be  set here
  9323   "^DD",101. 41,101.41, 31,21,3,0)
  9324   instead to  bypass th e usual de pendence o n specific  patient v alues.
  9325   "^DD",101. 41,101.41, 31,"DT")
  9326   2970113
  9327   "^DD",101. 41,101.41, 40,0)
  9328   EXIT ACTIO N^K^^4;E1, 245^K:$L(X )>245 X D: $D(X) ^DIM
  9329   "^DD",101. 41,101.41, 40,3)
  9330   This is St andard MUM PS code.
  9331   "^DD",101. 41,101.41, 40,9)
  9332   @
  9333   "^DD",101. 41,101.41, 40,21,0)
  9334   ^^2^2^2950 622^
  9335   "^DD",101. 41,101.41, 40,21,1,0)
  9336   This is MU MPS code t hat will b e executed  upon comp letion of  processing  the
  9337   "^DD",101. 41,101.41, 40,21,2,0)
  9338   dialog; it  is curren tly used o nly with d ialog-type  entries.
  9339   "^DD",101. 41,101.41, 40,"DT")
  9340   2950622
  9341   "^DD",101. 41,101.41, 50,0)
  9342   CONTROLS^1 01.415A^^5 0;0
  9343   "^DD",101. 41,101.41, 51,0)
  9344   COLUMN WID TH^NJ3,0^^ 5;1^K:+X'= X!(X>240)! (X<20)!(X? .E1"."1N.N ) X
  9345   "^DD",101. 41,101.41, 51,1,0)
  9346   ^.1
  9347   "^DD",101. 41,101.41, 51,1,1,0)
  9348   101.41^AM5 1^MUMPS
  9349   "^DD",101. 41,101.41, 51,1,1,1)
  9350   D REDO^ORD D41
  9351   "^DD",101. 41,101.41, 51,1,1,2)
  9352   D REDO^ORD D41
  9353   "^DD",101. 41,101.41, 51,1,1,"%D ",0)
  9354   ^^1^1^2990 210^
  9355   "^DD",101. 41,101.41, 51,1,1,"%D ",1,0)
  9356   Update TIM ESTAMP whe never COLU MN WIDTH i s changed.
  9357   "^DD",101. 41,101.41, 51,1,1,"DT ")
  9358   2990210
  9359   "^DD",101. 41,101.41, 51,3)
  9360   Type a Num ber betwee n 20 and 2 40, 0 Deci mal Digits
  9361   "^DD",101. 41,101.41, 51,21,0)
  9362   ^^2^2^2950 623^
  9363   "^DD",101. 41,101.41, 51,21,1,0)
  9364   This is th e width, i n characte rs, for ea ch column  in a menu.   For exam ple,
  9365   "^DD",101. 41,101.41, 51,21,2,0)
  9366   to have 3  columns on  an 80 cha racter dev ice, enter  a width o f 26.
  9367   "^DD",101. 41,101.41, 51,"DT")
  9368   2990210
  9369   "^DD",101. 41,101.41, 52,0)
  9370   MNEMONIC W IDTH^NJ1,0 ^^5;2^K:+X '=X!(X>9)! (X<1)!(X?. E1"."1N.N)  X
  9371   "^DD",101. 41,101.41, 52,1,0)
  9372   ^.1
  9373   "^DD",101. 41,101.41, 52,1,1,0)
  9374   101.41^AM5 2^MUMPS
  9375   "^DD",101. 41,101.41, 52,1,1,1)
  9376   D REDO^ORD D41
  9377   "^DD",101. 41,101.41, 52,1,1,2)
  9378   D REDO^ORD D41
  9379   "^DD",101. 41,101.41, 52,1,1,"%D ",0)
  9380   ^^1^1^2990 210^
  9381   "^DD",101. 41,101.41, 52,1,1,"%D ",1,0)
  9382   Update TIM ESTAMP whe never MNEM ONIC WIDTH  is change d.
  9383   "^DD",101. 41,101.41, 52,1,1,"DT ")
  9384   2990210
  9385   "^DD",101. 41,101.41, 52,3)
  9386   Type a Num ber betwee n 1 and 9,  0 Decimal  Digits
  9387   "^DD",101. 41,101.41, 52,21,0)
  9388   ^^2^2^2950 623^
  9389   "^DD",101. 41,101.41, 52,21,1,0)
  9390   This field  allows th e width of  item mnem onics to b e varied;  the defaul t
  9391   "^DD",101. 41,101.41, 52,21,2,0)
  9392   value is 5 .
  9393   "^DD",101. 41,101.41, 52,"DT")
  9394   2990210
  9395   "^DD",101. 41,101.41, 53,0)
  9396   PATH SWITC H^S^1:YES; 0:NO;^5;3^ Q
  9397   "^DD",101. 41,101.41, 53,3)
  9398   Enter YES  if this me nu should  be redispl ayed when  traversing  back up t he menu tr ee.
  9399   "^DD",101. 41,101.41, 53,21,0)
  9400   ^^5^5^2950 623^
  9401   "^DD",101. 41,101.41, 53,21,1,0)
  9402   This switc h allows t he user, w hen traver sing back  UP the tre e of menus  and
  9403   "^DD",101. 41,101.41, 53,21,2,0)
  9404   items, to  select a n ew path ba ck down th e tree.  I n other wo rds, the m enu
  9405   "^DD",101. 41,101.41, 53,21,3,0)
  9406   is redispl ayed when  returning  to that me nu's level  in the tr ee and
  9407   "^DD",101. 41,101.41, 53,21,4,0)
  9408   processing  back down  the tree  is possibl e from tha t point.   If nothing  is
  9409   "^DD",101. 41,101.41, 53,21,5,0)
  9410   selected f rom the me nu, the pa th continu es back up  the tree.
  9411   "^DD",101. 41,101.41, 53,"DT")
  9412   2950623
  9413   "^DD",101. 41,101.41, 54,0)
  9414   LISTBOX TE XT^F^^5;4^ K:$L(X)>30 !($L(X)<1)  X
  9415   "^DD",101. 41,101.41, 54,3)
  9416   Answer mus t be 1-30  characters  in length .
  9417   "^DD",101. 41,101.41, 54,"DT")
  9418   2960524
  9419   "^DD",101. 41,101.41, 55,0)
  9420   WINDOW FOR M ID^NJ4,0 ^^5;5^K:+X '=X!(X>999 9)!(X<0)!( X?.E1"."1N .N) X
  9421   "^DD",101. 41,101.41, 55,3)
  9422   Type a Num ber betwee n 0 and 99 99, 0 Deci mal Digits
  9423   "^DD",101. 41,101.41, 55,21,0)
  9424   ^.001^23^2 3^3010727^ ^
  9425   "^DD",101. 41,101.41, 55,21,1,0)
  9426   This field  tells the  GUI DELPH I code whi ch form to  use to pr ocess the
  9427   "^DD",101. 41,101.41, 55,21,2,0)
  9428   order dial og.  Each  number rep resents a  unique for m.  Follow ing are so me
  9429   "^DD",101. 41,101.41, 55,21,3,0)
  9430   of the mor e common c odes and t heir corre sponding f orm in DEL PHI.
  9431   "^DD",101. 41,101.41, 55,21,4,0)
  9432    
  9433   "^DD",101. 41,101.41, 55,21,5,0)
  9434       Form N ame     Wi ndows Form  ID
  9435   "^DD",101. 41,101.41, 55,21,6,0)
  9436       ------ ---     -- ---------- ---
  9437   "^DD",101. 41,101.41, 55,21,7,0)
  9438     OD_ACTIV ITY            100
  9439   "^DD",101. 41,101.41, 55,21,8,0)
  9440     OD_ALLER GY             105
  9441   "^DD",101. 41,101.41, 55,21,9,0)
  9442     OD_CONSU LT             110
  9443   "^DD",101. 41,101.41, 55,21,10,0 )
  9444     OD_PROCE DURE           112
  9445   "^DD",101. 41,101.41, 55,21,11,0 )
  9446     OD_DIET_ TXT            115
  9447   "^DD",101. 41,101.41, 55,21,12,0 )
  9448     OD_DIET                 117
  9449   "^DD",101. 41,101.41, 55,21,13,0 )
  9450     OD_LAB                  120
  9451   "^DD",101. 41,101.41, 55,21,14,0 )
  9452     OD_MEDIN PT             130
  9453   "^DD",101. 41,101.41, 55,21,15,0 )
  9454     OD_MEDS                 135
  9455   "^DD",101. 41,101.41, 55,21,16,0 )
  9456     OD_MEDOU TPT            140
  9457   "^DD",101. 41,101.41, 55,21,17,0 )
  9458     OD_NURSI NG             150
  9459   "^DD",101. 41,101.41, 55,21,18,0 )
  9460     OD_MISC                 151
  9461   "^DD",101. 41,101.41, 55,21,19,0 )
  9462     OD_GENER IC             152
  9463   "^DD",101. 41,101.41, 55,21,20,0 )
  9464     OD_IMAGI NG             160
  9465   "^DD",101. 41,101.41, 55,21,21,0 )
  9466     OD_VITAL S              171 
  9467   "^DD",101. 41,101.41, 55,21,22,0 )
  9468     OD_MEDIV                180
  9469   "^DD",101. 41,101.41, 55,21,23,0 )
  9470     OD_TEXTO NLY            999
  9471   "^DD",101. 41,101.41, 55,"DT")
  9472   2960804
  9473   "^DD",101. 41,101.41, 56,0)
  9474   CREATE PAR ENT ORDER^ S^1:YES;0: NO;^5;6^Q
  9475   "^DD",101. 41,101.41, 56,3)
  9476   Enter YES  if a paren t order sh ould be cr eated for  this order  set
  9477   "^DD",101. 41,101.41, 56,21,0)
  9478   ^^6^6^2970 227^
  9479   "^DD",101. 41,101.41, 56,21,1,0)
  9480   This flag  indicates  whether a  parent ord er should  be created  to group
  9481   "^DD",101. 41,101.41, 56,21,2,0)
  9482   together a ll the ord ers create d by this  order set;  this flag  is only
  9483   "^DD",101. 41,101.41, 56,21,3,0)
  9484   valid with  SET type  order dial ogs.  If t his value  is YES, a  parent
  9485   "^DD",101. 41,101.41, 56,21,4,0)
  9486   order will  be create d, and onl y the pare nt will be  presented  on the
  9487   "^DD",101. 41,101.41, 56,21,5,0)
  9488   orders lis t for disp lay and ac tion; NO w ill preven t a parent  from bein g
  9489   "^DD",101. 41,101.41, 56,21,6,0)
  9490   created an d all orde rs will be  created a nd display ed indepen dently.
  9491   "^DD",101. 41,101.41, 56,"DT")
  9492   2970227
  9493   "^DD",101. 41,101.41, 57,0)
  9494   DISPLAY SU BHEADER^S^ 1:YES;0:NO ;^5;7^Q
  9495   "^DD",101. 41,101.41, 57,3)
  9496   Enter YES  if a subhe ader shoul d be displ ayed as ea ch order i n this set  is proces sed
  9497   "^DD",101. 41,101.41, 57,21,0)
  9498   ^^3^3^2970 227^
  9499   "^DD",101. 41,101.41, 57,21,1,0)
  9500   This flag  indicates  whether a  subheader  is to be d isplayed f or each or der
  9501   "^DD",101. 41,101.41, 57,21,2,0)
  9502   in this se t as it is  processed  and place d; this fl ag is only  valid wit h
  9503   "^DD",101. 41,101.41, 57,21,3,0)
  9504   SET type o rder dialo gs.
  9505   "^DD",101. 41,101.41, 57,"DT")
  9506   2970227
  9507   "^DD",101. 41,101.41, 58,0)
  9508   AUTO-ACCEP T QUICK OR DER^S^1:YE S;^5;8^Q
  9509   "^DD",101. 41,101.41, 58,3)
  9510   Enter 'Yes ' if the o rder shoul d be place d without  displaying  the dialo g window.
  9511   "^DD",101. 41,101.41, 58,21,0)
  9512   ^^2^2^2980 902^
  9513   "^DD",101. 41,101.41, 58,21,1,0)
  9514   This can b e set to y es for a q uick order  so that i t can be p laced simp ly
  9515   "^DD",101. 41,101.41, 58,21,2,0)
  9516   by clickin g on it in  the GUI ( no orderin g dialog i s displaye d).
  9517   "^DD",101. 41,101.41, 58,"DT")
  9518   2980902
  9519   "^DD",101. 41,101.41, 99,0)
  9520   TIMESTAMP^ F^^99;1^K: $L(X)>15!( $L(X)<1) X
  9521   "^DD",101. 41,101.41, 99,1,0)
  9522   ^.1
  9523   "^DD",101. 41,101.41, 99,1,1,0)
  9524   101.41^AM^ MUMPS
  9525   "^DD",101. 41,101.41, 99,1,1,1)
  9526   D SET^ORDD 41(DA)
  9527   "^DD",101. 41,101.41, 99,1,1,2)
  9528   D KILL^ORD D41(DA)
  9529   "^DD",101. 41,101.41, 99,1,1,"%D ",0)
  9530   ^^2^2^2990 210^
  9531   "^DD",101. 41,101.41, 99,1,1,"%D ",1,0)
  9532   Recompiles  order dia log menus  in ^XUTL(" XQORM",<di alog#>_";O RD(101.41, ")
  9533   "^DD",101. 41,101.41, 99,1,1,"%D ",2,0)
  9534   whenever f ields nece ssary to d isplaying  the menu a re changed .
  9535   "^DD",101. 41,101.41, 99,1,1,"DT ")
  9536   2990210
  9537   "^DD",101. 41,101.41, 99,3)
  9538   Answer mus t be 1-15  characters  in length .
  9539   "^DD",101. 41,101.41, 99,21,0)
  9540   ^^2^2^2980 501^
  9541   "^DD",101. 41,101.41, 99,21,1,0)
  9542   For menus,  this cont ains the $ H time the  menu was  last compi led for us e
  9543   "^DD",101. 41,101.41, 99,21,2,0)
  9544   with the U nwinder ut ility (^XQ OR).
  9545   "^DD",101. 41,101.41, 99,"DT")
  9546   2990210
  9547   "^DD",101. 41,101.411 ,0)
  9548   DESCRIPTIO N SUB-FIEL D^^.01^1
  9549   "^DD",101. 41,101.411 ,0,"DT")
  9550   2950407
  9551   "^DD",101. 41,101.411 ,0,"NM","D ESCRIPTION ")
  9552  
  9553   "^DD",101. 41,101.411 ,0,"UP")
  9554   101.41
  9555   "^DD",101. 41,101.411 ,.01,0)
  9556   DESCRIPTIO N^W^^0;1^Q
  9557   "^DD",101. 41,101.411 ,.01,3)
  9558   Enter a de scription  of this di alog.
  9559   "^DD",101. 41,101.411 ,.01,21,0)
  9560   ^^1^1^2950 425^^
  9561   "^DD",101. 41,101.411 ,.01,21,1, 0)
  9562   This field  contains  a descript ion of the  content a nd use of  this dialo g.
  9563   "^DD",101. 41,101.411 ,.01,"DT")
  9564   2950407
  9565   "^DD",101. 41,101.412 ,0)
  9566   ITEMS SUB- FIELD^^117 ^37
  9567   "^DD",101. 41,101.412 ,0,"DT")
  9568   2971117
  9569   "^DD",101. 41,101.412 ,0,"ID","W RITE")
  9570   N OR0,ORNM  S OR0=^(0 ) I $P(OR0 ,U,2) S OR NM=$P($G(^ ORD(101.41 ,+$P(OR0,U ,2),0)),U)  D:$L(ORNM ) EN^DDIOL (ORNM,,"?1 0")
  9571   "^DD",101. 41,101.412 ,0,"IX","A TXT",101.4 12,21)
  9572  
  9573   "^DD",101. 41,101.412 ,0,"IX","B ",101.412, .01)
  9574  
  9575   "^DD",101. 41,101.412 ,0,"IX","D ",101.412, 2)
  9576  
  9577   "^DD",101. 41,101.412 ,0,"IX","D AD",101.41 2,1)
  9578  
  9579   "^DD",101. 41,101.412 ,0,"IX","D AD1",101.4 12,.01)
  9580  
  9581   "^DD",101. 41,101.412 ,0,"NM","I TEMS")
  9582  
  9583   "^DD",101. 41,101.412 ,0,"UP")
  9584   101.41
  9585   "^DD",101. 41,101.412 ,.01,0)
  9586   SEQUENCE^M NJ5,1^^0;1 ^K:+X'=X!( X>999.9)!( X<.1)!(X?. E1"."2N.N)  X
  9587   "^DD",101. 41,101.412 ,.01,1,0)
  9588   ^.1
  9589   "^DD",101. 41,101.412 ,.01,1,1,0 )
  9590   101.412^B
  9591   "^DD",101. 41,101.412 ,.01,1,1,1 )
  9592   S ^ORD(101 .41,DA(1), 10,"B",$E( X,1,30),DA )=""
  9593   "^DD",101. 41,101.412 ,.01,1,1,2 )
  9594   K ^ORD(101 .41,DA(1), 10,"B",$E( X,1,30),DA )
  9595   "^DD",101. 41,101.412 ,.01,1,2,0 )
  9596   101.412^DA D1^MUMPS
  9597   "^DD",101. 41,101.412 ,.01,1,2,1 )
  9598   N ORP S OR P=$P(^ORD( 101.41,DA( 1),10,DA,0 ),U,11) S: ORP ^ORD(1 01.41,DA(1 ),10,"DAD" ,ORP,X,DA) =""
  9599   "^DD",101. 41,101.412 ,.01,1,2,2 )
  9600   N ORP S OR P=$P(^ORD( 101.41,DA( 1),10,DA,0 ),U,11) K: ORP ^ORD(1 01.41,DA(1 ),10,"DAD" ,ORP,X,DA)
  9601   "^DD",101. 41,101.412 ,.01,1,2," %D",0)
  9602   ^^1^1^2950 511^
  9603   "^DD",101. 41,101.412 ,.01,1,2," %D",1,0)
  9604   Allows ret rieval of  'child' pr ompts in s equence by  parent.
  9605   "^DD",101. 41,101.412 ,.01,1,2," DT")
  9606   2950511
  9607   "^DD",101. 41,101.412 ,.01,1,3,0 )
  9608   101.41^AMM ^MUMPS
  9609   "^DD",101. 41,101.412 ,.01,1,3,1 )
  9610   D REDOX^OR DD41
  9611   "^DD",101. 41,101.412 ,.01,1,3,2 )
  9612   D REDOX^OR DD41
  9613   "^DD",101. 41,101.412 ,.01,1,3," %D",0)
  9614   ^^1^1^2990 210^
  9615   "^DD",101. 41,101.412 ,.01,1,3," %D",1,0)
  9616   Update TIM ESTAMP whe never SEQU ENCE is ch anged.
  9617   "^DD",101. 41,101.412 ,.01,1,3," DT")
  9618   2990210
  9619   "^DD",101. 41,101.412 ,.01,3)
  9620   Type a Num ber betwee n .1 and 9 99.9, 1 De cimal Digi t
  9621   "^DD",101. 41,101.412 ,.01,21,0)
  9622   ^^2^2^2971 117^^^^
  9623   "^DD",101. 41,101.412 ,.01,21,1, 0)
  9624   This field  specifies  the order  in which  this item  will be di splayed or
  9625   "^DD",101. 41,101.412 ,.01,21,2, 0)
  9626   processed.
  9627   "^DD",101. 41,101.412 ,.01,"DT")
  9628   2990210
  9629   "^DD",101. 41,101.412 ,.1,0)
  9630   INPUT TRAN SFORM^K^^. 1;E1,245^K :$L(X)>245  X D:$D(X)  ^DIM
  9631   "^DD",101. 41,101.412 ,.1,3)
  9632   This is St andard MUM PS code.
  9633   "^DD",101. 41,101.412 ,.1,9)
  9634   @
  9635   "^DD",101. 41,101.412 ,.1,21,0)
  9636   ^^2^2^2950 816^
  9637   "^DD",101. 41,101.412 ,.1,21,1,0 )
  9638   This is co de that wi ll be used  as the th ird piece  of DIR(0)  when askin g
  9639   "^DD",101. 41,101.412 ,.1,21,2,0 )
  9640   this promp t.
  9641   "^DD",101. 41,101.412 ,.1,"DT")
  9642   2950816
  9643   "^DD",101. 41,101.412 ,1,0)
  9644   PARENT^P10 1.41'^ORD( 101.41,^0; 11^Q
  9645   "^DD",101. 41,101.412 ,1,1,0)
  9646   ^.1
  9647   "^DD",101. 41,101.412 ,1,1,1,0)
  9648   101.412^DA D^MUMPS
  9649   "^DD",101. 41,101.412 ,1,1,1,1)
  9650   S ^ORD(101 .41,DA(1), 10,"DAD",X ,$P(^ORD(1 01.41,DA(1 ),10,DA,0) ,U),DA)=""
  9651   "^DD",101. 41,101.412 ,1,1,1,2)
  9652   K ^ORD(101 .41,DA(1), 10,"DAD",X ,$P(^ORD(1 01.41,DA(1 ),10,DA,0) ,U),DA)
  9653   "^DD",101. 41,101.412 ,1,1,1,"%D ",0)
  9654   ^^1^1^2950 511^^
  9655   "^DD",101. 41,101.412 ,1,1,1,"%D ",1,0)
  9656   Allows ret rieval of  'child' pr ompts in s equence by  parent.
  9657   "^DD",101. 41,101.412 ,1,1,1,"DT ")
  9658   2950511
  9659   "^DD",101. 41,101.412 ,1,3)
  9660   If this pr ompt is su bordinate  to another  in this d ialog, ent er the par ent prompt  here
  9661   "^DD",101. 41,101.412 ,1,21,0)
  9662   ^^4^4^2950 511^
  9663   "^DD",101. 41,101.412 ,1,21,1,0)
  9664   This field  controls  the behavi or of this  prompt.   If a paren t is defin ed
  9665   "^DD",101. 41,101.412 ,1,21,2,0)
  9666   here, this  prompt wi ll be aske d from wit hin the pa rent's dia log; when  it
  9667   "^DD",101. 41,101.412 ,1,21,3,0)
  9668   is invoked  independe ntly based  on its po sition seq uence numb er, the ch ild
  9669   "^DD",101. 41,101.412 ,1,21,4,0)
  9670   prompt wil l be ignor ed.
  9671   "^DD",101. 41,101.412 ,1,"DT")
  9672   2950511
  9673   "^DD",101. 41,101.412 ,2,0)
  9674   ITEM^P101. 41'X^ORD(1 01.41,^0;2 ^D TREE^OR DD41
  9675   "^DD",101. 41,101.412 ,2,1,0)
  9676   ^.1
  9677   "^DD",101. 41,101.412 ,2,1,1,0)
  9678   101.41^AD
  9679   "^DD",101. 41,101.412 ,2,1,1,1)
  9680   S ^ORD(101 .41,"AD",$ E(X,1,30), DA(1),DA)= ""
  9681   "^DD",101. 41,101.412 ,2,1,1,2)
  9682   K ^ORD(101 .41,"AD",$ E(X,1,30), DA(1),DA)
  9683   "^DD",101. 41,101.412 ,2,1,1,"DT ")
  9684   2950123
  9685   "^DD",101. 41,101.412 ,2,1,2,0)
  9686   101.412^D
  9687   "^DD",101. 41,101.412 ,2,1,2,1)
  9688   S ^ORD(101 .41,DA(1), 10,"D",$E( X,1,30),DA )=""
  9689   "^DD",101. 41,101.412 ,2,1,2,2)
  9690   K ^ORD(101 .41,DA(1), 10,"D",$E( X,1,30),DA )
  9691   "^DD",101. 41,101.412 ,2,1,2,"DT ")
  9692   2950411
  9693   "^DD",101. 41,101.412 ,2,1,3,0)
  9694   101.41^AMM 2^MUMPS
  9695   "^DD",101. 41,101.412 ,2,1,3,1)
  9696   D REDOX^OR DD41
  9697   "^DD",101. 41,101.412 ,2,1,3,2)
  9698   D REDOX^OR DD41
  9699   "^DD",101. 41,101.412 ,2,1,3,"%D ",0)
  9700   ^^1^1^2990 210^
  9701   "^DD",101. 41,101.412 ,2,1,3,"%D ",1,0)
  9702   Update TIM ESTAMP whe never ITEM  is change d.
  9703   "^DD",101. 41,101.412 ,2,1,3,"DT ")
  9704   2990210
  9705   "^DD",101. 41,101.412 ,2,3)
  9706   Enter an o rder dialo g; a dialo g that is  an ancesto r may not  also be a  sub-item.
  9707   "^DD",101. 41,101.412 ,2,21,0)
  9708   ^^3^3^2950 123^
  9709   "^DD",101. 41,101.412 ,2,21,1,0)
  9710   This field  points to  an order  dialog whi ch is subo rdinate to  this dial og.
  9711   "^DD",101. 41,101.412 ,2,21,2,0)
  9712   NOTE:  The  parent di alog menu  or one of  its ancest ors may no t be enter ed
  9713   "^DD",101. 41,101.412 ,2,21,3,0)
  9714   as an item .
  9715   "^DD",101. 41,101.412 ,2,"DT")
  9716   2990217
  9717   "^DD",101. 41,101.412 ,3,0)
  9718   MNEMONIC^F X^^0;3^K:$ L(X)>4!($L (X)<1)!(+X =X&($L(X," .")>1))!($ $CHKMNE^OR UTL(X)) X
  9719   "^DD",101. 41,101.412 ,3,1,0)
  9720   ^.1
  9721   "^DD",101. 41,101.412 ,3,1,1,0)
  9722   101.41^AMM 3^MUMPS
  9723   "^DD",101. 41,101.412 ,3,1,1,1)
  9724   D REDOX^OR DD41
  9725   "^DD",101. 41,101.412 ,3,1,1,2)
  9726   D REDOX^OR DD41
  9727   "^DD",101. 41,101.412 ,3,1,1,"%D ",0)
  9728   ^^1^1^2990 210^
  9729   "^DD",101. 41,101.412 ,3,1,1,"%D ",1,0)
  9730   Update TIM ESTAMP whe never MNEM ONIC is ch anged.
  9731   "^DD",101. 41,101.412 ,3,1,1,"DT ")
  9732   2990210
  9733   "^DD",101. 41,101.412 ,3,3)
  9734   Enter a mn emonic to  be used wh en this di alog is di splayed fo r selectio n, 1-4 cha racters in  length wi th no deci mal places  if numeri c. Standar d list man ager mnemo nics may n ot be used .
  9735   "^DD",101. 41,101.412 ,3,21,0)
  9736   ^.001^2^2^ 3010727^^^ ^
  9737   "^DD",101. 41,101.412 ,3,21,1,0)
  9738   This is a  short abbr eviation f or this it em dialog  to be used  when this
  9739   "^DD",101. 41,101.412 ,3,21,2,0)
  9740   dialog is  displayed  for select ion.
  9741   "^DD",101. 41,101.412 ,3,"DT")
  9742   3000822
  9743   "^DD",101. 41,101.412 ,4,0)
  9744   DISPLAY TE XT^FX^^0;4 ^K:$L(X)>8 0!($L(X)<1 )!($$CHKNA M^ORUTL(X) ) X
  9745   "^DD",101. 41,101.412 ,4,1,0)
  9746   ^.1
  9747   "^DD",101. 41,101.412 ,4,1,1,0)
  9748   101.41^AMM 4^MUMPS
  9749   "^DD",101. 41,101.412 ,4,1,1,1)
  9750   D REDOX^OR DD41
  9751   "^DD",101. 41,101.412 ,4,1,1,2)
  9752   D REDOX^OR DD41
  9753   "^DD",101. 41,101.412 ,4,1,1,"%D ",0)
  9754   ^^1^1^2990 210^
  9755   "^DD",101. 41,101.412 ,4,1,1,"%D ",1,0)
  9756   Update TIM ESTAMP whe never DISP LAY TEXT i s changed.
  9757   "^DD",101. 41,101.412 ,4,1,1,"DT ")
  9758   2990210
  9759   "^DD",101. 41,101.412 ,4,3)
  9760   Answer mus t be 1-80  characters  in length  and canno t contain  an up-arro w (^) or s emi-colon  (;).
  9761   "^DD",101. 41,101.412 ,4,21,0)
  9762   ^.001^2^2^ 3010419^^^ ^
  9763   "^DD",101. 41,101.412 ,4,21,1,0)
  9764   This field  allows th e text tha t normally  appears f or this it em to be
  9765   "^DD",101. 41,101.412 ,4,21,2,0)
  9766   replaced w ith altern ate text f or use in  this dialo g or menu.
  9767   "^DD",101. 41,101.412 ,4,"DT")
  9768   3000823
  9769   "^DD",101. 41,101.412 ,5,0)
  9770   DISPLAY ON LY?^S^0:NO ;1:YES;2:Y ES-HEADER; ^0;5^Q
  9771   "^DD",101. 41,101.412 ,5,1,0)
  9772   ^.1
  9773   "^DD",101. 41,101.412 ,5,1,1,0)
  9774   101.41^AMM 5^MUMPS
  9775   "^DD",101. 41,101.412 ,5,1,1,1)
  9776   D REDOX^OR DD41
  9777   "^DD",101. 41,101.412 ,5,1,1,2)
  9778   D REDOX^OR DD41
  9779   "^DD",101. 41,101.412 ,5,1,1,"%D ",0)
  9780   ^^1^1^2990 210^
  9781   "^DD",101. 41,101.412 ,5,1,1,"%D ",1,0)
  9782   Update TIM ESTAMP whe never DISP LAY ONLY?  is changed .
  9783   "^DD",101. 41,101.412 ,5,1,1,"DT ")
  9784   2990210
  9785   "^DD",101. 41,101.412 ,5,3)
  9786   Enter YES  if this it em is text  for displ ay only an d not a se lectable i tem.
  9787   "^DD",101. 41,101.412 ,5,21,0)
  9788   ^^3^3^2970 409^^^^
  9789   "^DD",101. 41,101.412 ,5,21,1,0)
  9790   This field  identifie s an item  as being f ree text f or display  purposes
  9791   "^DD",101. 41,101.412 ,5,21,2,0)
  9792   only.  The  text in t he Display  Text fiel d will be  displayed,  but it
  9793   "^DD",101. 41,101.412 ,5,21,3,0)
  9794   is not sel ectable; i f designat ed as a he ader, the  text will  be underli ned.
  9795   "^DD",101. 41,101.412 ,5,"DT")
  9796   2990210
  9797   "^DD",101. 41,101.412 ,6,0)
  9798   REQUIRED^S ^1:YES;0:N O;^0;6^Q
  9799   "^DD",101. 41,101.412 ,6,3)
  9800   Enter YES  if a respo nse to thi s prompt i s mandator y.
  9801   "^DD",101. 41,101.412 ,6,21,0)
  9802   ^^1^1^2950 407^
  9803   "^DD",101. 41,101.412 ,6,21,1,0)
  9804   This field  indicates  that the  user must  enter a re sponse to  this promp t.
  9805   "^DD",101. 41,101.412 ,6,"DT")
  9806   2950407
  9807   "^DD",101. 41,101.412 ,7,0)
  9808   MULTIPLE V ALUED^S^1: YES;0:NO;^ 0;7^Q
  9809   "^DD",101. 41,101.412 ,7,3)
  9810   Enter YES  if this pr ompt is to  be asked  multiple t imes.
  9811   "^DD",101. 41,101.412 ,7,21,0)
  9812   ^^3^3^2950 407^
  9813   "^DD",101. 41,101.412 ,7,21,1,0)
  9814   This field  determine s if this  prompt wil l be allow ed to have  multiple
  9815   "^DD",101. 41,101.412 ,7,21,2,0)
  9816   values, or  be prompt ed for onl y once; if  this prom pt is a su b-dialog,
  9817   "^DD",101. 41,101.412 ,7,21,3,0)
  9818   the entire  dialog wi ll be aske d once or  many times , as a gro up.
  9819   "^DD",101. 41,101.412 ,7,"DT")
  9820   2950407
  9821   "^DD",101. 41,101.412 ,7.1,0)
  9822   MAX NUMBER  OF MULTIP LES^NJ2,0^ ^0;12^K:+X '=X!(X>99) !(X<2)!(X? .E1"."1N.N ) X
  9823   "^DD",101. 41,101.412 ,7.1,3)
  9824   Type a Num ber betwee n 2 and 99 , 0 Decima l Digits
  9825   "^DD",101. 41,101.412 ,7.1,21,0)
  9826   ^^4^4^2950 815^
  9827   "^DD",101. 41,101.412 ,7.1,21,1, 0)
  9828   This is th e maximum  number of  values tha t may be e ntered for  this prom pt,
  9829   "^DD",101. 41,101.412 ,7.1,21,2, 0)
  9830   if it is f lagged as  being mult iple-value d.  For ex ample, a d iet order  may
  9831   "^DD",101. 41,101.412 ,7.1,21,3, 0)
  9832   have up to  5 diet mo dification s entered,  where 5 i s the maxi mum allowe d
  9833   "^DD",101. 41,101.412 ,7.1,21,4, 0)
  9834   that would  be entere d here.
  9835   "^DD",101. 41,101.412 ,7.1,"DT")
  9836   2950815
  9837   "^DD",101. 41,101.412 ,7.2,0)
  9838   TITLE^F^^0 ;13^K:$L(X )>30!($L(X )<3) X
  9839   "^DD",101. 41,101.412 ,7.2,3)
  9840   Answer mus t be 3-30  characters  in length .
  9841   "^DD",101. 41,101.412 ,7.2,21,0)
  9842   ^^8^8^2970 430^^
  9843   "^DD",101. 41,101.412 ,7.2,21,1, 0)
  9844   This is te xt that wi ll be used  in place  of the pro mpt when t he order i s
  9845   "^DD",101. 41,101.412 ,7.2,21,2, 0)
  9846   displayed  for place,  edit, or  cancel, or  at the to p of a mul tiple-valu ed
  9847   "^DD",101. 41,101.412 ,7.2,21,3, 0)
  9848   prompt.  T he Display  Text for  the prompt  will be u sed togeth er with th e
  9849   "^DD",101. 41,101.412 ,7.2,21,4, 0)
  9850   instance n umber to p rompt for  user input ; for exam ple if Tit le="Lab Te sts:"
  9851   "^DD",101. 41,101.412 ,7.2,21,5, 0)
  9852   and Displa y Text="Te st:" the u ser would  see
  9853   "^DD",101. 41,101.412 ,7.2,21,6, 0)
  9854     Lab Test s:
  9855   "^DD",101. 41,101.412 ,7.2,21,7, 0)
  9856     1. Test:
  9857   "^DD",101. 41,101.412 ,7.2,21,8, 0)
  9858     2. Test:
  9859   "^DD",101. 41,101.412 ,7.2,"DT")
  9860   2950815
  9861   "^DD",101. 41,101.412 ,7.3,0)
  9862   PROMPT^F^^ 0;14^K:$L( X)>10!($L( X)<1) X
  9863   "^DD",101. 41,101.412 ,7.3,3)
  9864   Answer mus t be 1-10  characters  in length .
  9865   "^DD",101. 41,101.412 ,7.3,21,0)
  9866   ^^3^3^2970 618^
  9867   "^DD",101. 41,101.412 ,7.3,21,1, 0)
  9868   This field  contains  text that  will be ap pended to  the beginn ing of the
  9869   "^DD",101. 41,101.412 ,7.3,21,2, 0)
  9870   display te xt when pr ompting fo r addition al values;  if this f ield is
  9871   "^DD",101. 41,101.412 ,7.3,21,3, 0)
  9872   empty, the n "Another  " will be  used.
  9873   "^DD",101. 41,101.412 ,7.3,"DT")
  9874   2970618
  9875   "^DD",101. 41,101.412 ,8,0)
  9876   ASK ON EDI T ONLY^S^1 :YES;0:NO; ^0;8^Q
  9877   "^DD",101. 41,101.412 ,8,3)
  9878   Enter YES  if this pr ompt shoul d not be a sked initi ally when  creating t his order,  only if t he user ch ooses to e dit the or der.
  9879   "^DD",101. 41,101.412 ,8,21,0)
  9880   ^^4^4^2960 112^^^
  9881   "^DD",101. 41,101.412 ,8,21,1,0)
  9882   This field  determine s the beha viour of t he dialog  driver for  this prom pt;
  9883   "^DD",101. 41,101.412 ,8,21,2,0)
  9884   if no valu e or the d efined def ault is us ually corr ect for th is prompt,
  9885   "^DD",101. 41,101.412 ,8,21,3,0)
  9886   enter YES  here to ha ve this pr ompt skipp ed on the  first pass  through t his
  9887   "^DD",101. 41,101.412 ,8,21,4,0)
  9888   dialog whe n creating  an order.
  9889   "^DD",101. 41,101.412 ,8,"DT")
  9890   2950407
  9891   "^DD",101. 41,101.412 ,9,0)
  9892   ASK ON ACT ION^F^^0;9 ^K:$L(X)>3 !($L(X)<1)  X
  9893   "^DD",101. 41,101.412 ,9,3)
  9894   Answer mus t be 1-3 c haracters  in length.
  9895   "^DD",101. 41,101.412 ,9,21,0)
  9896   ^^6^6^2970 708^^^
  9897   "^DD",101. 41,101.412 ,9,21,1,0)
  9898   This field  determine s the beha viour of t he dialog  driver for  this prom pt
  9899   "^DD",101. 41,101.412 ,9,21,2,0)
  9900   when takin g a partic ular actio n on an or der create d by this  dialog.  I f
  9901   "^DD",101. 41,101.412 ,9,21,3,0)
  9902   this strin g contains  "R", this  prompt wi ll be aske d when ren ewing an o rder;
  9903   "^DD",101. 41,101.412 ,9,21,4,0)
  9904   if this st ring conta ins "C", t his prompt  will be a sked when  changing a n
  9905   "^DD",101. 41,101.412 ,9,21,5,0)
  9906   order; if  this strin g contains  "W", this  prompt wi ll be aske d when
  9907   "^DD",101. 41,101.412 ,9,21,6,0)
  9908   rewriting  an order.
  9909   "^DD",101. 41,101.412 ,9,"DT")
  9910   2970708
  9911   "^DD",101. 41,101.412 ,10,0)
  9912   INDEX^F^^0 ;10^K:$L(X )>25!($L(X )<1) X
  9913   "^DD",101. 41,101.412 ,10,3)
  9914   Answer mus t be 1-25  characters  in length .
  9915   "^DD",101. 41,101.412 ,10,21,0)
  9916   ^^3^3^2950 713^^^
  9917   "^DD",101. 41,101.412 ,10,21,1,0 )
  9918   For pointe r-type pro mpts, this  is the in dex to use  when sear ching the  file;
  9919   "^DD",101. 41,101.412 ,10,21,2,0 )
  9920   it must be  in the fo rm of a re gular cros s-referenc e.  To sea rch on mul tiple
  9921   "^DD",101. 41,101.412 ,10,21,3,0 )
  9922   indices, e nter a str ing of ind ex names s eparated b y semi-col ons, i.e.  "B;C".
  9923   "^DD",101. 41,101.412 ,10,"DT")
  9924   2950713
  9925   "^DD",101. 41,101.412 ,11,0)
  9926   HELP MESSA GE^F^^1;1^ K:$L(X)>16 0!($L(X)<1 ) X
  9927   "^DD",101. 41,101.412 ,11,3)
  9928   Answer mus t be 1-160  character s in lengt h.
  9929   "^DD",101. 41,101.412 ,11,21,0)
  9930   ^^2^2^2970 609^^
  9931   "^DD",101. 41,101.412 ,11,21,1,0 )
  9932   This field  contains  the help m essage to  be present ed when th e user ent ers
  9933   "^DD",101. 41,101.412 ,11,21,2,0 )
  9934   a question  mark at t his prompt .
  9935   "^DD",101. 41,101.412 ,11,"DT")
  9936   2970609
  9937   "^DD",101. 41,101.412 ,12,0)
  9938   SPECIAL LO OKUP ROUTI NE^F^^1;2^ K:$L(X)>20 !($L(X)<3)  X
  9939   "^DD",101. 41,101.412 ,12,3)
  9940   Enter the  routine to  use inste ad of DIC  to do this  lookup, a s [TAG;]RO UTINE
  9941   "^DD",101. 41,101.412 ,12,21,0)
  9942   ^^3^3^2970 609^
  9943   "^DD",101. 41,101.412 ,12,21,1,0 )
  9944   This field  contains  a routine  to execute  that will  replace t he standar d
  9945   "^DD",101. 41,101.412 ,12,21,2,0 )
  9946   DIC lookup  for this  prompt; it  must be e ntered her e as LINET AG;ROUTINE
  9947   "^DD",101. 41,101.412 ,12,21,3,0 )
  9948   using a ;  instead of  ^ and whe re LINETAG  is option al.
  9949   "^DD",101. 41,101.412 ,12,"DT")
  9950   2970609
  9951   "^DD",101. 41,101.412 ,13,0)
  9952   ASK ON CON DITION^K^^ 3;E1,245^K :$L(X)>245  X D:$D(X)  ^DIM
  9953   "^DD",101. 41,101.412 ,13,3)
  9954   This is MU MPS code t hat sets $ T to deter mine if th is prompt  should be  asked, or  given a de fault valu e and bypa ssed.
  9955   "^DD",101. 41,101.412 ,13,9)
  9956   @
  9957   "^DD",101. 41,101.412 ,13,21,0)
  9958   ^^5^5^2950 407^
  9959   "^DD",101. 41,101.412 ,13,21,1,0 )
  9960   This is MU MPS code t hat sets $ T to deter mine if th is prompt  should be  asked
  9961   "^DD",101. 41,101.412 ,13,21,2,0 )
  9962   or simply  given a de fault valu e and pres ented to t he user fo r acceptan ce
  9963   "^DD",101. 41,101.412 ,13,21,3,0 )
  9964   or editing .  For exa mple, the  prompt "Pr egnant: "  may have c ode here t o
  9965   "^DD",101. 41,101.412 ,13,21,4,0 )
  9966   check the  sex of the  current p atient, i. e. I ORSEX ="F" will  allow it t o be
  9967   "^DD",101. 41,101.412 ,13,21,5,0 )
  9968   asked only  for femal e patients .
  9969   "^DD",101. 41,101.412 ,13,"DT")
  9970   2950407
  9971   "^DD",101. 41,101.412 ,14,0)
  9972   SCREEN^K^^ 4;E1,245^K :$L(X)>245  X D:$D(X)  ^DIM
  9973   "^DD",101. 41,101.412 ,14,3)
  9974   This is St andard MUM PS code.
  9975   "^DD",101. 41,101.412 ,14,9)
  9976   @
  9977   "^DD",101. 41,101.412 ,14,21,0)
  9978   ^^2^2^2950 407^
  9979   "^DD",101. 41,101.412 ,14,21,1,0 )
  9980   For pointe r-type pro mpts, this  field may  contain M UMPS code  that will  be
  9981   "^DD",101. 41,101.412 ,14,21,2,0 )
  9982   set into D IC("S") to  screen th e possible  choices i n the poin ted-to fil e.
  9983   "^DD",101. 41,101.412 ,14,"DT")
  9984   2950407
  9985   "^DD",101. 41,101.412 ,15,0)
  9986   POST-SELEC TION ACTIO N^K^^5;E1, 245^K:$L(X )>245 X D: $D(X) ^DIM
  9987   "^DD",101. 41,101.412 ,15,3)
  9988   This is St andard MUM PS code.
  9989   "^DD",101. 41,101.412 ,15,9)
  9990   @
  9991   "^DD",101. 41,101.412 ,15,21,0)
  9992   ^^3^3^2970 923^^^^
  9993   "^DD",101. 41,101.412 ,15,21,1,0 )
  9994   This is co de that wi ll be exec uted after  a respons e is enter ed to this
  9995   "^DD",101. 41,101.412 ,15,21,2,0 )
  9996   prompt; if  this prom pt should  be re-aske d, kill th e variable  DONE.
  9997   "^DD",101. 41,101.412 ,15,21,3,0 )
  9998   If executi on of the  ordering d ialog shou ld be stop ped, set O RQUIT=1.
  9999   "^DD",101. 41,101.412 ,15,"DT")
  10000   2970923
  10001   "^DD",101. 41,101.412 ,16,0)
  10002   XECUTABLE  HELP^K^^6; E1,245^K:$ L(X)>245 X  D:$D(X) ^ DIM
  10003   "^DD",101. 41,101.412 ,16,3)
  10004   This is St andard MUM PS code.
  10005   "^DD",101. 41,101.412 ,16,9)
  10006   @
  10007   "^DD",101. 41,101.412 ,16,21,0)
  10008   ^^2^2^2950 407^
  10009   "^DD",101. 41,101.412 ,16,21,1,0 )
  10010   This is co de that is  to be exe cuted when  the user  enters two  or more
  10011   "^DD",101. 41,101.412 ,16,21,2,0 )
  10012   question m arks at th is prompt.
  10013   "^DD",101. 41,101.412 ,16,"DT")
  10014   2950407
  10015   "^DD",101. 41,101.412 ,17,0)
  10016   DEFAULT^K^ ^7;E1,245^ K:$L(X)>24 5 X D:$D(X ) ^DIM
  10017   "^DD",101. 41,101.412 ,17,3)
  10018   This is St andard MUM PS code.
  10019   "^DD",101. 41,101.412 ,17,9)
  10020   @
  10021   "^DD",101. 41,101.412 ,17,21,0)
  10022   ^^2^2^2971 219^^^^
  10023   "^DD",101. 41,101.412 ,17,21,1,0 )
  10024   This is co de that is  to be exe cuted to d etermine t he appropr iate defau lt
  10025   "^DD",101. 41,101.412 ,17,21,2,0 )
  10026   value for  this promp t, setting  Y=interna l form of  this value .
  10027   "^DD",101. 41,101.412 ,17,"DT")
  10028   2950519
  10029   "^DD",101. 41,101.412 ,18,0)
  10030   DEFAULT WO RD-PROCESS ING TEXT^1 01.41218^^ 8;0
  10031   "^DD",101. 41,101.412 ,18,21,0)
  10032   ^^1^1^2971 219^
  10033   "^DD",101. 41,101.412 ,18,21,1,0 )
  10034   This is de fault text  to be stu ffed into  this word- processing  prompt.
  10035   "^DD",101. 41,101.412 ,19,0)
  10036   ENTRY ACTI ON^K^^9;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M
  10037   "^DD",101. 41,101.412 ,19,3)
  10038   This is St andard MUM PS code.
  10039   "^DD",101. 41,101.412 ,19,9)
  10040   @
  10041   "^DD",101. 41,101.412 ,19,21,0)
  10042   ^^3^3^2970 609^
  10043   "^DD",101. 41,101.412 ,19,21,1,0 )
  10044   This is co de that wi ll be exec uted at th e beginnin g of the p rocessing  of
  10045   "^DD",101. 41,101.412 ,19,21,2,0 )
  10046   this promp t, before  the Defaul t and Ask  on Conditi on fields  are execut ed;
  10047   "^DD",101. 41,101.412 ,19,21,3,0 )
  10048   any specia l setup re quired for  this fiel d should b e done her e.
  10049   "^DD",101. 41,101.412 ,19,"DT")
  10050   2970609
  10051   "^DD",101. 41,101.412 ,20,0)
  10052   EXIT ACTIO N^K^^10;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M
  10053   "^DD",101. 41,101.412 ,20,3)
  10054   This is St andard MUM PS code.
  10055   "^DD",101. 41,101.412 ,20,9)
  10056   @
  10057   "^DD",101. 41,101.412 ,20,21,0)
  10058   ^^3^3^2970 609^
  10059   "^DD",101. 41,101.412 ,20,21,1,0 )
  10060   This is co de that wi ll be exec uted at th e very end  of the pr ocessing o f
  10061   "^DD",101. 41,101.412 ,20,21,2,0 )
  10062   this promp t, after p rompting a nd the Val idation fi eld is exe cuted;
  10063   "^DD",101. 41,101.412 ,20,21,3,0 )
  10064   any specia l cleanup  should be  done here.
  10065   "^DD",101. 41,101.412 ,20,"DT")
  10066   2970609
  10067   "^DD",101. 41,101.412 ,21,0)
  10068   ORDER TEXT  SEQUENCE^ NJ5,2^^2;1 ^K:+X'=X!( X>99.99)!( X<1)!(X?.E 1"."3N.N)  X
  10069   "^DD",101. 41,101.412 ,21,1,0)
  10070   ^.1
  10071   "^DD",101. 41,101.412 ,21,1,1,0)
  10072   101.412^AT XT
  10073   "^DD",101. 41,101.412 ,21,1,1,1)
  10074   S ^ORD(101 .41,DA(1), 10,"ATXT", $E(X,1,30) ,DA)=""
  10075   "^DD",101. 41,101.412 ,21,1,1,2)
  10076   K ^ORD(101 .41,DA(1), 10,"ATXT", $E(X,1,30) ,DA)
  10077   "^DD",101. 41,101.412 ,21,1,1,"% D",0)
  10078   ^^1^1^2960 226^
  10079   "^DD",101. 41,101.412 ,21,1,1,"% D",1,0)
  10080   Used to bu ild order  text.
  10081   "^DD",101. 41,101.412 ,21,1,1,"D T")
  10082   2960226
  10083   "^DD",101. 41,101.412 ,21,3)
  10084   Enter the  order in w hich this  value shou ld be adde d to the o rder text,  as a numb er between  1 and 99. 99; leave  this field  blank to  prevent th is value f rom being  included
  10085   "^DD",101. 41,101.412 ,21,21,0)
  10086   ^^3^3^2970 607^^^
  10087   "^DD",101. 41,101.412 ,21,21,1,0 )
  10088   This field  indicates  the order  in which  values wil l be conca tenated
  10089   "^DD",101. 41,101.412 ,21,21,2,0 )
  10090   together t o build th e order te xt; this m ay differ  from the p rompting
  10091   "^DD",101. 41,101.412 ,21,21,3,0 )
  10092   order defi ned in the  .01 Seque nce field.
  10093   "^DD",101. 41,101.412 ,21,"DT")
  10094   2960226
  10095   "^DD",101. 41,101.412 ,22,0)
  10096   FORMAT^F^^ 2;2^K:$L(X )>10!($L(X )<1) X
  10097   "^DD",101. 41,101.412 ,22,3)
  10098   Answer mus t be 1-10  characters  in length .
  10099   "^DD",101. 41,101.412 ,22,21,0)
  10100   ^^15^15^29 71207^^^^
  10101   "^DD",101. 41,101.412 ,22,21,1,0 )
  10102   This is a  string of  characters  that will  define an y exceptio ns to how
  10103   "^DD",101. 41,101.412 ,22,21,2,0 )
  10104   the extern al form of  this valu e is gener ated.  Pos sible valu es include :
  10105   "^DD",101. 41,101.412 ,22,21,3,0 )
  10106     Pointer          ->  <field #> ~<piece in  RPC list  of field # >, default  =.01
  10107   "^DD",101. 41,101.412 ,22,21,4,0 )
  10108     Set of C odes    ->  1~<piece  in RPC lis t of code>  to use co de for nam e
  10109   "^DD",101. 41,101.412 ,22,21,5,0 )
  10110     Date/Tim e       ->  Format st ring to pa ss $$FMTE^ XLFDT (def ault = 2)
  10111   "^DD",101. 41,101.412 ,22,21,6,0 )
  10112     
  10113   "^DD",101. 41,101.412 ,22,21,7,0 )
  10114     Suppress  value  ->  @
  10115   "^DD",101. 41,101.412 ,22,21,8,0 )
  10116     Replace  value   ->  @<ptr> wh ere ptr is  the Dialo g IEN of t he prompt
  10117   "^DD",101. 41,101.412 ,22,21,9,0 )
  10118                           whose va lue, when  present, s upersedes  this value
  10119   "^DD",101. 41,101.412 ,22,21,10, 0)
  10120     Required  value  ->  *<ptr> wh ere ptr is  the Dialo g IEN of t he prompt
  10121   "^DD",101. 41,101.412 ,22,21,11, 0)
  10122                           whose va lue is req uired to b e present  to include
  10123   "^DD",101. 41,101.412 ,22,21,12, 0)
  10124                           this val ue
  10125   "^DD",101. 41,101.412 ,22,21,13, 0)
  10126     Ignore i f same  ->  =<ptr> wh ere ptr is  the Dialo g IEN of t he prompt
  10127   "^DD",101. 41,101.412 ,22,21,14, 0)
  10128                           whose va lue, if th e external  form is t he same,
  10129   "^DD",101. 41,101.412 ,22,21,15, 0)
  10130                           supersed es this va lue
  10131   "^DD",101. 41,101.412 ,22,"DT")
  10132   2960226
  10133   "^DD",101. 41,101.412 ,23,0)
  10134   OMIT TEXT^ F^^2;3^K:$ L(X)>30!($ L(X)<1) X
  10135   "^DD",101. 41,101.412 ,23,3)
  10136   Answer mus t be 1-30  characters  in length .
  10137   "^DD",101. 41,101.412 ,23,21,0)
  10138   ^^3^3^2970 829^^^^
  10139   "^DD",101. 41,101.412 ,23,21,1,0 )
  10140   This is th e external  form of a  value tha t is not t o be inclu ded when b uilding
  10141   "^DD",101. 41,101.412 ,23,21,2,0 )
  10142   the order  text.  E.g . to inclu de the urg ency in th e order te xt unless  it
  10143   "^DD",101. 41,101.412 ,23,21,3,0 )
  10144   is routine , enter "R OUTINE" he re.
  10145   "^DD",101. 41,101.412 ,23,"DT")
  10146   2970829
  10147   "^DD",101. 41,101.412 ,24,0)
  10148   LEADING TE XT^F^^2;4^ K:$L(X)>80 !($L(X)<1)  X
  10149   "^DD",101. 41,101.412 ,24,3)
  10150   Answer mus t be 1-80  characters  in length .
  10151   "^DD",101. 41,101.412 ,24,21,0)
  10152   ^^3^3^2970 724^^^^
  10153   "^DD",101. 41,101.412 ,24,21,1,0 )
  10154   This field  contains  text that  will be ap pended to  the order  text
  10155   "^DD",101. 41,101.412 ,24,21,2,0 )
  10156   immediatel y in front  of this v alue, e.g.  "Instruct ions:".  I f this tex t
  10157   "^DD",101. 41,101.412 ,24,21,3,0 )
  10158   is contain ed in a va riable, en ter @NAME  where NAME  is the va riable nam e.
  10159   "^DD",101. 41,101.412 ,24,"DT")
  10160   2970724
  10161   "^DD",101. 41,101.412 ,25,0)
  10162   TRAILING T EXT^F^^2;5 ^K:$L(X)>8 0!($L(X)<1 ) X
  10163   "^DD",101. 41,101.412 ,25,3)
  10164   Answer mus t be 1-80  characters  in length .
  10165   "^DD",101. 41,101.412 ,25,21,0)
  10166   ^^3^3^2970 724^^^^
  10167   "^DD",101. 41,101.412 ,25,21,1,0 )
  10168   This field  contains  text that  will be ap pended to  the order  text
  10169   "^DD",101. 41,101.412 ,25,21,2,0 )
  10170   immediatel y followin g this val ue, e.g. " refills".   If this t ext is
  10171   "^DD",101. 41,101.412 ,25,21,3,0 )
  10172   contained  in a varia ble, enter  @NAME whe re NAME is  the varia ble name.
  10173   "^DD",101. 41,101.412 ,25,"DT")
  10174   2970724
  10175   "^DD",101. 41,101.412 ,26,0)
  10176   START NEW  LINE^S^1:Y ES;0:NO;^2 ;6^Q
  10177   "^DD",101. 41,101.412 ,26,3)
  10178   Enter YES  if this va lue should  begin on  a new line  in the or der text.
  10179   "^DD",101. 41,101.412 ,26,21,0)
  10180   0^^2^2^297 0911^
  10181   "^DD",101. 41,101.412 ,26,21,1,0 )
  10182   This field  determine s if this  value is c oncatenate d onto the  current l ine
  10183   "^DD",101. 41,101.412 ,26,21,2,0 )
  10184   when build ing the or der text,  or if a ne w line is  started wi th this va lue.
  10185   "^DD",101. 41,101.412 ,26,"DT")
  10186   2970911
  10187   "^DD",101. 41,101.412 ,27,0)
  10188   WORD-WRAP^ S^1:DON'T  WRAP;0:WRA P;^2;7^Q
  10189   "^DD",101. 41,101.412 ,27,3)
  10190   Enter 'Don 't Wrap' t o have the  text be a dded line- by-line as  it is sto red; the d efault for matting is  'Wrap'.
  10191   "^DD",101. 41,101.412 ,27,21,0)
  10192   ^^3^3^2970 926^^^
  10193   "^DD",101. 41,101.412 ,27,21,1,0 )
  10194   This field  determine s if this  text shoul d be wrapp ed when ad ded to the
  10195   "^DD",101. 41,101.412 ,27,21,2,0 )
  10196   order text , or appen ded line b y line as  stored in  the file;  this is on ly
  10197   "^DD",101. 41,101.412 ,27,21,3,0 )
  10198   used for w ord-proces sing type  prompts.
  10199   "^DD",101. 41,101.412 ,27,"DT")
  10200   2970926
  10201   "^DD",101. 41,101.412 ,101,0)
  10202   WINDOWS CO NTROL^F^^W ;1^K:$L(X) >30!($L(X) <1) X
  10203   "^DD",101. 41,101.412 ,101,3)
  10204   Answer mus t be 1-30  characters  in length .
  10205   "^DD",101. 41,101.412 ,101,21,0)
  10206   ^^2^2^2950 715^
  10207   "^DD",101. 41,101.412 ,101,21,1, 0)
  10208   Stores the  type of W indows con trol neces sary to ge t the data  for this
  10209   "^DD",101. 41,101.412 ,101,21,2, 0)
  10210   prompt.
  10211   "^DD",101. 41,101.412 ,101,"DT")
  10212   2960517
  10213   "^DD",101. 41,101.412 ,102,0)
  10214   API NAME^F ^^W;2^K:$L (X)>30!($L (X)<1) X
  10215   "^DD",101. 41,101.412 ,102,3)
  10216   Answer mus t be 1-30  characters  in length .
  10217   "^DD",101. 41,101.412 ,102,21,0)
  10218   ^^3^3^2950 715^
  10219   "^DD",101. 41,101.412 ,102,21,1, 0)
  10220   This is th e API that  should be  called wh en the con trol is us ed.  How t he API
  10221   "^DD",101. 41,101.412 ,102,21,2, 0)
  10222   is used va rys with t he control .  Example s are: fil ling list  boxes, get ting
  10223   "^DD",101. 41,101.412 ,102,21,3, 0)
  10224   boilerplat e text, et c.
  10225   "^DD",101. 41,101.412 ,102,"DT")
  10226   2951002
  10227   "^DD",101. 41,101.412 ,103,0)
  10228   API PARAME TER #1^F^^ W;3^K:$L(X )>30!($L(X )<1) X
  10229   "^DD",101. 41,101.412 ,103,3)
  10230   Answer mus t be 1-30  characters  in length .
  10231   "^DD",101. 41,101.412 ,103,21,0)
  10232   ^^1^1^2950 715^
  10233   "^DD",101. 41,101.412 ,103,21,1, 0)
  10234   A paramete r that is  used by th e API call  may be st ored here.
  10235   "^DD",101. 41,101.412 ,103,"DT")
  10236   2950715
  10237   "^DD",101. 41,101.412 ,113,0)
  10238   WINDOWS CO NDITION^K^ ^W3;E1,245 ^K:$L(X)>2 45 X D:$D( X) ^DIM
  10239   "^DD",101. 41,101.412 ,113,3)
  10240   This is St andard MUM PS code.
  10241   "^DD",101. 41,101.412 ,113,9)
  10242   @
  10243   "^DD",101. 41,101.412 ,113,21,0)
  10244   ^^3^3^2950 715^
  10245   "^DD",101. 41,101.412 ,113,21,1, 0)
  10246   This is si lent code  that is ex ecuted whe n building  the dialo g for wind ows.
  10247   "^DD",101. 41,101.412 ,113,21,2, 0)
  10248   It identif ies which  prompts sh ould be in cluded in  the dialog .  The con dition
  10249   "^DD",101. 41,101.412 ,113,21,3, 0)
  10250   should lea ve $T fals e if the p rompt shou ld not be  asked.
  10251   "^DD",101. 41,101.412 ,113,"DT")
  10252   2950715
  10253   "^DD",101. 41,101.412 ,117,0)
  10254   WINDOWS DE FAULT^K^^W 7;E1,245^K :$L(X)>245  X D:$D(X)  ^DIM
  10255   "^DD",101. 41,101.412 ,117,3)
  10256   This is St andard MUM PS code.
  10257   "^DD",101. 41,101.412 ,117,9)
  10258   @
  10259   "^DD",101. 41,101.412 ,117,21,0)
  10260   ^^2^2^2950 715^
  10261   "^DD",101. 41,101.412 ,117,21,1, 0)
  10262   This code  should sil ently set  the defaul t value of  a prompt  when it is  
  10263   "^DD",101. 41,101.412 ,117,21,2, 0)
  10264   selected.
  10265   "^DD",101. 41,101.412 ,117,"DT")
  10266   2950715
  10267   "^DD",101. 41,101.412 18,0)
  10268   DEFAULT WO RD-PROCESS ING TEXT S UB-FIELD^^ .01^1
  10269   "^DD",101. 41,101.412 18,0,"DT")
  10270   2950407
  10271   "^DD",101. 41,101.412 18,0,"NM", "DEFAULT W ORD-PROCES SING TEXT" )
  10272  
  10273   "^DD",101. 41,101.412 18,0,"UP")
  10274   101.412
  10275   "^DD",101. 41,101.412 18,.01,0)
  10276   DEFAULT WO RD-PROCESS ING TEXT^W ^^0;1^Q
  10277   "^DD",101. 41,101.412 18,.01,3)
  10278   Enter the  default re sponse for  a word-pr ocessing t ype prompt .
  10279   "^DD",101. 41,101.412 18,.01,21, 0)
  10280   ^^2^2^2950 407^
  10281   "^DD",101. 41,101.412 18,.01,21, 1,0)
  10282   This field  contains  the text t o be prese nted as th e default  for this p rompt,
  10283   "^DD",101. 41,101.412 18,.01,21, 2,0)
  10284   for word-p rocessing  type promp ts.
  10285   "^DD",101. 41,101.412 18,.01,"DT ")
  10286   2950407
  10287   "^DD",101. 41,101.415 ,0)
  10288   CONTROLS S UB-FIELD^^ 14^14
  10289   "^DD",101. 41,101.415 ,0,"DT")
  10290   2960202
  10291   "^DD",101. 41,101.415 ,0,"IX","A C",101.415 ,3)
  10292  
  10293   "^DD",101. 41,101.415 ,0,"IX","B ",101.415, .01)
  10294  
  10295   "^DD",101. 41,101.415 ,0,"NM","C ONTROLS")
  10296  
  10297   "^DD",101. 41,101.415 ,0,"UP")
  10298   101.41
  10299   "^DD",101. 41,101.415 ,.01,0)
  10300   LOGICAL NA ME^MF^^0;1 ^K:$L(X)>8 !($L(X)<1) !'(X?1.8U)  X
  10301   "^DD",101. 41,101.415 ,.01,1,0)
  10302   ^.1
  10303   "^DD",101. 41,101.415 ,.01,1,1,0 )
  10304   101.415^B
  10305   "^DD",101. 41,101.415 ,.01,1,1,1 )
  10306   S ^ORD(101 .41,DA(1), 50,"B",$E( X,1,30),DA )=""
  10307   "^DD",101. 41,101.415 ,.01,1,1,2 )
  10308   K ^ORD(101 .41,DA(1), 50,"B",$E( X,1,30),DA )
  10309   "^DD",101. 41,101.415 ,.01,3)
  10310   Answer mus t be 1-8 c haracters  in length.
  10311   "^DD",101. 41,101.415 ,.01,21,0)
  10312   ^^1^1^2960 202^
  10313   "^DD",101. 41,101.415 ,.01,21,1, 0)
  10314   This is th e name by  which cont rols can r efer to ea ch other.
  10315   "^DD",101. 41,101.415 ,.01,"DT")
  10316   2960202
  10317   "^DD",101. 41,101.415 ,2,0)
  10318   ITEM^P101. 41'^ORD(10 1.41,^0;2^ Q
  10319   "^DD",101. 41,101.415 ,2,"DT")
  10320   2960202
  10321   "^DD",101. 41,101.415 ,3,0)
  10322   CREATE SEQ UENCE^NJ2, 0^^0;3^K:+ X'=X!(X>99 )!(X<1)!(X ?.E1"."1N. N) X
  10323   "^DD",101. 41,101.415 ,3,1,0)
  10324   ^.1
  10325   "^DD",101. 41,101.415 ,3,1,1,0)
  10326   101.415^AC
  10327   "^DD",101. 41,101.415 ,3,1,1,1)
  10328   S ^ORD(101 .41,DA(1), 50,"AC",$E (X,1,30),D A)=""
  10329   "^DD",101. 41,101.415 ,3,1,1,2)
  10330   K ^ORD(101 .41,DA(1), 50,"AC",$E (X,1,30),D A)
  10331   "^DD",101. 41,101.415 ,3,1,1,"%D ",0)
  10332   ^^2^2^2960 202^
  10333   "^DD",101. 41,101.415 ,3,1,1,"%D ",1,0)
  10334   The 'AC' c ross-refer ence puts  in window  controls i n order by  creation 
  10335   "^DD",101. 41,101.415 ,3,1,1,"%D ",2,0)
  10336   sequence.
  10337   "^DD",101. 41,101.415 ,3,1,1,"DT ")
  10338   2960202
  10339   "^DD",101. 41,101.415 ,3,3)
  10340   Type a Num ber betwee n 1 and 99 , 0 Decima l Digits
  10341   "^DD",101. 41,101.415 ,3,"DT")
  10342   2960202
  10343   "^DD",101. 41,101.415 ,4,0)
  10344   CONTROL TY PE^S^0:Lab el;1:Butto n;2:Edit;3 :Memo;4:Li stBox;5:Si mpleCombo; 6:DropDown List;7:Lon gCombo;^0; 4^Q
  10345   "^DD",101. 41,101.415 ,4,"DT")
  10346   2960202
  10347   "^DD",101. 41,101.415 ,5,0)
  10348   LABEL^F^^0 ;5^K:$L(X) >30!($L(X) <1) X
  10349   "^DD",101. 41,101.415 ,5,3)
  10350   Answer mus t be 1-30  characters  in length .
  10351   "^DD",101. 41,101.415 ,5,"DT")
  10352   2960202
  10353   "^DD",101. 41,101.415 ,6,0)
  10354   BESIDE^F^^ 0;6^K:$L(X )>8!($L(X) <1) X
  10355   "^DD",101. 41,101.415 ,6,3)
  10356   Answer mus t be 1-8 c haracters  in length.
  10357   "^DD",101. 41,101.415 ,6,"DT")
  10358   2960202
  10359   "^DD",101. 41,101.415 ,7,0)
  10360   BELOW^F^^0 ;7^K:$L(X) >8!($L(X)< 1) X
  10361   "^DD",101. 41,101.415 ,7,3)
  10362   Answer mus t be 1-8 c haracters  in length.
  10363   "^DD",101. 41,101.415 ,7,"DT")
  10364   2960202
  10365   "^DD",101. 41,101.415 ,8,0)
  10366   WIDTH^NJ6, 4^^0;8^K:+ X'=X!(X>1) !(X<0)!(X? .E1"."5N.N ) X
  10367   "^DD",101. 41,101.415 ,8,3)
  10368   Type a Num ber betwee n 0 and 1,  4 Decimal  Digits
  10369   "^DD",101. 41,101.415 ,8,"DT")
  10370   2960202
  10371   "^DD",101. 41,101.415 ,9,0)
  10372   LEFT CONTR OL^F^^0;9^ K:$L(X)>8! ($L(X)<1)  X
  10373   "^DD",101. 41,101.415 ,9,3)
  10374   Answer mus t be 1-8 c haracters  in length.
  10375   "^DD",101. 41,101.415 ,9,"DT")
  10376   2960202
  10377   "^DD",101. 41,101.415 ,10,0)
  10378   RIGHT CONT ROL^F^^0;1 0^K:$L(X)> 8!($L(X)<1 ) X
  10379   "^DD",101. 41,101.415 ,10,3)
  10380   Answer mus t be 1-8 c haracters  in length.
  10381   "^DD",101. 41,101.415 ,10,"DT")
  10382   2960202
  10383   "^DD",101. 41,101.415 ,11,0)
  10384   HEIGHT^NJ2 ,0^^0;11^K :+X'=X!(X> 15)!(X<1)! (X?.E1"."1 N.N) X
  10385   "^DD",101. 41,101.415 ,11,3)
  10386   Type a Num ber betwee n 1 and 15 , 0 Decima l Digits
  10387   "^DD",101. 41,101.415 ,11,"DT")
  10388   2960202
  10389   "^DD",101. 41,101.415 ,12,0)
  10390   UPPER CONT ROL^F^^0;1 2^K:$L(X)> 8!($L(X)<1 ) X
  10391   "^DD",101. 41,101.415 ,12,3)
  10392   Answer mus t be 1-8 c haracters  in length.
  10393   "^DD",101. 41,101.415 ,12,"DT")
  10394   2960202
  10395   "^DD",101. 41,101.415 ,13,0)
  10396   LOWER CONT ROL^F^^0;1 3^K:$L(X)> 8!($L(X)<1 ) X
  10397   "^DD",101. 41,101.415 ,13,3)
  10398   Answer mus t be 1-8 c haracters  in length.
  10399   "^DD",101. 41,101.415 ,13,"DT")
  10400   2960202
  10401   "^DD",101. 41,101.415 ,14,0)
  10402   TAB SEQUEN CE^NJ2,0^^ 0;14^K:+X' =X!(X>89)! (X<0)!(X?. E1"."1N.N)  X
  10403   "^DD",101. 41,101.415 ,14,3)
  10404   Type a Num ber betwee n 0 and 89 , 0 Decima l Digits
  10405   "^DD",101. 41,101.415 ,14,"DT")
  10406   2960202
  10407   "^DD",101. 41,101.416 ,0)
  10408   RESPONSES  SUB-FIELD^ ^2^5
  10409   "^DD",101. 41,101.416 ,0,"DT")
  10410   2960717
  10411   "^DD",101. 41,101.416 ,0,"IX","D ",101.416, .02)
  10412  
  10413   "^DD",101. 41,101.416 ,0,"NM","R ESPONSES")
  10414  
  10415   "^DD",101. 41,101.416 ,0,"UP")
  10416   101.41
  10417   "^DD",101. 41,101.416 ,.01,0)
  10418   ITEM ENTRY ^MNJ7,0^^0 ;1^K:+X'=X !(X>999999 9)!(X<1)!( X?.E1"."1N .N) X
  10419   "^DD",101. 41,101.416 ,.01,1,0)
  10420   ^.1^^0
  10421   "^DD",101. 41,101.416 ,.01,3)
  10422   Type a Num ber betwee n 1 and 99 99999, 0 D ecimal Dig its
  10423   "^DD",101. 41,101.416 ,.01,21,0)
  10424   ^^2^2^2971 219^^^
  10425   "^DD",101. 41,101.416 ,.01,21,1, 0)
  10426   This is th e internal  entry num ber of the  prompt in  the Item  multiple
  10427   "^DD",101. 41,101.416 ,.01,21,2, 0)
  10428   by which t his respon se was obt ained.
  10429   "^DD",101. 41,101.416 ,.01,"DT")
  10430   2961118
  10431   "^DD",101. 41,101.416 ,.02,0)
  10432   DIALOG^P10 1.41'^ORD( 101.41,^0; 2^Q
  10433   "^DD",101. 41,101.416 ,.02,1,0)
  10434   ^.1
  10435   "^DD",101. 41,101.416 ,.02,1,1,0 )
  10436   101.416^D
  10437   "^DD",101. 41,101.416 ,.02,1,1,1 )
  10438   S ^ORD(101 .41,DA(1), 6,"D",$E(X ,1,30),DA) =""
  10439   "^DD",101. 41,101.416 ,.02,1,1,2 )
  10440   K ^ORD(101 .41,DA(1), 6,"D",$E(X ,1,30),DA)
  10441   "^DD",101. 41,101.416 ,.02,1,1," DT")
  10442   2961118
  10443   "^DD",101. 41,101.416 ,.02,3)
  10444   Select the  dialog pr ompt from  which this  response  was genera ted.
  10445   "^DD",101. 41,101.416 ,.02,21,0)
  10446   ^^2^2^2960 717^
  10447   "^DD",101. 41,101.416 ,.02,21,1, 0)
  10448   This is a  pointer to  the dialo g prompt,  which is i n the Orde r Dialog f ile
  10449   "^DD",101. 41,101.416 ,.02,21,2, 0)
  10450   as type pr ompt.
  10451   "^DD",101. 41,101.416 ,.02,"DT")
  10452   2961118
  10453   "^DD",101. 41,101.416 ,.03,0)
  10454   INSTANCE^N J7,0^^0;3^ K:+X'=X!(X >9999999)! (X<1)!(X?. E1"."1N.N)  X
  10455   "^DD",101. 41,101.416 ,.03,3)
  10456   Type a Num ber betwee n 1 and 99 99999, 0 D ecimal Dig its
  10457   "^DD",101. 41,101.416 ,.03,21,0)
  10458   ^^2^2^2960 717^
  10459   "^DD",101. 41,101.416 ,.03,21,1, 0)
  10460   In the cas e of multi ple answer s for the  same item,  this iden tifies the
  10461   "^DD",101. 41,101.416 ,.03,21,2, 0)
  10462   individual  instance.
  10463   "^DD",101. 41,101.416 ,.03,"DT")
  10464   2960717
  10465   "^DD",101. 41,101.416 ,1,0)
  10466   VALUE^FO^^ 1;1^K:$L(X )>245!($L( X)<1) X
  10467   "^DD",101. 41,101.416 ,1,2)
  10468   S Y(0)=Y S  Y=$$OUTPU T^ORCMEDT5 (Y)
  10469   "^DD",101. 41,101.416 ,1,2.1)
  10470   S Y=$$OUTP UT^ORCMEDT 5(Y)
  10471   "^DD",101. 41,101.416 ,1,3)
  10472   Answer mus t be 1-245  character s in lengt h.
  10473   "^DD",101. 41,101.416 ,1,21,0)
  10474   ^^2^2^2971 219^^
  10475   "^DD",101. 41,101.416 ,1,21,1,0)
  10476   This conta ins the ac tual respo nse, unles s the valu e is a wor d processi ng
  10477   "^DD",101. 41,101.416 ,1,21,2,0)
  10478   type.
  10479   "^DD",101. 41,101.416 ,1,"DT")
  10480   2980717
  10481   "^DD",101. 41,101.416 ,2,0)
  10482   TEXT^101.4 162^^2;0
  10483   "^DD",101. 41,101.416 ,2,21,0)
  10484   ^^1^1^2971 219^
  10485   "^DD",101. 41,101.416 ,2,21,1,0)
  10486   This conta ins the ac tual respo nse, for w ord-proces sing type  prompts.
  10487   "^DD",101. 41,101.416 ,2,"DT")
  10488   2960717
  10489   "^DD",101. 41,101.416 2,0)
  10490   TEXT SUB-F IELD^^.01^ 1
  10491   "^DD",101. 41,101.416 2,0,"DT")
  10492   2960717
  10493   "^DD",101. 41,101.416 2,0,"NM"," TEXT")
  10494  
  10495   "^DD",101. 41,101.416 2,0,"UP")
  10496   101.416
  10497   "^DD",101. 41,101.416 2,.01,0)
  10498   TEXT^WL^^0 ;1^Q
  10499   "^DD",101. 41,101.416 2,.01,21,0 )
  10500   ^^1^1^2960 717^^
  10501   "^DD",101. 41,101.416 2,.01,21,1 ,0)
  10502   This conta ins respon ses to ite ms that ar e a word p rocessing  type.
  10503   "^DD",101. 41,101.416 2,.01,"DT" )
  10504   2960717
  10505   "^DIC",100 .9,100.9,0 )
  10506   OE/RR NOTI FICATIONS^ 100.9
  10507   "^DIC",100 .9,100.9,0 ,"GL")
  10508   ^ORD(100.9 ,
  10509   "^DIC",100 .9,100.9," %D",0)
  10510   ^^5^5^2970 731^^^
  10511   "^DIC",100 .9,100.9," %D",1,0)
  10512   This file  contains d ata used t o generate  notificat ions.  Pac kages
  10513   "^DIC",100 .9,100.9," %D",2,0)
  10514   determine  if a notif ication sh ould be se nt then se nd the pat ient ID an d
  10515   "^DIC",100 .9,100.9," %D",3,0)
  10516   notificati on ID (IEN  in this f ile) to or der entry  routines.   Based on  the
  10517   "^DIC",100 .9,100.9," %D",4,0)
  10518   notificati on IEN, da ta from th is file is  used to g enerate th e notifica tion
  10519   "^DIC",100 .9,100.9," %D",5,0)
  10520   and help d etermine i ts recipie nts.
  10521   "^DIC",100 .9,"B","OE /RR NOTIFI CATIONS",1 00.9)
  10522  
  10523   "^DIC",100 .98,100.98 ,0)
  10524   DISPLAY GR OUP^100.98 I
  10525   "^DIC",100 .98,100.98 ,0,"GL")
  10526   ^ORD(100.9 8,
  10527   "^DIC",100 .98,100.98 ,"%D",0)
  10528   ^^5^5^2971 218^^^^
  10529   "^DIC",100 .98,100.98 ,"%D",1,0)
  10530   This file  allows ord ers to be  clustered  in groups  other than  by packag e.
  10531   "^DIC",100 .98,100.98 ,"%D",2,0)
  10532   It is simi lar in str ucture to  the OPTION  File (19) .  This al lows displ ay
  10533   "^DIC",100 .98,100.98 ,"%D",3,0)
  10534   groups to  be arrange d in a hie rarchy.  T he main en try in thi s file
  10535   "^DIC",100 .98,100.98 ,"%D",4,0)
  10536   should be  'ALL SERVI CES'.  Oth er entries  should be  logically  subordina te
  10537   "^DIC",100 .98,100.98 ,"%D",5,0)
  10538   to the 'AL L SERVICES ' entry.
  10539   "^DIC",100 .98,"B","D ISPLAY GRO UP",100.98 )
  10540  
  10541   "^DIC",101 .41,101.41 ,0)
  10542   ORDER DIAL OG^101.41
  10543   "^DIC",101 .41,101.41 ,0,"GL")
  10544   ^ORD(101.4 1,
  10545   "^DIC",101 .41,101.41 ,"%D",0)
  10546   ^^2^2^2960 819^^
  10547   "^DIC",101 .41,101.41 ,"%D",1,0)
  10548   This file  contains t he informa tion neede d to defin e how to p rompt for  each
  10549   "^DIC",101 .41,101.41 ,"%D",2,0)
  10550   order, wha t values a re accepta ble, etc.
  10551   "^DIC",101 .41,"B","O RDER DIALO G",101.41)
  10552  
  10553   **INSTALL  NAME**
  10554   GMRV*5.0*3 4
  10555   "BLD",9673 ,0)
  10556   GMRV*5.0*3 4^GEN. MED . REC. - V ITALS^0^31 70629^y
  10557   "BLD",9673 ,4,0)
  10558   ^9.64PA^^
  10559   "BLD",9673 ,6.3)
  10560   27
  10561   "BLD",9673 ,"INIT")
  10562   EN^GMV34PS T
  10563   "BLD",9673 ,"KRN",0)
  10564   ^9.67PA^77 9.2^20
  10565   "BLD",9673 ,"KRN",.4, 0)
  10566   .4
  10567   "BLD",9673 ,"KRN",.40 1,0)
  10568   .401
  10569   "BLD",9673 ,"KRN",.40 2,0)
  10570   .402
  10571   "BLD",9673 ,"KRN",.40 3,0)
  10572   .403
  10573   "BLD",9673 ,"KRN",.5, 0)
  10574   .5
  10575   "BLD",9673 ,"KRN",.84 ,0)
  10576   .84
  10577   "BLD",9673 ,"KRN",3.6 ,0)
  10578   3.6
  10579   "BLD",9673 ,"KRN",3.8 ,0)
  10580   3.8
  10581   "BLD",9673 ,"KRN",9.2 ,0)
  10582   9.2
  10583   "BLD",9673 ,"KRN",9.8 ,0)
  10584   9.8
  10585   "BLD",9673 ,"KRN",19, 0)
  10586   19
  10587   "BLD",9673 ,"KRN",19. 1,0)
  10588   19.1
  10589   "BLD",9673 ,"KRN",101 ,0)
  10590   101
  10591   "BLD",9673 ,"KRN",409 .61,0)
  10592   409.61
  10593   "BLD",9673 ,"KRN",771 ,0)
  10594   771
  10595   "BLD",9673 ,"KRN",779 .2,0)
  10596   779.2
  10597   "BLD",9673 ,"KRN",870 ,0)
  10598   870
  10599   "BLD",9673 ,"KRN",898 9.51,0)
  10600   8989.51
  10601   "BLD",9673 ,"KRN",898 9.52,0)
  10602   8989.52
  10603   "BLD",9673 ,"KRN",899 4,0)
  10604   8994
  10605   "BLD",9673 ,"KRN","B" ,.4,.4)
  10606  
  10607   "BLD",9673 ,"KRN","B" ,.401,.401 )
  10608  
  10609   "BLD",9673 ,"KRN","B" ,.402,.402 )
  10610  
  10611   "BLD",9673 ,"KRN","B" ,.403,.403 )
  10612  
  10613   "BLD",9673 ,"KRN","B" ,.5,.5)
  10614  
  10615   "BLD",9673 ,"KRN","B" ,.84,.84)
  10616  
  10617   "BLD",9673 ,"KRN","B" ,3.6,3.6)
  10618  
  10619   "BLD",9673 ,"KRN","B" ,3.8,3.8)
  10620  
  10621   "BLD",9673 ,"KRN","B" ,9.2,9.2)
  10622  
  10623   "BLD",9673 ,"KRN","B" ,9.8,9.8)
  10624  
  10625   "BLD",9673 ,"KRN","B" ,19,19)
  10626  
  10627   "BLD",9673 ,"KRN","B" ,19.1,19.1 )
  10628  
  10629   "BLD",9673 ,"KRN","B" ,101,101)
  10630  
  10631   "BLD",9673 ,"KRN","B" ,409.61,40 9.61)
  10632  
  10633   "BLD",9673 ,"KRN","B" ,771,771)
  10634  
  10635   "BLD",9673 ,"KRN","B" ,779.2,779 .2)
  10636  
  10637   "BLD",9673 ,"KRN","B" ,870,870)
  10638  
  10639   "BLD",9673 ,"KRN","B" ,8989.51,8 989.51)
  10640  
  10641   "BLD",9673 ,"KRN","B" ,8989.52,8 989.52)
  10642  
  10643   "BLD",9673 ,"KRN","B" ,8994,8994 )
  10644  
  10645   "BLD",9673 ,"QUES",0)
  10646   ^9.62^^
  10647   "BLD",9673 ,"REQB",0)
  10648   ^9.611^1^1
  10649   "BLD",9673 ,"REQB",1, 0)
  10650   OR*3.0*434 ^2
  10651   "BLD",9673 ,"REQB","B ","OR*3.0* 434",1)
  10652  
  10653   "INIT")
  10654   EN^GMV34PS T
  10655   "MBREQ")
  10656   1
  10657   "PKG",503, -1)
  10658   1^1
  10659   "PKG",503, 0)
  10660   GEN. MED.  REC. - VIT ALS^GMRV^V itals/Meas urements M odule of G eneral Med ical Recor d.
  10661   "PKG",503, 20,0)
  10662   ^9.402P^^
  10663   "PKG",503, 22,0)
  10664   ^9.49I^1^1
  10665   "PKG",503, 22,1,0)
  10666   5.0^302102 8^3030402^ 11748
  10667   "PKG",503, 22,1,"PAH" ,1,0)
  10668   34^3170629 ^100000002 00
  10669   "QUES","XP F1",0)
  10670   Y
  10671   "QUES","XP F1","??")
  10672   ^D REP^XPD H
  10673   "QUES","XP F1","A")
  10674   Shall I wr ite over y our |FLAG|  File
  10675   "QUES","XP F1","B")
  10676   YES
  10677   "QUES","XP F1","M")
  10678   D XPF1^XPD IQ
  10679   "QUES","XP F2",0)
  10680   Y
  10681   "QUES","XP F2","??")
  10682   ^D DTA^XPD H
  10683   "QUES","XP F2","A")
  10684   Want my da ta |FLAG|  yours
  10685   "QUES","XP F2","B")
  10686   YES
  10687   "QUES","XP F2","M")
  10688   D XPF2^XPD IQ
  10689   "QUES","XP I1",0)
  10690   YO
  10691   "QUES","XP I1","??")
  10692   ^D INHIBIT ^XPDH
  10693   "QUES","XP I1","A")
  10694   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  10695   "QUES","XP I1","B")
  10696   NO
  10697   "QUES","XP I1","M")
  10698   D XPI1^XPD IQ
  10699   "QUES","XP M1",0)
  10700   PO^VA(200, :EM
  10701   "QUES","XP M1","??")
  10702   ^D MG^XPDH
  10703   "QUES","XP M1","A")
  10704   Enter the  Coordinato r for Mail  Group '|F LAG|'
  10705   "QUES","XP M1","B")
  10706  
  10707   "QUES","XP M1","M")
  10708   D XPM1^XPD IQ
  10709   "QUES","XP O1",0)
  10710   Y
  10711   "QUES","XP O1","??")
  10712   ^D MENU^XP DH
  10713   "QUES","XP O1","A")
  10714   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  10715   "QUES","XP O1","B")
  10716   NO
  10717   "QUES","XP O1","M")
  10718   D XPO1^XPD IQ
  10719   "QUES","XP Z1",0)
  10720   Y
  10721   "QUES","XP Z1","??")
  10722   ^D OPT^XPD H
  10723   "QUES","XP Z1","A")
  10724   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  10725   "QUES","XP Z1","B")
  10726   NO
  10727   "QUES","XP Z1","M")
  10728   D XPZ1^XPD IQ
  10729   "QUES","XP Z2",0)
  10730   Y
  10731   "QUES","XP Z2","??")
  10732   ^D RTN^XPD H
  10733   "QUES","XP Z2","A")
  10734   Want to MO VE routine s to other  CPUs
  10735   "QUES","XP Z2","B")
  10736   NO
  10737   "QUES","XP Z2","M")
  10738   D XPZ2^XPD IQ
  10739   "RTN")
  10740   1
  10741   "RTN","GMV 34PST")
  10742   0^^B860960
  10743   "RTN","GMV 34PST",1,0 )
  10744   GMV34PST ; SLCIO/JLC  - FIX PARA METER SETT INGS ; 04/ 13/15 03:3 0pm
  10745   "RTN","GMV 34PST",2,0 )
  10746    ;;5.0;GEN . MED. REC . - VITALS ;**34**;Oc t 31, 2002 ;Build 27
  10747   "RTN","GMV 34PST",3,0 )
  10748    Q
  10749   "RTN","GMV 34PST",4,0 )
  10750    ; This ro utine uses  the follo wing IAs:
  10751   "RTN","GMV 34PST",5,0 )
  10752    ; 2263 -  ^XPAR                    (suppor ted)
  10753   "RTN","GMV 34PST",6,0 )
  10754    ; 
  10755   "RTN","GMV 34PST",7,0 )
  10756   EN ; main  entry poin
  10757   "RTN","GMV 34PST",8,0 )
  10758    D DLL
  10759   "RTN","GMV 34PST",9,0 )
  10760    Q
  10761   "RTN","GMV 34PST",10, 0)
  10762   DLL ;
  10763   "RTN","GMV 34PST",11, 0)
  10764    ; Variabl es:
  10765   "RTN","GMV 34PST",12, 0)
  10766    ;  GMV:     [Private ] Scratch
  10767   "RTN","GMV 34PST",13, 0)
  10768    ;  GMVDLL : [Private ] Current  version of  DLL being  installed
  10769   "RTN","GMV 34PST",14, 0)
  10770    ;  GMVLST : [Private ] Scratch  List
  10771   "RTN","GMV 34PST",15, 0)
  10772    ;
  10773   "RTN","GMV 34PST",16, 0)
  10774    ; New pri vate varia bles
  10775   "RTN","GMV 34PST",17, 0)
  10776    N GMV,GMV DLL,GMVLST
  10777   "RTN","GMV 34PST",18, 0)
  10778    ; Announc e my inten tions
  10779   "RTN","GMV 34PST",19, 0)
  10780    D BMES^XP DUTL("Upda ting DLL p arameter." )
  10781   "RTN","GMV 34PST",20, 0)
  10782    ; Deactiv ate all pr evious ver sions from  XPAR
  10783   "RTN","GMV 34PST",21, 0)
  10784    D GETLST^ XPAR(.GMVL ST,"SYS"," GMV DLL VE RSION")
  10785   "RTN","GMV 34PST",22, 0)
  10786    F GMV=0:0  S GMV=$O( GMVLST(GMV )) Q:'GMV   D
  10787   "RTN","GMV 34PST",23, 0)
  10788    . D EN^XP AR("SYS"," GMV DLL VE RSION",$P( GMVLST(GMV ),"^",1),0 )
  10789   "RTN","GMV 34PST",24, 0)
  10790    ; Add and /or activa te current  client ve rsions
  10791   "RTN","GMV 34PST",25, 0)
  10792    S GMVDLL= "5.0.34.5"  ;patch 34
  10793   "RTN","GMV 34PST",26, 0)
  10794    D EN^XPAR ("SYS","GM V DLL VERS ION",GMVDL L,1)
  10795   "RTN","GMV 34PST",27, 0)
  10796    Q
  10797   "VER")
  10798   8.0^22.2
  10799   **INSTALL  NAME**
  10800   YS*5.01*12 8
  10801   "BLD",9676 ,0)
  10802   YS*5.01*12 8^MENTAL H EALTH^0^31 70629^y
  10803   "BLD",9676 ,4,0)
  10804   ^9.64PA^^
  10805   "BLD",9676 ,6.3)
  10806   23
  10807   "BLD",9676 ,"ABPKG")
  10808   n
  10809   "BLD",9676 ,"INIT")
  10810   POST^YS128 PS0
  10811   "BLD",9676 ,"KRN",0)
  10812   ^9.67PA^77 9.2^20
  10813   "BLD",9676 ,"KRN",.4, 0)
  10814   .4
  10815   "BLD",9676 ,"KRN",.40 1,0)
  10816   .401
  10817   "BLD",9676 ,"KRN",.40 2,0)
  10818   .402
  10819   "BLD",9676 ,"KRN",.40 3,0)
  10820   .403
  10821   "BLD",9676 ,"KRN",.5, 0)
  10822   .5
  10823   "BLD",9676 ,"KRN",.84 ,0)
  10824   .84
  10825   "BLD",9676 ,"KRN",3.6 ,0)
  10826   3.6
  10827   "BLD",9676 ,"KRN",3.8 ,0)
  10828   3.8
  10829   "BLD",9676 ,"KRN",9.2 ,0)
  10830   9.2
  10831   "BLD",9676 ,"KRN",9.8 ,0)
  10832   9.8
  10833   "BLD",9676 ,"KRN",19, 0)
  10834   19
  10835   "BLD",9676 ,"KRN",19, "NM",0)
  10836   ^9.68A^^0
  10837   "BLD",9676 ,"KRN",19. 1,0)
  10838   19.1
  10839   "BLD",9676 ,"KRN",101 ,0)
  10840   101
  10841   "BLD",9676 ,"KRN",409 .61,0)
  10842   409.61
  10843   "BLD",9676 ,"KRN",771 ,0)
  10844   771
  10845   "BLD",9676 ,"KRN",779 .2,0)
  10846   779.2
  10847   "BLD",9676 ,"KRN",870 ,0)
  10848   870
  10849   "BLD",9676 ,"KRN",898 9.51,0)
  10850   8989.51
  10851   "BLD",9676 ,"KRN",898 9.52,0)
  10852   8989.52
  10853   "BLD",9676 ,"KRN",899 4,0)
  10854   8994
  10855   "BLD",9676 ,"KRN","B" ,.4,.4)
  10856  
  10857   "BLD",9676 ,"KRN","B" ,.401,.401 )
  10858  
  10859   "BLD",9676 ,"KRN","B" ,.402,.402 )
  10860  
  10861   "BLD",9676 ,"KRN","B" ,.403,.403 )
  10862  
  10863   "BLD",9676 ,"KRN","B" ,.5,.5)
  10864  
  10865   "BLD",9676 ,"KRN","B" ,.84,.84)
  10866  
  10867   "BLD",9676 ,"KRN","B" ,3.6,3.6)
  10868  
  10869   "BLD",9676 ,"KRN","B" ,3.8,3.8)
  10870  
  10871   "BLD",9676 ,"KRN","B" ,9.2,9.2)
  10872  
  10873   "BLD",9676 ,"KRN","B" ,9.8,9.8)
  10874  
  10875   "BLD",9676 ,"KRN","B" ,19,19)
  10876  
  10877   "BLD",9676 ,"KRN","B" ,19.1,19.1 )
  10878  
  10879   "BLD",9676 ,"KRN","B" ,101,101)
  10880  
  10881   "BLD",9676 ,"KRN","B" ,409.61,40 9.61)
  10882  
  10883   "BLD",9676 ,"KRN","B" ,771,771)
  10884  
  10885   "BLD",9676 ,"KRN","B" ,779.2,779 .2)
  10886  
  10887   "BLD",9676 ,"KRN","B" ,870,870)
  10888  
  10889   "BLD",9676 ,"KRN","B" ,8989.51,8 989.51)
  10890  
  10891   "BLD",9676 ,"KRN","B" ,8989.52,8 989.52)
  10892  
  10893   "BLD",9676 ,"KRN","B" ,8994,8994 )
  10894  
  10895   "BLD",9676 ,"QUES",0)
  10896   ^9.62^^
  10897   "BLD",9676 ,"REQB",0)
  10898   ^9.611^2^2
  10899   "BLD",9676 ,"REQB",1, 0)
  10900   OR*3.0*434 ^2
  10901   "BLD",9676 ,"REQB",2, 0)
  10902   YS*5.01*11 6^2
  10903   "BLD",9676 ,"REQB","B ","OR*3.0* 434",1)
  10904  
  10905   "BLD",9676 ,"REQB","B ","YS*5.01 *116",2)
  10906  
  10907   "INIT")
  10908   POST^YS128 PS0
  10909   "MBREQ")
  10910   1
  10911   "PKG",166, -1)
  10912   1^1
  10913   "PKG",166, 0)
  10914   MENTAL HEA LTH^YS^Ver sion 5.01  of Mental  Health
  10915   "PKG",166, 20,0)
  10916   ^9.402P^^
  10917   "PKG",166, 22,0)
  10918   ^9.49I^1^1
  10919   "PKG",166, 22,1,0)
  10920   5.01^29412 30^2950310
  10921   "PKG",166, 22,1,"PAH" ,1,0)
  10922   128^317062 9
  10923   "QUES","XP F1",0)
  10924   Y
  10925   "QUES","XP F1","??")
  10926   ^D REP^XPD H
  10927   "QUES","XP F1","A")
  10928   Shall I wr ite over y our |FLAG|  File
  10929   "QUES","XP F1","B")
  10930   YES
  10931   "QUES","XP F1","M")
  10932   D XPF1^XPD IQ
  10933   "QUES","XP F2",0)
  10934   Y
  10935   "QUES","XP F2","??")
  10936   ^D DTA^XPD H
  10937   "QUES","XP F2","A")
  10938   Want my da ta |FLAG|  yours
  10939   "QUES","XP F2","B")
  10940   YES
  10941   "QUES","XP F2","M")
  10942   D XPF2^XPD IQ
  10943   "QUES","XP I1",0)
  10944   YO
  10945   "QUES","XP I1","??")
  10946   ^D INHIBIT ^XPDH
  10947   "QUES","XP I1","A")
  10948   Want KIDS  to INHIBIT  LOGONs du ring the i nstall
  10949   "QUES","XP I1","B")
  10950   NO
  10951   "QUES","XP I1","M")
  10952   D XPI1^XPD IQ
  10953   "QUES","XP M1",0)
  10954   PO^VA(200, :EM
  10955   "QUES","XP M1","??")
  10956   ^D MG^XPDH
  10957   "QUES","XP M1","A")
  10958   Enter the  Coordinato r for Mail  Group '|F LAG|'
  10959   "QUES","XP M1","B")
  10960  
  10961   "QUES","XP M1","M")
  10962   D XPM1^XPD IQ
  10963   "QUES","XP O1",0)
  10964   Y
  10965   "QUES","XP O1","??")
  10966   ^D MENU^XP DH
  10967   "QUES","XP O1","A")
  10968   Want KIDS  to Rebuild  Menu Tree s Upon Com pletion of  Install
  10969   "QUES","XP O1","B")
  10970   NO
  10971   "QUES","XP O1","M")
  10972   D XPO1^XPD IQ
  10973   "QUES","XP Z1",0)
  10974   Y
  10975   "QUES","XP Z1","??")
  10976   ^D OPT^XPD H
  10977   "QUES","XP Z1","A")
  10978   Want to DI SABLE Sche duled Opti ons, Menu  Options, a nd Protoco ls
  10979   "QUES","XP Z1","B")
  10980   NO
  10981   "QUES","XP Z1","M")
  10982   D XPZ1^XPD IQ
  10983   "QUES","XP Z2",0)
  10984   Y
  10985   "QUES","XP Z2","??")
  10986   ^D RTN^XPD H
  10987   "QUES","XP Z2","A")
  10988   Want to MO VE routine s to other  CPUs
  10989   "QUES","XP Z2","B")
  10990   NO
  10991   "QUES","XP Z2","M")
  10992   D XPZ2^XPD IQ
  10993   "RTN")
  10994   1
  10995   "RTN","YS1 28PS0")
  10996   0^^B140749 5
  10997   "RTN","YS1 28PS0",1,0 )
  10998   YS128PS0 ; SLC/JLC -  Patch 128  post-init  - utilitie s; 9/15/20 15 ;05/30/ 17  07:55
  10999   "RTN","YS1 28PS0",2,0 )
  11000    ;;5.01;ME NTAL HEALT H;**128**; Dec 30, 19 94;Build 2 3
  11001   "RTN","YS1 28PS0",3,0 )
  11002    ;
  11003   "RTN","YS1 28PS0",4,0 )
  11004    ;
  11005   "RTN","YS1 28PS0",5,0 )
  11006    Q
  11007   "RTN","YS1 28PS0",6,0 )
  11008    ;
  11009   "RTN","YS1 28PS0",7,0 )
  11010   UPDVER(WHI CH,VER) ;  update MHA  version n umber in b roker opti on
  11011   "RTN","YS1 28PS0",8,0 )
  11012    ; WHICH:  1=server,  2="A" DLL,  3=MHA exe
  11013   "RTN","YS1 28PS0",9,0 )
  11014    ; VER: ve rsion stri ng for WHI CH compone nt
  11015   "RTN","YS1 28PS0",10, 0)
  11016    N OPT,TXT ,VERPART,F DA,DIERR
  11017   "RTN","YS1 28PS0",11, 0)
  11018    S OPT=$$F IND1^DIC(1 9,"","X"," YS BROKER1 ","B")
  11019   "RTN","YS1 28PS0",12, 0)
  11020    I 'OPT D  BMES^XPDUT L("ERROR:  YS BROKER1  not found  on this s ystem.") Q UIT
  11021   "RTN","YS1 28PS0",13, 0)
  11022    I $D(DIER R) D BMES^ XPDUTL("ER ROR: "_$G( ^TMP("DIER R",$J,1,"T EXT",1)))  QUIT
  11023   "RTN","YS1 28PS0",14, 0)
  11024    S TXT=$$G ET1^DIQ(19 ,OPT_",",1 ),VERPART= $P(TXT,"ve rsion ",2)
  11025   "RTN","YS1 28PS0",15, 0)
  11026    S $P(VERP ART,"~",WH ICH)=VER,$ P(TXT,"ver sion ",2)= VERPART
  11027   "RTN","YS1 28PS0",16, 0)
  11028    S FDA(19, OPT_",",1) =TXT
  11029   "RTN","YS1 28PS0",17, 0)
  11030    D FILE^DI E("","FDA" )
  11031   "RTN","YS1 28PS0",18, 0)
  11032    I $D(DIER R) D BMES^ XPDUTL("ER ROR: "_$G( ^TMP("DIER R",$J,1,"T EXT",1)))
  11033   "RTN","YS1 28PS0",19, 0)
  11034    D CLEAN^D ILF
  11035   "RTN","YS1 28PS0",20, 0)
  11036    Q
  11037   "RTN","YS1 28PS0",21, 0)
  11038   POST ;upda te DLL ver sion numbe r
  11039   "RTN","YS1 28PS0",22, 0)
  11040    D UPDVER( 2,"1.0.5.4 ")
  11041   "RTN","YS1 28PS0",23, 0)
  11042    Q
  11043   "VER")
  11044   8.0^22.2
  11045   **END**
  11046   **END**