Routine: PSOELPST

Information

PSOELPST ;BIR/RTR-Status update ;11/27/01

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC ^DIC ^DIR
Kernel	2	^%ZTLOAD $$DT^XLFDT
MailMan	1	^XMD
Order Entry Results Reporting	1	$$STATUS^ORQOR2
Outpatient Pharmacy	1	EN^PSOHLSN1

Name	Comments	DBIA/ICR reference
MAIL	;Send mail message upon job completion
EN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"A problem was found when trying to identify a valid Outpatient Pharmacy",!,"package reference from the PACKAGE (#9.4) file." Line Location: PSOELPST+9
Function Call: WRITE	Prompt: !,"This patch queues a job to find Outpatient Pharmacy orders that are expired or",!,"Discontinued, but are Active in CPRS. This patch will update the order in CPRS",!,"with the appropriate status." Line Location: PSOELPST+13
Routine Call	DIC Line Location: PSOELPST+9
Routine Call	DIR Line Location: PSOELPST+11 PSOELPST+15

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN+9, EN+10, EN+16, EN+27, EN+28
^PSRX - [#52]	EN+6, EN+7, EN+11, EN+13, EN+15, EN+18, EN+19
^PSRX("APL"	EN+5

Name	Field # of Occurrence
>> %	EN+3, MAIL+4
DIC	PSOELPST+9*!
DIC(0	PSOELPST+9*
DIFROM	MAIL+11~
DIR	PSOELPST+11!, PSOELPST+15!
DIR("A"	PSOELPST+11, PSOELPST+15
DIR(0	PSOELPST+11, PSOELPST+15
DT	EN+2*, EN+15, EN+26
DUZ	EN+25*, MAIL+2, MAIL+3
PSOACRL	EN+1~, EN+19*, EN+20
PSOADT	EN+1~, EN+18, EN+20, EN+26*, EN+27, EN+28
PSOALC	EN+1~, EN+20*, EN+21, EN+22, EN+23
PSOCOMM	EN+1~, EN+20, EN+21, EN+22, EN+23, EN+24*, EN+25
PSOCPRS	EN+1~, EN+5*, EN+6, EN+8, EN+9, EN+10, EN+16, EN+27, EN+28
PSOCSTAT	EN+1~, EN+11*, EN+12, EN+17, EN+25
PSOECT	EN+1~, EN+4, EN+14, EN+25*, MAIL+6
PSOELSTA	EN+1~, EN+3, MAIL+7, MAIL+9
PSOELSTP	EN+1~, MAIL+4, MAIL+8, MAIL+10
PSOETEXT	EN+1~
PSOETEXT(1	MAIL+5*
PSOETEXT(2	MAIL+6*
PSOETEXT(3	MAIL+9*
PSOETEXT(4	MAIL+10*
PSOIJ	EN+1~, EN+18*
PSOJJ	EN+1~, EN+18*, EN+19, EN+24
PSONAT	EN+1~, EN+20, EN+22, EN+24*, EN+25
PSOPACRF	PSOELPST+8~, PSOELPST+12*, EN+10, MAIL+1!
PSOPHR	EN+1~, EN+18, EN+20, EN+22*, EN+25
PSOREAS	EN+1~, EN+18*
PSORXNUM	EN+1~, EN+5*, EN+6, EN+7, EN+9, EN+11, EN+13, EN+14, EN+15, EN+18 , EN+19, EN+25
PSOXCOM	EN+1~, EN+14*
PSOXDT	EN+1~, EN+15*, EN+16
PSOZDUZ	EN+1~, EN+25*
>> X	PSOELPST+9*
XMDUZ	MAIL+3*, MAIL+11!
XMSUB	MAIL+3*, MAIL+11!
XMTEXT	MAIL+11*!
>> XMY(	MAIL+3*
>> XPDENV	PSOELPST+7
>> XPDQUIT	PSOELPST+9, PSOELPST+14
Y	PSOELPST+9, PSOELPST+12, MAIL+7, MAIL+8, MAIL+11!
>> ZTDESC	PSOELPST+14*
ZTDTH	PSOELPST+14!
>> ZTIO	PSOELPST+14*
>> ZTQUEUED	MAIL+12
>> ZTREQ	MAIL+12*
>> ZTRTN	PSOELPST+14*
>> ZTSAVE("PSOPACRF"	PSOELPST+14*
>> ZTSK	PSOELPST+14