Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HMPTFU2

Package: Enterprise Health Management Platform

Routine: HMPTFU2


Information

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

Source Information

Source file <HMPTFU2.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

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

FileMan Files Accessed Via FileMan Db Call

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All