Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: APCUTIL

APCUTIL.m

Go to the documentation of this file.
  1. APCUTIL ; MENU DRIVER FOR PCIS DEVELOPMENT UTILITIES ; [ 07/29/86  5:12 PM ]
  1. MAINLP W !!,?10,"- - PCIS Development Utilities - -",!!
  1.  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,!
  1.  W !
  1.  S NL=I-1
  1. ASK W "Select 1-",NL,": " R A,!
  1.  I A'=""&(A'?1N.N!((A<1)!(A>NL))) G ASK
  1.  I A'="" S R=$P($T(MENU+A),"^",2,99) D @R G MAINLP
  1.  K I,L,NL,R,A
  1.  W !,"B y e . . .",!
  1.  Q
  1.  ;
  1.  ;;Test ICD9 Diagnosis code lookup^D^APCUTICD
  1.  ;;Test ICD9 Procedure code lookup^P^APCUTICD
  1.  ;;Add to OTHER KEYWORDS field of ICD9 diagnosis file^DX^APCUADDK
  1.  ;;Add to OTHER KEYWORDS field of ICD9 procedure file^OP^APCUADDK
  1.  ;;Find ICD Diagnosis codes with selected OTHER KEYWORD^^APCUOKCK