Routine: PSOVERC

Information

PSOVERC ;BHAM ISC/DMA,SAB - discontinue duplicate class from verify ; 07/22/95 17:11

Source file <PSOVERC.m>

Package	Total	Call Graph
Outpatient Pharmacy	4	REVERSE^PSOBPSU1 STAT^PSOFUNC CAN^PSOTPCAN SUSPCAN^PSOUTL
VA Fileman	2	^DIK ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOVER2

Name	Comments	DBIA/ICR reference
ACTLOG	;adds activity log for discontinuations
CANOLD
DATA
ASKC

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J("Status: ",24) Line Location: DATA+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: !,$J("SIG: ",24),$P(DUPRX0,"^",10),!,$J("QTY: ",24),$P(DUPRX0,"^",7),?40,$J("# of refills: ",24),PSRFLS Line Location: DATA+2
Function Call: WRITE	Prompt: !,$J("Provider: ",24),$P(PHYS,"^"),?40,$J("Refills remaining: ",24),PSRFLS-$S($D(^PSRX($P(RX0,"^"),1,0)):$P(^(0),"^",4),1:0) Line Location: DATA+4
Function Call: WRITE	Prompt: !?40,$J("Last filled on: ",24),$E(LSTFL,4,5),"-",$E(LSTFL,6,7),"-",$E(LSTFL,2,3) Line Location: DATA+5
Function Call: WRITE	Prompt: !,PSONULN,! Line Location: DATA+6
Function Call: WRITE	Prompt: " Prescription was not discontinued..." Line Location: ASKC+1
Function Call: WRITE	Prompt: " Prescription has been discontinued." Line Location: CANOLD+2
Routine Call	DIR Line Location: ASKC

FileNo	Call Tags
^PS(52.5 - [#52.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	CANOLD+2
^PS(53 - [#53]	PSOVERC+3
^PS(55 - [#55]	PSOVERC+3
^PSRX - [#52]	PSOVERC+2, DATA, DATA+4, DATA+5, CANOLD, ACTLOG+1, ACTLOG+2, ACTLOG+3
^VA(200 - [#200]	DATA+3

Name	Line Occurrences
ACTLOG	CANOLD+1

Name	Field # of Occurrence
>> CAN	DATA, DATA+6
DA	CANOLD+2*!
DIK	CANOLD+2*!
DIR	ASKC!
DIR("?"	ASKC*
DIR("A"	ASKC*
DIR("B"	ASKC*
DIR(0	ASKC*
>> DRG	PSOVERC+2, CANOLD+2
DT	CANOLD, ACTLOG+3
>> DUPRX0	DATA*, DATA+2, DATA+3, DATA+6, ASKC
DUZ	ACTLOG+3
IR	ACTLOG+2, ACTLOG+3!
>> ISSD	DATA*, DATA+1
>> J	DATA+1*
JJ	ACTLOG+1, ACTLOG+2, ACTLOG+3!
>> LSTFL	DATA+5*
>> PHYS	DATA+3*, DATA+4
>> PSD(	CANOLD+2*
>> PSDFN	PSOVERC+3
>> PSI	CANOLD+2*, CANOLD+3
>> PSMSG	CANOLD+1*, ACTLOG+3
PSONULN	DATA!*, DATA+6
>> PSOPAR	PSOVERC+2, DATA+7
PSOVRCTP	CANOLD+1~*
>> PSREA	CANOLD+1*
>> PSRFLS	DATA*, DATA+2, DATA+4
>> PSRXREF	CANOLD+1*
>> PTST	PSOVERC+3*, DATA+7
RX0	PSOVERC+2, DATA*, DATA+1!, DATA+4, DATA+5, CANOLD, CANOLD+1, CANOLD+2, ACTLOG+1, ACTLOG+2 , ACTLOG+3
RX2	DATA*, DATA+1!
RXF	ACTLOG+1*, ACTLOG+3!
>> ST	DATA+1
>> X	DATA+7*
>> Y	ASKC+1
>> Z	PSOVERC+3*