AICDKWIP.m

AICDKWIP ; ACC/IHS INTERFACE ROUTINE BETWEEN CPT 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

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

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

 G:(X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?1U4N) RTN^DIC

 G CPTOP^AICDKWLD

AICDKWIP  ; ACC/IHS INTERFACE ROUTINE BETWEEN CPT 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        IF DIC(0)["A"

               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        IF (X?1"?".E)!(X=" ")!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?1U4N)

               GOTO RTN^DIC

 +3        GOTO CPTOP^AICDKWLD