©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VAFCTFU2 ;BHM/CMC-Utilities for the Treating Facility file 391.91, CONTINUED ; 4/21/2010
Source file <VAFCTFU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | FILENEW^VAFCTFU $$SITE^VASITE |
| Kernel | 1 | ($$IEN,$$STA)^XUAF4 |
| Uncategorized | 1 | ($$GETDFN,$$GETICN)^MPIF001 |
| 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 --> |
|
| 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
|
| RPC Name | Call Tags |
|---|---|
| VAFC LOCAL GETCORRESPONDINGIDS | TFL |
| VAFC NEW NC TREATING FACILITY | NEWTF |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | TFL+19, QUERYTF+19, NEWTF+27 |
| ^DGCN(391.91 - [#391.91] | TFL+44, TFL+46, TFL+47, TFL+48, TFL+55, GETICN+4, GETICN+5, GETICN+6, GETICN+7, SET+3 , SET+24, SET+25, SET+26, QUERYTF+27, NEWTF+48, NEWTF+55, NEWTF+67, NEWTF+69 |
| ^DIC(4 - [#4] | TFL+30, NEWTF+44 |
| ^DPT - [#2] | NEWTF+34 |
| Name | Line Occurrences |
|---|---|
| $$QUERYTF | TFL+58 |
| QUERYTFQ | QUERYTF+17, QUERYTF+19, QUERYTF+24 |
| SET | QUERYTF+27, NEWTF+58, NEWTF+72 |
| Name | Field # of Occurrence |
|---|---|
| ^( | QUERYTF+27, NEWTF+55, NEWTF+69 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | SET~, SET+28, SET+29, QUERYTF~, QUERYTF+17, QUERYTF+26, QUERYTF+27, QUERYTF+28 |
| ASSAUTH | SET+2~, SET+10*, SET+11*, SET+28, SET+29 |
| ASSIGN | TFL+18~, TFL+23*, TFL+27, TFL+33, TFL+34, TFL+35, NEWTF+26~, NEWTF+37*, NEWTF+42 |
| CTR | SET~, SET+28*, SET+29*, QUERYTF+13~, QUERYTF+18*, QUERYTF+26, QUERYTF+27, 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+48*, TFL+53, TFL+55, GETICN+1~, GETICN+7* , GETICN+8, GETICN+9, QUERYTF+23, NEWTF~, NEWTF+31 |
| DGCN | SET+2~ |
| DGCN(0 | SET+3*, SET+5, SET+6, SET+7 |
| DIC | TFL+18~ |
| DIQ | TFL+18~ |
| DR | TFL+18~ |
| EDIPI | TFL+18~, TFL+35*, TFL+44, TFL+46, TFL+47, GETICN~, GETICN+4, GETICN+5, GETICN+6, NEWTF~ , NEWTF+37, NEWTF+38 |
| EN | TFL+47*, TFL+48, GETICN+1~, GETICN+6*, GETICN+7, SET+2~, SET+25*, SET+26 |
| ERROR | NEWTF+26~, NEWTF+61 |
| ERROR( | NEWTF+62, NEWTF+63 |
| FOUND | SET+2~, SET+23*, SET+28*, SET+29 |
| ICN | TFL+18~, TFL+34*, TFL+36, TFL+40*, TFL+58, GETICN+1~, GETICN+8*, GETICN+9*, GETICN+10 |
| ID | TFL+18~, TFL+23*, TFL+25, TFL+33, TFL+34, TFL+35, TFL+56, SET+2~, SET+7*, NEWTF+26~ , NEWTF+37*, NEWTF+40, NEWTF+61 |
| IDTYPE | SET+2~, SET+8*, SET+9*, SET+28, SET+29 |
| 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+45*, TFL+53* , TFL+56*, TFL+59* |
| LP | QUERYTF+13~, QUERYTF+27*, NEWTF+26~, NEWTF+55*, NEWTF+69* |
| LSTA | SET+2~, SET+5*, SET+6 |
| NCTFIEN | NEWTF+26~, NEWTF+48*, NEWTF+53 |
| NODE | SET+2~, SET+26*, SET+27 |
| PAT | QUERYTF~ |
| PDFN | QUERYTF+13~, QUERYTF+23*, QUERYTF+24, QUERYTF+26, QUERYTF+27 |
| 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+27*, SET+28 |
| 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+44, TFL+46, TFL+47, TFL+55, NEWTF+44*, NEWTF+45, NEWTF+48 , NEWTF+61, NEWTF+62, NEWTF+63, NEWTF+67 |
| SITEN | SET+2~, SET+3*, SET+7*, SET+9, SET+11, SET+28, SET+29 |
| SOURCE | SET+2~, SET+23* |
| STATUS | SET+2~, SET+27*, SET+28 |
| TFIEN | SET~, SET+3, SET+24, SET+25, SET+26, QUERYTF+27*, 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, NEWTF+26~, NEWTF+37*, NEWTF+41 |
| U | TFL+59 |
| VAFC | TFL+18~ |
| VAFCER | QUERYTF+13~, QUERYTF+17*, QUERYTF+18*, QUERYTF+24*, QUERYTF+28*, QUERYTFQ |
| VAFCTFU1 | TFL+18~ |
| X | TFL+18~, TFL+19*, TFL+58*, TFL+59, QUERYTF+19*, NEWTF+26~, NEWTF+27* |