Routine: PSORESUS

Information

PSORESUS ;BIR/EJW Queue/Requeue an Rx to CMOP ;07/25/07

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO RX QUEUE CMOP

Name	Comments	DBIA/ICR reference
END
CM	; ENTRY POINT FOR SPEED QUEUE/REQUEUE TO CMOP
TOP	;
KILL	; CLEAN UP VARIABLES
SENDRX	; SET RX INTO SUSPENSE FILE FOR CMOP
OS

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Rx # "_RX_" not found" Line Location: TOP+6
Function Call: WRITE	Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",!! Line Location: TOP+8
Function Call: WRITE	Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," is not active or suspended" Line Location: OS+5
Function Call: WRITE	Prompt: !!,$P(^PSRX(PSOIEN,0),"^")_" cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",! Line Location: OS+10
Function Call: WRITE	Prompt: !,"Cannot suspend for CMOP. Patient's mail status not a CMOP mail status" Line Location: SENDRX+10
Routine Call	DIR Line Location: TOP+4 OS

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	SENDRX+9
^PSRX - [#52]	TOP+8, OS+5, OS+6, OS+10, SENDRX+2, SENDRX+4, SENDRX+9
^PSRX("B"	TOP+6

Name	Field # of Occurrence
%	END!, SENDRX+11
CHECK	END!
CT	END!
DFN	SENDRX+9*!
DIC	KILL+1!
DIR	TOP+4!, END!, OS!, OS+1!
DIR("?"	TOP+3*
DIR("A"	TOP+2, OS
DIR(0	TOP+2, OS
DIROUT	END!
DIRUT	TOP+4, END!, OS!, OS+1!
DT	SENDRX+10
DTOUT	OS!, OS+1!
DUOUT	OS!
I	SENDRX+1~, SENDRX+2*
II	CM+2~, OS+8*
LAST	END!, SENDRX+1~, SENDRX+2*, SENDRX+4
LST	OS*, OS+1, OS+3, OS+4, KILL+1!
NODE	END!
ORD	OS+3*, OS+4, KILL+1!
ORN	OS+4*, KILL+1!
PNM	KILL+1!
PPL	TOP+1, TOP+8, END!, END+2, CM+1, OS+3, OS+6, OS+8, OS+10, KILL+1! , KILL+2, SENDRX+7*, SENDRX+8, SENDRX+10!
>> PSOCNT	CM+4, OS
PSOIEN	TOP+6, TOP+8, END!, CM+3~, OS+4, OS+5, OS+6, OS+8*, OS+10, KILL+1! , SENDRX+2, SENDRX+4, SENDRX+7, SENDRX+11
>> PSOLST(	OS+4
PSOMC	SENDRX+1~, SENDRX+9*, SENDRX+10
PSOMDT	SENDRX+1~, SENDRX+9*, SENDRX+10
PSOOELSE	CM+3~, OS+1!, OS+2*, OS+11
PSOREPX	OS+1!
>> PSOSITE	SENDRX+3, SENDRX+4, SENDRX+12
PSOSTA	CM+2~, OS+5*
PSX	END!
PSXPPL	END!
PSXSITEA	END+1!, SENDRX+3*, SENDRX+12
PSZIP	KILL+1!
RF	END!
RX	TOP+5*, TOP+6, END!, KILL+1!
SAVEPPL	TOP+1, END+2!, CM+1, OS+8*, KILL+2!
SSNP	KILL+1!
TRX	SENDRX+1~, SENDRX+8*, SENDRX+9!
VA	KILL+1!
VADDR1	KILL+1!
VADM	KILL+1!
VAEL	KILL+1!
>> VALMBCK	CM+4, OS, OS+1, OS+7, OS+11*
VALMCNT	CM+3~
>> VALMSG	CM+4*
VAPA	KILL+1!
VASTREET	KILL+1!
X	END!
Y	TOP+5!, END!, OS
ZD	END!, SENDRX+6~
ZD(	SENDRX+11*