source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00U.m@ 1608

Last change on this file since 1608 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.6 KB
Line 
1OCXDI00U ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI00V
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^22105.271^174811.761^29444.311^13228.211^807883.1521^152926.681^111964.581^750.51^3796.101^750.51^52506.391^750.51^14755.201^750.51^371531.1111^750.51^202781.771^750.51^431550.1161^472853.1191^750.51
21 ;;RSUM^10902.181^233258.871^263750.901^9613.171^860.51^750.51^8402.161^329305.1001^26219.281^860.51^750.51^7311.151^331912.1011^59936.461^860.51^750.51^21604.251^71097.471^49660.391^61397.441^750.51^40445.341
22 ;;RSUM^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^86291.511^750.51^471.41^533.41^150.21
23 ;;RND^OCXSEND8^8/04/98 13:21
24 ;;RTN^OCXSENDA^8/04/98 13:21
25 ;;RSUM^150.21^1023.61^150.21^26864.271^165107.671^438550.1181^150.21^26747.291^150.21^108945.591^206761.801^150.21^1439.61^150.21^150.21^1336.61^166044.671^6319.121^6330.121^750.51^1173.61^750.51^178377.721
26 ;;RSUM^750.51^2851.91^127235.601^3259.111^1695.81^126917.521^107579.521^84905.441^78736.491^133485.531^53823.371^152530.681^44352.371^364178.1071^22112.241^750.51^2244.81^750.51^43464.351^750.51^152632.701
27 ;;RSUM^144618.691^114179.601^167205.731^1374.71^380636.1121^187552.801^101679.581^1374.71^200673.771^45686.371^143912.641^20886.261^10781.181^72584.481^10075.181^12330.191^128839.601^1374.71^190264.751^750.51
28 ;;RSUM^18496.241^750.51^9370.171^16253.221^77185.501^104310.591^56226.411^750.51^139615.671^42870.321^750.51^9022.171^307485.811^180440.691^750.51^8129.161^8458.151^239296.891^14033.191^750.51^860.51^750.51
29 ;;RSUM^46979.421^750.51^40445.341^66197.421^14675.221^10986.181^36744.341^36821.341^35868.351^3666.101^79370.501^1675.71^750.51^471.41^533.41
30 ;;RND^OCXSENDA^8/04/98 13:21
31 ;;RTN^OCXSENDB^8/04/98 13:21
32 ;;RSUM^150.21^150.21^76556.471^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^27043.291^12993.211^150.21^11947.191^150.21^5431.121^5769.131^38796.331^29562.291^39316.361^251575.911^341114.1061^27122.281
33 ;;RSUM^194.21^150.21^18358.231^150.21^6933.141^150.21^214633.781^138705.681^150.21^225911.801^47822.401^141133.691^53693.421^141133.691^150.21^194.21^150.21^23733.261^150.21^8386.151^150.21^127486.631^284508.891
34 ;;RSUM^172171.771^174373.731^139972.691^172431.771^301.31^88204.531^103190.581^60850.451^14037.211^150.21^194.21^150.21^28129.291^150.21^796.51^150.21^97290.561^217640.791^154863.711^148843.701^125555.641
35 ;;RSUM^150.21^194.21^150.21^31255.301^150.21^796.51^150.21^94109.551^194.21^150.21^49827.371^150.21^14173.201^150.21^171019.711^48202.401^301.31^50461.431^111846.621^14784.221^150.21^194.21^150.21^12525.191
36 ;;RSUM^150.21^796.51^150.21^105697.581^196188.751^136626.671^150.21^194.21^150.21^24226.261^150.21^796.51^150.21^196188.751^159169.721^150.21^237842.821^172418.741^150.21^194.21^150.21^16964.221^150.21^796.51
37 ;;RSUM^150.21^196188.751^159169.721^150.21^194.21^150.21^12252.191^150.21^796.51^150.21^121973.621^139712.661^102316.571^150.21^122353.621^150.21^196188.751^6164.131^127896.641^47924.381^118519.611^11458.181
38 ;;RSUM^78417.531^171085.751^150.21^194.21^150.21^20812.241^150.21^796.51^150.21^149085.681^196188.751^159169.721^150.21^194.21^150.21^15561.211^150.21^796.51^150.21^196188.751^136626.671^150.21^194.21^150.21
39 ;;RSUM^15271.211^150.21^796.51^150.21^96049.561^150.21^196188.751^159169.721^150.21^194.21^150.21^32195.301^150.21^796.51^150.21^196188.751^142270.681^150.21^194.21^150.21^20474.241^150.21^796.51^150.21^257238.851
40 ;;RSUM^136626.671^150.21^194.21^150.21^39922.331^150.21^796.51^150.21^97247.561^164518.711^196188.751^64851.471^58825.441^36295.331^119235.611^150.21^194.21^150.21^18797.231^150.21^796.51^150.21^145547.681
41 ;;RSUM^196188.751^159169.721^150.21^194.21
42 ;;RND^OCXSENDB^8/04/98 13:21
43 ;;RTN^OCXSENDD^8/04/98 13:21
44 ;;RSUM^150.21^194.21^150.21^15646.231^150.21^19496.241^150.21^11484.171^67615.501^25080.291^111501.601^16070.221^150.21^10868.181^150.21^11484.171^33286.351^25080.291^86602.531^16070.221^150.21^11055.181
45 ;;RSUM^150.21^8492.171^10722.171^3010.101^150317.721^79795.511^48547.391^1872.71^150.21^9886.171^150.21^8492.171^13289.191^4475.121^160310.741^117765.641^3079.91^1667.71^55438.401^20786.241^20153.241^24427.261
46 ;;RSUM^9271.161^22001.251^23342.251^26861.271^27800.281^38615.321^32496.311^19368.231^35844.321^38719.331^54205.391^16202.211^13255.191^16210.211^21502.251^55534.391^7653.151^16728.211^33511.311^26333.271
47 ;1;
48 ;
Note: See TracBrowser for help on using the repository browser.