source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00B.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.5 KB
Line 
1OCXDI00B ;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 ^OCXDI00C
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^150.21^26687.321^5922.141^150.21^622.41^150.21
21 ;;RND^OCXOCMPL^10/29/98 12:37
22 ;;RTN^OCXOCMPM^10/29/98 12:37
23 ;;RSUM^150.21^1023.61^150.21^8409.161^76625.501^217276.821^105222.541^18474.241^301.31^30722.341^301.31^65113.461^54875.421^499327.1211^298864.941^1015915.1711^1265171.1871^301.31^526689.1191^24179.281^670984.1461
24 ;;RSUM^301.31^51873.421^301.31^15163.211^498.41^60113.451^498.41^29892.291^498.41^109310.601^12133.181^11999.201^164930.711^83926.511^86341.511^149336.671^498.41^498.41^51684.401^498.41^117661.611^167139.721
25 ;;RSUM^24022.261^73068.471^381221.1081^849092.1651^225596.851^1030.61^86272.491^1030.61^12614.201^180723.711^143183.641^1365.71^69371.471^320659.971^262722.921^429106.1121^748238.1481^1365.71^192542.751^671867.1391
26 ;;RSUM^132359.641^910547.1611^1179974.1891^171481.751^19644.231^246410.881^143607.671^139457.671^75375.471^1746.81^55481.401^19379.271^498.41^75692.461^498.41^231643.861^118181.621^373602.1071^1751.81^14207.211
27 ;;RSUM^2114.91^116893.511^92865.581^152588.741^111423.581^826841.1661^160606.711^193250.801^111790.591^498.41^99581.541^498.41^643395.1411^498.41^62382.461^255394.901^57957.441^301.31^85430.481^301.31^29550.291
28 ;;RSUM^373390.1091^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
29 ;;RSUM^498.41^22234.251^498.41^93268.551^100589.541^43118.371^231446.851^46020.381^111789.601^41739.351^110403.581^20615.251^301.31^27506.281^301.31^36418.321^301.31^19090.241^18973.231^89950.541^28126.291
30 ;;RSUM^52782.401^252101.871^11209.201^44007.411^89950.541^3057.91^21623.251^13558.201^24866.271^77891.481^150.21^4116.101^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^150.21
31 ;;RSUM^8462.171^1738.71^150.21^14613.211^150.21^38391.331^73000.501^105690.571^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241^88173.501^194.21^150.21
32 ;;RND^OCXOCMPM^10/29/98 12:37
33 ;;RTN^OCXOCMPN^10/29/98 12:37
34 ;;RSUM^150.21^7167.151^150.21^15894.211^150.21^86285.531^50476.421^65134.471^186776.791^150.21^10934.201^86285.531^42403.381^123015.631^272735.931^150.21^110447.601^54937.421^251263.911^748354.1571^782291.1601
35 ;;RSUM^223906.851^177431.771^72125.471^163083.701^9648.171^150.21^194.21^150.21^7186.151^150.21^3191.91^19209.261^36535.341^5049.121^14947.211^194.21^150.21
36 ;;RND^OCXOCMPN^10/29/98 12:37
37 ;;RTN^OCXOCMPO^2/02/99 12:58
38 ;;RSUM^150.21^1023.61^150.21^28702.281^150.21^186055.771^301.31^30722.341^301.31^58556.431^4712.121^80067.511^40026.371^66344.481^484665.1301^64343.441^61987.431^61578.431^14826.211^10549.191^520848.1271
39 ;;RSUM^28734.321^55677.431^285874.881^301.31^6877.141^206421.871^45056.381^24944.261^567433.1251^76275.511^45167.411^130444.651^426030.1231^85094.541^16209.221^301.31^70008.451^301.31^5134.121^150.21^65849.361
40 ;;RSUM^150.21^16411.201^150.21^220302.841^24378.261^93928.531^18794.261^71323.501^80067.511^43211.371^37639.371^58675.471^141167.671^17114.221^50383.391^70008.451^150.21^482.41^150.21^14613.211^150.21^38391.331
41 ;;RSUM^73000.501^112450.591^194.21^150.21
42 ;;RND^OCXOCMPO^2/02/99 12:58
43 ;;RTN^OCXOCMPP^10/29/98 12:37
44 ;;RSUM^150.21^557.41^150.21^28737.301^150.21^53268.441^28140.311^72549.521^46725.411^45878.411^68093.471^150.21^65104.451^308626.1041^150.21^197187.811^150.21^209685.871^225672.881^225672.881^252519.941^89744.551
45 ;;RSUM^130042.671^130034.671^150.21^194.21^150.21
46 ;;RND^OCXOCMPP^10/29/98 12:37
47 ;;RTN^OCXOCMPQ^10/29/98 12:37
48 ;;RSUM^150.21^150.21^13975.211^150.21^1930.71^3074.101^4514.121^10704.171^289863.971^1105.61^89999.581^267707.981^115088.621^5218.131^10704.171^76115.511^62384.481^217222.881^82558.541^1936.71^150.21^3963.111
49 ;;RSUM^1903.71^375584.1151^646.41^150.21^9483.181^150.21^18721.231^185019.771^35295.321^79457.501^10199.201^63230.481^277457.1001^71236.511^32587.321^1027.61^74739.491^362619.1051^301.31^40049.361^2382.81
50 ;;RSUM^32266.291^498.41^382713.1121^471939.1261^160734.721^25723.281^140365.661^31442.321^47925.401^43657.381^67991.481^122441.621^10894.191^85369.531^113288.621^119065.641^150.21^1439.61^1922.81^150.21^8640.161
51 ;1;
52 ;
Note: See TracBrowser for help on using the repository browser.