Routine: FBUCUTL4

Information

FBUCUTL4 ;ALBISC/TET - UTILITY CONTINUATION ;5/14/93 15:06

Name	Comments	DBIA/ICR reference
PRIME(FBDA,FBUCP)	;determine if claim is a primary (points to itself)
SECOND(FBDA,FBUCP)	;determine if claim is a secondary (points to another)
LINK(FBDA,FBUCP)	;is this a claim which can be linked to a primary?
LINKTO(FBDA,FBUCP,FBLINK)	;is this a primary claim to which a secondary can be linked?
ID	;display identifiers
PARSE(FBARY)	;set piece positions variable, and get # of pieces for printing
LINE(FBARY,FBI,FBPL,FBW)	;write line
FBO()	;set fbo string if 0 or not defined
PAD(L,V,C,O)	;set fixed length field

Name	Line Occurrences
Function Call: WRITE	Prompt: ?15,$E($$VET^FBUCUTL(+$P(FBZ,U,4)),1,20),?38,$E($$VEN^FBUCUTL(+$P(FBZ,U,3)),1,20) Line Location: ID+1
Function Call: WRITE	Prompt: ?61,$E($$PROG^FBUCUTL(+$P(FBZ,U,2)),1,14),!,$E($P($$PTR^FBUCUTL("^FB(162.92,",+$P(FBZ,U,24)),U),1,16) Line Location: ID+2
Function Call: WRITE	Prompt: ?19,"TREATMENT FROM: ",$$DATX^FBAAUTL(+$P(FBZ,U,5)),?44,"TREATMENT TO: ",$$DATX^FBAAUTL(+$P(FBZ,U,6)) Line Location: ID+3
Function Call: WRITE	Prompt: ! Line Location: ID+4
Function Call: WRITE	Prompt: ! Line Location: LINE+6
Function Call: WRITE	Prompt: ?($P(FBW,U,FBP)),$P(FBY,U,FBP) Line Location: LINE+7