| [613] | 1 | OCXDI00D ;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 | ;
|
|---|
| 5 | S ;
|
|---|
| 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 | ;
|
|---|
| 18 | DATA ;
|
|---|
| 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 | ;
|
|---|
