Routine: AICDTIL

AICDTIL ; IHS/OHPRD/ACC - MENU DRIVER FOR ICD MANAGEMENT UTILITIES ;

 ;;3.51;IHS ICD/CPT lookup & grouper;;MAY 30, 1991

 D ^AUKVAR ; FOR NON-KERNEL ENVIRONMENTS ONLY

MAINLP W !!,?10,"- - PCIS Development Utilities - -",!!

 F I=1:1 S L=$T(MENU+I) Q:L=""  S L=$P(L,";;",2),L=$P(L,"^",1) W $J(I,2),". ",L,!

W !

 S N=I-1

ASK W "Select 1-",N,": " R A:$S($D(DTIME):DTIME,1:300),!

 I A'=""&(A'?1N.N!((A<1)!(A>N))) G ASK

 I A'="" S R=$P($T(MENU+A),"^",2,99) D @R G MAINLP

 K I,L,N,R,A

 W !,"B y e . . .",!

MENU ; MENU TEXT IN FORM:  TEXT^ROUTINE

 ;;Test ICD9 Diagnosis code lookup^D^AICDTICD

 ;;Test ICD9 Procedure code lookup^P^AICDTICD

 ;;Add to OTHER KEYWORDS field of ICD9 diagnosis file^DX^AICDADK

 ;;Add to OTHER KEYWORDS field of ICD9 procedure file^OP^AICDADK

 ;;Print ICD Diagnosis file in code order^EN^AICDPRTD

 ;;Print ICD Procedure file in code order^EN^AICDPRTO

AICDTIL   ; IHS/OHPRD/ACC - MENU DRIVER FOR ICD MANAGEMENT UTILITIES ;

 +1       ;;3.51;IHS ICD/CPT lookup & grouper;;MAY 30, 1991

 +2       ;

 +3       ; FOR NON-KERNEL ENVIRONMENTS ONLY

           DO ^AUKVAR

MAINLP     WRITE !!,?10,"- - PCIS Development Utilities - -",!!

 +1        FOR I=1:1

               SET L=$TEXT(MENU+I)

               IF L=""

                   QUIT

               SET L=$PIECE(L,";;",2)

               SET L=$PIECE(L,"^",1)

               WRITE $JUSTIFY(I,2),". ",L,!

 +2        WRITE !

 +3        SET N=I-1

ASK        WRITE "Select 1-",N,": "

           READ A:$SELECT($DATA(DTIME):DTIME,1:300),!

 +1        IF A'=""&(A'?1N.N!((A<1)!(A>N)))

               GOTO ASK

 +2        IF A'=""

               SET R=$PIECE($TEXT(MENU+A),"^",2,99)

               DO @R

               GOTO MAINLP

 +3        KILL I,L,N,R,A

 +4        WRITE !,"B y e . . .",!

 +5        QUIT

 +6       ;

MENU      ; MENU TEXT IN FORM:  TEXT^ROUTINE

 +1       ;;Test ICD9 Diagnosis code lookup^D^AICDTICD

 +2       ;;Test ICD9 Procedure code lookup^P^AICDTICD

 +3       ;;Add to OTHER KEYWORDS field of ICD9 diagnosis file^DX^AICDADK

 +4       ;;Add to OTHER KEYWORDS field of ICD9 procedure file^OP^AICDADK

 +5       ;;Print ICD Diagnosis file in code order^EN^AICDPRTD

 +6       ;;Print ICD Procedure file in code order^EN^AICDPRTO

AICDTIL.m