Routine: DGV53PT1

Information

DGV53PT1 ;ALB/MTC - MAS v5.3 Post Init Routine ; 07 JAN 93

Package	Total	Call Graph
Registration	5	CON2^DGV53PT2 CON405^DGV53PT3 (CON392,CON457)^DGV53PT4 (CON411,CON44)^DGV53PT5 CON45^DGV53PT6
VA Fileman	4	DD^%DT NOW^%DTC FILE^DICN ^DIE
MailMan	1	^XMD

Package	Total	Caller Graph
Registration	6	DGV53PT DGV53PT2 DGV53PT3 DGV53PT4 DGV53PT5 DGV53PT6

Name	Comments	DBIA/ICR reference
DOMAIL	;-- This function will generate a Mailman message from the ; Provider Conversion Log field of file (#43). Lastly, ; if the message was sent, then the log entry in file #43 ; will be deleted.
WRERROR(ERSTR)	;-- This function will write the error message to the ; Provider conversion log. The message will be format by the ; calling routine. ; INPUT : ERSTR - The error string to write into log file
COMFILE(FILE,OK)	;-- This function will add information to the Provider ; Conversion Log when a file has been processed. ; INPUT FILE - File currently being processsed ; OK - 1 if all entries converted, else 0
DOMAILQ
ADDPC(FILE)	;--add entry for provider conversion to file 43 ; INPUT : FILE - File number to convert
COMQ
DONE(PSAV,TOTAL)	;-- This function will update the completion time, total number of ; records and the file sentinal indicating the file has been ; converted. ; INPUT : PSAV - IFN of the record in file 43 ; TOTAL - total records processed
ENDMSG	;-- This function will write the completion time for the complete ; conversion to the log.
NEWFILE(FILE)	;-- This function will add a information to the Provider ; Conversion Log for the file in (FILE). ; INPUT - FILE - The file number to print a header
NFQ
LOGCONQ
LOGCON	;-- This function will create a log file entry in file 43 ; if one does not exist.
PROCON	;-- entry point to start the provider conversion

Name	Field # of Occurrence
DD^%DT	ENDMSG+3, LOGCON+4, NEWFILE+8, COMFILE+9
NOW^%DTC	ENDMSG+3, DONE+7, LOGCON+4, NEWFILE+8, COMFILE+9
CON2^DGV53PT2	PROCON+5
CON405^DGV53PT3	PROCON+5
CON392^DGV53PT4	PROCON+5
CON457^DGV53PT4	PROCON+5
CON411^DGV53PT5	PROCON+5
CON44^DGV53PT5	PROCON+5
CON45^DGV53PT6	PROCON+5
FILE^DICN	ADDPC+6
^DIE	LOGCON+12, DOMAIL+13
^XMD	DOMAIL+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^(0) Line Location: ENDMSG+5
Function Call: WRITE	Prompt: !,^(0) Line Location: LOGCON+8
Function Call: WRITE	Prompt: !,^(0) Line Location: LOGCON+13
Function Call: WRITE	Prompt: !,^(0) Line Location: LOGCON+14
Function Call: WRITE	Prompt: !!,^(0) Line Location: NEWFILE+10
Function Call: WRITE	Prompt: !?5,^(0) Line Location: NEWFILE+11
Function Call: WRITE	Prompt: !,^(0) Line Location: COMFILE+11
Function Call: WRITE	Prompt: !,^(0) Line Location: COMFILE+12
Function Call: WRITE	Prompt: !?5,^(0) Line Location: COMFILE+13
Function Call: WRITE	Prompt: !,ERSTR Line Location: WRERROR+9
Function Call: WRITE	Prompt: !,">>> Generating mail message for Provider Conversion." Line Location: DOMAIL+8
Function Call: WRITE	Prompt: !!,">>> Error Creating Provider Conversion Mail Message." Line Location: DOMAIL+11
Routine Call	DIE Line Location: LOGCON+12 DOMAIL+13

FileNo	Call Tags
^DG(43 - [#43]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	NEWFILE+10, COMFILE+12
^DG(43 - [#43]	ENDMSG+4, ENDMSG+5, ENDMSG+6, ADDPC+4, ADDPC+5, DONE+7, LOGCON+6, LOGCON+7, LOGCON+8, LOGCON+9 , LOGCON+13, LOGCON+14, LOGCON+15, LOGCON+16, NEWFILE+5, NEWFILE+9, NEWFILE+10, NEWFILE+11, NEWFILE+12, COMFILE+6 , COMFILE+11, COMFILE+12, COMFILE+13, COMFILE+14, WRERROR+7, WRERROR+8*

Name	Field # of Occurrence
^(0	ENDMSG+5, LOGCON+8, LOGCON+13, LOGCON+14, NEWFILE+10, NEWFILE+11, COMFILE+11, COMFILE+12, COMFILE+13

Name	Field # of Occurrence
>> %	ENDMSG+3, DONE+7, LOGCON+4, NEWFILE+8, COMFILE+9
D0	ADDPC+6!
DA	ADDPC+6!, LOGCON+12!, DOMAIL+13!
DA(1	ADDPC+6*
DATE	ENDMSG+2~, ENDMSG+3, ENDMSG+5, LOGCON+3~, LOGCON+4, LOGCON+8, LOGCON+13, NEWFILE+3~, NEWFILE+8, NEWFILE+11 , COMFILE+4~, COMFILE+9, COMFILE+13
DD	ADDPC+6!
DIC	ADDPC+6*!
DIC(0	ADDPC+6*
DIE	LOGCON+12!, DOMAIL+13!
DIFROM	DOMAIL+6~
DR	LOGCON+12!, DOMAIL+13!
DUZ	DOMAIL+9
ERSTR	WRERROR~, WRERROR+8, WRERROR+9
FILE	ADDPC~, ADDPC+4, ADDPC+6, NEWFILE~, NEWFILE+10, COMFILE~, COMFILE+12
OK	COMFILE~, COMFILE+11
PSAV	DONE~, DONE+7
RESULT	ENDMSG+2~, ENDMSG+4, ENDMSG+5, ENDMSG+6, LOGCON+3~, LOGCON+7, LOGCON+8, LOGCON+9
SEQ	NEWFILE+3~, NEWFILE+5, NEWFILE+6, NEWFILE+9, NEWFILE+10, NEWFILE+11, NEWFILE+12, COMFILE+4~, COMFILE+6, COMFILE+7 , COMFILE+11, COMFILE+12, COMFILE+13, COMFILE+14, WRERROR+5~, WRERROR+7, WRERROR+8
TOTAL	DONE~, DONE+7
U	ENDMSG+4, ENDMSG+6, DONE+7, LOGCON+7, LOGCON+9, LOGCON+16, NEWFILE+5, NEWFILE+12, COMFILE+6, COMFILE+14 , WRERROR+7, WRERROR+8
X	ADDPC+6*, LOGCON+3~, NEWFILE+3~, COMFILE+4~
XMDUZ	DOMAIL+9*, DOMAILQ!
XMSUB	DOMAIL+9*, DOMAILQ!
XMTEXT	DOMAIL+9*, DOMAILQ!
XMY	DOMAILQ!
XMY(	DOMAIL+9*
XMZ	DOMAIL+5!, DOMAIL+11
Y	ENDMSG+2~, ENDMSG+3, LOGCON+3~, LOGCON+4, NEWFILE+3~, NEWFILE+8, COMFILE+4~, COMFILE+9