API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 23rd, 2019
119
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.14 KB | None | 0 0
raw download clone embed print report
  1. SET UPDATECALC OFF ;
  2. SET AGGMISSG ON ;
  3. SET CREATEBLOCKONEQ ON;
  4. SET CREATENONMISSINGBLK ON;
  5. FIX(@CHILDREN("Restructred_Positions_Heirarachy"),{WBS_Page})
  6. FIX ( &Forecast_Year, TSK_Default, Geog_Default, SubType_Default, Funds_Default, Future_Default, Units)
  7.  
  8. FIX ( Forecast, Draft1, BPY_Default, Extra_HR,&restructure_start_month)
  9.  
  10. Acc_DATE4= @Round(( "Acc_Position_Actions_Effective_Date")/100);/* Date converted to string */
  11.  
  12. Acc_date4=@REMAINDER(Acc_date4/100);/* Getting month */
  13.  
  14. Acc_date4=(Acc_date4*100);
  15.  
  16. Acc_date4=@Round(Acc_date4);
  17.  
  18.  
  19. Acc_date2= @Round((( "Acc_Position_Actions_Effective_Date")/10000));/* Date converted to string */
  20.  
  21. Acc_date2=@Round(Acc_date2);
  22.  
  23.  
  24.  
  25.  
  26.  
  27. /*Getting Month out of date eg:1,2,3,4...*/
  28.  
  29. Acc_Date1= @Round(( "Acc_Position_Planned_End_Date")/100);/* Date converted to string */
  30.  
  31. Acc_Date1=@REMAINDER(Acc_Date1/100);/* Getting month */
  32.  
  33. Acc_Date1=(Acc_Date1*100);
  34.  
  35. Acc_Date1=@Round(Acc_date1);
  36.  
  37.  
  38. Acc_Date3= @Round(( "Acc_Position_Planned_End_Date")/10000);/* Date converted to string */
  39.  
  40. Acc_Date3=@Round(Acc_date3);
  41.  
  42.  
  43.  
  44.  
  45. ENDFIX;
  46. ENDFIX;
  47. ENDFIX;
  48.  
  49. FIX(@CHILDREN("Restructred_Positions_Heirarachy"),{WBS_Page},&Forecast_Year, TSK_Default, Geog_Default, SubType_Default, Funds_Default, Future_Default, Units,Forecast, Draft1, Extra_HR, Acc_date4,Acc_date1,Acc_date2,Acc_date3,Acc_default,&restructure_start_month )
  50.  
  51.  
  52. DATACOPY BPY_Default TO &OGP_BPY;
  53.  
  54. ENDFIX
  55.  
  56. FIX(@CHILDREN("Restructred_Positions_Heirarachy"),{WBS_Page},&Forecast_Year, TSK_Default,
  57. Geog_Default, SubType_Default,&OGP_BPY,Funds_Default, Future_Default,Forecast, Draft1, Extra_HR,Units,Jan:Dec)
  58.  
  59.  
  60.  
  61. Acc_Position_Cost =#missing;
  62. Acc_date4
  63. (If ((Acc_date4->&restructure_start_month == 1 ) AND ( @ismbr(@IRSIBLINGS(jan))))
  64. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  65.  
  66. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  67.  
  68. Elseif (Acc_date1->&restructure_start_month == 1 AND @ismbr(Jan) )
  69.  
  70. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  71.  
  72. Elseif (Acc_date1->&restructure_start_month == 2 AND (@ismbr(@ILSIBLINGS(Feb))))
  73.  
  74. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  75.  
  76. Elseif (Acc_date1->&restructure_start_month == 3 AND (@ismbr(@ILSIBLINGS(Mar))))
  77.  
  78. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  79.  
  80. Elseif (Acc_date1->&restructure_start_month == 4 AND (@ismbr(@ILSIBLINGS(Apr))))
  81.  
  82. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  83.  
  84. Elseif (Acc_date1->&restructure_start_month == 5 AND (@ismbr(@ILSIBLINGS(May))))
  85.  
  86. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  87.  
  88. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@ILSIBLINGS(Jun))))
  89.  
  90. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  91.  
  92. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@ILSIBLINGS(Jul))))
  93.  
  94. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  95.  
  96. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@ILSIBLINGS(Aug))))
  97.  
  98. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  99.  
  100. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@ILSIBLINGS(Sep))))
  101.  
  102. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  103.  
  104. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@ILSIBLINGS(Oct))))
  105.  
  106. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  107.  
  108. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@ILSIBLINGS(Nov))))
  109. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  110.  
  111. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@ILSIBLINGS(Dec))))
  112. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  113.  
  114.  
  115.  
  116. Endif
  117.  
  118.  
  119. elseif((Acc_date4->&restructure_start_month == 2 ) AND (@ismbr(@IRSIBLINGS(feb))))
  120.  
  121.  
  122. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  123.  
  124. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  125.  
  126. Elseif (Acc_date1->&restructure_start_month == 2 AND (@ismbr(@remove(@ILSIBLINGS(feb),@List(Jan)))))
  127.  
  128. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  129.  
  130. Elseif (Acc_date1->&restructure_start_month == 3 AND (@ismbr(@remove(@ILSIBLINGS(Mar),@List(Jan)))))
  131. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  132.  
  133. Elseif (Acc_date1->&restructure_start_month == 4 AND (@ismbr(@remove(@ILSIBLINGS(Apr),@List(Jan)))))
  134. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  135.  
  136. Elseif (Acc_date1->&restructure_start_month == 5 AND (@ismbr(@remove(@ILSIBLINGS(May),@List(Jan)))))
  137. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  138.  
  139. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@remove(@ILSIBLINGS(Jun),@List(Jan)))))
  140. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  141.  
  142. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan)))))
  143. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  144.  
  145. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan)))))
  146. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  147.  
  148. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan)))))
  149. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  150.  
  151. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan)))))
  152.  
  153. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  154.  
  155. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan)))))
  156. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  157.  
  158. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan)))))
  159. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  160.  
  161.  
  162.  
  163.  
  164.  
  165. Endif
  166.  
  167.  
  168. elseif((Acc_date4->&restructure_start_month == 3 ) AND (@ismbr(@IRSIBLINGS(mar))))
  169.  
  170. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  171.  
  172. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  173.  
  174.  
  175. Elseif (Acc_date1->&restructure_start_month == 3 AND (@ismbr(@remove(@ILSIBLINGS(Mar),@List(Jan,Feb)))))
  176. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  177.  
  178. Elseif (Acc_date1->&restructure_start_month == 4 AND (@ismbr(@remove(@ILSIBLINGS(Apr),@List(Jan,Feb)))))
  179. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  180.  
  181. Elseif (Acc_date1->&restructure_start_month == 5 AND (@ismbr(@remove(@ILSIBLINGS(May),@List(Jan,Feb)))))
  182. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  183.  
  184. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@remove(@ILSIBLINGS(Jun),@List(Jan,Feb)))))
  185. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  186.  
  187. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan,Feb)))))
  188. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  189.  
  190. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb)))))
  191. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  192.  
  193. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb)))))
  194. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  195.  
  196. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb)))))
  197.  
  198. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  199.  
  200. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb)))))
  201. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  202.  
  203. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb)))))
  204. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  205.  
  206.  
  207.  
  208.  
  209.  
  210. Endif
  211.  
  212.  
  213. elseif((Acc_date4->&restructure_start_month == 4 ) AND (@ismbr(@IRSIBLINGS(Apr))))
  214.  
  215. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  216.  
  217. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  218.  
  219.  
  220. Elseif (Acc_date1->&restructure_start_month == 4 AND (@ismbr(@remove(@ILSIBLINGS(Apr),@List(Jan,Feb,Mar)))))
  221. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  222.  
  223. Elseif (Acc_date1->&restructure_start_month == 5 AND (@ismbr(@remove(@ILSIBLINGS(May),@List(Jan,Feb,Mar)))))
  224. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  225.  
  226. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@remove(@ILSIBLINGS(Jun),@List(Jan,Feb,Mar)))))
  227. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  228.  
  229. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan,Feb,Mar)))))
  230. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  231.  
  232. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb,Mar)))))
  233. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  234.  
  235. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar)))))
  236. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  237.  
  238. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar)))))
  239.  
  240. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  241.  
  242. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar)))))
  243. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  244.  
  245. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar)))))
  246. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  247.  
  248.  
  249.  
  250.  
  251.  
  252. Endif
  253.  
  254.  
  255. elseif((Acc_date4->&restructure_start_month == 5 ) AND (@ismbr(@IRSIBLINGS(May))))
  256.  
  257.  
  258. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  259.  
  260. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  261.  
  262.  
  263. Elseif (Acc_date1->&restructure_start_month == 5 AND (@ismbr(@remove(@ILSIBLINGS(May),@List(Jan,Feb,Mar,Apr)))))
  264. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  265.  
  266. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@remove(@ILSIBLINGS(Jun),@List(Jan,Feb,Mar,Apr)))))
  267. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  268.  
  269. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan,Feb,Mar,Apr)))))
  270. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  271.  
  272. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb,Mar,Apr)))))
  273. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  274.  
  275. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar,Apr)))))
  276. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  277.  
  278. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr)))))
  279.  
  280. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  281.  
  282. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr)))))
  283. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  284.  
  285. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr)))))
  286. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  287.  
  288.  
  289.  
  290.  
  291.  
  292. Endif
  293.  
  294.  
  295. elseif((Acc_date4->&restructure_start_month == 6 ) AND (@ismbr(@IRSIBLINGS(Jun))))
  296.  
  297.  
  298. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  299.  
  300. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  301.  
  302.  
  303. Elseif (Acc_date1->&restructure_start_month == 6 AND (@ismbr(@remove(@ILSIBLINGS(Jun),@List(Jan,Feb,Mar,Apr,May)))))
  304. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  305.  
  306. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan,Feb,Mar,Apr,May)))))
  307. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  308.  
  309. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb,Mar,Apr,May)))))
  310. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  311.  
  312. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar,Apr,May)))))
  313. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  314.  
  315. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr,May)))))
  316.  
  317. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  318.  
  319. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May)))))
  320. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  321.  
  322. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May)))))
  323. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  324.  
  325.  
  326.  
  327.  
  328.  
  329. Endif
  330.  
  331.  
  332.  
  333. elseif((Acc_date4->&restructure_start_month == 7) AND (@ismbr(@IRSIBLINGS(Jul))))
  334.  
  335.  
  336. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  337.  
  338. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  339.  
  340.  
  341. Elseif (Acc_date1->&restructure_start_month == 7 AND (@ismbr(@remove(@ILSIBLINGS(Jul),@List(Jan,Feb,Mar,Apr,May,Jun)))))
  342. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  343.  
  344. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb,Mar,Apr,May,Jun)))))
  345. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  346.  
  347. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar,Apr,May,Jun)))))
  348. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  349.  
  350. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr,May,Jun)))))
  351.  
  352. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  353.  
  354. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May,Jun)))))
  355. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  356.  
  357. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun)))))
  358. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  359.  
  360.  
  361.  
  362.  
  363.  
  364. Endif
  365.  
  366.  
  367.  
  368.  
  369. elseif((Acc_date4->&restructure_start_month == 8 ) AND (@ismbr(@IRSIBLINGS(Aug))))
  370.  
  371. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  372.  
  373. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  374.  
  375. Elseif (Acc_date1->&restructure_start_month == 8 AND (@ismbr(@remove(@ILSIBLINGS(Aug),@list(Jan,Feb,Mar,Apr,May,Jun,Jul)))))
  376. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  377.  
  378. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar,Apr,May,Jun,Jul)))))
  379. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  380.  
  381. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr,May,Jun,Jul)))))
  382.  
  383. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  384.  
  385. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May,Jun,Jul)))))
  386. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  387.  
  388. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun,Jul)))))
  389. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  390.  
  391.  
  392.  
  393.  
  394.  
  395. Endif
  396.  
  397.  
  398. elseif((Acc_date4->&restructure_start_month == 9) AND (@ismbr(@IRSIBLINGS(Sep))))
  399.  
  400.  
  401. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  402.  
  403. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  404.  
  405.  
  406.  
  407. Elseif (Acc_date1->&restructure_start_month == 9 AND (@ismbr(@remove(@ILSIBLINGS(Sep),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug)))))
  408. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  409.  
  410. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug)))))
  411.  
  412. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  413.  
  414. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug)))))
  415. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  416.  
  417. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug)))))
  418. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  419.  
  420.  
  421.  
  422.  
  423.  
  424. Endif
  425.  
  426.  
  427.  
  428. elseif((Acc_date4->&restructure_start_month == 10 ) AND (@ismbr(@IRSIBLINGS(Oct))))
  429.  
  430.  
  431. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  432.  
  433. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  434.  
  435. Elseif (Acc_date1->&restructure_start_month == 10 AND (@ismbr(@remove(@ILSIBLINGS(Oct),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep)))))
  436.  
  437. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  438.  
  439. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep)))))
  440. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  441.  
  442. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep)))))
  443. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  444.  
  445.  
  446.  
  447.  
  448.  
  449. Endif
  450.  
  451.  
  452. elseif((Acc_date4->&restructure_start_month == 11 ) AND (@ismbr(@IRSIBLINGS(Nov))))
  453.  
  454.  
  455. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  456.  
  457. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  458.  
  459.  
  460. Elseif (Acc_date1->&restructure_start_month == 11 AND (@ismbr(@remove(@ILSIBLINGS(Nov),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct)))))
  461. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  462.  
  463. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,oct)))))
  464. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  465.  
  466.  
  467.  
  468.  
  469.  
  470. Endif
  471.  
  472.  
  473. elseif((Acc_date4->&restructure_start_month == 12 ) AND (@ismbr(@IRSIBLINGS(Dec))))
  474.  
  475.  
  476. IF (Acc_date2->&restructure_start_month != Acc_date3->&restructure_start_month )
  477.  
  478. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  479.  
  480.  
  481.  
  482. Elseif (Acc_date1->&restructure_start_month == 12 AND (@ismbr(@remove(@ILSIBLINGS(Dec),@List(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov)))))
  483. Acc_Position_Cost=Acc_Position_Std_Cost->&restructure_start_month;
  484.  
  485.  
  486.  
  487.  
  488.  
  489. Endif
  490.  
  491.  
  492. ENDIF
  493. )
  494.  
  495. ENDFIX;
  496.  
  497.  
  498.  
  499.  
  500. FIX ( @CHILDREN(All_Positions), @CHILDREN("Restructred_Positions_Heirarachy"), @Children("TA_Positions_Hierarchy_Forecast") )
  501.  
  502. FIX ( &Forecast_Year, TSK_Default, Geog_Default, SubType_Default, Funds_Default, Future_Default, Units)
  503.  
  504. /* 14th Dec'12 - &Actual_HR_Load_Month,&restructure_start_month :Dec for Calculating forecast of Jan */
  505.  
  506. FIX ( Forecast, Draft1, &OGP_BPY, Extra_HR, Acc_Position_Cost, &Actual_HR_Load_Month,Jan:Dec )
  507.  
  508. AGG ( Entity ) ;
  509.  
  510. ENDFIX ;
  511.  
  512. /* 14th Dec'12 - &Actual_HR_Load_Month,&restructure_start_month :Dec for Calculating forecast of Jan */
  513.  
  514. FIX ( Forecast, Draft1, &OGP_BPY, &Actual_HR_Load_Month,Jan :Dec )
  515.  
  516. DATACOPY IAEA_ORG_HIERARCHY->Extra_HR->Acc_Position_Cost TO Entity_Default->Extra_HR_Costs->Acc_Position_Cost ;
  517.  
  518. ENDFIX ;
  519.  
  520. /* 23rd Nov'12 - Forecast : Nature of Position and Grade to be used in PTA allocations */
  521. /* 25th Feb'13 - Forecast : Position Fund to be used for PTA - CSC allocations */
  522.  
  523. FIX ( Forecast, Draft1, BPY_Default, Extra_HR, &restructure_start_month,
  524. Acc_Grade, Acc_Nature_of_Position,Acc_Position_Fund_SL )
  525.  
  526. AGG ( Entity ) ;
  527.  
  528. ENDFIX ;
  529.  
  530. FIX (Forecast, Draft1, BPY_Default, &restructure_start_month,
  531. Acc_Grade, Acc_Nature_of_Position,Acc_Position_Fund_SL )
  532.  
  533. DATACOPY IAEA_ORG_HIERARCHY->Extra_HR TO Entity_Default->Extra_HR_Costs ;
  534.  
  535. ENDFIX ;
  536.  
  537. /* End of - 23rd Nov'12 - Forecast : Nature of Position and Grade to be used in PTA allocations */
  538.  
  539.  
  540. FIX ( Actual, Final, BPY_Default, Extra_HR, &Actual_HR_Load_Month,
  541. Acc_Employee_Number, Acc_Employee_Full_Name,Acc_Position_Vacant_OGP,Acc_Grade, Acc_Nature_of_Position, Acc_Contract_Type )
  542.  
  543. AGG ( Entity ) ;
  544.  
  545. ENDFIX ;
  546.  
  547. FIX ( Actual, Final, BPY_Default, &Actual_HR_Load_Month,
  548. Acc_Employee_Number, Acc_Employee_Full_Name, Acc_Position_Vacant_OGP, Acc_Grade, Acc_Nature_of_Position, Acc_Contract_Type )
  549.  
  550. DATACOPY IAEA_ORG_HIERARCHY->Extra_HR TO Entity_Default->Extra_HR_Costs ;
  551.  
  552. ENDFIX ; /** end Above ACTUAL & Acc_Employee_Full_Name **/
  553.  
  554. ENDFIX ; /** Second FIX **/
  555.  
  556. ENDFIX ; /** First FIX**/
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!