VAFCTFU1 ;BHM/RGY-Utilities for the Treating Facility file 391.91, CONTINUED ; 7/27/09 6:16pm
Source file <VAFCTFU1.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$STA^XUAF4 |
Uncategorized | 1 | ($$GETDFN,$$GETICN,$$IFLOCAL)^MPIF001 |
VA Fileman | 1 | EN^DIQ1 |
Package | Total | Caller Graph |
---|---|---|
Registration | 4 | DGPFHLS DGPFUT2 VAFCOFIN VAFCTFIN |
Clinical Reminders | 1 | PXRMRDI |
Health Summary | 1 | GMTSDEMB |
Order Entry Results Reporting | 1 | ORWMHV |
Name | Comments | DBIA/ICR reference |
---|---|---|
IFLOCAL(RESULT,DFN) | ;
|
|
GETDFN(RESULT,ICN) | ;
|
|
QUERYTFQ | ||
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.
|
|
TFL(LIST,DFN) | ;for dfn get list of treating facilities
|
|
GETICN(RESULT,DFN) | ;
|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | TFL+2, QUERYTF+27 |
^DGCN(391.91 - [#391.91] | SET+3, QUERYTF+31, QUERYTF+32, QUERYTF+38 |
Name | Line Occurrences |
---|---|
$$QUERYTF | TFL+6 |
QUERYTFQ | QUERYTF+25, QUERYTF+27, QUERYTF+29 |
SET | QUERYTF+31, QUERYTF+38 |
Name | Field # of Occurrence |
---|---|
^( | QUERYTF+31 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | SET~, SET+7, QUERYTF~, QUERYTF+25, QUERYTF+31, QUERYTF+38, QUERYTF+40 |
CTR | SET~, SET+7*, QUERYTF+24~, QUERYTF+26*, QUERYTF+31, QUERYTF+38 |
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* |
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+31, QUERYTF+32 |
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+31*, QUERYTF+32*, QUERYTF+38 |
LSTA | SET+3~, SET+5*, SET+6 |
PAT | QUERYTF~, QUERYTF+25, QUERYTF+28 |
PDFN | QUERYTF+24~, QUERYTF+28*, QUERYTF+29, QUERYTF+31, QUERYTF+32, QUERYTF+38 |
RESULT | GETICN~, GETICN+1*, GETDFN~, GETDFN+1*, IFLOCAL~, IFLOCAL+1* |
TFIEN | SET~, SET+3, QUERYTF+31*, QUERYTF+38* |
U | TFL+7, SET+7 |
VAFC | TFL+1~, TFL+8*, TFL+10, TFL+12 |
VAFCER | QUERYTF+24~, QUERYTF+25*, QUERYTF+26*, QUERYTF+29*, QUERYTF+40*, QUERYTFQ |
VAFCTFU1 | TFL+1~, TFL+9! |
VAFCTFU1(4 | TFL+12 |
X | TFL+1~, TFL+2*, TFL+6*, TFL+7, QUERYTF+27* |