| [613] | 1 | XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06 16:03
|
|---|
| 2 | ;;1.1;RPC BROKER;**45**;Mar 28, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;
|
|---|
| 5 | N XVALS,XWBIEN,XWBMSG
|
|---|
| 6 | S XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^10.6.21.14"
|
|---|
| 7 | S XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^10.6.21.14"
|
|---|
| 8 | S XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^10.161.12.182"
|
|---|
| 9 | N I F I=1:1:3 D
|
|---|
| 10 | . W !,I
|
|---|
| 11 | . N XWBLIST K XWBIEN,XWBMSG
|
|---|
| 12 | . S XWBLIST(8994.5,"?+1,",.01)=$P(XVALS(I),U,1)
|
|---|
| 13 | . S XWBLIST(8994.5,"?+1,",.02)=$P(XVALS(I),U,2)
|
|---|
| 14 | . S XWBLIST(8994.5,"?+1,",.03)=$P(XVALS(I),U,3)
|
|---|
| 15 | . S XWBLIST(8994.51,"?+2,?+1,",.01)=$P(XVALS(I),U,4)
|
|---|
| 16 | . S XWBLIST(8994.51,"?+2,?+1,",.02)=$P(XVALS(I),U,5)
|
|---|
| 17 | . S XWBLIST(8994.51,"?+2,?+1,",.03)=$P(XVALS(I),U,6)
|
|---|
| 18 | . K XWBIEN,XWBMSG
|
|---|
| 19 | . D UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")
|
|---|
| 20 | . Q
|
|---|
| 21 | Q
|
|---|
