©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
MCPREDT ;HIRMFO/JCC-ENTER/EDIT PROCEDURE/SUBSPECIALTY ;8/19/96 09:21
Source file <MCPREDT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| EXIT | ||
| NEXT |
| FileNo | Call Tags |
|---|---|
| ^MCAR(690.2 - [#690.2] | Classic Fileman Calls, GET1^DID |
| ^MCAR(697.2 - [#697.2] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MCAR(690.2 - [#690.2] | EN+6, NEXT+1 |
| Name | Line Occurrences |
|---|---|
| EXIT | EN+1, NEXT, NEXT+1 |
| NEXT | EN+5, EN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | EN+7*, NEXT+2*, EXIT! |
| DA | EN+2*, EN+3, EN+4, EXIT! |
| DA(1 | EN+7*, NEXT+2* |
| DD | EN+8!, NEXT+3! |
| DIC | EN+1*, EN+2!, EN+5*, EN+7*, NEXT*, NEXT+2*, EXIT! |
| DIC("P" | EN+7*, NEXT+2* |
| DIC("S" | EN+1* |
| DIC(0 | EN+1*, EN+5*, EN+7*, NEXT*, NEXT+2* |
| DIE | EN+2*, EN+3*, EXIT! |
| DINUM | EN+8!, NEXT+3! |
| DLAYGO | EN+1*, EN+2!, EN+5*, NEXT*, EXIT! |
| DO | EN+8!, NEXT+3! |
| DR | EN+2*, EN+3*, EXIT! |
| MCARDA | EN+4*, EN+6, EN+7, NEXT+1, NEXT+2, EXIT! |
| MCARIEN | EN+6*, NEXT+1*, EXIT! |
| >> X | EN+5*, EN+7*, NEXT*, NEXT+2* |
| >> Y | EN+1, EN+2, EN+5, EN+6, EN+7, NEXT, NEXT+1, NEXT+2 |