Routine: PSOPROD2

Package	Total	Call Graph
E Claims Management Engine	2	$$STATUS^BPSOSRX ($$BPSINSCO,$$PAIDAMNT)^BPSUTIL
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT
Outpatient Pharmacy	1	$$FIND^PSOREJUT

Name	Comments	DBIA/ICR reference
EN	; Main entry point for compile and print.
COMPILE	; Compile data for report.
ECMEINS(PSOEPAYABLE)	; Check ECME Status and Insurance Company.
ADDLINE	; Add one Rx/Fill to the ^TMP global.
PRINT	; Print report data.
PX	;
PRINTX	;
EXCELN	; Write one line in Excel format.
HDR	; Write the report header.
HDRX	;
EXCELHDR	; Write the Excel header record.

Name	Field # of Occurrence
$$STATUS^BPSOSRX	ECMEINS+8
$$BPSINSCO^BPSUTIL	ECMEINS+14
$$PAIDAMNT^BPSUTIL	COMPILE+107, COMPILE+127
$$GET1^DIQ	COMPILE+61, COMPILE+66, COMPILE+68, COMPILE+72, COMPILE+80, COMPILE+84, COMPILE+90, COMPILE+92, COMPILE+102, COMPILE+104 , COMPILE+105, ADDLINE+2, ADDLINE+3, PRINT+45, PRINT+49, PRINT+53, PRINT+57, PRINT+60, PRINT+61, EXCELN+4 , EXCELN+8, EXCELN+11, EXCELN+16, EXCELN+19, EXCELN+20
^DIR	PX+1, HDR+7
$$FIND^PSOREJUT	COMPILE+97
$$FMTE^XLFDT	PRINT+46, PRINT+47, PRINT+48, EXCELN+5, EXCELN+6, EXCELN+7, HDR+20, HDR+23
$$NOW^XLFDT	HDR+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Compiling..." Line Location: COMPILE+44
Function Call: WRITE	Prompt: !,$$GET1^DIQ(52,PSORX_",",.01),"/",PSOFILL Line Location: PRINT+45
Function Call: WRITE	Prompt: ?12,$$FMTE^XLFDT($P(PSODATA,U,1),"2Z") Line Location: PRINT+46
Function Call: WRITE	Prompt: ?22,$$FMTE^XLFDT($P(PSODATA,U,2),"2Z") Line Location: PRINT+47
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT($P(PSODATA,U,3),"2Z") Line Location: PRINT+48
Function Call: WRITE	Prompt: ?48,$E($$GET1^DIQ(200,$P(PSODATA,U,4)_",",.01),1,16) Line Location: PRINT+49
Function Call: WRITE	Prompt: ?48,"Not ePayable" Line Location: PRINT+50
Function Call: WRITE	Prompt: ?65,$E($P(PSODATA,U,5),1,21) Line Location: PRINT+51
Function Call: WRITE	Prompt: ?87,$J($P(PSODATA,U,6),10) Line Location: PRINT+52
Function Call: WRITE	Prompt: ?99,$E($$GET1^DIQ(36,$P(PSODATA,U,7)_",",.01),1,13) Line Location: PRINT+53
Function Call: WRITE	Prompt: !?4,$E($P(PSODATA,U,8),1,31) Line Location: PRINT+54
Function Call: WRITE	Prompt: ?36,$E($P(PSODATA,U,9)_" - "_PSOX,1,29) Line Location: PRINT+58
Function Call: WRITE	Prompt: ?66,$E($$GET1^DIQ(59,$P(PSODATA,U,10)_",",.01),1,17) Line Location: PRINT+60
Function Call: WRITE	Prompt: ?84,$E($$GET1^DIQ(2,$P(PSODATA,U,11)_",",.01),1,18) Line Location: PRINT+61
Function Call: WRITE	Prompt: !!?5,"* End of Report *" Line Location: PRINT+70
Function Call: WRITE	Prompt: ! Line Location: PX+1
Function Call: WRITE	Prompt: !,$$GET1^DIQ(52,PSORX_",",.01)_"/"_PSOFILL,"^" Line Location: EXCELN+4
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(PSODATA,U,1),"2Z"),"^" Line Location: EXCELN+5
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(PSODATA,U,2),"2Z"),"^" Line Location: EXCELN+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(PSODATA,U,3),"2Z"),"^" Line Location: EXCELN+7
Function Call: WRITE	Prompt: $$GET1^DIQ(200,$P(PSODATA,U,4)_",",.01),"^" Line Location: EXCELN+8
Function Call: WRITE	Prompt: $P(PSODATA,U,5),"^" Line Location: EXCELN+9
Function Call: WRITE	Prompt: $P(PSODATA,U,6),"^" Line Location: EXCELN+10
Function Call: WRITE	Prompt: $$GET1^DIQ(36,$P(PSODATA,U,7)_",",.01),"^" Line Location: EXCELN+11
Function Call: WRITE	Prompt: $P(PSODATA,U,8),"^" Line Location: EXCELN+12
Function Call: WRITE	Prompt: PSOX,"^" Line Location: EXCELN+18
Function Call: WRITE	Prompt: $$GET1^DIQ(59,$P(PSODATA,U,10)_",",.01),"^" Line Location: EXCELN+19
Function Call: WRITE	Prompt: $$GET1^DIQ(2,$P(PSODATA,U,11)_",",.01),"^" Line Location: EXCELN+20
Function Call: WRITE	Prompt: $S($P(PSODATA,U,12):"Y",1:"N") Line Location: EXCELN+21
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: $C(13) Line Location: HDR+9
Function Call: WRITE	Prompt: "Pharmacy Productivity Report" Line Location: HDR+18
Function Call: WRITE	Prompt: "RRR Revenue Report" Line Location: HDR+19
Function Call: WRITE	Prompt: ?58,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT,"1M") Line Location: HDR+20
Function Call: WRITE	Prompt: ?97,"Page: ",PSOPAGE Line Location: HDR+21
Function Call: WRITE	Prompt: !,"Selected Divisions: ",PSODIV Line Location: HDR+22
Function Call: WRITE	Prompt: !,"Date Reject Resolved: ",$$FMTE^XLFDT(PSODTBEGIN,"2Z")," - ",$$FMTE^XLFDT(PSODTEND,"2Z") Line Location: HDR+23
Function Call: WRITE	Prompt: ?50,"Status: ",PSOSTATUS(0) Line Location: HDR+24
Function Call: WRITE	Prompt: !,"Select by ",PSOINCLUDE Line Location: HDR+25
Function Call: WRITE	Prompt: !,$E("Select by "_PSOINCLUDE_": "_PSOINCLUDE(PSOINCLUDE),1,132) Line Location: HDR+26
Function Call: WRITE	Prompt: !,"Sort by ",PSOSORT(0) Line Location: HDR+27
Function Call: WRITE	Prompt: !,PSODASHES Line Location: HDR+31
Function Call: WRITE	Prompt: !,"RX#/FILL",?12,"REL DATE",?22,"DT REJECTED",?35,"DT RESOLVED" Line Location: HDR+32
Function Call: WRITE	Prompt: ?48,"RESOLVED BY",?65,"ACTION TAKEN",?89,"AMT PAID",?98,"INSURANCE NAME" Line Location: HDR+33
Function Call: WRITE	Prompt: !?4,"DRUG",?36,"REJECTION",?66,"DIVISION" Line Location: HDR+34
Function Call: WRITE	Prompt: ?84,"PATIENT NAME" Line Location: HDR+35
Function Call: WRITE	Prompt: !,PSODASHES Line Location: HDR+36
Function Call: WRITE	Prompt: "Rx#/FILL^REL DATE^DT REJECTED^DT RESOLVED^RESOLVED BY^" Line Location: EXCELHDR+2
Function Call: WRITE	Prompt: "ACTION TAKEN^AMOUNT PAID^INSURANCE NAME^DRUG^REJECTON^" Line Location: EXCELHDR+3
Function Call: WRITE	Prompt: "DIVISION^PATIENT NAME^E-PAYABLE?" Line Location: EXCELHDR+4
Routine Call	DIR Line Location: PX+1 HDR+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
52.25	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^BPSF(9002313.93 - [#9002313.93]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BPSF(9002313.93 - [#9002313.93]	PRINT+56, EXCELN+15
^PSRX - [#52]	COMPILE+126
^PSRX("CLSDAT"	COMPILE+51, COMPILE+53, COMPILE+76
^TMP("PSOPRODA"	EN+2!, EN+7!, ADDLINE+34*, PRINT+27, PRINT+30, PRINT+32, PRINT+34, PRINT+36, PRINT+37
^TMP("PSOPRODB"	EN+2!, EN+7!, ADDLINE+29, ADDLINE+30*

Name	Line Occurrences
$$ECMEINS	COMPILE+110, COMPILE+129
ADDLINE	COMPILE+110, COMPILE+129
COMPILE	EN+4
EXCELHDR	HDR+14
EXCELN	PRINT+41
HDR	PRINT+26, PRINT+43, PRINT+69
HDRX	HDR+7, HDR+14
PRINT	EN+5
PRINTX	PRINT+68, PRINT+69
PX	PRINT+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PRINT+18~, PX+1!, HDR+7!
DIR(0	PX+1, HDR+7
IOF	HDR+8
IOSL	PRINT+22*, PRINT+43, PRINT+69
IOST	COMPILE+44, PRINT+21
PSOACTION	COMPILE+38~, COMPILE+105, COMPILE+123, ADDLINE+8
PSOCOB	COMPILE+38~, COMPILE+92, COMPILE+93, ECMEINS+8
PSOCRT	PRINT+18~, PRINT+21*, PX+1, HDR+7, HDR+8, HDR+9
PSODASHES	PRINT+18~, PRINT+23*, HDR+31, HDR+36
PSODATA	COMPILE+38~, ADDLINE+2, ADDLINE+3, ADDLINE+4, ADDLINE+5, ADDLINE+6, ADDLINE+7, ADDLINE+8, ADDLINE+9, ADDLINE+10* , ADDLINE+11, ADDLINE+12, ADDLINE+13, ADDLINE+14, ADDLINE+15, ADDLINE+29, ADDLINE+34, PRINT+18~, PRINT+37*, PRINT+46 , PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+56 , PRINT+58, PRINT+60, PRINT+61, EXCELN+5, EXCELN+6, EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11 , EXCELN+12, EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+19, EXCELN+20, EXCELN+21
PSODATE	COMPILE+38~, COMPILE+50, COMPILE+51, COMPILE+53, COMPILE+76, COMPILE+103
>> PSODIV	COMPILE+73, HDR+22
>> PSODIV(	COMPILE+73
PSODIVISION	COMPILE+38~, COMPILE+72*, COMPILE+73, ADDLINE+13, ADDLINE+21
PSODRUG	COMPILE+38~, COMPILE+66, COMPILE+67, COMPILE+68, ADDLINE+11, ADDLINE+21
>> PSODTBEGIN	COMPILE+51, HDR+23
>> PSODTEND	COMPILE+50, HDR+23
PSODTREJECTED	COMPILE+39~, COMPILE+102, COMPILE+120, ADDLINE+5
PSODTRESLVDA	COMPILE+39~, COMPILE+103*, COMPILE+106, ADDLINE+21
PSODTRESLVDB	COMPILE+39~, COMPILE+106, COMPILE+121, ADDLINE+6
PSOECMESTATUS	COMPILE+39~, ECMEINS+8*, ECMEINS+9, ECMEINS+10, ECMEINS+11, ECMEINS+12
PSOEPAYABLE	COMPILE+40~, COMPILE+110, COMPILE+129, ECMEINS~, ECMEINS+7, ECMEINS+12, ADDLINE+15
>> PSOEXCEL	COMPILE+44, PRINT+22, PRINT+24, PRINT+27, PRINT+41, PRINT+70, HDR+14
PSOFILL	COMPILE+40~, COMPILE+90, COMPILE+91, COMPILE+97, COMPILE+107, COMPILE+126, COMPILE+127, ECMEINS+8, ECMEINS+14, ADDLINE+2 , ADDLINE+3, ADDLINE+29, ADDLINE+30, ADDLINE+34, PRINT+18~, PRINT+33, PRINT+34*, PRINT+36, PRINT+37, PRINT+45 , EXCELN+4
>> PSOINCLUDE	PRINT+24, HDR+25, HDR+26
>> PSOINCLUDE(	HDR+25, HDR+26
>> PSOINCLUDE("DRUG"	COMPILE+67
>> PSOINCLUDE("INSURANCE"	ECMEINS+15
>> PSOINCLUDE("PATIENT"	COMPILE+62, PRINT+24*
>> PSOINCLUDE("R	EJECT CODE" , COMPILE+85
>> PSOINCLUDE("RX"	COMPILE+57
PSOINSURANCE	COMPILE+40~, ECMEINS+14*, ECMEINS+15, ADDLINE+10
PSOPAGE	PRINT+18~, PRINT+23, HDR+7, HDR+8, HDR+9, HDR+10, HDR+21
PSOPAIDAMT	COMPILE+40~, COMPILE+107, COMPILE+108, COMPILE+127, COMPILE+128, ADDLINE+9
PSOPATIENT	COMPILE+40~, COMPILE+61*, COMPILE+62, ADDLINE+14
PSOREJ	COMPILE+41~, COMPILE+75, COMPILE+76, COMPILE+80, COMPILE+84, COMPILE+90, COMPILE+92, COMPILE+102, COMPILE+104, COMPILE+105 , ADDLINE+34, PRINT+35, PRINT+36, PRINT+37
PSOREJCODEA	COMPILE+41~, COMPILE+84*, COMPILE+85, COMPILE+86, ADDLINE+21
PSOREJCODEB	COMPILE+41~, COMPILE+86, COMPILE+124, ADDLINE+12
>> PSOREPORT	COMPILE+80, COMPILE+115, HDR+18
PSORESLVDBYA	COMPILE+41~, COMPILE+104*, COMPILE+106, ADDLINE+21
PSORESLVDBYB	COMPILE+41~, COMPILE+106, COMPILE+122, ADDLINE+7
PSORX	COMPILE+42~, COMPILE+52, COMPILE+53, COMPILE+57, COMPILE+61, COMPILE+66, COMPILE+72, COMPILE+76, COMPILE+80, COMPILE+84 , COMPILE+90, COMPILE+92, COMPILE+97, COMPILE+102, COMPILE+104, COMPILE+105, COMPILE+107, COMPILE+126, COMPILE+127, ECMEINS+8 , ECMEINS+14, ADDLINE+2, ADDLINE+3, ADDLINE+29, ADDLINE+30, ADDLINE+34, PRINT+18~, PRINT+31, PRINT+32, PRINT+34 , PRINT+36, PRINT+37, PRINT+45, EXCELN+4
>> PSOSHOWPAT	PRINT+24, PRINT+61, HDR+35
>> PSOSORT	ADDLINE+21
>> PSOSORT(0	HDR+27
PSOSORTB	COMPILE+42~, ADDLINE+21, ADDLINE+34, PRINT+19~, PRINT+29, PRINT+30*, PRINT+32, PRINT+34, PRINT+36, PRINT+37
>> PSOSTATUS	ECMEINS+10, ECMEINS+11
>> PSOSTATUS(0	HDR+24
PSOSTOP	PRINT+19~, PRINT+23, PRINT+30, PRINT+32, PRINT+34, PRINT+36, PRINT+43, PRINT+68, PRINT+69, HDR+7
PSOX	PRINT+19~, PRINT+56, PRINT+57, PRINT+58, EXCELN+2~, EXCELN+13, EXCELN+15, EXCELN+16*, EXCELN+18
U	COMPILE+107, COMPILE+127, ECMEINS+8, ADDLINE+29, PRINT+46, PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+51 , PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+56, PRINT+58, PRINT+60, PRINT+61, EXCELN+5, EXCELN+6 , EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+19 , EXCELN+20, EXCELN+21
Y	PRINT+19~, HDR+7
>> ZTQUEUED	EN+9
>> ZTREQ	EN+9*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPROD2

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: