################################################################################################### ## NCHDA AA & SP algorithm ## from nchda_and_fetal_codes_v6.0.xlsx ################################################################################################### ## version compliant with v6.nn of the activity allocation and specific procedure algorithms ## 2017-11-01 JS minor_and_excluded_algorithm <- c('123200','123206','123214','123217','123218','123221','123228','123229', '123240','123241','123243','123246','123253','123259','123270','123280', '123283','123290','123351','123352','123353','124000','124006','124013', '124029','124030','124099','124300','124325','126400','126408','126420', '126421','126440','126505','126506','126513','126514','126523','126545', '126548','126556','126560','126572','126582','126589','126600','126601', '126602','126605','126606','126607','128000','128701','128728','128736', '128737','128745','128753','130014','130015','130100','130102','130103', '130104') procedures_valid_nchda <- c('120000','120002','120003','120017','120020','120021','120022','120023', '120024','120025','120029','120030','120036','120039','120042','120043', '120044','120050','120055','120078','120081','120083','120090','120091', '120092','120100','120101','120102','120103','120106','120107','120108', '120110','120122','120130','120131','120132','120141','120142','120143', '120144','120147','120153','120157','120160','120180','120190','120198', '120200','120202','120204','120209','120211','120222','120270','120277', '120283','120300','120301','120303','120304','120310','120311','120319', '120384','120397','120400','120401','120409','120418','120420','120433', '120440','120445','120489','120501','120510','120511','120600','120605', '120618','120619','120625','120626','120635','120638','120641','120643', '120700','120701','120707','120711','120712','120713','120719','120726', '120737','120738','120801','120802','120803','120806','120807','120816', '120819','120820','120821','120822','120828','120835','120865','120901', '120903','121000','121004','121005','121014','121100','121134','121141', '121143','121201','121208','121300','121302','121305','121309','121312', '121315','121321','121322','121351','121355','121381','121384','121385', '121386','121401','121402','121403','121405','121408','121419','121420', '121421','121422','121430','121431','121503','121504','121505','121506', '121511','121513','121514','121524','121525','121548','121549','121550', '121553','121580','121581','121600','121602','121604','121605','121611', '121614','121621','121622','121625','121628','121629','121630','121633', '121635','121640','121642','121650','121659','121661','121662','121663', '121664','121665','121666','121667','121668','121680','121681','121685', '121690','121697','121711','121731','121732','121790','121791','121799', '121800','121801','121802','121803','121804','121808','121810','121815', '121817','121822','121827','121830','121848','121870','122020','122021', '122022','122023','122100','122200','122300','122307','122308','122309', '122311','122313','122330','122331','122338','122341','122342','122380', '122400','122404','122410','122420','122421','122422','122500','122502', '122507','122518','122519','122562','122565','122572','122601','122613', '122620','122621','122701','122702','122745','122746','122750','122778', '122801','122811','122901','122902','122911','122920','122921','122925', '122926','122940','122952','122979','123001','123005','123006','123013', '123020','123021','123027','123028','123031','123032','123034','123037', '123041','123050','123051','123054','123056','123060','123074','123103', '123104','123105','123106','123111','123115','123119','123130','123131', '123134','123142','123144','123145','123146','123172','123200','123203', '123206','123209','123210','123213','123214','123217','123218','123220', '123221','123222','123228','123229','123240','123241','123243','123246', '123253','123259','123270','123280','123283','123290','123310','123351', '123352','123353','123360','123450','123451','123452','123460','123463', '123464','123467','123468','123470','123473','123484','123485','123513', '123514','123540','123546','123548','123553','123557','123560','123572', '123580','123581','123582','123583','123584','123600','123601','123602', '123610','123614','123623','123635','123640','123645','123701','123702', '123703','123704','123706','123713','123720','123760','123770','123825', '123840','123850','123869','124000','124006','124013','124015','124016', '124029','124030','124099','124130','124231','124232','124233','124234', '124235','124239','124261','124264','124265','124279','124300','124306', '124307','124325','124370','124475','124500','124501','124504','124506', '124507','124510','124511','124512','124513','124514','124515','124519', '124521','124528','124530','124558','124559','124570','124571','124573', '124575','124576','124590','124591','124600','124801','124802','126400', '126408','126420','126421','126440','126505','126506','126513','126514', '126523','126545','126548','126556','126560','126572','126582','126589', '126600','126601','126602','126605','126606','126607','127008','128000', '128001','128010','128037','128038','128074','128075','128701','128702', '128704','128710','128721','128722','128723','128724','128725','128726', '128727','128728','128731','128736','128737','128741','128745','128753', '129001','130014','130015','130103', '130123','130124','130501','130505', '130506','130507','130508','130512','130513','130514','130515','130516', '130517','155040','Q50811','Q50813','Q58530') procedures_exclude_non_nchda <- c('120090','120091','120092','124000','124006','124013','124015','124016', '124029','124030','124099','124300','124306','124307','124325','124501', '124506','124590','124591','128001','128010','128037','128038','130103', '130514','130515','130516','Q50811','Q50813','Q58530') diagnosis_valid_nchda <- c('010100','010101','010102','010103','010104','010106','010107','010109', '010114','010116','010117','010118','010119','010120','010122','010124', '010125','010133','010139','010140','010160','010161','010300','010306', '010309','010310','010403','010404','010500','010501','010503','010510', '020102','020103','020104','020109','020305','020704','030102','030103', '030104','030105','030109','030209','030214','030305','030603','030703', '030704','040006','040100','040101','040200','040300','040310','040400', '040500','040600','040701','040800','040805','040806','040810','040820', '040830','040891','050100','050200','050201','050202','050300','050301', '050310','050401','050402','050403','050500','050503','050601','060100', '060101','060103','060109','060125','060134','060191','060192','060200', '060201','060207','060209','060212','060213','060225','060235','060236', '060256','060291','060292','060293','060501','060506','060598','060600', '060601','060608','060609','060610','060726','070001','070100','070110', '070111','070114','070200','070301','070501','070530','070600','070610', '070613','070700','070841','070842','070850','070900','070901','070903', '070931','071000','071001','071012','071101','071200','071201','071402', '071405','071501','071504','071505','071601','072000','072001','072100', '090101','090200','090203','090401','090500','090501','090504','090511', '090512','090515','090522','090525','090591','090592','090700','090711', '090713','090726','090801','090906','090908','091000','091001','091006', '091007','091010','091011','091025','091026','091044','091500','091501', '091503','091507','091512','091513','091522','091530','091591','091592', '091600','091602','091605','091609','091610','091613','091701','091702', '091801','091901','091905','092020','092025','092700','092721','092800', '092809','092815','092816','092901','092911','092916','092931','093000', '093002','093004','093100','094101','094200','094220','094305','094318', '094501','094511','094600','094601','094606','100100','100301','100501', '100521','100530','100531','100533','100600','100601','100620','100641', '100664','100665','100701','100703','100705','100708','100740','100742', '100761','100771','100781','100790','100800','100801','100803','100804', '100809','100811','100813','100815','100829','100831','100901','100902', '100908','100910','100930','101001','101010','101011','101012','101013', '101020','101025','101201','101239','101242','101251','101301','101302', '101306','101308','101320','101321','101350','101351','101363','101364', '101365','101368','101369','101400','101401','101402','101404','101440', '101442','101443','101444','101445','101446','101450','101451','101452', '101453','101454','101460','101470','101472','101474','101477','101480', '101495','101500','101501','101505','101510','101512','101600','101608', '101616','101640','101646','101647','101660','101662','101681','101682', '101683','101686','101688','101700','101703','101705','101709','101712', '101713','101723','101740','101750','101800','101801','101824','101848', '101852','101901','101902','101911','102000','102002','102003','102005', '102006','102007','102008','102009','102012','102013','102014','102015', '102016','102017','102018','102019','102031','102032','102033','102034', '102037','102038','102039','102045','102046','102202','102203','102205', '102206','102207','102300','102301','102302','102303','102304','102311', '102400','103000','103009','103030','103101','103121','103200','103201', '103300','103301','103302','103303','103304','103306','103444','103460', '103501','103502','103503','103504','103601','103602','103603','103604', '103606','103701','104001','104030','105101','109001','109024','109041', '109042','110000','110011','110021','110100','110101','110203','110204', '110207','110215','110305','110307','110308','110312','110313','110315', '110321','110366','110367','110400','110407','110411','110412','110442', '110500','110506','110509','110510','110517','110521','110544','110550', '110556','110557','110584','110600','110601','110602','110603','110607', '110610','110616','110617','110623','110624','110632','110633','110635', '110701','110706','110711','110714','110722','110723','110726','110728', '110729','111100','111101','111103','111117','111121','111140','111159', '111160','111180','111200','111201','111229','112000','112300','123331', '123333','123334','123370','130001','130002','130010','130011','130013', '130016','130017','130021','130023','130024','130025','130027','130031', '130032','130033','130034','130035','130036','130050','130071','130100', '130101','130102','130104','130125','130126','130127','130189','130190', '140101','140102','140103','140104','140105','140121','140200','140206', '140210','140217','140219','140221','140228','140230','140232','140234', '140258','140262','140266','140300','140304','140305','140306','140307', '140308','140309','140310','140311','140321','140323','140328','140329', '140333','140340','140342','140344','140347','140349','140352','140359', '140372','140375','140390','140391','140392','140397','140404','140405', '140409','140412','140414','140446','140447','140470','140485','140490', '140494','140495','140496','140500','140501','140540','140541','140550', '140565','140601','141000','141001','141002','141006','141007','141008', '141011','141012','141018','141025','141026','141027','141028','141034', '141035','141036','141037','141038','141045','141052','141053','141060', '141072','141073','141090','141091','141095','141098','141099','141140', '141141','141142','141143','141144','141180','141181','141187','141220', '141352','150001','150002','150003','150009','150030','150200','150203', '150207','150265','150300','150303','150308','150315','150321','150330', '150332','150350','150351','150352','150401','150405','150415','150434', '150501','150503','151010','151011','151013','151020','151021','151061', '151063','151066','151079','151100','151103','151108','151200','151201', '151203','151209','151302','151400','151500','151600','151602','152001', '152021','152023','152025','152075','152076','152101','152121','152122', '152202','152231','152400','152420','152503','152531','153000','153001', '153003','153008','153201','153221','153223','153241','153243','153500', '153501','153503','153508','153601','153701','153705','153707','153773', '153780','153901','153902','153950','154100','154113','154139','155000', '155001','155003','155011','155030','155037','155052','155060','155061', '155065','155070','155071','155078','155080','155081','155083','155086', '155091','155100','155150','155151','155152','155153','155154','155500', '155516','155524','155600','155601','155602','155621','155702','155703', '155721','155801','155900','156002','156738','156741','157700','158000', '158001','158005','158006','158015','158016','158019','158020','158021', '158022','158029','158031','158032','158033','158050','158051','158052', '158055','158056','158061','158062','158064','158070','158086','158087', '158090','158093','158094','158190','158200','158206','158207','158210', '158221','158223','158228','158229','158230','158232','158233','158238', '158243','158247','158250','158251','158253','158257','158264','158266', '158267','158268','158281','158300','158375','158800','159001','159003', '159014','159020','159060','159085','159086','159094','159095','159500', '159503','159564','159566','160101','160104','160107','160111','160121', '160122','160200','160301','160302','160305','160310','160321','160511', '160512','160513','160800','160900','161001','161009','161208','161300', '161320','161509','162001','162002','162010','163001','164033','164034', '164035','164051','164052','164053','165020','170001','171002','Q19180', 'Q19181','Q19182') diagnosis_exclude_non_nchda <- c('101700','101703','101705','101709','101712','101713','102300','103030', '123331','123333','123334','123370','130001','130002','130010','130011', '130013','130016','130017','130021','130023','130024','130025','130027', '130031','130032','130033','130034','130035','130036','130050','130071', '130100','130101','130102','130104','130125','130126','130127','130189', '130190','141000','141001','141002','141006','141007','141008','141011', '141012','141018','141025','141026','141027','141028','141035','141036', '141037','141038','141045','141052','141053','141060','141072','141073', '141090','141091','141095','141098','141099','141140','141141','141142', '141143','141144','141180','141181','141187','141220','141352','150001', '150002','150003','150009','150030','150200','150203','150207','150265', '150300','150303','150308','150315','150330','150332','150350','150351', '150415','152420','155001','155011','155030','155080','155081','155083', '155086','155091','155150','155151','155152','155702','155703','155721', '155801','155900','156002','156738','157700','158000','158001','158005', '158006','158015','158016','158019','158020','158021','158022','158029', '158031','158032','158033','158050','158051','158052','158055','158056', '158061','158062','158064','158070','158086','158087','158094','158200', '158206','158207','158221','158223','158228','158229','158230','158232', '158233','158238','158243','158247','158250','158251','158253','158257', '158264','158266','158267','158268','158281','158375','158800','159001', '159003','159014','159020','159085','159086','170001','171002')