24.01.2014 Views

IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service

IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service

IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

<strong>IHS</strong> <strong>RPMS</strong> <strong>Dictionaries</strong> (<strong>Patient</strong>) (<strong>AUPN</strong>) Version 99.1<br />

examples<br />

W $$COMMRES^<strong>AUPN</strong>PAT(1234,“I”) => 31<br />

W $$COMMRES^<strong>AUPN</strong>PAT(1234,“E”) => PRINCESS BAY<br />

W $$COMMRES^<strong>AUPN</strong>PAT(1234,“C”) => 0210019<br />

HRN(p,l,f) Returns HEALTH RECORD NUMBER of patient p at location l in<br />

format f<br />

arguments<br />

p - patient ien (DFN)<br />

l - must be valid ien of location<br />

f - optional, 2–HRN will have prefix of site abbreviation<br />

examples<br />

W $$HRN^<strong>AUPN</strong>PAT(1234,4585) => 3456<br />

W $$HRN^<strong>AUPN</strong>PAT(1234,4585,2) => SE3456<br />

ELIGSTAT(p,f) Returns ELIGIBILITY STATUS of patient p in format f<br />

arguments<br />

p - patient ien (DFN)<br />

f - optional format; if null, returns internal format<br />

I - internal format of eligibility status (set of codes)<br />

E - external written-out format of eligibility status<br />

examples<br />

W $$ELIGSTAT^<strong>AUPN</strong>PAT(1234,“I”)<br />

W $$ELIGSTAT^<strong>AUPN</strong>PAT(1234,“E”)<br />

=> D<br />

=> DIRECT ONLY<br />

BEN(p,f)<br />

Returns CLASSIFICATION/BENEFICIARY of patient p in format f<br />

arguments<br />

p - patient ien (DFN)<br />

f - optional format; if null, returns classification/beneficiary code<br />

I - internal format of classification/beneficiary (pointer value)<br />

E - external written-out format of classification/beneficiary<br />

C - classification/beneficiary code<br />

examples<br />

W $$BEN^<strong>AUPN</strong>PAT(1234,“I”) => 1<br />

W $$BEN^<strong>AUPN</strong>PAT(1234,“E”) => INDIAN/ALASKA NATIVE<br />

W $$BEN^<strong>AUPN</strong>PAT(1234,“C”) => 01<br />

Technical Manual<br />

March 1999<br />

5<br />

Routine Descriptions

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!