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* |