Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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.

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call