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

Package: Master Patient Index VistA

Routine: MPIFCMRP


Information

MPIFCMRP ;BPCIO/CMC-PUSHING CMOR TO ANOTHER SITE ;NOV 15, 2000

Source Information

Source file <MPIFCMRP.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  
Master Patient Index VistA 5 ($$CHANGE,$$GETICN,$$GETVCCI)^MPIF001  BROAD^MPIFCMOR  $$CHK^MPIFEDIT  $$ADD^MPIFNEW  EN^MPIFREQ  
Registration 1 $$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: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Registration 1 VAFC EXCPT PUSH CMOR  

Entry Points

Name Comments DBIA/ICR reference
NEW ;
LM(PAT) ; list manager entry point to push a change of CMOR with PAT set to the DFN
  • ICR #3887
    • Status: Active
    • Usage: Private
    EDIT
    REASON
    REQNM
    PHONE
    CMOR
    APP

    External References

    Name Field # of Occurrence
    ^DIC NEW+3, CMOR+2
    ^DIE LM+22, REASON+3, REQNM+4, PHONE+3, CMOR+5, APP+7, APP+16, APP+20, APP+22
    ^DIK REASON+2, REQNM+2, PHONE+2, CMOR+3, APP+4
    $$GET1^DIQ LM+10
    EN^DIQ1 EDIT+3
    ^DIR REASON, REQNM, PHONE, APP+1
    $$CHANGE^MPIF001 APP+21
    $$GETICN^MPIF001 LM+1, LM+2
    $$GETVCCI^MPIF001 LM+3, LM+4
    BROAD^MPIFCMOR APP+23
    $$CHK^MPIFEDIT CMOR+8
    $$ADD^MPIFNEW LM+21
    EN^MPIFREQ APP+10
    $$SITE^VASITE LM+2, LM+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Patient doesn't have ICN, try again"
    • Line Location: LM+1
    Function Call: WRITE
    • Prompt: !,"Patient has a Local ICN, try again"
    • Line Location: LM+2
    Function Call: WRITE
    • Prompt: !,"Patient doesn't have a CMOR, try again"
    • Line Location: LM+3
    Function Call: WRITE
    • Prompt: !,"You are NOT the CMOR, to request to be the CMOR, use option: Create a New CMOR Change Request"
    • Line Location: LM+4
    Function Call: WRITE
    • Prompt: !,"Patient isn't SHARED - CAN'T change CMOR"
    • Line Location: LM+6
    Function Call: WRITE
    • Prompt: !,"Patient isn't SHARED with another VAMC - CAN'T change CMOR"
    • Line Location: LM+14
    Function Call: WRITE
    • Prompt: !!,"Already have request for this patient"
    • Line Location: LM+19
    Function Call: WRITE
    • Prompt: !,"REQUEST NUMBER:",REQ
    • Line Location: LM+24
    Function Call: WRITE
    • Prompt: !,"Answer must be 3-60 characters in length."
    • Line Location: REASON+1
    Function Call: WRITE
    • Prompt: "... Request deleted"
    • Line Location: REASON+2
    Function Call: WRITE
    • Prompt: !,"Must pick valid user"
    • Line Location: REQNM+1
    Function Call: WRITE
    • Prompt: "... Request deleted"
    • Line Location: REQNM+2
    Function Call: WRITE
    • Prompt: !,"Answer must be 4-20 charaters in length."
    • Line Location: PHONE+1
    Function Call: WRITE
    • Prompt: "... Request deleted"
    • Line Location: PHONE+2
    Function Call: WRITE
    • Prompt: "... Request deleted"
    • Line Location: CMOR+3
    Function Call: WRITE
    • Prompt: !,"This request is missing required data."
    • Line Location: CMOR+8
    Function Call: WRITE
    • Prompt: "... Request deleted"
    • Line Location: APP+4
    Function Call: WRITE
    • Prompt: !,"... Request will be sent"
    • Line Location: APP+7
    Routine Call
    • DIC
    • Line Location:
      • NEW+3
      • CMOR+2
    Routine Call
    • DIE
    • Line Location:
      • LM+22
      • REASON+3
      • REQNM+4
      • PHONE+3
      • CMOR+5
      • APP+7
      • APP+16
      • APP+20
      • APP+22
    Routine Call
    • DIR
    • Line Location:
      • REASON
      • REQNM
      • PHONE
      • APP+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^VA(200 - [#200] Classic Fileman Calls
    ^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
    ^MPIF(984.9 - [#984.9] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCN(391.91 - [#391.91] LM+6, LM+8
    ^DIE - [#.402] APP+20*, APP+22*
    ^MPIF(984.9 - [#984.9] LM+17, LM+18, LM+23, EDIT+1, APP+17

    Label References

    Name Line Occurrences
    EDIT CMOR+8
    LM NEW+6
    NEW LM+1, LM+2, LM+3, LM+4, LM+19
    PHONE PHONE+1
    REASON REASON+1, APP+6
    REQNM REQNM+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CMOR APP+13~, APP+17*, APP+18, APP+21
    DA LM+20~, LM+21*, LM+23, EDIT+2~*, CMOR+8, APP+2*, APP+10, APP+15*, APP+20*, APP+22*
    , APP+23
    DIC NEW+1~, NEW+2*, EDIT+2~*, CMOR*
    DIC("A" NEW+2*, CMOR*
    DIC("S" CMOR+1*
    DIC(0 NEW+2*, CMOR*
    DIE LM+20~, LM+22*, REASON+3*, REQNM+4*, PHONE+3*, CMOR+5*, APP+7*, APP+15*
    DIK LM+20~, REASON+2*, REQNM+2*, PHONE+2*, CMOR+3*, APP+4*
    DIQ EDIT+2~*
    DIQ(0 EDIT+2*
    DIR LM+20~, APP+1!, APP+13~
    DIR("?" REASON*, REQNM*, PHONE*
    DIR("A" REASON*, REQNM*, PHONE*, APP*
    DIR("B" REQNM*!, PHONE*!, APP*
    DIR(0 REASON*, REQNM*, PHONE*, APP*
    DIRUT LM+20~, APP+3
    DR LM+20~, LM+22*, EDIT+2*, REASON+3*, REQNM+4*, PHONE+3*, CMOR+5*, APP+7*, APP+13~, APP+15*
    , APP+20*, APP+22*
    DTOUT NEW+1~, NEW+4
    DUOUT NEW+1~, NEW+4
    DUZ EDIT, EDIT+1, EDIT+2, EDIT+4, EDIT+5
    ENT LM+16~, LM+17*, LM+18
    ERR APP+9~*, APP+10
    ERROR LM+20~, APP+13~, APP+14*, APP+23
    MPIFHL7 APP+9~*, APP+10
    MPIFNM LM+16~
    MPIFNM(200 EDIT+4
    N0 LM+20~
    PAT NEW+1~, NEW+5*, NEW+6, LM~, LM+1, LM+2, LM+3, LM+4, LM+6, LM+8
    , LM+17, LM+22, APP+21
    PERS LM+20~, REQNM+3*
    PHONE LM+20~, LM+21*, EDIT+1*, EDIT+5*, PHONE
    REQ LM+20~, LM+23*, LM+24
    REQNM LM+16~, EDIT+4*, EDIT+5*, REQNM
    STOP LM+16~, LM+17*, LM+18*, LM+19
    TCNT LM+5~, LM+8*, LM+13*, LM+14
    TDA LM+20~, LM+21*, APP+2, APP+15, APP+17, APP+20, APP+22
    TEXT APP+13~, APP+14*
    TMP LM+5~, LM+6*, LM+8*, LM+10, APP+13~, APP+21*, APP+22
    TP LM+10~*, LM+11
    TSITE CMOR+4~*, CMOR+5
    X NEW+1~, REASON+2, REASON+3, REQNM+2, PHONE+2, PHONE+3, CMOR+3
    Y NEW+1~, NEW+4, NEW+5, LM+20~, REASON+1, REQNM+1, REQNM+3, REQNM+4, PHONE+1, CMOR+4
    , APP+3, APP+6
    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