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

Package: Master Patient Index VistA

Routine: MPIFEDIT


Information

MPIFEDIT ;BHM/RGY-Request a CMOR for patient ;FEB 20, 1998

Source Information

Source file <MPIFEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
NEW ;
EDIT
REASON
REQNM
PHONE
APP
CHK(IEN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient doesn't have ICN, try again"
  • Line Location: NEW+10
Function Call: WRITE
  • Prompt: !!,"Patient doesn't have a CMOR, try again"
  • Line Location: NEW+11
Function Call: WRITE
  • Prompt: !!,"You are the CMOR, to push the CMOR to another site use option: PUSH CMOR REQUEST"
  • Line Location: NEW+12
Function Call: WRITE
  • Prompt: !!,"Already have request for this patient"
  • Line Location: NEW+17
Function Call: WRITE
  • Prompt: !,"REQUEST NUMBER:",REQ
  • Line Location: NEW+23
Function Call: WRITE
  • Prompt: !,"*** Current CMOR: "_$P(CMOR,"^",2)_" ("_$P(CMOR,"^")_") ***"
  • Line Location: NEW+27
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: !,"This request is missing required data."
  • Line Location: PHONE+4
Function Call: WRITE
  • Prompt: "... Request deleted"
  • Line Location: APP+3
Function Call: WRITE
  • Prompt: !,"... Request will be sent"
  • Line Location: APP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^MPIF(984.9 - [#984.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call