DGPTLMU4 ;ALB/MTC/ADL - PTF A/P LIST MANAGER UTILITY CONT. ; 9-24-92
Source file <DGPTLMU4.m>
| Package | Total | Call Graph | 
|---|---|---|
| Registration | 5 | SEL^DGPTLMU3 (DI401,DI601)^DGPTLMU5 (DI501,DI535)^DGPTLMU6 EN^VALM ($$FTIME,$$SETSTR,CLEAR)^VALM1 | 
| DRG Grouper | 2 | $$ICDDX^ICDCODE $$GETDATE^ICDGTDRG | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DIEX | ;-- exit code | |
| EN | ;-- single PTF record entry point ; INPUT - DGPTF record to display | |
| DIENQ | ||
| DIINT | ;-- This function will load the array containing the ; PTF detailed information. ; INPUT : DGPTF - Valid PTF entry | |
| DI300(X2) | ;-- load 300 node information ; INPUT X2 - Contains 300 node ; OUTPUT - Load display array | |
| DIHEAD | ;-- header code | |
| DIEN | ;-- list manager entry point | |
| NUM(X) | ;-- increment function ; INPUT : X -number to increment | 
| Name | Field # of Occurrence | 
|---|---|
| SEL^DGPTLMU3 | DIEN+1 | 
| DI401^DGPTLMU5 | DIINT+47 | 
| DI601^DGPTLMU5 | DIINT+47 | 
| DI501^DGPTLMU6 | DIINT+47 | 
| DI535^DGPTLMU6 | DIINT+47 | 
| $$ICDDX^ICDCODE | DIINT+40 | 
| $$GETDATE^ICDGTDRG | DIINT+40 | 
| EN^VALM | EN+3, DIEN+5 | 
| $$FTIME^VALM1 | DIHEAD+3, DIINT+11, DIINT+13 | 
| $$SETSTR^VALM1 | DIINT+7, DIINT+9, DIINT+12, DIINT+14, DIINT+17, DIINT+19, DIINT+22, DIINT+24, DIINT+27, DIINT+29 , DIINT+32, DIINT+35 | 
| CLEAR^VALM1 | EN+4, DIEX+2 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD(45 | DIINT+18, DIINT+21, DIINT+28 | 
| ^DD(45.02 | DI300+10 | 
| ^DGPT - [#45] | DIHEAD+1, DIHEAD+3, DIEN+3, DIINT+6, DIINT+11, DIINT+12, DIINT+33, DIINT+45 | 
| ^DIC(42.4 - [#42.4] | DIINT+16 | 
| ^DIC(45.61 - [#45.61] | DI300+7 | 
| ^DPT - [#2] | DIHEAD+1, DIINT+6 | 
| ^TMP("ARCPTF" | DIEN+3 | 
| ^TMP("ARCPTFDI" | EN+2!, DIEX+1!, DIINT+10*, DIINT+15*, DIINT+20*, DIINT+25*, DIINT+30*, DIINT+36*, DIINT+38*, DIINT+42* , DIINT+48*, DI300+5*, DI300+6*, DI300+7*, DI300+11*, DI300+12*, DI300+13* | 
| Name | Line Occurrences | 
|---|---|
| $$NUM | DIINT+10, DIINT+15, DIINT+20, DIINT+25, DIINT+30, DIINT+36, DIINT+38, DIINT+42, DI300+5, DI300+6 , DI300+7, DI300+11, DI300+12, DI300+13 | 
| DI300 | DIINT+45 | 
| DIENQ | DIEN+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DG70 | DIINT+12*, DIINT+13, DIINT+16, DIINT+17, DIINT+20, DIINT+22, DIINT+26, DIINT+27, DIINT+31, DIINT+39 , DIINT+40 | 
| DGINC | DIINT+4~, DIINT+33*, DIINT+34 | 
| DGPTF | DIEX+1!, DIHEAD+1, DIHEAD+2, DIHEAD+3, DIEN+2*, DIEN+3, DIINT+6, DIINT+8, DIINT+11, DIINT+12 , DIINT+33, DIINT+40, DIINT+45 | 
| >> DGPTTMP | DIINT+40*, DIINT+41 | 
| I | DIINT+4~ | 
| J | DIINT+4~, DIINT+39*, DIINT+40 | 
| NUMREC | DIINT+4~, DIINT+5*, DIINT+10, DIINT+15, DIINT+20, DIINT+25, DIINT+30, DIINT+36, DIINT+38, DIINT+42 , DIINT+48, DIINT+49, DI300+5, DI300+6, DI300+7, DI300+11, DI300+12, DI300+13 | 
| U | DIHEAD+1, DIHEAD+3, DIINT+6, DIINT+11, DIINT+16, DIINT+17, DIINT+18, DIINT+20, DIINT+21, DIINT+22 , DIINT+26, DIINT+27, DIINT+28, DIINT+31, DIINT+33, DIINT+39, DIINT+40, DIINT+41, DI300+5, DI300+6 , DI300+7, DI300+8, DI300+9, DI300+10, DI300+12, DI300+13 | 
| >> VALMBCK | DIEN+3*, DIEN+6* | 
| >> VALMCNT | DIINT+49* | 
| >> VALMHDR(1 | DIHEAD+1* | 
| >> VALMHDR(2 | DIHEAD+2* | 
| >> VALMHDR(3 | DIHEAD+3* | 
| >> VALMY(0 | DIEN+2 | 
| X | DIINT+4~, DIINT+17*, DIINT+18, DIINT+20*, DIINT+21, DIINT+22*, DIINT+23, DIINT+27*, DIINT+28, DIINT+48* , NUM~, NUM+3*, NUM+4 | 
| X1 | DIINT+4~, DIINT+5*, DIINT+7*, DIINT+9*, DIINT+10*, DIINT+12*, DIINT+14*, DIINT+15*, DIINT+17*, DIINT+19* , DIINT+20*, DIINT+22*, DIINT+24*, DIINT+25*, DIINT+27*, DIINT+29*, DIINT+30*, DIINT+32*, DIINT+35*, DIINT+36 | 
| X2 | DIINT+4~, DIINT+45*, DI300~, DI300+5, DI300+6, DI300+7, DI300+8, DI300+9, DI300+12, DI300+13 | 
| X3 | DI300+4~, DI300+9*, DI300+10 | 
| Y | DIINT+4~, DIINT+6*, DIINT+7, DIINT+8*, DIINT+9, DIINT+11*, DIINT+12, DIINT+13*, DIINT+14, DIINT+16* , DIINT+17, DIINT+18*, DIINT+19, DIINT+21*, DIINT+22, DIINT+23*, DIINT+24, DIINT+26*, DIINT+27, DIINT+28* , DIINT+29, DIINT+31*, DIINT+32, DIINT+34*, DIINT+35, DIINT+41*, DIINT+42, DI300+4~, DI300+9*, DI300+10* , DI300+11 |