|
Last change
on this file since 862 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
524 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
