451 (1007)    INDEX (.11)

Name Value
FILE 451
NAME ACR
DESCRIPTION
Cross reference contains all "Released" daily corrections to POC records 
for which the pay period has already been released.  The index is sorted 
by Division, pay period, nurse and then day number.
SHORT DESCRIPTION x-ref contains all released corrections
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE WHOLE FILE
ROOT FILE 451.99
SET LOGIC S ^PRSN(451,"ACR",X(1),DA(2),DA(1),DA)=""
SET CONDITION CODE S X=X(2)="R"
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P($G(^PRSN(451,DA(2),"E",DA(1),0)),U,5)
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   451.99
    FIELD:   1
    COLLATION:   forwards
KILL LOGIC K ^PRSN(451,"ACR",X(1),DA(2),DA(1),DA)
KILL ENTIRE INDEX CODE K ^PRSN(451,"ACR")