Routine: VAFCRAUD

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
Uncategorized	1	$$GETICN^MPIF001

Package	Total	Caller Graph
Registration	1	VAFCLAU

Entry Points

Name	Comments	DBIA/ICR reference
DISP
QUIT	;
REQ(ICN,TFL,LOC)
ASK2	;Ask for Date Range
SEND2	;
SELTF	;Allow the user to select treating facilites from a list
MONITOR(ICN,LOC,RESULT)	;
CHKSTAT2	;
GETTFL(ICN,TFL)	;Check for existing Treating Facilities
DISPLAY(ICN,LOC)	;display a remote audit report
SEND(ICN,VAFCBDT,VAFCEDT)	;
CHKSTAT(ICN)	;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	ASK2+3, ASK2+4, SEND+10, DISPLAY+7, DISPLAY+8, SELTF+14
$$GETICN^MPIF001	ASK+8
$$SITE^VASITE	GETTFL+2
$$FMADD^XLFDT	REQ+4
$$FMTE^XLFDT	SEND+3
$$NOW^XLFDT	REQ+5
$$NNT^XUAF4	GETTFL+4
EN1^XWB2HL7	REQ+3
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: !!,"Enter date range for data to be included in report." Line Location: ASK2+1
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 ",$P(ICN,"V",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 ",$P(ICN,"V",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 audit 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: ASK2+3 ASK2+4 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("VAFCRAUD"	SEND+3, SEND+13!, CHKSTAT+3, CHKSTAT+7, DISP+4, DISP+8, DISPLAY+2, DISPLAY+3, MONITOR+2, MONITOR+3 , MONITOR+4, REQ+4, REQ+5
^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, ASK2+3, ASK2+4
REQ	SEND+14
SELTF	SEND+5, CHKSTAT+8, DISP+9
SEND	ASK2+6, 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!, CHKSTAT2+6!, DISP2+5!, GETTFL+3, SENS+2
DIC	ASK+4*, ASK+5!
DIC("A"	ASK+4*
DIC(0	ASK+4*
DIR	ASK2+2!, ASK2+3!, ASK2+4!, SEND+10!, DISPLAY+7!, DISPLAY+8!, SELTF+7!, SELTF+14!
DIR("A"	ASK2+3, ASK2+4, SEND+10, SELTF+10
DIR("B"	SEND+10*
DIR(0	ASK2+3, ASK2+4, SEND+10, DISPLAY+7, DISPLAY+8, SELTF+9
DIRUT	ASK+1!, ASK2+2!, ASK2+3, ASK2+4
DT	REQ+4
DTOUT	ASK2+2!
DUOUT	ASK2+2!
DUZ	SENS+4
>> 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, ASK2+6, SEND~, SEND+2, SEND+3, SEND+13, SEND+14, SEND2+7!, CHKSTAT~ , CHKSTAT+3, CHKSTAT+4, CHKSTAT+5, CHKSTAT+7, CHKSTAT2+6!, DISP+4, DISP+5, DISP+6, 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+4, REQ+5
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+3, REQ+5
MPIDIR	SEND+1~, SEND+10*, SEND+11
R	DISPLAY+1~, DISPLAY+8*
RESULT	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	DISPLAY+1~, MONITOR+1~, REQ+3
RETURN(0	DISPLAY+3, DISPLAY+4, DISPLAY+5, MONITOR+4, REQ+5
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, 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*
VAFCBDT	ASK2+3*, ASK2+4, ASK2+6, SEND~, REQ+3
VAFCEDT	ASK2+4*, ASK2+6, SEND~, REQ+3
VALUE	REQ+2~*, REQ+3
VALUE(	REQ+2*
X	SEND+1~, SEND+7, SEND+11, SEND+12, SEND+13, SEND+14, SEND+16!, CHKSTAT+7, DISP+8
Y	ASK+6, ASK+7, ASK2+3, ASK2+4, QUIT+1!, 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

Customize PDF page

Package: Registration

Routine: VAFCRAUD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: