Routine: AUTNKWLD

AUTNKWLD ; IHS/DIRM/JDM/DFM - DRIVER ROUTINE FOR "AND"ING INVERTED LIST SEARCHES ;   [ 03/04/98   8:10 AM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 ; AICDDESC,AICDH,AICDMULT,AICDREF0 ARE PASSED IN AND SHOULD NOT

 ;  BE KILLED

 ; AICDKSCH,AICDX ARE KILLED BY AICDKWL

INS ;EP ;

 S AICDX=X K AICDKSCH S AICDKSCH("TYPE")="INSURERS",AICDKSCH("GBL")="^AUTNINS(",AICDKSCH("INDEX")="C",AICDKSCH("DSPLY")="DSPLYIN^AUTNKWLD" G COMMON

COMMON I $D(DIC(0)),DIC(0)["A" W !

 S X=AICDX,AICDX="" F %=1:1 S AICDC=$E(X,%) Q:AICDC=""  S:AICDC?1L AICDC=$C($A(AICDC)-32) S AICDX=AICDX_AICDC

 K AICDC

 D ^AICDKWL

DSPLYIN ; DISPLAY CODE AND TEXT FOR INSURER

 W:AICDMULT $J(AICDH,3),": "

 W $P(@(AICDREF0),"^"),?37,"- ",$P(@(AICDREF0),"^",2) I $D(^(1)),$P(^(1),U,6)]"",$D(^DIC(5,$P(^(1),U,6),0)) W ?70,"Domain: ",$P(^(0),U,2)

 W !?39,$P(@(AICDREF0),"^",3)

 I $P(@(AICDREF0),"^",4)]"" W ", ",$P(^DIC(5,$P(^(0),"^",4),0),"^",2)," ",$P(@(AICDREF0),"^",5)

W !

 K AICDREFD

AUTNKWLD  ; IHS/DIRM/JDM/DFM - DRIVER ROUTINE FOR "AND"ING INVERTED LIST SEARCHES ;   [ 03/04/98   8:10 AM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 +2       ;

 +3       ; AICDDESC,AICDH,AICDMULT,AICDREF0 ARE PASSED IN AND SHOULD NOT

 +4       ;  BE KILLED

 +5       ; AICDKSCH,AICDX ARE KILLED BY AICDKWL

 +6       ;

INS       ;EP ;

 +1        SET AICDX=X

           KILL AICDKSCH

           SET AICDKSCH("TYPE")="INSURERS"

           SET AICDKSCH("GBL")="^AUTNINS("

           SET AICDKSCH("INDEX")="C"

           SET AICDKSCH("DSPLY")="DSPLYIN^AUTNKWLD"

           GOTO COMMON

 +2       ;

COMMON     IF $DATA(DIC(0))

               IF DIC(0)["A"

                   WRITE !

 +1        SET X=AICDX

           SET AICDX=""

           FOR %=1:1

               SET AICDC=$EXTRACT(X,%)

               IF AICDC=""

                   QUIT

               IF AICDC?1L

                   SET AICDC=$CHAR($ASCII(AICDC)-32)

               SET AICDX=AICDX_AICDC

 +2        KILL AICDC

 +3        DO ^AICDKWL

 +4        QUIT

 +5       ;

DSPLYIN   ; DISPLAY CODE AND TEXT FOR INSURER

 +1        IF AICDMULT

               WRITE $JUSTIFY(AICDH,3),": "

 +2        WRITE $PIECE(@(AICDREF0),"^"),?37,"- ",$PIECE(@(AICDREF0),"^",2)

           IF $DATA(^(1))

               IF $PIECE(^(1),U,6)]""

                   IF $DATA(^DIC(5,$PIECE(^(1),U,6),0))

                       WRITE ?70,"Domain: ",$PIECE(^(0),U,2)

 +3        WRITE !?39,$PIECE(@(AICDREF0),"^",3)

 +4        IF $PIECE(@(AICDREF0),"^",4)]""

               WRITE ", ",$PIECE(^DIC(5,$PIECE(^(0),"^",4),0),"^",2)," ",$PIECE(@(AICDREF0),"^",5)

 +5        WRITE !

 +6        KILL AICDREFD

 +7        QUIT

AUTNKWLD.m