Routine: ECDTPD

Information

ECDTPD ;ALB/DAN Delete Test Patient Data from file #721 ;1/19/17 12:03

Source file <ECDTPD.m>

Name	Comments	DBIA/ICR reference
DEL	;Delete test patient data
SAVE	;Save information from record to be deleted for email message
MAIL	;

Name	Line Occurrences (* Changed, ! Killed)
^ECH - [#721]	DEL+6
^ECH("APAT"	DEL+4, DEL+5
^TMP($J	DEL+3!, DEL+10!, SAVE+4, MAIL+2!, MAIL+6, MAIL+7, MAIL+8, MAIL+9, MAIL+12, MAIL+13* , MAIL+14, MAIL+15, MAIL+16, MAIL+17, MAIL+18, MAIL+19*, MAIL+22!
^XTMP("ECDELETE"	DEL+9*
^XUSEC("ECMGR"	MAIL+5

Name	Line Occurrences
MAIL	DEL+8
SAVE	DEL+7

Name	Field # of Occurrence
CNT	DEL+1~, DEL+2, DEL+7, MAIL+9, MAIL+11
DATA	SAVE+1~
DATA(721	SAVE+3, SAVE+4
DFN	DEL+1~, DEL+4*, DEL+5
DIFROM	MAIL+1~
DUZ	MAIL+4
ECDEL	DEL+1~, DEL+2*
ECIEN	DEL+1~, DEL+5*, DEL+6, SAVE+2, SAVE+3, SAVE+4
ECTEXT	MAIL+1~
KIEN	MAIL+1~, MAIL+5*
LINE	MAIL+1~, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+15, MAIL+17, MAIL+18, MAIL+19
NAME	MAIL+1~, MAIL+16*, MAIL+17, MAIL+18
NAMESSN	SAVE+1~, SAVE+3*, SAVE+4
PDT	DEL+1~, DEL+5*
PIECE	SAVE+1~, SAVE+4*
PRCNM	DEL+1~, DEL+6*, DEL+7
PROC	DEL+1~, DEL+6*
>> REC	MAIL+18*
U	DEL+6, DEL+9
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+20*
XMTEXT	MAIL+1~, MAIL+20*
XMY	MAIL+1~
XMY(	MAIL+4, MAIL+5
XMZ	MAIL+1~