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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
|
HEIGHT(GMVIEN) | ; Does record have a useable height value? Is yes, return that value.
; GMVIEN = File 120.5 entry number |
|
CALC(GMVWT,GMVHT) | ; Crunch the numbers, return bmi score
; GMVWT (lb) ; GMVHT (in) |
|
ABNORMAL | ; Is reading outside of normal range?
|
|
TEXT(RATE) | ; Is rate a text code?
; Returns 0 if RATE has a text code and 1 if a numeric reading |
|
RANGE | ; Find normal ranges and store in array
|
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 |