Routine: INMPORT

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIK
IHS Support HL7 Interfaces	1	(CHARUP,COMPILE)^BHLU
IHS VA Utilities	1	EN^XBVK

Package	Total	Caller Graph
Data Warehouse Export System	1	BDW10P5
IHS Support HL7 Interfaces	1	BHLU

Entry Points

External References

Name	Field # of Occurrence
CHARUP^BHLU	MD+5
COMPILE^BHLU	MD+39
FILE^DICN	NS+10, NS+16, ADD+4, CHKF+5, CHKS+5, MSADD+7, FSUBADD+5, SFADD+5, MADD+4, CHKOM+5 , CHKMC+5, CHKDS+5, ADDT+4, CHKSOM+6, ADDD+13, ADDTT+10, ADDBP+10
^DIE	DIE+1
^DIK	CHKMS+7
EN^XBVK	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Global ^INXPORT is missing, please restore and rerun" Line Location: MAIN+2
Routine Call	DIE Line Location: DIE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INRHT - [#4000]	Classic Fileman Calls
^INTHPC - [#4004]	Classic Fileman Calls
^INRHD - [#4005]	Classic Fileman Calls
^INRHNS - [#4007]	Classic Fileman Calls
^INTHL7S - [#4010]	Classic Fileman Calls
^INTHL7M - [#4011]	Classic Fileman Calls
^INTHL7F - [#4012]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(4007	NS+15, ADD+3
^DD(4010	SFADD+3
^DD(4011	CHKMS+12, MSADD+6, CHKOM+4, CHKMC+4, CHKDS+4, ADDT+3
^DD(4011.01	CHKSOM+4
^DD(4012	FSUB+9, FSUBADD+3
^INRHD - [#4005]	ADDD+20
^INRHD("B"	ADDD+10
^INRHNS - [#4007]	STCK+1, STCK+2
^INRHNS("B"	NS+7, NS+17
^INRHT - [#4000]	ADDTT+15, ADDTT+20*
^INRHT("B"	CHKMT+2, ADDD+6, ADDTT+7
^INTHL7F - [#4012]	FSUB+3, FSUB+5, FSUB+7
^INTHL7F("B"	SD+10, CHKF+2, UPDF+2, FSUB+2, FSUB+13
^INTHL7M - [#4011]	CHKMS+6!, CHKOM+1!, CHKMC+1!, CHKDS+1!, CHKMT+4, CHKMT+5, CHKSOM+1!
^INTHL7M("B"	CHKM+2, CHKM+3
^INTHL7M("SEG"	CHKMS+3
^INTHL7S - [#4010]	SEGF+2, SEGF+3, SEGF+6
^INTHL7S("B"	CHKS+2, CHKMS+2
^INTHPC("B"	ADDBP+7
^INTLH7M(	MD+34!
^INXPORT(	NS+3, NS+5
^INXPORT(""	MAIN+1, NS+1

Label References

Name	Line Occurrences
$$ADD	STCK+3
$$ADDT	CHKMT+4
$$CHKDS	MD+20
$$CHKF	FD+9
$$CHKM	MD+4
$$CHKMC	MD+16
$$CHKMS	MD+33
$$CHKMT	MD+8
$$CHKOM	MD+12
$$CHKS	SD+5
$$CHKSOM	MD+37
$$FSUB	FD+16
$$FSUBADD	FSUB+3, FSUB+14
$$MADD	CHKM+6
$$MSADD	CHKMS+14
$$SEGF	SD+14
$$SFADD	SEGF+2, SEGF+4
$$STCK	NS+18
$$UPDF	CHKF+2
ADD01	MAIN+5
ADDBP	MSG+3, ADD01+4
ADDD	MSG+2, ADD01+3
ADDTT	MSG+1, ADD01+2
DIE	CHKM+5, CHKMS+13, UPDF+5, FSUB+11, SEGF+8, ADDD+19, ADDTT+18, ADDBP+15
EOJ	MAIN+7
FD	MSG+6
MD	MSG+9
MSG	MAIN+6
NS	MAIN+4
SD	MSG+7

Naked Globals

Name	Field # of Occurrence
^(0	ADDD+20*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGFL	MSADD~, MSADD+3
AGM	MSADD~, MSADD+4
AGN	MSADD~
AGOF	MSADD~, MSADD+3
AGP	MSADD~, MSADD+4
AGPS	MSADD~, MSADD+4
AGR	MSADD~, MSADD+3
AGS	MSADD~, MSADD+3
AGU	MSADD~, MSADD+5
DA	CHKM+4, CHKMS+5, CHKMS+9, UPDF+3, FSUB+10, SEGF+5, CHKSOM+3, ADDD+16, ADDTT+13, ADDBP+13 , DIE+2!
DA(1	NS+12, NS+15, CHKMS+5, CHKMS+9, MSADD+2, FSUB+10, FSUBADD+2, SEGF+5, SFADD+2, CHKOM+3* , CHKMC+3, CHKDS+3, ADDT+2, CHKSOM+3
DD	NS+8!, NS+13!
DIC	NS+9, NS+13!, NS+15, ADD+2, ADD+5!, CHKF+3, CHKS+3, MSADD+2, FSUBADD+2, SFADD+2 , MADD+2, CHKOM+3, CHKMC+3, CHKDS+3, ADDT+2, CHKSOM+3, ADDD+12, ADDTT+9, ADDBP+9*, DIE+2!
DIC("DR"	CHKF+4, CHKS+4, MSADD+3, MSADD+4, MSADD+5, FSUBADD+4, SFADD+4, MADD+3
DIC("P"	NS+15, ADD+3, CHKMS+12, MSADD+6, FSUB+9, FSUBADD+3, SFADD+3, CHKOM+4, CHKMC+4, CHKDS+4 , ADDT+3, CHKSOM+4
DIC(0	NS+9, NS+14, ADD+2, CHKF+3, CHKS+3, MSADD+2, FSUBADD+3, SFADD+2, MADD+2, CHKOM+3 , CHKMC+3, CHKDS+3, ADDT+2, CHKSOM+3, ADDD+12, ADDTT+9, ADDBP+9*
DIE	CHKM+4, CHKMS+9, UPDF+3, FSUB+8, FSUB+12!, SEGF+5, ADDD+17, ADDTT+16, ADDBP+13, DIE+2!
>> DIK	CHKMS+5*
DINUM	DIE+2!
DO	NS+8!, NS+13!
DR	CHKM+4, CHKMS+10, CHKMS+11, UPDF+4, FSUB+10, SEGF+7, ADDD+18, ADDTT+17, ADDBP+14*, DIE+2!
DSC	CHKDS~, CHKDS+3
F01	CHKF~, CHKF+2, CHKF+3
F02	CHKF~, CHKF+2, CHKF+4
F03	CHKF~, CHKF+2, CHKF+4
F3	CHKF~, CHKF+2, CHKF+4
F5	CHKF~, CHKF+2, CHKF+4
FDA	FSUB~, FSUB+3, FSUB+5, FSUB+7, FSUB+8, FSUB+10, FSUB+14
FIEN	FSUBADD~, FSUBADD+2
FL01	UPDF~, UPDF+2
FL02	UPDF~, UPDF+4
FL03	UPDF~, UPDF+4
FL3	UPDF~, UPDF+4
FL5	UPDF~, UPDF+4
>> FLDI	CHKF+6*, CHKF+7
FS01	FSUB~, FSUB+2, FSUB+13
FS02	FSUB~, FSUB+3, FSUB+7, FSUB+10, FSUB+14
>> FSIEN	FSUB+14*, FSUB+15
FSL01	FSUBADD~, FSUBADD+2
FSL02	FSUBADD~, FSUBADD+4
GFL	CHKMS~, CHKMS+10, CHKMS+14
GM	CHKMS~, CHKMS+11, CHKMS+14
GN	CHKMS~, CHKMS+2, CHKMS+14
GOF	CHKMS~, CHKMS+10, CHKMS+14
GP	CHKMS~, CHKMS+11, CHKMS+14
GPS	CHKMS~, CHKMS+11, CHKMS+14
GR	CHKMS~, CHKMS+10, CHKMS+14
GS	CHKMS~, CHKMS+10, CHKMS+14
GU	CHKMS~, CHKMS+11, CHKMS+14
>> INAD01	ADDD+4, ADDD+10, ADDD+12, ADDTT+4, ADDTT+7, ADDTT+9, ADDBP+4*, ADDBP+7, ADDBP+9
>> INAD02	ADDD+5, ADDD+6, ADDD+8, ADDD+20
>> INADA	ADDD+1, ADDD+2, ADDD+3, ADDTT+1, ADDTT+2, ADDTT+3, ADDBP+1, ADDBP+2, ADDBP+3
INADD01	ADD01+1*, ADD01+5!, ADDD+15, ADDTT+12, ADDBP+12
>> INADDR	ADDD+7, ADDD+8, ADDD+18, ADDTT+5, ADDTT+17, ADDBP+5, ADDBP+14
>> INADDT	ADDD+3, ADDD+4, ADDD+5, ADDD+7, ADDTT+3, ADDTT+4, ADDTT+5, ADDBP+3*, ADDBP+4, ADDBP+5
>> INDESC	MD+19*, MD+20
>> INDIEN	ADDD+10, ADDD+11, ADDD+14, ADDD+16, ADDD+20, ADDTT+7, ADDTT+8, ADDTT+11, ADDTT+13, ADDTT+15 , ADDTT+20, ADDBP+7, ADDBP+8, ADDBP+11, ADDBP+13
>> INF01	FD+4*, FD+9
>> INF02	FD+5*, FD+9
>> INF03	FD+6*, FD+9
>> INF3	FD+7*, FD+9
>> INF5	FD+8*, FD+9
>> INFDA	FD+2*, FD+3, FD+8, FD+11, FD+12, FD+13
>> INFDEF	FD+3*, FD+4, FD+5, FD+6, FD+7
>> INFIEN	UPDF+2*, UPDF+3, UPDF+6
>> INFS	FD+12, FD+13, FSUB+5, FSUB+6, FSUB+7, FSUB+8, FSUB+10
>> INFS01	FD+14*, FD+16
>> INFS02	FD+15*, FD+16
>> INFSB	FD+16*
>> INFSD	FD+13*, FD+14, FD+15
>> INFSIEN	FSUB+2, FSUB+3, FSUB+5, FSUB+13, FSUB+14
>> INIEN	STCK+1, STCK+2*, STCK+3, STCK+4
>> INLKST	MD+3*, MD+4
>> INM01	MD+2*, MD+4
>> INMADS	MD+20*
>> INMCCHK	MD+16*
>> INMCL	MD+14*, MD+15
>> INMCLE	MD+15*, MD+16
>> INMDA	MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9
>> INMDS	MD+18*, MD+19
>> INMDT	MD+1*, MD+2, MD+4
>> INMOM	MD+10*, MD+11
>> INMPRE	NS+19*, MSG+5, MSG+8, FD+2, FD+3, FD+8, FD+11, FD+12, FD+13, FD+17 , SD+1, SD+2, SD+7, SD+8, SD+15, MD+1, MD+3, MD+6, MD+7, MD+9 , MD+10, MD+11, MD+13, MD+14, MD+15, MD+17, MD+18, MD+19, MD+21, MD+22 , MD+23, MD+35, MD+36, MD+38, ADDD+2, ADDD+3, ADDTT+2, ADDTT+3, ADDBP+2, ADDBP+3
>> INMSG	MD+22*, MD+23, MD+35, MD+36
>> INMSGD	MD+23*, MD+24, MD+25, MD+26, MD+27, MD+28, MD+29, MD+30, MD+31, MD+32
>> INMSGFL	MD+28*, MD+33
>> INMSGM	MD+30*, MD+33
>> INMSGN	MD+24*, MD+33
>> INMSGO	MD+35*, MD+36
>> INMSGOD	MD+36*, MD+37
>> INMSGOF	MD+27*, MD+33
>> INMSGOMC	MD+37*
>> INMSGP	MD+29*, MD+33
>> INMSGPS	MD+31*, MD+33
>> INMSGR	MD+26*, MD+33
>> INMSGS	MD+25*, MD+33
>> INMSGU	MD+32*, MD+33
>> INMSY	MD+33*, MD+34, MD+37
>> INMT	NS+1*, NS+2, NS+3, NS+5
INMTCH	FSUB+4!
>> INMTT	MD+6*, MD+7
>> INMTTE	MD+7*, MD+8
>> INNDA	STCK+1*, STCK+2
>> INNS	NS+11, NS+12, NS+17, NS+18
>> INOCHK	MD+12*
>> INOME	MD+11*, MD+12
>> INOUT	MSG+8*
>> INPKG	NS+5, NS+6, NS+7, NS+9, NS+17
>> INS01	SD+3*, SD+5
>> INS02	SD+4*, SD+5
>> INSDA	SD+1*, SD+2, SD+7, SD+8
>> INSF01	SD+9*, SD+10, SD+14
>> INSF02	SD+12*, SD+14
>> INSF03	SD+13*, SD+14
>> INSFDA	SD+7*, SD+8
>> INSFDT	SD+8*, SD+9, SD+12, SD+13
>> INSFIEN	SD+10*, SD+11, SD+14
>> INSFLD	SD+14*
>> INSGDT	SD+2*, SD+3, SD+4
>> INST	NS+3*, NS+4, NS+5, NS+15, NS+18
>> INSTOK	NS+18*
>> INTCHK	MD+8*
INTP5	ADDTT+14~, ADDTT+15*, ADDTT+19
>> INY	FD+9, FD+10, FD+16, SD+5, SD+6, SD+14, MD+4*, MD+5, MD+8, MD+12 , MD+16, MD+20, MD+33, MD+34, MD+37, MD+39, CHKOM+1, CHKMC+1, CHKDS+1
>> KFM	MAIN+3*, ADD+1, CHKF+1, CHKS+1, CHKM+1, CHKMS+1, MSADD+1, UPDF+1, FSUB+1, FSUBADD+1 , SEGF+1, SFADD+1, MADD+1, CHKOM+2, CHKMC+2, CHKDS+2, CHKMT+1, ADDT+1, CHKSOM+2, ADDD+9 , ADDTT+6, ADDBP+6
M01	CHKM~, CHKM+2, CHKM+3, CHKM+6
MA01	MADD~, MADD+2
MADT	MADD~, MADD+3
MCL	CHKMC~, CHKMC+3
MDA	FD~, FD+2, FD+3, FD+8, FD+11, FD+12, FD+13, FD+17, SD~, SD+1 , SD+2, SD+7, SD+8, SD+15, MD~, MD+1, MD+3, MD+6, MD+7, MD+9 , MD+10, MD+11, MD+13, MD+14, MD+15, MD+17, MD+18, MD+19, MD+21, MD+22 , MD+23, MD+35, MD+36, MD+38
MDT	CHKM~, CHKM+4, CHKM+6
>> MIEN	CHKM+2, CHKM+3*, CHKM+4
MS	CHKSOM~, CHKSOM+1, CHKSOM+3
MS01	CHKMS~, CHKMS+3, CHKMS+5, CHKMS+6, CHKMS+9, CHKMS+14
MSEG	CHKSOM~, CHKSOM+1, CHKSOM+3
MSG	CHKOM~, CHKOM+3, CHKMC~, CHKMC+3, CHKDS~, CHKDS+3, CHKMT~, CHKMT+4, CHKMT+5, ADDT~ , ADDT+2
MSGI	MSADD~, MSADD+2
>> MSGIEN	CHKMS+3*, CHKMS+4, CHKMS+5, CHKMS+6, CHKMS+9
MSGN	MSADD~, MSADD+2
>> MTIEN	CHKMT+2*, CHKMT+3, CHKMT+4, CHKMT+5
MTT	CHKMT~, CHKMT+2
NMS	ADD~, ADD+2
NS	STCK~, STCK+1, STCK+2, STCK+3
OMC	CHKOM~, CHKOM+3, CHKSOM~, CHKSOM+5
S01	CHKS~, CHKS+2, CHKS+3, SFADD~, SFADD+2
S02	CHKS~, CHKS+4, SFADD~, SFADD+4
S03	SFADD~, SFADD+4
SF01	SEGF~
SF02	SEGF~, SEGF+2, SEGF+4, SEGF+6, SEGF+7
SF03	SEGF~, SEGF+2, SEGF+4, SEGF+7
SFIEN	SEGF~, SEGF+2, SEGF+3, SEGF+4
>> SFLIEN	SEGF+3*, SEGF+4, SEGF+5, SEGF+6, SEGF+9
>> SGIEN	CHKMS+2*, CHKMS+3, CHKMS+14
SIEN	SEGF~, SEGF+2, SEGF+3, SEGF+4, SEGF+5, SEGF+6
SIT	ADD~, ADD+3
SN	SFADD~, SFADD+2
ST	STCK~, STCK+2, STCK+3
TT	ADDT~, ADDT+2
U	NS+15, FD+4, FD+5, FD+6, FD+7, FD+14, FD+15, SD+3, SD+4, SD+9 , SD+12, SD+13, MD+24, MD+25, MD+26, MD+27, MD+28, MD+29, MD+30, MD+31 , MD+32, ADD+3, CHKMS+12, MSADD+6, FSUB+7, FSUB+9, FSUBADD+3, SEGF+6, SFADD+3, CHKOM+4 , CHKMC+4, CHKDS+4, ADDT+3, CHKSOM+4, ADDD+20, ADDTT+15, ADDTT+20
>> X	NS+9, NS+15, ADD+3, CHKF+3, CHKS+3, MSADD+2, FSUBADD+2, SFADD+2, MADD+2, CHKOM+3 , CHKMC+3, CHKDS+3, ADDT+2, CHKSOM+5, ADDD+12, ADDTT+9, ADDBP+9*
Y	NS+11, ADD+6, CHKF+6, CHKS+6, MSADD+8, FSUBADD+6, SFADD+6, MADD+5, CHKOM+6, CHKMC+6 , CHKDS+6, ADDT+5, CHKSOM+7, ADDD+14, ADDTT+11, ADDBP+11, DIE!, DIE+2!

Name	Comments	DBIA/ICR reference
DIE
CHKM(M01,MDT)
CHKMS(MS01,GN,GS,GR,GOF,GFL,GP,GM,GPS,GU)
FD(MDA)
CHKSOM(MS,MSEG,OMC)
MD(MDA)	;-- setup the message
CHKMT(MSG,MTT)
MSG	;-- Import the fields from the INXPORT global
ADDT(MSG,TT)
ADDTT	;-- add all transactions in namespace first
SFADD(SN,S01,S02,S03)
CHKOM(MSG,OMC)
EOJ	;-- kill variables and quit
CHKDS(MSG,DSC)
NS	;-- parse the INXPORT global get package name
CHKMC(MSG,MCL)
ADDBP	;-- add all transactions in namespace first
MSADD(MSGI,MSGN,AGN,AGS,AGR,AGOF,AGFL,AGP,AGM,AGPS,AGU)
UPDF(FL01,FL02,FL03,FL3,FL5)
CHKS(S01,S02)
ADD(NMS,SIT)
MADD(MA01,MADT)
SEGF(SIEN,SFIEN,SF01,SF02,SF03)
ADDD	;-- add all destinations in namespace first
STCK(NS,ST)	;-- check to see if the site already exists if not add it
CHKF(F01,F02,F03,F3,F5)
SD(MDA)
FSUB(FDA,FS01,FS02)
MAIN	;PEP - this is the main routine driver
ADD01	;
FSUBADD(FIEN,FSL01,FSL02)

Customize PDF page

Package: IHS Generic Interface System

Routine: INMPORT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: