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 |