Routine: PSOBPSR1

Package	Total	Call Graph
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR
E Claims Management Engine	1	$$GETBAMT^BPSBUTL
Outpatient Pharmacy	1	$$RXSITE^PSOBPSUT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOBPSRP

Name	Comments	DBIA/ICR reference
EN
DATE	;
RX	;
NEXT	; - If not Sorting (already printed), SKIP, otherwise, print the report
NDTP
CLOSE	;
END
SET	;
COMPILE(DFN,RXIEN)	; ; Gather data for report and determine the number of lines for the Rx
PRINT(DFN,RXIEN)	; - Print
TEXT(TEXT,STR,L)	; Formats STR into TEXT array, lines lenght = L
HDR	; - Prints the Header
SRT(ST)	; - Convert the "2,1" (example) to "DRUG,PATIENT"
DT(DT)	; - Convert FM Date to MM/DD/YYYY

Name	Field # of Occurrence
^%ZISC	CLOSE+1
$$GETBAMT^BPSBUTL	COMPILE+39
$$GET1^DIQ	COMPILE+34, HDR+2
GETS^DIQ	RX+3, RX+13, COMPILE+10, COMPILE+12
^DIR	HDR+4
$$RXSITE^PSOBPSUT	RX+16
DEM^VADPT	COMPILE+9
$$FMTE^XLFDT	HDR+9
$$NOW^XLFDT	HDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: SP2 Line Location: NEXT+18
Function Call: WRITE	Prompt: !,SP1 Line Location: NEXT+20
Function Call: WRITE	Prompt: !!?18,"******** NO DATA TO PRINT ********" Line Location: NDTP+0
Function Call: WRITE	Prompt: !,SP1 Line Location: NDTP+2
Function Call: WRITE	Prompt: !,"Total: ",PCNT," patient",$S(PCNT>1:"s",1:"") Line Location: NDTP+3
Function Call: WRITE	Prompt: " and ",FCNT," prescription fill",$S(FCNT>1:"s",1:""),"." Line Location: NDTP+4
Function Call: WRITE	Prompt: !,$P(RXREC,U),?15,$P(RXREC,U,2),?37,$P(RXREC,U,3),?57,$P(RXREC,U,4),?66,$P(RXREC,U,5) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,RXREC Line Location: PRINT+14
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: @IOF,"Ignored Rejects Report",?71,"Page: ",$J(PAG,3) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Sorted by",$$SRT(PSOSRT),?48,"Division: ",CDIVN Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Date Range: "_$$DT(PSOSD+1\1)_" - "_$$DT(PSOED\1) Line Location: HDR+8
Function Call: WRITE	Prompt: ?48,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT()) Line Location: HDR+9
Function Call: WRITE	Prompt: !!,?19,"Note: Billed amount is what was billed and" Line Location: HDR+11
Function Call: WRITE	Prompt: !,?17,"cannot be used to determine potential revenue." Line Location: HDR+12
Function Call: WRITE	Prompt: !,X Line Location: HDR+13
Function Call: WRITE	Prompt: !,"RX#/FILL",?15,"DRUG",?37,"PATIENT",?56,"IGNORE DT",?66,"IGNORED BY" Line Location: HDR+14
Function Call: WRITE	Prompt: !,"--------------",?15,"---------------------",?37,"------------------",?56,"---------",?66,"--------------" Line Location: HDR+15
Routine Call	DIR Line Location: HDR+4

FileNo	Call Tags
^PSRX - [#52]	GETS^DIQ
52.25	GETS^DIQ
^PS(59 - [#59]	GET1^DIQ
^BPSF(9002313.93 - [#9002313.93]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BPSF(9002313.93 - [#9002313.93]	COMPILE+33
^PSRX - [#52]	RX+11
^PSRX("B"	NEXT+14
^PSRX("REJDAT"	DATE+1, RX+1
^TMP("PSOBPSRC"	EN+3!, END!, PRINT+17*
^TMP("PSOBPSRP"	EN+3!, NEXT+1, NEXT+7, NEXT+8, NEXT+9, NEXT+10, NEXT+11, NEXT+12, NEXT+13, NEXT+18 , NEXT+20, END!, SET+5, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57 , COMPILE+61, COMPILE+62, PRINT+9, PRINT+10

Name	Line Occurrences
$$COMPILE	NEXT+15
$$DT	COMPILE+15, HDR+8
$$SRT	HDR+7
CLOSE	NEXT+21
DATE	RX+1
HDR	NEXT+16, NDTP, PRINT+6
NDTP	NEXT+1
NEXT	DATE+1
PRINT	NEXT+17
RX	RX+7, RX+8, RX+26
SET	RX+25
TEXT	COMPILE+19, COMPILE+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BILLED	COMPILE+6~, COMPILE+7, COMPILE+39, COMPILE+52
CBY	RX+12, RX+22, SET+4, COMPILE+6~, COMPILE+7, COMPILE+17, COMPILE+42
CBYI	EN~, RX+12, RX+23, RX+24
CCOM	COMPILE+6~, COMPILE+7, COMPILE+20, COMPILE+21
CCOM(	COMPILE+55, COMPILE+56, COMPILE+57
CDAT	COMPILE+6~, COMPILE+7, COMPILE+14, COMPILE+15*, COMPILE+42
CDATE	EN~, RX+12, RX+14, RX+21
CDIV	EN+1~, RX+12, RX+16, RX+17, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+10, NEXT+11 , NEXT+12, NEXT+13, NEXT+18, NEXT+20, SET+5, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52 , COMPILE+56, COMPILE+57, COMPILE+61, COMPILE+62, PRINT+6, PRINT+7, PRINT+9, PRINT+10, HDR+2
CDIVN	EN+1~, NEXT+6, HDR+1~, HDR+2, HDR+7
CFILL	RX+12, RX+15, RX+16, COMPILE+6~, COMPILE+22*, COMPILE+39, COMPILE+42
CINFO	EN+1~, COMPILE+6~, COMPILE+7*
CINFO(	COMPILE+14, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+20, COMPILE+22, COMPILE+23, COMPILE+29, COMPILE+30
CLOSE	EN~, RX+13!
CLOSE(	RX+14, RX+15, RX+21, RX+22, RX+23
COB	COMPILE+6~, COMPILE+7, COMPILE+23, COMPILE+39
CREAS	COMPILE+6~, COMPILE+7, COMPILE+16
DFN	EN~, RX+2, RX+5, RX+7, NEXT+6, NEXT+11, NEXT+12, NEXT+13, NEXT+15, NEXT+17 , SET+5, COMPILE~, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57, COMPILE+61 , COMPILE+62, PRINT~, PRINT+9, PRINT+10, PRINT+17
DIR	HDR+1~
DIR("A"	HDR+4*
DIR(0	HDR+4*
DIRUT	EN+7!, NEXT+7, NEXT+8, NEXT+9, NEXT+10, NEXT+11, NEXT+12, NEXT+13, NEXT+16, NEXT+18 , NEXT+20, NEXT+21, PRINT+6, HDR+3
DNAM	RX+2, RX+4, SET+4, COMPILE+6~, COMPILE+7, COMPILE+11, COMPILE+42
DNAMI	EN+1~, RX+2, RX+5, RX+8
DRG	EN~, RX+2*
DT	DT~, DT+1, DT+2, DT+3, DT+4
EXTRALINES	EN+2~, NEXT+3, NEXT+4, NEXT+16
FCNT	EN~, EN+7, NDTP+4, PRINT+19
FLD	SRT+3~, SRT+6*
I	EN~, SET+2, SET+3, SET+4, COMPILE+26~, SRT+3~, SRT+5, SRT+6, SRT+7
II	EN~, COMPILE+6~, COMPILE+47, COMPILE+48, COMPILE+49, COMPILE+55, COMPILE+56, COMPILE+57, COMPILE+60*, COMPILE+61 , COMPILE+62
IO	EN+3
IOF	HDR+6
IOSL	NEXT+16
IOST	NEXT+3, HDR+3
J	EN~, COMPILE+6~, TEXT+1~, TEXT+2*, TEXT+3
K	COMPILE+6~, TEXT+1~, TEXT+3, TEXT+4
L	TEXT~, TEXT+3
LINE	COMPILE+6~, COMPILE+41, COMPILE+42, COMPILE+43, COMPILE+44, COMPILE+45, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+52 , COMPILE+53, COMPILE+56, COMPILE+57, COMPILE+58, COMPILE+61, COMPILE+62, COMPILE+63*, COMPILE+65
LINES	EN+2~, NEXT+15*, NEXT+16
OCDIV	EN+1~, NEXT+6, PRINT+6, PRINT+7
OTHREJS	COMPILE+26~, COMPILE+27*
PAG	EN~, HDR+1*, HDR+3, HDR+6, HDR+10
PCNT	EN~, EN+7, NDTP+1, NDTP+3, PRINT+17
PMES	COMPILE+6~, COMPILE+7, COMPILE+18, COMPILE+19
PMES(	COMPILE+60, COMPILE+61, COMPILE+62
PNAM	EN~, RX+2, RX+4, SET+4, COMPILE+6~, COMPILE+7, COMPILE+11, COMPILE+42
PRTD	EN~, EN+7, NDTP, PRINT+19
PSOAPT	RX+7, END+1!
PSODIV	END+1!
PSODIV(	RX+17
PSODRG	END+1!
PSODRG(	RX+8
PSODRUG	RX+8, END+1!
PSOED	DATE+1, RX+21, END+1!, HDR+8
PSOINS	COMPILE+26~, COMPILE+27, COMPILE+29, COMPILE+44
PSOPT	END+1!
PSOPT(	RX+7
PSORX	EN+1~, NEXT+6, NEXT+14, NEXT+15, NEXT+17
PSORXN	EN+1~, NEXT+6, NEXT+12, NEXT+13, NEXT+14, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52 , COMPILE+56, COMPILE+57, COMPILE+61, COMPILE+62, PRINT+9, PRINT+10
PSOSD	EN+8, RX+21, END+1!, HDR+8
PSOSIT	RX+17, END+1!
PSOSRT	END+1!, SET+2, SET+3, HDR+7
PSOU	END+1!
PSOU(	RX+24
PSOUSER	RX+24, END+1!
PSSN	COMPILE+6~, COMPILE+7, COMPILE+9, COMPILE+42
RCARR	COMPILE+26~, COMPILE+27*
RCARR(	COMPILE+47, COMPILE+48, COMPILE+49
RCARR(0	COMPILE+36*
RCEXPL	COMPILE+26~, COMPILE+27, COMPILE+34, COMPILE+36
RCEXPLS	COMPILE+26~, COMPILE+27*
RCIEN	COMPILE+26~, COMPILE+27, COMPILE+33, COMPILE+34
RCIENS	COMPILE+26~, COMPILE+27*
RDATE	EN+1~, EN+8, DATE+1, RX+1
REJCD	COMPILE+26~, COMPILE+27, COMPILE+30, COMPILE+31, COMPILE+33, COMPILE+36
REJCDS	COMPILE+26~, COMPILE+27*
RSEQ	EN+1~, NEXT+6, NEXT+13, COMPILE+12, COMPILE+14, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+20, COMPILE+22 , COMPILE+23, COMPILE+29, COMPILE+30, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57 , COMPILE+61, COMPILE+62, PRINT+9, PRINT+10
RXE	EN+1~, RX+2, RX+6, SET+5
RXIEN	EN~, EN+7, RX+1, RX+3, RX+4, RX+5, RX+6, RX+11, RX+13, RX+14 , RX+15, RX+16, RX+21, RX+22, RX+23, COMPILE~, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+13 , COMPILE+14, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+20, COMPILE+22, COMPILE+23, COMPILE+29, COMPILE+30, COMPILE+39 , PRINT~
RXINFO	EN+1~, RX+3!, COMPILE+10!
RXINFO(52	RX+4, RX+5, RX+6, COMPILE+11, COMPILE+13
RXLN	EN+2~, PRINT+4~, PRINT+9*, PRINT+10, PRINT+12
RXNUM	COMPILE+6~, COMPILE+7, COMPILE+13, COMPILE+42
RXNUMB	EN+1~, NEXT+6, NEXT+14
RXREC	PRINT+4~, PRINT+10*, PRINT+12, PRINT+14
S1	EN~, NEXT+6, NEXT+8, NEXT+9, NEXT+10, NEXT+11, NEXT+12, NEXT+13, NEXT+18, NEXT+20 , SET+1*, SET+5, COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57, COMPILE+61 , COMPILE+62, PRINT+9, PRINT+10
S2	EN~, NEXT+6, NEXT+9, NEXT+10, NEXT+11, NEXT+12, NEXT+13, NEXT+18, SET+1*, SET+5 , COMPILE+42, COMPILE+44, COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57, COMPILE+61, COMPILE+62, PRINT+9 , PRINT+10
S3	EN~, NEXT+6, NEXT+10, NEXT+11, NEXT+12, NEXT+13, SET+1*, SET+5, COMPILE+42, COMPILE+44 , COMPILE+48, COMPILE+49, COMPILE+52, COMPILE+56, COMPILE+57, COMPILE+61, COMPILE+62, PRINT+9, PRINT+10
S4	EN~
S5	EN~
SEQ2	EN+1~, RX+11*, RX+13, RX+14, RX+15, RX+21, RX+22, RX+23, SET+5
SP1	EN+1~, EN+4*, NEXT+20, NDTP+2
SP2	EN+1~, EN+4*, NEXT+18
ST	SRT~, SRT+5, SRT+6, SRT+7*, SRT+8
STR	COMPILE+6~, TEXT~, TEXT+2, TEXT+3, SRT+3~, SRT+4*, SRT+6
TEXT	TEXT~
TEXT(	TEXT+3, TEXT+4*
TEXT(""	TEXT+1
U	COMPILE+42, PRINT+12
VADM	COMPILE+9!
VADM(2	COMPILE+9
WORD	TEXT+1~, TEXT+3*, TEXT+4
X	EN~, COMPILE+6~, HDR+1~, HDR+13, SRT+3~, SRT+6, SRT+7
XX	EN~, COMPILE+6~
Y	EN~, SET+3*, SET+4
>> ZTQUEUED	CLOSE+1
>> ZTREQ	CLOSE+1*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSR1

Information

Source Information

Call Graph

Call Graph Total: 7

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

Local Variables

Legend: