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

Package: Fee Basis

Routine: FBUCUTL4


Information

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

Source Information

Source file <FBUCUTL4.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls