59.0135 (850)    INDEX (.11)

Name Value
FILE 59.0135
NAME AFDA1
DESCRIPTION 
This cross-reference ensures that only one printer can be set as the 
default printer for printing FDA Medication Guide per division. It sets 
this field to null for every other printer in the multiple.
SHORT DESCRIPTION Enforces only 1 default Med Guide Printer per Division.
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 59.0135
SET LOGIC N I F I=0:0 S I=$O(^PS(59,DA(1),"FDA",I)) Q:'I S:I'=DA $P(^PS(59,DA(1),"FDA",I,0),"^",2)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   59.0135
    FIELD:   .02
    MAXIMUM LENGTH:   1
    COLLATION:   forwards
KILL LOGIC Q