XQCHK2 ; BP/BDT - GET CALL FROM XQCHK ; [7/19/06 10:45am]
 ;;8.0;KERNEL;**427**;Jul 10, 1995;Build 3
 ; Entry point for checking all Locks for a option
CHCKL(XQCY0,DUZ) ;
 N XQI,XQY,XQX,XQRT,XQK S (XQRT,XQX)=0
 S XQY=$P(XQCY0,"^",5)
 F XQI=1:1  S XQX=$P(XQY,",",XQI) Q:'XQX  D
 . I +XQX S XQK=$$GET1^DIQ(19,XQX,3) I XQK'="",'$D(^XUSEC(XQK,DUZ)) S XQRT=1_"^"_XQK Q
 Q XQRT
 ; Entry point for checking all Reversed Locks for a option
CHCKRL(XQCY0,DUZ) ;
 N XQI,XQY,XQX,XQRT,XQK S (XQRT,XQX)=0
 S XQY=$P(XQCY0,"^",5)
 F XQI=1:1  S XQX=$P(XQY,",",XQI) Q:'XQX  D
 . I +XQX S XQK=$$GET1^DIQ(19,XQX,3.01) I XQK'="",$D(^XUSEC(XQK,DUZ)) S XQRT=1_"^"_XQK Q 
 Q XQRT