Last change
on this file since 1641 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
524 bytes
|
Line | |
---|
1 | XMAD2 ;ISC-SF/GMB-Basket lookup/create API ;04/17/2002 07:31
|
---|
2 | ;;8.0;MailMan;;Jun 28, 2002
|
---|
3 | ; Was (WASH ISC)/CAP
|
---|
4 | ;
|
---|
5 | ; Entry points (DBIA 1147):
|
---|
6 | ; BSKT Lookup/create a basket, return its number
|
---|
7 | ;
|
---|
8 | BSKT(XMKN,XMDUZ) ; Find or Create a basket / return its internal number
|
---|
9 | ; Needs:
|
---|
10 | ; XMKN Basket-name
|
---|
11 | ; XMDUZ User's DUZ
|
---|
12 | N XMK,XMER
|
---|
13 | S XMK=$$FIND1^DIC(3.701,","_XMDUZ_",","X",XMKN)
|
---|
14 | Q:XMK XMK
|
---|
15 | D CRE8BSKT^XMXAPIB(XMDUZ,XMKN,.XMK)
|
---|
16 | Q:'$D(XMERR) XMK
|
---|
17 | S XMER=^TMP("XMERR",$J,1,"TEXT",1)
|
---|
18 | K XMERR,^TMP("XMERR",$J)
|
---|
19 | Q XMER
|
---|
Note:
See
TracBrowser
for help on using the repository browser.