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 |