source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00M.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.6 KB
Line 
1OCXDI00M ;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 ^OCXDI00N
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^6228.131^2148.71^13025.201^30892.301^15996.211^11197.211^5675.121^11214.211^3334.91^2148.71^19164.231^11197.211^7628.141^11214.211^2077.71^9294.191^5650.121^25223.321^8308.151^22271.301^9142.151^25246.321
21 ;;RSUM^4330.101^22294.301^41767.291^25269.321^533.41^150.21
22 ;;RND^OCXRU002^APR 30,1999 at 15:06
23 ;;RTN^OCXRU003^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^5112.121^150.21^194.21^150.21^1224.61^150.21^31105.291^22317.301^2117.81^25292.321^10832.171^22340.301^247489.751
25 ;;RSUM^25315.321^9041.151^22363.301^61704.351^25338.321^16637.211^22386.301^1357.61^2148.71^15944.211^11197.211^5650.121^11214.211^5650.121^26801.331^18321.221^23755.311^218797.701^26825.331^9201.151^23779.311
26 ;;RSUM^1417.61^26849.331^9041.151^23803.311^29399.241^25361.321^8308.151^22409.301^11621.171^25384.321^4330.101^22432.301^15804.181^25407.321^10832.171^22455.301^1261.61^2148.71^16288.211^11197.211^5796.121
27 ;;RSUM^11214.211^5796.121^9294.191^5650.121^25223.321^8308.151^22271.301^9324.151^25246.321^4330.101^22294.301^17851.191^25269.321^9041.151^22317.301^32094.251^25292.321^16637.211^22340.301^1357.61^2148.71
28 ;;RSUM^12921.201^47754.371^52503.391^11254.211^31581.301^11271.211^20447.231^9366.191^10791.171^25445.321^18863.231^25469.321^1363.61^2148.71^50715.381^11254.211^30180.291^11271.211^20447.231^9366.191^9751.161
29 ;;RSUM^25445.321^18863.231^25469.321^1363.61^2148.71^46326.361^11254.211^26844.271^11271.211^20447.231^9366.191^9691.161^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71
30 ;;RSUM^41038.341^11254.211^22888.251^11271.211^20447.231^9366.191^8379.151^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^54675.391^11254.211^33195.301^11271.211^20447.231
31 ;;RSUM^9366.191^11038.171^25445.321^18863.231^25469.321^1363.61^25468.321^16880.211^25492.321^1369.61^2148.71^13008.201^57226.401^18134.221^11276.211^6872.131^11293.211^7628.141^11327.211^6872.131^25467.321
32 ;;RSUM^37247.321^22515.301^26844.271^2148.71^24066.261^11276.211^10806.171^11293.211^7628.141^11327.211^9450.161^25490.321^37247.321^22538.301^22888.251^25465.321^4988.111^2148.71^25757.271^11276.211^11840.181
33 ;;RSUM^11293.211^5675.121^11310.211^31581.301^11327.211^6353.131^25444.321^37247.321^22492.301^31581.301^25465.321^3989.101^2148.71^24485.261^11276.211^10955.171^11293.211^5675.121^11310.211^30180.291^11327.211
34 ;;RSUM^5683.121^25444.321^37247.321^22492.301^30180.291^25465.321^3448.91^533.41^150.21
35 ;;RND^OCXRU003^APR 30,1999 at 15:06
36 ;;RTN^OCXRU004^APR 30,1999 at 15:07
37 ;;RSUM^150.21^324.31^150.21^8084.141^150.21^150.21^24215.261^190137.791^105365.591^150.21^5124.121^150.21^194.21^150.21^1224.61^150.21^2148.71^23375.251^11276.211^10115.161^11293.211^7628.141^11327.211^10115.161
38 ;;RSUM^25490.321^37247.321^22538.301^33195.301^25465.321^9815.161^2148.71^13042.201^33540.311^14637.201^11221.211^4884.111^25289.321^7507.141^22337.301^7628.141^2148.71^20228.241^11221.211^8360.151^11238.211
39 ;;RSUM^6647.131^25289.321^7507.141^22337.301^7628.141^2148.71^10333.171^11221.211^2614.81^25289.321^7507.141^22337.301^5796.121^2148.71^20927.241^11221.211^8708.151^25289.321^7507.141^22337.301^7628.141^2148.71
40 ;;RSUM^20476.241^11221.211^8392.151^25289.321^7507.141^22337.301^7628.141^2148.71^34865.311^11221.211^18218.221^25289.321^7507.141^22337.301^7628.141^2148.71^28004.291^11221.211^13616.201^25289.321^7507.141
41 ;;RSUM^22337.301^5675.121^2148.71^12957.201^28528.291^16401.211^11199.211^5889.121^25227.321^3229.91^22275.301^1369.61^2148.71^12923.201^22242.261^37931.321^11210.211^20297.231^11227.211^5889.121^11261.211
42 ;;RSUM^2473.81^11278.211^8360.151^25279.321^30000.291^25302.321^34849.311^22350.301^1369.61^25325.321^18940.231^22373.301^15108.221^25348.321^20206.241^25371.321^26577.271^22419.301^2473.81^25394.321^18179.221
43 ;;RSUM^2148.71^48996.361^11210.211^28455.271^11227.211^5889.121^11261.211^2473.81^11278.211^2614.81^11295.211^1810.71^25279.321^20206.241^25302.321^30000.291^25325.321^18940.231^22373.301^14989.221^2148.71
44 ;;RSUM^22710.251^11210.211^9792.161^11227.211^5889.121^11278.211^2614.81^11295.211^1810.71^25279.321^18940.231^22327.301^2591.81^2148.71^38888.321^11210.211^20903.231^11227.211^5889.121^11261.211^2767.81
45 ;1;
46 ;
Note: See TracBrowser for help on using the repository browser.