©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
DGRPE4 ;ALB/GTS - REGISTRATIONS EDITS ; 5/25/05 08:53am
Source file <DGRPE4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| C401 | ;;S DGST=$P(^DPT(DA,.311),"^",15);S:$S(DGST']"":1,DGST=3:1,DGST=9:1,1:0) Y=0 I Y=0 K DGST;S:($P(^DPT(DA,.311),"^",15)'=5) Y=.3111;.31116;.3111;S:X']"" Y="@41";.3113;S:X']"" Y=.3116;.3114;S:X']"" Y=.3116;.3115:.3117;.2205;.3119;@41;K DGST;
|
|
| C402 | ;;S DGST=$P(^DPT(DA,.25),"^",15);S:$S(DGST']"":1,DGST=3:1,DGST=9:1,1:0) Y=0 I Y=0 K DGST;S:($P(^DPT(DA,.25),"^",15)'=5) Y=.251;.2516;.251;S:X']"" Y="@42";.252;S:X']"" Y=.255;.253;S:X']"" Y=.255;.254:.256;.2206;.258;@42;K DGST;
|
|
| B402 | ;;.2515;
|
|
| B401 | ;;.31115;
|
|
| A402 | ;;.2514;
|
|
| A401 | ;;.07;
|
|
| S |
| Name | Field # of Occurrence |
|---|---|
| ^DIE | DGRPE4+14, DGRPE4+23, DGRPE4+32, DGRPE4+40, DGRPE4+49, DGRPE4+58 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DGRPE4+26, DGRPE4+52 |
| Name | Line Occurrences |
|---|---|
| S | DGRPE4+13, DGRPE4+21, DGRPE4+31, DGRPE4+39, DGRPE4+47, DGRPE4+57 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DGRPE4+9*, DGRPE4+17!, DGRPE4+18*, DGRPE4+24!, DGRPE4+28*, DGRPE4+33!, DGRPE4+36*, DGRPE4+43!, DGRPE4+44*, DGRPE4+50! , DGRPE4+54*, DGRPE4+59!, DGRPE4+61! |
| >> DFN | DGRPE4+9, DGRPE4+18, DGRPE4+26, DGRPE4+28, DGRPE4+36, DGRPE4+44, DGRPE4+52, DGRPE4+54 |
| >> DGCT | DGRPE4+9*, DGRPE4+18*, DGRPE4+28*, DGRPE4+36*, DGRPE4+44*, DGRPE4+54*, S+1* |
| >> DGDR | DGRPE4+10, DGRPE4+34*, DGRPE4+35, DGRPE4+60* |
| >> DGDRD | DGRPE4+12*, DGRPE4+20*, DGRPE4+30*, DGRPE4+38*, DGRPE4+46*, DGRPE4+56*, S, S+1 |
| >> DGDRS | DGRPE4+9*, DGRPE4+18*, DGRPE4+28*, DGRPE4+36*, DGRPE4+44*, DGRPE4+54*, S, S+1* |
| DGEMPST | DGRPE4+25~, DGRPE4+26*, DGRPE4+27, DGRPE4+51~, DGRPE4+52*, DGRPE4+53 |
| DGPH | DGRPE4+7~ |
| DGPHFLG | DGRPE4+7~ |
| DIE | DGRPE4+9*, DGRPE4+17!, DGRPE4+18*, DGRPE4+24!, DGRPE4+28*, DGRPE4+33!, DGRPE4+36*, DGRPE4+43!, DGRPE4+44*, DGRPE4+50! , DGRPE4+54*, DGRPE4+59!, DGRPE4+61! |
| DIE("NO^" | DGRPE4+22*, DGRPE4+48* |
| DR | DGRPE4+9!*, DGRPE4+17!, DGRPE4+18*, DGRPE4+24!, DGRPE4+28*, DGRPE4+33!, DGRPE4+36!*, DGRPE4+43!, DGRPE4+44*, DGRPE4+50! , DGRPE4+54*, DGRPE4+59!, DGRPE4+61! |
| >> J1 | DGRPE4+11*, DGRPE4+19*, DGRPE4+29*, DGRPE4+37*, DGRPE4+45*, DGRPE4+55* |
| UPARROUT | DGRPE4+7~, DGRPE4+8*, DGRPE4+15*, DGRPE4+16, DGRPE4+35, DGRPE4+41*, DGRPE4+42 |
| Y | DGRPE4+9*, DGRPE4+15, DGRPE4+17!, DGRPE4+18*, DGRPE4+24!, DGRPE4+28*, DGRPE4+33!, DGRPE4+36*, DGRPE4+41, DGRPE4+43! , DGRPE4+44*, DGRPE4+50!, DGRPE4+54*, DGRPE4+59!, DGRPE4+61! |
| Name | Field # of Occurrence |
|---|---|
| $T(@J1 | DGRPE4+12, DGRPE4+20, DGRPE4+30, DGRPE4+38, DGRPE4+46, DGRPE4+56 |