©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
GMRVXCH2 ;HIRMFO/YH,RM-GMRV VITAL QUALIFIER FILE CONVERSION ;8/1/96
Source file <GMRVXCH2.m>
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Vitals | 1 | GMRVXCH0 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TYP(TYPE) | ; This function will return the external text for the Vital
; Type pointed to by TYPE. |
|
| CONV52 | ; Loop through 120.52 to convert
|
|
| QUAL(TYPE,FILE,CHAR) | ; Given a Qualifier (CHAR), the Vital Type (TYPE)
; ptr and the file from which this which the qualifier is from ; (FILE), this function will return the generic Category (CAT). |
|
| MOVE53 | ; Loop through 120.53 and move data from that
; file to the 120.52 file. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.51 - [#120.51] | MOVE53+10, QUAL+5, TYP+2 |
| ^GMRD(120.52 - [#120.52] | CONV52+1, CONV52+2, CONV52+6*, CONV52+8, CONV52+9, CONV52+25* |
| ^GMRD(120.53 - [#120.53] | MOVE53+2, MOVE53+3, MOVE53+8, MOVE53+9 |
| ^TMP($J | CONV52+3*, CONV52+4, CONV52+11*, CONV52+14, CONV52+21, CONV52+23, MOVE53+6, MOVE53+14* |
| Name | Line Occurrences |
|---|---|
| $$QUAL | CONV52+11, MOVE53+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MOVE53+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | QUAL+4~, QUAL+6*, QUAL+7*, QUAL+8 |
| CHAR | QUAL~ |
| DA | CONV52+28! |
| DA(1 | CONV52+17* |
| DD | CONV52+19! |
| DIC | CONV52+17*, CONV52+28! |
| DIC(0 | CONV52+18* |
| DINUM | CONV52+19! |
| DLAYGO | CONV52+18*, CONV52+28! |
| DO | CONV52+19! |
| FILE | QUAL~, QUAL+6, QUAL+7 |
| >> GMRVCAT | CONV52+22*, CONV52+23*, CONV52+24 |
| GMRVCHAR | CONV52+2*, CONV52+3, CONV52+4, CONV52+11, CONV52+14, CONV52+21, CONV52+28!, MOVE53+3*, MOVE53+4, MOVE53+6 , MOVE53+14, MOVE53+17! |
| GMRVCNV | CONV52+4*, CONV52+5*, CONV52+6, CONV52+21*, CONV52+22, CONV52+24*, CONV52+25, CONV52+28! |
| GMRVD0 | MOVE53+2*, MOVE53+3, MOVE53+6, MOVE53+8, MOVE53+9, MOVE53+17! |
| GMRVD1 | MOVE53+7*, MOVE53+8*, MOVE53+9, MOVE53+17! |
| GMRVDA | CONV52+1*, CONV52+2, CONV52+5, CONV52+6, CONV52+8, CONV52+9, CONV52+17, CONV52+25, CONV52+28!, MOVE53+7* , MOVE53+12, MOVE53+17! |
| GMRVFDA | MOVE53+4!, MOVE53+11!, MOVE53+17! |
| GMRVFDA(99 | MOVE53+4*, MOVE53+12* |
| GMRVIEN | MOVE53+4!, MOVE53+11! |
| GMRVIEN(1 | MOVE53+5, MOVE53+7 |
| GMRVTDA | CONV52+7*, CONV52+8*, CONV52+9, CONV52+10, CONV52+15*, CONV52+16, CONV52+19*, CONV52+25, CONV52+28! |
| GMRVTYP | CONV52+9*, CONV52+10, CONV52+11, CONV52+13*, CONV52+14*, CONV52+15, CONV52+17, CONV52+21, CONV52+28!, MOVE53+9* , MOVE53+10, MOVE53+12, MOVE53+14, MOVE53+17! |
| GMRVVTYP | CONV52+2!, CONV52+28! |
| GMRVVTYP( | CONV52+10*, CONV52+15 |
| GTYPE | QUAL+4~, QUAL+5*, QUAL+6, QUAL+7 |
| TYPE | QUAL~, QUAL+5, TYP~, TYP+2 |
| X | CONV52+17*, CONV52+28! |
| >> Y | CONV52+19 |