OCXDI00I.m

OCXDI00I ;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 ^OCXDI00J

 ;

 Q

 ;

DATA ;

 ;

 ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671

 ;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 ;;RND^OCXOED14^10/29/98  12:37

 ;;RTN^OCXOED15^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41

 ;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311

 ;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 ;;RND^OCXOED15^10/29/98  12:37

 ;;RTN^OCXOED16^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21

 ;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21

 ;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311

 ;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311

 ;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 ;;RND^OCXOED16^10/29/98  12:37

 ;;RTN^OCXOEDT^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^1317.61^150.21

 ;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241

 ;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151

 ;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21

 ;;RND^OCXOEDT^10/29/98  12:37

 ;;RTN^OCXOEDT4^10/29/98  12:37

 ;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21

 ;;RND^OCXOEDT4^10/29/98  12:37

 ;;RTN^OCXOEDT5^10/29/98  12:37

 ;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21

 ;;RND^OCXOEDT5^10/29/98  12:37

 ;;RTN^OCXOEDT6^5/27/99  16:52

 ;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391

 ;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931

 ;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581

 ;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321

 ;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371

 ;1;

 ;

OCXDI00I  ;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 ^OCXDI00J

 +10      ;

 +11       QUIT 

 +12      ;

DATA      ;

 +1       ;

 +2       ;;RSUM^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671

 +3       ;;RSUM^150.21^15034.221^150.21^8860.171^150.21^12146.181^132847.671^150.21^88278.511^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 +4       ;;RND^OCXOED14^10/29/98  12:37

 +5       ;;RTN^OCXOED15^10/29/98  12:37

 +6       ;;RSUM^150.21^150.21^324.31^150.21^194.21^557.41^150.21^177662.741^150.21^194.21^150.21^6543.141^150.21^67879.421^296591.1021^150.21^8844.151^155045.631^165448.721^434.41^247605.891^434.41^293826.931^434.41

 +7       ;;RSUM^280930.931^434.41^285242.921^599.51^150.21^194.21^150.21^5364.131^106867.621^150.21^5644.131^150.21^399421.1061^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311

 +8       ;;RSUM^150.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 +9       ;;RND^OCXOED15^10/29/98  12:37

 +10      ;;RTN^OCXOED16^10/29/98  12:37

 +11      ;;RSUM^150.21^150.21^324.31^150.21^194.21^4741.121^150.21^150.21^67879.421^150.21^168101.701^150.21^482.41^150.21^2281.81^150.21^324713.991^150.21^194.21^150.21^2219.81^150.21^352422.1021^150.21^194.21^150.21

 +12      ;;RSUM^1203.61^150.21^371400.1051^150.21^194.21^150.21^1653.71^150.21^361901.1061^150.21^194.21^150.21^10655.171^150.21^17504.231^150.21^3269.91^599.51^83755.491^107075.591^8745.171^301148.871^32009.301^194.21

 +13      ;;RSUM^150.21^14418.211^342317.1081^65799.481^150.21^22510.261^8801.151^256208.951^187472.791^194.21^150.21^7506.151^150.21^32294.291^150.21^15081.211^150.21^140782.671^83304.521^33110.311^150.21^33701.311

 +14      ;;RSUM^57533.391^11108.191^7863.151^30831.311^30899.311^29883.321^1992.71^70433.471^646.41^150.21^24555.271^150.21^12146.181^29371.291^132847.671^150.21^15034.221^150.21^88278.511^150.21^3621.101^27666.311

 +15      ;;RSUM^59749.431^39855.351^38487.351^32907.321^12993.211^150.21

 +16      ;;RND^OCXOED16^10/29/98  12:37

 +17      ;;RTN^OCXOEDT^10/29/98  12:37

 +18      ;;RSUM^150.21^150.21^324.31^150.21^58723.391^150.21^150.21^46387.381^13890.201^150.21^194.21^150.21^79542.481^150.21^3621.101^27666.311^59749.431^39855.351^38487.351^32907.321^12993.211^150.21^1317.61^150.21

 +19      ;;RSUM^95844.561^33973.341^44297.391^534138.1321^44807.391^535953.1321^138135.681^56610.431^263875.951^59625.431^150.21^194.21^150.21^15034.221^150.21^79220.471^150.21^3988.101^17585.241^268842.801^17827.241

 +20      ;;RSUM^244047.891^185009.721^275830.811^249782.901^20984.261^62130.411^150.21^8685.161^150.21^64811.411^150.21^296591.1021^150.21^36008.311^150.21^128311.641^157079.761^150.21^111375.561^8890.161^8410.151

 +21      ;;RSUM^150.21^262561.791^150.21^45813.361^150.21^276495.901^706863.1351^150.21^28387.291^150.21

 +22      ;;RND^OCXOEDT^10/29/98  12:37

 +23      ;;RTN^OCXOEDT4^10/29/98  12:37

 +24      ;;RSUM^150.21^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^149900.721^150.21^291830.991^150.21

 +25      ;;RND^OCXOEDT4^10/29/98  12:37

 +26      ;;RTN^OCXOEDT5^10/29/98  12:37

 +27      ;;RSUM^150.21^324.31^150.21^29206.291^150.21^31930.341^150.21^194.21^150.21^255078.931^150.21^180791.791^150.21^51038.421^150.21^23115.301^150.21^19049.251^150.21

 +28      ;;RND^OCXOEDT5^10/29/98  12:37

 +29      ;;RTN^OCXOEDT6^5/27/99  16:52

 +30      ;;RSUM^150.21^324.31^150.21^117996.581^150.21^46387.381^150.21^111823.601^7440.141^150.21^194.21^150.21^371384.1091^150.21^881.51^12434.191^155196.591^194628.671^476.41^194.21^150.21^1321.61^8525.151^64472.391

 +31      ;;RSUM^190646.791^105543.591^13100.191^8969.161^297950.821^434.41^194.21^150.21^5301.131^150.21^3772.111^150.21^110617.551^150.21^9587.161^301.31^24366.271^301.31^42943.381^37478.351^107052.581^333443.931

 +32      ;;RSUM^45435.371^448095.1101^301.31^92005.521^301.31^678.51^268461.941^240608.881^112283.651^109132.591^301.31^5079.111^301.31^147007.661^301.31^50220.421^1083415.1841^28920.291^301.31^48879.401^105582.581

 +33      ;;RSUM^6101.131^150.21^6885.141^150.21^14873.211^150.21^150.21^10520.171^21500.271^46941.441^47443.391^1887.71^6526.151^150.21^5344.131^150.21^29460.291^11584.181^27226.291^150.21^38109.351^150.21^28645.321

 +34      ;;RSUM^88003.541^12634.181^52026.421^32786.321^33787.311^12837.201^8761.161^56671.391^35804.341^150.21^17982.241^56416.431^12299.211^24080.261^42874.391^102672.591^130529.661^25024.291^8484.151^41179.371

 +35      ;1;

 +36      ;