| GENERAL DESCRIPTION |
Integrated Billing needs a ONE-TIME ONLY Integration
Agreement to allow manipulation of the data in a mail group entry set up with
a server option as a remote member. Since no utility exists to delete a remote
member from the mail group file, the following access is requested:
1. The ability to read the remote members from one mail group, add them to
another mail group, and delete them from the original mail group. This would
be done once, in the Post-install routine IBY232PO. The following code would
be used:
N IBMCR,IBMCH,DLAYGO,DIC,DIK,DA,D0,DD,Z,Z0 S
IBMCR=+$O(^XMB(3.8,"B","MCR",0)),IBMCH=+$O(^XMB(3.8,"B","MCH",0)) S Z=0 F S
Z=$O(^XMB(3.8,IBMCR,6,Z)) Q:'Z S Z0=$P($G(^XMB(3.8,IBMCR,6,Z,0)),U) I Z0'=""
D
. I '$D(^XMB(3.8,IBMCH,6,"B",Z0)) D
.. S DLAYGO=3.812,DIC(0)="L",X=Z0,DA(1)=IBMCH,DIC="^XMB(3.8,"_DA(1)_",6," D
FILE^DICN K DO,DD,DA,DLAYGO,DIC
.. I Y>0 S DA(1)=IBMCR,DA=Z,DIK="^XMB(3.8,"_DA(1)_",6," D ^DIK
|