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

Package: Clinical Information Resource Network

Routine: RGPOC


Information

RGPOC ;BIR/PTD-ADD/EDIT POINT OF CONTACT OPTION ;8/22/01

Source Information

Source file <RGPOC.m>

Entry Points

Name Comments DBIA/ICR reference
INTRO ;Introduction to Option
ASK ;Select POC to add/edit.
MAIN ;Direct flow based on variable RGANS.
AGAIN ;Return to selection prompt?
SEND ;Send message to Data Management Team
DOMAIN ;Determine test or production account (production must have
END ;Kill variables
NAME(RGPC,RGFLD) ;Edit IEN of POC from CIRN SITE PARAMETER (#991.8) file.
PHONE(RGIEN) ;Edit POC COMMERCIAL PHONE (#.135) from NEW PERSON (#200) file.
CNVRTNM(NAME) ;Convert IEN from NEW PERSON (#200) to printable name
ERROR1(RGPOC) ;Write error message 1 for type POC.
ERROR2(RGPOC,RGFLD,RGOLDNAM,RGNEWNAM) ;Write error message 2 for type POC.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option allows you to transmit information to the MPI/PD Data"
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !,"Management team so that the Point of Contact website can be updated."
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !!,"To obtain a list of MPI/PD Points of Contact for each facility,"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"look for the POC web link on the MPI/PD Home Page."
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !!,"The COMMERCIAL PHONE (#.135) field in the NEW PERSON (#200) file"
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"will only accept numbers and punctuation, 4-20 characters."
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !!,"Please include the entire phone number:",!,"area code, 7 digit number and extension (e.g., AAA NNN NNNN XXXX)"
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !!,"A contact name without a phone number will NOT be transmitted."
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !," ==="
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AGAIN+3
Function Call: WRITE
  • Prompt: @IOF,!,"The following data will be transmitted to the MPI/PD Data Management team.",!
  • Line Location: SEND+3
Function Call: WRITE
  • Prompt: !,RGARRAY(RGNUM)
  • Line Location: SEND+5
Function Call: WRITE
  • Prompt: !!,"No data will be transmitted from a TEST account."
  • Line Location: DOMAIN+9
Function Call: WRITE
  • Prompt: !!,"Sending information to the MPI/PD Data Management team now.",!
  • Line Location: DOMAIN+21
Function Call: WRITE
  • Prompt: !!,"No "_RGPOC_" Point of Contact identified."
  • Line Location: ERROR1+1
Function Call: WRITE
  • Prompt: !!,"No "_RGPOC_" Point of Contact phone number identified."
  • Line Location: ERROR2+1
Function Call: WRITE
  • Prompt: !,RGPOC_" Point of Contact restored to original value."
  • Line Location: ERROR2+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^DIC(4.2 - [#4.2] FIND1^DIC,  GET1^DIQ
^HLCS(870 - [#870] GET1^DIQ
^RGSITE(991.8 - [#991.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call