Routine: BPSVRX

Information

BPSVRX ;ALB/ESG - View ECME Prescription ;5/23/2011

Package	Total	Call Graph
E Claims Management Engine	10	$$CLAIM^BPSBUTL $$IEN59^BPSOSRX $$YESNO^BPSSCRRS ($$RXNUM,$$RXREF)^BPSSCRU2 $$ASKLINE^BPSSCRU4 ($$RXAPI1,$$RXSUBF1)^BPSUTIL1 ^BPSVRX (BILL,CRI,INS,LOG,TPJIARCH,TPJIARP,TPJICI,TPJIECME,TPJILST,VIEWRX)^BPSVRX1 (DGELST,DGELV)^BPSVRX2 MP^BPSVRX3
Kernel	4	($$DEFDIR,$$DEL,$$FTG,CLOSE,OPEN)^%ZISH $$FMTE^XLFDT ($$CJ,$$LJ,$$TRIM,$$UP)^XLFSTR DISP^XQORM1
List Manager	3	EN^VALM FULL^VALM1 CNTRL^VALM10
Outpatient Pharmacy	3	RX^PSO52API $$RXNUM^PSOBPSU2 (DIC,DIQ)^PSODI
Integrated Billing	1	$$RXBILL^IBNCPUT3
MailMan	1	$$CTRL^XMXUTIL1
Registration	1	DEM^VADPT
VA FileMan	1	^DIR

Package	Total	Caller Graph
E Claims Management Engine	21	BPS PRTCL USRSCR VIEW ECME RX BPS RPT VIEW ECME RX BPS VIEW ECME RX BPS VRX NAV BILL LIST BPS VRX NAV BILLING EVENTS RPT BPS VRX NAV CRI BPS VRX NAV DG ELIG STATUS BPS VRX NAV DG ELIG VERIFICATION BPS VRX NAV ECME CLAIM LOG BPS VRX NAV INS POL BPS VRX NAV MED PROFILE BPS VRX NAV TPJI AR ACCT PROFILE BPS VRX NAV TPJI AR COMMENT HISTORY BPS VRX NAV TPJI CLAIM INFORMATION BPS VRX NAV TPJI ECME RX INFO BPS VRX NAV VIEWRX BPSSCRRJ BPSVRX BPSVRX1 BPSVRX2 BPSVRX3
Outpatient Pharmacy	3	PSOBPSU3 PSOREJP0 PSOREJP1
Integrated Billing	1	IBJTRX
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- header code
HELP	; -- help code
EXIT	; -- ListManager exit code
INIT(BPSVRX)	; ListManager entry point
INIT1	; internal branch point to perform all prompts (Rx, fill#, view type)
INIT2	; internal branch point for fill# prompt and view type prompt
INIT3	; internal branch point for view type prompt
INITX	; finished with the INIT code to initially build the list
RXP()	; prompt the user to enter the prescription ; output value of function is RXIEN^DFN ; return BPSVRXQ=1 to exit option
RXPR	;
RXP1	;
RXPX	;
FILLP(RXIEN,DFN)	; prompt for a fill# given the RXIEN and DFN ; return BPSVRXQ=1 to exit option
FILLX	;
VTP(RXIEN,FILL)	; prompt for the view type of this report ; Most recent ECME transaction or All ECME transactions ; Output value of function is "M" or "A". ; return BPSVRXQ=1 to exit option
VTPCB	; ; check for cancelled bills and ask how they should be handled
VTPX	;
BUILD(RXIEN,FILL,VIEWTYPE)	; build list ; This is called in the INIT section to build the ListMan scratch global ; all parameters are required and must exist when this is called
BUILDX	;
NAV(SNUM)	; ListMan nav jumping
NAVX	;
UPDATE(DISP,HDR,TITLE,NAME,SNUM)	; update the BPSVRX ListMan display array ; DISP - display array to be merged into ^TMP("BPSVRX",$J) ; Assmues display lines are found in @DISP@(N,0) ; HDR - header data array (i.e. VALMHDR data); HDR(1)=line 1; HDR(2)=line 2; etc. ; TITLE - title of section (i.e. VALM("TITLE") ; NAME - name/description of section being added (required) ; SNUM - section number used for ListMan navigational jumps (required)
UPDX	;
FLN(LINE,DATA)	; format line# LINE by reproducing any video attributes found in string DATA
FLNX	;
HFS(SECTION,RTN,VRXHDR,HDRARY,BPSVRXKQ)	; output data to scratch host file and merge into ListMan display array ; SECTION - section code (e.g. "BER" - billing events report, "CRI" - claims-response inquiry) ; RTN - tag^routine to invoke to produce the report ; VRXHDR - name of section to appear at the start of the display ; HDRARY - header array ; BPSVRXKQ - section#
HFSX	;
RFL(RXIEN,FILLIST)	; Return a list of all ECME fill#s for the Rx
RFLX	;
VER	; Selection from the ECME User Screen
VERX	;

External References

Name	Field # of Occurrence
$$DEFDIR^%ZISH	HFS+12
$$DEL^%ZISH	HFS+46
$$FTG^%ZISH	HFS+36
CLOSE^%ZISH	HFS+31
OPEN^%ZISH	HFS+20
$$CLAIM^BPSBUTL	HDR+4
$$IEN59^BPSOSRX	VTP+13
$$YESNO^BPSSCRRS	RXP1+15
$$RXNUM^BPSSCRU2	HDR+3
$$RXREF^BPSSCRU2	VER+6
$$ASKLINE^BPSSCRU4	VER+4
$$RXAPI1^BPSUTIL1	HDR+5, HDR+8, INIT+14, INIT+15
$$RXSUBF1^BPSUTIL1	INIT+22
^BPSVRX	VER+9
BILL^BPSVRX1	BUILD+10
CRI^BPSVRX1	BUILD+13
INS^BPSVRX1	BUILD+14
LOG^BPSVRX1	BUILD+9
TPJIARCH^BPSVRX1	BUILD+19
TPJIARP^BPSVRX1	BUILD+18
TPJICI^BPSVRX1	BUILD+17
TPJIECME^BPSVRX1	BUILD+20
TPJILST^BPSVRX1	BUILD+15
VIEWRX^BPSVRX1	BUILD+8
DGELST^BPSVRX2	BUILD+21
DGELV^BPSVRX2	BUILD+22
MP^BPSVRX3	BUILD+16
^DIR	RXPR+7, FILLP+45, VTP+32, VTPCB+21
$$RXBILL^IBNCPUT3	VTPCB+3
RX^PSO52API	FILLP+8
$$RXNUM^PSOBPSU2	RXPR+12
DIC^PSODI	RXPR+18
DIQ^PSODI	RXP1+6
DEM^VADPT	HDR+9
EN^VALM	BPSVRX+12
FULL^VALM1	VER+2
CNTRL^VALM10	UPDATE+15, UPDATE+22, UPDATE+28, FLN+10
$$FMTE^XLFDT	HDR+11, FILLP+32, FILLP+33
$$CJ^XLFSTR	UPDATE+14
$$LJ^XLFSTR	HDR+3, HDR+4, HDR+10, HDR+11, HDR+14
$$TRIM^XLFSTR	HFS+49, HFS+52
$$UP^XLFSTR	RXPR+9
$$CTRL^XMXUTIL1	HFS+52
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: RXPR+7
Function Call: WRITE	Prompt: ! Line Location: RXPR+18
Function Call: WRITE	Prompt: " Invalid selection. Please try again.",$C(7) Line Location: RXP1+2
Function Call: WRITE	Prompt: !!?1,"Patient",?25,"Rx#",?37,"Drug Name",?63,"Rx Status" Line Location: RXP1+12
Function Call: WRITE	Prompt: !?1,$E(PNM,1,23),?25,RXN,?37,$E(DRUG,1,25),?63,$E(RXST,1,16),! Line Location: RXP1+13
Function Call: WRITE	Prompt: ! Line Location: FILLP+45
Function Call: WRITE	Prompt: ! Line Location: VTP+32
Function Call: WRITE	Prompt: ! Line Location: VTPCB+21
Function Call: WRITE	Prompt: ! Line Location: BUILD+5
Function Call: WRITE	Prompt: !,"Enter the claim line number for the View ePharmacy Rx report." Line Location: VER+3
Routine Call	DIR Line Location: RXPR+7 FILLP+45 VTP+32 VTPCB+21
Routine Call	VALM Line Location: BPSVRX+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPST - [#9002313.59]	RFL+4
^BPSTL("B"	VTP+15
^TMP(	UPDATE+36, UPDATE+37*, UPDATE+38!
^TMP("BPSVRX"	EXIT+1!, BUILD+6!, UPDATE+10, UPDATE+14, UPDATE+21, UPDATE+27, UPDATE+34, UPDATE+43, UPDATE+44, UPDATE+45*
^TMP($J	FILLP+7!, FILLP+9, FILLP+10, FILLP+11, FILLP+16, FILLP+17, FILLP+25, FILLX+1!, HFS+34, HFS+35! , HFS+49!, HFS+52*, HFS+55, HFS+57!

Label References

Name	Line Occurrences
$$FILLP	INIT2+1
$$FLN	UPDATE+21, UPDATE+27
$$RXP	INIT1+1
$$VTP	INIT3+1
@(	HFS+30
BUILD	INIT3+6
FILLX	FILLP+5, FILLP+46
HFSX	HFS+14, HFS+21, HFS+36
INIT1	INIT+13, INIT+14, INIT+16
INIT2	INIT+20, INIT+26
INIT3	INIT+21, INIT+22, INIT+23
INITX	INIT1+2, INIT1+4, INIT2+2, INIT2+3, INIT3+2, INIT3+3
RFL	INIT+23, FILLP+21
RFLX	RFL+3
RXP1	RXPR+12
RXPR	RXP1+2, RXP1+15
RXPX	RXPR+8
UPDATE	HFS+17, HFS+25, HFS+41, HFS+56
VERX	VER+5
VTPCB	VTP+20
VTPX	VTP+8, VTP+9, VTP+33, VTPCB+12, VTPCB+22, VTPCB+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATXT	VTP+5~, VTP+28*, VTP+29, VTP+31
BP57	VTP+5~, VTP+15*
BP59	RFL+1~, RFL+4*
BPFLZ	FILLP+3~, FILLP+7!
BPFLZ(	FILLP+12, FILLP+22, FILLP+30, FILLP+32, FILLP+33
BPFLZ(""	FILLP+42
BPFLZ(0	FILLP+18*
BPSARR	HFS+7~, HFS+46
BPSARR(	HFS+45*
BPSFL	INIT+1~, INIT+23, FILLP+3~, FILLP+21
BPSFL(	INIT+23, FILLP+22
BPSG	VER+1~, VER+4*, VER+5, VER+6
BPSHANDLE	HFS+7~, HFS+11*, HFS+13, HFS+20, HFS+31
BPSRXD	RXP+4~
BPSRXD(52	RXP1+7, RXP1+8, RXP1+9, RXP1+10, RXP1+11
BPSVDIR	HFS+7~, HFS+12*, HFS+14, HFS+20, HFS+23, HFS+36, HFS+38, HFS+46
BPSVFILE	HFS+7~, HFS+13*, HFS+20, HFS+24, HFS+36, HFS+39, HFS+45
BPSVID	UPDATE+8~, UPDATE+32*, UPDATE+36, UPDATE+37, UPDATE+38
BPSVRX	BPSVRX+13!, INIT~, INIT+13!, INIT+14!, INIT+16!, BUILD+4*, VER+1~
BPSVRX("FILL#"	INIT+19, VER+8*
BPSVRX("LISTNAV"	NAV+1, UPDATE+16*
BPSVRX("RXIEN"	INIT+12, VER+7*
BPSVRXCAN	VTP+6~, VTPCB+23*, VTPCB+26
BPSVRXCLM	BPSVRX+11~, VTPCB+2!, VTPCB+10, VTPCB+30
BPSVRXCLM(	VTPCB+6, VTPCB+8, VTPCB+29!
BPSVRXIB	VTP+6~, VTPCB+3
BPSVRXIB(	VTPCB+4, VTPCB+5
BPSVRXKQ	HFS~, HFS+17, HFS+25, HFS+41, HFS+56
BPSVRXQ	INIT+1~, INIT1+2, INIT2+2, INIT3+2, RXPR+8, FILLP+46, VTP+33, VTPCB+22
BSTR	FILLP+3~, FILLP+29, FILLP+35, FILLP+39
BV1	HFS+7~, HFS+52*
BVZ	HFS+7~, HFS+49, HFS+52
CNT	FILLP+3~, FILLP+29, FILLP+31, FILLP+35, FILLP+36, FILLP+41
COB	VTP+5~, VTP+13*, VTP+15
COL	FLN+1~, FLN+6*, FLN+8, FLN+9, FLN+10
D0	RXP+4~
DA	RXP+4~, RXP1+5*, RXP1+6, RXP1+7, RXP1+8, RXP1+9, RXP1+10, RXP1+11
DATA	FLN~, FLN+5, FLN+7, FLN+9, FLN+11, FLN+12, FLN+15*, FLNX+1
DFN	BPSVRX+11~, HDR+1~, HDR+8, INIT+15, INIT+16!, INIT1+3, INIT1+4, INIT2+1, RXP+4~, RXPR+1 , RXP1+8*, RXPX+1, FILLP~, FILLP+5, FILLP+8, FILLP+9, FILLP+10, FILLP+11, FILLP+16, FILLP+17 , FILLP+25
DIC	RXP+4~, RXPR+15, RXPR+18!, RXP1+5, RXP1+6
DIC("S"	RXPR+17*
DIC(0	RXPR+16*
DIQ	RXP+4~, RXP1+5*, RXP1+6
DIQ(0	RXP1+5*
DIR	RXP+4~, RXPR+7!, FILLP+3~, FILLP+45!, VTP+5~, VTP+32!, VTPCB+21!
DIR("?"	RXPR+4, RXPR+5, RXPR+6*
DIR("A"	RXPR+3, FILLP+40, VTP+23, VTP+24, VTP+25, VTP+26, VTP+29, VTPCB+14, VTPCB+15, VTPCB+16 , VTPCB+17, VTPCB+18
DIR("B"	FILLP+42, VTP+30, VTPCB+19*
DIR("L"	FILLP+25, FILLP+26, FILLP+27, FILLP+28, FILLP+36, FILLP+38, FILLP+43*
DIR(0	RXPR+2, FILLP+24, FILLP+39, VTP+22, VTP+31, VTPCB+20
DIROUT	RXP+4~, FILLP+3~, VTP+5~
DIRUT	RXP+4~, RXPR+8, FILLP+3~, FILLP+46, VTP+5~, VTP+33, VTPCB+22
DISP	UPDATE~, UPDATE+33*, UPDATE+34, UPDATE+42
DR	RXP+4~, RXP1+5*, RXP1+6
DRUG	RXP+4~, RXP1+10*, RXP1+13
DTOUT	RXP+4~, FILLP+3~, VTP+5~
DUOUT	RXP+4~, FILLP+3~, VTP+5~
FILL	BPSVRX+11~, HDR+2, HDR+3, HDR+4, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT2+1* , INIT2+3, INIT3+1, INIT3+6, FILLP+3~, FILLP+4, FILLP+47, FILLX+2, VTP~, VTP+9, VTP+13 , VTPCB+3, BUILD~, BUILD+8, BUILD+9, BUILD+10, BUILD+13, BUILD+14, BUILD+15, BUILD+16, BUILD+17 , BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+22
FILLIST	RFL~, RFL+2!
FILLIST(	RFL+4*
FINDOFF	FLN+1~, FLN+7*, FLN+8, FLN+9, FLN+12
FINDON	FLN+1~, FLN+5*, FLN+6
FL	RFL+1~, RFL+4*
FLDT	FILLP+3~, FILLP+10, FILLP+12, FILLP+16, FILLP+18, FILLP+32, FILLP+34, FILLP+35, FILLP+36
GLO	HFS+7~, HFS+34, HFS+36, HFS+40, HFS+55, HFS+56
HDR	UPDATE~, HFS+7~, HFS+17, HFS+25, HFS+41
HDR(	UPDATE+27
HDR(0	UPDATE+26
HDR(1	HFS+15, HFS+22, HFS+37*
HDR(2	HFS+16, HFS+23, HFS+38*
HDR(3	HFS+24, HFS+39
HDR(4	HFS+40*
HDRARY	HFS~, HFS+56
IB	VTP+6~, VTPCB+5*, VTPCB+6
IBA	VTP+6~, VTPCB+4, VTPCB+7, VTPCB+10, VTPCB+14, VTPCB+15, VTPCB+16, VTPCB+17, VTPCB+30
IBC	VTP+6~, VTPCB+4, VTPCB+6, VTPCB+10, VTPCB+12, VTPCB+14, VTPCB+15, VTPCB+18
IBIFN	VTP+6~, VTPCB+4, VTPCB+5, VTPCB+6, VTPCB+8, VTPCB+29
IEN59	VTP+5~, VTP+13*, VTP+14, VTP+15
IO	HFS+28
IOM	HFS+29*
>> IORVOFF	UPDATE+15
>> IORVON	UPDATE+15
IOSL	HFS+29*
>> IOUOFF	UPDATE+22, UPDATE+28
>> IOUON	UPDATE+22, UPDATE+28
LINE	FLN~, FLN+10
LN	UPDATE+8~, UPDATE+10, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+21, UPDATE+22, UPDATE+27, UPDATE+28, UPDATE+34* , UPDATE+37, UPDATE+43, UPDATE+44, UPDATE+45*, UPDATE+49
MTXT	VTP+5~, VTP+27*, VTP+29, VTP+31
NAME	UPDATE~, UPDATE+13, UPDATE+14
NODATA	UPDATE+8~
PNM	RXP+4~, RXP1+9*, RXP1+13
POP	HFS+7~, HFS+21
PSODIY	RXP+4~
RELDT	FILLP+3~, FILLP+11, FILLP+12, FILLP+17, FILLP+18, FILLP+33, FILLP+34, FILLP+35, FILLP+36
RF	FILLP+3~, FILLP+9, FILLP+10, FILLP+11, FILLP+12, FILLP+22, FILLP+30*, FILLP+32, FILLP+33, FILLP+35 , FILLP+36
RTN	HFS~, HFS+30
RXIEN	BPSVRX+11~, HDR+2, HDR+3, HDR+4, HDR+5, HDR+8, INIT+12, INIT+13, INIT+14, INIT+15 , INIT+22, INIT+23, INIT1+1, INIT1+3, INIT1+4, INIT2+1, INIT3+1, INIT3+6, RXP+4~, RXPR+1* , RXPR+12, RXPR+19, RXP1+2, RXP1+5, RXPX+1, FILLP~, FILLP+5, FILLP+8, FILLP+9, FILLP+10 , FILLP+11, FILLP+16, FILLP+17, FILLP+21, FILLP+25, VTP~, VTP+8, VTP+13, VTPCB+3, BUILD~ , BUILD+8, BUILD+9, BUILD+10, BUILD+13, BUILD+14, BUILD+15, BUILD+16, BUILD+17, BUILD+18, BUILD+19 , BUILD+20, BUILD+21, BUILD+22, RFL~, RFL+3*, RFL+4
RXN	RXP+4~, RXP1+7*, RXP1+13
RXREF	VER+1~, VER+6*, VER+7, VER+8
RXST	RXP+4~, RXP1+11*, RXP1+13
SECTION	HFS~, HFS+10*, HFS+11, HFS+34, HFS+35, HFS+49, HFS+52, HFS+55, HFS+57
SNUM	NAV~, NAV+1, UPDATE~, UPDATE+16
T1	VTP+5~, VTP+17*, VTP+26
T2	VTP+5~, VTP+17*, VTP+26, VTP+27
T3	VTP+5~, VTP+17*, VTP+26, VTP+27
TITLE	UPDATE~, UPDATE+20, UPDATE+21
TOT	VTP+5~, VTP+12!, VTP+15, VTP+17, VTP+20, VTP+23, VTP+24
TOT(	VTP+15*
TOT(1	VTP+17
TOT(2	VTP+17
TOT(3	VTP+17
U	HDR+4, HDR+11, HDR+14, HDR+15, INIT1+3, RXPX+1, FILLP+12, FILLP+18, FILLP+22, FILLP+32 , FILLP+33, FILLP+39, VTP+31, VTPCB+6, RFL+4, VER+6, VER+7, VER+8
V1	HDR+1~, HDR+3, HDR+4, HDR+5*, HDR+6
V2	HDR+1~, HDR+10, HDR+11, HDR+12
V3	HDR+1~, HDR+14, HDR+15, HDR+16
VA	HDR+1~
VA("BID"	HDR+10
VADM	HDR+1~
VADM(1	HDR+10
VADM(14	HDR+15
VADM(3	HDR+11
VADM(4	HDR+11
VADM(5	HDR+14
VAERR	HDR+1~
>> VALMBCK	VERX+1*
VALMBG	BPSVRX+11~, NAV+1*
VALMCNT	BPSVRX+11~, UPDATE+49*
>> VALMEVL	UPDATE+37
>> VALMHDR(1	HDR+6*
>> VALMHDR(2	HDR+12*
>> VALMHDR(3	HDR+16*
VALMQUIT	BPSVRX+11~, INIT1+2, INIT1+4, INIT2+2, INIT2+3, INIT3+2, INIT3+3
VAROFF	FLN+1~, FLN+4*, FLN+7, FLN+8, FLN+10, FLN+12
VARON	FLN+1~, FLN+3*, FLN+4, FLN+5, FLN+6, FLN+8, FLN+9, FLN+10, FLN+11
VIEWTYPE	BPSVRX+11~, INIT3+1, INIT3+3, INIT3+6, VTP+5~, VTP+7, VTP+20, VTP+34, VTPX+1, BUILD~ , BUILD+8, BUILD+9, BUILD+10, BUILD+13, BUILD+14, BUILD+15, BUILD+16, BUILD+17, BUILD+18, BUILD+19 , BUILD+20, BUILD+21, BUILD+22
VRXHDR	HFS~, HFS+17, HFS+25, HFS+41, HFS+56
WIDTH	FLN+1~, FLN+8, FLN+9, FLN+10
X	HELP+1, RXP+4~, RXPR+8, RXPR+9, RXPR+12, RXPR+18, FILLP+3~, VTP+5~
Y	RXP+4~, RXPR+19, FILLP+3~, FILLP+46, FILLP+47, VTP+5~, VTP+33, VTP+34, VTPCB+22, VTPCB+23
Z	UPDATE+8~, UPDATE+27, UPDATE+34, UPDATE+36, UPDATE+37, UPDATE+38
>> ZTQUEUED	BUILD+5

Customize PDF page

Package: E Claims Management Engine

Routine: BPSVRX

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: