©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
GMRVFUT3 ;HIRMFO/RM-FILE UTILITIES FOR 120.53 FILE ;7/22/96
Source file <GMRVFUT3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCR07(DA,Y) | ; CALLED FROM INPUT TRANSFORM OF DEFAULT QUALIFIER (.07)
; FIELD OF THE VITAL TYPE (120.531) SUB-FILE OF THE GMRV VITAL CATEGORY ; (120.53) FILE. WILL CHECK TO SEE IF QUALIFIER IS VALID FOR THIS ; VITAL TYPE AND CATEGORY. ; Input Variables: DA = DA arrary passed by reference from screen. ; Y = Entry in 120.53 file being validated. |
|
| AA(TYPE,CAT,DA,SK) | ; This procedure updates the "AA" index for the 120.53
; file. This index has the following format: ; ^GMRD(120.53,"AA",TYPE,CAT,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; CAT=Name (.01) field of 120.53 file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref. |
|
| APRINT(TYPE,PORD,DA,SK) | ; This procedure updates the "APRINT" index for the
; 120.53 file. This index has the following format: ; ^GMRD(120.53,"APRINT",TYPE,PORD,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; PORD=Print Order (.05) field of 120.531 sub-file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref. |
|
| AEDIT(TYPE,EORD,DA,SK) | ; This procedure updates the "AEDIT" index for the
; 120.53 file. This index has the following format: ; ^GMRD(120.53,"AEDIT",TYPE,EORD,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; EORD=Edit Order (.06) field of 120.531 sub-file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref. |
|
| APRT(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF APRT XREF ON PRINT
; ORDER (.05) FIELD OF VITAL TYPE (120.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "APRINT". ; 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.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "AA", "APRINT", AND "AEDIT". ; 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
; (.01) FIELD OF GMRV CATEGORY (120.53) 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. |
|
| AEDT(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF AEDT XREF ON EDIT
; ORDER (.06) FIELD OF VITAL TYPE (120.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "AEDIT". ; 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.52 - [#120.52] | SCR07+8, SCR07+9 |
| ^GMRD(120.53 - [#120.53] | ACAT+9, ACAT+10, ATYP+9, AEDT+9, APRT+9, AA+11*, AA+12!, AEDIT+11*, AEDIT+12!, APRINT+11* , APRINT+12!, SCR07+8 |
| Name | Line Occurrences |
|---|---|
| AA | ACAT+11, ATYP+10 |
| AEDIT | ATYP+12, AEDT+10 |
| APRINT | ATYP+11, APRT+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | AA~, AA+10, AA+11, AA+12 |
| DA | ACAT~, ACAT+7~, ACAT+8*, ACAT+9*, ACAT+10, ACAT+11, ATYP~, ATYP+9, ATYP+10, ATYP+11 , ATYP+12, AEDT~, AEDT+9, AEDT+10, APRT~, APRT+9, APRT+10, AA~, AA+10, AA+11 , AA+12, AEDIT~, AEDIT+10, AEDIT+11, AEDIT+12, APRINT~, APRINT+10, APRINT+11, APRINT+12, SCR07~ , SCR07+8 |
| DA(1 | ACAT+8*, ACAT+9, ACAT+10, ATYP+9, AEDT+9, APRT+9, AA+10, AA+11, AA+12, AEDIT+10 , AEDIT+11, AEDIT+12, APRINT+10, APRINT+11, APRINT+12, SCR07+8, SCR07+9 |
| EORD | AEDIT~, AEDIT+10, AEDIT+11, AEDIT+12 |
| GMRVCHAR | SCR07+7~, SCR07+8*, SCR07+9 |
| GMRVDA | ACAT+7*, ACAT+8, ACAT+13! |
| GMRVFXN | SCR07+7~*, SCR07+9*, SCR07+10 |
| GMRVSK | ACAT~, ACAT+11, ATYP~, ATYP+10, ATYP+11, ATYP+12, AEDT~, AEDT+10, APRT~, APRT+10 |
| GMRVTYP | SCR07+7~, SCR07+8*, SCR07+9 |
| GMRVX | ATYP+8~, ATYP+9*, ATYP+10 |
| GMRVY | ACAT+7~, ACAT+10*, ACAT+11, ATYP+8~, ATYP+9*, ATYP+11, ATYP+12, AEDT+8~, AEDT+9*, AEDT+10 , APRT+8~, APRT+9*, APRT+10 |
| PORD | APRINT~, APRINT+10, APRINT+11, APRINT+12 |
| SK | AA~, AA+11, AA+12, AEDIT~, AEDIT+11, AEDIT+12, APRINT~, APRINT+11, APRINT+12 |
| TYPE | AA~, AA+10, AA+11, AA+12, AEDIT~, AEDIT+10, AEDIT+11, AEDIT+12, APRINT~, APRINT+10 , APRINT+11, APRINT+12 |
| X | ACAT~, ACAT+11, ATYP~, ATYP+10, ATYP+11, ATYP+12, AEDT~, AEDT+10, APRT~, APRT+10 |
| Y | SCR07~, SCR07+8, SCR07+9 |