ABMDKCPT.m

ABMDKCPT ; IHS/ASDST/DMJ - Keyword Lookup Maintenance for CPT File ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

KEYW ;OLD EP for adding keywords

 S DIE="^AICDKWLC("

 S DA=$O(^AICDKWLC("B","CPT PROCEDURES","")) I 'DA W *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",! Q

 S DR="1"

 D ^ABMDDIE K DR

 Q

 ;

REPL ;EP

 S DIE="^AICDKWLC("

 S DA=$O(^AICDKWLC("B","CPT PROCEDURES","")) I 'DA W *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",! Q

 S DR="2"

 D ^ABMDDIE K DR

 Q

 ;

FREQ S DIE="^AICDKWLC("

 S DA=$O(^AICDKWLC("B","CPT PROCEDURES","")) I 'DA W *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",! Q

 S DR="1"

 D ^ABMDDIE K DR

 Q

ABMDKCPT  ; IHS/ASDST/DMJ - Keyword Lookup Maintenance for CPT File ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

KEYW      ;OLD EP for adding keywords

 +1        SET DIE="^AICDKWLC("

 +2        SET DA=$ORDER(^AICDKWLC("B","CPT PROCEDURES",""))

           IF 'DA

               WRITE *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",!

               QUIT 

 +3        SET DR="1"

 +4        DO ^ABMDDIE

           KILL DR

 +5        QUIT 

 +6       ;

REPL      ;EP

 +1        SET DIE="^AICDKWLC("

 +2        SET DA=$ORDER(^AICDKWLC("B","CPT PROCEDURES",""))

           IF 'DA

               WRITE *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",!

               QUIT 

 +3        SET DR="2"

 +4        DO ^ABMDDIE

           KILL DR

 +5        QUIT 

 +6       ;

FREQ       SET DIE="^AICDKWLC("

 +1        SET DA=$ORDER(^AICDKWLC("B","CPT PROCEDURES",""))

           IF 'DA

               WRITE *7,"-- No CPT PROCEDURES subfile in KEYWORD LOOKUP CONTROL file",!

               QUIT 

 +2        SET DR="1"

 +3        DO ^ABMDDIE

           KILL DR

 +4        QUIT