©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
DGPMGLG4 ;ALB/ABR - G&L GENERATION CONT.; 17 MAY 94
Source file <DGPMGLG4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TSDV(X) | ; This function returns the TS division
|
|
| TSDIV | ;entry point for division search
|
|
| TSDIVP | ; entry point for Previous TS division only
|
|
| ASIHR | ;to find PTS, PTSDV for returns from ASIH
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | TSDV+3 |
| ^DGPM - [#405] | ASIHR+4, ASIHR+7 |
| ^DGPM("APMV" | ASIHR+3 |
| ^DGPM("ATS" | ASIHR+8 |
| ^DIC(42 - [#42] | TSDV+2 |
| Name | Line Occurrences |
|---|---|
| $$TSDV | TSDIV+1, TSDIVP+6, ASIHR+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ASIHR+3, ASIHR+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | ASIHR+3, ASIHR+8 |
| >> DIV | TSDV+3 |
| DV | TSDV+1~, TSDV+2*, TSDV+3*, TSDV+4 |
| >> J | ASIHR+2 |
| J1 | ASIHR+1~, ASIHR+2*, ASIHR+3*, ASIHR+8* |
| J2 | ASIHR+1~, ASIHR+3*, ASIHR+4, ASIHR+7, ASIHR+8* |
| >> LTSDV | TSDIV+1*, TSDIVP+5 |
| >> MD | TSDIVP+5, ASIHR+8 |
| >> MV("CA" | ASIHR+3, ASIHR+8 |
| >> MV("LWD" | TSDIV+1 |
| >> MV("PTS" | ASIHR+8* |
| >> MV("PWD" | TSDIVP+6, ASIHR+7* |
| >> MV("TT" | TSDIVP+5 |
| PMT | ASIHR+1~, ASIHR+4*, ASIHR+5 |
| >> PTSDV | TSDIVP+5*, TSDIVP+6*, ASIHR+7* |
| T | ASIHR+1~, ASIHR+3, ASIHR+5*, ASIHR+6 |
| X | TSDV~, TSDV+2 |