Routine: VAFCOTFU

Information

VAFCOTFU ;ALB/JLU-UTILITIES FOR THE TREATING FACILITY FILE 391.91 ; 2/1/10 12:47pm

Package	Total	Call Graph
Registration	6	XMITFLAG^VAFCDD01 RETPDR^VAFCEHU2 FILENEW^VAFCTFU $$PIVNW^VAFHPIVT $$SEND^VAFHUTL $$SITE^VASITE
VA FileMan	4	^%DT $$FIND1^DIC (CHK,FILE,UPDATE)^DIE ^DIK
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: 1

Package	Total	Caller Graph
Registration	1	VAFCOFIN

Entry Points

Name	Comments	DBIA/ICR reference
FILETF(PAT,INST)	;programmer entry point.
FILETFQ
FILE(PDFN,FSTRG,TICN,VAFCSLT,ERROR,IPP)	;this module files the individual entry
FILEQ
FILENEW(PDFN,FAC,PDLT,EVNTR,VAFCSLT,ERROR,IPP)	;
SETSND(PDFN)	;sets the pivot file entry to send MFU
SETSNDQ
FILEDIT(TFIEN,PDLT,PDFN,FAC,EVNTR,VAFCSLT,ERROR,IPP)	;
DELETETF(PAT,INST)	;deletion entry point
DELTFQ
DELETE(TFIEN)	;the actual deletion code
DELALLTF(PAT)	;Entry point to delete all Treating Facilities for a single

External References

Name	Field # of Occurrence
^%DT	FILE+20
$$FIND1^DIC	FILE+17, DELETETF+15
CHK^DIE	FILENEW+5, FILEDIT+4
FILE^DIE	FILEDIT+8
UPDATE^DIE	FILENEW+12
^DIK	DELETE+5
UPD^HLSUB	DELETETF+24
LINK^HLUTIL3	DELETETF+24
$$GETDFN^MPIF001	FILETF+17, DELETETF+13, DELALLTF+10
$$GETVCCI^MPIF001	FILE+30, SETSND+6
$$MPINODE^MPIFAPI	FILE+24, DELETETF+22
EXC^RGHLLOG	FILE+18, FILE+21
STOP^RGHLLOG	FILE+18
XMITFLAG^VAFCDD01	SETSND+15
RETPDR^VAFCEHU2	DELETETF+25
FILENEW^VAFCTFU	FILE+33
$$PIVNW^VAFHPIVT	SETSND+13
$$SEND^VAFHUTL	FILE+37
$$SITE^VASITE	FILE+19, FILE+22, FILENEW+12, SETSND+8, FILEDIT+8
$$NOW^XLFDT	DELETETF+24
$$LKUP^XUAF4	FILE+31, SETSND+7
$$STA^XUAF4	FILE+15

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	FILETF+16, FILE+10, FILE+11, SETSND+3, DELETETF+12, DELALLTF+9
^DGCN(391.91 - [#391.91]	FILE+25, FILE+33, FILENEW+11, FILENEW+12, FILENEW+14, SETSND+10, SETSND+11, FILEDIT+3, DELETETF+16, DELETETF+19 , DELALLTF+12, DELALLTF+14

Label References

Name	Line Occurrences
DELETE	DELETETF+18, DELALLTF+14
DELTFQ	DELETETF+11, DELETETF+15, DELETETF+17, DELETETF+20
FILE	FILETF+20
FILEDIT	FILE+28
FILENEW	FILE+27
FILETFQ	FILETF+14, FILETF+15, FILETF+16, FILETF+18, DELETETF+12, DELETETF+14
SETSND	FILE+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FILE+20!*
ANS	SETSND+2~, SETSND+13*, SETSND+14, SETSND+15
CMOR	FILE+12~, FILE+30, FILE+31, FILE+33, SETSND+5~, SETSND+6, SETSND+7, SETSND+8, SETSND+11
DA	FILENEW+2!, FILENEW+15!, DELETE+2!, DELETE+4*, DELETE+5!
DD	FILENEW+2!, FILENEW+15!
DGSENFLG	FILENEW+1~, FILENEW+3, FILEDIT+1~
DIC	FILENEW+2!, FILENEW+15!
DIK	DELETE+2!, DELETE+3*, DELETE+5!
DO	FILENEW+2!, FILENEW+15!
DT	SETSND+13
ECNT	FILE+12~, FILE+13*
ERR	FILENEW+4~, FILEDIT+1~
ERR("DIERR"	FILENEW+12, FILEDIT+8
ERROR	FILE~, FILE+27, FILE+28, FILENEW~, FILEDIT~
ERROR(	FILE+19, FILE+22, FILENEW+12, FILEDIT+8, DELETETF+11*
EVNTR	FILE+12~, FILE+14, FILE+27, FILE+28, FILENEW~, FILENEW+5, FILENEW+9, FILEDIT~, FILEDIT+4*, FILEDIT+6
FAC	FILE+12~, FILE+14*, FILE+15, FILE+17, FILE+18, FILE+19, FILE+21, FILE+25, FILE+27, FILE+28 , FILENEW~, FILENEW+7, FILENEW+12, FILEDIT~
FDA	FILENEW+4~, FILEDIT+1~
FDA(1	FILENEW+6, FILENEW+7, FILENEW+8, FILENEW+9, FILENEW+10, FILEDIT+5, FILEDIT+6, FILEDIT+7
FDAIEN	FILENEW+4~, FILEDIT+1~
FSTRG	FILETF+19~, FILE~, FILE+14
>> HL("MID"	FILE+18, FILE+21, DELETETF+11
>> HLER	DELETETF+24
ICN	FILE+12~, FILE+24*
IEN	DELETETF+9~
INST	FILETF~, FILETF+14, FILETF+15, FILETF+20, DELETETF~, DELETETF+11, DELETETF+15, DELETETF+16, DELETETF+19, DELETETF+24 , DELETETF+25
IPP	FILE~, FILE+27, FILE+28, FILENEW~, FILENEW+10, FILEDIT~, FILEDIT+2, FILEDIT+7
LINK	DELETETF+9~, DELETETF+24
LINK(	DELETETF+24
LINK(0	DELETETF+24
LP	FILETF+12~, FILETF+20, DELALLTF+6~, DELALLTF+12, DELALLTF+14
PAT	FILETF~, FILETF+14, FILETF+17, DELETETF~, DELETETF+11, DELETETF+13, DELALLTF~, DELALLTF+8, DELALLTF+10
PDFN	FILETF+12~, FILETF+17, FILETF+18, FILETF+20, FILE~, FILE+18, FILE+21, FILE+22, FILE+24, FILE+25 , FILE+27, FILE+28, FILE+30, FILE+33, FILE+37, FILENEW~, FILENEW+6, FILENEW+12, SETSND~, SETSND+6 , SETSND+10, SETSND+11, SETSND+13, FILEDIT~, DELETETF+9~, DELETETF+13, DELETETF+14, DELETETF+16, DELETETF+19, DELETETF+22 , DELETETF+25, DELALLTF+6~, DELALLTF+10*, DELALLTF+11, DELALLTF+12, DELALLTF+14
PDLT	FILE+12~, FILE+14*, FILE+20, FILE+21, FILE+22, FILE+27, FILE+28, FILENEW~, FILENEW+8, FILEDIT~ , FILEDIT+2, FILEDIT+5
RESULT	FILENEW+2!, FILENEW+5, FILEDIT+1~, FILEDIT+4
SIT	SETSND+5~, SETSND+9, SETSND+10, SETSND+11*
STA	FILE+12~, FILE+15*, FILE+19, FILE+22, FILENEW+12, FILEDIT+8
STOP	SETSND+5~, SETSND+11*, SETSND+12
TFIEN	FILE+12~, FILE+25, FILE+27, FILE+28, FILEDIT~, FILEDIT+3, FILEDIT+5, FILEDIT+6, FILEDIT+7, DELETETF+9~ , DELETETF+16, DELETETF+17, DELETETF+18, DELETETF+19, DELETETF+20, DELETE~, DELETE+4, DELALLTF+6~, DELALLTF+13, DELALLTF+14*
TFIEN(0	FILEDIT+3*
TICN	FILE~, FILE+37
U	FILE+14
VAFCER	FILETF+12~, FILETF+13, FILETF+14, FILETF+15, FILETF+18, FILETFQ, FILE+12~, FILE+20, DELETETF+9~, DELETETF+10 , DELETETF+11, DELETETF+14, DELETETF+15, DELETETF+17, DELETETF+20, DELTFQ, DELALLTF+6~, DELALLTF+7, DELALLTF+16
VAFCLLN	DELETETF+9~, DELETETF+24*
VAFCSCN	DELETETF+9~, DELETETF+22*, DELETETF+24
VAFCSLT	FILE~, FILE+9*, FILE+18, FILE+19, FILE+21, FILE+22, FILE+27, FILE+28, FILENEW~, FILEDIT~ , FILEDIT+8
X	FILETF+12~, FILETF+16, FILE+8~, FILE+10, FILE+11, FILE+20, SETSND+2~, SETSND+3, DELETETF+9~, DELETETF+12 , DELALLTF+6~, DELALLTF+9*
Y	FILE+8~, FILE+20

Customize PDF page

Package: Registration