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

arguments<br />

p - patient ien (DFN)<br />

d - required date in internal FileMan format<br />

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

examples<br />

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

W $$PIN^<strong>AUPN</strong>PAT(1234,2950601,“E”) => BLUE CROSS/BLUE SHIELD<br />

CDEATH(p,f) Returns CAUSE OF DEATH of patient p in format f<br />

arguments<br />

p - patient ien (DFN)<br />

f - optional format; if null, returns Cause of Death ICD9 code<br />

I - internal format ICD9 ien<br />

E - external written-out format (ICD9 TEXT) C - ICD9 code<br />

examples<br />

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

W $$CDEATH^<strong>AUPN</strong>PAT(1234,“E”) => DIABETES MELLITUS<br />

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

ENC(p) Returns an encrypted patient identifier 12 bytes long. The entry-point<br />

DEC reverses the process and returns the decoded output in a 27-byte-long string.<br />

arguments<br />

p - patient ien (DFN)<br />

examples<br />

W $$ENC^<strong>AUPN</strong>PAT(1)<br />

=> V46332UMH763<br />

DEC(p) Reverses the process of ENC^<strong>AUPN</strong>PAT and returns the decoded<br />

output in a 27-byte-long string.<br />

arguments<br />

p - patient ien (DFN)<br />

examples<br />

W $$DEC^<strong>AUPN</strong>PAT(V46332UMH763) =>[THA,B JAN 01,1933 0001]<br />

3.1.2 Routine - <strong>AUPN</strong>PAT1<br />

Data for the following functions comes from the PATIENT file, file 9000001.<br />

Technical Manual<br />

March 1999<br />

7<br />

Routine Descriptions

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

Saved successfully!

Ooh no, something went wrong!