52 (250)    INDEX (.11)

Name Value
FILE 52
NAME APKI
DESCRIPTION
This cross-reference is used only to index digitally signed CPRS placed
orders by the issue date. It is primarily used to generate digitally 
signed prescriptions in the Digitally Signed Orders Report, which is made
available in the Controlled Substance package, as part of the PKI project.
SHORT DESCRIPTION This indexes the issue date.
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 52
SET LOGIC I +$P($G(^PSRX(DA,"PKI")),"^")=1 S ^PSRX("APKI",$E(X,1,30),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   52
    FIELD:   1
    MAXIMUM LENGTH:   30
    COLLATION:   forwards
KILL LOGIC K ^PSRX("APKI",$E(X,1,30),DA)
KILL ENTIRE INDEX CODE K ^PSRX("APKI")