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

Package: Fee Basis

Routine: FBNHRCS1


Information

FBNHRCS1 ;ACAMPUS/dmk-RCS 10-0168 CON'T ;10/20/98

Source Information

Source file <FBNHRCS1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;called from FBNHRCS for compiling and printing report
VAL ;when generating code sheets - validate vendors
EN ;start going through TMP to output report
; FBV=ien of vendor FBD= latest contract to date(-)
; FBI=ien of latest contract within date range
CONTR ;get numeric station number fro contract
CSC(X) ; This call will return city(15)_u_state code(2)_u_county(3)
COUNTY(X,Y) ;call returns the 3 digit county code
DOLLAR(X) ;round off rate to closest dollar and right justify to 3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Cannot determine proper station to build code sheets.",!,"Please check your Fee Basis Site Paramaters file (#161.4)"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,?5,$P($G(^FBAAV(+FBV,0)),U)," (ien: ",+FBV,")"
  • Line Location: VAL+4
Function Call: WRITE
  • Prompt: !!,"WARNING: NO CODE SHEETS WILL BE CREATED"
  • Line Location: VAL+7
Function Call: WRITE
  • Prompt: !,"The following vendor(s) are missing the required field DATE OF"
  • Line Location: VAL+8
Function Call: WRITE
  • Prompt: !,"LAST ASSESSMENT. This data must be entered before any code"
  • Line Location: VAL+9
Function Call: WRITE
  • Prompt: !,"sheets will be created."
  • Line Location: VAL+10
Info |  Source |  Entry Points |  Interaction Calls