Routine: APSEPPIP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD	;
WRITE1	;
EP2	;EP FROM APSEPPIM
ECK	;
WRITE	;
PRINT	;
DISC	;PRINT TRAILER COPYRIGHT AND DISCLAIMER ON MONOGRAPH
PICK	;select a drug from file 50
NOSH	;IF NO MONOGRAPH, PRINT A GENERIC SHEET
DICS	; screen out inactives DRUG entries in file 50

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient Medication Instruction Sheets data has not been installed",!! Line Location: PICK+3
Function Call: WRITE	Prompt: !,?8,TXT Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,?8,TXT Line Location: WRITE+3
Function Call: WRITE	Prompt: !,?8,TXT Line Location: WRITE+4
Function Call: WRITE	Prompt: !,?8,TXT Line Location: WRITE1+3
Function Call: WRITE	Prompt: !!,?8,TXT Line Location: WRITE1+4
Function Call: WRITE	Prompt: !,?8,TXT Line Location: WRITE1+5
Function Call: WRITE	Prompt: !!,?12,CR Line Location: DISC+4
Function Call: WRITE	Prompt: !,?16,"Information Expires ",ED3_" "_ED1,! Line Location: DISC+5
Function Call: WRITE	Prompt: !!,?16,ACK Line Location: DISC+8
Function Call: WRITE	Prompt: ^(K),! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEAD+3
Function Call: WRITE	Prompt: "DRUG NAME: ",DRUG,?45,"Rx Number: "_$G(PSRX),?70,"Page ",PG Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"Patient: ",NAM,?35,"Doctor: "_APSDNAM,?64,$$HTE^XLFDT(+$H),! Line Location: HEAD+4
Routine Call	DIC Line Location: PICK+4
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^APSAMDF - [#9009037]	ECK+3
^APSAMDF("B"	ECK+1, ECK+2
^APSAPPI - [#9009037.1]	PICK+3, ECK+4, PRINT1+3, WRITE+1, NOSH+5, WRITE1+2, DISC+1, DISC+7, DISC+8
^DPT - [#2]	HEAD+1
^PSDRUG - [#50]	PICK+5, PRINT1+2, NOSH+3, DICS+1
^PSNDF(	PRINT1+2, NOSH+3
^TMP($J	PRINT+2

Name	Line Occurrences
DISC	PRINT1+5, NOSH+7
ECK	PICK+5
HEAD	PRINT1+3, NOSH+5, DISC+4, DISC+5, DISC+7, PRINT+2
NOSH	EP2+1
PRINT1	EP2+2
WRITE	PRINT1+3
WRITE1	NOSH+5, DISC+7

Name	Field # of Occurrence
>> ACK	DISC+8*
>> APSDNAM	HEAD+4
>> CR	DISC+1*, DISC+4
>> DFN	HEAD+1*
DIC	PICK+4*!
DIC("S"	PICK+4*
DIC(0	PICK+4*
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DRG	PICK+4*, PICK+5, PRINT1+2, NOSH+3
DRUG	PRINT1+1!, PRINT1+2, PRINT1+6!, NOSH+2!, NOSH+3, NOSH+8!, HEAD+3
DT	DICS+1
>> ED	DISC+1*
>> ED1	DISC+1*, DISC+5
>> ED2	DISC+1*, DISC+2
>> ED3	DISC+2*, DISC+5
IOF	HEAD+3
IOSL	PRINT1+3, NOSH+5, DISC+4, DISC+5, DISC+7, PRINT+2
IOST	HEAD+2
>> J	PRINT1+2, PRINT1+3, NOSH+3, NOSH+5, PRINT+2*
>> K	PRINT1+2, PRINT1+3, WRITE+1, NOSH+3, NOSH+5, WRITE1+2, DISC+7, PRINT+2
>> NAM	HEAD+1*, HEAD+4
>> NDC	PICK+5*, ECK+1
>> NUM	PICK+1, EP2+2, PRINT1+3, NOSH+5, PRINT+2
>> P2	PICK+5, PICK+6, EP2+1, NOSH+5, WRITE1+2, DISC+3
>> PG	PICK+1, PRINT1+3, NOSH+5, PRINT+2, HEAD+2, HEAD+3*
>> PPI	PICK+5, PICK+6, EP2+1, ECK+1, ECK+3, ECK+4, PRINT1+3, WRITE+1, NOSH+5, WRITE1+2 , DISC+3, DISC+7
>> PSNDFN	HEAD+1
>> PSNDRUG	PICK+2
>> PSNTRADE	PRINT1+1, NOSH+2
>> PSRX	HEAD+3
>> QUIT	PRINT1+3, PRINT1+4, NOSH+5, NOSH+6, DISC+4, DISC+5, DISC+7, PRINT+2, HEAD+2
>> RN	ECK+1, ECK+2, ECK+3
>> TXT	WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE1+2, WRITE1+3, WRITE1+4, WRITE1+5
U	PICK+5, DISC+1
>> X	PICK+5, PRINT1+2, NOSH+3*
>> XNDC	PICK+6, ECK+1*, ECK+2
>> Y	PICK+4, HEAD+2, DICS+1
>> ZTQUEUED	PRINT+3
>> ZTREQ	PRINT+3*