OCXDI005 ;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 ^OCXDI006
;
Q
;
DATA ;
;
;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^150.21^89952.511^26105.261^150.21^7322.141^42908.361^1830.71^150.21^17298.231^24196.261^150.21^33897.311^150.21^51954.381^150.21
;;RSUM^25306.261^150.21^194.21^150.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^13653.201^150.21^14109.171^150.21^39768.351^61169.441^2617.81^10384.171^28029.281^28462.281
;;RSUM^79752.491^150.21^1964.71^150.21^150.21^146956.571^150.21^6609.141^14086.201^150.21
;;RND^OCXGENE^3/1/99 12:37
;;RTN^OCXLOG1^8/04/98 16:01
;;RSUM^150.21^324.31^150.21^139172.621^108082.541^31711.311^332151.1021^150.21^119955.551^150.21^214408.831^213940.821^162119.721^1457.71^9674.201^192820.771^8091.151^45418.391^1069642.1761^1279048.1881^16727.211
;;RSUM^20419.241^10702.211^741.51^202084.741^31570.301^75369.501^655088.1401^1050998.1721^1431326.1981^741.51^21484.281^1251984.1951^43679.381^97298.531^76258.471^69866.461^921440.1571^312839.1001^1081821.1721
;;RSUM^741.51^25820.271^741.51^72498.491^799103.1451^59147.421^58946.411^29196.301^741.51^6663.131^741.51^491990.1251^474932.1211^502922.1251^741.51^10911.181^47302.361^741.51^150.21^61179.411^150.21^150.21
;;RSUM^88002.541^119923.611^1105.61^74794.541^71752.471^301.31^14828.211^301.31^218757.841^9131.161^19659.241^66199.441^150739.671^125417.621^51895.381^157589.681^741.51^301.31^183576.781^12369.181^19659.241
;;RSUM^66199.441^65099.481^75906.521^53110.411^13966.191^125417.621^51895.381^157589.681^5546.121^150.21^7039.141^150.21^16467.231^188788.771^259268.831^151320.711^314304.991^273479.931^82285.441^301.31^194.21
;;RSUM^150.21^4727.121^19799.261^93152.551^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^37972.321^273654.921^10931.191^20114.271^84497.511^42630.381^3579.111^90907.521^47025.391^3523.111
;;RSUM^29732.291^73448.501^33586.331^150.21^22762.291^1432.61^118297.581^3727.101^150.21^5700.131^150.21^6496.131^16110.211^21497.261^76020.491^3591.101^26330.291^159531.711^194.21^150.21
;;RND^OCXLOG1^8/04/98 16:01
;;RTN^OCXOCMP^2/02/99 13:39
;;RSUM^150.21^557.41^150.21^2030.71^150.21^307129.921^13722.201^160239.601^200334.681^718.51^150.21^245657.741^110827.531^150.21^153328.591^118186.541^83317.461^63740.421^150.21^228424.711^178150.641^185459.661
;;RSUM^141097.601^909.51^150.21^16690.221^150.21^54290.401^150.21^181934.651^18546.231^467058.1041^7145.141^150.21^54326.401^150.21^113300.621^145046.681^83272.541^150.21^54362.401^150.21^93806.471^18546.231
;;RSUM^281589.811^7145.141^150.21^54398.401^150.21^178881.771^239163.881^224092.791^150.21^54434.401^150.21^86638.451^18546.231^303245.841^7145.141^150.21^54470.401^150.21^219234.851^199445.751^150.21^54506.401
;;RSUM^150.21^58802.381^18546.231^280332.811^7145.141^150.21^54542.401^150.21^369699.1121^170051.701^150.21^54578.401^150.21^65617.401^18546.231^326023.871^7145.141^150.21^56249.411^150.21^374691.1131^190620.731
;;RSUM^150.21^56323.411^150.21^97637.481^18546.231^244580.761^7145.141^150.21^56360.411^150.21^152325.711^320628.1031^230097.801^150.21^56397.411^150.21^56692.371^18546.231^223524.731^7145.141^150.21^56434.411
;;RSUM^150.21^153745.711^112985.591^150.21^56471.411^150.21^51420.351^18546.231^223540.731^7145.141^150.21^56508.411^150.21^153761.711^113051.591^136576.621^150.21^56545.411^150.21^39675.311^18546.231^223556.731
;;RSUM^7145.141^150.21^56582.411^150.21^153795.711^123295.621^99977.491^150.21^56285.411^150.21^7497.161^150.21^194.21^150.21^4857.121^20348.251^53002.391^194.21^150.21^6678.141^14046.191^20348.251^53002.391
;;RSUM^9177.151^194.21^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
;;RSUM^1452.61^150.21^87802.551^150.21^86865.561^150.21^150.21^21411.291^150.21
;;RND^OCXOCMP^2/02/99 13:39
;;RTN^OCXOCMP1^12/22/98 13:37
;;RSUM^150.21^1023.61^150.21^18003.221^230131.851^88085.491^88816.491^61953.441^69505.481^203313.801^68790.461^940673.1651^1134758.1771^645829.1391^1038985.1711^1417205.1971^32615.351^19958.271^1239168.1941
;1;
;
OCXDI005 ;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 ^OCXDI006
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^150.21^7064.151^15468.201^235438.701^157075.681^2628.81^39603.361^150.21^150.21^89952.511^26105.261^150.21^7322.141^42908.361^1830.71^150.21^17298.231^24196.261^150.21^33897.311^150.21^51954.381^150.21
+3 ;;RSUM^25306.261^150.21^194.21^150.21^150.21^2523.91^6727.131^14641.221^323976.1021^32323.341^120856.701^482.41^150.21^13653.201^150.21^14109.171^150.21^39768.351^61169.441^2617.81^10384.171^28029.281^28462.281
+4 ;;RSUM^79752.491^150.21^1964.71^150.21^150.21^146956.571^150.21^6609.141^14086.201^150.21
+5 ;;RND^OCXGENE^3/1/99 12:37
+6 ;;RTN^OCXLOG1^8/04/98 16:01
+7 ;;RSUM^150.21^324.31^150.21^139172.621^108082.541^31711.311^332151.1021^150.21^119955.551^150.21^214408.831^213940.821^162119.721^1457.71^9674.201^192820.771^8091.151^45418.391^1069642.1761^1279048.1881^16727.211
+8 ;;RSUM^20419.241^10702.211^741.51^202084.741^31570.301^75369.501^655088.1401^1050998.1721^1431326.1981^741.51^21484.281^1251984.1951^43679.381^97298.531^76258.471^69866.461^921440.1571^312839.1001^1081821.1721
+9 ;;RSUM^741.51^25820.271^741.51^72498.491^799103.1451^59147.421^58946.411^29196.301^741.51^6663.131^741.51^491990.1251^474932.1211^502922.1251^741.51^10911.181^47302.361^741.51^150.21^61179.411^150.21^150.21
+10 ;;RSUM^88002.541^119923.611^1105.61^74794.541^71752.471^301.31^14828.211^301.31^218757.841^9131.161^19659.241^66199.441^150739.671^125417.621^51895.381^157589.681^741.51^301.31^183576.781^12369.181^19659.241
+11 ;;RSUM^66199.441^65099.481^75906.521^53110.411^13966.191^125417.621^51895.381^157589.681^5546.121^150.21^7039.141^150.21^16467.231^188788.771^259268.831^151320.711^314304.991^273479.931^82285.441^301.31^194.21
+12 ;;RSUM^150.21^4727.121^19799.261^93152.551^150.21^8546.161^15380.221^417260.1091^150.21^21215.251^55195.451^37972.321^273654.921^10931.191^20114.271^84497.511^42630.381^3579.111^90907.521^47025.391^3523.111
+13 ;;RSUM^29732.291^73448.501^33586.331^150.21^22762.291^1432.61^118297.581^3727.101^150.21^5700.131^150.21^6496.131^16110.211^21497.261^76020.491^3591.101^26330.291^159531.711^194.21^150.21
+14 ;;RND^OCXLOG1^8/04/98 16:01
+15 ;;RTN^OCXOCMP^2/02/99 13:39
+16 ;;RSUM^150.21^557.41^150.21^2030.71^150.21^307129.921^13722.201^160239.601^200334.681^718.51^150.21^245657.741^110827.531^150.21^153328.591^118186.541^83317.461^63740.421^150.21^228424.711^178150.641^185459.661
+17 ;;RSUM^141097.601^909.51^150.21^16690.221^150.21^54290.401^150.21^181934.651^18546.231^467058.1041^7145.141^150.21^54326.401^150.21^113300.621^145046.681^83272.541^150.21^54362.401^150.21^93806.471^18546.231
+18 ;;RSUM^281589.811^7145.141^150.21^54398.401^150.21^178881.771^239163.881^224092.791^150.21^54434.401^150.21^86638.451^18546.231^303245.841^7145.141^150.21^54470.401^150.21^219234.851^199445.751^150.21^54506.401
+19 ;;RSUM^150.21^58802.381^18546.231^280332.811^7145.141^150.21^54542.401^150.21^369699.1121^170051.701^150.21^54578.401^150.21^65617.401^18546.231^326023.871^7145.141^150.21^56249.411^150.21^374691.1131^190620.731
+20 ;;RSUM^150.21^56323.411^150.21^97637.481^18546.231^244580.761^7145.141^150.21^56360.411^150.21^152325.711^320628.1031^230097.801^150.21^56397.411^150.21^56692.371^18546.231^223524.731^7145.141^150.21^56434.411
+21 ;;RSUM^150.21^153745.711^112985.591^150.21^56471.411^150.21^51420.351^18546.231^223540.731^7145.141^150.21^56508.411^150.21^153761.711^113051.591^136576.621^150.21^56545.411^150.21^39675.311^18546.231^223556.731
+22 ;;RSUM^7145.141^150.21^56582.411^150.21^153795.711^123295.621^99977.491^150.21^56285.411^150.21^7497.161^150.21^194.21^150.21^4857.121^20348.251^53002.391^194.21^150.21^6678.141^14046.191^20348.251^53002.391
+23 ;;RSUM^9177.151^194.21^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
+24 ;;RSUM^1452.61^150.21^87802.551^150.21^86865.561^150.21^150.21^21411.291^150.21
+25 ;;RND^OCXOCMP^2/02/99 13:39
+26 ;;RTN^OCXOCMP1^12/22/98 13:37
+27 ;;RSUM^150.21^1023.61^150.21^18003.221^230131.851^88085.491^88816.491^61953.441^69505.481^203313.801^68790.461^940673.1651^1134758.1771^645829.1391^1038985.1711^1417205.1971^32615.351^19958.271^1239168.1941
+28 ;1;
+29 ;