AICDKWI9.m

AICDKWI9 ; ACC/IHS INTERFACE ROUTINE BETWEEN ICD9 DICTIONARY AND LOOKUP; 

 ;;4.0;AICD;;DEC 03, 2014;Build 7

 G:DIPGM(0)=2 EN2

EN1 ; FIRST ENTRY FROM DIC

 ;G:DIC(0)["A" ASK^DIC ;AICD*3.51*6

 I DIC(0)["A" K DO D DO^DIC1 G ASK^DIC ;AICD*3.51*6

EN2 ; SECOND ENTRY FROM DIC OR FALL-THROUGH IF NO 'ASK' INDICATED

 I X="?BAD"!(X["^") S Y=-1 Q

 ;I (X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?.N1".".N)!(X?1"E"1N.E)!(X?1"V"1N.E) D:'$D(DO) DO^DIC1 G RTN^DIC ;AICD*3.51*6

 I (X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?.N1".".N)!(X?1"E"1N.E)!(X?1"V"1N.E) K DO D DO^DIC1 G RTN^DIC ;AICD*3.51*6

 G ICDDX^AICDKWLD

AICDKWI9  ; ACC/IHS INTERFACE ROUTINE BETWEEN ICD9 DICTIONARY AND LOOKUP; 

 +1       ;;4.0;AICD;;DEC 03, 2014;Build 7

 +2        IF DIPGM(0)=2

               GOTO EN2

EN1       ; FIRST ENTRY FROM DIC

 +1       ;G:DIC(0)["A" ASK^DIC ;AICD*3.51*6

 +2       ;AICD*3.51*6

           IF DIC(0)["A"

               KILL DO

               DO DO^DIC1

               GOTO ASK^DIC

EN2       ; SECOND ENTRY FROM DIC OR FALL-THROUGH IF NO 'ASK' INDICATED

 +1        IF X="?BAD"!(X["^")

               SET Y=-1

               QUIT 

 +2       ;I (X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?.N1".".N)!(X?1"E"1N.E)!(X?1"V"1N.E) D:'$D(DO) DO^DIC1 G RTN^DIC ;AICD*3.51*6

 +3       ;AICD*3.51*6

           IF (X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?.N1".".N)!(X?1"E"1N.E)!(X?1"V"1N.E)

               KILL DO

               DO DO^DIC1

               GOTO RTN^DIC

 +4        GOTO ICDDX^AICDKWLD