53.79 (146)    INDEX (.11)

Name Value
FILE 53.79
NAME APATCH
SHORT DESCRIPTION Updates APATCH when DFN or admin date/time changes.
TYPE REGULAR
EXECUTION FIELD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 53.79
SET LOGIC S ^PSB(53.79,"APATCH",X(1),X(2),DA)=""
SET CONDITION CODE S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,4)="PATCH")&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   53.79
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   53.79
    FIELD:   .06
    COLLATION:   forwards
KILL LOGIC K ^PSB(53.79,"APATCH",X(1),X(2),DA)
KILL CONDITION CODE S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,4)="PATCH" S X=1 Q
KILL ENTIRE INDEX CODE K ^PSB(53.79,"APATCH")