Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBUTL3

FBUTL3.m

Go to the documentation of this file.
  1. FBUTL3 ;WOIFO/SAB-FEE BASIS UTILITY ;6/19/2003
  1. ;;3.5;FEE BASIS;**61**;JAN 30, 1995
  1. Q
  1. ARCDES ; Adjustment Reason Current Description Identifier
  1. ; Called by File 161.91 "CDES" Write Identifier
  1. N FBFMT,FBI,FBARTXT,FBX
  1. N DIWF,DIWL,DIWR,X
  1. ;
  1. ; get current description
  1. S FBX=$$AR^FBUTL1(Y,,,"FBARTXT")
  1. I '$O(FBARTXT(0)) Q ; no description found
  1. ;
  1. ; reformat text into 50 character width
  1. K ^UTILITY($J,"W")
  1. S DIWL=1,DIWR=50,DIWF=""
  1. S FBI=0 F S FBI=$O(FBARTXT(FBI)) Q:'FBI S X=FBARTXT(FBI) D ^DIWP
  1. ;
  1. ; 'display' idenitifer using EN^DDIOL
  1. S FBI=0 F S FBI=$O(^UTILITY($J,"W",DIWL,FBI)) Q:'FBI D
  1. . S FBFMT=$S(FBI=1:"?15",1:"!?15")
  1. . S FBX=$G(^UTILITY($J,"W",DIWL,FBI,0))
  1. . D EN^DDIOL(FBX,,FBFMT)
  1. ;
  1. ; cleanup
  1. K ^UTILITY($J,"W")
  1. Q
  1. ;
  1. AGCDN ; Adjustment Group Current Descriptive Name Identifier
  1. ; Called by File 161.92 "CDN" Write Identifier
  1. N FBX
  1. ;
  1. ; get current descriptive name
  1. S FBX=$$AG^FBUTL1(Y)
  1. ;
  1. ; 'display' using EN^DDIOL
  1. I $P(FBX,U,5)]"" D EN^DDIOL($P(FBX,U,5),,"?15")
  1. ;
  1. Q
  1. ;
  1. RRCDES ; Remittance Remarks Current Description Identifier
  1. ; Called by File 161.93 "CDES" Write Identifier
  1. N FBFMT,FBI,FBRRTXT,FBX
  1. N DIWF,DIWL,DIWR,X
  1. ;
  1. ; get current description
  1. S FBX=$$RR^FBUTL1(Y,,,"FBRRTXT")
  1. I '$O(FBRRTXT(0)) Q ; no description found
  1. ;
  1. ; reformat text into 50 character width
  1. K ^UTILITY($J,"W")
  1. S DIWL=1,DIWR=50,DIWF=""
  1. S FBI=0 F S FBI=$O(FBRRTXT(FBI)) Q:'FBI S X=FBRRTXT(FBI) D ^DIWP
  1. ;
  1. ; 'display' idenitifer using EN^DDIOL
  1. S FBI=0 F S FBI=$O(^UTILITY($J,"W",DIWL,FBI)) Q:'FBI D
  1. . S FBFMT=$S(FBI=1:"?15",1:"!?15")
  1. . S FBX=$G(^UTILITY($J,"W",DIWL,FBI,0))
  1. . D EN^DDIOL(FBX,,FBFMT)
  1. ;
  1. ; cleanup
  1. K ^UTILITY($J,"W")
  1. Q
  1. ;
  1. ;FBUTL3