   STAT = TRANS('LEDGER',OID%,6,'X')<1,GN>
             IF STAT # "I" THEN
             MSG = STAT
             SEND.MESSAGE 'Phantom','FELIXW',MSG
             TAG.KEY = 'OUTLOOK.ALLOWED'
             TAG.ID  = ''
             END