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: PSOBPSR1

Package: Outpatient Pharmacy

Routine: PSOBPSR1


Information

PSOBPSR1 ;BHM/LE - continued Ignored Claims Report ;03/01/07

Source Information

Source file <PSOBPSR1.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GETS^DIQ
52.25 GETS^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