Routine: PSD68P

Entry Points

Name	Comments	DBIA/ICR reference
START	; FIND NAOU'S
TXT(PSDVAL,PSDCOL)	; FORAMT THE MAILMAN TEXT
CLEAN	; REMOVE THE BAD DRUG DISPENSING # & INDEX
MQUE	; STEP UP THE ^TMP( DATA FOR THE MAILMAN MESSAGE
MAIL	; SEND THE MAILMAN MESSAGE
EXIT	; CLEAN UP

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	START+1, START+2
^PSD(58.81 - [#58.81]	START+6, START+7, START+10, START+12, CLEAN+4*, CLEAN+6!
^PSDRUG - [#50]	MQUE+1
^TMP($J	START+12, START+13, START+18, START+19, START+20, START+21, START+22, START+24, START+25, START+26 , START+27!, START+28, START+29!, START+30, CLEAN+1, CLEAN+2, CLEAN+3, MQUE+2, MQUE+3, MAIL+2 , EXIT+1!
^XUSEC("PSDMGR"	MAIL+4

Name	Field # of Occurrence
DA	CLEAN+7!*
DIFROM	MAIL+1~
DIK	CLEAN+7!*
DT	CLEAN+3
PSDCNT	START+24, START+30, MQUE+2, MQUE+3, MAIL+2*, EXIT+1!
PSDCOL	TXT~, TXT+1, EXIT+1!
PSDDAYS	CLEAN+3*, EXIT+1!
PSDDT	CLEAN+3*, EXIT+1!
PSDDUZ	MAIL+4*, EXIT+1!
PSDFND	START+30, CLEAN+4*, EXIT+1!
PSDLOC	START+1*, START+2, EXIT+1!
PSDLOC(	START+2*, START+9
PSDNAOU	START+7, START+8, START+9, START+12, START+13, START+25, START+26, START+27, START+28, START+29 , CLEAN+1, CLEAN+2, CLEAN+3, EXIT+1!
PSDPN	START+10, START+11, START+12, START+13, START+26, START+27, START+28, START+29, CLEAN+1, CLEAN+2 , CLEAN+3, CLEAN+6, MQUE+1, EXIT+1!
PSDRG	START+10, START+12, START+28, CLEAN+1, CLEAN+2, CLEAN+3, MQUE+1, EXIT+1!
PSDRPT	START+17*, START+18, START+19, START+20, START+21, START+22, START+24, START+30, MQUE+2, MQUE+3 , MAIL+2, EXIT+1!
PSDTRN	START+6, START+7, START+10, START+12, CLEAN+1, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+6, CLEAN+7 , MQUE+1, EXIT+1!
PSDTXT	START+23, START+24, TXT+1, MQUE+1*, MQUE+2, EXIT+1!
PSDVAL	TXT~, TXT+1, EXIT+1!
U	START+2, START+7, START+10, CLEAN+4
XMDUZ	MAIL+3*, EXIT+1!
XMSUB	START+17*, EXIT+1!
XMTEXT	MAIL+3*, EXIT+1!
XMY	EXIT+1!
XMY(	MAIL+4*
>> ZTDESC	PSD68P+3*
>> ZTDTH	PSD68P+3*
>> ZTIO	PSD68P+3*
>> ZTRTN	PSD68P+3*
>> ZTSAVE	PSD68P+3*