Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUTPOS2

AUTPOS2.m

Go to the documentation of this file.
  1. AUTPOS2 ; IHS/DIRM/JDM/DFM - Post Init to AUT ; [ 03/04/98 8:10 AM ]
  1. ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6
  1. RECODE ;EP-update .04,.05 of 9999999.08
  1. W !,"Adding APC Recode Categories & ICD codes to RECODE ICD/APC file"
  1. S AUTT="RECODE05" F AUTJ=1:1 S AUTX=$T(@AUTT+AUTJ),AUTVAL=$P(AUTX,";;",2) Q:AUTVAL="QUIT"!(AUTVAL="") D
  1. .S AUTCAT=$P(AUTX,";;",3)
  1. .S AUTICD=$P(AUTX,";;",4),AUTICD=$O(^ICD9("AB",AUTICD,0))
  1. .I AUTICD="" W !!,"Can't find ICD code ",$P(AUTX,";;",4)," for APC code ",AUTVAL
  1. .S AUTICD="`"_AUTICD
  1. .S DA=$O(^AUTTRCD("B",AUTVAL,0)) I DA="" W !,"Can't find entry ",AUTVAL," to edit. Notify database mgr. of incomplete RECODE ICD/APC file.",! Q
  1. .S DIE="^AUTTRCD(",DR=".04///"_AUTCAT_";.05///"_AUTICD
  1. .D ^DIE K DIE,DR,DA,DIU,DIV I $D(Y) W !,"Editing APC Code ",AUTVAL," failed, notify database mgr. of incomplete ICD9 file."
  1. .Q
  1. Q
  1. RECODE05 ;
  1. ;;001;;INFECTIVE & PARASITIC DIS.;;055.9
  1. ;;002;;INFECTIVE & PARASITIC DIS.;;056.9
  1. ;;003;;INFECTIVE & PARASITIC DIS.;;072.9
  1. ;;004;;INFECTIVE & PARASITIC DIS.;;052.9
  1. ;;005;;INFECTIVE & PARASITIC DIS.;;011.90
  1. ;;006;;INFECTIVE & PARASITIC DIS.;;137.0
  1. ;;007;;INFECTIVE & PARASITIC DIS.;;V71.2
  1. ;;008;;INFECTIVE & PARASITIC DIS.;;018.90
  1. ;;009;;INFECTIVE & PARASITIC DIS.;;137.4
  1. ;;010;;INFECTIVE & PARASITIC DIS.;;795.5
  1. ;;011;;INFECTIVE & PARASITIC DIS.;;795.5
  1. ;;012;;INFECTIVE & PARASITIC DIS.;;V01.1
  1. ;;013;;INFECTIVE & PARASITIC DIS.;;004.9
  1. ;;014;;INFECTIVE & PARASITIC DIS.;;558.9
  1. ;;015;;INFECTIVE & PARASITIC DIS.;;070.1
  1. ;;016;;INFECTIVE & PARASITIC DIS.;;092.9
  1. ;;017;;INFECTIVE & PARASITIC DIS.;;097.9
  1. ;;018;;INFECTIVE & PARASITIC DIS.;;098.0
  1. ;;019;;INFECTIVE & PARASITIC DIS.;;099.9
  1. ;;020;;INFECTIVE & PARASITIC DIS.;;134.9
  1. ;;021;;INFECTIVE & PARASITIC DIS.;;076.9
  1. ;;022;;INFECTIVE & PARASITIC DIS.;;034.0
  1. ;;025;;INFECTIVE & PARASITIC DIS.;;022.9
  1. ;;026;;INFECTIVE & PARASITIC DIS.;;006.9
  1. ;;027;;INFECTIVE & PARASITIC DIS.;;005.1
  1. ;;028;;INFECTIVE & PARASITIC DIS.;;023.9
  1. ;;029;;INFECTIVE & PARASITIC DIS.;;001.9
  1. ;;030;;INFECTIVE & PARASITIC DIS.;;054.10
  1. ;;031;;INFECTIVE & PARASITIC DIS.;;054.2
  1. ;;032;;INFECTIVE & PARASITIC DIS.;;032.9
  1. ;;033;;INFECTIVE & PARASITIC DIS.;;035.
  1. ;;034;;INFECTIVE & PARASITIC DIS.;;005.9
  1. ;;035;;INFECTIVE & PARASITIC DIS.;;054.40
  1. ;;036;;INFECTIVE & PARASITIC DIS.;;024.
  1. ;;037;;INFECTIVE & PARASITIC DIS.;;070.30
  1. ;;038;;INFECTIVE & PARASITIC DIS.;;122.9
  1. ;;039;;INFECTIVE & PARASITIC DIS.;;075.
  1. ;;040;;INFECTIVE & PARASITIC DIS.;;030.9
  1. ;;041;;INFECTIVE & PARASITIC DIS.;;100.9
  1. ;;042;;INFECTIVE & PARASITIC DIS.;;084.6
  1. ;;043;;INFECTIVE & PARASITIC DIS.;;047.9
  1. ;;044;;INFECTIVE & PARASITIC DIS.;;036.0
  1. ;;045;;INFECTIVE & PARASITIC DIS.;;036.9
  1. ;;046;;INFECTIVE & PARASITIC DIS.;;101.
  1. ;;047;;INFECTIVE & PARASITIC DIS.;;020.9
  1. ;;048;;INFECTIVE & PARASITIC DIS.;;045.90
  1. ;;049;;INFECTIVE & PARASITIC DIS.;;073.9
  1. ;;050;;INFECTIVE & PARASITIC DIS.;;670.04
  1. ;;051;;INFECTIVE & PARASITIC DIS.;;071.
  1. ;;052;;INFECTIVE & PARASITIC DIS.;;087.9
  1. ;;053;;INFECTIVE & PARASITIC DIS.;;082.0
  1. ;;054;;INFECTIVE & PARASITIC DIS.;;003.9
  1. ;;055;;INFECTIVE & PARASITIC DIS.;;133.0
  1. ;;056;;INFECTIVE & PARASITIC DIS.;;034.1
  1. ;;057;;INFECTIVE & PARASITIC DIS.;;117.9
  1. ;;058;;INFECTIVE & PARASITIC DIS.;;123.9
  1. ;;059;;INFECTIVE & PARASITIC DIS.;;037.
  1. ;;060;;INFECTIVE & PARASITIC DIS.;;124.
  1. ;;061;;INFECTIVE & PARASITIC DIS.;;021.9
  1. ;;062;;INFECTIVE & PARASITIC DIS.;;002.0
  1. ;;063;;INFECTIVE & PARASITIC DIS.;;081.9
  1. ;;064;;INFECTIVE & PARASITIC DIS.;;049.9
  1. ;;065;;INFECTIVE & PARASITIC DIS.;;033.9
  1. ;;066;;INFECTIVE & PARASITIC DIS.;;060.9
  1. ;;067;;INFECTIVE & PARASITIC DIS.;;136.9
  1. ;;070;;NEOPLASMS;;199.1
  1. ;;071;;NEOPLASMS;;229.9
  1. ;;080;;ENDOCR., NUTR., & METAB. DIS.;;250.00
  1. ;;081;;ENDOCR., NUTR., & METAB. DIS.;;259.9
  1. ;;082;;ENDOCR., NUTR., & METAB. DIS.;;263.9
  1. ;;083;;ENDOCR., NUTR., & METAB. DIS.;;278.00
  1. ;;084;;ENDOCR., NUTR., & METAB. DIS.;;269.2
  1. ;;085;;ENDOCR., NUTR., & METAB. DIS.;;269.9
  1. ;;086;;ENDOCR., NUTR., & METAB. DIS.;;277.9
  1. ;;100;;DIS. OF BLOOD & BLOOD-FORMING ORGANS;;280.9
  1. ;;101;;DIS. OF BLOOD & BLOOD-FORMING ORGANS;;285.9
  1. ;;102;;DIS. OF BLOOD & BLOOD-FORMING ORGANS;;289.9
  1. ;;120;;MENTAL DISORDERS;;294.9
  1. ;;125;;MENTAL DISORDERS;;298.9
  1. ;;130;;MENTAL DISORDERS;;300.9
  1. ;;135;;MENTAL DISORDERS;;301.9
  1. ;;140;;MENTAL DISORDERS;;306.9
  1. ;;145;;MENTAL DISORDERS;;309.89
  1. ;;150;;MENTAL DISORDERS;;305.90
  1. ;;159;;MENTAL DISORDERS;;303.90
  1. ;;160;;MENTAL DISORDERS;;319.
  1. ;;170;;MENTAL DISORDERS;;313.9
  1. ;;175;;MENTAL DISORDERS;;307.9
  1. ;;200;;DIS. OF NERVOUS SYSTEM;;323.9
  1. ;;201;;DIS. OF NERVOUS SYSTEM;;780.3
  1. ;;202;;DIS. OF NERVOUS SYSTEM;;349.9
  1. ;;209;;EYE DISEASES;;372.30
  1. ;;210;;EYE DISEASES;;367.9
  1. ;;211;;EYE DISEASES;;366.9
  1. ;;212;;EYE DISEASES;;365.9
  1. ;;213;;EYE DISEASES;;370.31
  1. ;;214;;EYE DISEASES;;364.3
  1. ;;216;;EYE DISEASES;;379.90
  1. ;;249;;EAR DISEASES;;380.10
  1. ;;250;;EAR DISEASES;;381.00
  1. ;;251;;EAR DISEASES;;382.9
  1. ;;254;;EAR DISEASES;;389.9
  1. ;;255;;EAR DISEASES;;385.30
  1. ;;256;;EAR DISEASES;;388.9
  1. ;;280;;DIS. OF CIRCULATORY SYSTEM;;414.9
  1. ;;281;;DIS. OF CIRCULATORY SYSTEM;;390.
  1. ;;282;;DIS. OF CIRCULATORY SYSTEM;;398.90
  1. ;;283;;DIS. OF CIRCULATORY SYSTEM;;401.9
  1. ;;284;;DIS. OF CIRCULATORY SYSTEM;;437.9
  1. ;;285;;DIS. OF CIRCULATORY SYSTEM;;429.9
  1. ;;286;;DIS. OF CIRCULATORY SYSTEM;;459.9
  1. ;;287;;DIS. OF CIRCULATORY SYSTEM;;428.0
  1. ;;300;;DIS. OF RESPIRATORY SYSTEM;;465.9
  1. ;;301;;DIS. OF RESPIRATORY SYSTEM;;462.
  1. ;;302;;DIS. OF RESPIRATORY SYSTEM;;478.9
  1. ;;303;;DIS. OF RESPIRATORY SYSTEM;;487.1
  1. ;;304;;DIS. OF RESPIRATORY SYSTEM;;466.0
  1. ;;305;;DIS. OF RESPIRATORY SYSTEM;;477.9
  1. ;;306;;DIS. OF RESPIRATORY SYSTEM;;486.
  1. ;;307;;DIS. OF RESPIRATORY SYSTEM;;491.9
  1. ;;310;;DIS. OF RESPIRATORY SYSTEM;;519.9
  1. ;;350;;DIS. OF DIGESTIVE SYSTEM;;535.50
  1. ;;351;;DIS. OF DIGESTIVE SYSTEM;;531.90
  1. ;;352;;DIS. OF DIGESTIVE SYSTEM;;553.9
  1. ;;353;;DIS. OF DIGESTIVE SYSTEM;;571.5
  1. ;;354;;DIS. OF DIGESTIVE SYSTEM;;575.9
  1. ;;355;;DIS. OF DIGESTIVE SYSTEM;;525.9
  1. ;;356;;DIS. OF DIGESTIVE SYSTEM;;528.9
  1. ;;357;;DIS. OF DIGESTIVE SYSTEM;;569.9
  1. ;;400;;DIS. OF URINARY TRACT;;599.0
  1. ;;410;;DIS. OF URINARY TRACT;;583.9
  1. ;;411;;DIS. OF URINARY TRACT;;585.
  1. ;;420;;DIS. OF URINARY TRACT;;599.9
  1. ;;440;;ALL DIS., MALE GENIT. (EXCL VD);;608.9
  1. ;;450;;DIS. OF FEMALE GENITALIA & BREAST;;614.9
  1. ;;452;;DIS. OF FEMALE GENITALIA & BREAST;;626.9
  1. ;;460;;DIS. OF FEMALE GENITALIA & BREAST;;795.0
  1. ;;461;;DIS. OF FEMALE GENITALIA & BREAST;;629.9
  1. ;;470;;DIS. OF FEMALE GENITALIA & BREAST;;611.9
  1. ;;480;;PREG., CHILDBIRTH & THE PUERPERIUM;;V22.1
  1. ;;481;;PREG., CHILDBIRTH & THE PUERPERIUM;;637.90
  1. ;;482;;PREG., CHILDBIRTH & THE PUERPERIUM;;641.93
  1. ;;484;;PREG., CHILDBIRTH & THE PUERPERIUM;;646.53
  1. ;;485;;PREG., CHILDBIRTH & THE PUERPERIUM;;642.43
  1. ;;489;;PREG., CHILDBIRTH & THE PUERPERIUM;;646.63
  1. ;;486;;PREG., CHILDBIRTH & THE PUERPERIUM;;646.93
  1. ;;487;;PREG., CHILDBIRTH & THE PUERPERIUM;;669.93
  1. ;;490;;PREG., CHILDBIRTH & THE PUERPERIUM;;V24.2
  1. ;;491;;PREG., CHILDBIRTH & THE PUERPERIUM;;674.94
  1. ;;492;;PREG., CHILDBIRTH & THE PUERPERIUM;;676.94
  1. ;;495;;PREG., CHILDBIRTH & THE PUERPERIUM;;V25.09
  1. ;;500;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;684.
  1. ;;501;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;686.9
  1. ;;502;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;958.3
  1. ;;503;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;078.10
  1. ;;504;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;111.9
  1. ;;505;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;706.1
  1. ;;510;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;692.9
  1. ;;520;;DIS. OF SKIN & SUBCUTANEOUS TISSUE;;709.9
  1. ;;550;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;714.0
  1. ;;555;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;715.90
  1. ;;560;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;716.90
  1. ;;565;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;742.9
  1. ;;570;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;719.90
  1. ;;575;;MUSCULOSKEL SYSTEM & CONNECT. TISSUE;;729.9
  1. ;;600;;CONGENITAL ANOMALIES;;746.9
  1. ;;610;;CONGENITAL ANOMALIES;;749.10
  1. ;;620;;CONGENITAL ANOMALIES;;754.30
  1. ;;630;;CONGENITAL ANOMALIES;;759.9
  1. ;;650;;CAUSES OF PERNATAL MORB. & MORT.;;779.9
  1. ;;700;;ACCID. POISONINGS AND VIOLENCE;;809.0
  1. ;;701;;ACCID. POISONINGS AND VIOLENCE;;829.0
  1. ;;702;;ACCID. POISONINGS AND VIOLENCE;;848.9
  1. ;;710;;ACCID. POISONINGS AND VIOLENCE;;854.00
  1. ;;711;;ACCID. POISONINGS AND VIOLENCE;;862.8
  1. ;;712;;ACCID. POISONINGS AND VIOLENCE;;868.00
  1. ;;720;;ACCID. POISONINGS AND VIOLENCE;;921.9
  1. ;;730;;ACCID. POISONINGS AND VIOLENCE;;879.8
  1. ;;731;;ACCID. POISONINGS AND VIOLENCE;;919.8
  1. ;;740;;ACCID. POISONINGS AND VIOLENCE;;938.
  1. ;;750;;ACCID. POISONINGS AND VIOLENCE;;949.0
  1. ;;760;;ACCID. POISONINGS AND VIOLENCE;;957.9
  1. ;;770;;ACCID. POISONINGS AND VIOLENCE;;977.9
  1. ;;771;;ACCID. POISONINGS AND VIOLENCE;;989.9
  1. ;;790;;ACCID. POISONINGS AND VIOLENCE;;991.9
  1. ;;791;;ACCID. POISONINGS AND VIOLENCE;;995.89
  1. ;;792;;ACCID. POISONINGS AND VIOLENCE;;V71.4
  1. ;;800;;SYMPTOMS & ILL-DEFINED CONDITION;;786.51
  1. ;;801;;SYMPTOMS & ILL-DEFINED CONDITION;;780.2
  1. ;;802;;SYMPTOMS & ILL-DEFINED CONDITION;;784.7
  1. ;;803;;SYMPTOMS & ILL-DEFINED CONDITION;;786.2
  1. ;;804;;SYMPTOMS & ILL-DEFINED CONDITION;;787.01
  1. ;;805;;SYMPTOMS & ILL-DEFINED CONDITION;;789.00
  1. ;;806;;SYMPTOMS & ILL-DEFINED CONDITION;;780.6
  1. ;;807;;SYMPTOMS & ILL-DEFINED CONDITION;;799.3
  1. ;;808;;SYMPTOMS & ILL-DEFINED CONDITION;;784.0
  1. ;;810;;SYMPTOMS & ILL-DEFINED CONDITION;;780.9
  1. ;;811;;SYMPTOMS & ILL-DEFINED CONDITION;;V71.9
  1. ;;812;;SYMPTOMS & ILL-DEFINED CONDITION;;799.8
  1. ;;818;;SUPPLEMENTAL;;V20.2
  1. ;;819;;SUPPLEMENTAL;;V07.9
  1. ;;820;;SUPPLEMENTAL;;V67.9
  1. ;;821;;SUPPLEMENTAL;;V70.0
  1. ;;823;;SUPPLEMENTAL;;V72.6
  1. ;;824;;SUPPLEMENTAL;;V01.9
  1. ;;825;;SUPPLEMENTAL;;V60.9
  1. ;;826;;SUPPLEMENTAL;;V62.9
  1. ;;827;;SUPPLEMENTAL;;V49.9
  1. ;;999;;SUPPLEMENTAL;;V70.9
  1. ;;483;;PREG., CHILDBIRTH & THE PUERPERIUM;;648.23
  1. ;;024;;INFECTIVE & PARASITIC DIS.;;042.9
  1. ;;817;;SYMPTOMS & ILL-DEFINED CONDITION;;V68.1
  1. ;;QUIT