53.795 (148)    INDEX (.11)

Name Value
FILE 53.795
NAME APATCH
SHORT DESCRIPTION Sets the APATCH cross-reference when unit of administration is PATCH
TYPE MUMPS
EXECUTION FIELD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 53.795
SET LOGIC N I S I=0 X "F S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I Q:$P($G(^(I,0)),U,4)=""PATCH"" Q:$P(^PSB(53.79,DA(1),0),U,9)'=""G""" S:I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))
SET CONDITION CODE S X=X1(3)="PATCH"!(X2(3)="PATCH")&(X2(3)]"")
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P(^PSB(53.79,DA(1),0),U)
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P(^PSB(53.79,DA(1),0),U,6)
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   53.795
    FIELD:   .04
    COLLATION:   forwards
KILL LOGIC N I S I=0 X "F S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I Q:$P($G(^(I,0)),U,4)=""PATCH""&(I'=DA)" S:I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))
KILL CONDITION CODE S X=X1(3)="PATCH"&(X2(3)="")