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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MPIFQ1

Package: Master Patient Index VistA

Routine: MPIFQ1


Information

MPIFQ1 ;ALB/RJS-CIRN QUERY HANDLER ;JUN 30, 1997

Source Information

Source file <MPIFQ1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Master Patient Index VistA 4 TWODFNS^MPIF002  GETDATA^MPIFQ0  ($$PROMPT1,A28,LOCAL,MSG,MSG1,MSG2,MSG3,MSG4,MSG5,PROMPT,TF)^MPIFQ3  EDIT^MPIFQED  
List Manager 3 EN^VALM  CLEAR^VALM1  EN^VALM2  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$LKUP,$$NS)^XUAF4  
RPC Broker 2 EN1^XWB2HL7  RTNDATA^XWBDRPC  
Registration 2 NAME^VAFCPID2  $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Master Patient Index VistA 6 MPIF REAL-TIME QUERY  MPIF REAL-TIME QUERY (ADD PATIENT)  MPIF REAL-TIME QUERY (CMOR PDAT)  MPIF REAL-TIME QUERY (HELP)  MPIF REAL-TIME QUERY (MPI PDAT)  MPIF REAL-TIME QUERY (SELECT PATIENT)  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
INIT ;Entry point for List Manager Template - MPIF REAL-TIME QUERY
HDR ;Header code for List Manager Template - MPIF REAL-TIME QUERY
START(INDEX) ;Starting entry point for envoking the List Manager Template MPIF Real-time query
SELECT
ADD ;Add (MPIF REAL-TIME QUERY (ADD PATIENT)) add pt to MPI Austin.
MPIPD ; MPI PDAT CALL
CMOR ; CMOR PDAT CALL
AGAIN1
END
HELP ; Help List Manager Action (MPIF REAL-TIME QUERY (HELP))
EXIT ;Exit for List Manager Template MPIF REAL-TIME QUERY

External References

Name Field # of Occurrence
TWODFNS^MPIF002 SELECT+13
GETDATA^MPIFQ0 HDR+2, SELECT+17
$$PROMPT1^MPIFQ3 SELECT+35
A28^MPIFQ3 ADD+1
LOCAL^MPIFQ3 SELECT+14
MSG^MPIFQ3 SELECT+34
MSG1^MPIFQ3 SELECT+11
MSG2^MPIFQ3 SELECT+34
MSG3^MPIFQ3 SELECT+32
MSG4^MPIFQ3 HELP+1
MSG5^MPIFQ3 SELECT+37
PROMPT^MPIFQ3 SELECT+14, SELECT+20, SELECT+22, SELECT+32, SELECT+36, SELECT+37, ADD+1, MPIPD+26, AGAIN1+11, END
HELP+1
TF^MPIFQ3 SELECT+32, SELECT+36
EDIT^MPIFQED SELECT+32, SELECT+36
NAME^VAFCPID2 SELECT+23, SELECT+24
EN^VALM START+2
CLEAR^VALM1 SELECT+11, SELECT+34, MPIPD+5, AGAIN1+8, AGAIN1+11, HELP+1
EN^VALM2 SELECT+1, MPIPD+2, CMOR+2
$$SITE^VASITE CMOR+6
$$FMADD^XLFDT CMOR+9
$$FMTE^XLFDT HDR+5
$$NOW^XLFDT CMOR+9
$$LKUP^XUAF4 SELECT+8, MPIPD+7, MPIPD+25
$$NS^XUAF4 MPIPD+7, MPIPD+25
EN1^XWB2HL7 CMOR+8
RTNDATA^XWBDRPC AGAIN1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sex for these two patients doesn't match -- Can't select this patient until",!,"Sex matches between the MPI and your site. No action will be taken."
  • Line Location: SELECT+20
Function Call: WRITE
  • Prompt: !!,"SSN for these two patients doesn't match -- Can't select this patient until",!,"SSN matches between the MPI and your site. No action will be taken."
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !!,"ICN and CMOR Updated"
  • Line Location: SELECT+36
Function Call: WRITE
  • Prompt: !,"MPI Data:",!!!,?3,"ICN: ",+$P(DATA,"^",6),?30,"CMOR: ",CMOR," (",CMOR3,")"
  • Line Location: MPIPD+8
Function Call: WRITE
  • Prompt: !,?2,"NAME: ",$P(DATA,"^")
  • Line Location: MPIPD+9
Function Call: WRITE
  • Prompt: !,?3,"SSN: ",$P(DATA,"^",3),?30,"SEX: ",$P(DATA,"^",11)
  • Line Location: MPIPD+10
Function Call: WRITE
  • Prompt: !,?3,"DOB: ",$P(DATA,"^",4)
  • Line Location: MPIPD+11
Function Call: WRITE
  • Prompt: ?30,"DOD: ",$P(DATA,"^",9)
  • Line Location: MPIPD+12
Function Call: WRITE
  • Prompt: !?3,"Multiple Birth Indicator: Yes"
  • Line Location: MPIPD+13
Function Call: WRITE
  • Prompt: !,?2,"PLACE OF BIRTH: ",$P(DATA,"^",12),", ",$P(DATA,"^",13)
  • Line Location: MPIPD+14
Function Call: WRITE
  • Prompt: !,?2,"PLACE OF BIRTH: ",$P(DATA,"^",12)," ",$P(DATA,"^",13)
  • Line Location: MPIPD+15
Function Call: WRITE
  • Prompt: !,?2,"MOTHER'S MAIDEN NAME: ",$P(DATA,"^",16)
  • Line Location: MPIPD+16
Function Call: WRITE
  • Prompt: !,?2,"CLAIM NUMBER: ",$P(DATA,"^",17)
  • Line Location: MPIPD+17
Function Call: WRITE
  • Prompt: !,?2,"POW STATUS: ",POW
  • Line Location: MPIPD+18
Function Call: WRITE
  • Prompt: !,?2,"Open Data Management Case",!,?5,"CASE#: ",$P(CASE,"/")_" NOIS#: ",$P(CASE,"/",2),!,?5,"CASE WORKER: ",$P(CASE,"/",3)
  • Line Location: MPIPD+20
Function Call: WRITE
  • Prompt: !,?2,"Alias(es): "
  • Line Location: MPIPD+21
Function Call: WRITE
  • Prompt: !?10,^(XX)
  • Line Location: MPIPD+22
Function Call: WRITE
  • Prompt: !?10,"Treating Facility: ",$P($$NS^XUAF4($$LKUP^XUAF4(TMP)),"^")," (",TMP,")"
  • Line Location: MPIPD+25
Function Call: WRITE
  • Prompt: !!,"CMOR is your site"
  • Line Location: CMOR+6
Function Call: WRITE
  • Prompt: !,"Please be patient while the data is being retrieved from the CMOR."
  • Line Location: CMOR+7
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+2
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+4
Function Call: WRITE
  • Prompt: !!,$P(RES1(0),"^",2)
  • Line Location: AGAIN1+5
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGAIN1+12
Function Call: WRITE
  • Prompt: !,RES1(NUM)
  • Line Location: AGAIN1+13
Routine Call
  • VALM
  • Line Location:
    • START+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("AICN" SELECT+10, SELECT+12
^TMP("MPIFVQQ" SELECT+4, SELECT+5, MPIPD+6, MPIPD+21, MPIPD+22, MPIPD+23, MPIPD+25, CMOR+4
^XTMP("MPIFPDAT" CMOR+9*

Label References

Name Line Occurrences
AGAIN1 AGAIN1+1, AGAIN1+3, AGAIN1+6
END CMOR+6, AGAIN1+2, AGAIN1+4, AGAIN1+5

Naked Globals

Name Field # of Occurrence
^( MPIPD+22, MPIPD+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALIAS MPIPD+4~
ANS SELECT+35~*, SELECT+36
CASE MPIPD+4~, MPIPD+19*, MPIPD+20
CHKSUM SELECT+3~, SELECT+8*, MPIPD+4~, CMOR+1~, CMOR+5*
CMOR MPIPD+4~, MPIPD+7*, MPIPD+8, CMOR+1~, CMOR+5*, CMOR+6, CMOR+8
CMOR3 MPIPD+4~, MPIPD+7*, MPIPD+8, MPIPD+25
CNT MPIPD+1~, CMOR+10*, AGAIN1*, AGAIN1+1, AGAIN1+2, AGAIN1+3, AGAIN1+4, AGAIN1+6, AGAIN1+7, AGAIN1+9*
AGAIN1+11*, AGAIN1+12*, AGAIN1+13*, END!
DATA SELECT+3~, SELECT+4*, SELECT+6, SELECT+7, SELECT+8, SELECT+32, SELECT+36, MPIPD+4~, MPIPD+6*, MPIPD+7
MPIPD+8, MPIPD+9, MPIPD+10, MPIPD+11, MPIPD+12, MPIPD+13, MPIPD+14, MPIPD+15, MPIPD+16, MPIPD+17
MPIPD+18, MPIPD+19, CMOR+1~, CMOR+4*, CMOR+5
DATA( SELECT+6*, SELECT+7*, SELECT+8*, SELECT+20, SELECT+22, SELECT+24*, SELECT+27, SELECT+28, SELECT+32!, SELECT+34
SELECT+36!
>> DFN HDR+2, HDR+3, HDR+4, SELECT+10, SELECT+13, SELECT+14, SELECT+17, SELECT+18, SELECT+32, SELECT+36
ADD+1
DFN2 SELECT+12~*, SELECT+13
DOB HDR+1~, HDR+4*, HDR+5*, HDR+8
DT CMOR+9
EXACT SELECT+25~, SELECT+30*, SELECT+31*, SELECT+32
ICN SELECT+3~, SELECT+8*, SELECT+10, SELECT+12, SELECT+13, MPIPD+4~, CMOR+1~, CMOR+5*, CMOR+8, CMOR+9
INDEX START~, START+1, SELECT+3~, SELECT+4*, SELECT+5, MPIPD+4~, MPIPD+5*, MPIPD+6, MPIPD+21, MPIPD+22
MPIPD+23, MPIPD+25, CMOR+1~, CMOR+4*
>> IOINHI HDR+6, HDR+7, HDR+8, HDR+9
>> IOINORM HDR+6, HDR+7, HDR+8, HDR+9
>> MPICOMP MPIPD+25
MPIFQ1 HDR+1~
MPIFQ1(2 HDR+3, HDR+4, SELECT+18
>> MPIFRTN SELECT+14*, SELECT+36*, ADD+1*
MPIMID SELECT+28~*, SELECT+30, SELECT+31
NAME SELECT+16~, SELECT+18*, SELECT+23, SELECT+27, SELECT+29, SELECT+32, SELECT+34
NAME1 HDR+1~, HDR+3*, HDR+6
NAME3 SELECT+24~*
NMMN SELECT+28~, SELECT+29*, SELECT+30, SELECT+31
NODE2 SELECT+3~, SELECT+5*, SELECT+10
NUM AGAIN1+9~*, AGAIN1+10*, AGAIN1+12, AGAIN1+13
POW MPIPD+4~, MPIPD+18*
RES1 AGAIN1!, AGAIN1+6, AGAIN1+7, END!
RES1( AGAIN1+10, AGAIN1+12, AGAIN1+13
RES1(0 AGAIN1+1, AGAIN1+2, AGAIN1+3, AGAIN1+4, AGAIN1+5
RETURN CMOR+8, END!
RETURN(0 CMOR+9, AGAIN1
SEX HDR+1~, HDR+4*, HDR+9, SELECT+16~, SELECT+18*, SELECT+20
SSN HDR+1~, HDR+3*, HDR+7, SELECT+16~, SELECT+18*, SELECT+21*, SELECT+22, SELECT+34
TAL MPIPD+4~
TMP MPIPD+4~, MPIPD+25*
TTF MPIPD+4~
VALMBCK SELECT+20*, SELECT+22*, SELECT+37*, MPIPD+27*, END*, HELP+1*, EXIT+1!
VALMCNT START+1*, EXIT+1!
VALMHDR EXIT+1!
VALMHDR(1 HDR+6*
VALMHDR(2 HDR+7*
VALMHDR(3 HDR+8*
VALMHDR(4 HDR+9*
VALMHDR(5 HDR+9*
VALMY SELECT~, SELECT+2, MPIPD+1~, MPIPD+3, CMOR+1~, CMOR+3
VALMY(0 SELECT+4, MPIPD+5, CMOR+4
>> XQORNOD(0 SELECT+1, MPIPD+2, CMOR+2
XX MPIPD+22~*, MPIPD+25~*
Y MPIPD+1~, MPIPD+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All