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* |