Routine: DG272PT

Package	Total	Call Graph
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL
Registration	2	($$SRCE,COUNT,EDIT)^DG272PT1 EN^DG272PT2
VA Fileman	2	C^%DTC FILE^DICN

Package

Total

Call Graph

($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL

($$SRCE,COUNT,EDIT)^DG272PT1 EN^DG272PT2

C^%DTC FILE^DICN

Name	Comments	DBIA/ICR reference
CLOSER	; Add entries to the IVM CASE CLOSURE REASON (#301.93) file
EN1	; begin purge...
POST	; ; add entry to the IVM CASE CLOSURE REASON file (#301.93)
EN	; begin processing...
CLOSERQ

Name	Field # of Occurrence
C^%DTC	POST+24
$$SRCE^DG272PT1	EN1+24
COUNT^DG272PT1	EN1+47
EDIT^DG272PT1	EN1+29, EN1+39, EN1+44
EN^DG272PT2	EN+10
FILE^DICN	CLOSER+12
$$DT^XLFDT	POST+25
$$FMTE^XLFDT	EN1+9, EN1+56
$$NOW^XLFDT	EN1+9, EN1+56
$$COMCP^XPDUTL	EN1+55
$$NEWCP^XPDUTL	POST+9, POST+11, POST+15, POST+17
$$PARCP^XPDUTL	EN1+12
$$UPCP^XPDUTL	EN1+48, EN1+50
$$VERCP^XPDUTL	POST+8, POST+10, POST+14, POST+16, EN+3, EN+8
BMES^XPDUTL	EN1+1, EN1+2, EN1+9, CLOSER+1
MES^XPDUTL	EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+56, CLOSER+5, CLOSER+14

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.22 - [#408.22]	EN1+33, EN1+35
^DGMT(408.31 - [#408.31]	EN1+13, EN1+15, EN1+17, EN1+20, EN1+23
^IMV(301.93	CLOSER+4
^IVM(301.93	CLOSER+9, CLOSER+10
^XTMP(	POST+21, POST+25*
^XTMP("DGMTPCT"	POST+26*

Name	Line Occurrences
CLOSER	POST+2
EN1	EN+5

Name	Field # of Occurrence
%	POST+5~, POST+9, POST+11, POST+15, POST+17, EN+1~, EN+3, EN+4, EN+5, EN+8* , EN+9, EN+10, EN1+48, EN1+50, EN1+55
DD	CLOSER+12!
DGFILERR	EN1+28, EN1+29, EN1+38, EN1+39, EN1+43*, EN1+44, EN1+47, EN1+51!
DGMTDATA	EN1+23*, EN1+24!, EN1+25!
DGMTDFN	EN1+12, EN1+14, EN1+15*, EN1+17, EN1+33, EN1+35, EN1+48, EN1+51!
DGMTIDT	EN1+11, EN1+12, EN1+13*, EN1+15, EN1+17, EN1+47, EN1+50, EN1+52!
DGMTIE21	EN1+32, EN1+33, EN1+35, EN1+44, EN1+46!
DGMTIE22	EN1+34, EN1+35, EN1+39, EN1+45!
DGMTIE31	EN1+16, EN1+17, EN1+20, EN1+23, EN1+29, EN1+33, EN1+35, EN1+49!
DIC	CLOSER+11*, CLOSERQ!
DIC(0	CLOSER+11*
DLAYGO	CLOSER+11*, CLOSERQ!
DO	CLOSER+12!
DT	POST+22
I	POST+5~, POST+20, POST+21, POST+25, POST+26
IVMX	CLOSER+8*, CLOSER+10, CLOSER+11, CLOSERQ!
U	EN1+24
X	POST+5~, POST+25, CLOSER+11*, CLOSERQ!
X1	POST+5~, POST+22*
X2	POST+5~, POST+23*
>> XPDNM	POST+6, EN+3, EN+8, EN1+11, EN1+12, EN1+48, EN1+50, EN1+55
Y	CLOSERQ!

Information