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 |