XLFUTL ;SFISC/RWF - Library Function, Check digit ;6/29/94 14:04 [ 04/02/2003 8:29 AM ]
Source file <XLFUTL.m>
Package | Total | Caller Graph |
---|---|---|
Kernel | 5 | XLFIPV XLFNSLK XQ82 XUTMTP1 ZISHMSU |
Order Entry Results Reporting | 3 | ORHLESC ORRDI1 ORWRP4 |
Barcode Medication Administration | 1 | PSBRPC |
Lab Service | 1 | LRSRVR4 |
Text Integration Utility | 1 | TIUHL7U1 |
Toolkit | 1 | XTHCURL |
VistALink | 1 | XOBVLL |
Name | Comments | DBIA/ICR reference |
---|---|---|
VCD(%X) | ; -- Verify check digit (last digit)
; -- Pass X = integer with check digit appended ; -- rtns 0 if check not valid or 1 if valid |
|
CNV(N,B) | ;Cnv N from 10 to B
|
|
BASE(%X1,%X2,%X3) | ;Convert %X1 from %X2 base to %X3 base
|
|
QL(X) | ;$QLENGTH OF GLOBAL STRING
|
|
DEC(N,B) | ;Cnv N from B to 10
|
|
QS(X1,X2) | ;$QSUBSCRIPT OF GLOBAL STRING
|
|
CCD(%X) | ; Compute check digit and append to number
|
|
Name | Line Occurrences |
---|---|
$$CCD | VCD+4 |
$$CNV | BASE+2 |
$$DEC | BASE+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | QL+1~, QL+2*, QL+3, QS+1~ |
%1 | QL+1~, QL+2*, QS+1~, QS+7*, QS+8*, QS+9 |
%D | CCD+4~*, CCD+5* |
%I | CCD+4~, CCD+5* |
%N | CCD+4~, CCD+5* |
%S | CCD+4~*, CCD+5*, CCD+6 |
%X | CCD~, CCD+4*, CCD+5, CCD+6, VCD~, VCD+4 |
%X1 | BASE~, BASE+2 |
%X2 | BASE~, BASE+1, BASE+2 |
%X3 | BASE~, BASE+1, BASE+2 |
B | DEC~, DEC+1, DEC+2, CNV~, CNV+1, CNV+2 |
I | DEC+1~, DEC+2*, CNV+1~, CNV+2* |
N | DEC~, DEC+1, DEC+2, CNV~, CNV+1, CNV+2* |
X | QL~, QL+2 |
X1 | QS~, QS+2, QS+3, QS+4, QS+5, QS+6, QS+7, QS+9 |
X2 | QS~, QS+2, QS+3, QS+4, QS+5, QS+6, QS+7, QS+9, QS+10, QS+11 |
Y | QS+1~, QS+9*, QS+10*, QS+11*, QS+12*, QS+13, DEC+1~*, DEC+2*, DEC+3, CNV+1~* , CNV+2*, CNV+3 |