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 |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VAFCTFU2

Package: Registration

Routine: VAFCTFU2


Information

VAFCTFU2 ;BHM/CMC,CKN-Utilities for the Treating Facility file 391.91, CONTINUED ;2/2/21 10:41

Source Information

Source file <VAFCTFU2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 ($$IEN,$$STA)^XUAF4  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  
Registration 1 FILENEW^VAFCTFU  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 3 DGPFHLS  DGPFUT2  DGRPU  
Consult Request Tracking 2 GMRCCCR1  GMRCIEVT  
Integrated Billing 1 IBARXCFL  
Mental Health 1 YTQRQAD  

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 VAFC LOCAL GET CORRESPONDINGIDS
; PT values -->
  • ICR #4648
    • Status: Active
    • Usage: Private
    GETICN(EDIPI) ;return the ICN when EDIPI is passed
    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>
    QUERYTF(PAT,ARY) ;a query for Treating Facility.
    QUERYTFQ
    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"

    External References

    Name Field # of Occurrence
    $$GET1^DIQ TFL+44
    GETS^DIQ TFL+46
    $$GETDFN^MPIF001 TFL+41, TFL+58
    $$GETICN^MPIF001 TFL+57, GETICN+8, QUERYTF+26
    FILENEW^VAFCTFU NEWTF+61
    $$IEN^XUAF4 TFL+44, GETICN+2, GETICN+6
    $$STA^XUAF4 TFL+52, SET+5, SET+7

    Used in RPC

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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGCN(391.92 - [#391.92] GET1^DIQ,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TFL+19, QUERYTF+19, NEWTF+27
    ^DGCN(391.91 - [#391.91] TFL+35, TFL+56, GETICN+4, GETICN+5, GETICN+6, GETICN+7, SET+3, SET+32, SET+33, QUERYTF+30
    , QUERYTF+31, NEWTF+48, NEWTF+55, NEWTF+67, NEWTF+69
    ^DGCN(391.919 - [#391.919] TFL+51, SET+43
    ^DGCN(391.92 - [#391.92] TFL+44, TFL+45
    ^DIC(4 - [#4] TFL+31, NEWTF+44
    ^DPT - [#2] NEWTF+34

    Label References

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

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AA TFL+42~, TFL+50*, TFL+52
    ARY SET~, SET+44, QUERYTF~, QUERYTF+17, QUERYTF+26, QUERYTF+32, QUERYTF+33
    ASSAUTH SET+2~, SET+35*, SET+37*, SET+39*, SET+40*, SET+44
    ASSIGN TFL+18~, TFL+23*, TFL+34, TFL+35, TFL+44, NEWTF+26~, NEWTF+37*, NEWTF+42
    CTR TFL+42~, TFL+43*, TFL+52*, SET~, SET+44*, QUERYTF+13~, QUERYTF+18*, QUERYTF+26, QUERYTF+32, NEWTF+26~
    , NEWTF+52*, NEWTF+58, NEWTF+72, NEWTF+73
    DA TFL+18~
    DFN TFL+18~, TFL+56*, TFL+57, TFL+58*, GETICN+1~, GETICN+7*, GETICN+8, GETICN+9, QUERYTF+23, NEWTF~
    , NEWTF+31
    DGCN SET+2~
    DGCN(0 SET+3*, SET+5, SET+7
    DIC TFL+18~
    DIQ TFL+18~
    DR TFL+18~
    EDIPI TFL+18~, GETICN~, GETICN+4, GETICN+5, GETICN+6, NEWTF~, NEWTF+37, NEWTF+38
    EN GETICN+1~, GETICN+6*, GETICN+7, SET+2~
    ERROR NEWTF+26~, NEWTF+61
    ERROR( NEWTF+62, NEWTF+63
    FAC TFL+42~, TFL+47*, TFL+51, TFL+52
    FOUND SET+2~, SET+44*
    ICN TFL+18~, TFL+34*, TFL+41, TFL+54, TFL+57*, TFL+58, TFL+59, GETICN+1~, GETICN+8*, GETICN+9*
    , GETICN+10
    ID TFL+18~, TFL+23*, TFL+25, TFL+34, TFL+35, TFL+44, TFL+54, SET+2~, SET+7*, NEWTF+26~
    , NEWTF+37*, NEWTF+40, NEWTF+61
    IDENSTAT TFL+42~, TFL+51*, TFL+52
    IDTYP TFL+42~, TFL+49*, TFL+52
    IDTYPE SET+2~, SET+34*, SET+36*, SET+38*, SET+40, SET+44
    IEN TFL+18~, TFL+35*, TFL+41, TFL+54, TFL+56, GETICN+1~, GETICN+2*, GETICN+3, GETICN+4, GETICN+5
    II NEWTF+26~, NEWTF+67*
    INSTIEN SET+2~, SET+5*
    LIST TFL~, TFL+21!, TFL+41
    LIST( TFL+52*
    LIST(1 TFL+19*, TFL+25*, TFL+29*, TFL+32*, TFL+54*
    LP QUERYTF+13~, QUERYTF+30*, QUERYTF+31, NEWTF+26~, NEWTF+55*, NEWTF+69*
    LSTA SET+2~, SET+5*
    NCTFIEN NEWTF+26~, NEWTF+48*, NEWTF+53
    NODE SET+2~
    NODE0 SET+2~, SET+32*, SET+34
    NODE2 SET+2~, SET+33*, SET+34, SET+35
    NPIEN TFL+42~, TFL+44*, TFL+45
    NPTFIEN TFL+42~, TFL+44*, TFL+45*, TFL+46, TFL+47, TFL+48, TFL+49, TFL+50, TFL+51
    PAT QUERYTF~
    PDFN QUERYTF+13~, QUERYTF+23*, QUERYTF+24, QUERYTF+26, QUERYTF+30, QUERYTF+31
    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+34*, SET+44
    SITE TFL+18~, TFL+23*, TFL+29, TFL+31, TFL+34, TFL+44, SET+2~, SET+7*, NEWTF+26~, NEWTF+38*
    , NEWTF+43
    SITEIEN TFL+18~, TFL+31*, TFL+32, TFL+35, NEWTF+44*, NEWTF+45, NEWTF+48, NEWTF+61, NEWTF+62, NEWTF+63
    , NEWTF+67
    SITEN SET+2~, SET+3*, SET+7*, SET+36, SET+37, SET+40, SET+43, SET+44
    SOURCE SET+2~
    SOURCEID TFL+42~, TFL+48*, TFL+52
    STATUS SET+2~, SET+34*, SET+43*, SET+44
    TFIEN SET~, SET+3, SET+32, SET+33, QUERYTF+31*, QUERYTF+32, NEWTF+54~, NEWTF+55*, NEWTF+56, NEWTF+58
    , NEWTF+69*, NEWTF+70, NEWTF+72
    TYPE TFL+18~, TFL+23*, TFL+34, TFL+35, TFL+44, NEWTF+26~, NEWTF+37*, NEWTF+41
    U TFL+52
    VAFC TFL+18~
    VAFCARR TFL+42~
    VAFCARR( TFL+47, TFL+48, TFL+49, TFL+50, TFL+51
    VAFCER QUERYTF+13~, QUERYTF+17*, QUERYTF+18*, QUERYTF+24*, QUERYTF+33*, QUERYTFQ
    VAFCTFU1 TFL+18~
    X TFL+18~, TFL+19*, TFL+59*, QUERYTF+19*, NEWTF+26~, NEWTF+27*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All