XUAF4 ;ISC-SF/RWF/RAM - Institution file access. ;04/01/99 08:07
Source file <XUAF4.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| NNT(%) | ;ef.sr. Return Name, Station Number, ASSO | 
 
 | 
| STATUS(%) | ;Get the status of a IEN | |
| NAME(IEN) | ; -- Official Name | 
 
 | 
| PARENT(ROOT,CHILD,ASSO) | ;sr. Return array of IEN's of parents | 
 
 | 
| BNSTA(STA) | ; -- Billing Facility Name - Station Number | 
 
 | 
| RF(IEN) | ;realigned from | |
| BNIEN(IEN) | ; -- Billing Facility Name - Internal Entry Number | 
 
 | 
| MADD(IEN) | ; -- mailing address (street addr^city^state^zip) | 
 
 | 
| ACTIVE(IEN) | ; -- active facility (1=active, 0=inactive) | 
 
 | 
| WHAT(IEN,FLD) | ;ef.sr. Field to return | 
 
 | 
| PADD(IEN) | ; -- physical address (street addr^city^state^zip) | 
 
 | 
| ASSO(%) | ;Lookup an Asso | |
| RT(IEN) | ;realigned to | |
| CHILDREN(ROOT,PAR,ASSO,XUAC) | ;sr. Return the children | 
 
 | 
| IDX(CDSYS,ID) | ; -- return IEN for a given coding system / ID pair | 
 
 | 
| TYPE(%) | ;Lookup a Faclity TYPE in file 4.1 | |
| PRNT(STA) | ; -- parent facility | 
 
 | 
| LCDSYS(Y) | ;  list coding systems | |
| IDT(IEN) | ; inactive date | |
| F4(STA,ARRAY,FLAG,ONDT) | ;File #4 multipurpose API | 
 
 | 
| CIRN(%1,%2) | ;ef.sr. Is this a CIRN Enables inst. | 
 
 | 
| LKUP(%) | ;ef.sr. Resolve a value into IEN | 
 
 | 
| ID(CDSYS,IEN) | ; returns the ID for a given coding system / IEN | 
 
 | 
| CDSYS(Y) | ; coding systems | 
 
 | 
| LEGACY(STA) | ; -- legacy station number (1=yes; 0=no) | 
 
 | 
| NS(IEN) | ;ef.sr. Return name and station # | 
 
 | 
| LOOKUP | ; -- lookup an enty by coding system / ID pair | 
 
 | 
| O99(IEN) | ;returns pointer to new station number IEN | 
 
 | 
| SIBLING(ROOT,CHILD,ASSO) | ;sr. Return the siblings | 
 
 | 
| TF(IEN) | ;active treating facility? (1=YES,0=NO) | 
 
 | 
| STA(IEN) | ;return station number for an IEN | 
 
 | 
| SCRN() | ;sreen IEN | |
| IEN(STA) | ;return IEN for a station number | 
 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(4 - [#4] | PARENT+3, CHILDREN+3, LKUP+1, STATUS+1, NS+1, CIRN+2, IEN+2, STA+1, O99+1, O99+2 , NAME+1, NAME+2, ACTIVE+2, PADD+4, PADD+6, MADD+4, F4+32, F4+35, F4+38, F4+41 , F4+42, F4+44, F4+45, F4+47, F4+56, F4+57, IDT+4, IDT+5, IDX+15, IDX+16 , IDX+18, ID+11, ID+13, ID+14, ID+16, ID+18, CDSYS+5, CDSYS+6, CDSYS+7, CDSYS+8 , CDSYS+9, LCDSYS+5, BNIEN+2, BNSTA+2 | 
| ^DIC(4.1 - [#4.1] | TYPE+2, TYPE+4, F4+38 | 
| ^DIC(5 - [#5] | PADD+5, MADD+5 | 
| Name | Line Occurrences | 
|---|---|
| $$ASSO | PARENT+2, CHILDREN+1, SIBLING+1 | 
| $$IEN | F4+30 | 
| $$LKUP | PARENT+2, CHILDREN+1 | 
| $$NS | PARENT+5, CHILDREN+5, NNT+2 | 
| $$SCRN | F4+33 | 
| $$STA | TF+2, RT+2, RF+2, F4+43, F4+45 | 
| $$STATUS | CHILDREN+4 | 
| $$WHAT | NNT+2, CIRN+4 | 
| CHILDREN | SIBLING+3 | 
| F4 | TF+2, RT+2, RF+2 | 
| PARENT | SIBLING+2, PRNT+2 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | PARENT+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | PARENT+1~, PARENT+2*, PARENT+3*, PARENT+4, CHILDREN+1~*, CHILDREN+3*, CHILDREN+4, CHILDREN+5, SIBLING+1~*, SIBLING+3* , NNT~, NNT+1, NNT+2, LKUP~, LKUP+1*, LKUP+3, STATUS~, STATUS+1, TYPE~, TYPE+1 , TYPE+2, TYPE+3*, TYPE+4, ASSO~, ASSO+1*, ASSO+2*, ASSO+3, CIRN+1~ | 
| %0 | PARENT+1~, PARENT+3*, PARENT+5 | 
| %1 | CHILDREN+1~, CIRN~, CIRN+1*, CIRN+2, CIRN+3, CIRN+4 | 
| %2 | CIRN~, CIRN+3 | 
| ARRAY | TF+1~, TF+2, TF+3, RT+1~, RT+2, RF+1~, RF+2, F4~, F4+24!, F4+26* , F4+31*, F4+33* | 
| ARRAY("INACTIVE" | F4+48* | 
| ARRAY("NAME" | F4+35*, F4+53, F4+60* | 
| ARRAY("REALIG | NED FROM" , RF+3, F4+45*, NED TO" , RT+3, F4+43* | 
| ARRAY("STATIO | N NUMBER" , F4+37* | 
| ARRAY("TYPE" | F4+38* | 
| ARRAY("VA NAM | E" , F4+36*, F4+54, F4+61* | 
| ASSO | PARENT~, PARENT+2*, PARENT+4, CHILDREN~, CHILDREN+1*, CHILDREN+2, CHILDREN+3, SIBLING~, SIBLING+1*, SIBLING+2 , SIBLING+3 | 
| CDSYS | IDX~, IDX+10*, IDX+12, IDX+15, IDX+16, IDX+18, ID~, ID+10*, ID+11, ID+13 , ID+14, ID+16, LCDSYS+2~, LCDSYS+3*, LCDSYS+5*, LCDSYS+6 | 
| CDSYS("NPI" | LCDSYS+4* | 
| CDSYS("VASTANUM" | LCDSYS+4* | 
| CHILD | PARENT~, PARENT+2*, PARENT+3, SIBLING~, SIBLING+2 | 
| D | LOOKUP+2~, LOOKUP+4* | 
| DA | CIRN+3~* | 
| DIC | LOOKUP+2~, LOOKUP+4* | 
| DIC(0 | LOOKUP+4* | 
| DIE | CIRN+3~* | 
| DR | CIRN+3~* | 
| DT | F4+55 | 
| DUZ("AG" | SCRN+3 | 
| FLAG | F4~, F4+25*, SCRN+2, SCRN+3 | 
| FLD | WHAT~, WHAT+1 | 
| FM | F4+28~, F4+44*, F4+45 | 
| HDT | F4+28~, F4+55*, F4+56*, F4+57 | 
| I | F4+28~, F4+47*, F4+48 | 
| ID | IDX~, IDX+10*, IDX+13, IDX+15, IDX+16, IDX+18, ID+8~ | 
| IDT | IDT+1~, IDT+3*, IDT+4, IDT+6*, IDT+7 | 
| IDX | ID+8~, ID+16*, ID+18 | 
| IEN | NS~, NS+1, WHAT~, WHAT+1, STA~, STA+1, TF~, TF+1, TF+2, RT~ , RT+1, RT+2, RF~, RF+1, RF+2, O99~, O99+1, O99+2, NAME~, NAME+1 , NAME+2, ACTIVE~, ACTIVE+2, PADD~, PADD+4, PADD+6, MADD~, MADD+4, F4+28~, F4+30* , F4+31, F4+32, F4+35, F4+38, F4+41, F4+42, F4+44, F4+45, F4+47, F4+56 , F4+57, IDT~, IDT+2*, IDT+4, IDT+5, SCRN+4, IDX+8~, IDX+18*, IDX+20, ID~ , ID+10*, ID+11, ID+13, ID+14, ID+16, ID+18, BNIEN~, BNIEN+2 | 
| N99 | F4+28~, F4+32*, F4+36, F4+47, SCRN+1, SCRN+2 | 
| NAME | F4+28~, F4+53*, F4+58*, F4+60 | 
| ND | IDT+1~, IDT+5*, IDT+6 | 
| ONDT | F4~, F4+25*, F4+50, F4+56 | 
| PAR | CHILDREN~, CHILDREN+1*, CHILDREN+3 | 
| RDT | F4+28~, F4+42*, F4+43, F4+47 | 
| ROOT | PARENT~, PARENT+5, CHILDREN~, CHILDREN+5, SIBLING~, SIBLING+2, SIBLING+3 | 
| STA | IEN~, IEN+1*, IEN+2, LEGACY~, LEGACY+1, PRNT~, PRNT+1*, PRNT+2, F4~, F4+25* , F4+26, F4+30, F4+37, BNSTA~, BNSTA+2 | 
| STATE | PADD+2~, PADD+5*, PADD+8, MADD+2~, MADD+5*, MADD+7 | 
| TO | F4+28~, F4+41*, F4+42, F4+43 | 
| U | PARENT+3, STATUS+1, TYPE+4, NS+1, STA+1, PRNT+4, NAME+1, NAME+2, ACTIVE+2, PADD+4 , PADD+5, PADD+8, MADD+5, MADD+7, F4+35, F4+36, F4+38, F4+43, F4+45, F4+47 , F4+58, F4+59, IDT+6, SCRN+2, ID+13, ID+14, ID+18, CDSYS+5, CDSYS+6, CDSYS+7 , CDSYS+8, CDSYS+9, BNIEN+2, BNSTA+2 | 
| VANAME | F4+28~, F4+54*, F4+59*, F4+61 | 
| X | PRNT+1~, PRNT+2*, PRNT+3, PRNT+4, PADD+2~, PADD+4*, PADD+5, PADD+6*, PADD+8, MADD+2~ , MADD+4*, MADD+5, MADD+7, F4+57~*, F4+58, F4+59, SCRN+1~*, SCRN+3 | 
| X("P" | PRNT+2, PRNT+4 | 
| XDT | IDT+1~, IDT+3*, IDT+4*, IDT+5, IDT+6 | 
| XUAC | CHILDREN~, CHILDREN+1*, CHILDREN+4 | 
| Y | CDSYS~, LCDSYS~ | 
| Y( | LCDSYS+6* | 
| Y("CLIA" | CDSYS+8* | 
| Y("DMIS" | CDSYS+5* | 
| Y("MAMMO-ACR" | CDSYS+9* | 
| Y("NPI" | CDSYS+7* | 
| Y("VASTANUM" | CDSYS+6* |