Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call