Routine: VAFCTFU2

Information

VAFCTFU2 ;BHM/CMC,CKN-Utilities for the Treating Facility file 391.91, CONTINUED ;2/2/21 10:41

Package	Total	Call Graph
Kernel	1	($$IEN,$$STA)^XUAF4
Master Patient Index VistA	1	($$GETDFN,$$GETICN)^MPIF001
Registration	1	FILENEW^VAFCTFU
VA FileMan	1	($$GET1,GETS)^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 11

Package	Total	Caller Graph
Registration	6	DGPFHLS DGPFUT2 DGRPU VAFC LOCAL GETCORRESPONDINGIDS VAFC NEW NC TREATING FACILITY VAFCCRNR
Consult Request Tracking	3	GMRCCCR1 GMRCIEVT GMRCIUTL
Integrated Billing	1	IBARXCFL
Mental Health	1	YTQRQAD

Entry Points

Name	Comments	DBIA/ICR reference
TFL(LIST,PT)	;for this PT [patient] (either DFN, ICN or EDIPI) return the list of treating facilities ; CALLED FROM RPC VAFC LOCAL GET CORRESPONDINGIDS ; PT values -->	ICR #4648 Status: Active Usage: Private ICR #7233 Status: Withdrawn Usage: Private
GETICN(EDIPI)	;return the ICN when EDIPI is passed
SET(TFIEN,ARY,CTR)	;This sets the array with the treating facility list. ; Ex ARY(1)=<ID> ^ <ID TYPE> ^ <Assigning Authority> ^ <Assigning Facility> ^ <ID Status>
QUERYTF(PAT,ARY)	;a query for Treating Facility.
QUERYTFQ
NEWTF(RESULT,DFN,EDIPI)	; ; for MPIC_2019 ; called from RPC: VAFC NEW NC TREATING FACILITY ; Input: ; DFN: Vista Patient Identifier will be the PATIENT file (#2) IEN (aka DFN) ; example of DFN="7168937"

External References

Name	Field # of Occurrence
$$GET1^DIQ	TFL+44
GETS^DIQ	TFL+46
$$GETDFN^MPIF001	TFL+41, TFL+58
$$GETICN^MPIF001	TFL+57, GETICN+8, QUERYTF+26
FILENEW^VAFCTFU	NEWTF+61
$$IEN^XUAF4	TFL+44, GETICN+2, GETICN+6
$$STA^XUAF4	TFL+52, SET+5, SET+7

RPC Name	Call Tags
VAFC LOCAL GETCORRESPONDINGIDS	TFL
VAFC NEW NC TREATING FACILITY	NEWTF

FileNo	Call Tags
^DGCN(391.92 - [#391.92]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TFL+19, QUERYTF+19, NEWTF+27
^DGCN(391.91 - [#391.91]	TFL+35, TFL+56, GETICN+4, GETICN+5, GETICN+6, GETICN+7, SET+3, SET+32, SET+33, QUERYTF+30 , QUERYTF+31, NEWTF+48, NEWTF+55, NEWTF+67, NEWTF+69
^DGCN(391.919 - [#391.919]	TFL+51, SET+43
^DGCN(391.92 - [#391.92]	TFL+44, TFL+45
^DIC(4 - [#4]	TFL+31, NEWTF+44
^DPT - [#2]	NEWTF+34

Label References

Name	Line Occurrences
$$QUERYTF	TFL+59
QUERYTFQ	QUERYTF+17, QUERYTF+19, QUERYTF+24
SET	QUERYTF+32, NEWTF+58, NEWTF+72

Naked Globals

Name	Field # of Occurrence
^(	NEWTF+55, NEWTF+69

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AA	TFL+42~, TFL+50*, TFL+52
ARY	SET~, SET+44, QUERYTF~, QUERYTF+17, QUERYTF+26, QUERYTF+32, QUERYTF+33
ASSAUTH	SET+2~, SET+35, SET+37, SET+39, SET+40, SET+44
ASSIGN	TFL+18~, TFL+23, TFL+34, TFL+35, TFL+44, NEWTF+26~, NEWTF+37, NEWTF+42
CTR	TFL+42~, TFL+43, TFL+52, SET~, SET+44, QUERYTF+13~, QUERYTF+18, QUERYTF+26, QUERYTF+32, NEWTF+26~ , NEWTF+52*, NEWTF+58, NEWTF+72, NEWTF+73
DA	TFL+18~
DFN	TFL+18~, TFL+56, TFL+57, TFL+58, GETICN+1~, GETICN+7*, GETICN+8, GETICN+9, QUERYTF+23, NEWTF~ , NEWTF+31
DGCN	SET+2~
DGCN(0	SET+3*, SET+5, SET+7
DIC	TFL+18~
DIQ	TFL+18~
DR	TFL+18~
EDIPI	TFL+18~, GETICN~, GETICN+4, GETICN+5, GETICN+6, NEWTF~, NEWTF+37, NEWTF+38
EN	GETICN+1~, GETICN+6*, GETICN+7, SET+2~
ERROR	NEWTF+26~, NEWTF+61
ERROR(	NEWTF+62, NEWTF+63
FAC	TFL+42~, TFL+47*, TFL+51, TFL+52
FOUND	SET+2~, SET+44*
ICN	TFL+18~, TFL+34, TFL+41, TFL+54, TFL+57, TFL+58, TFL+59, GETICN+1~, GETICN+8, GETICN+9 , GETICN+10
ID	TFL+18~, TFL+23, TFL+25, TFL+34, TFL+35, TFL+44, TFL+54, SET+2~, SET+7, NEWTF+26~ , NEWTF+37*, NEWTF+40, NEWTF+61
IDENSTAT	TFL+42~, TFL+51*, TFL+52
IDTYP	TFL+42~, TFL+49*, TFL+52
IDTYPE	SET+2~, SET+34, SET+36, SET+38*, SET+40, SET+44
IEN	TFL+18~, TFL+35, TFL+41, TFL+54, TFL+56, GETICN+1~, GETICN+2, GETICN+3, GETICN+4, GETICN+5
II	NEWTF+26~, NEWTF+67*
INSTIEN	SET+2~, SET+5*
LIST	TFL~, TFL+21!, TFL+41
LIST(	TFL+52*
LIST(1	TFL+19, TFL+25, TFL+29, TFL+32, TFL+54*
LP	QUERYTF+13~, QUERYTF+30, QUERYTF+31, NEWTF+26~, NEWTF+55, NEWTF+69*
LSTA	SET+2~, SET+5*
NCTFIEN	NEWTF+26~, NEWTF+48*, NEWTF+53
NODE	SET+2~
NODE0	SET+2~, SET+32*, SET+34
NODE2	SET+2~, SET+33*, SET+34, SET+35
NPIEN	TFL+42~, TFL+44*, TFL+45
NPTFIEN	TFL+42~, TFL+44, TFL+45, TFL+46, TFL+47, TFL+48, TFL+49, TFL+50, TFL+51
PAT	QUERYTF~
PDFN	QUERYTF+13~, QUERYTF+23*, QUERYTF+24, QUERYTF+26, QUERYTF+30, QUERYTF+31
PT	TFL~, TFL+23
PTDFN	NEWTF+26~, NEWTF+31*, NEWTF+32, NEWTF+34, NEWTF+35, NEWTF+48, NEWTF+55, NEWTF+61, NEWTF+67, NEWTF+69
RESULT	NEWTF~, NEWTF+29!
RESULT(	NEWTF+73*
RESULT(1	NEWTF+27, NEWTF+32, NEWTF+35, NEWTF+40, NEWTF+41, NEWTF+42, NEWTF+43, NEWTF+45, NEWTF+63*
SDFN	SET+2~, SET+34*, SET+44
SITE	TFL+18~, TFL+23, TFL+29, TFL+31, TFL+34, TFL+44, SET+2~, SET+7, NEWTF+26~, NEWTF+38* , NEWTF+43
SITEIEN	TFL+18~, TFL+31, TFL+32, TFL+35, NEWTF+44, NEWTF+45, NEWTF+48, NEWTF+61, NEWTF+62, NEWTF+63 , NEWTF+67
SITEN	SET+2~, SET+3, SET+7, SET+36, SET+37, SET+40, SET+43, SET+44
SOURCE	SET+2~
SOURCEID	TFL+42~, TFL+48*, TFL+52
STATUS	SET+2~, SET+34, SET+43, SET+44
TFIEN	SET~, SET+3, SET+32, SET+33, QUERYTF+31, QUERYTF+32, NEWTF+54~, NEWTF+55, NEWTF+56, NEWTF+58 , NEWTF+69*, NEWTF+70, NEWTF+72
TYPE	TFL+18~, TFL+23, TFL+34, TFL+35, TFL+44, NEWTF+26~, NEWTF+37, NEWTF+41
U	TFL+52
VAFC	TFL+18~
VAFCARR	TFL+42~
VAFCARR(	TFL+47, TFL+48, TFL+49, TFL+50, TFL+51
VAFCER	QUERYTF+13~, QUERYTF+17, QUERYTF+18, QUERYTF+24, QUERYTF+33, QUERYTFQ
VAFCTFU1	TFL+18~
X	TFL+18~, TFL+19, TFL+59, QUERYTF+19, NEWTF+26~, NEWTF+27

Customize PDF page

Package: Registration