Code |
N DXC,DXD,DXDT,DXI,EM,ICD9,IEN,RF S DXDT=$$NOW^XLFDT D GETS^DIQ(200,ORCIEN,"351*,","EI","RF","EM") I $D(RF) D . S (DXC,DXD,DXI,ICD9,IEN)="" . F S IEN=$O(RF(200.0351,IEN)) Q:IEN="" D .. S ICD9=RF(200.0351,IEN,.01,"E") .. S DXC=$$SETDXC(ICD9) .. I $G(RF(200.0351,IEN,1,"I"))="" S DXD=$$SETDXD($P($$ICDDATA^ICDXCODE("DIAGNOSIS",ICD9,DXDT),U,4)) .. I $G(RF(200.0351,IEN,1,"I"))=1 S DXD=$$SETDXD($P($$ICDDATA^ICDXCODE("DIAGNOSIS",ICD9,DXDT),U,4)) .. I $G(RF(200.0351,IEN,1,"I"))>1 S DXD=RF(200.0351,IEN,1,"E") .. S DXI=$$SETDXI($$STATCHK^ICDXCODE("DIAGNOSIS",ICD9,DXDT)) .. S Y(DXC)=ICD9_U_DXD_U_DXI E S Y=0
|