©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
IBCSCE1 ;ALB/MRL,MJB - MCCR SCREEN EDITS ;07 JUN 88 14:35
Source file <IBCSCE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 11 | ;;.03;
|
|
| 150 | ;;.1218;.1211;I X']"" W !?4,*7,"But I need at least one line of a Temporary address." S Y=.12105;.1212;S:X']"" Y=.1214;.1213;.1214;.1215;.1216;.1219;@15;K DIE("NO^");
|
|
| 13 | ;;.02;.05;
|
|
| 12 | ;;1;
|
|
| 15 | ;;.111;S:X="" Y=.114;.112;S:X="" Y=.114;.113:.117;.131;.12105;S:X="N" Y="@15" S:X="Y" DIE("NO^")="";.1217;I X']"" W !?4,*7,"But I need a Start Date for this Temporary Address." S Y=.12105;
|
|
| 14 | ;;1901;.361;
|
|
| 22 | ;;.251;S:X']"" Y="@42";.252;S:X']"" Y=.255;.253;S:X']"" Y=.255;.254:.258;@42;
|
|
| 31 | ;;.3121;
|
|
| S | ||
| SET | ||
| AD | ||
| 21 | ;;.07;.31115;I $S(X']"":1,X=3:1,X=9:1,1:0) S Y="@41";.3111;S:X']"" Y="@41";.3113;S:X']"" Y=.3116;.3114;S:X']"" Y=.3116;.3115:.3119;@41;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | SET |
| ^DPT - [#2] | AD |
| Name | Line Occurrences |
|---|---|
| S | IBCSCE1+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | AD* |
| ^(0 | SET |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D(0 | SET* |
| >> D0 | SET |
| >> DA | AD |
| >> DGCT1 | IBCSCE1+6*, S+1* |
| >> DGDRD | IBCSCE1+6*, S, S+1 |
| >> DGDRS1 | IBCSCE1+6*, S, S+1* |
| >> DR(2 | IBCSCE1+6* |
| >> DR(3 | IBCSCE1+7* |
| >> I(0 | SET* |
| >> IB1 | IBCSCE1+6* |
| IBADD | AD! |
| IBPHO | AD*! |
| >> J | IBCSCE1+6, IBCSCE1+7 |
| >> K | IBCSCE1+6* |
| U | AD |
| >> X | AD*, SET* |
| >> Y | AD* |
| >> Y(1 | SET* |
| Name | Field # of Occurrence |
|---|---|
| $T(@J | IBCSCE1+6 |
| $T(@K | IBCSCE1+6 |