AICDESOP ; IHS/OHPRD/ACC - EDIT FREQUENTLY USED OP SYNONYMS ;
;;3.51;IHS ICD/CPT lookup & grouper;;MAY 30, 1991
S DIE="^AICDKWLC("
S DA=$O(^AICDKWLC("B","PROCEDURES","")) I 'DA W *7,"-- No PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",! Q
S DR="1"
D ^DIE
Q
AICDESOP ; IHS/OHPRD/ACC - EDIT FREQUENTLY USED OP SYNONYMS ;
+1 ;;3.51;IHS ICD/CPT lookup & grouper;;MAY 30, 1991
+2 SET DIE="^AICDKWLC("
+3 SET DA=$ORDER(^AICDKWLC("B","PROCEDURES",""))
IF 'DA
WRITE *7,"-- No PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",!
QUIT
+4 SET DR="1"
+5 DO ^DIE
+6 QUIT