source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI008.m@ 1154

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

initial load of FOIAVistA 6/30/08 version
File size: 4.5 KB
Line 
1OCXDI008 ;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 ^OCXDI009
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^83566.511^87725.521^25934.311^38545.341^27929.301^73590.501^194.21^150.21^9570.171^150.21^48946.371^53400.381^150.21^19923.241^19231.231^25300.281^150.21^74517.501^79033.521^77520.501^77239.511^119413.621
21 ;;RSUM^85078.521^44876.401^62422.431^8306.171^23309.291^38430.381^89946.571^65495.471^229149.811^11927.201^117382.571^77343.491^83141.511^150.21^74601.501^79112.521^77599.501^77302.511^119537.621^150.21^54806.391
22 ;;RSUM^150.21^169209.761^4833.111^334173.1031^351863.1061^32138.311^19730.251^228714.871^150.21^227454.851^150.21^32951.321^150.21^2543.91^1876.71^78889.461^61089.461^150.21^87214.551^150.21^281926.1001^150.21
23 ;;RND^OCXOCMP8^10/29/98 12:37
24 ;;RTN^OCXOCMP9^10/29/98 12:37
25 ;;RSUM^150.21^194.21^1023.61^8409.161^150.21^76625.501^150.21^3146.91^150.21^94164.561^35094.341^30722.341^41320.371^188611.781^11100.171^235078.891^34554.361^197632.791^187049.791^389065.1101^387835.1101
26 ;;RSUM^4971.111^189301.781^4762.111^339230.1041^354375.1061^368740.1081^361872.1071^150.21^212968.821^205493.811^468579.1221^34554.361^223833.851^150.21^35739.351^9528.161^124321.641^218605.841^150.21^8682.161
27 ;;RSUM^214624.841^62357.411^178041.751^184082.761^97248.551^357352.1061^13723.201^7074.141^38718.351^14312.201^77678.491^489498.1281^121635.621^74123.491^175669.751^121635.621^74123.491^150.21^74532.501^150.21
28 ;;RSUM^61977.421^150.21^92878.511^9296.161^53768.401^126128.631^15400.231^438396.1071^98932.571^86568.551^398451.1101^716195.1461^30455.301^603611.1381^42616.351^341150.1011^388889.1081^66126.441^509673.1211
29 ;;RSUM^32615.351^116505.591^70939.481^34554.361^61131.441^301.31^7137.151^28004.281^63345.441^42616.351^341150.1011^388889.1081^66126.441^509673.1211^32615.351^116809.591^70939.481^34554.361^61131.441^301.31
30 ;;RSUM^26114.271^133485.671^127667.651^63113.441^42616.351^341150.1011^388889.1081^60715.421^4441.111^498.41^32615.351^116505.591^70939.481^34554.361^61131.441^194.21^150.21^8548.161^150.21^38025.361^150.21
31 ;;RSUM^15945.221^150.21^2554.81^182270.781^96317.571^150.21^16702.221^150.21^3447.101^8331.161^35535.351^405085.1171^5099.131^150.21^38125.361^108811.581^482.41^150.21
32 ;;RND^OCXOCMP9^10/29/98 12:37
33 ;;RTN^OCXOCMPA^10/29/98 12:37
34 ;;RSUM^150.21^194.21^150.21^18289.231^150.21^18324.241^2749.91^51333.401^53651.411^189196.771^159166.711^93308.561^93884.561^65289.451^150.21^7913.151^150.21^1531.71^11353.211^5416.131^7001.161^642.41^150.21
35 ;;RSUM^313013.821^125503.531^150.21^11051.201^92767.501^129618.611^66062.451^66151.451^63276.441^64210.451^167965.681^106849.591^155844.711^71504.461^50701.391^573578.1101^161784.711^41407.351^331303.971
36 ;;RSUM^33128.301^150.21
37 ;;RND^OCXOCMPA^10/29/98 12:37
38 ;;RTN^OCXOCMPB^10/29/98 12:37
39 ;;RSUM^150.21^194.21^150.21^36791.331^150.21^8409.161^109294.541^70365.441^22033.271^35162.331^150.21^84957.541^200570.751^150.21^268621.911^4989.111^301.31^10898.171^301.31^11380.181^485168.1271^1216029.1911
40 ;;RSUM^382847.1091^295505.941^301.31^25095.261^301.31^197336.741^359035.1011^372716.1031^359077.1011^301.31^4971.111^301.31^21903.251^301.31^8207.161^256420.851^54642.381^301.31^15878.211^301.31^10682.171
41 ;;RSUM^47905.371^498.41^49905.401^49933.401^498.41^92726.541^35351.321^45883.381^324182.1021^741.51^35675.331^15479.211^91854.561^9419.171^287075.1011^72077.511^14395.221^66655.481^95271.571^259209.971^741.51
42 ;;RSUM^35322.331^3457.101^331956.1081^332081.1081^741.51^232125.901^57370.421^15193.221^498.41^210000.821^125796.621^150.21^20214.241^71781.461^339956.1001^22033.271^4116.101^150.21^3685.111^620.41^22369.281
43 ;;RSUM^8186.151^140284.681^194.21^150.21^2010.81^174959.751^150.21^1919.81^102913.591^172114.771^14292.211^546.41^150.21^1002212.1561^150.21
44 ;;RND^OCXOCMPB^10/29/98 12:37
45 ;;RTN^OCXOCMPC^10/29/98 12:37
46 ;;RSUM^150.21^194.21^150.21^16581.221^150.21^482.41^256577.831^150.21^154850.661^150.21^24723.281^150.21^22727.251^150.21^71659.491^149152.691^301.31^144873.681^301.31^117409.631^301.31^87058.541^297463.971
47 ;;RSUM^17290.231^301.31^146722.671^301.31^65572.461^297463.971^5351.141^17290.231^34227.321^9260.161^301.31^51089.401^150.21^24185.261^150.21^17673.251^150.21^1297.61^7182.141^27494.301^194.21^4649.121^150.21
48 ;1;
49 ;
Note: See TracBrowser for help on using the repository browser.