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