MAGGTID ;WOIFO/SRR/RED/SAF/GEK/SG/JSL/NST - Deletion of Images and Pointers ;
Source file <MAGGTID.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMAGEDEL(MAGGRY,MAGIEN,MAGGRPDF,REASON) | ;RPC [MAGG IMAGE DELETE]
; Call to Delete Image entry from Image file ^MAG(2005 ; MAGIEN Image IEN ^ SYSDEL flag ; MAGGRPDF group delete flag 1 = group delete allowed ; SYSDEL Flag that forces delete, even if no KEY ; |
|
| DELETE(RY,MAGIEN,DF,GRPDF,REASON) | ;RPC [MAGQ DIK] Entry point for silent call
|
|
| DEL1IMG | ;
|
|
| NOIMAGE(MAGNOT) | ; P150 Whole function is new. This is called when No Image exists.
; Clear the Fields #2, #2.1 and 102 This is the Abstract, Full and BIG ; pointers to the Image Share (Image Network Drive) ( Tier1 ) ; Set Status and Status Reason ; Set SysDel and GrpDel Flags to allow deleting in all instances. |
|
| RTRNERR(ETXT) | ; There was error from UPDATE^DIE quit with error text
; P150 this function put in to keep NOIMAGE same |
|
| DELGRP | ;del grp ptrs and check to see if this is the last image in the group
|
|
| SETDEL(MAGIEN,REASON) | ; set deletion fields
|
|
| SETSTAT(MAGIEN,STAT) | ; p150 new function. Set STATUS fields
|
|
| ARCHIVE(MAGARCIE) | ;save image data before deletion
|
|
| DELFILE | ;Delete image file on server if exists
|
| RPC Name | Call Tags |
|---|---|
| MAGG IMAGE DELETE | IMAGEDEL |
| MAGQ DIK | DELETE |
| FileNo | Call Tags |
|---|---|
| ^MAG(2005 - [#2005] | Classic Fileman Calls |
| ^MAG(2005.1 - [#2005.1] | Classic Fileman Calls |
