ABMDKINS.m

ABMDKINS ; IHS/ASDST/DMJ - Keyword Lookup Maintenance for INSURER File ;

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

 ;

KEYW ;OLD EP for adding keywords

 S DIE="^AICDKWLC("

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

 S DR="1"

 W !! D ^ABMDDIE K DR

 Q

 ;

REPL ;EP

 S DIE="^AICDKWLC("

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

 S DR="2"

 W !! D ^ABMDDIE K DR

 Q

 ;

FREQ S DIE="^AICDKWLC("

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

 S DR="1"

 W !! D ^ABMDDIE K DR

 Q

ABMDKINS  ; IHS/ASDST/DMJ - Keyword Lookup Maintenance for INSURER 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","INSURERS",""))

           IF 'DA

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

               QUIT 

 +3        SET DR="1"

 +4        WRITE !!

           DO ^ABMDDIE

           KILL DR

 +5        QUIT 

 +6       ;

REPL      ;EP

 +1        SET DIE="^AICDKWLC("

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

           IF 'DA

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

               QUIT 

 +3        SET DR="2"

 +4        WRITE !!

           DO ^ABMDDIE

           KILL DR

 +5        QUIT 

 +6       ;

FREQ       SET DIE="^AICDKWLC("

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

           IF 'DA

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

               QUIT 

 +2        SET DR="1"

 +3        WRITE !!

           DO ^ABMDDIE

           KILL DR

 +4        QUIT