©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
GMRVFSYN ;HIRMFO/RM,YH-X REFERENCE FOR VITAL TYPE, CATEGORY AND SYNONYM ;5/22/97
Source file <GMRVFSYN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BB(TYPE,CAT,CHAR,DA,SK) | ; This procedure updates the "BB" index for the 120.52
; file. This index has the following format: ; ^GMRD(120.52,"BB",TYPE,CAT,CHAR,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.521 sub-file. ; CAT=Category (.02) field of 120.521 sub-file. ; CHAR=Name (.01) field of 120.52 file. ; DA=Passed by reference will have entry in 120.52 sub-file, DA, ; and entry in 120.52 file, DA(1). ; SK=1 if set xref, 2 if kill xref. |
|
| BTYP(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF BTYP XREF ON VITAL
; TYPE (.01) FIELD OF VITAL TYPE (120.521) SUB-FILE OF GMRV ; GMRV VITAL QUALIFIER (120.52) FILE. THIS PROCEDURE SETS/KILLS THE ; FOLLOWING MUMPS INDEX: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
| BSYNO(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF ACHR XREF ON
; SYNONYM (.02) FIELD OF GMRV VITAL QUALIFIER (120.52) FILE. ; THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS INDICES: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
| SCREEN | ;SCREEN FOR DUPLICATE ENTRY FOR A VITAL TYPE
|
|
| BCAT(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF BCAT XREF ON CATEGORY
; (.02) FIELD OF VITAL TYPE (120.521) SUBFILE OF GMRV VITAL QUALIFIER ; (120.52) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDEX: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.51 - [#120.51] | SCREEN+7 |
| ^GMRD(120.52 - [#120.52] | BSYNO+9, BSYNO+10, BTYP+9, BCAT+9, BB+12*, BB+13!, SCREEN+3, SCREEN+4, SCREEN+6, SCREEN+7 |
| Name | Line Occurrences |
|---|---|
| BB | BSYNO+11, BTYP+10, BCAT+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | BB~, BB+11, BB+12, BB+13 |
| CHAR | BB~, BB+11, BB+12, BB+13 |
| DA | BSYNO~, BSYNO+7~, BSYNO+8*, BSYNO+9*, BSYNO+10, BSYNO+11, BTYP~, BTYP+9, BTYP+10, BCAT~ , BCAT+9, BCAT+10, BB~, BB+11, BB+12, BB+13, SCREEN+1~, SCREEN+2*, SCREEN+3*, SCREEN+4 |
| DA(1 | BSYNO+8*, BSYNO+9, BSYNO+10, BTYP+9, BCAT+9, BB+11, BB+12, BB+13, SCREEN+2*, SCREEN+3 , SCREEN+4 |
| GCAT | SCREEN+1~, SCREEN+7* |
| GMRVDA | BSYNO+7*, BSYNO+8, BSYNO+13!, SCREEN+1*, SCREEN+2, SCREEN+8! |
| GMRVSK | BSYNO~, BSYNO+11, BTYP~, BTYP+10, BCAT~, BCAT+10 |
| GMRVX | BTYP+8~, BTYP+9*, BTYP+10, BCAT+8~, BCAT+9*, BCAT+10 |
| GMRVY | BSYNO+7~, BSYNO+10*, BSYNO+11, BTYP+8~, BTYP+9*, BTYP+10, BCAT+8~, BCAT+9*, BCAT+10, SCREEN+4* , SCREEN+5 |
| GSYN | SCREEN+1~, SCREEN+7* |
| GTYP | SCREEN+1~, SCREEN+5*, SCREEN+6, SCREEN+7 |
| SK | BB~, BB+12, BB+13 |
| TYPE | BB~, BB+11, BB+12, BB+13 |
| X | BSYNO~, BSYNO+11, BTYP~, BTYP+10, BCAT~, BCAT+10, SCREEN+1, SCREEN+3, SCREEN+7! |
| >> ZTQUEUED | SCREEN+7 |