source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00A.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 4.5 KB
Line 
1OCXDI00A ;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 ^OCXDI00B
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^152754.701^150.21^4116.101^150.21^2994.101^150.21^35554.351^96732.581^150.21
21 ;;RND^OCXOCMPG^1/12/99 14:45
22 ;;RTN^OCXOCMPH^10/29/98 12:37
23 ;;RSUM^150.21^194.21^1649.71^28467.281^64393.441^153840.701^150.21^169762.741^110020.591^7235.151^39700.351^132671.611^150.21^194.21^150.21^1286.61^69137.471^48455.401^96685.561^556151.1351^122791.621^41672.361
24 ;;RSUM^150.21^65388.461^45364.391^38751.351^116569.611^92559.551^150.21^194.21^150.21
25 ;;RND^OCXOCMPH^10/29/98 12:37
26 ;;RTN^OCXOCMPI^10/29/98 12:37
27 ;;RSUM^150.21^194.21^150.21^19726.241^150.21^8409.161^150.21^3345.91^150.21^151092.671^36175.321^55868.391^141532.651^498.41^58537.421^151198.691^1172301.1911^35716.321^498.41^29770.291^104399.591^301.31
28 ;;RSUM^16897.221^498.41^23558.251^51051.381^498.41^58776.421^111736.551^139950.671^118567.611^69103.451^68432.481^314256.1011^46570.371^789932.1561^168538.751^41416.341^116537.601^735711.1491^101427.541^470992.1211
29 ;;RSUM^498.41^79678.471^498.41^153902.661^40857.351^301.31^49785.391^150.21^4116.101^150.21^19535.241^150.21^21828.241^203692.821^33848.331^301607.951^15906.221^150.21^18200.231^150.21^11313.171^48247.381
30 ;;RSUM^18595.251^111450.591^9648.181^92516.551^98674.571^40183.351^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^150525.711^57706.431^150.21^191420.751
31 ;;RSUM^202573.771^201373.771^180993.731^150.21
32 ;;RND^OCXOCMPI^10/29/98 12:37
33 ;;RTN^OCXOCMPJ^10/29/98 12:37
34 ;;RSUM^150.21^194.21^150.21^33879.321^150.21^8409.161^150.21^33845.301^418635.1101^391941.1071^471509.1161^324392.981^150.21^74887.561^301.31^20432.251^248175.901^150.21^230910.961^2977.91^17525.251^301.31
35 ;;RSUM^83329.541^372021.1021^20634.261^301.31^26644.291^301646.1001^476311.1231^150.21^284324.1031^301.31^34200.341^301.31^45829.371^54788.421^409285.1141^150.21^47533.371^150.21^283061.1041^8757.151^66411.481
36 ;;RSUM^301.31^83329.541^433743.1101^20634.261^301.31^89631.521^324863.981^368806.1121^73109.491^543107.1301^150.21^443799.1121^150.21^4116.101^150.21^36145.331^150.21^8409.161^427157.1111^400182.1081^480611.1171
37 ;;RSUM^324392.981^150.21^74887.561^301.31^22471.261^234226.871^150.21^230910.961^2977.91^17525.251^301.31^83329.541^380117.1031^20634.261^301.31^28902.301^286548.971^457808.1201^150.21^284324.1031^301.31
38 ;;RSUM^34200.341^301.31^48668.381^54788.421^392747.1111^150.21^47533.371^150.21^283061.1041^8757.151^66411.481^301.31^83329.541^442417.1111^20634.261^301.31^93422.531^324863.981^352673.1091^73109.491^522723.1271
39 ;;RSUM^150.21^452610.1131^150.21^4116.101
40 ;;RND^OCXOCMPJ^10/29/98 12:37
41 ;;RTN^OCXOCMPK^10/29/98 12:37
42 ;;RSUM^150.21^194.21^150.21^36006.331^150.21^8409.161^91131.491^136297.681^324392.981^150.21^426073.1111^399098.1081^479438.1171^150.21^214052.851^433479.1101^121602.591^150.21^23216.261^445481.1111^23135.261
43 ;;RSUM^436037.1101^66905.461^222974.821^150.21^9802.181^274893.891^642738.1421^519662.1281^4116.101^150.21^31733.311^150.21^4212.101^410513.1091^384100.1061^430042.1101^23563.261^150.21^7551.161^455142.1211
44 ;;RSUM^150.21^4116.101^150.21
45 ;;RND^OCXOCMPK^10/29/98 12:37
46 ;;RTN^OCXOCMPL^10/29/98 12:37
47 ;;RSUM^150.21^557.41^150.21^194.21^150.21^40248.341^150.21^403591.1051^150.21^102099.551^301.31^13336.211^134212.641^276049.911^301.31^12906.221^130849.651^276049.911^301.31^11933.201^272216.931^274977.911
48 ;;RSUM^150.21^47699.371^509817.1261^59499.441^168032.701^638009.1371^112634.591^871684.1591^1137546.1871^149581.701^12644.181^219625.831^123332.621^119602.621^60535.421^150.21^114237.581^377469.1071^69994.471
49 ;;RSUM^377561.1071^150.21^534487.1261^23839.271^253381.871^150.21^715424.1421^25783.281^265538.891^150.21^715400.1421^25789.281^265413.891^150.21^30866.301^210951.831^208550.841^77863.501^54253.411^21882.261
50 ;;RSUM^3686.101^333197.1031^55662.411^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^8462.171^1738.71^150.21^9901.171^150.21^7746.141^67772.471^353364.1071^7640.141^369135.1091
51 ;;RSUM^2618.81^150.21^21215.251^55195.451^21220.241^388453.1111^20114.271^84497.511^42630.381^3579.111^90928.521^47025.391^3523.111^327245.1031^7058.161^57706.431^3829.111^150.21^636.41^150.21^25190.311^9528.181
52 ;1;
53 ;
Note: See TracBrowser for help on using the repository browser.