©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
GMRGED7 ;HIRMFO/RM-PATIENT DATA EDIT (cont.) ;1/9/96
Source file <GMRGED7.m>
| Package | Total | Call Graph |
|---|---|---|
| General Medical Record - Generator | 2 | ADS^GMRGED6 EN1^GMRGUTL |
| VA Fileman | 1 | ^DIK |
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Generator | 2 | GMRGED0 GMRGED2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHMIN | ; CALL NMIN RECURSIVELY FOR THE CHILDREN ACTIVE IN THE PLAN
|
|
| DELMIN | ; DELETE THIS ENTRY FROM THE PLAN
|
|
| OTHPAR(IEN,CHIL,PAR) | ; Given the IEN of 124.3 entry (IEN) and Aggregate
; Term file pointers for the Child (CHIL) and Parent (PARN), this ; function will return True (1) if CHIL has another parent'=PARN ; that it is active for in IEN, else the function returns False (0). |
|
| BEGADD | ; IF THE RECORD WHICH IS ABOUT TO BE EDITED HAS ANY ADDED FLAGS
; WHICH INDICATED NO THEN THESE FLAGS WILL BE FLIPPED TO INDICATE YES |
|
| DMIN | ;
|
|
| APM | ;
|
|
| ADM | ;
|
|
| NMIN | ; LOOP THROUGH CHILDREN (TO DELETE IF NECESSARY) AND DELETE THE
; TERM ID'D BY GMRGDLT("P") IF NECESSARY. |
|
| NOTMIN | ; IF THE MINIMUM NUMBER OF SELECTIONS IS NOT MADE FOR A FRAME
; THEN THAT FRAME AND ALL SELECTED CHILDREN WILL BE DELETED. |
| FileNo | Call Tags |
|---|---|
| ^GMR(124.3 - [#124.3] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(124.31 | ADM+1, ADM+2, APM+1, APM+2 |
| ^GMR(124.3 - [#124.3] | NMIN+9, CHMIN+2, DELMIN+1, DELMIN+2, DMIN+1, DMIN+2, DMIN+4, DMIN+5, ADM+1, ADM+2 , APM+1, APM+2, BEGADD+2, OTHPAR+5 |
| ^GMRD(124.2 - [#124.2] | NMIN+9, BEGADD+2, OTHPAR+5 |
| Name | Line Occurrences |
|---|---|
| $$OTHPAR | NMIN+9, NMIN+10 |
| ADM | DMIN+4 |
| APM | DMIN+5 |
| CHMIN | NMIN+9 |
| DELMIN | NMIN+10 |
| DMIN | DELMIN+2 |
| NMIN | CHMIN+3 |
| Name | Field # of Occurrence |
|---|---|
| ^("ADD" | DMIN+4, ADM+1 |
| ^(0 | DMIN+2, DMIN+5, APM+1, BEGADD+2 |
| ^(1 | ADM+2, APM+2 |
| ^(2 | ADM+1, APM+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHIL | OTHPAR~, OTHPAR+5 |
| >> DA | DELMIN+3*, DELMIN+4*, DMIN+1*, DMIN+2, DMIN+4, DMIN+5, ADM+1*, ADM+2, ADM+3*, APM+1* , APM+2, APM+3*, BEGADD+2* |
| >> DA(1 | DELMIN+3*, DELMIN+4*, DMIN+3*, DMIN+4, DMIN+5, ADM+1*, ADM+2, ADM+3*, APM+1*, APM+2 , APM+3*, BEGADD+2* |
| >> DA(2 | DMIN+3*, DMIN+4, DMIN+5, ADM+1!, ADM+3*, APM+1!, APM+3* |
| >> DIK | DELMIN+3*, DMIN+6* |
| FXN | OTHPAR+4~*, OTHPAR+5*, OTHPAR+6 |
| >> GMRG1 | DELMIN+2*, DMIN+1, ADM+1*, ADM+2, ADM+3, APM+1*, APM+2, APM+3 |
| >> GMRG1(0 | DMIN+1*, DMIN+2*, DMIN+3 |
| >> GMRG1(1 | DELMIN+2, DMIN+3* |
| >> GMRG2 | ADM+1*, ADM+2*, APM+1*, APM+2* |
| GMRGDLT | CHMIN+1~ |
| GMRGDLT("C" | NMIN+9*, CHMIN+1 |
| GMRGDLT("G" | NOTMIN+2*, NMIN+10, CHMIN+1* |
| GMRGDLT("P" | NOTMIN+2*, NMIN+9, NMIN+10, CHMIN+1*, CHMIN+2 |
| GMRGDLT("T" | NOTMIN+2*, NMIN+10, CHMIN+2*, DELMIN+1, DELMIN+2, DELMIN+3, DELMIN+4, DMIN+1, DMIN+2, DMIN+3 |
| GMRGDLT(0 | DELMIN+1*, DELMIN+2, DELMIN+3, DELMIN+4 |
| >> GMRGPDA | NMIN+9, NMIN+10, CHMIN+2, DELMIN+1, DELMIN+2, DELMIN+3, DELMIN+4, DMIN+1, DMIN+2, DMIN+3 , BEGADD+2 |
| >> GMRGRT | NMIN+10 |
| >> GMRGTDL | CHMIN+1*, DELMIN+1*, DELMIN+2*, DELMIN+3 |
| >> GMRGTDL(0 | CHMIN+1* |
| >> GMRGTERM | NOTMIN+2, BEGADD+2* |
| >> GMRGTERM(0 | BEGADD+2* |
| >> GMRGY | DELMIN+4* |
| IEN | OTHPAR~, OTHPAR+5 |
| PAR | OTHPAR~, OTHPAR+5 |
| X | DELMIN+4*, ADM+1*, ADM+2*, APM+1*, APM+2*, OTHPAR+4~, OTHPAR+5* |