©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
GMRCYP4 ;SLC/DLT - Consult patch 4 pre-init ;7/16/98 09:52
Source file <GMRCYP4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STATUS(CURRENT,XPDIDTOT) | ;
|
|
| CHGNAME(GMRCOLD,GMRCNEW) | ;Use the old name to find the protocol and update its name.
|
|
| RMVITEMS(GMRCMENU) | ; -- Remove the menu items on the protocol menus
|
|
| EN | ;entry point for patch 4 clean-up
; -- Start over with Request Action Types in 123.1 |
|
| OLDATA | ; get rid of data from previous version field
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123.5 - [#123.5] | EN+2*, OLDATA+2, OLDATA+3* |
| ^ORD(101 - [#101] | CHGNAME+2, CHGNAME+3, RMVITEMS+3, RMVITEMS+5, RMVITEMS+6 |
| Name | Line Occurrences |
|---|---|
| OLDATA | EN+18 |
| RMVITEMS | EN+15 |
| STATUS | EN+5, EN+8, EN+11, RMVITEMS+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CURR | RMVITEMS+6*, RMVITEMS+8 |
| CURRENT | STATUS~, STATUS+4 |
| DA | CHGNAME+1~, CHGNAME+2*, RMVITEMS+1~, RMVITEMS+5*, RMVITEMS+6* |
| DA(0 | RMVITEMS+7* |
| DIC | RMVITEMS+1~ |
| DIE | CHGNAME+1~, CHGNAME+5*, RMVITEMS+1~ |
| DIK | RMVITEMS+1~, RMVITEMS+7* |
| DIU | EN+3~, EN+6*, EN+9*, EN+12* |
| DIU(0 | EN+6*, EN+9*, EN+12* |
| DR | CHGNAME+1~, CHGNAME+5* |
| GMRCD0 | RMVITEMS+1~, RMVITEMS+3*, RMVITEMS+5, RMVITEMS+6, RMVITEMS+7 |
| GMRCMENU | RMVITEMS~, RMVITEMS+3, RMVITEMS+4 |
| GMRCNEW | CHGNAME~, CHGNAME+3, CHGNAME+4 |
| GMRCOLD | CHGNAME~, CHGNAME+2, CHGNAME+4 |
| IEN | OLDATA+1~, OLDATA+2*, OLDATA+3 |
| >> TOTL | RMVITEMS+5*, RMVITEMS+8 |
| U | OLDATA+3 |
| X | CHGNAME+1~, RMVITEMS+1~ |
| XPDIDTOT | STATUS~ |
| XPDIDVT | STATUS+2~, STATUS+3* |
| Y | CHGNAME+1~, RMVITEMS+1~ |