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  | All
Print Page as PDF
Routine: IBCSC5

Package: Integrated Billing

Routine: IBCSC5


Information

IBCSC5 ;ALB/MJB - MCCR SCREEN 5 (OPT. EOC) ;27 MAY 88 10:15

Source Information

Source file <IBCSC5.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 13 ($$BDATE,$$ICD9)^IBACSV  ($$FT,$$INPAT)^IBCEF  $$PRCD^IBCEF1  $$BILLCPT^IBCRU4  (,$$DX,$$DXREQ,OCC)^IBCSC4  SET^IBCSC4D  (,H)^IBCSCU  ^IBCU6  
CODMUL^IBCU7  ASK^IBCU7A  EN4^IBCVA1  $$MODLST^IBEFUNC2  ZERO^IBRXUTL  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ($$GET1,D,DT)^DIQ  

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
Integrated Billing 1 IBCSC4  

Entry Points

Name Comments DBIA/ICR reference
EN
OP
OCC
MORE
WRT ; -write out procedures codes on screen
MOD(IBM,PUNC) ; Returns modifier list from comma delimited ien's in string IBM
; PUNC = Punctuation to use as first character of output
PD() ;prints prosthetic device in external form, returns 0 if there are none
RX() ;prints RX REFILLS in external form, returns 0 if there are none

External References

Name Field # of Occurrence
$$GET1^DIQ OP+2
D^DIQ WRT+12, WRT+13
DT^DIQ EN+11
$$BDATE^IBACSV EN+14, WRT+3
$$ICD9^IBACSV WRT+12
$$FT^IBCEF EN+4, EN+6
$$INPAT^IBCEF EN
$$PRCD^IBCEF1 WRT+4
$$BILLCPT^IBCRU4 EN+1
^IBCSC4 EN
$$DX^IBCSC4 EN+15, EN+16, EN+17
$$DXREQ^IBCSC4 EN+15
OCC^IBCSC4 OCC, OCC+2
SET^IBCSC4D EN+13
^IBCSCU EN+4
H^IBCSCU EN+8
^IBCU6 EN+2
CODMUL^IBCU7 EN+1
ASK^IBCU7A EN+1
EN4^IBCVA1 EN+10
$$MODLST^IBEFUNC2 WRT+8, WRT+9
ZERO^IBRXUTL RX+4
$$MOD^ICPTMOD MOD+4
$$FMTE^XLFDT PD+4, RX+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Event Date : "
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?4,"Other Diag.: ",$E($P(Y,U,4),1,47)_" - "_$P(Y,U,2)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?4,"***There are more diagnoses associated with this bill.***"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: $X>67
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: Y_", "
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: IBU
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !,?4,"Type : ",$$GET1^DIQ(399,IBIFN_",",158)
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: " Cod. Method: ",$S($P(IB(0),U,9)="":IBUN,$P(IB(0),U,9)=9:"ICD",$P(IB(0),U,9)=4:"CPT-4",1:"HCPCS")
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OP+7
Function Call: WRITE
  • Prompt: !?4,"Opt. Code : ",IBUN
  • Line Location: OCC+1
Function Call: WRITE
  • Prompt: !?4,*7,"***There are more procedures associated with this bill.***"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !?4,"ICD Code : ",$E($P(X,U,3),1,28)_" - "_$P(X,U,2)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?4,"CPT Code : "
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?58,$P($$ICD9^IBACSV(Y,IBDATE),U)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !,?17,"*** There are more Pros. Items associated with this bill.***"
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: ?17,$E($P(IBZ,U,5),1,40),?67,$$FMTE^XLFDT(+IBZ)
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: !,?17,"*** There are more Rx. Refills associated with this bill.***"
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: ?17,IBN,?65,$$FMTE^XLFDT(+$P(IBZ,U,3))
  • Line Location: RX+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OP
^DGCR(399 - [#399] EN+3, EN+7, OP, OP+1
^IBA(362.3 - [#362.3] WRT+12
^IBA(362.4 - [#362.4] RX+1, RX+2
^IBA(362.5 - [#362.5] PD+1, PD+2
^TMP($J RX+5, RX+6!

Label References

Name Line Occurrences
$$RX OP+7
MORE WRT+2
WRT OP+4

Naked Globals

Name Field # of Occurrence
^( EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGOPV OP+1*
DGRVRCAL EN+1*, EN+2!
>> I EN+7*, EN+16*, OP*, MORE*, WRT+2*
>> IB( EN+7*
>> IB(0 EN+9, EN+11, OP+3, WRT+12
IBASKCOD EN+1!
>> IBBT EN+9*
IBDATE EN+12~, EN+14*, EN+15, EN+16, EN+17, WRT+1~, WRT+3*, WRT+4, WRT+12
>> IBIFN EN, EN+1, EN+3, EN+4, EN+6, EN+7, EN+13, EN+14, EN+15, OP
, OP+1, OP+2, WRT+3, PD+1, PD+2, RX+1, RX+2
IBM MOD~, MOD+4
IBMOD MOD+2~, MOD+3*, MOD+4*, MOD+5*, MOD+6
IBN PD+1~, RX+1~, RX+5*
IBPOARR EN+12~, EN+13
>> IBPROC OP+4
>> IBPROC( WRT+2, WRT+3, WRT+4, WRT+5, WRT+6, WRT+8, WRT+9, WRT+12, WRT+13
>> IBPTF EN+9*
>> IBSR EN+4*
>> IBSR1 EN+4*
>> IBU EN+15, OP+1
>> IBUN EN+15, OP+3, OP+7, OCC+1
>> IBV EN+7
>> IBV1 EN+4*, EN+6*, EN+7*
>> IBW EN+11*, EN+15*, OP*, OP+3*, OP+7*
>> IBWW EN+11, EN+15, OP, OP+3, OP+7
IBX PD+1~*, PD+2, RX+1~*, RX+2
IBY PD+1~, PD+2*, RX+1~, RX+2*
IBZ PD+1~, PD+2*, PD+4, RX+1~, RX+2*, RX+4, RX+5
>> J WRT+2*, WRT+3, WRT+4, WRT+5, WRT+6, WRT+8, WRT+9, WRT+12, WRT+13
PUNC MOD~, MOD+5
Q MOD+2~, MOD+4*
U EN+9, EN+11, EN+15, EN+16, OP+3, WRT+3, WRT+4, WRT+5, WRT+8, WRT+9
, WRT+12, MOD+4, PD+4, RX+4, RX+5
X WRT+4*, WRT+5, WRT+8, WRT+9, PD+1~*, PD+2, PD+3*, PD+4, PD+5, RX+1~*
, RX+2, RX+3*, RX+5, RX+7
>> Y EN+11*, EN+15*, EN+16*, EN+17*, OP*, OP+7*, WRT+12*, WRT+13*
Z EN+11*, EN+15*, OP*, OP+3*, OP+7*, WRT+7~, WRT+8*, WRT+9*, WRT+10
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  | All