Routine: IBCF11

Information

IBCF11 ;ALB/MJB - PRINT UB-82 BILL (CONT.) ;25 JAN 89 12:54

Source file <IBCF11.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($P(IB(0),"^",9)]"":$P(IB(0),"^",9),1:9) Line Location: 13+0
Function Call: WRITE	Prompt: !!,$P(IB(0),"^",9) Line Location: 13+1
Function Call: WRITE	Prompt: ! Line Location: 14+0
Function Call: WRITE	Prompt: ! Line Location: 14+1
Function Call: WRITE	Prompt: ?22,$P(IB("U"),U,13) Condition for execution: $P(IB("U"),U,13)]"" Line Location: 14+1
Function Call: WRITE	Prompt: ?33,$S($P(IB("U1"),U,13)="":"Dept. Veterans Affairs",1:$P(IB("U1"),U,13)),?56,$P(IB("U1"),U,14) Line Location: 14+1
Function Call: WRITE	Prompt: !!,"Patient ID: ",$P(VADM(2),"^"),!,"Bill Type: ",$S(IBRATY]"":IBRATY,1:"UNSPECIFIED") Line Location: 15+0
Function Call: WRITE	Prompt: !,$P(IBEPAR(1),U,4) Line Location: 15+1
Function Call: WRITE	Prompt: !,"",$P(IB("U1"),"^",8),"" Line Location: 15+2
Function Call: WRITE	Prompt: ! Line Location: 16+0
Function Call: WRITE	Prompt: ?69,$E(IBXDT,4,5)_"-"_$E(IBXDT,6,7)_"-"_$E(IBXDT,2,3) Line Location: 16+2
Function Call: WRITE	Prompt: ! Line Location: 16+3
Function Call: WRITE	Prompt: ?3,$E($P(X,U,$S(IBPROC(J)["ICD":4,1:2)),1,30) Line Location: PROC+7
Function Call: WRITE	Prompt: ?(TAB+(I-111)),$P(X,U),?(TAB+6+(I-111)),Y Line Location: PROC+8