Production System Testing (Survey on the Situation of Children and Women in Thailand)

DP Review 30.03.2019 SAMessage/Problem found PROC/ Variable/ logic replaced with ExplanationENTRYHH.APP Line 889: Numeric value foundinstead constant Line 889: 543; { Chirawat 21032019A.D.-->B.E. } Define variable at Line 23: be_ad;{Variable for converting between B.E.and A.D. --> A.D. = B.E. - 543}Define constant at Line 779: be_ad =543; {Constant for converting between It is better to use constant insteadnumeric value 543. Set and Defineworking variable in the beginningat Line 23 and then replace 543with be_ad constant everywherewhere it is used.Line 889: HH5Y = sysdate( "YYYY")+543; { Chirawat 21032019 A.D.-->B.E. } HH5Y = sysdate( "YYYY" ) + be_ad;{A.D. --> B.E.} same as aboveLine 893: di = cmcode(HH5M,HH5Y-543); di = cmcode(HH5M,HH5Y-be_ad); same as aboveLine 1099: db = cmcode(HL5M, HL5Y- db = cmcode(HL5M, HL5Y-be_ad); same as aboveLine 1100: di = cmcode(HH5M, HH5Y- di = cmcode(HH5M, HH5Y-be_ad); same as aboveLine 1109: db = cmcode(1 , HL5Y-543); db = cmcode(1 , HL5Y-be_ad); same as aboveLine 1110: di = cmcode(HH5M, HH5Y- di = cmcode(HH5M, HH5Y-be_ad); same as aboveFORMEU PROC EU1if $ in 1:5 thenskip to EU5elseif $ in 6,9,96 thenskip to EU4//elseif $ = 97 then// skip to EU6end