Routine: DGPT601

Information

DGPT601 ;ALB/MTC - Process 601 transmission ; 17 NOV 92

Package	Total	Call Graph
Registration	5	$$ACTIVE^DGACT $$FMDT^DGPT101 ^DGPT60PR WRTERR^DGPTAE CHECK^DGPTAE02
VA Fileman	2	(,DD)^%DT ^%DTC

Name	Comments	DBIA/ICR reference
DIAL	;
SET	;
ERR	;
OPS	;
GOOD	;
TSPEC	;
OPDUP	;--check for duplicate procedure codes
DIALE	;
EN	; Process 601 transmission
EXIT	;
DATE	;

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	TSPEC+9
^TMP("AEDIT"	EN+3

Name	Line Occurrences
DIAL	TSPEC+4
ERR	DATE+1, DATE+3, DATE+4, DATE+5, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+3, DIAL+4, DIAL+5 , DIAL+6, DIAL+7, OPDUP+1, OPDUP+3, DIALE+1, DIALE+2
EXIT	DATE+1, DATE+3, DATE+4, DATE+5, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+2, OPS+1, OPDUP+1 , OPDUP+3, DIALE+1, DIALE+2
TSPEC	DATE+1

Name	Field # of Occurrence
>> %DT	DATE+1*
>> %Y	DATE+4, DATE+5
>> DGPTDDS	DATE+4
>> DGPTDTS	DATE+5
>> DGPTEDFL	EN+3*, DATE+1, DATE+3, DATE+4, DATE+5, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+2, OPS+1 , OPDUP+3, DIALE+1, DIALE+2
DGPTERC	DATE+1, DATE+3, DATE+4, DATE+5, TSPEC+2, TSPEC+3, TSPEC+4, TSPEC+12, DIAL+3, DIAL+4 , DIAL+5, DIAL+6, DIAL+7, OPS+1, OPDUP+1, OPDUP+3, EXIT+1!, ERR+1, DIALE+1, DIALE+2
>> DGPTERP	EN+3*
DGPTL3	EXIT+1!
DGPTL4	OPDUP+2, OPDUP+3, EXIT+1!
DGPTOP	EXIT+1!
DGPTOP1	EXIT+1!
DGPTP1	EXIT+1!
DGPTP2	EXIT+1!
DGPTPAR	EN+2!, OPDUP+4!
DGPTPAR(	OPDUP+2*, OPDUP+3
DGPTPAR1	OPDUP+3*, EXIT+1!
DGPTPC1	SET+1*, DIAL+3, EXIT+1!
DGPTPC2	SET+1*, DIAL+4, EXIT+1!
DGPTPC3	SET+1*, DIAL+5, EXIT+1!
DGPTPC4	SET+1*, DIAL+6, EXIT+1!
DGPTPC5	SET+1*, DIAL+7, EXIT+1!
DGPTPDT	SET+2, DATE+1, DATE+2, DATE+3, EXIT+1!
DGPTPDTS	DATE+1*, DATE+4, DATE+5, TSPEC+12, EXIT+1!
DGPTPDY	SET+1*, OPDUP+1, EXIT+1!, DIALE+1
DGPTPFL	EXIT+1!
DGPTPNT	SET+1*, DIAL+2, OPDUP+1, EXIT+1!, DIALE+2
DGPTPP	EXIT+1!
DGPTPRA2	OPDUP+3*, EXIT+1!
DGPTPRA3	OPDUP+3*, EXIT+1!
DGPTPSC	SET+1, TSPEC+2, TSPEC+3, TSPEC+6, TSPEC+9, EXIT+1!
DGPTPSC1	TSPEC+1~, TSPEC+9*, TSPEC+12
>> DGPTSER(	TSPEC+12*
>> DGPTSP1	TSPEC+3*
>> DGPTSP2	TSPEC+3*
DGPTSTR	EN+3, EN+4, SET+1, SET+2, OPDUP+1, EXIT+1!
DGPTXX	EXIT+2!
ERROR	EN+1~, GOOD+1, ERR+2*
>> NODE	EN+3, ERR+1
>> SEQ	EN+3, ERR+1
X	DATE+1*, DATE+4, DATE+5, EXIT+1!
X1	DATE+4, DATE+5, EXIT+1!
X2	DATE+4, DATE+5, EXIT+1!
Y	DATE+1, DATE+2, EXIT+1!