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 ; 5/6/20 5:29pm

Source Information

Source file <VAFCTF.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 ($$IEN,$$STA)^XUAF4  $$KSP^XUPARAM  
Registration 2 IN5^VADPT  FILE^VAFCTFU  
Clinical Information Resource Network 1 EXC^RGHLLOG  
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+27
EXC^RGHLLOG EN1+30
GETGEN^SDOE ENCDT+12
PARSE^SDOE ENCDT+13
IN5^VADPT ADMDIS+5
FILE^VAFCTFU EN1+30
$$IEN^XUAF4 EN1+12
$$STA^XUAF4 EN1+12
$$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+13
$$ENCDT EN1+15

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+30
ERR( EN1+30
ICN EN1+27~*
INPDT ENCDT~, ENCDT+10
STA EN1+8~, EN1+12*, EN1+30
U EN1+9*, EN1+18, EN1+19, EN1+30, ADMDIS+8, ADMDIS+10
VAERR ADMDIS+5~
VAFCADMD EN1+8~, EN1+13*, EN1+14*, EN1+15
VAFCDATA ENCDT+8~, ENCDT+13, ENCDT+15!, ENCDT+18!
VAFCDATE EN1+8~, EN1+20*, EN1+25*, EN1+26, EN1+30
VAFCDFN EN1~, EN1+13, EN1+15, EN1+27, EN1+30
VAFCENDT EN1+8~, EN1+15*, EN1+18, EN1+19
VAFCENVR EN1+8~, EN1+25*, EN1+26*, EN1+30
VAFCLAST EN1+8~, EN1+13*, EN1+15, EN1+18*, EN1+19*, EN1+20
VAFCPARS ENCDT+15!
VAFCPARS( ENCDT+14
VAFCPURG ENCDT+8~, ENCDT+18!
VAFCSITE EN1+8~, EN1+10*, EN1+12*, EN1+30
VAFCSUP EN1~, EN1+30
VAFCTYPE EN1+8~, EN1+20*, EN1+26
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