Routine: PSOVEXRX

Package	Total	Call Graph
Outpatient Pharmacy	5	(ASK,PROCESSX,PT,PTC,REFILL)^PSOBBC (,FINAL)^PSOLSET PROFILE^PSORX1 $$TITRX^PSOUTL ($$TILDECHK,PSOBLD,SETVEN)^PSOVEXR1
VA FileMan	3	FILE^DIE $$GET1^DIQ ^DIR
MailMan	1	^XMD
Order Entry Results Reporting	1	RENEW^ORAREN
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO PROCESS TELEPHONE REFILLS

Name	Comments	DBIA/ICR reference
START	;
PSOX
PSO6
PSO3	; avoid skipping renewal requests.
PSO5	; Mark the node as processed.
PSO7(PSORXIEN,PSOTILDE)	; Add skipped prescriptions due to tilde error to the report ; input = PSORXIEN - ien of RX in PRESCRIPTION file (#52) ; input = PSOTILDE - string representing the results of Tilde check ; first piece = 1 or 0; where 1 means it's an RX with a Tilde in the dosage form ; second piece = 1 or 0; where 1 means it's a controlled substance RX ;
PSO7X	;
PSO12	; refill not processed.
END
ULK	; unlock a record.
RENEWCHK	; Checks ^PS(52.444 node for renewal information
BFDRNCHK	; There is data in global - is it date or renewal request
SUMM	; display summary of refills processed

Name	Field # of Occurrence
FILE^DIE	PSO5+3, PSO12+4, RENEWCHK+8, RENEWCHK+9
$$GET1^DIQ	PSOX+2, PSOX+4, END+2, END+9, END+10
^DIR	START+15, PSOX, PSOX+10, PSO7X+5, PSO12+11, SUMM+6
RENEW^ORAREN	RENEWCHK+6
ASK^PSOBBC	START+20
PROCESSX^PSOBBC	PSO6+9, END
PT^PSOBBC	PSO6+10
PTC^PSOBBC	PSO6+11
REFILL^PSOBBC	PSO6+16, PSO6+19
^PSOLSET	START+16
FINAL^PSOLSET	END+11
PROFILE^PSORX1	PSO6+12
$$TITRX^PSOUTL	PSO6+22
$$TILDECHK^PSOVEXR1	PSO3+11
PSOBLD^PSOVEXR1	PSOVEXRX+8
SETVEN^PSOVEXR1	PSOVEXRX+11
PSOL^PSSLOCK	PSO3+15
PSOUL^PSSLOCK	ULK+3
^XMD	END+6, END+9, END+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No telephone refills were processed." Line Location: PSOVEXRX+12
Function Call: WRITE	Prompt: !,"Looking for refill requests for inactive Outpatient divisions..." Line Location: START+6
Function Call: WRITE	Prompt: ".none found.",! Line Location: START+13
Function Call: WRITE	Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^") Line Location: START+14
Function Call: WRITE	Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!! Line Location: START+17
Function Call: WRITE	Prompt: !!,"There are no telephone refills to process for the selected division." Line Location: START+19
Function Call: WRITE	Prompt: ! Line Location: PSOX+0
Function Call: WRITE	Prompt: !?7,$C(7),"No telephone refills were processed." Line Location: PSOX+0
Function Call: WRITE	Prompt: !?7,$C(7),"No telephone refills were processed." Line Location: PSOX+4
Function Call: WRITE	Prompt: ! Line Location: PSOX+6
Function Call: WRITE	Prompt: !,"There are no requests for your selected division." Line Location: PSOX+11
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",! Line Location: PSO6+3
Function Call: WRITE	Prompt: !,$C(7),"Rx data is not on file!",! Line Location: PSO6+6
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been deleted." Line Location: PSO6+7
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been entered." Line Location: PSO6+8
Function Call: WRITE	Prompt: !,LN Line Location: PSO6+10
Function Call: WRITE	Prompt: !,LN Line Location: PSO6+11
Function Call: WRITE	Prompt: !!,"There are NO telephone refills to process." Line Location: PSO3+17
Function Call: WRITE	Prompt: !,LN,!,"Prescription: RX # "_$P(^PSRX(PSORXIEN,0),U)_" Processed",! Line Location: PSO5+8
Function Call: WRITE	Prompt: !,LN Line Location: PSO7+19
Function Call: WRITE	Prompt: !,TXT(XX) Line Location: PSO7+20
Function Call: WRITE	Prompt: ! Line Location: PSO7+21
Function Call: WRITE	Prompt: !,LN Line Location: PSO7+32
Function Call: WRITE	Prompt: !,TXT(XX) Line Location: PSO7+33
Function Call: WRITE	Prompt: ! Line Location: PSO7X+2
Function Call: WRITE	Prompt: !,"Prescription REFILL, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not processed. ",!," PLEASE TAKE APPROPRIATE ACTION." Line Location: PSO12+5
Function Call: WRITE	Prompt: ! Line Location: PSO12+11
Function Call: WRITE	Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",! Line Location: END+11
Function Call: WRITE	Prompt: !,LN,!,$C(7),"Prescription Renewal Request, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not sent to the provider. ",!," PLEASE TAKE APPROPRIATE ACTION." Line Location: RENEWCHK+11
Function Call: WRITE	Prompt: !!!,"TELEPHONE REFILL/RENEW SUMMARY",!! Line Location: SUMM+9
Routine Call	DIE Line Location: PSO5+3 PSO12+4 RENEWCHK+8 RENEWCHK+9
Routine Call	DIR Line Location: START+15 PSOX PSOX+10 PSO7X+5 PSO12+11 SUMM+6

FileNo	Call Tags
^PS(59 - [#59]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.444 - [#52.444]	START+8, START+9, START+10, START+12, START+19, PSOX+11, PSO6, PSO3+2, PSO3+5, PSO3+6 , PSO3+7, PSO3+9, PSO5+2, RENEWCHK+5
^PS(59 - [#59]	START+5, START+14, START+17, END+11
^PSRX - [#52]	START+11, PSO6+6, PSO6+7, PSO6+10, PSO6+18, PSO3+4, PSO3+12, PSO5+8, PSO7+11, PSO7+25 , PSO12+5, RENEWCHK+11
^TMP("PSOFILLED"	START+3!, PSO3+6*
^TMP($J	START+3!, PSO7+9, PSO7+10, PSO7+11, PSO7+12, PSO7+13, PSO7+14, PSO7+15, PSO7+16, PSO7+17 , PSO7+18, PSO7+23, PSO7+24, PSO7+25, PSO7+26, PSO7+27, PSO7+28, PSO7+29, PSO7+30, PSO7+31* , END+7, END+9, END+10

Name	Line Occurrences
BFDRNCHK	PSO3+9
END	PSO6+1, PSO6+2
PSO12	PSO5+5
PSO3	PSO6+2
PSO5	PSO6, PSO3+12
PSO6	PSO6+3, PSO6+4, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+23
PSO7	PSO3+11
PSO7X	PSO7+8
RENEWCHK	PSO3+14
START	PSOVEXRX+9
SUMM	PSOVEXRX+10
ULK	PSO6+1, PSO6+2, PSO6+3, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+23

Name	Field # of Occurrence
^("I"	START+5, END+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	START+2~, PSOX!, PSOX+10!, PSO7X+5!, PSO12+12!, END+12!, SUMM+6!
DIR("?"	PSOX+7, PSOX+8, PSOX+9, PSO7X+3, PSO7X+4, PSO12+6, PSO12+7, PSO12+8, PSO12+9, PSO12+10 , SUMM+3, SUMM+4, SUMM+5*
DIR("A"	START+15, PSOX, PSOX+5, PSO7X+2, PSO12+11, SUMM+1
DIR("B"	PSOX, PSOX+5, PSO12+11, SUMM+2
DIR("T"	START+15, PSOX, PSOX+5, PSO7X+2, PSO12+11*
DIR(0	START+15, PSOX, PSOX+5, PSO7X+2, PSO12+11, SUMM+2
DIRUT	PSOX, PSOX+4, END+12!, SUMM+7
DT	START+5, PSO5+3, END+11, RENEWCHK+8
DTIME	START+15, PSOX, PSOX+5, PSO7X+2, PSO12+11
DUOUT	PSO3+11, END+12!
DUZ	END+2, END+8
FDA	PSO5+1!, PSO12+1!, RENEWCHK+1!
FDA(	PSO5+3, PSO12+4, RENEWCHK+8, RENEWCHK+9
IENS	PSO5+1!, PSO5+3, PSO12+1!, PSO12+3, PSO12+4, RENEWCHK+1!, RENEWCHK+8, RENEWCHK+9
LAST	PSO7+6~, PSO7+9, PSO7+10, PSO7+11, PSO7+12, PSO7+13, PSO7+14, PSO7+15, PSO7+16, PSO7+17 , PSO7+18, PSO7+23, PSO7+24, PSO7+25, PSO7+26, PSO7+27, PSO7+28, PSO7+29, PSO7+30, PSO7+31
LN	START+2~, PSOX+13*, PSO6+10, PSO6+11, PSO5+8, PSO7+19, PSO7+32, RENEWCHK+11
PRINT	PSOVEXRX+12, START+2~, SUMM+8*, SUMM+9
PSO648	START+2~, PSO3+9, PSO3+12, PSO3+13, BFDRNCHK+2, BFDRNCHK+4*
PSOANS	START+1~, START+19, PSOX, PSOX+1, PSOX+4, PSO6, PSO6+1, PSO6+2, PSO3+2, PSO3+3* , PSO3+11, PSO3+13, PSO12+12
PSOANS2	START+1~, PSOX+3, PSOX+10, PSOX+11, PSO3+4, END+2, END+9, END+10
PSOBBC	START+2~, END+12!
PSOBBC("DFLG"	START+18, PSO6+10, PSO6+11, PSO6+22, PSO5+5, PSO5+8
PSOBBC("DONE"	PSO6+8, PSO6+21*
PSOBBC("IRXN"	PSO6+5*, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+21, PSO6+22, PSO3+2!
PSOBBC("OIRXN"	PSO6+5*
PSOBBC("PSOVEXRX"	PSO6+18*, PSO6+20!
PSOBBC("QFLG"	START+18*, START+20, PSO6+9
PSOBBC1	START+2~, END+12!
PSOBBC1("FROM"	START+18*
PSOCNT	PSOVEXRX+12, START+2~, PSOX+13, PSO3+8, PSO3+17
PSOCNT1	START+2~, START+4, PSOX+12, RENEWCHK+10*
PSODFN	START+1~, PSO6+10, RENEWCHK+5*, RENEWCHK+6
PSOISITE	START+2~, START+11*, START+12
PSOKPK	START+2~, PSO6+15, PSO5+4
PSOMSG	PSO3+15!, PSO3+16!
PSONO	START+1~, PSOX+11*
PSONRF	START+1~, START+4, PSO12+2, END+3
PSONRFLG	START+1~, START+4, PSO5+6, PSO5+7, PSO12+2*
PSOPAR	START+1~, START+16
PSOPP	PSO3+1~, PSO3+2!
PSOPROVP	START+1~, RENEWCHK+3*, RENEWCHK+6
PSOPTRAD	START+1~, PSOX+2*, PSOX+5
>> PSOQUIT	START+16
PSOREFLG	START+1~, PSO5+3, PSO5+6, RENEWCHK+2, RENEWCHK+7
PSOREN	START+1~, PSO3+9*, PSO3+11, RENEWCHK+3, BFDRNCHK+2, BFDRNCHK+4
PSORENEW	START+1~, PSO6+4, PSO3+14, RENEWCHK+3, RENEWCHK+4, RENEWCHK+6
PSORET	PSO7+6~
PSORFY	START+1~, START+4, PSO5+6, END+3
PSORSULT	START+2~, PSO5+8, RENEWCHK+2*, RENEWCHK+6, RENEWCHK+9, RENEWCHK+10, RENEWCHK+11, RENEWCHK+12
PSORX	START+2~, PSO6+1, PSO6+2, PSO6+3, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+23* , PSO3+15*!, ULK+2, ULK+3, ULK+4, ULK+5!
PSORX("FILL D	ATE" , ULK+6*
PSORX("MAIL/WINDOW"	ULK+6*
PSORX("METHOD	OF PICK-UP" , ULK+6*
PSORXEN	START+1~, PSO6, PSO3+5, PSO3+6, PSO3+7, PSO3+9, PSO3+11, PSO5+2, PSO5+3, PSO12+3 , RENEWCHK+5, RENEWCHK+8, RENEWCHK+9
PSORXIEN	START+1~, START+10, START+11, PSOX+1, PSO6, PSO6+1, PSO6+2, PSO6+3, PSO6+5, PSO6+6 , PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+18, PSO6+23, PSO3+2, PSO3+3, PSO3+4, PSO3+5 , PSO3+6, PSO3+11, PSO3+12, PSO3+15, PSO5+2, PSO5+8, PSO7~, PSO7+11, PSO7+25, PSO12+5 , RENEWCHK+5*, RENEWCHK+6, RENEWCHK+11
PSORXN	START+2~, START+8*, START+9, START+10, START+12
PSOSELSE	PSO6+10*!, PSO6+11!, PSO6+12!
PSOSITE	START+2~, START+17, START+19, PSOX+2, PSOX+11, PSO6+3, PSO6+18~*, PSO3+4, END+2, END+9 , END+10, END+11
>> PSOSYS	PSO6+16
PSOTILDE	START+2~, PSO3+11*!, PSO7~, PSO7+8
PSOTOTF	START+2~, START+4, PSO7X+1, END+5, RENEWCHK+11*
PSOTTREN	START+2~, START+4, END+4, RENEWCHK+12
PSOVEXFL	START+2~, START+12*, START+13, START+14, START+15
PSOVEXI	START+2~
PSOVEXI(	START+5, START+7, START+11, START+12, START+14
PSOVEXI(0	START+6, START+13
PSOVX	START+1~, START+5, START+7, START+8, START+12, START+14*
PSOXFLAG	START+1~, PSO3+2!, PSO3+14, PSO3+16
QUIT	PSOVEXRX+6~, PSOVEXRX+7, PSOVEXRX+8, PSOVEXRX+9, PSOVEXRX+10, START+15, START+16, START+19, START+20, PSOX , PSOX+4, SUMM+7
SAVE	ULK+1~, ULK+4*
SAVE("FILL DA	TE" , ULK+6
SAVE("MAIL/WINDOW"	ULK+6
SAVE("METHOD	OF PICK-UP" , ULK+6
TXT	PSO7+6~
TXT(	PSO7+20, PSO7+33
TXT(1	PSO7+11, PSO7+25
TXT(2	PSO7+12, PSO7+26
TXT(3	PSO7+13, PSO7+27
TXT(4	PSO7+14, PSO7+28
TXT(5	PSO7+15, PSO7+29
TXT(6	PSO7+16, PSO7+30
TXT(7	PSO7+17, PSO7+31
TXT(8	PSO7+18*
U	START+9, PSO6+18, PSO3+6, PSO3+7, PSO3+9, PSO3+11, PSO5+2, PSO5+8, PSO7+11, PSO7+25 , PSO12+5, RENEWCHK+5, RENEWCHK+11
>> UNPARK	PSO6+22
X	PSO6+9!
XMDUZ	END+1~, END+2, END+7~, END+9, END+10*
XMSUB	END+1~, END+2, END+7~, END+9, END+10*
XMT	END+1~
XMT(1	END+3*
XMT(2	END+3*
XMT(3	END+4*
XMT(4	END+4*
XMT(5	END+5*
XMTEXT	END+1~, END+2, END+7~, END+9, END+10*
XMY	END+1!, END+7!
XMY(	END+2, END+8
XMY("G.AUTORENEWAL"	END+2, END+9, END+10*
XX	PSO7+6~, PSO7+20, PSO7+33
Y	START+15, PSOX, PSOX+1, PSOX+10, PSO6+9!, PSO12+12, SUMM+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOVEXRX

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: