- OCXDI00D ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- S ;
- ;
- D DOT^OCXDIAG
- ;
- ;
- K REMOTE,LOCAL,OPCODE,REF
- F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
- .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
- ;
- G ^OCXDI00E
- ;
- Q
- ;
- DATA ;
- ;
- ;;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
- ;;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
- ;;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
- ;;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
- ;;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
- ;;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
- ;;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
- ;;RSUM^150.21^12620.201^150.21^24233.261^150.21^194.21^150.21
- ;;RND^OCXOCMPV^2/02/99 16:06
- ;;RTN^OCXOCMPZ^8/04/98 16:10
- ;;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
- ;;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
- ;;RSUM^20900.271^150.21
- ;;RND^OCXOCMPZ^8/04/98 16:10
- ;;RTN^OCXOCONV^10/29/98 12:37
- ;;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
- ;;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
- ;;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
- ;;RSUM^150.21^93407.581^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
- ;;RND^OCXOCONV^10/29/98 12:37
- ;;RTN^OCXODGPM^4/30/99 15:03
- ;;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
- ;;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
- ;;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
- ;;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
- ;;RND^OCXODGPM^4/30/99 15:03
- ;;RTN^OCXODIC^10/29/98 12:37
- ;;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
- ;;RND^OCXODIC^10/29/98 12:37
- ;;RTN^OCXODSP^10/29/98 12:37
- ;;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
- ;1;
- ;
- OCXDI00D ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- S ;
- +1 ;
- +2 DO DOT^OCXDIAG
- +3 ;
- +4 ;
- +5 KILL REMOTE,LOCAL,OPCODE,REF
- +6 FOR LINE=1:1:500
- SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)
- IF TEXT
- QUIT
- IF $LENGTH(TEXT)
- Begin DoDot:1
- +7 SET ^TMP("OCXDIAG",$JOB,$ORDER(^TMP("OCXDIAG",$JOB,"A"),-1)+1)=TEXT
- End DoDot:1
- IF QUIT
- QUIT
- +8 ;
- +9 GOTO ^OCXDI00E
- +10 ;
- +11 QUIT
- +12 ;
- DATA ;
- +1 ;
- +2 ;;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
- +3 ;;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
- +4 ;;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
- +5 ;;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
- +6 ;;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
- +7 ;;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
- +8 ;;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
- +9 ;;RSUM^150.21^12620.201^150.21^24233.261^150.21^194.21^150.21
- +10 ;;RND^OCXOCMPV^2/02/99 16:06
- +11 ;;RTN^OCXOCMPZ^8/04/98 16:10
- +12 ;;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
- +13 ;;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
- +14 ;;RSUM^20900.271^150.21
- +15 ;;RND^OCXOCMPZ^8/04/98 16:10
- +16 ;;RTN^OCXOCONV^10/29/98 12:37
- +17 ;;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
- +18 ;;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
- +19 ;;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
- +20 ;;RSUM^150.21^93407.581^150.21^24177.261^150.21^22378.251^17457.221^21542.241^150.21^194.21^150.21
- +21 ;;RND^OCXOCONV^10/29/98 12:37
- +22 ;;RTN^OCXODGPM^4/30/99 15:03
- +23 ;;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
- +24 ;;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
- +25 ;;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
- +26 ;;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
- +27 ;;RND^OCXODGPM^4/30/99 15:03
- +28 ;;RTN^OCXODIC^10/29/98 12:37
- +29 ;;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
- +30 ;;RND^OCXODIC^10/29/98 12:37
- +31 ;;RTN^OCXODSP^10/29/98 12:37
- +32 ;;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
- +33 ;1;
- +34 ;