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 |