VAFCTFU1 ;BHM/RGY-Utilities for the Treating Facility file 391.91, CONTINUED ;6 May 2021 1:56 PM
Source file <VAFCTFU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TFL(LIST,DFN) | ;for dfn get list of treating facilities
|
|
| GETICN(RESULT,DFN) | ;
|
|
| GETDFN(RESULT,ICN) | ;
|
|
| IFLOCAL(RESULT,DFN) | ;
|
|
| SET(TFIEN,ARY,CTR) | ;This sets the array with the treating facility list.
; Returns: treating facility ^ treatment date ^ event reason (if any) ; *261 gjc@120899 (formerly part of VAFCTFU prior to DG*5.3*261) |
|
| QUERYTF(PAT,ARY,INDX) | ;a query for Treating Facility.
|
|
| QUERYTFQ | ||
| ISVAMC(SITEIEN,SITEID) | ;Return 1 if this is a VAMC
|
|
| ISPATIEN(TFLIEN) | ;Return 1 if Source ID Type is "PI" or null
|
| RPC Name | Call Tags |
|---|---|
| VAFCTFU CONVERT DFN TO ICN | GETICN |
| VAFCTFU CONVERT ICN TO DFN | GETDFN |
| VAFCTFU LOCAL ICN | IFLOCAL |
| VAFCTFU GET TREATING LIST | TFL |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | TFL+2, QUERYTF+27 |
| ^DGCN(391.91 - [#391.91] | SET+3, QUERYTF+37, QUERYTF+39, QUERYTF+40, QUERYTF+42, QUERYTF+45, QUERYTF+51, ISPATIEN+2, ISPATIEN+3 |
| Name | Line Occurrences |
|---|---|
| $$ISPATIEN | QUERYTF+41 |
| $$ISVAMC | QUERYTF+38 |
| $$QUERYTF | TFL+6 |
| QUERYTFQ | QUERYTF+25, QUERYTF+27, QUERYTF+29 |
| SET | QUERYTF+44, QUERYTF+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | SET~, SET+7, QUERYTF~, QUERYTF+25, QUERYTF+44, QUERYTF+51, QUERYTF+53 |
| CTR | SET~, SET+7*, QUERYTF+24~, QUERYTF+26*, QUERYTF+44, QUERYTF+51 |
| DA | TFL+1~, TFL+10* |
| DFN | TFL~, TFL+4, GETICN~, GETICN+1, IFLOCAL~, IFLOCAL+1 |
| DGCN | SET+3~ |
| DGCN(0 | SET+3*, SET+5, SET+6, SET+7 |
| DIC | TFL+1~, TFL+3* |
| DIERR | ISVAMC+2~ |
| DIQ | TFL+1~, TFL+3* |
| DIQ(0 | TFL+3* |
| DR | TFL+1~, TFL+3* |
| ICN | TFL+1~, TFL+4*, TFL+5, TFL+6, GETDFN~, GETDFN+1 |
| INDX | QUERYTF~, QUERYTF+26*, QUERYTF+37, QUERYTF+45 |
| INSTIEN | SET+3~, SET+5* |
| LIST | TFL~ |
| LIST( | TFL+8, TFL+10, TFL+12* |
| LIST(1 | TFL+2*, TFL+5*, TFL+7* |
| LP | QUERYTF+24~, QUERYTF+37*, QUERYTF+38, QUERYTF+39, QUERYTF+40, QUERYTF+45*, QUERYTF+51 |
| LSTA | SET+3~, SET+5*, SET+6 |
| MSG | ISVAMC+2~ |
| PAT | QUERYTF~, QUERYTF+25, QUERYTF+28 |
| PDFN | QUERYTF+24~, QUERYTF+28*, QUERYTF+29, QUERYTF+37, QUERYTF+39, QUERYTF+40, QUERYTF+45, QUERYTF+51 |
| RESULT | GETICN~, GETICN+1*, GETDFN~, GETDFN+1*, IFLOCAL~, IFLOCAL+1* |
| SITEID | ISVAMC~, ISVAMC+3, ISVAMC+4*, ISVAMC+6, ISVAMC+7 |
| SITEIEN | ISVAMC~, ISVAMC+3*, ISVAMC+4, ISVAMC+7 |
| TFIEN | SET~, SET+3, QUERYTF+40*, QUERYTF+41, QUERYTF+42, QUERYTF+43, QUERYTF+51* |
| TFLIEN | ISPATIEN~, ISPATIEN+2, ISPATIEN+3 |
| U | TFL+7, SET+7, ISVAMC+6 |
| VAFC | TFL+1~, TFL+8*, TFL+10, TFL+12 |
| VAFCER | QUERYTF+24~, QUERYTF+25*, QUERYTF+26*, QUERYTF+29*, QUERYTF+53*, QUERYTFQ |
| VAFCTFU1 | TFL+1~, TFL+9! |
| VAFCTFU1(4 | TFL+12 |
| X | TFL+1~, TFL+2*, TFL+6*, TFL+7, QUERYTF+27* |
| ZDLT | QUERYTF+24~, QUERYTF+42*, QUERYTF+43 |
| ZTDLT | QUERYTF+24~, QUERYTF+39*, QUERYTF+43* |
| ZTFIEN | QUERYTF+24~, QUERYTF+39*, QUERYTF+43*, QUERYTF+44 |
