Routine: MAGGTID

Information

MAGGTID ;WOIFO/SRR/RED/SAF/GEK/SG/JSL/NST - Deletion of Images and Pointers ;

Package	Total	Call Graph
Imaging	12	$$DELETE^MAGBAPI $$DA2PLC^MAGBAPIP (ABSNOCP,BIGNOCP,VSTNOCP)^MAGFILEB ACTION^MAGGTAU ENTRY^MAGLOG DELPAR^MAGSDEL2 DELETE^MAGSIMBR KILPPXD^MAGUXRF ($$GETVAL,$$ISOK)^MAGVAF02 (,GETACN)^MAGVD003 DELNEW^MAGVD008 $$STATSEP^MAGVRS41
VA FileMan	4	%XY^%RCR (,UPDATE)^DIE (,IX1)^DIK CLEAN^DILF
Kernel	3	GETENV^%ZOSV $$NOW^XLFDT $$UP^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Imaging	8	MAGDIR85 MAGG IMAGE DELETE MAGGSIU4 MAGNID01 MAGQ DIK MAGQBUT1 MAGSDLGR MAGVD002

Entry Points

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

External References

Name	Field # of Occurrence
%XY^%RCR	ARCHIVE+4
GETENV^%ZOSV	DELETE+17
^DIE	SETDEL+7, SETSTAT+4
UPDATE^DIE	NOIMAGE+18
^DIK	DEL1IMG+27, NOIMAGE+22, DELGRP+8, DELGRP+22
IX1^DIK	ARCHIVE+22
CLEAN^DILF	NOIMAGE+24
$$DELETE^MAGBAPI	DELFILE+16, DELFILE+24, DELFILE+31, DELFILE+38
$$DA2PLC^MAGBAPIP	DELFILE+14, DELFILE+31, DELFILE+38
ABSNOCP^MAGFILEB	DELFILE+30
BIGNOCP^MAGFILEB	DELFILE+37
VSTNOCP^MAGFILEB	DELFILE+15
ACTION^MAGGTAU	DEL1IMG+36, DELGRP+26
ENTRY^MAGLOG	DEL1IMG+33, DELGRP+24
DELPAR^MAGSDEL2	DEL1IMG+2, DELGRP+14
DELETE^MAGSIMBR	DELETE+27
KILPPXD^MAGUXRF	DEL1IMG+23
$$GETVAL^MAGVAF02	DELGRP+20
$$ISOK^MAGVAF02	DELGRP+20
^MAGVD003	DELGRP+17
GETACN^MAGVD003	DELGRP+19
DELNEW^MAGVD008	DELETE+47, DEL1IMG+44
$$STATSEP^MAGVRS41	DELETE+46, DEL1IMG+43
$$NOW^XLFDT	SETDEL+4
$$UP^XLFSTR	DELETE+22

Used in RPC

RPC Name	Call Tags
MAGG IMAGE DELETE	IMAGEDEL
MAGQ DIK	DELETE

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^MAG(2005 - [#2005]	Classic Fileman Calls
^MAG(2005.1 - [#2005.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2005 - [#2005]	IMAGEDEL+9, IMAGEDEL+12, DELETE+29, DELETE+31, DELETE+33, DELETE+37, DELETE+38, DEL1IMG+8, DEL1IMG+30!, DELGRP+2 , DELGRP+6, DELGRP+7, DELGRP+10, DELGRP+11, DELFILE+10, DELFILE+34
^MAG(2005.1 - [#2005.1]	ARCHIVE+2, ARCHIVE+6, ARCHIVE+7, ARCHIVE+8, ARCHIVE+16, ARCHIVE+17*
^MAG(2005.88 - [#2005.88]	NOIMAGE+7
^MAG(2006.1 - [#2006.1]	DELFILE+21, DELFILE+22

Label References

Name	Line Occurrences
ARCHIVE	DEL1IMG+17, DELGRP+22
DEL1IMG	DELETE+38
DELETE	IMAGEDEL+11
DELFILE	DEL1IMG+20
DELGRP	DEL1IMG+9
NOIMAGE	DELETE+25
RTRNERR	NOIMAGE+21
SETDEL	DEL1IMG+14, NOIMAGE+8, DELGRP+22
SETSTAT	DEL1IMG+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	ARCHIVE+1~, ARCHIVE+3*
%Y	ARCHIVE+1~, ARCHIVE+3*
ALTEXT	DELFILE+3~, DELFILE+22*, DELFILE+23
ALTPATH	DELFILE+3~, DELFILE+23*, DELFILE+24
DA	DEL1IMG+23, DEL1IMG+26!, NOIMAGE+22, NOIMAGE+23!, DELGRP+4!, DELGRP+8, DELGRP+22, SETDEL+1~, SETDEL+7, SETSTAT+1~ , SETSTAT+4, ARCHIVE+1~, ARCHIVE+21
DA(1	DEL1IMG+26!, DELGRP+4!, DELGRP+8*
DA(2	DEL1IMG+26!, DELGRP+4!
DELMSG	DEL1IMG+1~, DEL1IMG+3
DF	DELETE~, DEL1IMG+20
DIC	DEL1IMG+26!, NOIMAGE+23!, DELGRP+4!
DIE	DEL1IMG+26!, DELGRP+4!, SETDEL+1~, SETDEL+7, SETSTAT+1~, SETSTAT+4
>> DIERR	NOIMAGE+20
DIK	DEL1IMG+26!, NOIMAGE+22, NOIMAGE+23!, DELGRP+4!, DELGRP+8, DELGRP+22, ARCHIVE+1~, ARCHIVE+22*
DIR	DEL1IMG+26!, DELGRP+4!
DR	DEL1IMG+26!, DELGRP+4!, SETDEL+1~, SETDEL+6, SETSTAT+1~, SETSTAT+3
DUZ	DEL1IMG+33, DELGRP+24, SETDEL+6
ETXT	RTRNERR~, RTRNERR+2*
GRPDEL	DELETE+20~, DELETE+36*, DEL1IMG+41
GRPDF	DELETE~, DELETE+31, DELETE+33
IEN	IMAGEDEL+6~, IMAGEDEL+8*, IMAGEDEL+9, IMAGEDEL+10, IMAGEDEL+12
MAGACN	DELETE+20~, DELETE+44, DELETE+47, DEL1IMG+41, DEL1IMG+44, DELGRP+20*
MAGARCIE	ARCHIVE~, ARCHIVE+3, ARCHIVE+16, ARCHIVE+17, ARCHIVE+21
MAGCNT	ARCHIVE+1~, ARCHIVE+2*, ARCHIVE+7
MAGDA	NOIMAGE+5~, NOIMAGE+10*, NOIMAGE+22
MAGDFN	DEL1IMG+1~, DEL1IMG+8*, DEL1IMG+23, DEL1IMG+30, DEL1IMG+33, DEL1IMG+35, DELGRP+24, DELGRP+25
MAGERR	DELETE+20~, DEL1IMG+3, DEL1IMG+10, NOIMAGE+5~, NOIMAGE+20, NOIMAGE+21, DELGRP+16
MAGFAIL	DELETE+34~, DELETE+35, DELETE+40, DELETE+42, DELETE+43, DELETE+44
MAGFILE2	DELFILE+3~, DELFILE+16, DELFILE+23, DELFILE+31, DELFILE+38
MAGGRP	DELETE+34~, DELETE+37, DELETE+38, DELETE+42, DELETE+48, DELGRP+1~, DELGRP+2, DELGRP+3, DELGRP+6, DELGRP+7 , DELGRP+8, DELGRP+10, DELGRP+11, DELGRP+13, DELGRP+19, DELGRP+22, DELGRP+24, DELGRP+25, DELGRP+27
MAGGRPDF	IMAGEDEL~, IMAGEDEL+8*, IMAGEDEL+11
MAGGRY	IMAGEDEL~, IMAGEDEL+11
MAGGRY(0	IMAGEDEL+10*
MAGGXE	NOIMAGE+5~
MAGGXE("DIERR"	RTRNERR+2
MAGIEN	IMAGEDEL~, IMAGEDEL+8, IMAGEDEL+11, DELETE~, DELETE+22, DELETE+23, DELETE+25, DELETE+27, DELETE+29, DELETE+31 , DELETE+33, DELETE+34~, DELETE+38, DELETE+40, DEL1IMG+8, DEL1IMG+14, DEL1IMG+17, DEL1IMG+23, DEL1IMG+26, DEL1IMG+28 , DEL1IMG+30, DEL1IMG+33, DEL1IMG+35, DEL1IMG+38, DELGRP+2, DELGRP+7, DELGRP+13, DELGRP+15, SETDEL~, SETDEL+7 , SETSTAT~, SETSTAT+4, DELFILE+10, DELFILE+13, DELFILE+14, DELFILE+29, DELFILE+31, DELFILE+34, DELFILE+36, DELFILE+38
MAGIFNS	DELGRP+1~, DELGRP+13*, DELGRP+15
MAGLAST	ARCHIVE+1~, ARCHIVE+6*, ARCHIVE+8
MAGNFDA	NOIMAGE+5~
MAGNFDA(2005	NOIMAGE+12, NOIMAGE+13, NOIMAGE+14, NOIMAGE+15, NOIMAGE+16*
MAGNOT	NOIMAGE~, NOIMAGE+8, NOIMAGE+10, NOIMAGE+11*, NOIMAGE+12, NOIMAGE+13, NOIMAGE+14, NOIMAGE+15, NOIMAGE+16
MAGOK	DELETE+34~, DELETE+35, DELETE+39, DELETE+42, DELETE+43
MAGPLC	DELFILE+4~, DELFILE+14*, DELFILE+16, DELFILE+21, DELFILE+22, DELFILE+24
MAGQUIT	DELGRP+1~, DELGRP+5, DELGRP+6, DELGRP+8
>> MAGSTORE	DEL1IMG+33, DELGRP+24
>> MAGSYS	DELETE+15, DELETE+18*
MAGX	DELETE+34~, DELETE+35, DELETE+37, DELETE+38, DELGRP+1~, DELGRP+5, DELGRP+6, DELGRP+7, DELGRP+8
MAGXX	DELFILE+3~, DELFILE+13, DELFILE+29, DELFILE+36*
NOIMG	DELETE+21~, DELETE+24*, DELETE+25, DELETE+27, DEL1IMG+14, DEL1IMG+32, DEL1IMG+34, DEL1IMG+38
OUT	DELETE+45~, DELETE+47, DELETE+48, DEL1IMG+42~, DEL1IMG+44, DEL1IMG+45, DELGRP+18~, DELGRP+19, DELGRP+20
REASDA	NOIMAGE+5~, NOIMAGE+7*, NOIMAGE+16
REASDESC	NOIMAGE+5~, NOIMAGE+6*, NOIMAGE+7, NOIMAGE+8
REASON	IMAGEDEL~, IMAGEDEL+8, IMAGEDEL+11, DELETE~, DELETE+13, DELETE+47, DEL1IMG+14, DEL1IMG+44, DELGRP+22, SETDEL~ , SETDEL+6
RY	IMAGEDEL+6~, DELETE~, DELETE+27, NOIMAGE+20*
RY(	DELETE+39, DELETE+40, DEL1IMG+28, DELGRP+27
RY(""	DELETE+39, DELETE+40, DEL1IMG+28, DELGRP+27
RY(0	DELETE+14, DELETE+27, DELETE+30, DELETE+32, DELETE+39, DELETE+40, DELETE+42, DELETE+43, DELETE+48, DEL1IMG+3* , DEL1IMG+10, DEL1IMG+39, DEL1IMG+45, DEL1IMG+46
SSEP	DELETE+45~, DELETE+46, DELETE+48, DEL1IMG+42~, DEL1IMG+43, DEL1IMG+45
STAT	SETSTAT~, SETSTAT+3
SUB	ARCHIVE+1~, ARCHIVE+15*, ARCHIVE+16, ARCHIVE+17
SYSDEL	DELETE+20~, DELETE+23*, DELETE+27
TMP	ARCHIVE+1~, ARCHIVE+16*, ARCHIVE+17
U	DELETE+22, DELETE+23, ARCHIVE+2, ARCHIVE+7, ARCHIVE+8, ARCHIVE+16, ARCHIVE+17, DELFILE+12, DELFILE+28, DELFILE+35
X	DEL1IMG+23, DEL1IMG+32, DEL1IMG+33, DEL1IMG+34, DEL1IMG+35, DEL1IMG+36, DELGRP+25, DELGRP+26, SETDEL+1~, SETDEL+4 , SETDEL+6, DELFILE+16, DELFILE+24, DELFILE+31, DELFILE+38
X0	DELFILE+3~, DELFILE+10*, DELFILE+12, DELFILE+28
X1	DELFILE+3~
X2	DELFILE+3~, DELFILE+20, DELFILE+21, DELFILE+22
XBIG	DELFILE+3~, DELFILE+34*, DELFILE+35
XPRC	DELETE+21~, DELETE+22*, DELETE+24
Y	IMAGEDEL+6~, DELETE+16~, DELETE+18
Z	DELETE+20~, DELETE+39, DELETE+40, DEL1IMG+1~, DEL1IMG+28, DELGRP+1~, DELGRP+27

Marked Items

Name	Field # of Occurrence
$T(^MAGVD003	DELGRP+17

Customize PDF page

Package: Imaging