VAFCTFU1 ;BHM/RGY-Utilities for the Treating Facility file 391.91, CONTINUED ; 5/23/12 12:51pm
Source file <VAFCTFU1.m>
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 |
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 |
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+37, QUERYTF+38, QUERYTF+39, QUERYTF+40, QUERYTF+43, QUERYTF+49 |
Name | Line Occurrences |
---|---|
$$QUERYTF | TFL+6 |
QUERYTFQ | QUERYTF+25, QUERYTF+27, QUERYTF+29 |
SET | QUERYTF+42, QUERYTF+49 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | SET~, SET+7, QUERYTF~, QUERYTF+25, QUERYTF+42, QUERYTF+49, QUERYTF+51 |
CTR | SET~, SET+7*, QUERYTF+24~, QUERYTF+26*, QUERYTF+42, QUERYTF+49 |
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+37, QUERYTF+43 |
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+43*, QUERYTF+49 |
LSTA | SET+3~, SET+5*, SET+6 |
PAT | QUERYTF~, QUERYTF+25, QUERYTF+28 |
PDFN | QUERYTF+24~, QUERYTF+28*, QUERYTF+29, QUERYTF+37, QUERYTF+38, QUERYTF+39, QUERYTF+43, QUERYTF+49 |
RESULT | GETICN~, GETICN+1*, GETDFN~, GETDFN+1*, IFLOCAL~, IFLOCAL+1* |
TFIEN | SET~, SET+3, QUERYTF+39*, QUERYTF+40, QUERYTF+41, QUERYTF+49* |
U | TFL+7, SET+7 |
VAFC | TFL+1~, TFL+8*, TFL+10, TFL+12 |
VAFCER | QUERYTF+24~, QUERYTF+25*, QUERYTF+26*, QUERYTF+29*, QUERYTF+51*, 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+40*, QUERYTF+41 |
ZTDLT | QUERYTF+24~, QUERYTF+38*, QUERYTF+41* |
ZTFIEN | QUERYTF+24~, QUERYTF+38*, QUERYTF+41*, QUERYTF+42 |