OCXDI00D.m

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      ;