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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 $$FIND1^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Clinical Information Resource Network 1 (POC1,POC2,POC3,POC4,POC5,POC6)^RGPOC1  
Health Level Seven 1 LINK^HLUTIL3  
MailMan 1 ^XMD  
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
Clinical Information Resource Network 2 RG UPDATE POINT OF CONTACT  RGPOC1  

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.

External References

Name Field # of Occurrence
$$FIND1^DIC DOMAIN+7
^DIE NAME+9, PHONE+13, ERROR2+7
$$GET1^DIQ DOMAIN+6, DOMAIN+7, PHONE+6, PHONE+17, CNVRTNM+4
^DIR ASK+19, AGAIN+3
LINK^HLUTIL3 DOMAIN+5
POC1^RGPOC1 MAIN+2, MAIN+9
POC2^RGPOC1 MAIN+3, MAIN+10
POC3^RGPOC1 MAIN+4, MAIN+11
POC4^RGPOC1 MAIN+5, MAIN+12
POC5^RGPOC1 MAIN+6, MAIN+13
POC6^RGPOC1 MAIN+7, MAIN+14
$$SITE^VASITE DOMAIN+12, DOMAIN+18
^XMD DOMAIN+20

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
Routine Call
  • DIC
  • Line Location:
    • DOMAIN+7
Routine Call
  • DIE
  • Line Location:
    • NAME+9
    • PHONE+13
    • ERROR2+7
Routine Call
  • DIR
  • Line Location:
    • ASK+19
    • AGAIN+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RGSITE(991.8 - [#991.8] NAME+6, NAME+7, NAME+10, NAME+13, ERROR2+5, ERROR2+8
^VA(200 - [#200] PHONE+11, PHONE+14

Label References

Name Line Occurrences
ASK AGAIN+3
END ASK+19, AGAIN+1, AGAIN+3, AGAIN+4
SEND MAIN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA END+1!, NAME+8*, NAME+9!, PHONE+12*, PHONE+13!, ERROR2+6*, ERROR2+9!
DIC END+1!
DIE END+1!, NAME+8*, NAME+9!, PHONE+12*, PHONE+13!, ERROR2+6*, ERROR2+9!
DIR ASK+1!, AGAIN+2!, END+1!
DIR("?" ASK+10*, ASK+11*, ASK+12*, ASK+13*, ASK+14*, ASK+15*, ASK+16*, ASK+17*, ASK+18*
DIR("A" ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, ASK+7*, ASK+8*, AGAIN+2*
DIR("B" ASK+9*, AGAIN+2*
DIR(0 ASK+1*, AGAIN+2*
DIRUT ASK+19, END+1!
DR END+1!, NAME+8*, NAME+9!, PHONE+12*, PHONE+13!, ERROR2+6*, ERROR2+9!
DTOUT END+1!, NAME+11, PHONE+15
DUZ DOMAIN+13
HLL DOMAIN+5, END+1!
HLL(0 DOMAIN+6
IEN DOMAIN+6*, END+1!
IOF INTRO+1, AGAIN+3, SEND+3
NAME CNVRTNM~, CNVRTNM+3, CNVRTNM+4
RGAD2NFN END+1!
RGAD2NNM END+1!
RGAD2OFN MAIN+8*, MAIN+10, END+1!
RGAD2ONM MAIN+10, END+1!
RGADMNFN END+1!
RGADMNNM END+2!
RGADMOFN MAIN+8*, MAIN+9, END+2!
RGADMONM MAIN+9, END+2!
RGANS ASK+19*, MAIN+2, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+8, END+2!
RGARRAY END+2!
RGARRAY( SEND+5
RGARRAY(0 SEND+1
RGARRAY(1 DOMAIN+17*
RGARRAY(2 DOMAIN+18*
RGARRAY(3 DOMAIN+19*
RGDATA END+2!
RGDMNC DOMAIN+4~, DOMAIN+7*, DOMAIN+9
RGDOMAIN DOMAIN+4~*, DOMAIN+6*, DOMAIN+8, DOMAIN+9, END+2!
RGFLD NAME~, NAME+8, ERROR2~, ERROR2+4!, ERROR2+6, ERROR2+9!
RGHL2NFN END+2!
RGHL2NNM END+2!
RGHL2OFN END+2!
RGHL2ONM END+3!
RGHL7NFN END+3!
RGHL7NNM END+3!
RGHL7OFN MAIN+8*, MAIN+13, END+3!
RGHL7ONM MAIN+13, END+3!
RGIEN PHONE~, PHONE+6, PHONE+11, PHONE+12, PHONE+14, PHONE+17
RGIR2NFN END+3!
RGIR2NNM END+3!
RGIR2OFN MAIN+8*, MAIN+12, END+3!
RGIR2ONM MAIN+12, END+3!
RGIRMNFN END+4!
RGIRMNNM END+4!
RGIRMOFN MAIN+8*, MAIN+11, END+4!
RGIRMONM MAIN+11, END+4!
RGNAME CNVRTNM+2~, CNVRTNM+4*, CNVRTNM+5
RGNEWFON PHONE+5~, PHONE+17*, PHONE+18*, PHONE+19*, PHONE+20
RGNEWNAM NAME+5~, NAME+13*, NAME+14, ERROR2~, ERROR2+4!
RGNUM SEND+4*, SEND+5*, END+4!
RGOLDFON PHONE+5~, PHONE+6*, PHONE+7*, PHONE+8*, PHONE+15, PHONE+20
RGOLDNAM NAME+5~, NAME+6*, NAME+11, NAME+14, ERROR2~, ERROR2+4!, ERROR2+9!
RGPC NAME~, NAME+6, NAME+13
RGPOC ERROR1~, ERROR1+1, ERROR2~, ERROR2+1, ERROR2+4!, ERROR2+10
RGQUIT MAIN+1*, AGAIN+1, END+4!
X END+4!
XMDUZ DOMAIN+13*, END+4!
XMSUB DOMAIN+12*, END+4!
XMTEXT DOMAIN+15*, END+4!
XMY END+4!
XMY("G.MPI/PD POC UPDATE@MPI-AUSTIN.DOMAIN.EXT" , DOMAIN+14*
Y ASK+19, AGAIN+3, END+4!, NAME+12, PHONE+16
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