AGTMIKEY.m

AGTMIKEY ; IHS/ASDS/EFG - Keyword Lookup Maintenance for INSURER File ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

KEYW 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"

 D ^DIE 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",DIC("W")="W "" - "",$P(^(0),U,2)"

 D ^DIE 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"

 D ^DIE K DR

 Q

AGTMIKEY  ; IHS/ASDS/EFG - Keyword Lookup Maintenance for INSURER File ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

KEYW       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        DO ^DIE

           KILL DR

 +4        QUIT 

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"

           SET DIC("W")="W "" - "",$P(^(0),U,2)"

 +4        DO ^DIE

           KILL DR

 +5        QUIT 

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        DO ^DIE

           KILL DR

 +4        QUIT