source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00C.m@ 813

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

initial load of WorldVistAEHR

File size: 4.6 KB
RevLine 
[613]1OCXDI00C ;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 ^OCXDI00D
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^150.21^39195.321^7148.161^318047.1001^187248.781^95962.561^102219.581^63996.441^4218.101^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391
21 ;;RSUM^150525.711^57706.431^150.21^5394.131^150.21^35535.351^379248.1141^2491.81
22 ;;RND^OCXOCMPQ^10/29/98 12:37
23 ;;RTN^OCXOCMPR^10/29/98 12:37
24 ;;RSUM^150.21^557.41^150.21^30245.301^150.21^7383.141^150.21^66413.491^55945.441^44553.381^11660.201^416781.1241^5455.131^150.21^16495.231^150.21^194.21^150.21^19049.251^150.21^2386.81^150.21^133245.681^1114.61
25 ;;RSUM^80955.541^122512.611^47240.391^64407.481^76541.491^150267.731^75141.511^17775.221^174290.771^71528.451^498.41^56448.451^49797.421^85619.561^50253.391^68132.451^65886.431^194.21^150.21^1238.61^150.21
26 ;;RSUM^23098.251^101382.531^121089.631^25495.311^287094.921^194.21^150.21^1810.71^194.21^150.21
27 ;;RND^OCXOCMPR^10/29/98 12:37
28 ;;RTN^OCXOCMPS^8/16/99 09:03
29 ;;RSUM^150.21^557.41^150.21^194.21^150.21^2480.91^150.21^10101.161^71466.511^126219.681^226263.851^150.21^15849.221^150.21^153962.561^138313.601^178713.621^185934.621^96529.451^150.21^11648.181^10641.181
30 ;;RSUM^51910.421^19738.251^120477.621^17893.231^150.21^16174.231^150.21^84664.551^150.21^4611.121^4111.121^72923.441^93749.561^181896.771^96235.561^105653.591^100239.581^420118.1151^94139.551^150.21^1665.71
31 ;;RSUM^24054.251^199505.691^10614.171^293485.921^135523.621^135574.621^57631.471^787376.1581^46476.401^23419.281^211831.821^151534.681^173598.731^325941.981^207147.771^150.21^5038.121^194.21^150.21
32 ;;RND^OCXOCMPS^8/16/99 09:03
33 ;;RTN^OCXOCMPT^2/02/99 13:13
34 ;;RSUM^150.21^194.21^5691.131^150.21^354440.981^150.21^28875.331^150.21^150.21^120644.661^290838.951^167338.721^301.31^342408.1031^301.31^34753.341^154511.681^115365.571^176465.721^75608.491^89969.531^301.31
35 ;;RSUM^31936.331^42463.361^23579.281^135028.681^105708.591^498.41^324952.1101^78776.531^150.21^35728.351^5104.141^225510.811^101746.571^4941.111^126300.681^282878.951^10608.171^150.21^20366.271^56409.391
36 ;;RSUM^5104.141^87662.451^170734.741^237225.871^23474.261^48524.401^317222.1051^631108.1381^39775.371^124339.671^305922.991^10608.171^150.21^62208.451^150.21^194.21^150.21^6633.141^150.21^126964.591^150.21
37 ;;RSUM^28875.331^150.21^68425.461^133245.641^150.21^357516.1071^117732.611^99935.561^221111.851^100646.551^96440.541^157236.661^101188.531^40859.321^150.21^150.21^529417.1111^669455.1291^226395.721^637206.1201
38 ;;RSUM^450281.1021^457431.1031^682248.1231^1100438.1731^638394.1181^812690.1581^271599.841^16624.241^15742.211^42941.371^43014.371^36267.331^133634.561^269030.781^1105.61^267423.971^139109.681^14834.211^316737.1041
39 ;;RSUM^136705.671^14834.211^150.21^91051.541^99882.571^69579.481^264693.911^290803.961^194.21^150.21^4050.111^150.21^3971.101^102295.591^84418.501^194.21^150.21^8617.161^150.21^3266.91^128979.651^174506.741
40 ;;RSUM^150.21
41 ;;RND^OCXOCMPT^2/02/99 13:13
42 ;;RTN^OCXOCMPU^2/02/99 11:33
43 ;;RSUM^150.21^194.21^150.21^3719.101^150.21^83326.481^150.21^3973.111^57115.411^150.21^5979.131^492298.1121^118619.631^8066.171^297558.931^7118.161^150.21^54990.411^75533.471^150.21^194.21^150.21^1290.61
44 ;;RSUM^150.21^83326.481^150.21^19937.261^3002.111^150.21^124743.611^224345.911^33407.351^130961.641^136929.661^111427.611^3002.111^150.21^7473.151^143022.691^173527.781^491070.1241^3585.121^150.21^7495.161
45 ;;RSUM^3002.111^150.21^13563.211^94416.561^47375.381^60560.441^60552.441^12871.211^88402.541^5991.131^80938.531^64555.471^77893.451^4291.131^3002.111^150.21^194.21^150.21^65625.471^150.21^7336.151^37467.361
46 ;;RSUM^194.21^150.21
47 ;;RND^OCXOCMPU^2/02/99 11:33
48 ;;RTN^OCXOCMPV^2/02/99 16:06
49 ;;RSUM^150.21^864.51^51297.371^186730.711^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78860.421^150.21^100108.541^150.21^369462.961^300699.881^296526.901^257706.841^341940.951^150.21
50 ;;RSUM^317097.851^150.21^3838.101^344246.941^39409.331^7497.161^150.21^12620.201^150.21^194.21^150.21^4857.121^20348.251^53002.391^194.21^150.21^6678.141^14046.191^20348.251^53002.391^9177.151^194.21^150.21
51 ;;RSUM^16993.231^150.21^7145.141^150.21^5379.121^150.21^11315.191^19787.241^50984.401^46439.381^146212.581^150.21^19605.241^67911.421^96969.491^122586.621^148296.681^104853.631^599.51^20381.251^34619.351
52 ;1;
53 ;
Note: See TracBrowser for help on using the repository browser.