XUAF4 ;ISC-SF/RWF/RAM - Institution file access. ;12/03/2019 08:07
Source file <XUAF4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARENT(ROOT,CHILD,ASSO) | ;sr. Return array of IEN's of parents
|
|
| CHILDREN(ROOT,PAR,ASSO,XUAC) | ;sr. Return the children
|
|
| SIBLING(ROOT,CHILD,ASSO) | ;sr. Return the siblings
|
|
| NNT(%) | ;ef.sr. Return Name, Station Number, ASSO
|
|
| LKUP(%) | ;ef.sr. Resolve a value into IEN
|
|
| STATUS(%) | ;Get the status of a IEN
|
|
| TYPE(%) | ;Lookup a Faclity TYPE in file 4.1
|
|
| ASSO(%) | ;Lookup an Asso
|
|
| NS(IEN) | ;ef.sr. Return name and station #
|
|
| WHAT(IEN,FLD) | ;ef.sr. Field to return
|
|
| CIRN(%1,%2) | ;ef.sr. Is this a CIRN Enables inst.
|
|
| IEN(STA) | ;return IEN for a station number
|
|
| STA(IEN) | ;return station number for an IEN
|
|
| TF(IEN) | ;active treating facility? (1=YES,0=NO)
|
|
| RT(IEN) | ;realigned to
|
|
| RF(IEN) | ;realigned from
|
|
| O99(IEN) | ;returns pointer to new station number IEN
|
|
| LEGACY(STA) | ; -- legacy station number (1=yes; 0=no)
|
|
| PRNT(STA) | ; -- parent facility
|
|
| NAME(IEN) | ; -- Official Name
|
|
| ACTIVE(IEN) | ; -- active facility (1=active, 0=inactive)
|
|
| PADD(IEN) | ; -- physical address (street addr^city^state^zip)
|
|
| HPADD(IEN,XUEDT) | ; -- historical physical address based on effective date
|
|
| MADD(IEN) | ; -- mailing address (street addr^city^state^zip)
|
|
| F4(STA,ARRAY,FLAG,ONDT) | ;File #4 multipurpose API
|
|
| IDT(IEN) | ; inactive date
|
|
| SCRN() | ;sreen IEN
|
|
| LOOKUP | ; -- lookup an enty by coding system / ID pair
|
|
| IDX(CDSYS,ID) | ; -- return IEN for a given coding system / ID pair
|
|
| ID(CDSYS,IEN) | ; returns the ID for a given coding system / IEN
|
|
| CDSYS(Y) | ; coding systems
|
|
| LCDSYS(Y) | ; list coding systems
|
|
| BNIEN(IEN) | ; -- Billing Facility Name - Internal Entry Number
|
|
| BNSTA(STA) | ; -- Billing Facility Name - Station Number
|
|
| CERNER(STA) | ; Check if a facility has been converted to CERNER
; Take in STA = Station number ; Return -1 for invalid station number ; Return 1 for CERNER station |
|
| 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, HPADD+8, HPADD+11, 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, CERNER+6 |
| ^DIC(4.1 - [#4.1] | TYPE+2, TYPE+4, F4+38 |
| ^DIC(5 - [#5] | PADD+5, HPADD+17, 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, HPADD~, HPADD+8, HPADD+11, HPADD+13 , 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 |
| IENS | HPADD+9~, HPADD+13*, HPADD+14, HPADD+15, HPADD+16, HPADD+17 |
| 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, CERNER~, CERNER+5 |
| 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, HPADD+17, HPADD+18, 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, CERNER+6 |
| 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 |
| XUADD1 | HPADD+3~, HPADD+15*, HPADD+18 |
| XUADD2 | HPADD+3~, HPADD+15*, HPADD+18 |
| XUCITY | HPADD+3~, HPADD+16*, HPADD+18 |
| XUEDT | HPADD~, HPADD+2, HPADD+12 |
| XUHDA | HPADD+9~, HPADD+10*, HPADD+11*, HPADD+12, HPADD+13 |
| XUHFND | HPADD+9~, HPADD+10*, HPADD+11, HPADD+15* |
| XUHRRY | HPADD+9~, HPADD+19! |
| XUHRRY( | HPADD+15, HPADD+16, HPADD+17 |
| XULINE | HPADD+3~, HPADD+7*, HPADD+8, HPADD+18*, HPADD+21 |
| XUSIEN | CERNER+4~, CERNER+5*, CERNER+6 |
| XUSTATE | HPADD+3~, HPADD+17*, HPADD+18 |
| XUSTDA | HPADD+3~, HPADD+17* |
| XUZIP | HPADD+3~, HPADD+16*, HPADD+18 |
| 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* |
