©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
DGPTLMU6 ;ALB/MTC - PTF A/P LIST MANAGER UTILITY CONT. ; 9-24-92
Source file <DGPTLMU6.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | ($$NUM,DI300)^DGPTLMU4 ($$FTIME,$$SETSTR)^VALM1 |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DI501 | ;-- this function will load the 501 information into the display array
|
|
| DI535 | ;-- this function will load the 535 information
|
| Name | Field # of Occurrence |
|---|---|
| $$NUM^DGPTLMU4 | DI501+4, DI501+7, DI501+12, DI501+17, DI501+22, DI501+25, DI501+28, DI501+31, DI535+3, DI535+9 , DI535+14, DI535+17 |
| DI300^DGPTLMU4 | DI501+35 |
| $$ICDDX^ICDCODE | DI501+30 |
| $$FTIME^VALM1 | DI501+5, DI535+5 |
| $$SETSTR^VALM1 | DI501+6, DI501+9, DI501+11, DI501+14, DI501+16, DI501+19, DI501+21, DI501+24, DI535+6, DI535+8 , DI535+11, DI535+13, DI535+16 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | DI501+2, DI501+3, DI501+35, DI535+2, DI535+4 |
| ^DIC(42 - [#42] | DI535+15 |
| ^DIC(42.4 - [#42.4] | DI501+23, DI535+7 |
| ^TMP("ARCPTFDI" | DI501+4*, DI501+7*, DI501+12*, DI501+17*, DI501+22*, DI501+25*, DI501+28*, DI501+31*, DI535+3*, DI535+9* , DI535+14*, DI535+17* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DG535 | DI535+1~, DI535+2*, DI535+4 |
| >> DGPTF | DI501+2, DI501+3, DI501+35, DI535+2, DI535+4 |
| I | DI501+1~, DI501+2*, DI501+3, DI501+35 |
| J | DI501+1~, DI501+29*, DI501+30 |
| >> NUMREC | DI501+4, DI501+7, DI501+12, DI501+17, DI501+22, DI501+25, DI501+28, DI501+31, DI535+3, DI535+9 , DI535+14, DI535+17 |
| U | DI501+5, DI501+8, DI501+10, DI501+13, DI501+15, DI501+18, DI501+20, DI501+23, DI501+29, DI501+30 , DI535+5, DI535+7, DI535+10, DI535+12, DI535+15 |
| X | DI501+1~, DI501+3*, DI501+5, DI501+8, DI501+10, DI501+13, DI501+15, DI501+18, DI501+20, DI501+23 , DI501+29, DI501+30, DI535+1~, DI535+4*, DI535+5, DI535+7, DI535+10, DI535+12, DI535+15 |
| X1 | DI501+3*, DI501+6*, DI501+7*, DI501+9*, DI501+11*, DI501+12*, DI501+14*, DI501+16*, DI501+17*, DI501+19* , DI501+21*, DI501+22*, DI501+24*, DI501+25*, DI535+1~, DI535+4*, DI535+6*, DI535+8*, DI535+9*, DI535+11* , DI535+13*, DI535+14*, DI535+16*, DI535+17* |
| >> X2 | DI501+35* |
| Y | DI501+1~, DI501+5*, DI501+6, DI501+8*, DI501+9, DI501+10*, DI501+11, DI501+13*, DI501+14, DI501+15* , DI501+16, DI501+18*, DI501+19, DI501+20*, DI501+21, DI501+23*, DI501+24, DI501+30*, DI501+31, DI535+1~ , DI535+5*, DI535+6, DI535+7*, DI535+8, DI535+10*, DI535+11, DI535+12*, DI535+13, DI535+15*, DI535+16 |