Routine: PSA81PI

Entry Points

Name	Comments	DBIA/ICR reference
POST	; Entry point
REPORT	;
START	;entry for compile report data
PRINT	;set each drug line in the report
END	;
HDR	;header
SETTXT(TXT)	; Setting Plain Text
MAIL	; Sends Mailman message

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?15,"** NO STOCK BALANCE DATA AVAILABLE **",!! Line Location: PRINT+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+8, PRINT+1
^PSD(58.8 - [#58.8]	REPORT+2, REPORT+3, START+2, START+5
^PSDRUG - [#50]	START+3, START+7, START+9
^TMP("PSA81PI"	POST+1!, END+3!
^TMP("PSDBALI"	START+1!, START+9*, PRINT+3, PRINT+4, PRINT+5, END+2!
^XTMP("PSA81PI"	POST+1!, END+3!, SETTXT+1*
^XUSEC("PSNMGR"	MAIL+2

Name	Line Occurrences
HDR	PRINT+2
MAIL	REPORT+4
SETTXT	POST+5, POST+6, POST+7, POST+8, POST+9, POST+10, POST+11, POST+12, PRINT+9, PRINT+10 , PRINT+11, PRINT+13, PRINT+14, HDR+1, HDR+2, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7
START	REPORT+3

Name	Field # of Occurrence
^(0	START+5, START+7

Name	Field # of Occurrence
%	PRINT+1, END+1!
BAL	START+7, START+9, PRINT+5, PRINT+8*, PRINT+9, END+1!
CNT	START+1!, PRINT+9*, PRINT+10
DEA	START+3*, END+2!
DIFROM	MAIL+4~
DRUGN	START+7*, START+9, END+1!
DT	START+6
DUZ	MAIL+3
EXP	START+7, START+8, START+9, PRINT+5*, END+1!
II	MAIL+1~, MAIL+2*
NODE	START+5, START+6, START+7, PRINT+5, END+1!
PSD	START+2, START+3, START+4, START+5, START+7, START+9, PRINT+4, PRINT+5, PRINT+6, PRINT+9 , END+1!
PSDOK	START+6, START+9, PRINT+5, END+1!
PSDOUT	PRINT+1*, PRINT+4, END+1!
PSDR	PRINT+4, PRINT+5, PRINT+7, PRINT+9, END+1!
PSDR(	START+4*, START+5
PSDRN	END+1!
PSDS	REPORT+3*, START+2, START+5, END+1!
PSDSN	REPORT+3*, PRINT+13, END+1!, HDR+2
PSOLINE	POST+4, END+1!, SETTXT+1
RPDT	PRINT+1*, END+1!, HDR+3
RPLINE	PRINT+9*, END+1!
SCH	END+2!
SETTXT	POST+2*, POST+5, POST+12, END+1!
SETTXT1	POST+2*, POST+8, END+1!, HDR+6
SLVL	START+7, START+9, PRINT+5, END+1!
TXT	SETTXT~, SETTXT+1
U	REPORT+3
VAULT	REPORT+1, REPORT+2, REPORT+3, PRINT+13, END+1!, HDR+2
XMDUZ	MAIL+1~, MAIL+4*
XMSUB	MAIL+1~, MAIL+3*
XMTEXT	MAIL+1~, MAIL+4*
XMX	MAIL+1~
XMY	MAIL+1~
XMY(	MAIL+2, MAIL+3
Y	START+8, PRINT+1, END+1!
ZTDESC	END+2!
ZTDTH	END+2!
ZTIO	END+2!
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!