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

Package: Outpatient Pharmacy

Routine: PSOBPSR1


Information

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

Source Information

Source file <PSOBPSR1.m>

Call Graph

Call Graph

Call Graph Total: 7

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOBPSRP  

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

External References

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

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

Global Variables Directly Accessed

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

Label References

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