798.87 (369)    INDEX (.11)

Name Value
FILE 798.87
NAME APSR
DESCRIPTION 
 
   7     NAME   ( 9)          6   "SMITH, BOB"
   8     DOB    (10)          6   "1935/10/05"
 
 
        Parent  Element
         IEN     (int)   IEN
        ------  -------  ---
 "APSR",  3,       9,     4
 "APSR",  3,      10,     5
 "APSR",  6,       9,     7
 IEN  Element (int)   Parent IEN  Value
 "APSR",  6,      10,     8
 ---  --------------  ----------  ------------
   1  REPORT    ( 1)          0
   2   PATIENTS ( 3)          1
   3    PATIENT ( 5)          2
   4     NAME   ( 9)          3   "DOU, JOHN"
   5     DOB    (10)          3   "1950/03/25"
   6    PATIENT ( 5)          2
SHORT DESCRIPTION Sort Elements
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 798.87
SET LOGIC S ^RORDATA(798.8,DA(1),"RI","APSR",X(1),X(2),DA)=""
SET CONDITION CODE S X=(X(3)>0)
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   798.87
    FIELD:   .02
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   798.87
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   798.87
    FIELD:   .03
    COLLATION:   forwards
KILL LOGIC K ^RORDATA(798.8,DA(1),"RI","APSR",X(1),X(2),DA)
KILL ENTIRE INDEX CODE K ^RORDATA(798.8,DA(1),"RI","APSR")