Routine: VEXRX

Package	Total	Call Graph
Outpatient Pharmacy	3	(ASK,PROCESSX,PT,PTC,REFILL)^PSOBBC (,FINAL)^PSOLSET PROFILE^PSORX1
VA FileMan	2	$$GET1^DIQ ^DIR
MailMan	1	^XMD
Order Entry Results Reporting	1	RENEW^ORAREN
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Pharmacy Prescription Practice	1	$$PDA^PPPPDA1

Entry Points

Name	Comments	DBIA/ICR reference
START
VEX
VEX6
VEX3
VEX4
VEX10
VEX5	; ; Next statement is used by BFD/648 CHK PROGRESS THRU PROGRAM
VEX12	; ; @3
END
VEXALT	;Menu action entry point to alert user
VEXEND
ULK	;
RENEWCHK	; Checks ^VEXHRX node for renewal information ; Renewal check ; @1
BFDRNCHK	; 648/BFD 4-27-06 There is data in global - is it date or renewal request ; Troubleshooting - put this on next line after =1 ; W !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0"

External References

Name	Field # of Occurrence
$$GET1^DIQ	END+5, END+12, END+13
^DIR	START+14, VEX, VEX+2, VEX12+5
RENEW^ORAREN	RENEWCHK+15
$$PDA^PPPPDA1	VEX6+12
ASK^PSOBBC	START+19
PROCESSX^PSOBBC	VEX6+9, END
PT^PSOBBC	VEX6+10
PTC^PSOBBC	VEX6+11
REFILL^PSOBBC	VEX6+13
^PSOLSET	START+15
FINAL^PSOLSET	END+17
PROFILE^PSORX1	VEX6+12
PSOL^PSSLOCK	VEX10+3
PSOUL^PSSLOCK	ULK+2
^XMD	END+9, END+12, END+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ".none found.",! Line Location: START+12
Function Call: WRITE	Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^") Line Location: START+13
Function Call: WRITE	Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!! Line Location: START+16
Function Call: WRITE	Prompt: !!?7,$C(7),"There are no telephone refills to process." Line Location: START+18
Function Call: WRITE	Prompt: ! Line Location: VEX+0
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",! Line Location: VEX6+2
Function Call: WRITE	Prompt: !,$C(7),"Rx data is not on file!",! Line Location: VEX6+6
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been deleted." Line Location: VEX6+7
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been entered." Line Location: VEX6+8
Function Call: WRITE	Prompt: !! Line Location: VEX6+12
Function Call: WRITE	Prompt: !!,$C(7),"REFILL WAS NOT PROCESSED! PLEASE TAKE APPROPRIATE ACTION." Line Location: VEX12+4
Function Call: WRITE	Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",! Line Location: END+17
Function Call: WRITE	Prompt: !,"there is no ^ in VEXREN "_VEXREN_" so must just be a date. Set Vex648 to 0" Line Location: BFDRNCHK+2
Function Call: WRITE	Prompt: !,"VEXREN is "_VEXREN_" this check is for something in piece 1 of ] and sets VEX648=1" Line Location: BFDRNCHK+5
Function Call: WRITE	Prompt: !,"VEXREN is "_VEXREN_" this check is for nothing in piece 1 of '] and set VEX648 to 0" Line Location: BFDRNCHK+8
Routine Call	DIR Line Location: START+14 VEX VEX+2 VEX12+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	VEX6+12
^DD("SITE"	VEXALT+2
^PS(59 - [#59]	START+8, START+13, START+16, END+17
^PSRX - [#52]	START+10, VEX6+6, VEX6+7, VEX6+10, VEX3+3, VEX10
^TMP($J	START+5!, END+10, END+12, END+13
^VEXHRX(19080	START+9, START+11, START+18, VEX3, VEX3+2, VEX5+3, VEX12+3, VEXALT+3, VEXALT+4, VEXALT+5 , RENEWCHK+10, RENEWCHK+17, RENEWCHK+18

Label References

Name	Line Occurrences
BFDRNCHK	VEX3+2
END	START+14, START+15, START+18, START+19, VEX, VEX+1, VEX+2, VEX6+1
RENEWCHK	VEX10+2
ULK	VEX6+1, VEX6+2, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+11, VEX6+13
VEX12	VEX5+4
VEX3	VEX6+1
VEX5	VEX6, VEX3+3
VEX6	VEX6+2, VEX6+4, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+11, VEX6+13
VEXEND	VEXALT+3

Naked Globals

Name	Field # of Occurrence
^("I"	START+8, END+17
^(1	VEXALT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT1	START+3, VEX+4, END+14!, RENEWCHK+19, RENEWCHK+20
DINACT	START+4*, END+14!
DIR	START+14!, VEX!, VEX+2!, VEX12+5!, END+19!
DIR("A"	START+14, VEX, VEX+2, VEX12+5
DIR("B"	VEX, VEX+2
DIR(0	START+14, VEX, VEX+2, VEX12+5
>> DIRUT	VEX, VEX+2
DISDT	START+4*, END+14!
DT	START+8, VEX5+3, END+17, RENEWCHK+17
DUZ	END+5, END+11
EMCNT	START+2~, START+5*
FBKTR	START+3*, END+15!
FBKTRDN	START+3*, END+15!
GCNT	END+14!
HACT	START+4*, END+14!
HACTDN	START+4*, END+16!
INCNT	START+2~, START+5*
INFPDNKTR	START+3*, END+15!
INFPKTR	START+3*, END+15!
MAFBFD	END+14!
MAFBKT	END+15!
MMCONT	START+3*, END+15!
MMDAT	START+4*, END+14!
NDINACT	START+4*, END+14!
NDISDT	START+4*, END+14!
NPCP	START+3*, END+15!
NPCPA	START+4*, END+16!
NPCPADN	START+4*, END+16!
NPCPDN	START+3*, END+15!
NRF	START+3, VEX12+2, END+6, END+15!
NRFLG	START+3, VEX5+6, VEX5+7, VEX12+2*, END+15!
ORDP	START+3*, END+14!
ORDPDN	START+3*, END+14!
PATIEN	START+2~, RENEWCHK+14*, RENEWCHK+15
PCONT	START+3*, END+15!
PROVP	START+2~, RENEWCHK+10*, RENEWCHK+15
PSOBBC	END+19!
PSOBBC("DFLG"	START+17*, VEX6+10, VEX6+11, VEX5+4
PSOBBC("DONE"	VEX6+8, VEX6+13*
PSOBBC("IRXN"	VEX6+5*, VEX6+6, VEX6+7, VEX6+8, VEX6+10, VEX6+13, VEX3!
PSOBBC("OIRXN"	VEX6+5*
PSOBBC("QFLG"	START+17*, START+19, VEX6+9
PSOBBC1	END+19!
PSOBBC1("FROM"	START+17*
>> PSODFN	VEX6+10, VEX6+12
>> PSOINST	START+18, VEX6+2, VEX3, VEX3+2, VEX4, VEX5+3, VEX12+3, VEXALT+2*, VEXALT+3, VEXALT+4 , VEXALT+5, RENEWCHK+10, RENEWCHK+17, RENEWCHK+18
PSOISITE	START+7!, START+10*, START+11, END+19!
PSOMSG	VEX10+3!, VEX10+4!
>> PSOPAR	START+15
PSORX	END+19!
PSOSELSE	VEX6+10*!, VEX6+11!, VEX6+12!
>> PSOSITE	START+16, VEX10, END+5, END+12, END+13, END+17
PSOVEX	START*, END+19!
PSOVEXFL	START+7!, START+11*, START+12, START+13, START+14, END+19!
PSOVEXI	START+7!, END+19!
PSOVEXI(	START+8, START+10, START+11, START+13
PSOVEXI(0	START+9, START+12
PSOVIN	START+9*, START+11, END+19!
PSOVX	START+8, START+13, END+19!
PSOVXLP	START+9*, START+10, START+11, END+19!
PTERM	START+3*, END+15!
PTERMDN	START+3*, END+15!
>> RENEW	VEX6+4, VEX10+2, RENEWCHK+10, RENEWCHK+12, RENEWCHK+15
RENFLG	START+2~, START+3, VEX5+3, VEX5+6, RENEWCHK+9, RENEWCHK+16*
RESULT	START+2~, RENEWCHK+13~, RENEWCHK+15, RENEWCHK+18, RENEWCHK+19, RENEWCHK+20, RENEWCHK+21
RFY	START+3, VEX5+6, END+6, END+15!
RXNUM	START+2~, RENEWCHK+14*, RENEWCHK+15
TOTF	START+2~, START+5, END+8, RENEWCHK+21
TOTREN	START+2~, START+5, END+7, RENEWCHK+20
U	VEX12+3
UNSKTR	START+3*, END+15!
USR	START+2~, RENEWCHK+10*
VEX648	VEX3+2, VEX3+3, VEX4, END+16!, BFDRNCHK+3, BFDRNCHK+6, BFDRNCHK+9
VEXANS	START+18, VEX, VEX+1, VEX+2, VEX6, VEX6+1, VEX3, VEX3+1, VEX4, VEX12+5 , END+19!
VEXANS2	VEX+2*, VEX10, END+5, END+12, END+13, END+19!
VEXCNT	VEXALT+1, VEXALT+5, VEXALT+6, VEXEND!
VEXPSORX	VEX10+3*!, END+19!, ULK+1, ULK+2, ULK+3!
VEXPTRN	VEXALT+1, VEXALT+4, VEXALT+5, VEXEND!
VEXPTRX	VEX, VEX+1, VEX6, VEX3*, VEX3+1, VEX3+2, VEX3+3, VEX4, VEX10, VEX10+3 , VEX5+3, VEX12+3, END+19!, RENEWCHK+10, RENEWCHK+14, RENEWCHK+17, RENEWCHK+18
VEXREN	VEX3+2*, END+16!, BFDRNCHK+3, BFDRNCHK+6, BFDRNCHK+9
VEXXFLAG	VEX3!, VEX10+2, VEX10+4, END+19!
X	VEX6+2, VEX6+5, VEX6+9!, VEX6+12, VEX4, END+19!
XMDUZ	END+4~, END+5, END+10~, END+12, END+13*
XMSUB	END+4~, END+5, END+10~, END+12, END+13*
XMT	END+4~
XMT(1	END+6*
XMT(2	END+6*
XMT(3	END+7*
XMT(4	END+7*
XMT(5	END+8*
XMTEXT	END+4~, END+5, END+10~, END+12, END+13*
XMY	END+4!, END+10!
XMY(	END+5, END+11
XMY("G.AUTORENEWAL"	END+5, END+12, END+13*
Y	START+14, VEX+1, VEX+2, VEX6+9!, VEX12+5, END+19!

Customize PDF page

Package: Vendor - Audiofax Inc

Routine: VEXRX

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: