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

Package: Integrated Billing

Routine: IBOLK1


Information

IBOLK1 ;ALB/CPM - DISPLAY BY BILL NUMBER, ADDRESS INQUIRY ; 28-JAN-92

Source Information

Source file <IBOLK1.m>

Entry Points

Name Comments DBIA/ICR reference
ADDR ; Print mailing addresses for Insurance Companies and Institutions.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"*** ADDRESS INFORMATION ***"
  • Line Location: IBOLK1+7
Function Call: WRITE
  • Prompt: !!,"Patient Address: ",VAPA(1)
  • Line Location: IBOLK1+11
Function Call: WRITE
  • Prompt: VAPA(4)
  • Line Location: IBOLK1+14
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: VAPA(4)]""&(VAPA(5)]"")
  • Line Location: IBOLK1+14
Function Call: WRITE
  • Prompt: $P(VAPA(5),"^",2)
  • Line Location: IBOLK1+14
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: VAPA(6)]""&(VAPA(4)]""!(VAPA(5)]""))
  • Line Location: IBOLK1+15
Function Call: WRITE
  • Prompt: VAPA(6)
  • Line Location: IBOLK1+15
Function Call: WRITE
  • Prompt: !!,"Mailing Address: "
  • Line Location: IBOLK1+20
Function Call: WRITE
  • Prompt: !!,$S(X["i":"Ins Co.",1:"Instit.")," Address: "
  • Line Location: IBOLK1+30
Function Call: WRITE
  • Prompt: $P(IBM,"^")
  • Line Location: ADDR+1
Function Call: WRITE
  • Prompt: !?18,$P(IBM,"^",2)
  • Condition for execution: $P(IBM,"^",2)]""
  • Line Location: ADDR+1
Function Call: WRITE
  • Prompt: $P(IBM,"^",4)
  • Line Location: ADDR+4
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(IBM,"^",4)]""&($P(IBM,"^",5)]"")
  • Line Location: ADDR+4
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,+$P(IBM,"^",5),0)),"^")
  • Line Location: ADDR+5
Function Call: WRITE
  • Prompt: $P(IBM,"^",6)
  • Line Location: ADDR+7
Info |  Source |  Entry Points |  Interaction Calls