Routine: PSORESK1

Name	Comments	DBIA/ICR reference
STAT
CHANGE(RX)	;Change the expiration date back based on issue date and other logic
HP
CHECK(RX)	;IHS/MSC/MGH Check and update the expiration date as needed
ACT
CP
CMOP	;original released by CMOP? Called by PSORESK
CMOP1	; REFILL released by CMOP? Called by PSORESK

Name	Field # of Occurrence
NOW^%DTC	CP, ACT+3
$$ISSCH^APSPFNC2	CHANGE+3, CHANGE+4
$$RMNRFL^APSPFUNC	CHECK+6
$$GET1^DIQ	CHECK+2, CHECK+3, CHANGE+2, CHANGE+5, CHANGE+6
RXED^PSOCPA	CP+1
^PSOFUNC	STAT
$$FMADD^XLFDT	CHANGE+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Wand the barcode number of the Rx or manually key in",!,"the number below the barcode or the Rx number." Line Location: HP+0
Function Call: WRITE	Prompt: !,"The barcode number format is - 'NNN-NNNNNNN'",!!,"Press 'ENTER' to process Rx or ""^"" to quit" Line Location: HP+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Rx status of "_ST_" and cannot be returned to stock.",! Line Location: STAT+1
Function Call: WRITE	Prompt: !!,"Attempting to remove copay charges",! Line Location: CP+1
Function Call: WRITE	Prompt: !!,"Reason must be entered. Rx "_$P(^PSRX(RXP,0),"^")_" not returned to stock.",! Line Location: CP+2
Function Call: WRITE	Prompt: !!,$C(7),"Rx # "_$P(^PSRX(RXP,0),"^")_":",?20," Was dispensed by the CMOP and may not be returned" Line Location: CMOP+2
Function Call: WRITE	Prompt: !,?20," to stock at this facility." Line Location: CMOP+3
Function Call: WRITE	Prompt: !!,"REFILL # "_TYPE_":",?20," Was dispensed by the CMOP and may not be returned" Line Location: CMOP1+2
Function Call: WRITE	Prompt: !,?20," to stock at this facility." Line Location: CMOP1+3

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	CP+1
^PSRX - [#52]	STAT, CP+1, CP+2, ACT, ACT+3*, CMOP+1, CMOP+2, CMOP1+1
^PSRX("AR"	CMOP+2, CMOP1+2

Name	Line Occurrences
$$CHANGE	CHECK+4, CHECK+8

Name	Field # of Occurrence
>> %	CP, ACT+3
>> COM	ACT+1, ACT+2, ACT+3
>> COPAYFLG	CP+2
CS	CHANGE+1~, CHANGE+3, CHANGE+4, CHANGE+7
DA	ACT+4!
DRG	CHANGE+1~, CHANGE+2*, CHANGE+3, CHANGE+4, CHANGE+5
DUZ	ACT+3
EXP	CHECK+1~, CHECK+4, CHECK+7, CHECK+8*, CHECK+9
EXPDTE	CHANGE+1~, CHANGE+8*, CHANGE+9
EXTEXP	CHANGE+1~, CHANGE+5*, CHANGE+7
>> I	ACT*
>> IFN	ACT, ACT+3
ISSDT	CHANGE+1~, CHANGE+6*, CHANGE+8
>> J	STAT*
OLDEXP	CHECK+1~, CHECK+2*, CHECK+7
>> PSO	CP+1*
>> PSOCPRX	CP+1*
>> PSODA	CP+1*
>> PSODT	CP*
>> PSOPAR7	CP+1*
>> PSOPFS	ACT+2
>> PSOSITE	CP+1
>> PSOWHERE	ACT+1
PSXREL	CMOP+1, CMOP+2, CMOP+4!, CMOP1+1, CMOP1+2, CMOP1+4!
REF	CHECK+1~, CHECK+3*, CHECK+4
REMFILL	CHECK+1~, CHECK+6*, CHECK+7
RX	CHECK~, CHECK+2, CHECK+3, CHECK+4, CHECK+6, CHECK+8, CHANGE~, CHANGE+2, CHANGE+6
RX0	STAT*, STAT+1!
>> RX2	STAT*
>> RXP	STAT, CP+1, CP+2, ACT, ACT+3, CMOP+1, CMOP+2, CMOP1+1, CMOP1+2
ST	STAT+1!
>> TYPE	ACT+3, CMOP1+1, CMOP1+2
U	CHANGE+4, CHANGE+7
>> X2	CHANGE+7*, CHANGE+8
>> XTYPE	ACT+3, CMOP1+1

Information