©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AUPNPC ; IHS/CMI/LAB - PERCENTILES ;
Source file <AUPNPC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERR | ;
|
|
| PCT | ;;3^10^25^50^75^90^97
|
|
| START | ;
|
|
| EXIT | ;
|
|
| DEBUG | ;W LASTINT,"-",VALUE,"-",INTERP," ",R," ",P1,"..",%,"..",P2,!
|
|
| AUHTWT(TYPE,SEX,AGE,VALUE) | ; EXTRINSIC FUNCTION TO RETURN HT/WT PERCENTILE
|
|
| FIND |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTPCT - [#9999999.82] | START+11, START+14, FIND, FIND+1 |
| ^AUTTPCT("B" | START+10 |
| Name | Line Occurrences |
|---|---|
| ERR | START+3, START+4, START+5, START+6, START+7, START+8 |
| EXIT | FIND+5, FIND+6, DEBUG+1 |
| PCT | FIND+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | START+1~, FIND+5*, FIND+6*, FIND+8*, ERR+1*, EXIT+1 |
| AGE | AUHTWT~, START+5, START+6, START+7, START+12, START+13, FIND+2 |
| AGEINC | START+1~, START+12*, START+13, FIND+2 |
| GRP | START+1~, FIND+3*, FIND+4*, FIND+5, FIND+6, FIND+8 |
| INTERP | START+1~, FIND+3*, FIND+7 |
| LASTINT | START+1~, FIND+3*, FIND+7 |
| LOWAGE | START+1~, START+13*, START+14, FIND+2 |
| MSR1 | START+1~, FIND*, FIND+3 |
| MSR2 | START+1~, FIND+1*, FIND+3 |
| P | START+1~, FIND+8* |
| P1 | START+1~, FIND+8* |
| P2 | START+1~, FIND+8* |
| R | START+1~, FIND+7*, FIND+8 |
| RATA | START+1~, FIND+2*, FIND+3 |
| SEX | AUHTWT~, START+4, START+11 |
| TYPE | AUHTWT~, START+3, START+10 |
| V1 | START+1~, FIND+3* |
| V2 | START+1~, FIND+3* |
| VALUE | AUHTWT~, START+8, FIND+3, FIND+7 |
| XAGE | START+1~, START+14*, FIND, FIND+1 |
| XSEX | START+1~, START+11*, START+14, FIND, FIND+1 |
| XTYPE | START+1~, START+10*, START+11, START+14, FIND, FIND+1 |
| Name | Field # of Occurrence |
|---|---|
| $T(PCT | FIND+8 |