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