source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00R.m@ 1582

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

initial load of FOIAVistA 6/30/08 version
File size: 4.5 KB
Line 
1OCXDI00R ;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 ^OCXDI00S
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^646.41^150.21^76418.481^150.21
21 ;;RND^OCXRU2^APR 30,1999 at 15:07
22 ;;RTN^OCXRU3^APR 30,1999 at 15:07
23 ;;RSUM^150.21^324.31^25317.221^194.21^150.21^32797.311^150.21^150.21^63684.421^150.21^141098.701^227558.891^30509.321^150.21^9676.181^639222.1341^150.21^64901.441^82568.501^150.21^482.41^150.21^19533.241
24 ;;RSUM^150.21^34434.311^150.21^9676.181^688709.1381^150.21^77911.531^210473.861^13919.231^52202.401^150.21^96215.581^50817.391^150.21^482.41^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
25 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
26 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
27 ;;RND^OCXRU3^APR 30,1999 at 15:07
28 ;;RTN^OCXRU4^APR 30,1999 at 15:07
29 ;;RSUM^150.21^324.31^18568.191^194.21^150.21^50059.381^150.21^40735.331^150.21^101437.601^17380.241^160879.731^23999.281^48598.401^2531.81^9323.171^732636.1451^144087.661^213222.801^150.21^2065.71^150.21
30 ;;RSUM^47407.371^150.21^53696.381^150.21^101437.601^17380.241^160879.731^23999.281^9676.181^776560.1491^139741.651^100708.551^150.21^2065.71^150.21^44766.361^150.21^10948.171^150.21^350912.1081^150.21^188279.741
31 ;;RSUM^150.21^409710.1131^449939.1161^150.21^7737.151^217424.841^247076.871^6691.141^194.21^150.21^5498.131^310210.971^21116.251^194.21^150.21^4650.121^312667.981^52082.431^194.21^150.21^16756.221^62298.441
32 ;;RSUM^42559.361^53585.411^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^76418.481^150.21
33 ;;RND^OCXRU4^APR 30,1999 at 15:07
34 ;;RTN^OCXRULE^APR 30,1999 at 15:07
35 ;;RSUM^150.21^324.31^150.21^163935.691^150.21^1435.61^374594.1031^1798.81^678.51^113672.491^95861.491^285290.871^69790.461^120114.501^121003.611^139306.651^37500.341^345062.1041^6266.141^150.21^909.51^150.21
36 ;;RSUM^36501.321^150.21^139987.671^132027.661^103136.571^153954.701^498.41^360455.1091^173584.771^91623.551^498.41^185781.741^38948.341^131294.611^16452.231^7772.151^63902.451^7210.151^9063.161^116854.571
37 ;;RSUM^498.41^175297.721^150.21^14200.211^150.21^6544.141^12386.191^68380.471^94245.561^48732.381^150.21^127507.641^35697.291^279436.771^160943.651^150.21^194.21^150.21^40079.391^150.21^33701.311^57533.391
38 ;;RSUM^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21
39 ;;RND^OCXRULE^APR 30,1999 at 15:07
40 ;;RTN^OCXSEND^8/04/98 13:21
41 ;;RSUM^150.21^324.31^17096.221^35127.331^60996.421^19171.231^345012.1041^8688.171^8714.171^150.21^103594.471^150.21^284049.861^150.21^29566.311^678.51^140060.531^117764.521^301.31^1055361.1601^150.21^6512.131
42 ;;RSUM^299200.821^206663.701^350568.891^468.41^150.21^1878.71^150.21^31879.281^150.21^59000.371^150.21^182102.651^150.21^175487.641^150.21^175577.641^150.21^175667.641^150.21^175757.641^150.21^175847.641
43 ;;RSUM^150.21^48209.381^150.21^76370.441^150.21^194.21^150.21^24345.271^41556.331^9601.181^6555.141^25920.291^25984.291^17250.251^1992.71^70433.471^646.41^150.21^86079.541^150.21^3708.111^55911.421^39072.361
44 ;;RSUM^2804.91^150.21^1243.61^150.21^97991.461^6457.131^2933.91^260482.821^150.21^79931.511^18807.251^39228.341^150.21^167467.741^18807.251^39228.341^150.21^197670.811^18807.251^39228.341^150.21^103208.551
45 ;;RSUM^150.21^194.21^150.21^5099.131^150.21^636.41^25602.291^59094.461^150.21^212769.821^150.21
46 ;;RND^OCXSEND^8/04/98 13:21
47 ;;RTN^OCXSEND1^8/04/98 13:21
48 ;;RSUM^150.21^324.31^150.21^9234.161^150.21^207074.811^150.21^194.21^150.21^9661.171^150.21^60480.411^208522.801^57460.431^517486.1231^189636.851^4720.121^97455.551^22341.271^135587.661^150.21^6542.151^255620.801
49 ;;RSUM^91118.451^236339.891^8076.161^17042.241^159411.721^214823.901^112659.561^151719.741^5398.131^150.21^8815.181^38026.321^5500.131^125309.671^16000.231^18239.231^114036.631^38964.341^22454.281^112890.601
50 ;;RSUM^71649.481^27947.291^43052.361^45521.371^150.21^108384.561^5629.141^38923.341^41298.351^150.21^486.41^150.21^1716.71^150.21^38152.361^97809.571^109360.591^31493.321^38683.351^36369.341^36322.341^32308.321
51 ;1;
52 ;
Note: See TracBrowser for help on using the repository browser.