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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCSC5C

Package: Integrated Billing

Routine: IBCSC5C


Information

IBCSC5C ;ALB/ARH - ADD/EDIT PRESCRIPTION FILLS (CONTINUED) ;3/4/94

Source Information

Source file <IBCSC5C.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 7 ($$BDATE,$$ICD9SYS)^IBACSV  ($$ADD,$$FINDREV)^IBCSC5A  $$RXSTAT^IBCU1  $$RXDUP^IBCU3  $$GETSPEC^IBEFUNC  ($$FILE,$$RXSEC,$$RXZERO,$$ZEROSUB,DATA,ZERO)^IBRXUTL  $$ICD^IBRXUTL1  
VA FileMan 3 FILE^DICN  ^DIE  ^DIR  
Outpatient Pharmacy 2 (PROF,RX)^PSO52API  $$GETNDC^PSONDCUT  

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

Package Total Caller Graph
Integrated Billing 5 IBCRBC3  IBCSC5A  IBCU7  IBEFUR  PROCEDURES  

Entry Points

Name Comments DBIA/ICR reference
DEFAULT(IFN,IBRX) ; add default DX and CPT to a prescription bill
; if one is not in PSO. If there is, use it instead.
; IFN = ien of bill entry
RXDISP(DFN,DT1,DT2,ARRAY,POARR,RXARR,IBRXALL,NODISP) ; display all rx fills for a patient and date range
DATE(X)
NEWRX(IBX) ;
NEWRX1
NEWRXE
ADDNEW(IBIFN,LIST,IBPR,IBPRO) ;
HTEXT() ;
RXLINK(IBIFN,CPIEN) ; Function returns the ien of the Rx rev code the proc
; code is linked to or 0 if no link found.
EXEMPT(RX) ; Used to look up exemption if any on rx, the return value
; will be only the first exemption reason found.
EREASON ;

External References

Name Field # of Occurrence
FILE^DICN DEFAULT+26, DEFAULT+29, DEFAULT+40
^DIE DEFAULT+35, DEFAULT+44
^DIR NEWRX1+2, NEWRX1+6
$$BDATE^IBACSV DEFAULT+6
$$ICD9SYS^IBACSV DEFAULT+6
$$ADD^IBCSC5A ADDNEW+8
$$FINDREV^IBCSC5A DEFAULT+43
$$RXSTAT^IBCU1 RXDISP+44
$$RXDUP^IBCU3 RXDISP+48
$$GETSPEC^IBEFUNC DEFAULT+36
$$FILE^IBRXUTL DEFAULT+10, EXEMPT+3
$$RXSEC^IBRXUTL RXDISP+12
$$RXZERO^IBRXUTL RXDISP+12
$$ZEROSUB^IBRXUTL RXDISP+26
DATA^IBRXUTL RXDISP+15, RXDISP+28
ZERO^IBRXUTL RXDISP+46
$$ICD^IBRXUTL1 DEFAULT+16, EXEMPT+11
PROF^PSO52API RXDISP+9
RX^PSO52API DEFAULT+13, RXDISP+24, EXEMPT+6
$$GETNDC^PSONDCUT RXDISP+18, RXDISP+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?33,"PRESCRIPTIONS IN DATE RANGE",!,"===============================================================================",!
  • Line Location: RXDISP+42
Function Call: WRITE
  • Prompt: !,$J(IBCNT,2),")",?5,IBY,?6,RX,?19,$E($G(^TMP($J,"IBDRUG",+$P(ARRAY(RX,DTR),U,3),.01)),1,25),?46,$$DATE(+DTR),?56,$P(IBS,U,1),?61,$P(IBS,U,2),?69,$P(IBS,U,3),?75,$$EXEMPT(+ARRAY(RX,DTR))
  • Line Location: RXDISP+47
Function Call: WRITE
  • Prompt: ?73,$P($G(^DGCR(399,+IBY,0)),U,1)
  • Line Location: RXDISP+48
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWRX+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ADDNEW+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: ADDNEW+8
Routine Call
  • DIE
  • Line Location:
    • DEFAULT+35
    • DEFAULT+44
Routine Call
  • DIR
  • Line Location:
    • NEWRX1+2
    • NEWRX1+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(362.3 - [#362.3] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DEFAULT+7, DEFAULT+8, DEFAULT+32, DEFAULT+35, DEFAULT+36, RXDISP+48, RXLINK+2
^IBA(362.3 - [#362.3] DEFAULT+23, DEFAULT+29
^IBA(362.4 - [#362.4] DEFAULT+8, DEFAULT+9, DEFAULT+20, ADDNEW+5
^IBE(350.9 - [#350.9] DEFAULT+5, DEFAULT+6
^TMP($J DEFAULT+14, DEFAULT+15, DEFAULT+18!, RXDISP+10, RXDISP+11, RXDISP+19!, RXDISP+25, RXDISP+32!, RXDISP+34!, RXDISP+35!
, RXDISP+47, RXDISP+49!, EXEMPT+7, EXEMPT+10, EXEMPT+12!

Label References

Name Line Occurrences
$$DATE RXDISP+47
$$EXEMPT RXDISP+47
$$HTEXT NEWRX1
NEWRX1 NEWRX1+7
NEWRXE NEWRX1+2, NEWRX1+6

Naked Globals

Name Field # of Occurrence
^( DEFAULT+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY RXDISP~, RXDISP+4!
ARRAY( RXDISP+18*, RXDISP+31*, RXDISP+37, RXDISP+44, RXDISP+46, RXDISP+47
CPIEN RXLINK~, RXLINK+2
DA DEFAULT+26!, DEFAULT+29!, DEFAULT+35*!, DEFAULT+40!, DEFAULT+44*
DA(1 DEFAULT+40*, DEFAULT+44*
DD DEFAULT+26!, DEFAULT+29!, DEFAULT+40!
DFN RXDISP~, RXDISP+5, RXDISP+9, RXDISP+12, RXDISP+24, RXDISP+25, RXDISP+26
DIC DEFAULT+25*, DEFAULT+26!, DEFAULT+29*!, DEFAULT+35!, DEFAULT+40*!
DIC("DR" DEFAULT+25*, DEFAULT+29*, DEFAULT+37*, DEFAULT+38*, DEFAULT+39*
DIC("P" DEFAULT+36*
DIC(0 DEFAULT+25*, DEFAULT+29*, DEFAULT+40*
DIE DEFAULT+35*!, DEFAULT+44*
DIR NEWRX1+2!, NEWRX1+6!
DIR("?" NEWRX1*
DIR("A" NEWRX1+1*, NEWRX1+5*
DIR("B" NEWRX1+5*
DIR(0 NEWRX1+2*, NEWRX1+6*
>> DIRUT NEWRX1+2, NEWRX1+6
DLAYGO DEFAULT+25*, DEFAULT+26!, DEFAULT+29*!, DEFAULT+37*, DEFAULT+40!
DO DEFAULT+26!, DEFAULT+29!, DEFAULT+40!
DR DEFAULT+26!, DEFAULT+29!, DEFAULT+35*!, DEFAULT+40!, DEFAULT+44*
DT1 RXDISP~, RXDISP+5*, RXDISP+9, RXDISP+14, RXDISP+27
DT2 RXDISP~, RXDISP+5*, RXDISP+14, RXDISP+27
DTE RXDISP+4~, RXDISP+10*, RXDISP+11
DTR RXDISP+4~, RXDISP+14*, RXDISP+18, RXDISP+43*, RXDISP+44, RXDISP+45, RXDISP+46, RXDISP+47, RXDISP+48
DUP DEFAULT+31~, DEFAULT+32*, DEFAULT+33*, DEFAULT+34
IB52 DEFAULT+3~, DEFAULT+9*, DEFAULT+10, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16
IBBIL DEFAULT+3~, DEFAULT+7*
IBC DEFAULT+3~, DEFAULT+22*, DEFAULT+24*, DEFAULT+25, DEFAULT+27
IBCNT RXDISP+4~, RXDISP+5*, RXDISP+38*, RXDISP+39, RXDISP+43*, RXDISP+47
IBCPT DEFAULT+3~, DEFAULT+5*, DEFAULT+19, DEFAULT+30, DEFAULT+40, DEFAULT+44
IBCPTIFN DEFAULT+3~
IBDT DEFAULT+3~, DEFAULT+20*, DEFAULT+37, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+8
IBDX DEFAULT+3~, DEFAULT+6*, DEFAULT+19, DEFAULT+22*, DEFAULT+29
IBDX( DEFAULT+16*, DEFAULT+17!, DEFAULT+22, DEFAULT+23, DEFAULT+25
IBDXIFN DEFAULT+3~, DEFAULT+4*, DEFAULT+29*, DEFAULT+38, DEFAULT+39
IBDXIFN( DEFAULT+27*, DEFAULT+39
IBI ADDNEW+1~, ADDNEW+2*
IBIFN RXDISP+48, ADDNEW~, ADDNEW+5, ADDNEW+8, RXLINK~, RXLINK+2
IBLIST NEWRX+1!, NEWRX1+3*, NEWRX1+5, NEWRX1+6!, NEWRX1+7!
>> IBP EXEMPT+11*
IBPAR1 DEFAULT+3~, DEFAULT+5*, DEFAULT+6
IBPIFN ADDNEW+1~, ADDNEW+5*
IBPR ADDNEW~
IBPR( ADDNEW+4, ADDNEW+8
IBPRO ADDNEW~
IBPRO( ADDNEW+2, ADDNEW+3
IBQ ADDNEW+1~, ADDNEW+4*, ADDNEW+5*, ADDNEW+8
IBR EXEMPT+2~, EXEMPT+8*, EXEMPT+11*, EXEMPT+13
>> IBREV DEFAULT+43
IBRX DEFAULT~, DEFAULT+8, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+8
IBRX0 RXDISP+4~, RXDISP+12*, RXDISP+15, RXDISP+18, RXDISP+28, RXDISP+31
IBRX2 RXDISP+4~, RXDISP+12*, RXDISP+14
IBRXALL RXDISP~, RXDISP+14
IBS RXDISP+4~, RXDISP+37*, RXDISP+38*, RXDISP+39, RXDISP+44*, RXDISP+47, EXEMPT+2~, EXEMPT+8*, EXEMPT+10, EXEMPT+11*
IBX DEFAULT+3~, DEFAULT+8*, DEFAULT+9, DEFAULT+20, DEFAULT+33, DEFAULT+43, RXDISP+4~, RXDISP+37*, RXDISP+38, NEWRX~
, NEWRX+1, NEWRX1+2, ADDNEW+1~, ADDNEW+2*, ADDNEW+3, EXEMPT+2~, EXEMPT+8*, EXEMPT+10*, EXEMPT+11
IBY DEFAULT+3~, DEFAULT+9*, DEFAULT+15*, DEFAULT+16, DEFAULT+17, DEFAULT+22*, DEFAULT+23, DEFAULT+25, DEFAULT+39*, RXDISP+4~
, RXDISP+26*, RXDISP+27, RXDISP+31, RXDISP+37*, RXDISP+38, RXDISP+45*, RXDISP+47, RXDISP+48*, ADDNEW+1~, ADDNEW+4*
IBZ DEFAULT+42~, DEFAULT+43*, DEFAULT+44, ADDNEW+1~, ADDNEW+8*, EXEMPT+2~, EXEMPT+11*
ICDCT EXEMPT+2~, EXEMPT+7*, EXEMPT+9
IFN DEFAULT~, DEFAULT+6, DEFAULT+7, DEFAULT+8, DEFAULT+23, DEFAULT+25, DEFAULT+29, DEFAULT+32, DEFAULT+35, DEFAULT+36
, DEFAULT+40, DEFAULT+43, DEFAULT+44
IOF RXDISP+42
LIST DEFAULT+3~, DEFAULT+11*, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16, DEFAULT+18, RXDISP+4~, RXDISP+8*, RXDISP+9
, RXDISP+10, RXDISP+11, RXDISP+35, ADDNEW~, ADDNEW+1, ADDNEW+2, EXEMPT+2~, EXEMPT+4*, EXEMPT+6, EXEMPT+7
, EXEMPT+10, EXEMPT+11, EXEMPT+12
LIST2 RXDISP+4~, RXDISP+22*, RXDISP+24, RXDISP+25, RXDISP+34
NODE DEFAULT+3~, DEFAULT+12*, DEFAULT+13, RXDISP+23*, RXDISP+24, EXEMPT+2~, EXEMPT+5*, EXEMPT+6
NODISP RXDISP~, RXDISP+4*, RXDISP+41
PDFN DEFAULT+3~, DEFAULT+10*, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16, EXEMPT+2~, EXEMPT+3*, EXEMPT+6, EXEMPT+7
, EXEMPT+10, EXEMPT+11
PIFN RXDISP+4~, RXDISP+11*, RXDISP+12, RXDISP+18, RXDISP+24, RXDISP+25, RXDISP+26, RXDISP+31
POARR RXDISP~, RXDISP+4!*, RXDISP+38*, RXDISP+39*
POARR( RXDISP+38*, RXDISP+43
RIFN RXDISP+4~, RXDISP+25*, RXDISP+26, RXDISP+31
RX RXDISP+4~, RXDISP+43*, RXDISP+44, RXDISP+45, RXDISP+46, RXDISP+47, RXDISP+48, EXEMPT~, EXEMPT+3, EXEMPT+6
, EXEMPT+7, EXEMPT+10, EXEMPT+11
RXARR RXDISP~
RXARR( RXDISP+38, RXDISP+45
U DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFAULT+20, DEFAULT+33, DEFAULT+35, RXDISP+14, RXDISP+15, RXDISP+18, RXDISP+28
, RXDISP+31, RXDISP+38, RXDISP+39, RXDISP+43, RXDISP+44, RXDISP+46, RXDISP+47, RXDISP+48, ADDNEW+3, ADDNEW+5
, ADDNEW+8
X DEFAULT+25*, DEFAULT+29*, DEFAULT+40*, DATE~, NEWRX+1~, HTEXT+1~*, HTEXT+2
Y DEFAULT+27, DEFAULT+29, DEFAULT+41, DEFAULT+43, NEWRX+1~, NEWRX1+2, NEWRX1+3, NEWRX1+7
Z DEFAULT+31~, DEFAULT+32*, DEFAULT+42~, DEFAULT+43*, DEFAULT+44
Z0 DEFAULT+31~, DEFAULT+32*, DEFAULT+33

Marked Items

Name Field # of Occurrence
$T(EREASON+(3) EXEMPT+11
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 |  Naked Globals |  Local Variables |  Marked Items  | All