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

Package: Integrated Billing

Routine: IBCF10


Information

IBCF10 ;ALB/MJB - PRINT UB-82 BILL (CONT.) ;13 JUN 88 12:39

Source Information

Source file <IBCF10.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 5 13^IBCF11  SET^IBCSC4D  (Q1,Q2,Q3,Q4)^IBCVA  (EN2,EN3)^IBCVA0  (EN4,EN5)^IBCVA1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCF1  

Entry Points

Name Comments DBIA/ICR reference
11
10
12
NWREVC2
NWREVC1 ;
7
9
8
ICW
NWREVC ;print for mult bedsections/rev codes
ADDCOD ;Additional Procedures Print

External References

Name Field # of Occurrence
13^IBCF11 12+5
SET^IBCSC4D 12+2
Q1^IBCVA 8+4
Q2^IBCVA 11+7
Q3^IBCVA 9+3, 10+3
Q4^IBCVA 8+4
EN2^IBCVA0 9+3, 10+3
EN3^IBCVA0 8+4
EN4^IBCVA1 11+7
EN5^IBCVA1 11+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(IBMA,"^",4),!
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: $P(IBMA,"^",5)
  • Condition for execution: $P(IBMA,"^",5)]""
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?30,IBCC(1)
  • Condition for execution: $D(IBCC(1))
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?33,IBCC(2)
  • Condition for execution: $D(IBCC(2))
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?36,IBCC(3)
  • Condition for execution: $D(IBCC(3))
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?39,IBCC(4)
  • Condition for execution: $D(IBCC(4))
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: ?42,IBCC(5)
  • Condition for execution: $D(IBCC(5))
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: !,$P(IBMA,"^",6)
  • Condition for execution: $P(IBMA,"^",6)]""
  • Line Location: 7+2
Function Call: WRITE
  • Prompt: !,$P(IB("M1"),"^",1)
  • Condition for execution: $P(IB("M1"),"^",1)]""
  • Line Location: 7+2
Function Call: WRITE
  • Prompt: !,$P(IBMA,"^",7),?$X+2,IBPST,?$X+2,$P(IBMA,"^",9)
  • Line Location: 7+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+0
Function Call: WRITE
  • Prompt: " (page ",DGPAG," of ",DGTOTPAG,")"
  • Line Location: 8+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+0
Function Call: WRITE
  • Prompt: "MEDICARE ESRD"
  • Line Location: 9+2
Function Call: WRITE
  • Prompt: ?24,$S($P(IB("U"),U,5)=0:"Y",1:"R"),?27,$S($P(IB("U"),U,6)["N":"N",$P(IB("U"),U,6)["n":"N",$P(IB("U"),U,6)=0:"N",1:"Y")
  • Line Location: 9+3
Function Call: WRITE
  • Prompt: !,$E(X,1,23),?24,$S($P(IB("U"),U,5)=0:"Y",1:"R"),?27,$S(M["N":"N",M["n":"N",M=0:"N",1:"Y")
  • Line Location: 9+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 10+0
Function Call: WRITE
  • Prompt: !,$P(IBDD(I,0),U,17),?23,$E(IBISEX(I),1),?26,IBIRN(I),?29,$P(IBDD(I,0),U,2),?46,$E($P(IBDD(I,0),U,15),1,14),?61,$P(IBDD(I,0),U,3)
  • Line Location: 10+2
Function Call: WRITE
  • Prompt: !,VADM(1),?23,$P(VADM(5),"^"),?26,"01",?29,$P(VADM(2),"^")
  • Line Location: 11+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 11+1
Function Call: WRITE
  • Prompt: "P"
  • Line Location: 11+5
Function Call: WRITE
  • Prompt: ?2,$S('$D(IBEC):9,IBEC:IBEC,1:9),?4,$P(IBEMPD,U),?42,$P(IBEMPD,U,2),?$X+2,$S($P(IBEMPD,U,7)'="":$P(^DIC(5,$P(IBEMPD,U,7),0),U,2),1:""),?$X+2,$P(IBEMPD,U,8)
  • Line Location: 11+5
Function Call: WRITE
  • Prompt: !
  • Line Location: 12+0
Function Call: WRITE
  • Prompt:
  • Condition for execution: $P(IB("C"),U,14)'="" $P(^ICD9($P(IB("C"),U,14),0),U,3) K X2 S X=$P(IB("C"),U,14) D ICW W ?44,X S X2=44 F I=15:1:18 Q:'$D(IBDIN(I))
  • Line Location: 12+1
Function Call: WRITE
  • Prompt: ?X2,X
  • Line Location: 12+1
Function Call: WRITE
  • Prompt: $P($G(^ICD9(+IBINDXX(I),0)),U,3)
  • Line Location: 12+3
Function Call: WRITE
  • Prompt: ?X2,X
  • Line Location: 12+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NWREVC1+1
Function Call: WRITE
  • Prompt: !,$P(DGTEXT,"^")
  • Line Location: NWREVC1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NWREVC1+4
Function Call: WRITE
  • Prompt: +$E(DGTEXT1,4,5)_"/"_+$E(DGTEXT1,6,7)_"/"_$E(DGTEXT1,2,3)
  • Condition for execution: $L(DGTEXT1)
  • Line Location: NWREVC1+4
Function Call: WRITE
  • Prompt: ?11,$P(IBCPT,"^")
  • Line Location: ADDCOD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] 9+2, 9+3, 11, 11+3, NWREVC1+5
^DGCR(399.2 - [#399.2] NWREVC2
^DGCR(399.3 - [#399.3] 9+2, 11
^DIC(36 - [#36] 9+4
^DIC(5 - [#5] 7, 11+4, 11+5
^DPT - [#2] 11+4
^ICD9 - [#80] 12+3, ICW
^UTILITY($J NWREVC+1

Label References

Name Line Occurrences
11 9+3
ADDCOD NWREVC1+4
ICW 12+4
NWREVC 8+1
NWREVC1 NWREVC+1
NWREVC2 NWREVC1+5

Naked Globals

Name Field # of Occurrence
^( 11+4, NWREVC+1
^("I1" 11+3
^(0 7, ICW, NWREVC1+5, NWREVC2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN 11+4
>> DGCNT NWREVC+1*, NWREVC+2*
>> DGPAG 8+2, NWREVC+1
>> DGREVC NWREVC1+5*, NWREVC2
>> DGTEXT NWREVC+1*, NWREVC1+1, NWREVC1+2, NWREVC1+3, NWREVC1+4, NWREVC1+5, ADDCOD+1
>> DGTEXT1 NWREVC1+4*
>> DGTOTPAG 8+2
>> I 8*, 8+3*, 9*, 9+4*, 10*, 10+2*, 11+1*, 12*, 12+3*, 12+4*
, NWREVC+1*
>> IB("M" 7
>> IB("M1" 7+2
>> IB("U" 9+3, 9+4
>> IB("U1" 7+2
>> IB(0 9+2, 11
IB01 8+4!
>> IBCC(1 7+1
>> IBCC(2 7+1
>> IBCC(3 7+1
>> IBCC(4 7+1
>> IBCC(5 7+1
>> IBCPT ADDCOD+1*
>> IBDD 9+4, 10+2
>> IBDD( 9+4, 10+2
>> IBEC 11+5
>> IBEMPD 11+5
>> IBIFN 9+2, 9+3, 11, 11+3, 12+2, NWREVC1+5
>> IBIN 9+4*, 10+2*
IBINDXX 12+2~
IBINDXX( 12+3, 12+4
IBINDXX(0 12+3
>> IBIRN( 10+2
>> IBISEX( 10+2
>> IBMA 7*, 7+1, 7+2
>> IBPST 7*, 7+2
IBROI 11+3*, 11+4, 11+5, 11+6!
IBSPEM 11+4*!
>> M 9+4*
U 7, 7+2, 9+3, 9+4, 10+2, 11+3, 11+4, 11+5, 12+3, ADDCOD+1
>> VADM(1 11
>> VADM(2 11
>> VADM(5 11
>> X 9+4*, 12+4*, ICW*
>> X2 12+4*, ICW*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All