Routine: PX157PST

Package	Total	Call Graph
MailMan	1	^XMD
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Edit Education Topics VA-ADVANCE DIRECTIVES & VA-ADVANCED DIRECTIVES SCREENING ; -- modifying to "advance directives" terminology.
EN1	;check VA-ADVANCED DIRECTIVES SCREENING
SET1	;SET CORRECT WORDING
EN2	;check VA-ADVANCED DIRECTIVES
SET2	;SET CORRECT WORDING
EN3	;MAIL MSG
END	;EXIT PATH
MAIL	;Send results of Educ Topic fix in a mail message to initiator

Name	Field # of Occurrence
^DIE	SET1+2, SET1+3, SET2+2, SET2+3
^XMD	MAIL+30

FileNo	Call Tags
^AUTTEDT - [#9999999.09]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTTEDT - [#9999999.09]	EN1+8, SET1+4, EN2+12, EN2+14, EN2+15, EN2+16, EN2+17, SET2+4, SET2+5, SET2+6
^AUTTEDT("B"	EN1+7, EN2+11
^TMP("PXTXT"	MAIL+6!, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+14, MAIL+15, MAIL+16, MAIL+18, MAIL+19* , MAIL+20, MAIL+21, MAIL+23, MAIL+24, MAIL+25, MAIL+27, MAIL+28, MAIL+29

Name	Field # of Occurrence
DA	SET1+2, SET1+3, SET2+2, SET2+3, END+2!
DIE	SET1+2, SET1+3, SET2+2, SET2+3, END+2!
DIFROM	MAIL+1~
DR	SET1+2, SET1+3, SET2+2, SET2+3, END+2!
DUZ	MAIL+4
FIX1	EN1+1, SET1+1, END+2!, MAIL+13, MAIL+17
FIX2	EN1+1, SET2+1, END+2!, MAIL+22, MAIL+26
I	MAIL+1~, MAIL+8, MAIL+11, MAIL+12, MAIL+14, MAIL+15, MAIL+16, MAIL+18, MAIL+19, MAIL+20 , MAIL+21, MAIL+23, MAIL+24, MAIL+25, MAIL+27, MAIL+28, MAIL+29*
IEN	END+2!
IEN1	EN1+1, EN1+7, EN1+8, SET1+2, SET1+3, SET1+4, END+2!
IEN2	EN2+1, EN2+11, EN2+12, EN2+14, EN2+15, EN2+16, EN2+17, SET2+2, SET2+3, SET2+4 , SET2+5, SET2+6, END+2!
REDT	EN1+8, EN1+9, EN2+12, EN2+13, END+2!
U	EN1+1*, EN1+9, EN2+13
WD	END+2!
WD(1	EN1+3*
WD(2	EN1+5*
WD1	EN1+1*, EN1+7, EN1+9, END+2!
WD1A	EN2+1*, EN2+11, EN2+13, END+2!
WD1AN	EN2+2*, END+2!
WD1N	EN1+2*, END+2!
WD2	EN1+1*, EN1+9, END+2!
WD2A	EN2+1*, EN2+13, END+2!
WD2AN	EN2+2*, END+2!
WD2N	EN1+2*, END+2!
WDA	END+2!
WDA(1	EN2+3*, EN2+14
WDA(2	EN2+4*, EN2+15
WDA(3	EN2+5*, EN2+16
WDA(4	EN2+6*, EN2+17
WDAN	END+2!
WDAN(1	EN2+7*, SET2+4
WDAN(2	EN2+8*, SET2+5
WDAN(3	EN2+9*, SET2+5
WDAN(4	EN2+10*, SET2+6
WDN	END+2!
WDN(1	EN1+4*, SET1+4
WDN(2	EN1+6*, SET1+4
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+5*
XMY	MAIL+1~
XMY(	MAIL+4*