Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOPROD2

Package: Outpatient Pharmacy

Routine: PSOPROD2


Information

PSOPROD2 ;ALB/MRD - Pharmacy Productivity and Revenue Report ;9/8/15

Source Information

Source file <PSOPROD2.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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*

Label References

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All