Routine: INHVMTR

Information

INHVMTR ; DGH,FRW ; 06 Aug 1999 14:44:52; MHCMIS background processor

Source Information

Source file <INHVMTR.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Generic Interface System	7	ENR^INHE DONE^INHOS GETLINE^INHOU $$MHC^INHUT2 (INIT,WAIT)^INHUVUT $$INRHB^INHUVUT1 $$NEXT^INHUVUT3
Kernel	3	($$CLOSESEQ,$$OPENSEQ)^%ZTFS1 $$GETERR^%ZTOS (AUDCHK,AUDSTP,ITIME,TTSTP,TTSTRT)^XUSAUD
VA Fileman	2	^DIC ^DIK
Uncategorized	1	($$ADDT,$$CDATF2H,$$NOW,SETDT)^UTDT

Entry Points

Name	Comments	DBIA/ICR reference
CLOSE(XXDFN)	;Close file
EN	;Main starting point
QKILL
LOG	;Log status of original message
ERR	;Error module
TRANU(DA,CLOSE,INCEIS)	;Update entry in MHCMIS Data Exchange file (#30205)
CHKTM(INENDTM)	;Compare current time with time to close VMS file
GETFIL(XXDFN)	;Get VMS file name to open
SETTM(INFILOPN)	;Set closing time (no later than midnight of current day)
EXIT	;Main exit module
TRANA(X)	;Add/find entry in transmission tracking file (30205)
QULOCK
RUN	;This is main loop of routine.
OPEN(FILNAM)	;Open VMS file XXDFN

External References

Name	Field # of Occurrence
$$CLOSESEQ^%ZTFS1	CLOSE+1
$$OPENSEQ^%ZTFS1	OPEN+3, OPEN+5
$$GETERR^%ZTOS	ERR+1
^DIC	TRANA+2
^DIK	GETFIL+27
ENR^INHE	EN+5, GETFIL+23, GETFIL+29, TRANA+3, TRANA+5, ERR+4, CLOSE+2
DONE^INHOS	LOG+3
GETLINE^INHOU	RUN+33
$$MHC^INHUT2	EN+11, EN+16
INIT^INHUVUT	EN+8
WAIT^INHUVUT	RUN+12, RUN+24
$$INRHB^INHUVUT1	RUN+1, RUN+19, RUN+27, RUN+47
$$NEXT^INHUVUT3	RUN+11
$$ADDT^UTDT	SETTM+6
$$CDATF2H^UTDT	SETTM+9
$$NOW^UTDT	SETTM+5
SETDT^UTDT	GETFIL+7
AUDCHK^XUSAUD	EN+3
AUDSTP^XUSAUD	EXIT+5
ITIME^XUSAUD	EN+3, RUN+3
TTSTP^XUSAUD	RUN+43
TTSTRT^XUSAUD	RUN+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: LINE Line Location: RUN+35
Function Call: WRITE	Prompt: LINE(I) Line Location: RUN+37
Function Call: WRITE	Prompt: ! Line Location: RUN+38
Function Call: WRITE	Prompt: $C(28),! Line Location: RUN+41
Routine Call	DIC Line Location: TRANA+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	EN+4
^INLHDEST(	QKILL!, QULOCK
^INRHB("RUN"	EN+6*, EXIT+3!
^INRHD - [#4005]	EN+11
^INTHOS(1	ERR+5
^INTHPC - [#4004]	EN+3, EN+5
^XXDBE(30203	EN+15, EN+16, EN+20, GETFIL+7
^XXDFIL(	TRANA+5, TRANU+4*
^XXDFIL("AC"	GETFIL+13, GETFIL+18*

Label References

Name	Line Occurrences
$$CHKTM	RUN+6
$$GETFIL	RUN+16
$$OPEN	GETFIL+22
$$SETTM	RUN+17
$$TRANA	GETFIL+20
CLOSE	RUN+8, ERR+3, EXIT+2
EXIT	EN+5, EN+6, RUN+1, RUN+20, RUN+28
LOG	RUN+46
QKILL	RUN+46
QULOCK	RUN+24, QKILL+1, EXIT+1
RUN	RUN+12, RUN+24, RUN+48
TRANU	SETTM+11

Name	Field # of Occurrence
^(0	TRANU+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OPEN+1~
CLOSE	SETTM+2~, SETTM+6, SETTM+7, SETTM+9, SETTM+11, TRANU~, TRANU+4
DA	GETFIL+4~, GETFIL+27*, TRANU~, TRANU+1, TRANU+4
DATE	GETFIL+4~, GETFIL+7*, GETFIL+14, GETFIL+18
DIC	GETFIL+4~, TRANA+2*
DIC(0	TRANA+2*
DIK	GETFIL+4~, GETFIL+27*
DLAYGO	GETFIL+4~, TRANA+2*
DT	EN+1~, GETFIL+7
ER	EN+1~, LOG+2*
EXT	GETFIL+4~, GETFIL+10, GETFIL+12, GETFIL+14, GETFIL+16, GETFIL+17*, GETFIL+18
FIL	GETFIL+4~, GETFIL+13, GETFIL+14, GETFIL+16, GETFIL+18, GETFIL+29
FIL1	GETFIL+4~
FILNAM	GETFIL+4~, GETFIL+18*, GETFIL+20, GETFIL+22, GETFIL+23, OPEN~, OPEN+3, OPEN+5
I	EN+1~, RUN+37*
IEN	EN+15~*, EN+16, EN+17
>> INBPN	EN+3, EN+5, EN+6, EN+8, RUN+1, RUN+12, RUN+19, RUN+24, RUN+27, RUN+47 , GETFIL+23, TRANA+3, TRANA+5, ERR+4, EXIT+3, CLOSE+2
INCEIS	EN+1~, EN+13, EN+17, EN+18*, EN+20, GETFIL+7, GETFIL+13, GETFIL+18, SETTM+11, TRANU~ , TRANU+4
INDSTR	EN+1~, EN+5*, EN+11, RUN+11, QKILL, QULOCK
INENDTM	EN+1~, EN+21, RUN+5, RUN+6, RUN+8, RUN+15, RUN+17*, CHKTM~, CHKTM+4, CHKTM+6
INFILOPN	EN+1~, EN+20*, RUN+17, SETTM~, SETTM+5
INIP	EN+1~, EN+8
INIP("SHNG"	RUN+24
INIP("THNG"	RUN+12
INOK	EN+1~, RUN+6*, RUN+7
INPNAME	EN+1~, EN+3*, RUN+3, RUN+30
INQP	EN+1~, RUN+11, QKILL, QULOCK
INQT	EN+1~, RUN+11, QKILL, QULOCK
INREERR	ERR+1~*, ERR+4
INRUN	EN+1~, RUN+1, RUN+19, RUN+20, RUN+27, RUN+28, RUN+47
INUIF	EN+1~, RUN+11*, RUN+12, RUN+30, RUN+33, LOG+2, QKILL, QULOCK
LCT	EN+1~, RUN+33*
LINE	EN+1~, RUN+33, RUN+35
LINE(	RUN+37
NOW	SETTM+2~, SETTM+5*, SETTM+6, SETTM+7
OK	GETFIL+4~, CLOSE+1*, CLOSE+2
OPEN	SETTM+2~, SETTM+5*, SETTM+6
OUT	EN+15~, EN+17
SYSTEM	EN+1~, EN+5*
U	EN+3, EN+5, EN+6, EN+11, EN+16, GETFIL+26, TRANA+5, TRANU+4
UIF	LOG+2~*
WAIT	EN+1~, RUN+24*
X	EN+1~, EN+4, EN+15~, EN+16, EN+17, GETFIL+4~, TRANA~, TRANA+1, TRANA+3, TRANA+5 , SETTM+9*, SETTM+12
>> XUAUDIT	EN+3, RUN+3, RUN+30, RUN+43, EXIT+5
XXDFN	EN+1~, RUN+8, RUN+16, RUN+35, RUN+37, RUN+38, RUN+41, GETFIL~, GETFIL+5!, GETFIL+22* , GETFIL+23, GETFIL+28, GETFIL+29!, ERR+3, EXIT+2, CLOSE~, CLOSE+1, CLOSE+2, CLOSE+3!
XXDIR	GETFIL+4~, GETFIL+7*, GETFIL+18, GETFIL+29
XXDTRDA	EN+1~, RUN+16, RUN+17, RUN+19, RUN+24, GETFIL+10, GETFIL+20, GETFIL+26, GETFIL+27, GETFIL+28 , GETFIL+29, GETFIL+30, SETTM+11
XXNO	EN+1~, EN+11*, EN+13, EN+17
Y	GETFIL+4~, TRANA+2*, TRANA+3, TRANA+5, TRANA+6

Customize PDF page

Package: IHS Generic Interface System

Routine: INHVMTR

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: