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

AICDESOP.m

Go to the documentation of this file.
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