Routine: VAFCTFU

Information

VAFCTFU ;ALB/JLU-UTILITIES FOR THE TREATING FACILITY FILE 391.91 ; 5/23/12 12:58pm

Package	Total	Call Graph
Registration	6	$$SNDQRY^DGPFHLS $$QRYON^DGPFPARM XMITFLAG^VAFCDD01 $$PIVNW^VAFHPIVT $$SEND^VAFHUTL $$SITE^VASITE
VA FileMan	6	^%DT $$FIND1^DIC (CHK,FILE,UPDATE)^DIE ^DIK $$IENS^DILF $$GET1^DIQ
Health Level Seven	2	UPD^HLSUB LINK^HLUTIL3
Kernel	2	$$NOW^XLFDT ($$LKUP,$$STA)^XUAF4
Master Patient Index VistA	2	($$GETDFN,$$GETVCCI)^MPIF001 $$MPINODE^MPIFAPI
Clinical Information Resource Network	1	(EXC,STOP)^RGHLLOG

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

Package	Total	Caller Graph
Master Patient Index VistA	9	MPIFA24 MPIFA37 MPIFA43 MPIFBT3 MPIFDEL MPIFQ0 MPIFQ3 MPIFQUE4 MPIFVTQ
Clinical Information Resource Network	8	RGADT RGADT1 RGADT2 RGADTUT RGDRM02 RGFIPM RGI15PST RGMTUT01
Registration	7	DPTLK7A VAFCOTFU VAFCTF VAFCTFIN VAFCTFMF VAFCTFPR VAFCTFU2

Entry Points

Name	Comments	DBIA/ICR reference
FILETF(PAT,INST)	;programmer entry point.
FILETFQ
FILE(PDFN,FSTRG,TICN,VAFCSLT,ERROR,IPP,SOURCEID,IDENSTAT,AA,IDTYP)	;this module files the individual entry	ICR #2988 Status: Active Usage: Controlled Subscription
FILEQ
FILENEW(PDFN,FAC,PDLT,EVNTR,VAFCSLT,ERROR,IPP,SOURCEID,IDENSTAT,AA,IDTYP)	;
UPDSID(PDFN,FAC,SID,IDSTAT,TFIEN)	;Update sourceid multiple
SETSND(PDFN)	;sets the pivot file entry to send MFU
SETSNDQ
FILEDIT(TFIEN,PDLT,PDFN,FAC,EVNTR,VAFCSLT,ERROR,IPP,SOURCEID,IDENSTAT,AA,IDTYP)	;
DELETETF(PAT,INST,DTIEN)	;deletion entry point	ICR #2988 Status: Active Usage: Controlled Subscription
DELTFQ
DELETE(TFIEN)	;the actual deletion code	ICR #2988 Status: Active Usage: Controlled Subscription
DELALLTF(PAT)	;Entry point to delete all Treating Facilities for a single patient.	ICR #2988 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
^%DT	FILE+21
$$SNDQRY^DGPFHLS	FILENEW+22
$$QRYON^DGPFPARM	FILENEW+22
$$FIND1^DIC	FILE+18, DELETETF+18
CHK^DIE	FILENEW+5, FILEDIT+4
FILE^DIE	UPDSID+7, FILEDIT+13
UPDATE^DIE	FILENEW+17, UPDSID+11
^DIK	DELETE+5
$$IENS^DILF	UPDSID+5, UPDSID+9
$$GET1^DIQ	FILE+26, FILENEW+22
UPD^HLSUB	DELETETF+25
LINK^HLUTIL3	DELETETF+25
$$GETDFN^MPIF001	FILETF+17, DELETETF+16, DELALLTF+9
$$GETVCCI^MPIF001	SETSND+6
$$MPINODE^MPIFAPI	FILE+33, DELETETF+23
EXC^RGHLLOG	FILE+19, FILE+22
STOP^RGHLLOG	FILE+19
XMITFLAG^VAFCDD01	SETSND+15
$$PIVNW^VAFHPIVT	SETSND+13
$$SEND^VAFHUTL	FILE+60
$$SITE^VASITE	FILE+20, FILE+23, FILENEW+17, FILENEW+22, SETSND+8, FILEDIT+13
$$NOW^XLFDT	DELETETF+25
$$LKUP^XUAF4	SETSND+7
$$STA^XUAF4	FILE+16, FILE+29, FILENEW+22

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGCN(391.91 - [#391.91]	Classic Fileman Calls, CHK^DIE
^DIC(4 - [#4]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	FILETF+16, FILE+11, FILE+12, SETSND+3, DELETETF+15, DELALLTF+8
^DGCN(391.91 - [#391.91]	FILE+37, FILE+43, FILE+44, FILE+45, FILE+46, FILENEW+16, FILENEW+23, UPDSID+3, UPDSID+4, SETSND+10 , SETSND+11, FILEDIT+3, DELETETF+19, DELETETF+21, DELALLTF+11, DELALLTF+12

Label References

Name	Line Occurrences
DELETE	DELETETF+20, DELALLTF+12
DELTFQ	DELETETF+14, DELETETF+18, DELETETF+19, DELETETF+21
FILE	FILETF+20
FILEDIT	FILE+49
FILENEW	FILE+50
FILETFQ	FILETF+14, FILETF+15, FILETF+16, FILETF+18, DELETETF+15, DELETETF+17
SETSND	FILE+60

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FILE+21!*
AA	FILE~, FILE+27, FILE+29, FILE+48, FILE+49, FILE+50, FILENEW~, FILENEW+12, FILEDIT~, FILEDIT+2 , FILEDIT+9
ANS	SETSND+2~, SETSND+13*, SETSND+14, SETSND+15
CMOR	FILE+13~, SETSND+5~, SETSND+6, SETSND+7, SETSND+8, SETSND+11
DA	FILENEW+2!, FILENEW+24!, DELETE+2!, DELETE+4*, DELETE+5!
DD	FILENEW+2!, FILENEW+24!
DGENDA	UPDSID+1~, UPDSID+4, UPDSID+5, UPDSID+9
DGENDA(1	UPDSID+5, UPDSID+9
DGRSLT	FILENEW+2!, FILENEW+22*
DGSENFLG	FILENEW+1~, FILENEW+3, FILEDIT+1~
DIC	FILENEW+2!, FILENEW+24!
DIK	DELETE+2!, DELETE+3*, DELETE+5!
DO	FILENEW+2!, FILENEW+24!
DT	SETSND+13
DTIEN	DELETETF~, DELETETF+11, DELETETF+19, DELETETF+20, DELETETF+21
ECNT	FILE+13~, FILE+14*
ERR	FILENEW+4~, FILEDIT+1~
ERR("DIERR"	FILENEW+17, FILEDIT+13
ERROR	FILE~, FILE+49, FILE+50, FILENEW~, FILEDIT~
ERROR(	FILE+20, FILE+23, FILENEW+17, FILEDIT+13, DELETETF+14*
EVNTR	FILE+13~, FILE+15, FILE+49, FILE+50, FILENEW~, FILENEW+5, FILENEW+9, FILEDIT~, FILEDIT+4*, FILEDIT+6
FAC	FILE+13~, FILE+15*, FILE+16, FILE+18, FILE+19, FILE+20, FILE+22, FILE+26, FILE+29, FILE+37 , FILE+49, FILE+50, FILENEW~, FILENEW+7, FILENEW+22, UPDSID~, FILEDIT~
FDA	FILENEW+4~, UPDSID+1~, FILEDIT+1~
FDA(	UPDSID+6, UPDSID+10
FDA(1	FILENEW+6, FILENEW+7, FILENEW+8, FILENEW+9, FILENEW+10, FILENEW+12, FILENEW+13, FILENEW+14, FILENEW+15, FILEDIT+5 , FILEDIT+6, FILEDIT+7, FILEDIT+9, FILEDIT+10, FILEDIT+11, FILEDIT+12
FDAIEN	FILENEW+4~, FILEDIT+1~
FILE	UPDSID+1~, UPDSID+2*, UPDSID+6, UPDSID+10
FSTRG	FILETF+19~, FILE~, FILE+15
>> HL("MID"	FILE+19, FILE+22, DELETETF+14
>> HLER	DELETETF+25
ICN	FILE+13~, FILE+33*
IDENSTAT	FILE~, FILE+48, FILE+49, FILE+50, FILENEW~, FILENEW+15, FILEDIT~, FILEDIT+2, FILEDIT+12
IDSTAT	UPDSID~, UPDSID+6, UPDSID+10
IDTYP	FILE~, FILE+28, FILE+29, FILE+48, FILE+49, FILE+50, FILENEW~, FILENEW+13, FILENEW+22, FILEDIT~ , FILEDIT+2, FILEDIT+10
IEN	DELETETF+12~
IENS	UPDSID+1~, UPDSID+5, UPDSID+6, UPDSID+9, UPDSID+10
INST	FILETF~, FILETF+14, FILETF+15, FILETF+20, DELETETF~, DELETETF+14, DELETETF+18, DELETETF+25
IPP	FILE~, FILE+49, FILE+50, FILENEW~, FILENEW+10, FILEDIT~, FILEDIT+2, FILEDIT+7
LINK	DELETETF+12~, DELETETF+25
LINK(	DELETETF+25
LINK(0	DELETETF+25
LP	FILETF+12~, FILETF+20, DELALLTF+5~, DELALLTF+11, DELALLTF+12
PAT	FILETF~, FILETF+14, FILETF+17, DELETETF~, DELETETF+14, DELETETF+16, DELALLTF~, DELALLTF+7, DELALLTF+9
PDFN	FILETF+12~, FILETF+17, FILETF+18, FILETF+20, FILE~, FILE+19, FILE+22, FILE+23, FILE+33, FILE+37 , FILE+49, FILE+50, FILE+60, FILENEW~, FILENEW+6, FILENEW+22, UPDSID~, SETSND~, SETSND+6, SETSND+10 , SETSND+11, SETSND+13, FILEDIT~, DELETETF+12~, DELETETF+16, DELETETF+17, DELETETF+23, DELALLTF+5~, DELALLTF+9*, DELALLTF+10 , DELALLTF+11, DELALLTF+12
PDLT	FILE+13~, FILE+15*, FILE+21, FILE+22, FILE+23, FILE+49, FILE+50, FILENEW~, FILENEW+8, FILEDIT~ , FILEDIT+2, FILEDIT+5
RESULT	FILENEW+2!, FILENEW+5, FILEDIT+1~, FILEDIT+4
SID	UPDSID~, UPDSID+3, UPDSID+4, UPDSID+6, UPDSID+10
SIT	SETSND+5~, SETSND+9, SETSND+10, SETSND+11*
SOURCEID	FILE~, FILE+48, FILE+49, FILE+50, FILENEW~, FILENEW+14, FILEDIT~, FILEDIT+2, FILEDIT+11
STA	FILE+13~, FILE+16*, FILE+20, FILE+23, FILENEW+17, FILEDIT+13
STOP	SETSND+5~, SETSND+11*, SETSND+12
TFIEN	FILE+13~, FILE+37, FILE+40, FILE+43, FILE+44, FILE+45, FILE+46, FILE+49, UPDSID~, UPDSID+3 , UPDSID+4, UPDSID+5, UPDSID+9, FILEDIT~, FILEDIT+3, FILEDIT+5, FILEDIT+6, FILEDIT+7, FILEDIT+9, FILEDIT+10 , FILEDIT+11, FILEDIT+12, DELETETF+12~, DELETE~, DELETE+4, DELALLTF+5~, DELALLTF+12
TFIEN(0	FILEDIT+3*
TICN	FILE~, FILE+60
TMPAA	FILE+41~, FILE+43*, FILE+48
TMPFLG	FILE+9~, FILE+36, FILE+37, FILE+48, FILE+49, FILE+50
TMPIDST	FILE+41~, FILE+46*, FILE+48
TMPIDTYP	FILE+41~, FILE+44*, FILE+48
TMPSID	FILE+41~, FILE+45*, FILE+48
U	FILE+15
VAFCER	FILETF+12~, FILETF+13, FILETF+14, FILETF+15, FILETF+18, FILETFQ, FILE+13~, FILE+21, DELETETF+12~, DELETETF+13 , DELETETF+14, DELETETF+17, DELETETF+18, DELETETF+19, DELETETF+21, DELTFQ, DELALLTF+5~, DELALLTF+6, DELALLTF+14
VAFCLLN	DELETETF+12~, DELETETF+25*
VAFCSCN	DELETETF+12~, DELETETF+23*, DELETETF+25
VAFCSLT	FILE~, FILE+10*, FILE+19, FILE+20, FILE+22, FILE+23, FILE+49, FILE+50, FILENEW~, FILEDIT~ , FILEDIT+13
X	FILETF+12~, FILETF+16, FILE+9~, FILE+11, FILE+12, FILE+21, SETSND+2~, SETSND+3, DELETETF+12~, DELETETF+15 , DELALLTF+5~, DELALLTF+8*
Y	FILE+9~, FILE+21

Customize PDF page

Package: Registration