|
Last change
on this file since 1800 was 623, checked in by George Lilly, 15 years ago |
|
revised back to 6/30/08 version
|
|
File size:
656 bytes
|
| Line | |
|---|
| 1 | XQCHK2 ; 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
|
|---|
| 4 | CHCKL(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
|
|---|
| 11 | CHCKRL(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.
