Routine: MAGIP138

Package	Total	Call Graph
Imaging	5	DELRTNS^MAGI138O ($$CP,ABTMSG,DELFILE,MES)^MAGKIDS ($$TRIM,INS)^MAGQBUT4 CLEAR^MAGUERR DUMP^MAGUERR1
VA FileMan	4	FILESEC^DDMOD (,$$FIND1)^DIC (FILE,UPDATE)^DIE (,ENALL2,IXALL)^DIK
Kernel	3	($$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU BMES^XPDUTL

Name	Comments	DBIA/ICR reference
ERROR	;
PRE	;
POS	;
UPD110()	;
MAILUPDT	; Add the mail group and subject for MAGDHOW* processing errors
CONVERT1	; convert file 2006.5831 to the new global format - don't build indices
CONVERT2	; restore the new file 2006.5831 and build cross-references
NEW7792	; create the MAGD SENDER entry in the HLO APPLICATION REGISTRY (file 779.2)
NEW7794	; create the entries in the HLO SUBSCRIPTION REGISTRY (file 779.4)
NEW7794A(NAME,DESCRIPTION,OWNER)	; create the entry in file 779.4
ENTRYACT(PROTOCOL,ACTION)	; update the protocol's ENTRY ACTION
ADTSUBS	; add new subscribers to MAG CPACS A01 - A13 ADT event drives
ADTSUBS1(EVENT,TYPE)	; add one subscriber
ADDMS(INTERVAL)	; Add Message Subjects for Mail Management
ADDMG	; Add Mail Message groups to the Mail Group file (XMB(3.8))
ADD(NMSP)	;
ADDDUZ(NMSP)	;
DLKP	; Add Generic Mail groups to BP Message subfile
TEXT	; Message Subjects
RPCL110	;
RPCL130	;
RPCL079	;
RPCL136V	;
RPCL137V	;
RPCL138V	;

External References

Name	Field # of Occurrence
FILESEC^DDMOD	CONVERT2+15
^DIC	NEW7792+6, NEW7792+12, NEW7794A+4, ENTRYACT+2, ADTSUBS1+11, ADTSUBS1+19
$$FIND1^DIC	DLKP+8
FILE^DIE	ADD+10
UPDATE^DIE	NEW7792+21, NEW7794A+13, ENTRYACT+8, ADTSUBS1+38, ADTSUBS1+50, ADDMS+8, ADD+6, ADDDUZ+5, DLKP+12
^DIK	PRE+5, PRE+7
ENALL2^DIK	CONVERT1+30
IXALL^DIK	CONVERT2+21
DELRTNS^MAGI138O	POS+62
$$CP^MAGKIDS	POS+8, POS+12, POS+16, POS+20, POS+24, POS+28, POS+34, POS+38, POS+42, POS+45 , POS+48, POS+51
ABTMSG^MAGKIDS	ERROR+3
DELFILE^MAGKIDS	CONVERT1+34
MES^MAGKIDS	POS+56, POS+60, POS+69, CONVERT1+5, CONVERT1+10, CONVERT2+4, CONVERT2+22, NEW7792+8, NEW7792+14, NEW7792+23 , NEW7792+25, NEW7794A+6, NEW7794A+15, NEW7794A+17, ENTRYACT+4, ENTRYACT+10, ENTRYACT+12, ADTSUBS1+13, ADTSUBS1+21, ADTSUBS1+40 , ADTSUBS1+42, ADTSUBS1+52, ADTSUBS1+54
$$TRIM^MAGQBUT4	ADD+3, ADD+4, ADD+5, ADDDUZ+3, DLKP+8
INS^MAGQBUT4	POS+73
CLEAR^MAGUERR	POS+2
DUMP^MAGUERR1	ERROR+3
$$FMTE^XLFDT	POS+72, MAILUPDT+1, MAILUPDT+3, MAILUPDT+5
$$NOW^XLFDT	POS+72, POS+73, MAILUPDT+1, MAILUPDT+3, MAILUPDT+5
$$ADD^XPDMENU	POS+55, POS+59
BMES^XPDUTL	POS+72, MAILUPDT+1, MAILUPDT+3, MAILUPDT+5, ADDMS+9, ADD+7, ADDDUZ+6, DLKP+13

FileNo	Call Tags
^MAG(2006.5831 - [#2006.5831]	Classic Fileman Calls, FILESEC^DDMOD
^XMB(3.8 - [#3.8]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	POS+67
^MAG(2006.1 - [#2006.1]	ADDMS+3, ADDMS+5, ADDMG+3, ADDMG+4, DLKP+3, DLKP+4, DLKP+6, DLKP+7, DLKP+9
^MAG(2006.5831 - [#2006.5831]	CONVERT1+4, CONVERT1+8, CONVERT1+15, CONVERT1+17, CONVERT1+22, CONVERT1+23, CONVERT1+31, CONVERT2+3, CONVERT2+17, CONVERT2+18! , CONVERT2+19*, CONVERT2+23
^TMP("MAG"	CONVERT1+12!, CONVERT1+21, CONVERT1+24, CONVERT1+26, CONVERT1+28, CONVERT2+19, CONVERT2+20!
^XMB(3.8 - [#3.8]	ADD+3, ADD+4, ADDDUZ+3

Name	Line Occurrences
ADD	ADDMG+6
ADDDUZ	ADDMG+7
ADDMG	MAILUPDT+2
ADDMS	MAILUPDT+4
ADTSUBS	UPD110+7
ADTSUBS1	ADTSUBS+2, ADTSUBS+3, ADTSUBS+4, ADTSUBS+5, ADTSUBS+6, ADTSUBS+7
CONVERT1	PRE+2
CONVERT2	UPD110+2
DLKP	MAILUPDT+6
ENTRYACT	UPD110+5, UPD110+6
ERROR	POS+8, POS+12, POS+16, POS+20, POS+24, POS+28, POS+34, POS+38, POS+42, POS+45 , POS+48, POS+51
MAILUPDT	UPD110+8
NEW7792	UPD110+3
NEW7794	UPD110+4
NEW7794A	NEW7794+7, NEW7794+13

Name	Field # of Occurrence
^(0	CONVERT2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ENTRYACT~, ENTRYACT+7
CALLBACK	POS+1~, POS+7, POS+8, POS+11, POS+12, POS+15, POS+16, POS+19, POS+20, POS+23* , POS+24, POS+27, POS+28, POS+33, POS+34, POS+37, POS+38, POS+41, POS+42
CLINCNT	CONVERT1+1~, CONVERT1+22, CONVERT1+23, CONVERT1+24, CONVERT1+26
CLINIC	CONVERT1+1~, CONVERT1+23*, CONVERT1+24
CLINIEN	CONVERT1+1~, CONVERT1+22*, CONVERT1+23
CPTIEN	CONVERT1+1~, CONVERT1+19*, CONVERT1+20
DA	PRE+1~, PRE+5, PRE+7
DA(1	PRE+5, PRE+7
DEL	POS+65~, POS+67*, POS+68
DESCRIPTION	NEW7792+1~, NEW7794+1~, NEW7794+5, NEW7794+7, NEW7794+11, NEW7794+13, NEW7794A~, NEW7794A+12, ADTSUBS1+1~
DESCRIPTION(1	ADTSUBS1+6*
DESCRIPTION(2	ADTSUBS1+7*
DIC	NEW7792+1~, NEW7792+6, NEW7792+12, NEW7794A+1~, NEW7794A+4, ENTRYACT+1~, ENTRYACT+2, ADTSUBS1+2~, ADTSUBS1+11, ADTSUBS1+19
DIC(0	NEW7792+6, NEW7792+12, NEW7794A+4, ENTRYACT+2, ADTSUBS1+11, ADTSUBS1+19
DIERR	NEW7792+1~, NEW7792+22, NEW7794A+1~, NEW7794A+14, ENTRYACT+9, ADTSUBS1+39, ADTSUBS1+51, ADDMS+9!, ADD+7!, ADD+8! , ADD+11!, ADDDUZ+6, ADDDUZ+7!, DLKP+1~, DLKP+13!
DIK	PRE+1~, PRE+5, PRE+7, CONVERT1+1~, CONVERT1+29, CONVERT2+1~, CONVERT2+21
DUZ	POS+73, ADTSUBS1+31, ADDDUZ+4
EVENT	ADTSUBS1~, ADTSUBS1+4, ADTSUBS1+35
EVENTDRIVER	ADTSUBS1+1~, ADTSUBS1+4*, ADTSUBS1+11
EVENTDRIVERIEN	ADTSUBS1+1~, ADTSUBS1+15*, ADTSUBS1+48
HL7SUBLIST	CONVERT1+1~, CONVERT1+19*, CONVERT1+20
I	NEW7792+1~, NEW7792+24, NEW7792+25, NEW7794A+1~, NEW7794A+16, NEW7794A+17, ENTRYACT+11, ENTRYACT+12, ADTSUBS1+41, ADTSUBS1+42 , ADTSUBS1+53, ADTSUBS1+54, ADDMS+1~, DLKP+1~, DLKP+4, DLKP+6*, DLKP+7, DLKP+9, DLKP+11
IEN	ADDMS+1~, ADDMS+2, ADDMS+3, ADDMS+5, ADDMS+6, ADDMS+7, ADD+1~, ADDDUZ+1~
IENS	NEW7792+1~, NEW7792+18, NEW7792+19, NEW7792+20, NEW7794A+1~, NEW7794A+9, NEW7794A+10, NEW7794A+11, NEW7794A+12, ENTRYACT+1~ , ENTRYACT+6, ENTRYACT+7, ADTSUBS1+2~, ADTSUBS1+26, ADTSUBS1+27, ADTSUBS1+28, ADTSUBS1+29, ADTSUBS1+30, ADTSUBS1+31, ADTSUBS1+32 , ADTSUBS1+33, ADTSUBS1+34, ADTSUBS1+35, ADTSUBS1+36, ADTSUBS1+37, ADTSUBS1+48*, ADTSUBS1+49
INTERVAL	ADDMS~, ADDMS+7
IPROCIDX	CONVERT1+1~, CONVERT1+19*, CONVERT1+20
ISPECIDX	CONVERT1+1~, CONVERT1+18*, CONVERT1+20
ITEMTEXT	ADTSUBS1+1~, ADTSUBS1+5*, ADTSUBS1+28
J	ADDMS+1~, ADDMS+4, ADD+1~, ADD+2, ADD+5, ADD+9, ADDDUZ+1~, ADDDUZ+2, DLKP+1~, DLKP+8 , DLKP+9, DLKP+10, DLKP+11
K	ADDMS+1~, ADDMS+4, ADDMS+5, ADDMS+6, ADD+1~, ADD+2, ADD+3, ADD+4, ADD+5, ADDDUZ+1~ , ADDDUZ+2*, ADDDUZ+3
L	ADD+1~, ADD+4, ADDDUZ+1~, ADDDUZ+3, ADDDUZ+4
LOCATION	CONVERT1+2~, CONVERT1+18*, CONVERT1+20
MAGERR	NEW7792+1~, NEW7794A+1~, ENTRYACT+1~, ADTSUBS1+2~, ADDMS+1~, ADDMS+9!, ADD+1~, ADD+7!, ADD+8!, ADD+11! , ADDDUZ+1~, ADDDUZ+7!, DLKP+1~, DLKP+13!
MAGERR("DIERR"	NEW7792+24, NEW7792+25, NEW7794A+16, NEW7794A+17, ENTRYACT+11, ENTRYACT+12, ADTSUBS1+41, ADTSUBS1+42, ADTSUBS1+53, ADTSUBS1+54 , ADDMS+9, ADD+7, ADDDUZ+6, DLKP+13
MAGFDA	NEW7792+1~, NEW7794A+1~, ENTRYACT+1~, ADTSUBS1+2~, ADDMS+1~, ADD+1~, ADD+7!, ADD+8!, ADD+11!, ADDDUZ+1~ , ADDDUZ+7!, DLKP+1~, DLKP+17!
MAGFDA(	NEW7792+19, NEW7792+20, NEW7794A+10, NEW7794A+11, NEW7794A+12, ADTSUBS1+49, ADDMS+6, ADDMS+7, ADD+5, ADD+9 , ADDDUZ+4, DLKP+11
MAGFDA(101	ENTRYACT+7, ADTSUBS1+27, ADTSUBS1+28, ADTSUBS1+29, ADTSUBS1+30, ADTSUBS1+31, ADTSUBS1+32, ADTSUBS1+33, ADTSUBS1+34, ADTSUBS1+35 , ADTSUBS1+36, ADTSUBS1+37
MAGIEN	ADD+1~, ADD+11!, ADDDUZ+1~, ADDDUZ+7!, DLKP+1~, DLKP+17!
MAGIEN(	ADD+9
MAGIENS	NEW7792+1~, NEW7794A+1~, ENTRYACT+1~, ADTSUBS1+2~
MAGIENS(1	ADTSUBS1+45
>> MAGKIDS1("RPCL079^"	POS+7
>> MAGKIDS1("RPCL110^"	POS+11
>> MAGKIDS1("RPCL130^"	POS+15
>> MAGKIDS1("RPCL136V^"	POS+19
>> MAGKIDS1("RPCL137V^"	POS+23
>> MAGKIDS1("RPCL138V^"	POS+27
MENU	POS+1~, POS+55, POS+56, POS+59, POS+60
MG	DLKP+1~, DLKP+7*, DLKP+8
MSG	ADDMS+1~, ADD+1~, ADDDUZ+1~
MSGROOT	DLKP+1~, DLKP+17!
NAME	NEW7792+1~, NEW7792+3, NEW7792+6, NEW7792+8, NEW7792+19, NEW7792+23, NEW7794+1~, NEW7794+4, NEW7794+7, NEW7794+10* , NEW7794+13, NEW7794A~, NEW7794A+4, NEW7794A+6, NEW7794A+10, NEW7794A+15
NEWIEN	CONVERT1+2~, CONVERT1+14, CONVERT1+16, CONVERT1+21, CONVERT1+24, CONVERT1+26, CONVERT1+28
NMSP	ADDMG+1~, ADDMG+4, ADDMG+5, ADDMG+6, ADDMG+7, ADD~, ADD+3, ADD+4, ADD+5, ADDDUZ~ , ADDDUZ+3, DLKP+1~, DLKP+4, DLKP+5, DLKP+8
OLDIEN	CONVERT1+2~, CONVERT1+14, CONVERT1+15, CONVERT1+17
OWNER	NEW7792+1~, NEW7794+1~, NEW7794+6, NEW7794+7, NEW7794+12, NEW7794+13, NEW7794A~, NEW7794A+11
PACKAGE	NEW7792+1~, NEW7792+16*, NEW7792+20
PL	ADDMG+1~, ADDMG+2, ADDMG+3, ADDMG+4, DLKP+1~, DLKP+2, DLKP+3, DLKP+4, DLKP+6, DLKP+7 , DLKP+9, DLKP+11
PROCEDURE	CONVERT1+2~, CONVERT1+19*, CONVERT1+20
PROTOCOL	ENTRYACT~, ENTRYACT+2
SECURITY	CONVERT2+8~, CONVERT2+15
SECURITY("AUDIT"	CONVERT2+9*
SECURITY("DD"	CONVERT2+10*
SECURITY("DEL"	CONVERT2+11*
SECURITY("LAYGO"	CONVERT2+12*
SECURITY("RD"	CONVERT2+13*
SECURITY("WR"	CONVERT2+14*
SERVICE	CONVERT1+2~, CONVERT1+18*, CONVERT1+20, CONVERT1+22, CONVERT1+23
SUBSCRIBER	ADTSUBS1+1~, ADTSUBS1+4*, ADTSUBS1+19, ADTSUBS1+27
SUBSCRIBERIEN	ADTSUBS1+1~, ADTSUBS1+45*, ADTSUBS1+49
TYPE	ADTSUBS1~, ADTSUBS1+5, ADTSUBS1+6
U	ADDMG+4, DLKP+4
X	POS+65~, POS+66, POS+69, CONVERT1+2~, CONVERT1+17, CONVERT1+18, NEW7792+1~, NEW7792+6, NEW7792+12, NEW7794A+1~ , NEW7794A+4, ENTRYACT+1~, ENTRYACT+2, ENTRYACT+4, ENTRYACT+10, ADTSUBS1+2~, ADTSUBS1+11, ADTSUBS1+13, ADTSUBS1+19, ADTSUBS1+21 , ADTSUBS1+40, ADTSUBS1+52
>> XPDA	POS+73
>> XPDABORT	ERROR+1*
>> XPDNM	ERROR+1, POS+73
Y	CONVERT1+2~, CONVERT1+20*, CONVERT1+21, NEW7792+1~, NEW7792+7, NEW7792+13, NEW7792+16, NEW7794A+1~, NEW7794A+5, ENTRYACT+1~ , ENTRYACT+3, ENTRYACT+6, ADTSUBS1+2~, ADTSUBS1+12, ADTSUBS1+15, ADTSUBS1+20

Name	Field # of Occurrence
$T(	POS+7, POS+11, POS+15, POS+19, POS+23, POS+27, POS+45
$T(TEXT+J	ADDMS+4, ADD+2, ADDDUZ+2

Customize PDF page

Package: Imaging

Routine: MAGIP138

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items