| FILE |
870 |
| NAME |
AD1 |
| SHORT DESCRIPTION |
Used to find the link overwhich to send the application acknowledgment. |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
ACTION |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
870 |
| SET LOGIC |
D SET2^HLOTLNK(X(1),X(3)) |
| SET CONDITION CODE |
S X=0 I X(4)="C",X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="TCP" S X=1 |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 870
- FIELD: .01
- COLLATION: forwards
-
- ORDER NUMBER: 2
- SUBSCRIPT NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 870
- FIELD: 2
- COLLATION: forwards
-
- ORDER NUMBER: 3
- SUBSCRIPT NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 870
- FIELD: .08
- COLLATION: forwards
-
- ORDER NUMBER: 4
- SUBSCRIPT NUMBER: 4
- TYPE OF VALUE: FIELD
- FILE: 870
- FIELD: 400.03
- COLLATION: forwards
|
| KILL LOGIC |
D KILL2^HLOTLNK(X(1),X(3)) |
| KILL CONDITION CODE |
S X=0 I X(4)="C",X(2),$P($G(^HLCS(869.1,X(2),0)),"^")="TCP" S X=1 |
