XWB45PO.m

XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06  16:03

 ;;1.1;RPC BROKER;**45**;Mar 28, 1997

 ;

EN ;

 N XVALS,XWBIEN,XWBMSG

 S XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^127.0.0.1"

 S XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^127.0.0.1"

 S XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^127.0.0.1"

 N I F I=1:1:3 D

 . W !,I

 . N XWBLIST K XWBIEN,XWBMSG

 . S XWBLIST(8994.5,"?+1,",.01)=$P(XVALS(I),U,1)

 . S XWBLIST(8994.5,"?+1,",.02)=$P(XVALS(I),U,2)

 . S XWBLIST(8994.5,"?+1,",.03)=$P(XVALS(I),U,3)

 . S XWBLIST(8994.51,"?+2,?+1,",.01)=$P(XVALS(I),U,4)

 . S XWBLIST(8994.51,"?+2,?+1,",.02)=$P(XVALS(I),U,5)

 . S XWBLIST(8994.51,"?+2,?+1,",.03)=$P(XVALS(I),U,6)

 . K XWBIEN,XWBMSG

 . D UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XWB45PO   840     printed  Apr 09, 2024@21:39:37                                                                                                                                                                                                      Page 2

XWB45PO   ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06  16:03

 +1       ;;1.1;RPC BROKER;**45**;Mar 28, 1997

 +2       ;

EN        ;

 +1        NEW XVALS,XWBIEN,XWBMSG

 +2        SET XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^127.0.0.1"

 +3        SET XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^127.0.0.1"

 +4        SET XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^127.0.0.1"

 +5        NEW I

           FOR I=1:1:3

               Begin DoDot:1

 +6                WRITE !,I

 +7                NEW XWBLIST

                   KILL XWBIEN,XWBMSG

 +8                SET XWBLIST(8994.5,"?+1,",.01)=$PIECE(XVALS(I),U,1)

 +9                SET XWBLIST(8994.5,"?+1,",.02)=$PIECE(XVALS(I),U,2)

 +10               SET XWBLIST(8994.5,"?+1,",.03)=$PIECE(XVALS(I),U,3)

 +11               SET XWBLIST(8994.51,"?+2,?+1,",.01)=$PIECE(XVALS(I),U,4)

 +12               SET XWBLIST(8994.51,"?+2,?+1,",.02)=$PIECE(XVALS(I),U,5)

 +13               SET XWBLIST(8994.51,"?+2,?+1,",.03)=$PIECE(XVALS(I),U,6)

 +14               KILL XWBIEN,XWBMSG

 +15               DO UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")

 +16               QUIT 

               End DoDot:1

 +17       QUIT