RMPFDD2 ;DDC/KAW-SET PATIENT DEMOGRAPHIC/ELIGIBILITY VARIABLES; [ 06/16/95 3:06 PM ]
Source file <RMPFDD2.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | (ADD,ELIG,MB,SVC)^VADPT |
Remote Order Entry System | 1 | (DISABLE,PAT)^RMPFUTL |
VA FileMan | 1 | DD^%DT |
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 |
Package | Total | Caller Graph |
---|---|---|
Remote Order Entry System | 4 | RMPFDD RMPFET RMPFQP3 RMPFQP4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ELIGBL | ||
E1 | ||
ELG1 | ||
ELG2 | ||
END | ||
ADDRESS | ;;Determine patient address
|
|
ALLIED | ||
SUB | ;;Eligibility determinations
|
|
1 | ;;SERVICE CONNECTED 50% to 100%
|
|
2 | ;;PRISONER OF WAR;I VASV(4) S RMPFF(C)="PRISONER OF WAR",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
3 | ;;MEXICAN BORDER WAR
|
|
4 | ;;WORLD WAR I;I $P(VAEL(2),U,2)="WORLD WAR I" S RMPFF(C)="WORLD WAR I",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
5 | ;;AID & ATTENDANCE;I VAMB(1)'=0 S RMPFF(C)="AID & ATTENDANCE",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
6 | ;;HOUSEBOUND;I VAMB(2)'=0 S RMPFF(C)="HOUSEBOUND",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
7 | ;;ALLIED VETERAN;D ALLIED^RMPFDD2
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(31 - [#31] | E1 |
^DIC(35 - [#35] | ALLIED |
^DIC(5 - [#5] | ADDRESS+6 |
^DIC(8 - [#8] | SUB+4 |
^DPT - [#2] | E1, ELG1+2, ALLIED |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | END! |
C | RMPFDD2+8*, E1*, END!, ADDRESS+3*, ADDRESS+4*, ADDRESS+7, ADDRESS+10!, ALLIED*, SUB+4*, SUB+5! |
D | E1*, END! |
DD | E1*, END! |
>> DFN | RMPFDD2+6, E1, ELG1+2, ALLIED, SUB+3 |
DOB | END! |
I | END!, ADDRESS+4*, ADDRESS+10!, SUB+5! |
IX | SUB+4*, SUB+5! |
N | END! |
P | E1*, END!, ADDRESS+4*, ADDRESS+10! |
POP | END! |
RMPFA | ADDRESS+3! |
RMPFA( | ADDRESS+4*, ADDRESS+7* |
>> RMPFCL | RMPFDD2+7*, RMPFDD2+9* |
>> RMPFELD | RMPFDD2+7*, ELG1+2* |
>> RMPFELG | RMPFDD2+7*, ELG1* |
>> RMPFELGD | RMPFDD2+7*, ELG1+2* |
>> RMPFELS | RMPFDD2+7*, ELG1+1*, ELG1+2 |
RMPFF | ELIGBL! |
RMPFF( | E1*, ALLIED*, SUB+4* |
RMPFL | ELG1!, END! |
RMPFL( | E1! |
>> RMPFONE | ADDRESS+9* |
>> RMPFTE | RMPFDD2+6*, E1*, ALLIED*, SUB+4* |
>> RMPFTED | ADDRESS+8* |
>> RMPFTSD | ADDRESS+8* |
>> RMPFVET | RMPFDD2+8* |
S | END!, ADDRESS+6*, ADDRESS+7, ADDRESS+10! |
S0 | END! |
S1 | END! |
S2 | END! |
S6 | END! |
SSN | END! |
ST | E1*, END! |
T | END!, ADDRESS+5*, ADDRESS+7, ADDRESS+10! |
U | E1, ELG1, ELG1+1, ELG1+2, ADDRESS+5, ADDRESS+6, ADDRESS+8, ADDRESS+9, ALLIED, SUB+4 |
VA | END+1! |
VAEL | END+1!, SUB+5! |
VAEL(1 | ELG1, SUB+4 |
VAEL(4 | RMPFDD2+8 |
VAEL(7 | RMPFDD2+9 |
VAEL(8 | ELG1+1 |
VAERR | END+1!, ADDRESS+10!, SUB+5! |
VAMB | END+1!, SUB+5! |
VAPA | ADDRESS+10! |
VAPA( | ADDRESS+4 |
VAPA(10 | ADDRESS+8 |
VAPA(4 | ADDRESS+5 |
VAPA(5 | ADDRESS+5 |
VAPA(6 | ADDRESS+5 |
VAPA(8 | ADDRESS+9 |
VAPA(9 | ADDRESS+8 |
VAROOT | END+1! |
VASV | END+1!, SUB+5! |
X | ELIGBL*, E1*, END!, ADDRESS+5*, ADDRESS+6, ADDRESS+10!, ALLIED*, SUB+5! |
XX | ALLIED, SUB+4*, SUB+5! |
Y | ELG1+2*, END!, SUB+5! |
YY | END!, ALLIED*, ALLIED+1*, SUB+4*, SUB+5! |
Z | END!, ADDRESS+5*, ADDRESS+7, ADDRESS+10! |
ZZ | SUB+4*, SUB+5! |
Name | Field # of Occurrence |
---|---|
$T(@IX | SUB+4 |