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: RGPVMPI

Package: Clinical Information Resource Network

Routine: RGPVMPI


Information

RGPVMPI ;BIR/PTD-REMOTE PRIMARY VIEW DISPLAY FROM MPI ;5/17/07

Source Information

Source file <RGPVMPI.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 2 MIX^DIC1  ^DIR  
Clinical Information Resource Network 1 (EN,SAPV)^RGEX06  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  
Master Patient Index VistA 1 $$GETICN^MPIF001  
RPC Broker 1 (EN1,RPCCHK)^XWB2HL7  

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: 2

Package Total Caller Graph
Clinical Information Resource Network 2 RG PRIMARY VIEW FROM MPI  RGEX03  

Entry Points

Name Comments DBIA/ICR reference
INTRO ;Display purpose of option
ASK ;Ask For Patient
SEND ;Send a remote query to the MPI for Primary View PDAT
NOQ ;No previous query exists for this ICN
OLDQ ;Query previously sent for this ICN
DISP ;Display Primary View Data
EXIT ;Kill variables and quit
RPC ;Send the Remote Query
FAIL ;Status of RPC call - unsuccessful after 30 seconds ;**53

External References

Name Field # of Occurrence
MIX^DIC1 ASK+3
^DIR OLDQ+12, DISP+4
$$GETICN^MPIF001 ASK+6
EN^RGEX06 DISP+6
SAPV^RGEX06 DISP+5
FULL^VALM1 SEND+7
PAUSE^VALM1 RPC+12, FAIL+5
$$FMADD^XLFDT RPC+4
$$FMTE^XLFDT OLDQ+2
$$NOW^XLFDT RPC+5
EN1^XWB2HL7 RPC+3
RPCCHK^XWB2HL7 OLDQ+6, RPC+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !,"This option sends a remote request for data to the Master Patient"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"Index, using a Remote Procedure Call (RPC). When the RPC returns"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"the information, you can review Primary View data as it currently"
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"exists on the MPI Patient Data Inquiry (PDAT) report."
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !!,"Choose the patient for whom Primary View data is to be requested."
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !,"The selected patient must have an Integration Control Number (ICN)."
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !,"You can select by Patient Name, Social Security Number, or ICN.",!
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !,"There is no Integration Control Number for this patient."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"No Exception Data available."
  • Line Location: SEND+4
Function Call: WRITE
  • Prompt: !,"No ICN defined."
  • Line Location: SEND+5
Function Call: WRITE
  • Prompt: !!,"Sending a Remote Query to the Master Patient Index."
  • Line Location: RPC+1
Function Call: WRITE
  • Prompt: !,"This will take some time; please be patient."
  • Line Location: RPC+2
Function Call: WRITE
  • Prompt: !,"Query data has returned from the MPI and is available for review."
  • Line Location: RPC+8
Function Call: WRITE
  • Prompt: !!,"Problem with Query: ",RETURN(0)_"^"_$G(RETURN(1))
  • Line Location: RPC+10
Function Call: WRITE
  • Prompt: !,"Your query request has NOT returned data from the MPI after trying for"
  • Line Location: FAIL+1
Function Call: WRITE
  • Prompt: !,"30 seconds. This could be due to network issues. Please try again later."
  • Line Location: FAIL+2
Routine Call
  • DIR
  • Line Location:
    • OLDQ+12
    • DISP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("RGPVMPI" NOQ+1, OLDQ+1, OLDQ+2, OLDQ+5, OLDQ+15!, RPC+4*, RPC+5*, FAIL+3!

Label References

Name Line Occurrences
ASK ASK+6
DISP NOQ+1
EXIT ASK+4, SEND+3, DISP+1
FAIL OLDQ+8, RPC+9
RPC NOQ+1, OLDQ+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EXIT+1!, RPC+7*
D ASK+2*, ASK+3!, EXIT+1!
>> DATA SEND+4, SEND+5
DFN ASK+1*, ASK+5*, ASK+6, EXIT+1!
DIC ASK+2*, ASK+3!, EXIT+1!
DIC("A" ASK+2*
DIC(0 ASK+2*
DIR OLDQ+12!, OLDQ+13!, OLDQ+17!, DISP+4!, EXIT+1!
DIR("?" OLDQ+11*
DIR("A" OLDQ+10*
DIR("B" OLDQ+12*
DIR(0 OLDQ+10*, DISP+4*
DIRUT OLDQ+12, EXIT+1!
DT RPC+4
DTOUT ASK+1!, EXIT+1!
DUOUT ASK+1!, EXIT+1!
IOF INTRO+1, DISP+5
QFLG SEND+2*, DISP+1, DISP+2, DISP+4*, EXIT+1!
QUIT SEND+2*, SEND+3, SEND+4*, SEND+5*, OLDQ+12*, DISP+1, EXIT+1!, RPC+11*, FAIL+4*
RESULT SEND+2~, OLDQ+6, RPC+7
RESULT(0 OLDQ+8, OLDQ+9, RPC+7, RPC+8, RPC+9
RETURN SEND+2~, RPC+3
RETURN(0 OLDQ+5*, OLDQ+6, RPC+3, RPC+5, RPC+7, RPC+10
RETURN(1 RPC+10
RGICN ASK+1*, ASK+6*, SEND+5*, NOQ+1, OLDQ+1, OLDQ+2, OLDQ+5, OLDQ+15, DISP+5, DISP+6
, EXIT+1!, RPC+3, RPC+4, RPC+5, FAIL+3
SAPV INTRO+1*, SEND+3, DISP+2, DISP+6, EXIT+1!, RPC+12, FAIL+5
SNTDT SEND+2~, OLDQ+2*, OLDQ+3
>> VALMBCK SEND+6*
X EXIT+1!
Y ASK+4, ASK+5, OLDQ+13, OLDQ+14, DISP+4, EXIT+1!
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