©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
GMRGRUT0 ;CISC/RM-ROUTINE UTILITIES ;10/25/88
Source file <GMRGRUT0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARST | ;
|
|
| STAT | ; ENTRY TO GIVE THE TYPE AND DATE OF THE LAST MODIFICATION ON THE
; SELECTION DEFINED BY GMRGST, AND GMR TEXT ENTRY GMRGST(1), ; AND GMRGST(2) IF PASSED WILL BE THE DATE/TIME THAT YOU ; WANT THE INFORMATION FOR THIS TERM. ; RETURNED IS GMRGSTAT=IEN OF AUDIT TRAIL^D/T^MOD |
|
| STLST | ; GIVEN THAT GMRGND=ENTRY IN 124.3, AND GMRGND(0)=TERM THAT HAS BEEN
; ADDED TO PLAN, UPDATE THE LIST XREF FOR GMRGND(0)'S PARENT |
|
| PRMCHK | ;
|
|
| DL0 | ;
|
|
| ST0 | ||
| ST1 | ||
| ST2 | ||
| ALIST(IEN,PAR,CHIL) | ; GIVEN THE 124.3 IEN (IEN), PARENT (PAR), AND CHILD
; (CHIL), THIS FUNCTION WILL RETURN TRUE(1)/FALSE(0) IF THIS CHILD IS ; PART OF "ALIST" XREF FOR THIS PARENT. |
|
| DLLST | ; GIVEN THAT GMRGND=ENTRY IN 124.3, AND GMRGND(0)=TERM THAT HAS BEEN
; DELETED FROM PLAN, UPDATE THE LIST XREF FOR GMRGND(0)'S PARENT(S) |
|
| PARDL | ;
|
|
| FNDPRM | ; FIND PRIME DOCUMENT(S) FOR THE TERM IN NODE GMRGND RETURNED IS
; IS GMRGPRM(IEN) WITH ALL PRIME DOCUMENTS FOR THIS TERM |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(124.3 - [#124.3] | STAT+7, STLST+2, PARST+3, PARST+5*, ST1*, PARDL+2, DL0+2*, ALIST+5 |
| ^GMRD(124.2 - [#124.2] | FNDPRM+3, PRMCHK+1, STLST+2, DLLST+2, ALIST+4 |
| ^GMRD(124.25 - [#124.25] | PRMCHK+1 |
| Name | Line Occurrences |
|---|---|
| DL0 | PARDL+2 |
| FNDPRM | PRMCHK+3 |
| PARDL | DLLST+2 |
| PARST | STLST+2 |
| PRMCHK | FNDPRM+3 |
| ST0 | PARST+4 |
| ST1 | ST2+1 |
| ST2 | ST0 |
| Name | Field # of Occurrence |
|---|---|
| ^( | STAT+7, STLST+2* |
| ^(0 | PRMCHK+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHIL | ALIST~, ALIST+5 |
| FXN | ALIST+3~*, ALIST+4*, ALIST+5*, ALIST+6 |
| >> GMRG(0 | STLST+2 |
| >> GMRGCYC | FNDPRM+3* |
| >> GMRGCYC( | FNDPRM+3, FNDPRM+4!, PRMCHK+3* |
| >> GMRGCYC(0 | FNDPRM+3 |
| GMRGND | FNDPRM+3, FNDPRM+4!, PRMCHK+3~*, STLST+2, STLST+3!, PARST+3, PARST+5, ST1, DLLST+3!, PARDL+2 , DL0+2 |
| GMRGND("C" | PRMCHK+1* |
| GMRGND("CI" | PRMCHK+1*, PRMCHK+2 |
| GMRGND("L" | PARST+1!, PARST+2*, PARST+3*, PARST+5, ST0, ST2*, ST2+1, ST1, PARDL+2*, DL0+1* , DL0+2 |
| GMRGND("O" | PARST+2*, PARST+3*, PARST+4, PARST+5, ST1*, PARDL+1* |
| GMRGND(0 | STLST+2, PARST+3, PARST+5, ST2+1, ST1, DLLST+2, PARDL+2, DL0+1 |
| GMRGND(1 | FNDPRM+2*, FNDPRM+3*, STLST+2*, PARST+3, PARST+5, ST1, DLLST+2*, PARDL+2, DL0+2 |
| GMRGND(2 | FNDPRM+3*, PRMCHK+1, PRMCHK+2, PRMCHK+3, PARST+3*, ST0*, ST2, ST2+1, ST1, PARDL+2* , DL0+2 |
| >> GMRGPRM( | PRMCHK+2* |
| >> GMRGRT | STLST+2 |
| GMRGST | STAT+5, STAT+7, STAT+9! |
| GMRGST("DT" | STAT+7*, STAT+8 |
| GMRGST("MOD" | STAT+7*, STAT+8 |
| GMRGST(0 | STAT+7*, STAT+8 |
| GMRGST(1 | STAT+7 |
| GMRGST(2 | STAT+5*, STAT+6*, STAT+7 |
| >> GMRGSTAT | STAT+8* |
| GMRGTMP | FNDPRM+4!, PRMCHK+3* |
| IEN | ALIST~, ALIST+5 |
| PAR | ALIST~, ALIST+4, ALIST+5 |
| U | ST2+1, ST1 |
| X | ALIST+3~, ALIST+5* |
| >> Y | ALIST+4* |