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