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
Print Page as PDF
Routine: RGTKPOC

Package: Clinical Information Resource Network

Routine: RGTKPOC


Information

RGTKPOC ;BIRMIO/CML-Establish Visitor Record for TK POC ;25-NOV-14

Source Information

Source file <RGTKPOC.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RGTKPOC+18
Function Call: WRITE
  • Prompt: !!,"This option allows you to create a Visitor Record in the New Person file on"
  • Line Location: RGTKPOC+19
Function Call: WRITE
  • Prompt: !,"the MPI production account. The purpose of this action is to accomplish the"
  • Line Location: RGTKPOC+20
Function Call: WRITE
  • Prompt: !,"first step toward establishing your ToolKit POC remote view access. Once this"
  • Line Location: RGTKPOC+21
Function Call: WRITE
  • Prompt: !,"action is completed successfully you will have the ability to use the new tools."
  • Line Location: RGTKPOC+22
Function Call: WRITE
  • Prompt: !!,"Note: It is important that prior to using this option you be set up correctly"
  • Line Location: RGTKPOC+23
Function Call: WRITE
  • Prompt: !,"as a user in your local New Person file (#200). You should verify your user"
  • Line Location: RGTKPOC+24
Function Call: WRITE
  • Prompt: !,"record has the correct Name, SSN, Network Username and Phone Contact Number."
  • Line Location: RGTKPOC+25
Function Call: WRITE
  • Prompt: !!,"Attempting to establish Visitor Record on MPI..."
  • Line Location: RGTKPOC+27
Function Call: WRITE
  • Prompt: !!,"<Missing data> - ",$P(USR,"^",2),!,"Please populate this data via the User Management menu."
  • Line Location: RGTKPOC+32
Function Call: WRITE
  • Prompt: !!,"<Missing Network Username> - please populate this field via the User Management",!,"menu as it is required for mapping your VistA account to your ToolKit account."
  • Line Location: RGTKPOC+33
Function Call: WRITE
  • Prompt: !!,"Attempt was unsuccessful: "_$P(RETURN(1),"^",2)
  • Line Location: RGTKPOC+36
Function Call: WRITE
  • Prompt: !!,"Attempt was unsuccessful: "_$S($P(RET(0),"^",2)["Handle":"Error in Process",1:$P(RET(0),"^",2))
  • Line Location: RGTKPOC+42
Function Call: WRITE
  • Prompt: !!,"Attempt was unsuccessful, unable to get data after 10 attempts."
  • Line Location: RGTKPOC+43
Function Call: WRITE
  • Prompt: !!,"Your Visitor Record was successfully established, ",!,"and your ToolKit user profile updated."
  • Line Location: RGTKPOC+47
Function Call: WRITE
  • Prompt: !!,"There was an issue with your record ",RET(0),!,"Please report this to HC IdM for assistance."
  • Line Location: RGTKPOC+48
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUIT+1
Info |  Source |  Entry Points |  Interaction Calls