VAFCTFU2 ;BHM/CMC,CKN-Utilities for the Treating Facility file 391.91, CONTINUED ;2/2/21 10:41
Source file <VAFCTFU2.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 6 | DGPFHLS DGPFUT2 DGRPU VAFC LOCAL GETCORRESPONDINGIDS VAFC NEW NC TREATING FACILITY VAFCCRNR |
Consult Request Tracking | 4 | GMRCCCR1 GMRCIEVT GMRCIUT1 GMRCIUTL |
Integrated Billing | 1 | IBARXCFL |
Mental Health | 1 | YTQRQAD |
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 --> |
|
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" |
RPC Name | Call Tags |
---|---|
VAFC LOCAL GETCORRESPONDINGIDS | TFL |
VAFC NEW NC TREATING FACILITY | NEWTF |
FileNo | Call Tags |
---|---|
^DGCN(391.92 - [#391.92] | GET1^DIQ, GETS^DIQ |
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 |
Name | Line Occurrences |
---|---|
$$QUERYTF | TFL+59 |
QUERYTFQ | QUERYTF+17, QUERYTF+19, QUERYTF+24 |
SET | QUERYTF+32, NEWTF+58, NEWTF+72 |
Name | Field # of Occurrence |
---|---|
^( | NEWTF+55, NEWTF+69 |
>> | 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* |