IBCRHBR4 ;ALB/ARH - RATES: UPLOAD (RC) SELECT SITES ; 10-OCT-1998
Source file <IBCRHBR4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SELSITE() | ; select one site to calculate RC charges for
; return: 0 or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip' |
|
SELECT | ||
SSQ | ||
ASKNAM() | ; ask the user to enter the name of a site/division, return upper case name entered or null
|
|
CONT(SITE) | ; as user if they want to load this division, return 1 if accept division and calculate charges, else 0
|
|
LSTALL | ; list all sites, user cannot select, nothing returned
|
|
LSTSITE(SNAME) | ; search, display, selecy from list of sites
; returns 'site IFN in IBCR RC SITE' if one selected, 0 if none selected, -1 if ^ |
|
ASKSEL(CNT) | ; ask user to select from list of sites, returns number selected, 0 if none selected, -1 if ^
|
|
MSGDIV(SITE) | ; check if division selected is defined as a division (40.8) on the system
|
|
SETRGZIP | ; for all existing Billing Regions, set the sites 3-digit zip code into the Identifier field (363.31,.02)
; the 3-digit zip was not available with RC v1, so Regions created for RC v1 will not have this field set |
|
SITEDV(DIV) | ; return the site data on the division passed in
; input: site number, output: 0 or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip' |
|
CHKRGZIP | ; for all existing Billing Regions, check to ensure each division assigned is actually within that Region
; the 3-digit zip of the Regions Divisions must match the 3-digit zip of the Regions primary division ; if the 3-digit zips do not match, the Division is deleted from the Region |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(363.31 - [#363.31] | Classic Fileman Calls |