DGPTSUDO ;ALB/MTC - PTF UPDATE TRANSFER DRG NODE; 30 MAR 89@09 ; 3/12/02 12:14pm
Source file <DGPTSUDO.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | ($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG |
| Registration | 2 | ^DGPTICD ^DGPTSUD1 |
| VA Fileman | 2 | ^%DTC FILE^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 6 | DGPTC1 DGPTF DGPTF4 DGPTFQWK DGPTFUP DGPTTS |
| Integrated Billing | 2 | IB20PT82 IB20PT83 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Q | ;
|
|
| VARS | ||
| SWCH | ;
|
|
| SU | ;
|
|
| ONE | ;
|
|
| UTIL | ||
| BLD | ;
|
|
| SUDO1 | ||
| SUDO2 | ;
|
|
| DRG | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | SUDO1+3 |
| ^DGPM("APHY" | SUDO1+3 |
| ^DGPM("ATS" | SUDO1+1, SUDO1+2 |
| ^DGPT - [#45] | SUDO1+3, VARS+1, VARS+6, VARS+10, VARS+14, SUDO2+7, ONE+1, ONE+3, ONE+4 |
| ^DGPT("AADA" | ONE+5 |
| ^DIC(42.4 - [#42.4] | SUDO2+5, ONE+3 |
| ^DIC(45.7 - [#45.7] | UTIL |
| ^DPT - [#2] | VARS+1 |
| ^UTILITY($J | UTIL*, SUDO1!, SUDO1+4, VARS, VARS+1, SUDO2+1, SUDO2+2 |
| ^VA(200 - [#200] | DRG+3 |
| Name | Line Occurrences |
|---|---|
| BLD | SUDO2+8, ONE+4 |
| DRG | SUDO2+8, ONE+6 |
| ONE | SUDO2+2 |
| Q | VARS+1 |
| SU | BLD+5 |
| SUDO1 | VARS |
| SUDO2 | SWCH+3 |
| SWCH | SUDO2+4, SUDO2+6 |
| UTIL | SUDO1+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SUDO1+3, VARS+1, VARS+6, VARS+10 |
| ^("401P" | VARS+14 |
| ^("PTF" | SUDO1+3 |
| ^(0 | UTIL, SUDO1+3, VARS+1, VARS+7, VARS+11, SUDO2+5, SUDO2+7, ONE+1, ONE+3, ONE+4 |
| ^(70 | VARS+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AGE | DRG+1* |
| >> DFN | SUDO1+1, SUDO1+2, VARS+1 |
| DG401P | VARS+15*, SUDO2+8, BLD+6, Q+1! |
| >> DGADM | ONE+3*, ONE+5 |
| >> DGDAT | VARS+1*, VARS+2* |
| DGDMS | VARS+1*, ONE+2*, Q+1! |
| DGDOC | SUDO2+2*, DRG+3*, DRG+9, ONE+1*, Q+1! |
| DGDX | VARS+1*, SUDO2+8*, BLD+1*, BLD+2*, ONE+5*, Q+1! |
| DGEXP | VARS+1*, ONE+2*, Q+1! |
| DGFDA | DRG+4~ |
| DGFDA( | DRG+5*, DRG+6*, DRG+7*, DRG+8*, DRG+9*, DRG+10* |
| DGLEV | SWCH+1!, BLD+3*, Q+1! |
| DGLOS | VARS+1*, SUDO2+8*, BLD+3*, DRG+1, DRG+8, Q+1! |
| DGMSG | DRG+4~ |
| DGNODE | SUDO2+7*, BLD+1, BLD+3, ONE+4*, Q+1! |
| DGNSV | VARS+1*, SUDO2+5*, SUDO2+6, SUDO2+8, SWCH+2*, SU+8, Q+1! |
| DGNXD | VARS+1*, SUDO2+1*, SUDO2+2, SUDO2+3, SUDO2+4, SUDO2+5, SWCH+2, BLD+3, BLD+5, BLD+6 , SU+8, DRG+7, ONE+1*, ONE+3, Q+1! |
| DGPAS | SWCH+1!, BLD+3*, Q+1! |
| >> DGPMCA | SUDO1+1, SUDO1+2 |
| DGPRD | VARS+1*, SUDO2+3, SUDO2+4, SUDO2+5, SWCH+2*, BLD+3, DRG+1, ONE+1, Q+1! |
| DGPROC | VARS+3!*, VARS+15*, SUDO2+8*, BLD+9, BLD+12*, Q+1! |
| DGPROC( | VARS+11*, VARS+12*, BLD+6, BLD+7, BLD+13*, BLD+14! |
| DGPSV | VARS+1*, SUDO2+5*, SUDO2+6, SUDO2+7, SUDO2+8, SWCH+2*, SU+8, DRG+6, ONE+3*, Q+1! |
| DGPT | Q+1! |
| DGPT(70 | VARS+1*, VARS+14, ONE+2, ONE+5 |
| >> DGPTDAT | VARS+5*, VARS+8, VARS+12, VARS+15 |
| >> DGPTTMP | VARS+8*, VARS+12*, VARS+15*, BLD+1* |
| DGSURG | VARS+3!*, SUDO2+8*, SU+11, SU+14*, Q+1! |
| DGSURG( | VARS+7*, VARS+8*, BLD+5, SU+9, SU+16! |
| DGTLOS | VARS+1*, DRG+1*, DRG+10, Q+1! |
| DGTRS | VARS+1*, ONE+2*, Q+1! |
| >> DOB | VARS+1*, DRG+1 |
| >> DRG | DRG+1*, DRG+5 |
| DT | ONE+1 |
| I | UTIL, SUDO1+1*, SUDO1+2, VARS+6*, VARS+7, VARS+10*, VARS+11, VARS+15*, SUDO2+3*, BLD+1* , BLD+4~, BLD+5*, BLD+6*, BLD+7, BLD+14, SU+8, SU+9, SU+16, ONE+5*, Q+1! |
| I1 | SUDO2+2*, SUDO2+7, DRG+5, DRG+6, DRG+7, DRG+8, DRG+9, DRG+10, ONE+3*, ONE+6* , Q+1! |
| I2 | Q+1! |
| ICDSURG | Q+1! |
| ICDSURG( | SU+15* |
| J | UTIL, SUDO1+2*, SUDO1+3, VARS+8*, VARS+12*, BLD+4~, BLD+8*, BLD+13, SU+10*, SU+15 , Q+1! |
| >> K | UTIL, SUDO1+3* |
| L1 | Q+1! |
| L1( | SUDO2+3*, SUDO2+4, SUDO2+5, ONE+1*, ONE+3 |
| >> PTF | SUDO1+3, VARS+1, VARS+2, VARS+5, VARS+6, VARS+10, VARS+14, SUDO2+7, BLD+1, DRG+5 , DRG+6, DRG+7, DRG+8, DRG+9, DRG+10, ONE+1, ONE+3, ONE+4, ONE+5 |
| >> SEX | VARS+1* |
| T | SUDO1!, Q+1! |
| T( | VARS+1*, SUDO2+2*, SUDO2+3, SWCH+2*, ONE+1* |
| U | VARS+1, VARS+3, VARS+6, VARS+8, VARS+10, VARS+12, VARS+15, SUDO2+2, SUDO2+3, SUDO2+5 , SUDO2+7, SUDO2+8, BLD+1, BLD+2, BLD+3, BLD+8, BLD+10, BLD+12, SU+10, SU+12 , SU+14, ONE+1, ONE+2, ONE+3, ONE+5 |
| X | UTIL, SUDO1+3*, VARS+6*, VARS+7, VARS+8, VARS+10*, VARS+11, VARS+12, VARS+14*, VARS+15 , BLD+3*, BLD+4~, BLD+7*, BLD+8, SU+9*, SU+10, Q+1! |
| X1 | BLD+3*, Q+1! |
| X2 | BLD+3*, Q+1! |
| Y | UTIL, SUDO1+3*, VARS+7*, VARS+8, VARS+11*, VARS+12, BLD+4~, BLD+8*, BLD+10, BLD+12 , BLD+13, SU+10*, SU+12, SU+14, SU+15, Q+1! |
| Z | BLD+4~, BLD+10*, SU+12* |