Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call
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>

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: Controlled Subscription
  • ICR #7233
    • Status: Withdrawn
    • 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"

    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
    Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call