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 |
