source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00D.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 4.5 KB
Line 
1OCXDI00D ;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 ^OCXDI00E
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;RSUM^84907.531^122872.651^34619.351^388453.1111^53697.431^36112.341^88090.541^54989.431^88090.541^34619.351^5135.141^34912.361^162406.771^17264.251^27085.311^122586.621^69656.491^20381.251^114133.541^194.21
21 ;;RSUM^790.51^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^194.21^150.21^35365.341^194.21^150.21^2017.81^150.21^2730.91^45263.401^11094.201^1452.61
22 ;;RSUM^150.21^1317.61^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^122183.551^87048.471^67524.431^127506.561^150.21^3838.101^478916.1131^39409.331^7497.161
23 ;;RSUM^150.21^12620.201^150.21^194.21^150.21^6801.141^8869.171^301.31^23964.251^27616.291^80054.531^23697.261^19830.281^19044.251^4575.131^141865.681^135604.601^318305.891^49144.411^60257.461^422361.1111
24 ;;RSUM^64478.431^17648.231^187278.681^66156.451^28793.301^10657.181^5121.121^4706.121^2521.81^150.21^194.21^150.21^87802.551^150.21^86865.561^150.21^2807.91^323976.1021^21988.281^194.21^150.21^3460.101^150.21
25 ;;RSUM^323976.1021^20870.281^194.21^150.21^5445.131^150.21^175870.681^3429.91^150.21^43001.371^71350.471^31428.301^10181.171^201444.771^58480.391^15144.221^150.21^4670.111^150.21^194.21^150.21^1277.61^150.21
26 ;;RSUM^146801.631^20614.241^12620.201^338598.1031^150.21^25369.221^150.21^92678.461^78904.421^150.21^10546.181^85171.501^150.21^184791.751^150.21^156740.631^150.21^3838.101^723864.1381^47296.361^7497.161
27 ;;RSUM^150.21^12620.201^150.21^24233.261^150.21^194.21^150.21
28 ;;RND^OCXOCMPV^2/02/99 16:06
29 ;;RTN^OCXOCMPZ^8/04/98 16:10
30 ;;RSUM^150.21^557.41^150.21^3628.101^53382.441^29928.311^58506.421^76904.481^60382.431^301.31^57648.431^14868.231^64756.451^301.31^43782.361^1105.61^876.61^12559.211^62206.441^65294.441^61723.441^151525.681
31 ;;RSUM^678.51^62206.441^65294.441^61723.441^63133.431^82315.491^65051.441^150.21^194.21^150.21^15664.221^150.21^1928.81^40781.381^35223.361^43885.381^194.21^150.21^8487.161^150.21^1928.81^50161.431^39025.391
32 ;;RSUM^20900.271^150.21
33 ;;RND^OCXOCMPZ^8/04/98 16:10
34 ;;RTN^OCXOCONV^10/29/98 12:37
35 ;;RSUM^150.21^557.41^150.21^60943.401^7119.141^150.21^305184.881^150.21^43282.371^141057.601^74357.481^267310.901^150.21^534593.1281^150.21^147461.591^158947.711^167947.641^229496.851^51858.381^8284.151^9575.161
36 ;;RSUM^13188.201^18181.231^9662.161^150.21^7570.161^468.41^6801.151^150.21^132278.591^328603.881^360303.921^122709.541^91673.521^123217.531^98631.551^10772.171^24829.271^40256.351^13512.191^23534.251^150.21
37 ;;RSUM^7570.161^468.41^6801.151^150.21^194.21^2593.91^12845.211^10306.171^32262.351^13201.211^7589.151^18323.241^18389.241^19684.251^30509.321^4189.111^88806.551^4906.121^116923.601^150.21^634.41^150.21^87802.551
38 ;;RSUM^150.21^93407.581^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
39 ;;RND^OCXOCONV^10/29/98 12:37
40 ;;RTN^OCXODGPM^4/30/99 15:03
41 ;;RSUM^150.21^150.21^194.21^8908.161^150.21^11918.171^27492.331^19228.241^10332.171^194.21^2897.91^150.21^19599.221^27492.331^4773.121^10332.171^81860.481^127853.621^15376.241^194.21^150.21^7691.151^150.21
42 ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^111175.551^150.21^17298.231^66917.431^150.21^102370.581^150.21^63787.431^150.21^25306.261^150.21^194.21^150.21^2523.91^6727.131
43 ;;RSUM^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^28931.301^150.21^14109.171^150.21^44703.381^24402.251^16913.251^23697.281^21523.271^20843.271^22123.271^678.51^150.21^61169.441^2617.81^10384.171
44 ;;RSUM^30763.311^28478.301^28823.301^29132.301^73662.491^150.21^1964.71^150.21^146956.571^150.21^6728.141^11843.181^194.21^150.21^7083.141^150.21^54295.431^150.21
45 ;;RND^OCXODGPM^4/30/99 15:03
46 ;;RTN^OCXODIC^10/29/98 12:37
47 ;;RSUM^150.21^557.41^194.21^150.21^150.21^103828.611^150.21^16628.221^150.21^17923.231^53063.411^150.21^16088.221^150.21
48 ;;RND^OCXODIC^10/29/98 12:37
49 ;;RTN^OCXODSP^10/29/98 12:37
50 ;;RSUM^150.21^150.21^324.31^150.21^150.21^557.41^150.21^27280.271^150.21^46457.381^4409.111^150.21^341950.1011^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^103052.521^165448.721
51 ;1;
52 ;
Note: See TracBrowser for help on using the repository browser.