source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQCHK2.m@ 1261

Last change on this file since 1261 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 656 bytes
Line 
1XQCHK2 ; BP/BDT - GET CALL FROM XQCHK ; [7/19/06 10:45am]
2 ;;8.0;KERNEL;**427**;Jul 10, 1995;Build 3
3 ; Entry point for checking all Locks for a option
4CHCKL(XQCY0,DUZ) ;
5 N XQI,XQY,XQX,XQRT,XQK S (XQRT,XQX)=0
6 S XQY=$P(XQCY0,"^",5)
7 F XQI=1:1 S XQX=$P(XQY,",",XQI) Q:'XQX D
8 . I +XQX S XQK=$$GET1^DIQ(19,XQX,3) I XQK'="",'$D(^XUSEC(XQK,DUZ)) S XQRT=1_"^"_XQK Q
9 Q XQRT
10 ; Entry point for checking all Reversed Locks for a option
11CHCKRL(XQCY0,DUZ) ;
12 N XQI,XQY,XQX,XQRT,XQK S (XQRT,XQX)=0
13 S XQY=$P(XQCY0,"^",5)
14 F XQI=1:1 S XQX=$P(XQY,",",XQI) Q:'XQX D
15 . I +XQX S XQK=$$GET1^DIQ(19,XQX,3.01) I XQK'="",$D(^XUSEC(XQK,DUZ)) S XQRT=1_"^"_XQK Q
16 Q XQRT
Note: See TracBrowser for help on using the repository browser.