Routine: AGMPHLU

Package	Total	Call Graph
Patient Registration MPI	6	CREATE^AGMPHL01 CREATE^AGMPHL03 PROC^AGMPHMFN PARSE^AGMPIACK $$FILLSTR^AGMPIHL1 CREATMSG^AGMPIHLO
VA Fileman	4	NOW^%DTC ^DIC $$GET1^DIQ ^DIR
Health Level Seven	1	$$RESEND^HLOAPI3
IHS Patient Registration	1	PTLK^AG
Kernel	1	$$PROD^XUPROD

Package

Total

Call Graph

Patient Registration MPI

CREATE^AGMPHL01 CREATE^AGMPHL03 PROC^AGMPHMFN PARSE^AGMPIACK $$FILLSTR^AGMPIHL1 CREATMSG^AGMPIHLO

VA Fileman

NOW^%DTC ^DIC $$GET1^DIQ ^DIR

Health Level Seven

$$RESEND^HLOAPI3

IHS Patient Registration

PTLK^AG

Kernel

$$PROD^XUPROD

Package	Total	Caller Graph
Patient Registration MPI	8	AGMPHL01 AGMPHL03 AGMPHLBU AGMPHLEU AGMPHLU1 AGMPIHL1 AGMPIHLO AGMPIPID

Package

Total

Caller Graph

Patient Registration MPI

AGMPHL01 AGMPHL03 AGMPHLBU AGMPHLEU AGMPHLU1 AGMPIHL1 AGMPIHLO AGMPIPID

Entry Points

Name	Comments	DBIA/ICR reference
A08	;EP - SEND AN A08 UPDATE
FROM	;EP - ASK FROM
MFNMFK	;EP - PROCESS MFN MESSAGE AND CREATE A MFK RESPONSE
TO	;EP - ASK TO
A28	;EP - SEND A A28 ADD A PATIENT
CONDT(DATE)	;EP - CONVERT FM DATE INTO 2009-04-14 00:00:00
DIRCON	;EP - SEND A DIRECT CONNECT VQQ-Q02 ; 09/06/2017 - GCD - CR 7693 - Disabled VQQ messages because they are buggy and not needed.
DEMOPAT(DFN)	;EP - Check whether a patient is a demo patient and we are in a production environment. ; This is a demo patient if any one of the following criteria is true: ; a) TEST PATIENT INDICATOR (file 2, field 0.6) is set ; b) First five digits of the SSN are 0 ; c) Patient's name matches 1"DEMO,PAT".E ; d) Patient's name matches 1"DEMO,GIMC".E
A40	;EP - SEND A40 MERGE FROM/TO
RSAGAIN	;EP
VISITMSG	;EP - CREATE A NEW A01 OR A03
PT1	;ASK FOR FROM PATIENT ; AG7.25/CR 7718 - Overhauled this entire section because normal patient lookups don't work on merged patients.
RESEND	;EP - RESEND MESSAGE(S)

External References

Name	Field # of Occurrence
NOW^%DTC	VISITMSG+16, VISITMSG+31, TO+32
PTLK^AG	DIRCON+5, A28+2, A08+2, VISITMSG+2
CREATE^AGMPHL01	VISITMSG+19
CREATE^AGMPHL03	VISITMSG+34
PROC^AGMPHMFN	MFNMFK+8
PARSE^AGMPIACK	TO+26
$$FILLSTR^AGMPIHL1	CONDT+4
CREATMSG^AGMPIHLO	DIRCON+8, A28+5, A08+5, PT1+23
^DIC	PT1+3, MFNMFK+6, FROM+9, TO+8
$$GET1^DIQ	PT1+6, PT1+7, PT1+8, PT1+16
^DIR	VISITMSG+7, VISITMSG+15, VISITMSG+30, PT1+14, PT1+20
$$RESEND^HLOAPI3	TO+24
$$PROD^XUPROD	DEMOPAT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS OPTION HAS BEEN DISABLED" Line Location: DIRCON+2
Function Call: WRITE	Prompt: !!,"ENTER PATIENT YOU WISH TO QUERY THE MPI FOR:" Line Location: DIRCON+3
Function Call: WRITE	Prompt: ! Line Location: DIRCON+4
Function Call: WRITE	Prompt: !,"Unable to query patient "_$P(^DPT(DFN,0),U)_" on MPI" Line Location: DIRCON+11
Function Call: WRITE	Prompt: !!,"ENTER PATIENT YOU WISH TO ADD TO THE MPI:" Line Location: A28+1
Function Call: WRITE	Prompt: !,"Unable to create A28 to add patient "_$P(^DPT(DFN,0),U)_" to MPI" Line Location: A28+11
Function Call: WRITE	Prompt: !!,"EXAMPLE OF AN A08 UPDATE" Line Location: A08+1
Function Call: WRITE	Prompt: !,"Unable to create A08 to update patient "_$P(^DPT(DFN,0),U)_" on MPI" Line Location: A08+11
Function Call: WRITE	Prompt: !!,"CREATE A VISIT HL7 MESSAGE" Line Location: VISITMSG+1
Function Call: WRITE	Prompt: !,"Unable to create "_$S(TYPE=1:"A01",1:"A03")_" to update patient "_$P(^DPT(DFN,0),U)_" on MPI" Line Location: VISITMSG+38
Function Call: WRITE	Prompt: !,"ENTER PATIENT TO KEEP:" Line Location: PT1+2
Function Call: WRITE	Prompt: ! Line Location: PT1+17
Function Call: WRITE	Prompt: ! Line Location: PT1+22
Function Call: WRITE	Prompt: !,"Unable to merge "_$P(^DPT(DFN1,0),U)_" to patient "_$P(^DPT(DFN2,0),U)_" on MPI" Line Location: PT1+27
Function Call: WRITE	Prompt: !! Line Location: MFNMFK+2
Function Call: WRITE	Prompt: !,"Unable to create MFK message." Line Location: MFNMFK+12
Function Call: WRITE	Prompt: !! Line Location: FROM+2
Function Call: WRITE	Prompt: !,"SENT AT ",Y Line Location: TO+32
Function Call: WRITE	Prompt: !!,"TOTAL MESSAGES PROCESSED: ",GRDTOTAL Line Location: TO+44
Routine Call	DIC Line Location: PT1+3 MFNMFK+6 FROM+9 TO+8
Routine Call	DIR Line Location: VISITMSG+7 VISITMSG+15 VISITMSG+30 PT1+14 PT1+20

FileNo	Call Tags
^VA(15 - [#15]	Classic Fileman Calls, GET1^DIQ
^DPT - [#2]	GET1^DIQ
^HLB - [#778]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TO+32
^DPT - [#2]	DIRCON+11, A28+7, A28+11, A08+7, A08+11, VISITMSG+22, VISITMSG+23, VISITMSG+37, VISITMSG+38, PT1+10 , PT1+15, PT1+26, PT1+27, DEMOPAT+9
^HLB - [#778]	TO+14, TO+15, TO+17, TO+19, TO+22

Name	Line Occurrences
$$DEMOPAT	DIRCON+7, A28+4, A08+4, VISITMSG+4, PT1+9
A08	A08+4
A28	A28+4
DIRCON	DIRCON+7
FROM	TO+11
PT1	PT1+9, PT1+10, PT1+22
RSAGAIN	TO+51
VISITMSG	VISITMSG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	VISITMSG+16, VISITMSG+31, TO+32
>> COMSTAT	TO+19*, TO+20
DA	MFNMFK+1!, MFNMFK+9!
>> DATA	TO+26
>> DATA(2	TO+27
DATE	VISITMSG+18, VISITMSG+19, CONDT~, CONDT+2, CONDT+3, CONDT+5, CONDT+6, CONDT+7
>> DATETIME	VISITMSG+33*, VISITMSG+34
DFN	DIRCON+6, DIRCON+7, DIRCON+8, DIRCON+11, A28+3, A28+4, A28+5, A28+7, A28+11, A08+3 , A08+4, A08+5, A08+7, A08+11, VISITMSG+3, VISITMSG+4, VISITMSG+19, VISITMSG+22, VISITMSG+23, VISITMSG+34 , VISITMSG+37, VISITMSG+38, TO+27*, DEMOPAT~, DEMOPAT+6, DEMOPAT+9
DFN1	A40+1~, PT1+7*, PT1+9, PT1+10, PT1+15, PT1+23, PT1+26, PT1+27
DFN2	A40+1~, PT1+8*, PT1+9, PT1+10, PT1+16, PT1+23, PT1+26, PT1+27
DIC	PT1+3, MFNMFK+1!, MFNMFK+5, MFNMFK+9!, RSAGAIN+1~, FROM+3, TO+1
DIC("A"	PT1+3, FROM+5, TO+3*
DIC("B"	TO+4*
DIC("S"	MFNMFK+4, FROM+8, TO+7*
DIC("W"	FROM+7, TO+6
DIC(0	PT1+3, MFNMFK+3, FROM+4, TO+2
DIE	MFNMFK+1!, MFNMFK+9!
DIR	VISITMSG+5!, VISITMSG+12!, VISITMSG+27!, PT1+12!, PT1+18!, MFNMFK+1!, MFNMFK+9!
DIR("A"	VISITMSG+14, VISITMSG+29, PT1+19*
DIR("B"	PT1+19*
DIR(0	VISITMSG+6, VISITMSG+13, VISITMSG+28, PT1+13, PT1+19*
>> DIREC	TO+17*, TO+18
>> DIROUT	VISITMSG+8, VISITMSG+10, VISITMSG+17, VISITMSG+32
DT	RSAGAIN+1~
>> DTOUT	VISITMSG+8, VISITMSG+10, VISITMSG+17, VISITMSG+32
>> DUOUT	VISITMSG+8, VISITMSG+10, VISITMSG+17, VISITMSG+32
ERROR	RSAGAIN+1~, TO+24, TO+29, TO+35, TO+45, TO+46, TO+47
ERRORS	RSAGAIN+2~, FROM+1*
ERRORS(	TO+35*, TO+46, TO+47
>> EVENT	VISITMSG+11, VISITMSG+19, VISITMSG+21, VISITMSG+23, TO+22, TO+33, TO+48, TO+49, TO+50
FRMSGIEN	RSAGAIN+1~, FROM+11*, TO+4, TO+11, TO+13
GRDTOTAL	RSAGAIN+2~, FROM+1, TO+28, TO+44
>> HLMSTATE	TO+26
>> IEN	PT1+5*, PT1+6, PT1+7, PT1+8
>> LINK	TO+15*, TO+16
MPIDIREC	RSAGAIN+2~, FROM+1*
MRGDIR	A40+1~, PT1+6*, PT1+7, PT1+8
>> MSGIEN	TO+13, TO+14, TO+15, TO+17, TO+19, TO+22, TO+24, TO+31
NAME	DEMOPAT+8~, DEMOPAT+12*, DEMOPAT+13, DEMOPAT+14
NAME1	A40+1~, PT1+15*, PT1+19
NAME2	A40+1~, PT1+16*, PT1+19
NEWDATE	CONDT+1~, CONDT+6, CONDT+7, CONDT+8*, CONDT+9
NEWIEN	RSAGAIN+1~, TO+24*, TO+26, TO+30
NODE	DEMOPAT+8~, DEMOPAT+9*, DEMOPAT+10, DEMOPAT+11, DEMOPAT+12
>> NOW	VISITMSG+16, VISITMSG+31
>> SUCCESS	DIRCON+8, DIRCON+9, DIRCON+10, A28+5, A28+6, A28+7, A08+5, A08+6, A08+7, VISITMSG+19 , VISITMSG+20, VISITMSG+21, VISITMSG+34, VISITMSG+35, VISITMSG+36, PT1+23, PT1+24, PT1+25, MFNMFK+8, MFNMFK+10 , MFNMFK+11
TIME	CONDT+1~, CONDT+2, CONDT+4, CONDT+5
TOMSGIEN	RSAGAIN+1~, TO+10*, TO+11, TO+14
TOTEVENT	RSAGAIN+2~, FROM+1*
TOTEVENT(	TO+33*, TO+49, TO+50
>> TYPE	VISITMSG+26*, VISITMSG+34, VISITMSG+36, VISITMSG+38
U	DIRCON+11, A28+7, A28+11, A08+7, A08+11, VISITMSG+22, VISITMSG+23, VISITMSG+37, VISITMSG+38, PT1+15 , PT1+26, PT1+27, TO+15, TO+17, TO+19, TO+22, DEMOPAT+10, DEMOPAT+11, DEMOPAT+12
Y	VISITMSG+8, VISITMSG+10, VISITMSG+11, VISITMSG+14, VISITMSG+17, VISITMSG+18, VISITMSG+26, VISITMSG+32, VISITMSG+33, PT1+4 , PT1+5, PT1+21, PT1+22, MFNMFK+7, MFNMFK+8, RSAGAIN+1~, FROM+10, FROM+11, TO+9, TO+10 , TO+32*

Customize PDF page

Package: Patient Registration MPI

Routine: AGMPHLU

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: