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

Package: Clinical Information Resource Network

Routine: RGRPDAT


Information

RGRPDAT ;BAY/ALS-ROUTINE TO CALL REMOTE PDAT ;09/14/01

Source Information

Source file <RGRPDAT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$NNT^XUAF4  
RPC Broker 2 (EN1,RPCCHK)^XWB2HL7  RTNDATA^XWBDRPC  
Registration 2 PTSEC^DGSEC4  $$SITE^VASITE  
VA FileMan 2 MIX^DIC1  ^DIR  
Master Patient Index VistA 1 $$GETICN^MPIF001  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Clinical Information Resource Network 4 RG REMOTE PDAT CHECK  RG REMOTE PDAT DISPLAY  RG REMOTE PDAT SEND  RGEX04  

Entry Points

Name Comments DBIA/ICR reference
DISP
QUIT ;
REQ(ICN,TFL,LOC)
SEND2 ;
SELTF ;Allow the user to select treating facilites from a list
MONITOR(ICN,LOC,RESULT) ;
SEND ;
CHKSTAT2 ;
GETTFL(ICN,TFL) ;Check for existing Treating Facilities
DISPLAY(ICN,LOC) ;display a remote pdat report
CHKSTAT ;check on the status for a given ICN or SSN
ASK ;Ask For Patient
SENS ;Check for patient sensitivity
DISP2 ;
D2 ;
D1 ;

External References

Name Field # of Occurrence
PTSEC^DGSEC4 SENS+2
MIX^DIC1 ASK+5
^DIR SEND+10, DISPLAY+7, DISPLAY+8, SELTF+14
$$GETICN^MPIF001 ASK+8, CHKSTAT+5, DISP+6
$$SITE^VASITE GETTFL+2
$$FMADD^XLFDT REQ+3
$$FMTE^XLFDT SEND+3
$$NOW^XLFDT REQ+4
$$NNT^XUAF4 GETTFL+4
EN1^XWB2HL7 REQ+2
RPCCHK^XWB2HL7 DISPLAY+4, MONITOR+4
RTNDATA^XWBDRPC DISPLAY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient lookup can be done by Patient Name, SSN or by ICN.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"There is no Integration Control Number assigned to this patient,",!,"no treating facilities to query."
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"Query last sent for this ICN on "_SNTDT,!
  • Line Location: SEND+3
Function Call: WRITE
  • Prompt: !,"Remote patient data queries will be sent to: "
  • Line Location: SEND+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEND+10
Function Call: WRITE
  • Prompt: !?3,"Sending Remote Query to: ",X," ",$P(TFL(X),"^")
  • Line Location: SEND+12
Function Call: WRITE
  • Prompt: !!?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query will be sent."
  • Line Location: SEND+15
Function Call: WRITE
  • Prompt: !!,"This option sends a remote query to selected treating"
  • Line Location: SEND2+2
Function Call: WRITE
  • Prompt: !,"facility site(s) for MPI/PD data for a patient."
  • Line Location: SEND2+3
Function Call: WRITE
  • Prompt: !!,"Checking the status of remote patient data query.",!
  • Line Location: CHKSTAT+2
Function Call: WRITE
  • Prompt: !!,"No remote query sent for this patient."
  • Line Location: CHKSTAT+3
Function Call: WRITE
  • Prompt: !!,"-> For ICN "_$S(+FULLICN>0:FULLICN,1:"")
  • Line Location: CHKSTAT+5
Function Call: WRITE
  • Prompt: !,"No remote query sent for this patient."
  • Line Location: CHKSTAT+9
Function Call: WRITE
  • Prompt: !?3," ",$P(TFL(SL),"^")," status: (",STATUS,")"
  • Line Location: CHKSTAT+18
Function Call: WRITE
  • Prompt: !!?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query sent for this patient."
  • Line Location: CHKSTAT+19
Function Call: WRITE
  • Prompt: !!,"This option checks the status of an existing remote patient data query."
  • Line Location: CHKSTAT2+2
Function Call: WRITE
  • Prompt: !!,"Display data returned from remote patient data queries."
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"(Be sure HISTORY is enabled to capture data!)",!
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !!,"No remote query sent for this patient."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,"-> For ICN "_$S(+FULLICN>0:FULLICN,1:"")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"No remote query sent for this patient."
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !?3," ",$P(TFL(SL),"^")," status: (",STATUS,")",!
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !?3,"There are no remote treating facilities listed for this patient.",!?3,"No remote query exists for this patient."
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !?15," - No patient data query exists for this record."
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"No data returned due to: "_$P(RET(0),"^",2)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,RET(R)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Select one or more of the following: "
  • Line Location: SELTF+11
Function Call: WRITE
  • Prompt: !!,"PATIENT MARKED SENSITIVE."
  • Line Location: SENS+5
Function Call: WRITE
  • Prompt: !,"You do not have proper security to view this record."
  • Line Location: SENS+6
Function Call: WRITE
  • Prompt: !,C1_".",?4,"("_$P(TFARR(I),"^",1)_") "_$P(TFARR(I),"^",2)
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: !,I_".",?4,"("_$P(TFARR(I),"^",1)_") "_$P(TFARR(I),"^",2)
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: ?41,I2_". ",?44,"("_$P(TFARR(I2),"^",1)_") "_$P(TFARR(I2),"^",2)
  • Line Location: D2+3
Routine Call
  • DIR
  • Line Location:
    • SEND+10
    • DISPLAY+7
    • DISPLAY+8
    • SELTF+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCN(391.91 - [#391.91] GETTFL+3
^XTMP("RGPDAT" SEND+3, SEND+13!, CHKSTAT+3, CHKSTAT+7, DISP+4, DISP+8, DISPLAY+2, DISPLAY+3, MONITOR+2, MONITOR+3
, MONITOR+4, REQ+3*, REQ+4*
^XUSEC("DG SENSITIVITY" SENS+4

Label References

Name Line Occurrences
ASK ASK+8, SEND2+5, CHKSTAT2+4, DISP2+3
CHKSTAT CHKSTAT2+5
D1 SEND+9, SELTF+13
D2 SEND+8, SELTF+12
DISP DISP2+4
DISPLAY DISP+20
GETTFL SEND+2, CHKSTAT+4, DISP+5
MONITOR GETTFL+8
QUIT ASK+6
REQ SEND+14
SELTF SEND+5, CHKSTAT+8, DISP+9
SEND SEND2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A SELTF+15!, SELTF+18*, SELTF+19!
C1 D1+1*, D1+2*, D1+3!
CNT SEND+7*, SEND+8, SEND+9, SEND+16!, SELTF+4*, SELTF+5*, SELTF+6, SELTF+8*, SELTF+9, SELTF+10
, SELTF+12, SELTF+13, SELTF+15!, SELTF+17!, SELTF+19!
D ASK+4*, ASK+5!
DFN ASK+3*, ASK+7*, ASK+8, SEND2+7!, CHKSTAT+5, CHKSTAT2+6!, DISP+6, DISP2+5!, GETTFL+3, SENS+2
DIC ASK+4*, ASK+5!
DIC("A" ASK+4*
DIC(0 ASK+4*
DIR SEND+10!, DISPLAY+7!, DISPLAY+8!, SELTF+7!, SELTF+14!
DIR("A" SEND+10*, SELTF+10*
DIR("B" SEND+10*
DIR(0 SEND+10*, DISPLAY+7*, DISPLAY+8*, SELTF+9*
DIRUT ASK+1!
DT REQ+3
DUZ SENS+4
FULLICN CHKSTAT+5~*, DISP+6~*
>> GLO DISPLAY+7*
HOME GETTFL+1~, GETTFL+2*, GETTFL+5
I SELTF+2*, SELTF+3, SELTF+4*, SELTF+5, SELTF+15!, SELTF+17!, SELTF+18*, SELTF+19!, D1+1*, D1+2
, D1+3!, D2+1*, D2+2, D2+4!
I2 D2+1*, D2+3*, D2+4!
ICN ASK+3*, ASK+8*, SEND+2, SEND+3, SEND+13, SEND+14, SEND2+7!, CHKSTAT+3, CHKSTAT+4, CHKSTAT+7
, CHKSTAT2+6!, DISP+4, DISP+5, DISP+8, DISP+20, DISP2+5!, DISPLAY~, DISPLAY+2, DISPLAY+3, GETTFL~
, GETTFL+8, MONITOR~, MONITOR+2, MONITOR+3, MONITOR+4, REQ~, REQ+2, REQ+3, REQ+4
ICNARR SEND+16!, CHKSTAT+1~, CHKSTAT+20!, DISP+3~, DISP+22!
IOF DISPLAY+7, DISPLAY+8
L CHKSTAT+1~, CHKSTAT+11*, CHKSTAT+12, CHKSTAT+20!, DISP+3~, DISP+12*, DISP+13, DISP+22!, SELTF+15!, SELTF+19!
LOC DISPLAY~, DISPLAY+3, GETTFL+1~, GETTFL+4*, GETTFL+5, GETTFL+6, GETTFL+7*, GETTFL+8, GETTFL+9, MONITOR~
, MONITOR+3, MONITOR+4, REQ~, REQ+2, REQ+4
MPIDIR SEND+1~, SEND+10*, SEND+11
R DISPLAY+1~, DISPLAY+8*
RESULT DISP+22!, DISPLAY+1~, DISPLAY+4, GETTFL+8, MONITOR~, MONITOR+4, SENS+1~, SENS+2
RESULT(0 DISPLAY+4, GETTFL+9, MONITOR+2*, MONITOR+3*
RESULT(1 SENS+3
RET DISPLAY+1~, DISPLAY+5, DISPLAY+7
RET( DISPLAY+8
RET(0 DISPLAY+6
RETURN DISP+22!, DISPLAY+1~, MONITOR+1~, REQ+2
RETURN(0 DISPLAY+3*, DISPLAY+4, DISPLAY+5, MONITOR+4*, REQ+4
REXIT ASK+6*, SEND2+1~*, SEND2+4, CHKSTAT2+1~*, CHKSTAT2+3, DISP2+1~*, DISP2+2
SL CHKSTAT+1~, CHKSTAT+12*, CHKSTAT+13, CHKSTAT+18, CHKSTAT+20!, DISP+13*, DISP+14, DISP+19, DISP+20, DISP+22!
SNTDT SEND+1~, SEND+3*
STATUS CHKSTAT+1~, CHKSTAT+13*, CHKSTAT+14*, CHKSTAT+15*, CHKSTAT+16*, CHKSTAT+17*, CHKSTAT+18, DISP+3~, DISP+14*, DISP+15*
, DISP+16*, DISP+17*, DISP+18*, DISP+19, DISP+22!, DISPLAY+1~, MONITOR+1~
TF GETTFL+3*, GETTFL+4, GETTFL+11!
TFARR SEND+16!, CHKSTAT+9, CHKSTAT+20!, DISP+10, DISP+22!, SELTF+1!, SELTF+15!
TFARR( SEND+7, CHKSTAT+11, CHKSTAT+12, DISP+12, DISP+13, SELTF+5*, SELTF+8*, SELTF+17!, SELTF+18!, SELTF+19!
, D1+1, D1+2, D2+2, D2+3
TFARR1 SELTF+1!, SELTF+15!, SELTF+17!, SELTF+19!
TFARR1( SELTF+3*, SELTF+4, SELTF+5
TFL SEND+1~, SEND+2, SEND+14, SEND+16!, CHKSTAT+1~, CHKSTAT+4, CHKSTAT+20!, DISP+3~, DISP+5, DISP+22!
, GETTFL~, REQ~
TFL( SEND+11, SEND+12, CHKSTAT+7!, CHKSTAT+13, CHKSTAT+18, DISP+8!, DISP+14, DISP+19, DISP+20, GETTFL+6*
, GETTFL+9*, SELTF+2, SELTF+3, SELTF+18!
TFL(0 SEND+4, SEND+15, CHKSTAT+6, CHKSTAT+19, DISP+7, DISP+21, GETTFL+10*
>> TXT DISPLAY+7*
X SEND+1~, SEND+7*, SEND+11*, SEND+12, SEND+13, SEND+14, SEND+16!, CHKSTAT+7*, DISP+8*
Y ASK+6, ASK+7, SEND+1~, SEND+5, SEND+10, SEND+16!, SEND2+6, CHKSTAT+1~, CHKSTAT+10, CHKSTAT2+5
, DISP+3~, DISP+11, DISP2+4, SELTF+6*, SELTF+7!, SELTF+15, SELTF+16*, SELTF+17, SELTF+18, QUIT+1!
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