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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCF11

Package: Integrated Billing

Routine: IBCF11


Information

IBCF11 ;ALB/MJB - PRINT UB-82 BILL (CONT.) ;25 JAN 89 12:54

Source Information

Source file <IBCF11.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 2 ($$CPT,$$ICD0)^IBACSV  BSTAT^IBCDC  
VA FileMan 1 ^DIE  

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 IBCF10  

Entry Points

Name Comments DBIA/ICR reference
13 ;I $D(IBIP),$D(IBPR) W !!,$S($P(IB(0),"^",9)]"":$P(IB(0),"^",9),1:9)
CPT ;W !!,"4"
ICD ;W !!,"9"
HCFA ;W !!,"5"
14
15
16
PROC ; -print first 3-5 procedure codes

External References

Name Field # of Occurrence
^DIE 16+3
$$CPT^IBACSV PROC+4
$$ICD0^IBACSV PROC+3
BSTAT^IBCDC 16+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($P(IB(0),"^",9)]"":$P(IB(0),"^",9),1:9)
  • Line Location: 13+0
Function Call: WRITE
  • Prompt: !!,$P(IB(0),"^",9)
  • Line Location: 13+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 14+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 14+1
Function Call: WRITE
  • Prompt: ?22,$P(IB("U"),U,13)
  • Condition for execution: $P(IB("U"),U,13)]""
  • Line Location: 14+1
Function Call: WRITE
  • Prompt: ?33,$S($P(IB("U1"),U,13)="":"Dept. Veterans Affairs",1:$P(IB("U1"),U,13)),?56,$P(IB("U1"),U,14)
  • Line Location: 14+1
Function Call: WRITE
  • Prompt: !!,"Patient ID: ",$P(VADM(2),"^"),!,"Bill Type: ",$S(IBRATY]"":IBRATY,1:"UNSPECIFIED")
  • Line Location: 15+0
Function Call: WRITE
  • Prompt: !,$P(IBEPAR(1),U,4)
  • Line Location: 15+1
Function Call: WRITE
  • Prompt: !,"**",$P(IB("U1"),"^",8),"**"
  • Line Location: 15+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 16+0
Function Call: WRITE
  • Prompt: ?69,$E(IBXDT,4,5)_"-"_$E(IBXDT,6,7)_"-"_$E(IBXDT,2,3)
  • Line Location: 16+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 16+3
Function Call: WRITE
  • Prompt: ?3,$E($P(X,U,$S(IBPROC(J)["ICD":4,1:2)),1,30)
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: ?(TAB+(I-1*11)),$P(X,U),?(TAB+6+(I-1*11)),Y
  • Line Location: PROC+8
Routine Call
  • DIE
  • Line Location:
    • 16+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] 14+2, 16+3
^DGCR(399.3 - [#399.3] 14+2

Label References

Name Line Occurrences
PROC HCFA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA 16+3*
DIC 16+3*!
DIE 16+3*!
>> DR 16+3*
DT 16+2
>> I 14*, 16*, PROC+2*, PROC+7, PROC+8
>> IB("S" 16+2
>> IB("U" 14+1
>> IB("U1" 14+1, 15+2
>> IB(0 13+1
>> IBEPAR(1 15+1, 16+1
>> IBIFN 14+2, 16+3, 16+4
IBMA 16+5!
>> IBPNT 16+2
>> IBPROC( PROC+2, PROC+3, PROC+4, PROC+5, PROC+7
>> IBRATY 14+2*, 15
IBXDT 16+2*, 16+5!
IBYY 16+3*!
>> J PROC+2*, PROC+3, PROC+4, PROC+5, PROC+7
>> TAB PROC+1*, PROC+8
U 14+1, 14+2, 15+1, 16+1, 16+2, PROC+3, PROC+4, PROC+5, PROC+7, PROC+8
>> VADM(2 15
>> X PROC+3*, PROC+4*, PROC+7, PROC+8
>> Y PROC+5*, PROC+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All