Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBCF3P

Package: Integrated Billing

Routine: IBCF3P


Information

IBCF3P ;ALB/BGA -UB92 HCFA-1450 (print data ) ;7-SEPT-93

Source Information

Source file <IBCF3P.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;This routine prints out the bill from the data gathered in
0
1
CC ;
OC ;
38 ;responsible party name/address and value codes
42 ;Rev Codes
50
58
63
67 ;field locators 67-71 and 76,78
79 ;field locators 80-83
84 ;remarks field locator 84

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBFL(0,"SR"),?34,IBFL(0,"ZBILL")
  • Line Location: 0+0
Function Call: WRITE
  • Prompt: !,$E(IBFL(1,"PROVL1"),1,25),?26,IBFL(2,1)
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !,$E(IBFL(1,"PROVL2"),1,25),?26,IBFL(2,2),?57,$E(IBFL(3),1,20),?(77+IBRM),IBFL(4)
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,$E(IBFL(1,"PROVL3"),1,25),?(68+IBRM),IBFL(11,1)
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !,$E(IBFL(1,"PROVL4"),1,25),?26,$E(IBFL(5),1,10),?37,IBFL(6,"FROM"),?44,IBFL(6,"TO"),?51,IBFL(7),?55,IBFL(8),?(67+IBRM),IBFL(11,2)
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !,$E(IBFL(12),1,30),?31,$E(IBFL(13),1,49)
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,?(75+IBRM),IBFL(31,1)
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !,IBFL(14),?9,IBFL(15),?12,IBFL(16),?14,IBFL(17),?21,IBFL(18),?25,IBFL(19),?28,IBFL(20),?30,IBFL(21),?33,IBFL(22),?36,$E(IBFL(23),1,17)
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: ?IBC,IBFL(24,IBX)
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: ?(74+IBRM),IBFL(31,2)
  • Line Location: CC+3
Function Call: WRITE
  • Prompt: !,?(57+IBRM),IBFL(37,1)
  • Line Location: CC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OC+1
Function Call: WRITE
  • Prompt: ?IBC,$P(IBY,U,1),?(IBC+3),$P(IBY,U,2)
  • Line Location: OC+3
Function Call: WRITE
  • Prompt: ?40,$P(IBY,U,1),?43,$P(IBY,U,2),?50,$P(IBY,U,3)
  • Line Location: OC+6
Function Call: WRITE
  • Prompt: ?(57+IBRM),$G(IBFL(37,IBJ))
  • Line Location: OC+8
Function Call: WRITE
  • Prompt: !,?IB38C1,$E($G(IBFL(38,IBI)),1,IB38C2)
  • Line Location: 38+2
Function Call: WRITE
  • Prompt: ?IBC,$P(IBFL(39,IBX),U,1),?(IBC+2),$J($P(IBFL(39,IBX),U,2),IBVCCOL)
  • Line Location: 38+5
Function Call: WRITE
  • Prompt: !
  • Line Location: 38+7
Function Call: WRITE
  • Prompt: !,?($S(+IBY=3:5,1:0)),$E($P(IBY,U,2),1,76)
  • Line Location: 42+3
Function Call: WRITE
  • Prompt: !,$P(IBY,U,2),?5,$E($P(IBY,U,3),1,24),?30,$P(IBY,U,4)
  • Line Location: 42+4
Function Call: WRITE
  • Prompt: $J($P(IBY,U,5),7,2)
  • Line Location: 42+5
Function Call: WRITE
  • Prompt: ?53,$J($P(IBY,U,7),11,2)
  • Line Location: 42+6
Function Call: WRITE
  • Prompt: ?66,$J($P(IBY,U,8),10,2)
  • Line Location: 42+7
Function Call: WRITE
  • Prompt: !,?(67+IBRM),IBFL(56,1)
  • Line Location: 42+10
Function Call: WRITE
  • Prompt: !,$E($G(IBFL(50,IBI)),1,25),?26,$E($G(IBFL(51,IBI)),1,13),?40,$G(IBFL(52,IBI)),?43,$G(IBFL(53,IBI)),?45,$S($D(^DGCR(399,IBIFN,"I"_IBI)):$J(IBFL(54,IBI),10,2),1:""),?(66+IBRM),IBFL(56,(IBI+1))
  • Line Location: 50+1
Function Call: WRITE
  • Prompt: !,?1,IBFL(57),?(66+IBRM),IBFL(56,5)
  • Line Location: 50+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 58+0
Function Call: WRITE
  • Prompt: !,$E($G(IBFL(58,IBI)),1,25),?26,$G(IBFL(59,IBI)),?29,$E($G(IBFL(60,IBI)),1,19),?49,$E($G(IBFL(61,IBI)),1,14),?64,$E($G(IBFL(62,IBI)),1,16)
  • Line Location: 58+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 63+0
Function Call: WRITE
  • Prompt: !,$E($G(IBFL(63,IBI)),1,18),?19,$G(IBFL(64,IBI)),?21,$E($G(IBFL(65,IBI)),1,24),?46,$E($G(IBFL(66,IBI)),1,34)
  • Line Location: 63+1
Function Call: WRITE
  • Prompt: !,?(78+IBRM),IBFL(78,1)
  • Line Location: 67+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 67+2
Function Call: WRITE
  • Prompt: ?IBC,$G(IBFL(66+IBI))
  • Line Location: 67+2
Function Call: WRITE
  • Prompt: ?64,$E($G(IBFL(76)),1,6),?(77+IBRM),IBFL(78,2)
  • Line Location: 67+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 67+4
Function Call: WRITE
  • Prompt: !,IBFL(79)
  • Line Location: 79+1
Function Call: WRITE
  • Prompt: ?IBC,$P($G(IBFL(80,IBI)),U,1),?(IBC+8),$P($G(IBFL(80,IBI)),U,2)
  • Line Location: 79+1
Function Call: WRITE
  • Prompt: ?50,$E($G(IBFL(82)),1,30)
  • Line Location: 79+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: 79+3
Function Call: WRITE
  • Prompt: ?IBC,$P($G(IBFL(80,IBI)),U,1),?(IBC+8),$P($G(IBFL(80,IBI)),U,2)
  • Line Location: 79+4
Function Call: WRITE
  • Prompt: ?50,$E($G(IBFL(83)),1,30)
  • Line Location: 79+5
Function Call: WRITE
  • Prompt: !,$E($G(IBFL(84,IBI)),1,48)
  • Line Location: 84+1
Function Call: WRITE
  • Prompt: ?50,$E($G(IBFL(85,1)),1,22),?74,$G(IBFL(86)),!,?50,$E($G(IBFL(85,2)),1,22)
  • Line Location: 84+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 84+3
Info |  Source |  Entry Points |  Interaction Calls