20 lines
524 B
Mathematica
20 lines
524 B
Mathematica
XMAD2 ;ISC-SF/GMB-Basket lookup/create API ;04/17/2002 07:31
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
; Was (WASH ISC)/CAP
|
|
;
|
|
; Entry points (DBIA 1147):
|
|
; BSKT Lookup/create a basket, return its number
|
|
;
|
|
BSKT(XMKN,XMDUZ) ; Find or Create a basket / return its internal number
|
|
; Needs:
|
|
; XMKN Basket-name
|
|
; XMDUZ User's DUZ
|
|
N XMK,XMER
|
|
S XMK=$$FIND1^DIC(3.701,","_XMDUZ_",","X",XMKN)
|
|
Q:XMK XMK
|
|
D CRE8BSKT^XMXAPIB(XMDUZ,XMKN,.XMK)
|
|
Q:'$D(XMERR) XMK
|
|
S XMER=^TMP("XMERR",$J,1,"TEXT",1)
|
|
K XMERR,^TMP("XMERR",$J)
|
|
Q XMER
|