©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
GMVHS1 ;HIOFO/FT-RETURN PATIENT DATA UTILITY (cont.) ;10/3/07
Source file <GMVHS1.m>
| Package | Total | Call Graph |
|---|---|---|
| General Medical Record - Vitals | 2 | $$GETTYPEI^GMVHS (CLIO,F1205)^GMVUTL |
| Kernel | 1 | $$UP^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Vitals | 1 | GMVHS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CALCBMI(GMVNODE) | ; Calculate BMI for a record
; GMVNODE = FILE 120.5 zero node of patient's weight |
|
| TEXT(RATE) | ; Is rate a text code?
; Returns 0 if RATE has a text code and 1 if a numeric reading |
|
| CALC(GMVWT,GMVHT) | ; Crunch the numbers, return bmi score
; GMVWT (lb) ; GMVHT (in) |
|
| ABNORMAL | ; Is reading outside of normal range?
|
|
| RANGE | ; Find normal ranges and store in array
|
|
| HEIGHT(GMVIEN) | ; Does record have a useable height value? Is yes, return that value.
; GMVIEN = File 120.5 entry number |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.57 - [#120.57] | RANGE+8, RANGE+10 |
| ^PXRMINDX(120.5 | CALCBMI+13, CALCBMI+18, CALCBMI+20, CALCBMI+26, CALCBMI+28 |
| Name | Line Occurrences |
|---|---|
| $$CALC | CALCBMI+15, CALCBMI+34, CALCBMI+35, CALCBMI+38 |
| $$HEIGHT | CALCBMI+14, CALCBMI+21, CALCBMI+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> GMVABNML("BP" | ABNORMAL+18, ABNORMAL+19, ABNORMAL+20, ABNORMAL+21, RANGE+7*, RANGE+14* |
| >> GMVABNML("CVP" | ABNORMAL+24, ABNORMAL+25, RANGE+5*, RANGE+15* |
| >> GMVABNML("P" | ABNORMAL+8, ABNORMAL+9, RANGE+3*, RANGE+12* |
| >> GMVABNML("PO2" | ABNORMAL+28, RANGE+6*, RANGE+16* |
| >> GMVABNML("R" | ABNORMAL+12, ABNORMAL+13, RANGE+4*, RANGE+13* |
| >> GMVABNML("T" | ABNORMAL+4, ABNORMAL+5, RANGE+2*, RANGE+11* |
| GMVADATE | CALCBMI+2~, CALCBMI+25*, CALCBMI+26*, CALCBMI+28, CALCBMI+33*, CALCBMI+35 |
| GMVAHGT | CALCBMI+2~, CALCBMI+25*, CALCBMI+26, CALCBMI+28, CALCBMI+29*, CALCBMI+33*, CALCBMI+35, CALCBMI+36 |
| GMVASTRK | ABNORMAL+1~, ABNORMAL+2*, ABNORMAL+4*, ABNORMAL+5*, ABNORMAL+8*, ABNORMAL+9*, ABNORMAL+12*, ABNORMAL+13*, ABNORMAL+18*, ABNORMAL+19* , ABNORMAL+20*, ABNORMAL+21*, ABNORMAL+24*, ABNORMAL+25*, ABNORMAL+28*, ABNORMAL+30 |
| GMVBDATE | CALCBMI+2~, CALCBMI+17*, CALCBMI+18*, CALCBMI+20, CALCBMI+32*, CALCBMI+34 |
| GMVBHGT | CALCBMI+2~, CALCBMI+17*, CALCBMI+18, CALCBMI+20, CALCBMI+21*, CALCBMI+32*, CALCBMI+34, CALCBMI+36 |
| GMVBMI | CALCBMI+2~, CALCBMI+5*, CALCBMI+6, CALCBMI+7, CALCBMI+9, CALCBMI+15*, CALCBMI+34*, CALCBMI+35*, CALCBMI+37, CALCBMI+38* , CALCBMI+39 |
| GMVCLIO | HEIGHT+2~, HEIGHT+5, HEIGHT+7 |
| GMVCLIO(0 | HEIGHT+8*, HEIGHT+9, HEIGHT+11 |
| >> GMVDATA | ABNORMAL+30* |
| GMVDFN | CALCBMI+2~, CALCBMI+8*, CALCBMI+9, CALCBMI+13, CALCBMI+18, CALCBMI+20, CALCBMI+26, CALCBMI+28 |
| GMVDIA | ABNORMAL+1~, ABNORMAL+17*, ABNORMAL+20, ABNORMAL+21 |
| GMVH | CALCBMI+2~, CALCBMI+36*, CALCBMI+37, CALCBMI+38 |
| GMVHGT | CALCBMI+2~, CALCBMI+11*, CALCBMI+14*, CALCBMI+15 |
| GMVHT | CALC~, CALC+4*, CALC+5, CALC+6*, CALC+7 |
| GMVHTI | CALCBMI+2~, CALCBMI+3*, CALCBMI+13, CALCBMI+18, CALCBMI+20, CALCBMI+26, CALCBMI+28 |
| GMVIEN | CALCBMI+2~, CALCBMI+13*, CALCBMI+14, CALCBMI+19*, CALCBMI+20*, CALCBMI+21, CALCBMI+27*, CALCBMI+28*, CALCBMI+29, HEIGHT~ , HEIGHT+3*, HEIGHT+4, HEIGHT+5, HEIGHT+6, HEIGHT+7 |
| GMVNODE | CALCBMI~, CALCBMI+5*, CALCBMI+6, CALCBMI+7, CALCBMI+8, CALCBMI+10, CALCBMI+15, CALCBMI+34, CALCBMI+35, CALCBMI+38 |
| GMVPIEN | RANGE+1~, RANGE+8*, RANGE+9, RANGE+10 |
| GMVPNODE | RANGE+1~, RANGE+10*, RANGE+11, RANGE+12, RANGE+13, RANGE+14, RANGE+15, RANGE+16 |
| >> GMVRATE | ABNORMAL+4, ABNORMAL+5, ABNORMAL+8, ABNORMAL+9, ABNORMAL+12, ABNORMAL+13, ABNORMAL+16, ABNORMAL+17, ABNORMAL+24, ABNORMAL+25 , ABNORMAL+28 |
| GMVSYS | ABNORMAL+1~, ABNORMAL+16*, ABNORMAL+18, ABNORMAL+19 |
| >> GMVTYPE | ABNORMAL+3, ABNORMAL+7, ABNORMAL+11, ABNORMAL+15, ABNORMAL+23, ABNORMAL+27 |
| GMVWDATE | CALCBMI+2~, CALCBMI+10*, CALCBMI+13, CALCBMI+17, CALCBMI+25, CALCBMI+34, CALCBMI+35 |
| GMVWT | CALC~, CALC+4*, CALC+5, CALC+6*, CALC+7 |
| GMVWTI | CALCBMI+2~, CALCBMI+4*, CALCBMI+6 |
| GMVX | HEIGHT+2~, HEIGHT+3*, HEIGHT+9*, HEIGHT+10, HEIGHT+11*, HEIGHT+12, CALC+3~, CALC+7*, CALC+8 |
| GMVYES | TEXT+2~, TEXT+3*, TEXT+4*, TEXT+5 |
| RATE | TEXT~, TEXT+3*, TEXT+4 |
| U | CALCBMI+6, CALCBMI+7, CALCBMI+8, CALCBMI+10, CALCBMI+15, CALCBMI+32, CALCBMI+33, CALCBMI+34, CALCBMI+35, CALCBMI+38 , HEIGHT+9, HEIGHT+11, ABNORMAL+4, ABNORMAL+5, ABNORMAL+8, ABNORMAL+9, ABNORMAL+12, ABNORMAL+13, ABNORMAL+18, ABNORMAL+19 , ABNORMAL+20, ABNORMAL+21, ABNORMAL+24, ABNORMAL+25, ABNORMAL+28, ABNORMAL+30, RANGE+11, RANGE+12, RANGE+13, RANGE+14 , RANGE+15, RANGE+16 |