©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
GMRGUTL ;HIRMFO/RM-UTILITIES ROUTINE FOR GMRG FILES ;5/2/96
Source file <GMRGUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| General Medical Record - Generator | 2 | STAT^GMRGRUT0 EN1^GMRGUT0 |
| Kernel | 1 | $$FMADD^XLFDT |
| VA Fileman | 1 | NOW^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Q1 | ||
| PAST | ; ENTRY TO HANDLE DATE/TIME ENTRIES THAT ARE EARLIER THAN OR EQUAL
; TO, THE LAST DATE/TIME ENTERED |
|
| Q2 | ||
| A0 | ||
| TEXT | ; UPDATE SELECTION:AUDIT TRAIL:MODIFIED TEXT FIELD
|
|
| S4 | ||
| A1 | ||
| EN1 | ; ENTRY FROM AUD1 OR AUD2 XREFS TO SET AUDIT TRAIL ENTRY. IF GMRGY=1
; THE ENTRY WILL BE A CREATE, IF GMRGY=2 THE ENTRY WILL BE AN EDIT. ; I GMRGY=0 THEN THE ENTRY WILL BE A DELETE. THE VARIABLE GMRGY WILL BE ; KILLED, AND THE VARIABLES DA(1),DA, AND X WILL ALSO BE SET AND RESET. |
|
| EN2 | ; ENTRY FROM SCREEN ON SET OF CODES FOR MODIFICATION FIELD (#1) OF
; THE AUDIT TRAIL SUBFIELD (#3) OF THE SELECTION MULTIPLE (#1) OF ; THE GMR TEXT (#124.3) FILE. |
|
| EN3 | ; ENTRY FROM SCREEN ON CHILD SUBFILED (#.01) OF CHILDREN (#1) FIELD
; OF THE GMR AGGREGATE TERM (#124.2) FILE |
|
| EN4 | ; ENTRY FROM SCREEN ON SELECTION SUBFIELD (#.01) OF SELECTION FIELD
; (#1) OF THE GMR TEXT FILE (#124.3) |
|
| ADTX | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(124.313 | A1+2, TEXT+1, ADTX+1 |
| ^GMR(124.3 - [#124.3] | EN1+8, A0, A1, A1+1*, TEXT+1*, ADTX+1*, EN2+3, EN2+4, EN4+2, EN4+3 |
| ^GMRD(124.2 - [#124.2] | EN3+2, EN4+2, EN4+3 |
| Name | Line Occurrences |
|---|---|
| A0 | EN1+7, EN1+9 |
| A1 | A1 |
| ADTX | EN1+8 |
| EN1 | EN1+9 |
| PAST | EN1+6 |
| Q1 | EN1+7 |
| Q2 | EN2+5, EN2+6 |
| TEXT | EN1+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN2+4 |
| ^("ADD" | EN1+8 |
| ^(0 | EN1+8, A0*, EN4+2 |
| ^(1 | A1+2, TEXT+1, ADTX+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN1+6, PAST+2* |
| >> D0 | EN3+2, EN4+2, EN4+3, S4 |
| DA | EN1+4, EN1+6*, EN1+8, A0*, A1*, A1+1, Q1!*, TEXT+1, ADTX+1, EN2+3 |
| DA( | EN1+4, Q1* |
| DA(1 | EN1+5*, EN1+6, EN1+8, A0, A1, A1+1, TEXT+1, ADTX+1, EN2+3, EN2+4 |
| DA(2 | EN1+5*, EN1+6, EN1+8, A0, A1, A1+1, TEXT+1, ADTX+1, EN2+3, EN2+4 |
| DUZ | A1+1, A1+2 |
| GMRG | EN4+2*, EN4+3*, EN4+5! |
| GMRG("OK" | EN4+2*, EN4+3*, EN4+4, S4* |
| GMRG(0 | S4 |
| >> GMRGAT | EN1+8 |
| GMRGDA | EN1+4*, EN1+5, Q1, Q1+1! |
| GMRGDA( | EN1+4*, Q1 |
| GMRGDA(1 | EN1+5 |
| GMRGDT | EN1+6*, A1+1, A1+2, Q1+1! |
| GMRGLDT | EN1+6*, Q1+1!, PAST+2 |
| >> GMRGRT | EN1+4 |
| >> GMRGST | EN1+6*, S4* |
| >> GMRGST(1 | EN1+6*, S4* |
| GMRGSTAT | EN1+6, EN1+7, EN1+9, Q1+1!, EN4+5!, S4 |
| GMRGX | EN1+4*, EN1+8, Q1, Q1+1! |
| GMRGXX | TEXT+1*, TEXT+2!, ADTX+1*, ADTX+2! |
| GMRGY | EN1+7, EN1+9*, A1+1, A1+2, A1+3, Q1+1! |
| GMRGY(0 | EN1+4*, A1+2*, Q1* |
| GMRGY(1 | A1+2* |
| GMRGZ | EN1+8, EN2+4*, EN2+5, EN2+6, EN2+7, Q2! |
| GMRGZ(0 | EN2+3*, EN2+4 |
| U | EN1+8, TEXT+1, EN3+2, EN4+2, S4 |
| X | EN1+4, EN1+8*, A1+2*, Q1!*, TEXT+1, ADTX+1 |
| >> Y | EN2+5, EN2+6, EN2+7, EN3+2, EN4+2, EN4+3, S4 |