©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
XMXADDRD ;ISC-SF/GMB-Lookup Domain Name ;04/24/2002 10:36
Source file <XMXADDRD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VIA(XMVIA,XMVIAREC,XMVIAN,XMDCIRCL) | ;
|
|
| FINDDOMN | ; Look up domain
|
|
| CHKNAME | ; Input transform for .01 field of DOMAIN file 4.2
|
|
| FORUM() | ; Is this FORUM or GATEWAY?
|
|
| CHKDOM(XMDOM,XMMAXDOM,XMMAXDOT) | ;
|
|
| DNS(XMDUZ,XMDOMAIN,XMVIA,XMVIAN) | ;
; XMDOMAIN - (in/out) Domain name. May be mixed case. Must already be ; in xxx.xxx.xxx format. ; XMVIA - (out) IEN of (relay) domain (in ^DIC(4.2)) ; XMVIAN - (out) Name of (relay) domain |
|
| CHKPRMIT(XMDUZ,XMVIAREC) | ;
|
|
| NEEDSUB(X) | ;
|
|
| LOOKSFX | ; Look for top level domain in internet suffix file
; Instead of looking in the file, we could call the COTS DNS, if it exists. |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | VIA+5, CHKDOM+17, LOOKSFX+4, CHKNAME+11 |
| $$EZBLD^DIALOG | DNS+16, DNS+17, VIA+5, CHKDOM+17, LOOKSFX+4, CHKNAME+11 |
| BLD^DIALOG | NEEDSUB+6 |
| MSG^DIALOG | NEEDSUB+7 |
| ^DIC | LOOKSFX+9 |
| $$FIND1^DIC | FINDDOMN+15, FINDDOMN+24, FINDDOMN+27, VIA+19, LOOKSFX+12 |
| IX^DIC | FINDDOMN+9 |
| MIX^DIC1 | FINDDOMN+6 |
| $$UP^XLFSTR | DNS+7, CHKNAME+3 |
| SETERR^XMXADDR4 | DNS+14, FINDDOMN+14, FINDDOMN+28, FINDDOMN+31, FINDDOMN+37, NEEDSUB+1, VIA+7, CHKDOM+4, CHKDOM+8, CHKDOM+15 , LOOKSFX+15, CHKPRMIT+3, CHKPRMIT+7 |
| WRIERR^XMXADDR4 | CHKNAME+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4.2 - [#4.2] | Classic Fileman Calls, FIND1^DIC |
| ^DIC(4.2996 - [#4.2996] | Classic Fileman Calls, FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4.2 - [#4.2] | VIA+10, VIA+13, VIA+16, VIA+26, VIA+28, LOOKSFX+13 |
| ^DIC(4.2996 - [#4.2996] | CHKNAME+10 |
| ^XMB("NETNAME" | DNS+6, FORUM+1 |
| ^XMB("NUM" | DNS+9, VIA+24, VIA+25 |
| ^XMB("PARENT" | VIA+23, VIA+25, VIA+26, VIA+27, LOOKSFX+11 |
| ^XUSEC( | CHKPRMIT+5 |
| Name | Line Occurrences |
|---|---|
| $$FORUM | DNS+13, LOOKSFX+12 |
| CHKDOM | FINDDOMN+12, FINDDOMN+35, CHKNAME+4 |
| CHKPRMIT | VIA+3 |
| FINDDOMN | DNS+11 |
| LOOKSFX | FINDDOMN+33 |
| NEEDSUB | FINDDOMN+15, FINDDOMN+34 |
| VIA | FINDDOMN+20, VIA+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | FINDDOMN+6*, FINDDOMN+9* |
| DIC | FINDDOMN+1~, FINDDOMN+5*, LOOKSFX+2~, LOOKSFX+7* |
| DIC("W" | LOOKSFX+8* |
| DIC(0 | FINDDOMN+5*, FINDDOMN+9*, LOOKSFX+5*, LOOKSFX+6* |
| >> DIERR | FINDDOMN+24, FINDDOMN+26 |
| >> DIFROM | CHKNAME+8 |
| >> DTOUT | FINDDOMN+6, FINDDOMN+29 |
| >> DUOUT | FINDDOMN+6, FINDDOMN+29, FINDDOMN+31 |
| I | CHKDOM+1~, CHKDOM+10*, CHKDOM+11, CHKDOM+15, CHKNAME+1~, CHKNAME+9*, CHKNAME+10 |
| U | DNS+17, VIA+1, VIA+8, VIA+10, VIA+12, VIA+16, VIA+29, LOOKSFX+14, CHKPRMIT+2, CHKPRMIT+3 , CHKPRMIT+5, CHKPRMIT+7 |
| X | FINDDOMN+1~, FINDDOMN+2*, FINDDOMN+6, FINDDOMN+7, FINDDOMN+8*, FINDDOMN+9, FINDDOMN+14, FINDDOMN+15, FINDDOMN+16, FINDDOMN+21 , FINDDOMN+22~, FINDDOMN+23*, FINDDOMN+24, FINDDOMN+25*, FINDDOMN+27, FINDDOMN+28, FINDDOMN+32, FINDDOMN+34, FINDDOMN+36, FINDDOMN+37 , NEEDSUB~, NEEDSUB+1, NEEDSUB+6, VIA+17~, VIA+18*, VIA+19, VIA+20*, LOOKSFX+15, CHKNAME+3*, CHKNAME+4 , CHKNAME+7!, CHKNAME+9, CHKNAME+10, CHKNAME+12! |
| XMDCIRCL | FINDDOMN+1~, FINDDOMN+20, VIA~, VIA+11 |
| XMDCIRCL( | VIA+4, VIA+9* |
| XMDOM | CHKDOM~, CHKDOM+2, CHKDOM+6, CHKDOM+10, CHKDOM+11 |
| XMDOMAIN | DNS~, DNS+7*, DNS+8, DNS+14, DNS+16, FINDDOMN+2, FINDDOMN+16*, FINDDOMN+23, FINDDOMN+34 |
| XMDUZ | DNS~, VIA+3, CHKPRMIT~, CHKPRMIT+5 |
| XMERROR | DNS+12, FINDDOMN+11, FINDDOMN+12, FINDDOMN+21, FINDDOMN+33, VIA+3, CHKDOM+10, CHKNAME+1~, CHKNAME+5 |
| XMFLAGS | FINDDOMN+1~, FINDDOMN+4*, FINDDOMN+5, LOOKSFX+5 |
| >> XMGCIRCL | FINDDOMN+4 |
| XMIA | DNS+14, DNS+15, FINDDOMN+4, FINDDOMN+9, FINDDOMN+14, FINDDOMN+21, FINDDOMN+37, NEEDSUB+2, VIA+5, VIA+7 , CHKDOM+4, CHKDOM+8, CHKDOM+15, CHKDOM+16, LOOKSFX+3, LOOKSFX+8, LOOKSFX+15, CHKPRMIT+3, CHKPRMIT+7, CHKNAME+1~ , CHKNAME+2* |
| >> XMINSTR("ADDR | FLAGS" , CHKPRMIT+1, CHKPRMIT+4 |
| >> XMINSTR("EXACT" | FINDDOMN+4 |
| XMMAXDOM | CHKDOM~, CHKDOM+5*, CHKDOM+6, CHKDOM+8 |
| XMMAXDOT | CHKDOM~, CHKDOM+9*, CHKDOM+12, CHKDOM+15 |
| XMNETNAM | DNS+5~, DNS+6*, DNS+8, DNS+10, DNS+17, FORUM+1, FINDDOMN+6, FINDDOMN+13, FINDDOMN+21, FINDDOMN+36 , VIA+2, VIA+14, VIA+16 |
| >> XMRESTR("NET | RECEIVE" , CHKPRMIT+1 |
| XMSUBDOM | FINDDOMN+1~, FINDDOMN+2*, FINDDOMN+7*, FINDDOMN+11, FINDDOMN+12, FINDDOMN+14, FINDDOMN+15, FINDDOMN+16, FINDDOMN+35, FINDDOMN+37 , CHKDOM+1~, CHKDOM+11*, CHKDOM+12, CHKDOM+15, CHKDOM+17 |
| XMTEXT | NEEDSUB+5~ |
| XMVIA | DNS~, DNS+9*, FINDDOMN+18*, FINDDOMN+20, VIA~, VIA+4, VIA+9, VIA+10*, VIA+11, VIA+13 , VIA+27*, VIA+28, LOOKSFX+10, LOOKSFX+11*, LOOKSFX+12*, LOOKSFX+13 |
| XMVIAN | DNS~, DNS+10*, DNS+13, DNS+16, DNS+17, FINDDOMN+20, VIA~, VIA+1*, VIA+2, VIA+7 , VIA+11, VIA+14, VIA+16, VIA+18, VIA+29*, LOOKSFX+14* |
| XMVIAREC | DNS+5~, DNS+17, FINDDOMN+19*, FINDDOMN+20, VIA~, VIA+1, VIA+3, VIA+8, VIA+10*, VIA+11 , VIA+12, VIA+28*, VIA+29, LOOKSFX+13*, LOOKSFX+14, CHKPRMIT~, CHKPRMIT+2, CHKPRMIT+3, CHKPRMIT+5, CHKPRMIT+7 |
| Y | FINDDOMN+1~, FINDDOMN+6, FINDDOMN+9, FINDDOMN+10, FINDDOMN+18, FINDDOMN+22~, FINDDOMN+24*, FINDDOMN+26, VIA+15~, VIA+16 , VIA+19*, LOOKSFX+2~, LOOKSFX+10 |
| Y(0 | FINDDOMN+13, FINDDOMN+16, FINDDOMN+19 |