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

Package: Registration

Routine: VAFCRAUD


Information

VAFCRAUD ;BHAM/DRI-ROUTINE TO CALL VAFC REMOTE AUDIT (PATIENT) ;2/22/02

Source Information

Source file <VAFCRAUD.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

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

Package Total Caller Graph
Registration 1 VAFCLAU  

Entry Points

Name Comments DBIA/ICR reference
ASK ;Ask For Patient
ASK2 ;Ask for Date Range
QUIT ;
SEND(ICN,VAFCBDT,VAFCEDT) ;
SEND2 ;
CHKSTAT(ICN) ;check on the status for a given ICN or SSN
CHKSTAT2 ;
DISP
DISP2 ;
DISPLAY(ICN,LOC) ;display a remote audit 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 ;

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