Routine: RGRPDAT

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

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
ASK	;Ask For Patient
SEND	;
SEND2	;
CHKSTAT	;check on the status for a given ICN or SSN
CHKSTAT2	;
DISP
DISP2	;
DISPLAY(ICN,LOC)	;display a remote pdat report
GETTFL(ICN,TFL)	;Check for existing Treating Facilities
SELTF	;Allow the user to select treating facilites from a list
MONITOR(ICN,LOC,RESULT)	;
REQ(ICN,TFL,LOC)
SENS	;Check for patient sensitivity
D1	;
D2	;
QUIT	;

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!

Customize PDF page

Package: Clinical Information Resource Network

Routine: RGRPDAT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: