source: FOIAVistA/tag/r/MAILMAN-XM/XMAD2.m@ 1746

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

initial load of FOIAVistA 6/30/08 version

File size: 524 bytes
Line 
1XMAD2 ;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 ;
8BSKT(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.