Routine: DGIBDSP

Name	Comments	DBIA/ICR reference
DISP	;-Display all insurance company information ; -input DFN ; -input DGSTAT [optional] Defaults to "RAB" if not defined.	ICR #4408 Status: Active Usage: Controlled Subscription
DISPQ
D1(DGVAL)	;
HDR	; -- print standard header
HDR1(CHAR,LENG)	; -- print header, specify character

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,DGRTN("IBBAPI","INSUR","ERROR",DGERR) Line Location: DISP+15
Function Call: WRITE	Prompt: !," No Insurance Information" Line Location: DISP+16
Function Call: WRITE	Prompt: ! Line Location: DISPQ+0
Function Call: WRITE	Prompt: !?17,"* Patient has Insurance Buffer entries *" Line Location: DISPQ+1
Function Call: WRITE	Prompt: !?(1+OFF),X Line Location: HDR1+4
Function Call: WRITE	Prompt: !?(1+OFF),$S($D(DGINS(DGVAL,1)):$E($P(DGINS(DGVAL,1),U,2),1,10),1:"UNKNOWN") Line Location: D1+5
Function Call: WRITE	Prompt: ?(14+OFF),X Line Location: D1+7
Function Call: WRITE	Prompt: ?(17+OFF),$E(DGINS(DGVAL,14),1,16) Line Location: D1+8
Function Call: WRITE	Prompt: ?(35+OFF),$E(DGINS(DGVAL,18),1,10) Line Location: D1+9
Function Call: WRITE	Prompt: ?(47+OFF),$S(DGX="P":"SELF",DGX="S":"SPOUSE",1:"OTHER") Line Location: D1+11
Function Call: WRITE	Prompt: ?(55+OFF),$TR($$FMTE^XLFDT(DGINS(DGVAL,10),"2DF")," ","0"),?(65+OFF+$S(OFF:1,1:0)),$TR($$FMTE^XLFDT(DGINS(DGVAL,11),"2DF")," ","0") Line Location: D1+12
Function Call: WRITE	Prompt: ?75,"WNR" Line Location: D1+14
Routine Call	%ZIS Line Location: DISP+6

Information