Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- XUCT031.m:6: I X'="" K ^XUSEC(0,"AS1",X,DA) ; $P(X,":"),DA) ; CKU ; IPv6 *BUG*!!
- XUCT031.m:8: I X'="" N % S %=^XUSEC(0,DA,0) K ^XUSEC(0,"AS3",$P(%,U),X,DA) ; $P(X,":"),DA) ; CKU
- XUCT032.m:16: I X'="" S:'$P(^XUSEC(0,DA,0),U,4) ^XUSEC(0,"AS1",X,DA)="" ; $P(X,":"),DA)="" ; CKU
- XUCT032.m:18: I X'="" N % S %=^XUSEC(0,DA,0) I '$P(%,U,4) S ^XUSEC(0,"AS3",$P(%,U),X,DA)="" ; $P(X,":"),DA)="" ; CKU
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement