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 |  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 ; 5/23/12 6:25pm

Source Information

Source file <VAFCTFU2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 FILENEW^VAFCTFU  $$SITE^VASITE  
Kernel 1 ($$IEN,$$STA)^XUAF4  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DGRPU  VAFC LOCAL GETCORRESPONDINGIDS  VAFC NEW NC TREATING FACILITY  

Entry Points

Name Comments DBIA/ICR reference
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>
QUERYTFQ
QUERYTF(PAT,ARY) ;a query for Treating Facility.
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
    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"
    GETICN(EDIPI) ;return the ICN when EDIPI is passed

    External References

    Name Field # of Occurrence
    $$GETDFN^MPIF001 TFL+36
    $$GETICN^MPIF001 TFL+40, GETICN+8, QUERYTF+26
    FILENEW^VAFCTFU NEWTF+61
    $$SITE^VASITE TFL+38
    $$IEN^XUAF4 TFL+38, GETICN+2, GETICN+6
    $$STA^XUAF4 SET+5, SET+7

    Used in RPC

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TFL+19, QUERYTF+19, NEWTF+27
    ^DGCN(391.91 - [#391.91] TFL+52, TFL+54, TFL+55, TFL+56, TFL+63, 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
    ^DIC(4 - [#4] TFL+30, NEWTF+44
    ^DPT - [#2] NEWTF+34

    Label References

    Name Line Occurrences
    $$QUERYTF TFL+66
    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
    ARY SET~, SET+42, QUERYTF~, QUERYTF+17, QUERYTF+26, QUERYTF+32, QUERYTF+33
    ASSAUTH SET+2~, SET+35*, SET+37*, SET+39*, SET+40*, SET+42
    ASSIGN TFL+18~, TFL+23*, TFL+27, TFL+33, TFL+34, TFL+35, TFL+51, TFL+52, TFL+54, TFL+55
    , NEWTF+26~, NEWTF+37*, NEWTF+42
    CTR SET~, SET+42*, 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+33*, TFL+36*, TFL+37, TFL+40, TFL+56*, TFL+61, TFL+63, 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~, TFL+35*, TFL+51, TFL+52, TFL+54, TFL+55, GETICN~, GETICN+4, GETICN+5, GETICN+6
    , NEWTF~, NEWTF+37, NEWTF+38
    EN TFL+55*, TFL+56, GETICN+1~, GETICN+6*, GETICN+7, SET+2~
    ERROR NEWTF+26~, NEWTF+61
    ERROR( NEWTF+62, NEWTF+63
    FOUND SET+2~, SET+42*
    ICN TFL+18~, TFL+34*, TFL+36, TFL+40*, TFL+66, GETICN+1~, GETICN+8*, GETICN+9*, GETICN+10
    ID TFL+18~, TFL+23*, TFL+25, TFL+33, TFL+34, TFL+35, TFL+64, SET+2~, SET+7*, NEWTF+26~
    , NEWTF+37*, NEWTF+40, NEWTF+61
    IDTYPE SET+2~, SET+34*, SET+36*, SET+38*, SET+40, SET+42
    IEN GETICN+1~, GETICN+2*, GETICN+3, GETICN+4, GETICN+5
    II NEWTF+26~, NEWTF+67*
    INSTIEN SET+2~, SET+5*
    LIST TFL~, TFL+21!
    LIST(1 TFL+19*, TFL+25*, TFL+26*, TFL+27*, TFL+28*, TFL+31*, TFL+36, TFL+37*, TFL+51*, TFL+53*
    , TFL+61*, TFL+64*, TFL+67*
    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
    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+42
    SITE TFL+18~, TFL+23*, TFL+28, TFL+30, TFL+34, TFL+35, SET+2~, SET+7*, NEWTF+26~, NEWTF+38*
    , NEWTF+43
    >> SITEIEN TFL+30*, TFL+31, TFL+38*, TFL+51, TFL+52, TFL+54, TFL+55, TFL+63, 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+42
    SOURCE SET+2~
    STATUS SET+2~, SET+34*, SET+42
    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+26, TFL+33, TFL+34, TFL+35, TFL+51, TFL+52, TFL+54, TFL+55
    , NEWTF+26~, NEWTF+37*, NEWTF+41
    U TFL+67
    VAFC TFL+18~
    VAFCER QUERYTF+13~, QUERYTF+17*, QUERYTF+18*, QUERYTF+24*, QUERYTF+33*, QUERYTFQ
    VAFCTFU1 TFL+18~
    X TFL+18~, TFL+19*, TFL+66*, TFL+67, QUERYTF+19*, NEWTF+26~, NEWTF+27*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All