OCXDI00B ;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 ^OCXDI00C
;
Q
;
DATA ;
;
;;RSUM^150.21^26687.321^5922.141^150.21^622.41^150.21
;;RND^OCXOCMPL^10/29/98 12:37
;;RTN^OCXOCMPM^10/29/98 12:37
;;RSUM^150.21^1023.61^150.21^8409.161^76625.501^217276.821^105222.541^18474.241^301.31^30722.341^301.31^65113.461^54875.421^499327.1211^298864.941^1015915.1711^1265171.1871^301.31^526689.1191^24179.281^670984.1461
;;RSUM^301.31^51873.421^301.31^15163.211^498.41^60113.451^498.41^29892.291^498.41^109310.601^12133.181^11999.201^164930.711^83926.511^86341.511^149336.671^498.41^498.41^51684.401^498.41^117661.611^167139.721
;;RSUM^24022.261^73068.471^381221.1081^849092.1651^225596.851^1030.61^86272.491^1030.61^12614.201^180723.711^143183.641^1365.71^69371.471^320659.971^262722.921^429106.1121^748238.1481^1365.71^192542.751^671867.1391
;;RSUM^132359.641^910547.1611^1179974.1891^171481.751^19644.231^246410.881^143607.671^139457.671^75375.471^1746.81^55481.401^19379.271^498.41^75692.461^498.41^231643.861^118181.621^373602.1071^1751.81^14207.211
;;RSUM^2114.91^116893.511^92865.581^152588.741^111423.581^826841.1661^160606.711^193250.801^111790.591^498.41^99581.541^498.41^643395.1411^498.41^62382.461^255394.901^57957.441^301.31^85430.481^301.31^29550.291
;;RSUM^373390.1091^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
;;RSUM^498.41^22234.251^498.41^93268.551^100589.541^43118.371^231446.851^46020.381^111789.601^41739.351^110403.581^20615.251^301.31^27506.281^301.31^36418.321^301.31^19090.241^18973.231^89950.541^28126.291
;;RSUM^52782.401^252101.871^11209.201^44007.411^89950.541^3057.91^21623.251^13558.201^24866.271^77891.481^150.21^4116.101^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^150.21
;;RSUM^8462.171^1738.71^150.21^14613.211^150.21^38391.331^73000.501^105690.571^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241^88173.501^194.21^150.21
;;RND^OCXOCMPM^10/29/98 12:37
;;RTN^OCXOCMPN^10/29/98 12:37
;;RSUM^150.21^7167.151^150.21^15894.211^150.21^86285.531^50476.421^65134.471^186776.791^150.21^10934.201^86285.531^42403.381^123015.631^272735.931^150.21^110447.601^54937.421^251263.911^748354.1571^782291.1601
;;RSUM^223906.851^177431.771^72125.471^163083.701^9648.171^150.21^194.21^150.21^7186.151^150.21^3191.91^19209.261^36535.341^5049.121^14947.211^194.21^150.21
;;RND^OCXOCMPN^10/29/98 12:37
;;RTN^OCXOCMPO^2/02/99 12:58
;;RSUM^150.21^1023.61^150.21^28702.281^150.21^186055.771^301.31^30722.341^301.31^58556.431^4712.121^80067.511^40026.371^66344.481^484665.1301^64343.441^61987.431^61578.431^14826.211^10549.191^520848.1271
;;RSUM^28734.321^55677.431^285874.881^301.31^6877.141^206421.871^45056.381^24944.261^567433.1251^76275.511^45167.411^130444.651^426030.1231^85094.541^16209.221^301.31^70008.451^301.31^5134.121^150.21^65849.361
;;RSUM^150.21^16411.201^150.21^220302.841^24378.261^93928.531^18794.261^71323.501^80067.511^43211.371^37639.371^58675.471^141167.671^17114.221^50383.391^70008.451^150.21^482.41^150.21^14613.211^150.21^38391.331
;;RSUM^73000.501^112450.591^194.21^150.21
;;RND^OCXOCMPO^2/02/99 12:58
;;RTN^OCXOCMPP^10/29/98 12:37
;;RSUM^150.21^557.41^150.21^28737.301^150.21^53268.441^28140.311^72549.521^46725.411^45878.411^68093.471^150.21^65104.451^308626.1041^150.21^197187.811^150.21^209685.871^225672.881^225672.881^252519.941^89744.551
;;RSUM^130042.671^130034.671^150.21^194.21^150.21
;;RND^OCXOCMPP^10/29/98 12:37
;;RTN^OCXOCMPQ^10/29/98 12:37
;;RSUM^150.21^150.21^13975.211^150.21^1930.71^3074.101^4514.121^10704.171^289863.971^1105.61^89999.581^267707.981^115088.621^5218.131^10704.171^76115.511^62384.481^217222.881^82558.541^1936.71^150.21^3963.111
;;RSUM^1903.71^375584.1151^646.41^150.21^9483.181^150.21^18721.231^185019.771^35295.321^79457.501^10199.201^63230.481^277457.1001^71236.511^32587.321^1027.61^74739.491^362619.1051^301.31^40049.361^2382.81
;;RSUM^32266.291^498.41^382713.1121^471939.1261^160734.721^25723.281^140365.661^31442.321^47925.401^43657.381^67991.481^122441.621^10894.191^85369.531^113288.621^119065.641^150.21^1439.61^1922.81^150.21^8640.161
;1;
;
OCXDI00B ;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 ^OCXDI00C
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;RSUM^150.21^26687.321^5922.141^150.21^622.41^150.21
+3 ;;RND^OCXOCMPL^10/29/98 12:37
+4 ;;RTN^OCXOCMPM^10/29/98 12:37
+5 ;;RSUM^150.21^1023.61^150.21^8409.161^76625.501^217276.821^105222.541^18474.241^301.31^30722.341^301.31^65113.461^54875.421^499327.1211^298864.941^1015915.1711^1265171.1871^301.31^526689.1191^24179.281^670984.1461
+6 ;;RSUM^301.31^51873.421^301.31^15163.211^498.41^60113.451^498.41^29892.291^498.41^109310.601^12133.181^11999.201^164930.711^83926.511^86341.511^149336.671^498.41^498.41^51684.401^498.41^117661.611^167139.721
+7 ;;RSUM^24022.261^73068.471^381221.1081^849092.1651^225596.851^1030.61^86272.491^1030.61^12614.201^180723.711^143183.641^1365.71^69371.471^320659.971^262722.921^429106.1121^748238.1481^1365.71^192542.751^671867.1391
+8 ;;RSUM^132359.641^910547.1611^1179974.1891^171481.751^19644.231^246410.881^143607.671^139457.671^75375.471^1746.81^55481.401^19379.271^498.41^75692.461^498.41^231643.861^118181.621^373602.1071^1751.81^14207.211
+9 ;;RSUM^2114.91^116893.511^92865.581^152588.741^111423.581^826841.1661^160606.711^193250.801^111790.591^498.41^99581.541^498.41^643395.1411^498.41^62382.461^255394.901^57957.441^301.31^85430.481^301.31^29550.291
+10 ;;RSUM^373390.1091^36102.321^26847.281^405291.1171^100029.581^38406.331^48387.371^51679.421^77249.511^540744.1251^382167.1081^402092.1111^850966.1651^646733.1371^131267.671^447678.1191^325549.1021^26992.281
+11 ;;RSUM^498.41^22234.251^498.41^93268.551^100589.541^43118.371^231446.851^46020.381^111789.601^41739.351^110403.581^20615.251^301.31^27506.281^301.31^36418.321^301.31^19090.241^18973.231^89950.541^28126.291
+12 ;;RSUM^52782.401^252101.871^11209.201^44007.411^89950.541^3057.91^21623.251^13558.201^24866.271^77891.481^150.21^4116.101^150.21^10648.181^150.21^17568.221^94133.571^30858.311^238593.901^255317.931^150.21
+13 ;;RSUM^8462.171^1738.71^150.21^14613.211^150.21^38391.331^73000.501^105690.571^194.21^150.21^28796.291^150.21^3345.91^6278.141^6202.131^80289.491^16272.211^33066.341^20766.241^88173.501^194.21^150.21
+14 ;;RND^OCXOCMPM^10/29/98 12:37
+15 ;;RTN^OCXOCMPN^10/29/98 12:37
+16 ;;RSUM^150.21^7167.151^150.21^15894.211^150.21^86285.531^50476.421^65134.471^186776.791^150.21^10934.201^86285.531^42403.381^123015.631^272735.931^150.21^110447.601^54937.421^251263.911^748354.1571^782291.1601
+17 ;;RSUM^223906.851^177431.771^72125.471^163083.701^9648.171^150.21^194.21^150.21^7186.151^150.21^3191.91^19209.261^36535.341^5049.121^14947.211^194.21^150.21
+18 ;;RND^OCXOCMPN^10/29/98 12:37
+19 ;;RTN^OCXOCMPO^2/02/99 12:58
+20 ;;RSUM^150.21^1023.61^150.21^28702.281^150.21^186055.771^301.31^30722.341^301.31^58556.431^4712.121^80067.511^40026.371^66344.481^484665.1301^64343.441^61987.431^61578.431^14826.211^10549.191^520848.1271
+21 ;;RSUM^28734.321^55677.431^285874.881^301.31^6877.141^206421.871^45056.381^24944.261^567433.1251^76275.511^45167.411^130444.651^426030.1231^85094.541^16209.221^301.31^70008.451^301.31^5134.121^150.21^65849.361
+22 ;;RSUM^150.21^16411.201^150.21^220302.841^24378.261^93928.531^18794.261^71323.501^80067.511^43211.371^37639.371^58675.471^141167.671^17114.221^50383.391^70008.451^150.21^482.41^150.21^14613.211^150.21^38391.331
+23 ;;RSUM^73000.501^112450.591^194.21^150.21
+24 ;;RND^OCXOCMPO^2/02/99 12:58
+25 ;;RTN^OCXOCMPP^10/29/98 12:37
+26 ;;RSUM^150.21^557.41^150.21^28737.301^150.21^53268.441^28140.311^72549.521^46725.411^45878.411^68093.471^150.21^65104.451^308626.1041^150.21^197187.811^150.21^209685.871^225672.881^225672.881^252519.941^89744.551
+27 ;;RSUM^130042.671^130034.671^150.21^194.21^150.21
+28 ;;RND^OCXOCMPP^10/29/98 12:37
+29 ;;RTN^OCXOCMPQ^10/29/98 12:37
+30 ;;RSUM^150.21^150.21^13975.211^150.21^1930.71^3074.101^4514.121^10704.171^289863.971^1105.61^89999.581^267707.981^115088.621^5218.131^10704.171^76115.511^62384.481^217222.881^82558.541^1936.71^150.21^3963.111
+31 ;;RSUM^1903.71^375584.1151^646.41^150.21^9483.181^150.21^18721.231^185019.771^35295.321^79457.501^10199.201^63230.481^277457.1001^71236.511^32587.321^1027.61^74739.491^362619.1051^301.31^40049.361^2382.81
+32 ;;RSUM^32266.291^498.41^382713.1121^471939.1261^160734.721^25723.281^140365.661^31442.321^47925.401^43657.381^67991.481^122441.621^10894.191^85369.531^113288.621^119065.641^150.21^1439.61^1922.81^150.21^8640.161
+33 ;1;
+34 ;