Last change
on this file since 1449 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
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.