Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGMPHLU

Package: Patient Registration MPI

Routine: AGMPHLU


Information

AGMPHLU ; IHS/SD/TPF - MPI HLO MSG UTILITIES ; 12/15/2007

Source Information

Source file <AGMPHLU.m>

Call Graph

Call Graph Total: 13

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  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Patient Registration MPI 8 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
; AG*7.2*5/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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All