IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service
IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service
IHS RPMS Dictionaries (Patient) (AUPN) - Indian Health Service
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