Routine: VAFCTFU2

Information

VAFCTFU2 ;BHM/CMC-Utilities for the Treating Facility file 391.91, CONTINUED ; 4/21/2010

Source Information

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Registration	2	FILENEW^VAFCTFU $$SITE^VASITE
Kernel	1	($$IEN,$$STA)^XUAF4
Uncategorized	1	($$GETDFN,$$GETICN)^MPIF001

Entry Points

Name	Comments	DBIA/ICR reference
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>
QUERYTFQ
QUERYTF(PAT,ARY)	;a query for Treating Facility.
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
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"
GETICN(EDIPI)	;return the ICN when EDIPI is passed

Name	Field # of Occurrence
$$GETDFN^MPIF001	TFL+36
$$GETICN^MPIF001	TFL+40, GETICN+8, QUERYTF+26
FILENEW^VAFCTFU	NEWTF+61
$$SITE^VASITE	TFL+38
$$IEN^XUAF4	TFL+38, GETICN+2, GETICN+6
$$STA^XUAF4	SET+5, SET+7

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TFL+19, QUERYTF+19, NEWTF+27
^DGCN(391.91 - [#391.91]	TFL+44, TFL+46, TFL+47, TFL+48, TFL+55, GETICN+4, GETICN+5, GETICN+6, GETICN+7, SET+3 , SET+24, SET+25, SET+26, QUERYTF+27, NEWTF+48, NEWTF+55, NEWTF+67, NEWTF+69
^DIC(4 - [#4]	TFL+30, NEWTF+44
^DPT - [#2]	NEWTF+34

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	SET~, SET+28, SET+29, QUERYTF~, QUERYTF+17, QUERYTF+26, QUERYTF+27, QUERYTF+28
ASSAUTH	SET+2~, SET+10, SET+11, SET+28, SET+29
ASSIGN	TFL+18~, TFL+23, TFL+27, TFL+33, TFL+34, TFL+35, NEWTF+26~, NEWTF+37, NEWTF+42
CTR	SET~, SET+28, SET+29, QUERYTF+13~, QUERYTF+18, QUERYTF+26, QUERYTF+27, NEWTF+26~, NEWTF+52, NEWTF+58 , NEWTF+72, NEWTF+73
DA	TFL+18~
DFN	TFL+18~, TFL+33, TFL+36, TFL+37, TFL+40, TFL+48, TFL+53, TFL+55, GETICN+1~, GETICN+7 , GETICN+8, GETICN+9, QUERYTF+23, NEWTF~, NEWTF+31
DGCN	SET+2~
DGCN(0	SET+3*, SET+5, SET+6, SET+7
DIC	TFL+18~
DIQ	TFL+18~
DR	TFL+18~
EDIPI	TFL+18~, TFL+35*, TFL+44, TFL+46, TFL+47, GETICN~, GETICN+4, GETICN+5, GETICN+6, NEWTF~ , NEWTF+37, NEWTF+38
EN	TFL+47, TFL+48, GETICN+1~, GETICN+6, GETICN+7, SET+2~, SET+25*, SET+26
ERROR	NEWTF+26~, NEWTF+61
ERROR(	NEWTF+62, NEWTF+63
FOUND	SET+2~, SET+23, SET+28, SET+29
ICN	TFL+18~, TFL+34, TFL+36, TFL+40, TFL+58, GETICN+1~, GETICN+8, GETICN+9, GETICN+10
ID	TFL+18~, TFL+23, TFL+25, TFL+33, TFL+34, TFL+35, TFL+56, SET+2~, SET+7, NEWTF+26~ , NEWTF+37*, NEWTF+40, NEWTF+61
IDTYPE	SET+2~, SET+8, SET+9, SET+28, SET+29
IEN	GETICN+1~, GETICN+2*, GETICN+3, GETICN+4, GETICN+5
II	NEWTF+26~, NEWTF+67*
INSTIEN	SET+2~, SET+5*
LIST	TFL~, TFL+21!
LIST(1	TFL+19, TFL+25, TFL+26, TFL+27, TFL+28, TFL+31, TFL+36, TFL+37, TFL+45, TFL+53* , TFL+56, TFL+59
LP	QUERYTF+13~, QUERYTF+27, NEWTF+26~, NEWTF+55, NEWTF+69*
LSTA	SET+2~, SET+5*, SET+6
NCTFIEN	NEWTF+26~, NEWTF+48*, NEWTF+53
NODE	SET+2~, SET+26*, SET+27
PAT	QUERYTF~
PDFN	QUERYTF+13~, QUERYTF+23*, QUERYTF+24, QUERYTF+26, QUERYTF+27
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+27*, SET+28
SITE	TFL+18~, TFL+23, TFL+28, TFL+30, TFL+34, TFL+35, SET+2~, SET+7, NEWTF+26~, NEWTF+38* , NEWTF+43
>> SITEIEN	TFL+30, TFL+31, TFL+38, TFL+44, TFL+46, TFL+47, TFL+55, NEWTF+44*, NEWTF+45, NEWTF+48 , NEWTF+61, NEWTF+62, NEWTF+63, NEWTF+67
SITEN	SET+2~, SET+3, SET+7, SET+9, SET+11, SET+28, SET+29
SOURCE	SET+2~, SET+23*
STATUS	SET+2~, SET+27*, SET+28
TFIEN	SET~, SET+3, SET+24, SET+25, SET+26, QUERYTF+27, NEWTF+54~, NEWTF+55, NEWTF+56, NEWTF+58 , NEWTF+69*, NEWTF+70, NEWTF+72
TYPE	TFL+18~, TFL+23, TFL+26, TFL+33, TFL+34, TFL+35, NEWTF+26~, NEWTF+37, NEWTF+41
U	TFL+59
VAFC	TFL+18~
VAFCER	QUERYTF+13~, QUERYTF+17, QUERYTF+18, QUERYTF+24, QUERYTF+28, QUERYTFQ
VAFCTFU1	TFL+18~
X	TFL+18~, TFL+19, TFL+58, TFL+59, QUERYTF+19, NEWTF+26~, NEWTF+27

Customize PDF page

Package: Registration

Routine: VAFCTFU2

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: