52.5 (248)    INDEX (.11)

Name Value
FILE 52.5
NAME CMP
SHORT DESCRIPTION CMOP STATUS,RX TYPE (C OR N),DIVISION,DATE,PATIENT
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE LOOKUP & SORTING
ROOT TYPE INDEX FILE
ROOT FILE 52.5
SET LOGIC S ^PS(52.5,"CMP",X(1),$E(X(2),1,2),X(3),X(4),X(5),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   52.5
    FIELD:   3
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$$CMPRXTYP^PSOCMOP(DA)
    MAXIMUM LENGTH:   2
    COLLATION:   forwards
    LOOKUP PROMPT:   TYPE - C or N
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   52.5
    FIELD:   .06
    COLLATION:   forwards
  • ORDER NUMBER:   4
    SUBSCRIPT NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   52.5
    FIELD:   .02
    COLLATION:   forwards
  • ORDER NUMBER:   5
    SUBSCRIPT NUMBER:   5
    TYPE OF VALUE:   FIELD
    FILE:   52.5
    FIELD:   .03
    COLLATION:   forwards
KILL LOGIC K ^PS(52.5,"CMP",X(1),$E(X(2),1,2),X(3),X(4),X(5),DA)
KILL ENTIRE INDEX CODE K ^PS(52.5,"CMP")