©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
GMRVFUT2 ;HIRMFO/RM-FILE UTILITIES FOR 120.52 FILE ;5/1/97
Source file <GMRVFUT2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCR02(Y,DA) | ; CALLED FROM INPUT TRANSFORM OF CATEGORY (.02) FIELD OF THE
; VITAL TYPE (120.521) SUB-FILE OF THE GMRV VITAL QUALIFIER ; (120.52) FILE. WILL CHECK TO SEE IF CATEGORY IS VALID FOR THIS ; VITAL TYPE. ; Input Variables: DA = DA arrary passed by reference from screen. ; Y = Entry in 120.53 file being validated. |
|
| ACHR(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF ACHR XREF ON
; QUALIFIER (.01) FIELD OF GMRV VITAL QUALIFIER (120.52) FILE. ; THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS INDICES: "AA". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
| ACAT(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF ACAT 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: "AA". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
| ATYP(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF ATYP 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: "AA". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
| AA(TYPE,CAT,CHAR,DA,SK) | ; This procedure updates the "AA" index for the 120.52
; file. This index has the following format: ; ^GMRD(120.52,"AA",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. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.52 - [#120.52] | ACHR+9, ACHR+10, ATYP+9, ACAT+9, AA+12*, AA+13!, SCR02+8 |
| ^GMRD(120.53 - [#120.53] | SCR02+9 |
| Name | Line Occurrences |
|---|---|
| AA | ACHR+11, ATYP+10, ACAT+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | AA~, AA+11, AA+12, AA+13 |
| CHAR | AA~, AA+11, AA+12, AA+13 |
| DA | ACHR~, ACHR+7~, ACHR+8*, ACHR+9*, ACHR+10, ACHR+11, ATYP~, ATYP+9, ATYP+10, ACAT~ , ACAT+9, ACAT+10, AA~, AA+11, AA+12, AA+13, SCR02~, SCR02+8 |
| DA(1 | ACHR+8*, ACHR+9, ACHR+10, ATYP+9, ACAT+9, AA+11, AA+12, AA+13, SCR02+8 |
| GMRVDA | ACHR+7*, ACHR+8, ACHR+13! |
| GMRVFXN | SCR02+7~*, SCR02+9*, SCR02+10 |
| GMRVSK | ACHR~, ACHR+11, ATYP~, ATYP+10, ACAT~, ACAT+10 |
| GMRVTYP | SCR02+7~, SCR02+8*, SCR02+9 |
| GMRVX | ATYP+8~, ATYP+9*, ATYP+10, ACAT+8~, ACAT+9*, ACAT+10 |
| GMRVY | ACHR+7~, ACHR+10*, ACHR+11, ATYP+8~, ATYP+9*, ATYP+10, ACAT+8~, ACAT+9*, ACAT+10 |
| SK | AA~, AA+12, AA+13 |
| TYPE | AA~, AA+11, AA+12, AA+13 |
| X | ACHR~, ACHR+11, ATYP~, ATYP+10, ACAT~, ACAT+10 |
| Y | SCR02~, SCR02+9 |