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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VAFCTF

Package: Registration

Routine: VAFCTF


Information

VAFCTF ;BIR/DLR-Utility for capturing patient's Date Last Treated and Event Reason ;9/9/2002

Source Information

Source file <VAFCTF.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 IN5^VADPT  FILE^VAFCTFU  $$SITE^VASITE  
Clinical Information Resource Network 1 EXC^RGHLLOG  
Kernel 1 $$KSP^XUPARAM  
Master Patient Index VistA 1 $$ICNLC^MPIF001  
Scheduling 1 (GETGEN,PARSE)^SDOE  

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 VAFCQRY2  

Entry Points

Name Comments DBIA/ICR reference
EN1(VAFCDFN,VAFCSUP) ; determine the LAST TREATMENT DATE for a single
; patient
; input: VAFCDFN - the dfn of the patient
; VAFCSUP - if 1, suppress add entries to the ADT HL7 PIVOT
; (#391.71) file for TF messaging - VAFCTFMF (optional)
; output: VAFCDATE - patient's DATE LAST TREATED
; VAFCENVR - event reason
ADMDIS(DFN) ; find the patient's last admission and discharge dates if
; they exist.
; Input: DFN - ien of the patient (file 2)
ENCDT(DFN,INPDT) ; find the last patient check out date/time. 'ADFN'
; cross-reference accessed through DBIA: 2953
; Input: DFN - ien of the patient (file 2)
; INPDT - date (if any) returned from the inpatient admission/
; discharge subroutine

External References

Name Field # of Occurrence
$$ICNLC^MPIF001 EN1+25
EXC^RGHLLOG EN1+28
GETGEN^SDOE ENCDT+12
PARSE^SDOE ENCDT+13
IN5^VADPT ADMDIS+5
FILE^VAFCTFU EN1+28
$$SITE^VASITE EN1+25
$$KSP^XUPARAM EN1+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SCE("ADFN" ENCDT+10, ENCDT+11

Label References

Name Line Occurrences
$$ADMDIS EN1+11
$$ENCDT EN1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADMDIS+5~
DFN ADMDIS~, ENCDT~, ENCDT+7, ENCDT+10, ENCDT+11
ERR EN1+8~, EN1+28
ERR( EN1+28
ICN EN1+25~*
INPDT ENCDT~, ENCDT+10
STA EN1+25~*, EN1+28
U EN1+9*, EN1+16, EN1+17, EN1+28, ADMDIS+8, ADMDIS+10
VAERR ADMDIS+5~
VAFCADMD EN1+8~, EN1+11*, EN1+12*, EN1+13
VAFCDATA ENCDT+8~, ENCDT+13, ENCDT+15!, ENCDT+18!
VAFCDATE EN1+8~, EN1+18*, EN1+23*, EN1+24, EN1+28
VAFCDFN EN1~, EN1+11, EN1+13, EN1+25, EN1+28
VAFCENDT EN1+8~, EN1+13*, EN1+16, EN1+17
VAFCENVR EN1+8~, EN1+23*, EN1+24*, EN1+28
VAFCLAST EN1+8~, EN1+11*, EN1+13, EN1+16*, EN1+17*, EN1+18
VAFCPARS ENCDT+15!
VAFCPARS( ENCDT+14
VAFCPURG ENCDT+8~, ENCDT+18!
VAFCSITE EN1+8~, EN1+10*, EN1+28
VAFCSUP EN1~, EN1+28
VAFCTYPE EN1+8~, EN1+18*, EN1+24
VAFCX ENCDT+8~, ENCDT+9*, ENCDT+10*, ENCDT+11, ENCDT+14, ENCDT+18!
VAFCX1 ENCDT+8~, ENCDT+11*, ENCDT+12, ENCDT+18!
VAFCX2 ENCDT+8~, ENCDT+9*, ENCDT+10, ENCDT+11, ENCDT+14*, ENCDT+18!
VAFCX3 ENCDT+8~, ENCDT+9*, ENCDT+14*, ENCDT+20*, ENCDT+21*, ENCDT+23*, ENCDT+24
VAIP ADMDIS+5~
VAIP("D" ADMDIS+5*
VAIP(13 ADMDIS+6, ADMDIS+8, ADMDIS+10, ADMDIS+12, ADMDIS+14
VAIP(17 ADMDIS+6, ADMDIS+8, ADMDIS+10, ADMDIS+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All