source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00L.m

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

initial load of FOIAVistA 6/30/08 version

File size: 4.4 KB
Line 
1OCXDI00L ;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 ^OCXDI00M
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^1755.71^150.21^18233.241^150.21^20607.281^5711.131^25460.291^15551.231^150.21^128567.651^135675.671^20314.261^150.21^259609.971^59758.441^159348.721^150.21^194.21^150.21^28308.321^150.21^13339.201
21 ;;RSUM^117911.621^194.21^150.21^76418.481^150.21^342244.1081^150.21
22 ;;RND^OCXRU0^APR 30,1999 at 15:07
23 ;;RTN^OCXRU001^APR 30,1999 at 15:06
24 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5088.121^150.21^194.21^150.21^1224.61^150.21^66799.451^73144.471^84594.511^86047.511^90427.521^115587.581^94357.531
25 ;;RSUM^46380.371^73914.471^60929.431^54821.411^68057.451^58383.421^57924.421^87768.511^67670.451^104419.551^83876.491^64250.441^119865.601^118249.591^76644.481^33101.311^33251.301^11265.211^16880.211^11282.211
26 ;;RSUM^3277.91^7714.171^1261.61^7731.171^154489.621^7748.171^41247.291^7765.171^1261.61^2148.71^19018.231^11265.211^7507.141^11282.211^7507.141^7714.171^179756.681^25591.321^4330.101^22639.301^27048.231^25614.321
27 ;;RSUM^2524.81^22662.301^3103.101^25637.321^7507.141^22685.301^31166.301^25660.321^29102.281^22708.301^2659.81^2148.71^10183.171^11265.211^2524.81^11282.211^2524.81^7714.171^179961.631^25476.321^7507.141
28 ;;RSUM^22524.301^31166.301^25499.321^2524.81^22547.301^1363.61^25522.321^4330.101^22570.301^123587.511^2148.71^49514.371^11265.211^29102.281^11282.211^4061.101^7714.171^229401.721^7731.171^24249.221^25476.321
29 ;;RSUM^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301^62883.361^25522.321^10832.171^22570.301^658987.1251^2148.71^11608.181^11265.211^3229.91^11282.211^3229.91^7714.171^77461.411^25591.321^4330.101
30 ;;RSUM^22639.301^3997.91^25614.321^7507.141^22662.301^31166.301^25637.321^2524.81^22685.301^1363.61^2148.71^15538.211^11265.211^5440.121^11282.211^5440.121^7714.171^377957.901^25545.321^4330.101^22593.301
31 ;;RSUM^154845.581^25568.321^7507.141^22616.301^6228.131^2148.71^52219.381^11265.211^31105.291^11282.211^3340.91^7714.171^58782.341^9362.191^2157.81^25522.321^4330.101^22570.301^76954.391^25545.321^5440.121
32 ;;RSUM^22593.301^8887.151^25568.321^7507.141^22616.301^16907.211^2148.71^24233.261^11265.211^10832.171^11282.211^3312.91^7714.171^251445.731^533.41^150.21
33 ;;RND^OCXRU001^APR 30,1999 at 15:06
34 ;;RTN^OCXRU002^APR 30,1999 at 15:06
35 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5100.121^150.21^194.21^150.21^1224.61^150.21^7731.171^8298.131^27030.331^4330.101^23984.311^46716.311^25637.321^7507.141
36 ;;RSUM^22685.301^7628.141^25660.321^5440.121^22708.301^8859.151^2148.71^21596.241^11265.211^9041.151^11282.211^9041.151^7714.171^178883.601^25476.321^7507.141^22524.301^7628.141^25499.321^4330.101^22547.301
37 ;;RSUM^34646.261^25522.321^10832.171^22570.301^190193.631^2148.71^35232.311^11265.211^18321.221^11282.211^6308.131^7714.171^199682.641^9362.191^168112.621^25545.321^4330.101^22593.301^16659.181^25568.321
38 ;;RSUM^7507.141^22616.301^7628.141^2148.71^46170.361^11265.211^26577.271^2148.71^60248.411^11265.211^37199.321^2148.71^34856.311^11265.211^18179.221^2148.71^60071.411^11265.211^37247.321^11282.211^2602.81
39 ;;RSUM^2148.71^37549.331^11265.211^20206.241^11282.211^6451.131^2148.71^57097.401^11265.211^34849.311^2148.71^35959.321^11265.211^18940.231^2148.71^50655.381^11265.211^30000.291^2148.71^35900.321^11265.211
40 ;;RSUM^18863.231^11282.211^3949.101^7714.171^1261.61^7731.171^160584.571^7748.171^22116.221^7765.171^1261.61^2148.71^13771.191^11265.211^4330.101^11282.211^4330.101^7714.171^285630.811^25476.321^7507.141
41 ;;RSUM^22524.301^7628.141^25499.321^4330.101^22547.301^72559.391^2148.71^32720.301^11265.211^16637.211^11282.211^3430.91^7714.171^185886.631^25476.321^7507.141^22524.301^4687.111^25499.321^10832.171^22547.301
42 ;;RSUM^216406.681^25522.321^4330.101^22570.301^40626.281^2148.71^21945.241^11265.211^9201.151^11282.211^9201.151^7714.171^89272.521^9362.191^1417.61^25545.321^4330.101^22593.301^57006.331^25568.321^7507.141
43 ;;RSUM^22616.301^7628.141^25591.321^31105.291^22639.301^1411.61^2148.71^20368.241^11265.211^8308.151^11282.211^6221.131^7714.171^316451.811^25522.321^4330.101^22570.301^25740.221^25545.321^7507.141^22593.301
44 ;1;
45 ;
Note: See TracBrowser for help on using the repository browser.