- 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