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