399.042 (53)    INDEX (.11)

Name Value
FILE 399.042
NAME ADPR
SHORT DESCRIPTION DELETES PROCEDURE ENTRY FOR RX REVENUE CODES
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 399.042
SET LOGIC Q
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   399.042
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   399.042
    FIELD:   .15
    COLLATION:   forwards
KILL LOGIC I X(2)'=""&'$D(^TMP("IBCRRX",$J)) D DELPR^IBCU1(DA(1),X(2))