ABPAAIL.m

ABPAAIL ;PRINT ALPHA LIST OF INSURERS [ 05/03/91  10:01 AM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 D ^%AUCLS W !!

 W "Print ALPHA LIST OF INSURERS.....",!!!

 S L=0,DIC="^AUTNINS(",BY="[ABPAINSLIST]"

 S DHD=$P(^DIC(4,DUZ(2),0),"^",1)_" - INSURANCE CARRIER LIST"

 W ! D EN1^DIP

 W !!,"End of report...please press <RETURN> to continue " R X:DTIME

 K L,DIC,BY,X,DHD Q

ABPAAIL   ;PRINT ALPHA LIST OF INSURERS [ 05/03/91  10:01 AM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 +2        DO ^%AUCLS

           WRITE !!

 +3        WRITE "Print ALPHA LIST OF INSURERS.....",!!!

 +4        SET L=0

           SET DIC="^AUTNINS("

           SET BY="[ABPAINSLIST]"

 +5        SET DHD=$PIECE(^DIC(4,DUZ(2),0),"^",1)_" - INSURANCE CARRIER LIST"

 +6        WRITE !

           DO EN1^DIP

 +7        WRITE !!,"End of report...please press <RETURN> to continue "

           READ X:DTIME

 +8        KILL L,DIC,BY,X,DHD

           QUIT