In file 200 I file some address information, etc. Here's the snip of the code:
S DIC="^VA(200,",DIC(0)="F" D DO^DIC1 S X=$P(L1,U) L +^VA(200,"AA") S DA=$O(^VA(200,"AA"),-1) D FILE^DICN L -^VA(200,"AA") I +Y<0 W !,"Error" G ACTIVATE S IEN=+Y_"," K FDA,^TMP("DIERR",$J) S FDA(200,IEN,1)=$P(L2,U,2) S FDA(200,IEN,.111)=$P(L1,U,2) S FDA(200,IEN,.112)=$P(L1,U,3) S FDA(200,IEN,.114)=$P(L1,U,4) S FDA(200,IEN,.115)=$P(L1,U,5) S FDA(200,IEN,.116)=$P(L1,U,6) S FDA(200,IEN,.131)=$P(L1,U,7) S FDA(200,IEN,.132)=$P(L1,U,8) S FDA(200,IEN,.151)=$P(L2,U) S FDA(200,IEN,201)=10217 S FDA(200,IEN,250.01)=$P(L1,U,10) S FDA(200,IEN,250.02)=$P(L1,U,11) ; Generate a unique ACCESS CODE F S XUU=$$AC^XUS4 S (X,XUH)=$$EN^XUSHSH(XUU) Q:'($D(^VA(200,"A",X))!$D(^VA(200,"AOLD",X))) S FDA(200,IEN,2)=XUH D FILE^DIE("","FDA") ; File the new user's information in the New Person file I $D(^TMP("DIERR",$J)) W !,"Error on file" K ^TMP("DIERR",$J) G ACTIVATE S Y=+IEN I $D(^XMB(3.7,Y,0))[0 D NEW^XM ;Make sure the new user has a Mailbox -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Greg Woodhouse Sent: Tuesday, June 21, 2005 2:03 PM To: hardhats-members@lists.sourceforge.net Subject: Re: [Hardhats-members] UPDATE^DIE There are a few files like 2 and 200 that have so much logic built into the DD (try looking at a standard listing) that doing bulk updates like this is all but a lost cause. You can try tracking it down, but most likely you'll have to build your entries incrementally, following the logic in the Registration module, or something similar. (Editorial aside: I don't think things have to be that way, they just are.) --- "Theriot, Derek" <[EMAIL PROTECTED]> wrote: > I am trying to populate the NEW PERSON file by reading a text file I > received from an existing application. I have written a routine that > will > read the file and create the FDA array. However when it gets to the > UPDATE^DIE call, I get the following message: > > > > . S [EMAIL PROTECTED]@($TR(P,"+?")) > > ^ > > <UNDEFINED>ADDCONV+5^DIEF1 > > > > I am only trying to load a few fields for now just to try to get it > working. > I think I have the required fields covered (NAME, SERVICE/SECTION). > Is > there something I'm missing? Does anyone have a better suggestion > for > accomplishing this? > > > > Thanks. > > > > > > "The most profound technologies are those that disappear." --Mark Weiser ==== Greg Woodhouse [EMAIL PROTECTED] [EMAIL PROTECTED] ------------------------------------------------------- SF.Net email is sponsored by: Discover Easy Linux Migration Strategies from IBM. Find simple to follow Roadmaps, straightforward articles, informative Webcasts and more! Get everything you need to get up to speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click _______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members ------------------------------------------------------- SF.Net email is sponsored by: Discover Easy Linux Migration Strategies from IBM. Find simple to follow Roadmaps, straightforward articles, informative Webcasts and more! Get everything you need to get up to speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click _______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members