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

Package: Integrated Billing

Routine: IBCF1


Information

IBCF1 ;ALB/MJB/AAS - PRINT UB-82 BILL ;10 JUN 88 14:42

Source Information

Source file <IBCF1.m>

Entry Points

Name Comments DBIA/ICR reference
ZIS
DEV
Q
Q1
ENP
EN2
1
2
3
4
5
6
SET ;Set Variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: "##SR"
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: ?24,$S(IBPNT=1:"",IBPNT=0:"*** COPY OF ORIGINAL BILL ***",IBPNT=2:"*** SECOND NOTICE ***",IBPNT=3:"*** THIRD NOTICE ***",1:"")
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,$S(IBEPAR(2)]"":$P(IBEPAR(2),U,I),1:"")
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: ?24,$P(IB("U1"),U,4),?57,IBBNO,?74,IBBT
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,$P(IBEPAR(2),U,3)
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: ?$X+2,IBOPST,?$X+2,$P(IBEPAR(2),U,5)
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,$S(IBEPAR(2)]"":$P(IBEPAR(2),U,6),1:"")
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: ?24,$S($P(IB("U"),U,14)]"":$P(IB("U"),U,14),1:X),?38,$P(IBEPAR(1),U,5),?50,$P(IBEPAR(1),"^",21),?71,$P(IB("U1"),U,5)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,$E($P(VADM(3),U),4,7)_$E($P(VADM(3),U),2,3),?8,$P(VADM(5),U),?10
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: $S(Y=1:"D",Y=2:"M",Y=4:"W",Y=5:"X",Y=6:"S",1:"U")
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: ?36,$S($D(^DGCR(399.1,+X,0)):$P(^(0),"^",2),1:"")
  • Line Location: 5+3
Function Call: WRITE
  • Prompt: ?14,$E(IBDT,4,7)_$E(IBDT,2,3),?21,"99"
  • Line Location: 5+4
Function Call: WRITE
  • Prompt: ?40,$E($P(IB("U"),"^"),4,7)_$E($P(IB("U"),"^"),2,3),?48,$E($P(IB("U"),"^",2),4,7)_$E($P(IB("U"),"^",2),2,3),?70,$P(IB("U1"),U,6),!!
  • Line Location: 5+5
Function Call: WRITE
  • Prompt: IBO(1),?3,$E(IBOCD(1),4,7)_$E(IBOCD(1),2,3)
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: ?11,IBO(2),?14,$E(IBOCD(2),4,7)_$E(IBOCD(2),2,3)
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: ?11,IBO(2),?14,$E(IBOCD(2),4,7)_$E(IBOCD(2),2,3)
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: ?35,IBO(4),?38,$E(IBOCD(4),4,7)_$E(IBOCD(4),2,3)
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: ?46,IBO(5),?49,$E(IBOCD(5),4,7)_$E(IBOCD(5),2,3)
  • Line Location: 6+1
Info |  Source |  Entry Points |  Interaction Calls