ECXWRD ;BIR/CML,ALB/JAP Print Active Wards for Fiscal Year ;11/8/17 14:59
Source file <ECXWRD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point from option
|
|
START | ;
|
|
CHK | ;has this ward been active?
; output ; X = 1 if inactive (out-of-service), 0 otherwise |
|
HDR | ;header and page control
|
|
GETSTAT(DIVNUM,STATNO,FACNUM) | ; 181 - Added the following sections
|
|
GETOFAC(HDR,OFAC) | ;181
|
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 |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | Classic Fileman Calls |
^DIC(42 - [#42] | Classic Fileman Calls |