Routine: PSXBPSRP

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$CJ,$$RJ)^XLFSTR
CMOP	2	($$SELDATE,$$SELPATS,$$SELRLNRL,$$SELTYPE,ALL,SELDIV,SELECT)^PSXBPSR1 $$EXCEL^PSXBPSUT
Integrated Billing	1	$$BILLINFO^IBNCPDPI
Outpatient Pharmacy	1	($$ECME,$$STATUS)^PSOBPSUT
Registration	1	PID^VADPT
Uncategorized	1	$$BPSPLN^BPSUTIL
VA Fileman	1	($$GET1,GETS)^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
PATS	; - Get Patient array
EXC	;- Prompt for Excel Capture
TITLE
SELREL	; - Get release, unreleased or all
DEV	; - Prompt for Device
SELPATS(ARRAY)
PAUSE
PLINEX
SELTYPE()
DIV	; - Get Division(s) (Return: DIVDA and DIVNM arrays)
CHKP(BPLINES)
PDETEX(TRX,PATS)
SELDIV
GOODPAT(DFN,PATS)	;
QUE	; - Process queue device
EN	; Entry Point	ICR #4968 Status: Active Usage: Controlled Subscription
CHKEPH(TRX)	;check batch for ePharmacy Rx's
START
PDET(TRX,PATS)
ONEDIV(BPFND,STDTE,ENDTE,PATS)	; - Display information for one division
SELECT(I)
SELDATE()
ALL
PAUSE2
HEAD1	;
BDT	; - Prompt to select Date Range (Return: Start Date^End Date)
PLINE
NDAT
EXIT
TYPE	; - Get (S)ummary or (D)etailed report type

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	QUE+6
^%ZISC	EXIT+2
^%ZTLOAD	QUE+4
$$BPSPLN^BPSUTIL	PDETEX+30
$$GET1^DIQ	CHKEPH+6, CHKEPH+7, PDET+3, PDET+4, PDET+5, PDET+9, PDET+10, PDET+15, PDET+16, PDET+17 , PDET+23, PDETEX+2, PDETEX+3, PDETEX+4, PDETEX+7, PDETEX+8, PDETEX+13, PDETEX+19, PDETEX+22, PDETEX+29
GETS^DIQ	ONEDIV+7
$$BILLINFO^IBNCPDPI	PDETEX+32
$$ECME^PSOBPSUT	PDET+17, PDETEX+22
$$STATUS^PSOBPSUT	PDET+25, PDETEX+6, PDETEX+31
$$SELDATE^PSXBPSR1	SELDATE
$$SELPATS^PSXBPSR1	SELPATS
$$SELRLNRL^PSXBPSR1	SELREL+1
$$SELTYPE^PSXBPSR1	SELTYPE
ALL^PSXBPSR1	ALL
SELDIV^PSXBPSR1	SELDIV
SELECT^PSXBPSR1	SELECT
$$EXCEL^PSXBPSUT	EXC+1
PID^VADPT	PDET+13, PDETEX+11
$$FMTE^XLFDT	TITLE+2
$$NOW^XLFDT	TITLE+2
$$CJ^XLFSTR	TITLE+1, TITLE+2
$$RJ^XLFSTR	HEAD1+17, HEAD1+18, HEAD1+20, HEAD1+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: QUE+5
Function Call: WRITE	Prompt: !,?7,"CREATED DATE/TIME:",?35,DATA(6) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,?7,"RECEIVED DATE/TIME:",?35,DATA(7) Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,?7,"RETRANSMISSION #:",?35,DATA(8) Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,?7,"ORIGINAL TRANS.:",?35,DATA(9) Line Location: HEAD1+11
Function Call: WRITE	Prompt: !,?7,"CLOSED DATE/TIME:",?35,DATA(10) Line Location: HEAD1+12
Function Call: WRITE	Prompt: !,"NAME",?22,"ECME#/RX#/FL#",?45,"NDC SENT",?59,"NDC RECVD",?71,"CMOP-STAT" Line Location: PLINE+0
Function Call: WRITE	Prompt: !," DRUG",?22,"INSURANCE",?38,"PAY-STAT",?48,"BILL#",?58,"REL-DATE" Line Location: PLINE+1
Function Call: WRITE	Prompt: !,"TRANSMISSION",U,"STATUS",U,"DIVISION",U,"CMOP SYSTEM",U,"TRANSMISSION DATE/TIME",U Line Location: PLINEX+0
Function Call: WRITE	Prompt: "NAME",U,"Pt.ID",U,"ECME#",U,"RX#",U,"FL#",U,"NDC SENT",U,"NDC RECVD",U,"CMOP-STAT",U Line Location: PLINEX+1
Function Call: WRITE	Prompt: "DRUG",U,"INSURANCE",U,"PAY-STAT",U,"BILL#",U,"REL-DATE" Line Location: PLINEX+2
Function Call: WRITE	Prompt: !!,"******* BATCH HAS NO ECME BILLABLE PRESCRIPTIONS *****",! Line Location: NDAT+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: $$CJ^XLFSTR("CMOP/ECME ACTIVITY REPORT "_$S($G(BPFND)=1:"for "_$E(DIVDA(DIVDA),1,24),1:""),80) Line Location: TITLE+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR("For "_STDTE_" thru "_$P(ENDTE,"@")_" Printed: "_$$FMTE^XLFDT($$NOW^XLFDT()),80) Line Location: TITLE+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue:" Line Location: PAUSE2+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue, '^' to exit:" Line Location: PAUSE+1
Function Call: READ	Timeout: $G(DTIME) Variable: X Line Location: PAUSE+2
Routine Call	%ZIS Line Location: QUE+6
Routine Call	%ZIS Line Location: DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
^PSX(550.2 - [#550.2]	GETS^DIQ
550.215	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+7, START+8
^PSRX - [#52]	PDET+17, PDET+19, PDETEX+22, PDETEX+25
^PSX(550.2 - [#550.2]	ONEDIV+4, ONEDIV+5, CHKEPH+2, CHKEPH+3, CHKEPH+4, PDET+2, PDETEX+1

Label References

Name	Line Occurrences
$$CHKEPH	ONEDIV+12
$$GOODPAT	CHKEPH+5, PDET+6, PDETEX+5
$$PDET	ONEDIV+23
$$SELDATE	BDT+1
$$SELPATS	PATS+1
$$SELTYPE	TYPE+1
CHKP	ONEDIV+24, PDET+8
EXIT	BDT+1, TYPE+1, PATS+1, DIV+1, SELREL+1, EXC+1, DEV+2, QUE+8, START+20
HEAD1	ONEDIV+19
NDAT	ONEDIV+24
ONEDIV	START+11
PAUSE	ONEDIV+25, CHKP+3
PAUSE2	START+17, EXIT
PDETEX	ONEDIV+28
PLINE	PDET+1, CHKP+3
PLINEX	START+5
SELDIV	DIV+1
START	DEV+4
TITLE	START+15, HEAD1+1, CHKP+3

Naked Globals

Name	Field # of Occurrence
^(	PDET+19, PDETEX+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, ONEDIV+1~
%ZIS	EN+1~, DEV+1*
%ZIS("A"	DEV+1*
%ZIS("B"	DEV+1*
ARRAY	SELPATS~
BATCHES	ONEDIV+1~
BIEN	PDET~, PDET+14, PDETEX~, PDETEX+12
BPFND	START~, START+1, START+11, START+14, ONEDIV~, ONEDIV+16, TITLE+1
BPLINES	CHKP~, CHKP+1, CHKP+2, CHKP+3
DATA	ONEDIV+6~, ONEDIV+8, CHKEPH+1~, CHKEPH+4
DATA(	ONEDIV+9, HEAD1+3, HEAD1+17, PDETEX+14
DATA(1	HEAD1+4, PDETEX+15
DATA(10	HEAD1+12
DATA(13	HEAD1+13, HEAD1+20
DATA(14	HEAD1+14, HEAD1+21
DATA(2	ONEDIV+10, ONEDIV+11, HEAD1+5, PDETEX+16
DATA(3	HEAD1+6, PDETEX+17
DATA(5	HEAD1+7, HEAD1+18, PDETEX+18
DATA(6	HEAD1+8
DATA(7	HEAD1+9
DATA(8	HEAD1+10
DATA(9	HEAD1+11
DFN	PDET~, PDET+5, PDET+6, PDET+16, PDETEX~, PDETEX+4, PDETEX+5, PDETEX+19, GOODPAT~, GOODPAT+2
DIVDA	EN+1~, START+11*, ONEDIV+11, TITLE+1
DIVDA(	START+11, ONEDIV+11, TITLE+1
DIVNM	EN+1~, DIV+1
DIVNM(	ONEDIV+10
DTIME	PAUSE2+3, PAUSE+2
DTOUT	EN+1~
EDFN	CHKEPH+1~, CHKEPH+4*, CHKEPH+5
ENDT	EN+1~, BDT+2*, START+8, ONEDIV+4
ENDTE	START~, START+8*, START+11, ONEDIV~, TITLE+2
EPHARM	CHKEPH+1~, CHKEPH+2, CHKEPH+12, CHKEPH+13
EPHFL	ONEDIV+1~, ONEDIV+3, ONEDIV+12, ONEDIV+13
EXCEL	EN+1~, EXC+1*, START+5, START+15, START+17, START+19, ONEDIV+19, ONEDIV+22, ONEDIV+25, CHKP
I	EN+1~, SELECT~
IO	START+2, PAUSE2+4, PAUSE+3
IO("Q"	DEV+4
IO(0	PAUSE2+2, PAUSE+1
IOF	TITLE
IOSL	CHKP+3
IOST	DEV+3, QUE+7
LINE	EN+1~, START~, START+1*, PLINE+2, TITLE+3
M	PDET~, PDET+18, PDET+19, PDETEX~, PDETEX+24~, PDETEX+25
N	PDET~, PDET+18, PDET+19, PDETEX~, PDETEX+24~, PDETEX+25
NDCR	PDET~, PDET+18, PDET+19, PDET+20, PDETEX~, PDETEX+24~, PDETEX+25, PDETEX+27
NDCS	PDET~, PDET+18, PDET+19, PDET+20, PDETEX~, PDETEX+24~, PDETEX+25, PDETEX+26
PATS	EN+2~, PATS+1, START+11, ONEDIV~, ONEDIV+23, ONEDIV+28, CHKEPH+5, PDET~, PDET+6, PDETEX~ , PDETEX+5, GOODPAT~
PATS(	GOODPAT+1, GOODPAT+2
POP	EN+1~, BDT+1, TYPE+1, PATS+1, DIV+1, EXC+1, DEV+2, START~, START+11, START+14 , START+19, ONEDIV+4, ONEDIV+5, ONEDIV+23, ONEDIV+24, ONEDIV+25, PDET+2, PDET+8, EXIT, EXIT+2 , CHKP+3, PAUSE+2
PS	ONEDIV+1~, ONEDIV+5, ONEDIV+23, ONEDIV+24, PDET~, PDET+2, PDET+13, PDET+27, PDETEX~, PDETEX+11*
PSXDT	ONEDIV+1~, ONEDIV+2, ONEDIV+4, ONEDIV+5
RDT	PDET~, PDET+15, PDET+20, PDET+26, PDETEX~, PDETEX+13, PDETEX+28, PDETEX+33
RELDAT	CHKEPH+1~, CHKEPH+6, CHKEPH+7, CHKEPH+8, CHKEPH+9, PDET+9, PDET+10, PDET+11, PDET+12, PDETEX+7* , PDETEX+8*, PDETEX+9, PDETEX+10
RFL	CHKEPH+1~, CHKEPH+4, CHKEPH+6, CHKEPH+7, PDET~, PDET+4, PDET+9, PDET+10, PDET+14, PDET+15 , PDET+17, PDET+19, PDET+25, PDETEX~, PDETEX+3*, PDETEX+6, PDETEX+7, PDETEX+8, PDETEX+12, PDETEX+13 , PDETEX+23, PDETEX+25, PDETEX+30, PDETEX+31, PDETEX+32
RLNRALL	SELREL+1~*, CHKEPH+8, CHKEPH+9, PDET+11, PDET+12, PDETEX+9, PDETEX+10
RX	CHKEPH+1~, CHKEPH+4*, CHKEPH+6, CHKEPH+7
RXI	PDET~, PDET+3, PDET+9, PDET+10, PDET+14, PDET+15, PDET+17, PDET+19, PDET+23, PDET+25 , PDETEX~, PDETEX+2, PDETEX+6, PDETEX+7, PDETEX+8, PDETEX+12, PDETEX+13, PDETEX+21, PDETEX+22, PDETEX+25 , PDETEX+29, PDETEX+30, PDETEX+31, PDETEX+32
RXS	PDET~, PDET+2, PDET+3, PDET+4, PDET+5, PDETEX~, PDETEX+1, PDETEX+2, PDETEX+3, PDETEX+4
SEQ	CHKEPH+1~, CHKEPH+2*, CHKEPH+3, CHKEPH+4
STDT	EN+1~, BDT+2*, START+7, ONEDIV+2
STDTE	START~, START+7*, START+11, ONEDIV~, TITLE+2
TEMP	ONEDIV+6~
TEMP(	ONEDIV+8
TERM	EN+1~, DEV+3, QUE+7, START+17, ONEDIV+25, CHKP+2, CHKP+3, PAUSE2
TRX	ONEDIV+1~, ONEDIV+5*, ONEDIV+7, ONEDIV+8, ONEDIV+12, ONEDIV+23, ONEDIV+28, CHKEPH~, CHKEPH+2, CHKEPH+3 , CHKEPH+4, PDET~, PDET+2, PDET+3, PDET+4, PDET+5, PDETEX~, PDETEX+1, PDETEX+2, PDETEX+3 , PDETEX+4
TYPE	EN+2~, TYPE+1*, ONEDIV+3, ONEDIV+12, HEAD1+2
U	BDT+2, PDETEX+14, PDETEX+15, PDETEX+16, PDETEX+17, PDETEX+18, PDETEX+19, PDETEX+20, PDETEX+21, PDETEX+22 , PDETEX+23, PDETEX+26, PDETEX+27, PDETEX+28, PDETEX+29, PDETEX+30, PDETEX+31, PDETEX+32, PLINEX, PLINEX+1 , PLINEX+2
VA	EN+1~, PDET~, PDETEX~
VA("BID"	PDET+16, PDETEX+20
VAERR	EN+1~
X	EN+3~, BDT+1, BDT+2, PAUSE2+1~, PAUSE2+3, PAUSE~, PAUSE+2*
Y	EN+3~, START~, START+7, START+8, ONEDIV+1~
ZTDESC	EN+3~, QUE+3*
ZTIO	EN+3~
ZTQUEUED	EN+3~, EXIT+1
ZTREQ	EN+3~, EXIT+1*
ZTRTN	EN+3~, QUE+2*
ZTSAVE	EN+3~
ZTSAVE("*"	QUE+1*
ZTSK	EN+3~, QUE+5

Customize PDF page

Package: CMOP

Routine: PSXBPSRP

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: