Routine: HMPTFU2

Information

HMPTFU2 ;ASMR/JCH,CK,DKK - Utilities for the Treating Facility file 391.91 ;Apr 27, 2016 10:35:07

Package	Total	Call Graph
VA FileMan	2	$$FIND1^DIC $$GET1^DIQ
Enterprise Health Management Platform	1	$$SYS^HMPUTILS
Kernel	1	($$IEN,$$STA)^XUAF4
Master Patient Index VistA	1	($$GETDFN,$$GETICN)^MPIF001
Registration	1	$$SITE^VASITE

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
Enterprise Health Management Platform	1	HMP LOCAL CORRESPONDINGIDS

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 HMP LOCAL GET CORRESPONDINGIDS ; PT values : Source ID^Source ID Type^Assigning Authority^Assigning Facility ; ICN example: 1008520438V882204^NI^USVHA^200M ; DFN example: 100000511^PI^USVHA^500 ; EDIPI example: 852043888^NI^USDOD^200DOD
GETICN(EDIPI)	;return the ICN when EDIPI is passed
QUERYTF(PAT,ARY)	;a query for Treating Facility.
QUERYTFQ
SET(TFIEN,ARY,CTR)	;This sets the array with the treating facility list. ; Ex ARY(1)=<ID> ^ <ID TYPE> ^ <Assigning Facility> ^ <Assigning Authority> ^ <ID Status>
TF2SITEN(TFIEN)	;Find the DOMAIN associated with the TREATING FACILITY and return the station number.

External References

Name	Field # of Occurrence
$$FIND1^DIC	TFL+53
$$GET1^DIQ	TF2SITEN+12
$$SYS^HMPUTILS	TF2SITEN+18
$$GETDFN^MPIF001	TFL+58
$$GETICN^MPIF001	TFL+62, GETICN+8, QUERYTF+19
$$SITE^VASITE	TFL+60
$$IEN^XUAF4	TFL+60, GETICN+2, GETICN+6
$$STA^XUAF4	SET+6

Used in RPC

RPC Name	Call Tags
HMP LOCAL CORRESPONDINGIDS	TFL

FileNo	Call Tags
^DIC(4 - [#4]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TFL+38, QUERYTF+15
^DGCN(391.91 - [#391.91]	TFL+66, TFL+68, TFL+69, TFL+70, TFL+76, GETICN+4, GETICN+5, GETICN+6, GETICN+7, QUERYTF+23 , QUERYTF+24, SET+3, SET+10, SET+15, SET+26, SET+27, TF2SITEN+8, TF2SITEN+11
^DIC(4.2 - [#4.2]	TF2SITEN+17, TF2SITEN+18

Label References

Name	Line Occurrences
$$QUERYTF	TFL+79
$$TF2SITEN	SET+23
QUERYTFQ	QUERYTF+13, QUERYTF+15, QUERYTF+17
SET	QUERYTF+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	QUERYTF~, QUERYTF+13, QUERYTF+19, QUERYTF+25, QUERYTF+26, SET~, SET+37
ASSAUTH	SET+2~, SET+13, SET+19, SET+21, SET+22, SET+31, SET+33, SET+35, SET+36, SET+37
ASSIGN	TFL+35~, TFL+46*, TFL+50, TFL+55, TFL+56, TFL+57, TFL+65, TFL+66, TFL+68, TFL+69
CTR	QUERYTF+10~, QUERYTF+14, QUERYTF+19, QUERYTF+25, SET~, SET+37
DFN	TFL+35~, TFL+55, TFL+58, TFL+59, TFL+62, TFL+70, TFL+74, TFL+76, GETICN+1~, GETICN+7 , GETICN+8, GETICN+9, QUERYTF+16
DGCN	SET+2~
DGCN(0	SET+3*, SET+5, SET+7
DONE	TF2SITEN+10~, TF2SITEN+17, TF2SITEN+18
EDIPI	TFL+35~, TFL+57*, TFL+65, TFL+66, TFL+68, TFL+69, GETICN~, GETICN+4, GETICN+5, GETICN+6
EN	TFL+69, TFL+70, GETICN+1~, GETICN+6, GETICN+7, SET+2~
FOUND	SET+2~, SET+37*
HMPER	QUERYTF+10~, QUERYTF+13, QUERYTF+14, QUERYTF+17, QUERYTF+26, QUERYTFQ
I	TF2SITEN+10~, TF2SITEN+17*, TF2SITEN+18
ICN	TFL+35~, TFL+56, TFL+58, TFL+62, TFL+79, GETICN+1~, GETICN+8, GETICN+9, GETICN+10
ID	TFL+35~, TFL+45, TFL+48, TFL+55, TFL+56, TFL+57, TFL+77, SET+2~, SET+7
IDTYPE	SET+2~, SET+16, SET+18, SET+20, SET+22, SET+23, SET+28, SET+32, SET+34, SET+36 , SET+37
IEN	GETICN+1~, GETICN+2*, GETICN+3, GETICN+4, GETICN+5
INSTIEN	SET+2~, SET+5*, SET+6
INSTNUM	TF2SITEN+10~, TF2SITEN+11*, TF2SITEN+12
LIST	TFL~, TFL+40!
LIST(1	TFL+38, TFL+48, TFL+49, TFL+50, TFL+51, TFL+54, TFL+58, TFL+59, TFL+65, TFL+67* , TFL+74, TFL+77, TFL+80*
LP	QUERYTF+10~, QUERYTF+23*, QUERYTF+24
NODE	SET+2~
NODE0	SET+2~, SET+15, SET+16, SET+26, SET+28
NODE2	SET+2~, SET+10, SET+11, SET+12, SET+13, SET+27, SET+28, SET+31
PAT	QUERYTF~
PDFN	QUERYTF+10~, QUERYTF+16*, QUERYTF+17, QUERYTF+19, QUERYTF+23, QUERYTF+24
PT	TFL~, TFL+43, TFL+44, TFL+45, TFL+46
SDFN	SET+2~, SET+11, SET+28, SET+37
SITE	TFL+35~, TFL+44*, TFL+51, TFL+53, TFL+56, TFL+57, SET+2~
SITEIEN	TFL+35~, TFL+53, TFL+54, TFL+60, TFL+65, TFL+66, TFL+68, TFL+69, TFL+76
SITEN	SET+2~, SET+3, SET+6, SET+8, SET+18, SET+19, SET+22, SET+23, SET+32, SET+33 , SET+36, SET+37, TF2SITEN+6, TF2SITEN+11, TF2SITEN+13, TF2SITEN+18*, TF2SITEN+19
SOURCE	SET+2~
STATUS	SET+2~, SET+12, SET+28, SET+30, SET+37
STNNUM	SET+2~, SET+8, SET+23, SET+37, TF2SITEN+10~, TF2SITEN+12, TF2SITEN+13, TF2SITEN+15, TF2SITEN+18
TFIEN	TFL+35~, QUERYTF+24*, QUERYTF+25, SET~, SET+3, SET+10, SET+15, SET+23, SET+26, SET+27 , TF2SITEN~, TF2SITEN+7, TF2SITEN+8, TF2SITEN+11
TYPE	TFL+35~, TFL+43*, TFL+49, TFL+55, TFL+56, TFL+57, TFL+65, TFL+66, TFL+68, TFL+69
U	TFL+80, TF2SITEN+11, TF2SITEN+18
X	TFL+35~, TFL+38, TFL+79, TFL+80, QUERYTF+15*

Customize PDF page

Package: Enterprise Health Management Platform