source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00I.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1OCXDI00I ;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 ^OCXDI00J
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671
21 ;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
22 ;;RND^OCXOED14^10/29/98 12:37
23 ;;RTN^OCXOED15^10/29/98 12:37
24 ;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41
25 ;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311
26 ;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
27 ;;RND^OCXOED15^10/29/98 12:37
28 ;;RTN^OCXOED16^10/29/98 12:37
29 ;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21
30 ;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21
31 ;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311
32 ;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311
33 ;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21
34 ;;RND^OCXOED16^10/29/98 12:37
35 ;;RTN^OCXOEDT^10/29/98 12:37
36 ;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^1317.61^150.21
37 ;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241
38 ;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151
39 ;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21
40 ;;RND^OCXOEDT^10/29/98 12:37
41 ;;RTN^OCXOEDT4^10/29/98 12:37
42 ;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21
43 ;;RND^OCXOEDT4^10/29/98 12:37
44 ;;RTN^OCXOEDT5^10/29/98 12:37
45 ;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21
46 ;;RND^OCXOEDT5^10/29/98 12:37
47 ;;RTN^OCXOEDT6^5/27/99 16:52
48 ;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391
49 ;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931
50 ;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581
51 ;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321
52 ;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371
53 ;1;
54 ;
Note: See TracBrowser for help on using the repository browser.