HLFNC ;AISC/SAW-Routine of Functions and Other Calls Used for HL7 Messages ;08/03/2000 15:45 [ 04/02/2003 8:38 AM ]
Source file <HLFNC.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| OLDM10(X,HLECDE) | ;Calculate M10 checksum ; INPUT : X - String to calc checksum ; Optional HLECDE - Encoding chars | |
| M11(X,HLECDE) | ; M11 check digit scheme ; INPUT : X - ID number ; Optional HLECDE - Encoding chars | 
 
 | 
| M10(X,HLECDE) | ; M10  check digit scheme ; INPUT : X - ID number ; Optional HLECDE - Encoding chars | 
 
 | 
| FMNAME(X,HLECDE) | ;Convert a name in HL7 format to DHCP format ; INPUT: X - Name in HL7 format ; Optional - HLECDE - HL7 encoding chars | 
 
 | 
| HLDATE(X,Y) | ;Convert date, date/time or time only in FM format to HL7 format | 
 
 | 
| HLNAME(X,HLECDE) | ;Convert a name in DHCP format to HL7 format ; INPUT: X - Name in DHCP format ; Optional - HLECDE - HL7 encoding chars | 
 
 | 
| FMDATE(X) | ;Convert a date, date/time or time only in HL7 format to FM format | 
 
 | 
| HLADDR(AD,GL,HLECDE) | ;Convert DHCP address fields to HL7 address format | 
 
 | 
| OLDM11(X,HLECDE) | ;Calculate M11 checksum ; INPUT : X - String to calc checksum ; Optional HLECDE - Encoding chars | |
| UPPER(X) | ;Convert lowercase letters to uppercase | 
 
 | 
| HLPHONE(X,B,C) | ;Convert DHCP Phone Number to HL7 Format | 
 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(5 - [#5] | HLADDR+28 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | HLADDR+28 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | HLNAME+11~, HLNAME+12*, FMNAME+11~*, FMNAME+12, FMNAME+14, FMNAME+15, HLDATE+9~, HLDATE+10, HLDATE+11*, HLDATE+13 , HLDATE+14*, HLDATE+16*, HLDATE+17, FMDATE+2~, FMDATE+3*, FMDATE+4, OLDM10+11~, OLDM10+12*, OLDM11+11~* | 
| AD | HLADDR~, HLADDR+20, HLADDR+30 | 
| B | HLPHONE~, HLPHONE+9*, HLPHONE+15, HLPHONE+16, HLPHONE+17 | 
| C | HLPHONE~, HLPHONE+9*, HLPHONE+15, HLPHONE+16, HLPHONE+17 | 
| GL | HLADDR~, HLADDR+20, HLADDR+26*, HLADDR+27*, HLADDR+28*, HLADDR+29 | 
| HLCNT | M10+9~, M10+19*, M10+22*, M10+25*, M11+9~, M11+19*, M11+21 | 
| HLDIGIT | M10+9~, M10+24*, M10+25*, M10+26*, M10+27, M11+9~, M11+18*, M11+21*, M11+23*, M11+24* , M11+25*, M11+26 | 
| HLECDE | HLNAME~, HLNAME+8, HLNAME+9, FMNAME~, FMNAME+8, FMNAME+9, M10~, M10+11, M11~, M11+11 , OLDM10~, OLDM10+8, OLDM10+9, OLDM11~, OLDM11+8, OLDM11+9, HLADDR~, HLADDR+21, HLADDR+22 | 
| HLECH | HLNAME+8, HLNAME+9~*, HLNAME+10, HLNAME+12, FMNAME+8, FMNAME+9~*, FMNAME+10, FMNAME+11, FMNAME+12, FMNAME+14 , FMNAME+15, M10+11~*, M10+13, M10+15, M10+27, M11+11~*, M11+13, M11+15, M11+26, OLDM10+8 , OLDM10+9~*, OLDM10+10, OLDM10+13, OLDM11+8, OLDM11+9~*, OLDM11+10, OLDM11+12, HLADDR+21, HLADDR+22~*, HLADDR+23 , HLADDR+29, HLADDR+33, HLADDR+34, HLADDR+35, HLADDR+36 | 
| HLEVEN | M10+9~, M10+21*, M10+22*, M10+23 | 
| HLODD | M10+9~, M10+18*, M10+19*, M10+20*, M10+23 | 
| HLWT | M11+9~, M11+18*, M11+20*, M11+21, M11+22* | 
| HLX1 | M10+9~, M10+17*, M10+19, M10+22, M10+23*, M10+25, M11+9~, M11+17*, M11+19, M11+21 | 
| I | HLPHONE+9~, HLPHONE+10*, HLADDR+25~, HLADDR+30* | 
| X | HLNAME~, HLNAME+7, HLNAME+12, FMNAME~, FMNAME+7, FMNAME+11, FMNAME+12, FMNAME+14, FMNAME+15, HLDATE~ , HLDATE+7, HLDATE+10, HLDATE+11, HLDATE+14, HLDATE+16, FMDATE~, FMDATE+1, FMDATE+3, FMDATE+4, FMDATE+5 , M10~, M10+10, M10+13, M10+15, M10+17, M10+27, M11~, M11+10, M11+13, M11+15 , M11+17, M11+26, OLDM10~, OLDM10+7, OLDM10+12, OLDM10+13, OLDM11~, OLDM11+7, OLDM11+11, OLDM11+12 , UPPER~, UPPER+1, UPPER+2, HLPHONE~, HLPHONE+8, HLPHONE+10, HLADDR+25~, HLADDR+27*, HLADDR+28*, HLADDR+30* , HLADDR+31*, HLADDR+33, HLADDR+34, HLADDR+35, HLADDR+36 | 
| X1 | HLNAME+11~, HLNAME+12*, FMNAME+11~* | 
| X2 | HLNAME+11~, HLNAME+12* | 
| >> XRT0 | HLADDR+32 | 
| >> XRTL | HLADDR+24 | 
| >> XRTN | HLADDR+32* | 
| Y | HLNAME+11~, HLNAME+12*, HLNAME+13, FMNAME+11*, FMNAME+14*, FMNAME+15*, FMNAME+16, HLDATE~, HLDATE+8*, HLDATE+13 , HLDATE+17, OLDM10+11~, OLDM10+12*, OLDM10+13, OLDM11+11~*, OLDM11+12, HLPHONE+9~, HLPHONE+10*, HLPHONE+11, HLPHONE+12* , HLPHONE+13*, HLPHONE+14*, HLPHONE+15, HLPHONE+16, HLPHONE+17, HLADDR+25~, HLADDR+29*, HLADDR+33, HLADDR+34, HLADDR+35 , HLADDR+36 | 
| Y1 | HLPHONE+9~, HLPHONE+12*, HLPHONE+15, HLPHONE+16, HLPHONE+17 | 
| Z | HLDATE+9~, HLPHONE+9~, HLPHONE+10* |