MAGGSIM ;WOIFO/GEK - Call to Modify Image File entry ; [ 12/27/2000 10:49 ]
Source file <MAGGSIM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MOD(MAGRY,MAGARRAY) | ; RPC Call to UPDATE^DIE to Add an Image File entry
; Parameters : ; MAGARRAY - array of field numbers and their entries ; i.e. MAGARRAY(1)=".5^38" field# .5 data is 38 ; If Long Description is included in array (field 11), we create a new ; array to hold the text, and pass that to UPDATE^DIE ; If this entry is an Image Group ; i.e. MAGARRAY(n)="2005.04^344" ; (the field 2005.04 is the OBJECT GROUP MULTIPLE) ; ( 344 is the pointer to the Image File Entry that will be added ; ( as a member of this new/existing Group) |
|
| UPDPAR(MAGERR,MAGRPDA,MAGACT,MAGGDA) | ;
; We're here beceause this image is a member of a Group ; so we will modify the Group Parent, adding this to it's group ; HERE we will also send the 'Series Number' and 'Image Number' if ; they exist; |
|
| UPDCHLD(MAGCHLD,MAGGDA) | ;
|
|
| RTRNERR(ETXT) | ; There was error from FILE^DIE quit with error text
|
