Laddawn.com : Programming Doc - MOD Config Array from Pricing

Created by Judy Ascensao on Nov 08, 2013

PASS THE FOLLOWING DATA OUT OF THE MOD PRICING ROUTINE (for creation of "MOD" configuration records or calculating a price to be returned to the web results/recalc price). Note: Anything not in this list s/b in COMMON Variables (NAMED.PARAMS). A back-end program (ie, Get MOD Info Wrapper Pgm for Results area or Program that creates quote/config, etc) will call the MOD Pricing pgm … it will never be called directly from the web.
Data s/b passed via an array from the program argument list, since the MOD pricing program will only be called from another basic program. Therefore, the MOD pricing program does not need to return anything in RETURN.VALUE. The calling program will be the one that interfaces directly with the web and will pass info back via return.value.
Any program calling the MOD Pricing Pgm will get its info from the array returned in the argument list (outlined below).

  1. Pricing Unit of Measure ('M' for bags, furn, perforated sheets. 'RL' for continuous sheeting and tubing)
  2. Quote Adj Pct
  3. Preferred Resin Price?
  4. Mfg Facility (Set to Sterling, Texas, Iowa, Reno, Atlanta based on whs#)
  5. Warehouse Nbr
  6. Exclude LLDPE?
  7. Operation Table Name
  8. Minimum Lbs
  9. Yield per 1000 Bags
  10. Minimum Nbr of Bags (or Rolls)
  11. Case/Roll Weight
  12. Roll LengthxGauge
  13. Box Table Name
  14. Cubic Inches
  15. Full Gauge? If SHOP.FULLGAUGE = 1 THEN PASS 'Y'
  16. Nbr of Cases or Rolls
  17. Order Total Pounds
  18. Film Only?
  19. Operation#1 (Primary Work Center)
  20. Operation#2 (Alternate Work Center)
  21. Premix?
  22. Resin Table Row Nbr
  23. Resin Type (Heat Profile)
  24. Feet Per Roll/Case
  25. Final Lbs per Hour-Operation#1
  26. Final Lbs per Hour-Operation#2
  27. Final Cycles per Minute-Operation#1
  28. Final Cycles per Minute-Operation#2
  29. Final Feet per Minute-Operation#1
  30. Final Feet per Minute-Operation#2
  31. Operation Rate[Lbs/Hour]
  32. Operation Time Reqd[Hrs/M]
  33. Color Indicator (should be "NONE" or a color from list)
  34. Color Concentrate % Reqd
  35. Color Concentrate Item Nbr
  36. Color Concentrate $/LB
  37. Color Concentrate Lbs
  38. Box1 Item Nbr
  39. Box1 Total Qty Reqd
  40. Box2 Item Nbr
  41. Box2 Total Qty Reqd
  42. Box Core Item Nbr
  43. Box Core Qty
  44. Box Core Plug Item Nbr
  45. Box Core Plug Qty
  46. Package Weight
  47. Low Weight (10%) Tolerance
  48. Low Weight (4%) Tolerance
  49. Target Wgt
  50. High Weight (10%) Tolerance
  51. High Weight (4%) Tolerance
  52. BOR Add'l Pkg Wgt
  53. Hexene Pct Reqd (Note: all resin % s/b after all reductions are applied)
  54. Hexene Item Nbr
  55. Hexene $/LB
  56. Hexene Lbs
  57. Octene Pct Reqd
  58. Octene Item Nbr
  59. Octene $/LB
  60. Octene Lbs
  61. Liner Pct Reqd
  62. Liner Item Nbr
  63. Liner $/LB
  64. Liner Lbs
  65. Repro Pct Reqd
  66. Repro Item Nbr
  67. Repro $/LB
  68. Repro Lbs
  69. AmineFree Pink Pct Reqd
  70. AmineFree Pink Item Nbr
  71. AmineFree Pink $/LB
  72. AmineFree Pink Lbs
  73. AntiStat Pct Reqd
  74. AntiStat Item Nbr
  75. AntiStat $/LB
  76. AntiStat Lbs
  77. Slip Pct Reqd
  78. Slip Item Nbr
  79. Slip $/LB
  80. Slip Lbs
  81. Clarity Pct Reqd
  82. Clarity Item Nbr
  83. Clarity $/LB
  84. Clarity Lbs
  85. Bareback Pct Reqd
  86. Bareback Item Nbr
  87. Bareback $/LB
  88. Bareback Lbs
  89. Bareback LowDenPct Reqd
  90. Bareback LowDen Item Nbr
  91. Bareback LowDen $/LB
  92. Bareback LowDen Lbs
  93. Anti-Block Pct Reqd
  94. Anti-Block Item Nbr
  95. Anti-Block $/LB
  96. Anti-Block Lbs
  97. VCI Clear Pct Reqd
  98. VCI Clear Item Nbr
  99. VCI Clear $/LB
  100. VCI Clear Lbs
  101. VCI Blue Pct Reqd
  102. VCI Blue Item Nbr
  103. VCI Blue $/LB
  104. VCI Blue Lbs
  105. Slipblock Pct Reqd
  106. Slipblock Item Nbr
  107. Slipblock $/LB
  108. Slipblock Lbs
  109. Metallocene Pct Reqd: from SHOP.METALPCT but must be returned as MD3 (ie .150)
  110. Metallocene Item Nbr
  111. Metallocene $/LB
  112. Metallocene Lbs
  113. UVI/UVA Pct Reqd: from SHOP.UVIPCT but must be returned as MD3 (.025)
  114. UVI/UVA Item Nbr
  115. UVI/UVA $/LB
  116. UVI/UVA Lbs
  117. Print Ink Item Nbr
  118. Print Ink Qty
  119. Quote Qty Non-Material Discount%
  120. Work Center Backlog Days
  121. Non-Material $/LB
  122. Total Non-Material $$
  123. Total Material $$
  124. Color Upcharge $$
  125. Price Class Upcharge $$
  126. Full Gauge Upcharge $$
  127. Order Wgt w/Pkg and Skids
  128. Order Wgt w/Pkg
  129. Nbr of Pallets
  130. Total Shipping $$
  131. Venting Upcharge $$
  132. Folded Bag Upcharge $$
  133. Quote Unit Price (MD4)
  134. Poly Lining Upcharge $$
  135. BOR Boxing Upcharge $$
  136. Total Misc $$
  137. Quote Adjustment $/LB
  138. Printing Upcharge $$
  139. Total Extended Price
  140. Std Break1 Quantity
  141. Std Break1 Non-Material Disc%
  142. Std Break1 Total Price
  143. Std Break1 Unit Price
  144. Std Break2 Quantity
  145. Std Break2 Non-Material Disc%
  146. Std Breal2 Total Price
  147. Std Break2 Unit Price
  148. Std Break3 Quantity
  149. Std Break3 Non-Material Disc%
  150. Std Break3 Total Price
  151. Std Break3 Unit Price
  152. Custom Break1 Quantity
  153. Custom Break1 Non-Material Disc%
  154. Custom Break1 Total Price
  155. Custom Break1 Unit Price
  156. Custom Break2 Quantity
  157. Custom Break2 Non-Material Disc%
  158. Custom Break2 Total Price
  159. Custom Break2 Unit Price
  160. Custom Break3 Quantity
  161. Custom Break3 Non-Material Disc%
  162. Custom Break3 Total Price
  163. Custom Break3 Unit Price
  164. Easy Open? IF ANTIBLOCK=Y, SET THIS TO Y
  165. True Gauge
  166. Print Area – calculate and pass:
    1. If Printed and (Width-Depth = 0 OR Width-Depth > 9.00): "Center"
    2. If Printed and Width-Depth > 0 < 9.00: "Gusset"
  167. Bags on a Roll
    1. If Index(SHOP.PKG,"Roll",1) then pass back "Y"
  168. Packaging Uom:
    1. If 'Bags on a Roll' = Y, pass "RL" else pass "CS"
  169. Construction: BOTTOMSEAL or SIDEWELD
  170. Bubble Size
  171. Cradlepacked? Set to Y if INDEX on SHOP.PKG has 'Cradle' in it
  172. Folded Width:
    1. Bags: If fold bag in half=Y, Width / 2, else Null
    2. Furn Bags: If fold bag in half=Y, Length / 2, else Null
    3. All other items: Null
  173. Packaging Options: Set to what is after the comma in SHOP.PKG (ie, Poly Lined, Boxed, Cradlepacked. Could also be null if selected Cases (without poly lining).
  174. Catalog Code Description: from CATALOG.CD.USR<1> using PROD.TYPE
  175. NEPB Customer? If price class (CUSTMST<12>) # "01" then set this to "Y"
  176. Low Width Tolerance – see MOD Pricing functional spec #25 (in purple)
  177. Target Width Tolerance – pass Width+Depth
  178. High Width Tolerance – see MOD Pricing functional spec #26 (in purple)
  179. Low Length Tolerance – see MOD Pricing functional spec #27 (in purple)
  180. High Length Tolerance – see MOD Pricing functional spec #28 (in purple)
  181. Bag Size Delimiter for item description: Pass 'x' (lower case)
  182. Marketplace? – pass "Y" if this is a marketplace zip top quote If SHOP.RULESET=201,205 or 207 THEN PASS 'Y'
  183. Import? – pass "Y" if this is a marketplace import quote (pass null if marketplace domestic quote)
  184. Hang Hole? – pass "Y" if hang hole category was selected for this marketplace order (SHOP.RULESET=207)
  185. Ziptop Unit Cost – pass marketplace unit cost (MD3)
  186. Ziptop Zipper Price – pass marketplace zipper price (MD3)
  187. Ziptop Hang Hole Price – pass marketplace hang hole price (MD3)
  188. IF SHOP.ANTIBLOCK=1 THEN PASS 'Y'
  189. SLEEVES? IF SHOP.RULESET=303 OR 304 THEN PASS 'Y'
  190. IF SHOP.PRINTED=1 THEN PASS 'Y'
  191. IF SHOP.UVI=1 THEN PASS 'Y'
  192. IF SHOP.METALLOCENE=1 THEN PASS 'Y'
  193. IF SHOP.HIGHSLIP=1 THEN PASS 'Y'
  194. IF SHOP.VENTED=1 THEN PASS 'Y'
  195. If SHOP.MTO=1 THEN PASS 'Y' ELSE PASS 'N' *** I NEED SOMETHING IN THIS FIELD