| 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)="") |
