©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GECSUNUM ;WISC/RFJ-get next counter number ;01 Nov 93
Source file <GECSUNUM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COUNTER(GECSNAME) | ; return next counter number
; gecsname=station-batch type-fiscal year ; example for fms: 460-FMS:MO-94 ; return next counter number |
|
| ACOUNTER(GECSNAME) | ; return next alphanumeric counter number
; gecsname=station-batch type-fiscal year ; example for fms: 460-FMS:MO-94 ; return next alphanumeric counter number |
|
| ACNTEND | ||
| ALPHA(A) | ;Increment alpha character to next letter in the alphabet
; A = Any letter in the alphabet except O to prevent confusion with zero |