Routine: PSSXRF1

Information

PSSXRF1 ;BIR/TTH-Re-Index "AOC" x-ref on DRUG file (#50) ;05 MAY 99

Source file <PSSXRF1.m>

Name	Comments	DBIA/ICR reference
ENNV	; Begin
ENQN	; Loop thru VA Drug file (#50).
SENDMSG	;Send mail message when check is complete.
DONE	;
GETDT	; check date/time for job to run
CON(X)	;

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1

Name	Line Occurrences
$$CON	ENNV+1
SENDMSG	ENQN+3

Name	Field # of Occurrence
>> %	ENQN+1, SENDMSG+1
%DT	GETDT+1~, CON+1~
DA	DONE+1!
DFN	ENQN+1~
DIK	ENQN+2*!, DONE+1!
DIK(1	ENQN+2*
DUZ	SENDMSG+1
PSS	SENDMSG+1!
PSS(1	SENDMSG+2*
PSSSTART	ENQN+1*, DONE+1!
X	DONE+1!, GETDT+2!, GETDT+3*, CON~
XMDUZ	SENDMSG+1*, DONE+1!
XMSUB	SENDMSG+1*, DONE+1!
XMTEXT	SENDMSG+1*, DONE+1!
XMY	SENDMSG+1!, DONE+1!
XMY(	SENDMSG+1*
>> XPDQUES("POS	ONE" , ENNV+1, ENNV+2
Y	SENDMSG+1*, SENDMSG+2, DONE+1!, GETDT+1~, GETDT+2, GETDT+3, CON+2
ZTDESC	ENNV+1*, DONE+1!
ZTDTH	ENNV+1*, DONE+1!
ZTIO	ENNV+1*, DONE+1!
ZTREQ	DONE+1!*
ZTRTN	ENNV+1*, DONE+1!
ZTSAVE	ENNV+1!, DONE+1!
ZTSK	ENNV+1!, ENNV+2, ENNV+3, DONE+1!