AGED13 ; IHS/ASDS/EFG - EDIT PAGE 6 - VETERAN'S INFO ;
Source file <AGED13.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 4 | AGED11 AGED4B AGED8 AGEDBEA |
Name | Comments | DBIA/ICR reference |
---|---|---|
EDIT | ||
NONE | ;
|
|
DISAB | ;RATED DISABILITIES
|
|
END | ||
VACARD | ;DOES PATIENT HAVE A VALID VA CARD
|
|
READ | ||
SVCSEP | ;LAST SERVICE SEPARATION DATE
|
|
CLMNUM | ;CLAIM NUMBER
|
|
VET | ;VETERAN FIELD
|
|
SVCBR | ;LAST SERVICE BRANCH FIELD
|
|
1 | ;
|
|
VIETSVC | ;VIETNAM SERVICE INDICATED
|
|
ADD | ;EP - ADD A PATIENT
|
|
SVCCON | ;SERVICE CONNECTED
|
|
VAR | ;
|
|
TOOYUNG(AGDA,X) | ;
|
|
SVCENT | ;LAST SERVICE ENTRY DATE
|
|
DRAW | ;EP
|
Name | Field # of Occurrence |
---|---|
DD^%DT | DRAW+21 |
L11^AG0 | ADD+13 |
^AGED | VAR+6, DRAW+5 |
UPDATE1^AGED | VAR+33, READ+11, ADD+12 |
READ^AGED1 | VAR+28, READ+5 |
^AGED8 | END+7 |
^AGEDBEA | END+5 |
VERIF^AGUTILS | VAR+18, DRAW+28 |
^DIE | VET+6, VET+12, SVCBR+5, SVCENT+5, SVCSEP+5, VIETSVC+5, SVCCON+5, CLMNUM+5, DISAB+5, VACARD+5 , VACARD+15, VACARD+35, EDIT+3 |
$$GET1^DIQ | VAR+15, DRAW+13 |
^DIR | VACARD+29 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^AUPNPAT - [#9000001] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | VAR+8!, VAR+16, DRAW+6!, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VACARD+8 , VACARD+9, VACARD+10*, VACARD+18, VACARD+19*, VACARD+21, VACARD+22*, VACARD+23*, VACARD+25, VACARD+26 |
^DD( | VAR+14, DRAW+12 |
^DD("DD" | VAR+16, DRAW+14, TOOYUNG+3 |
^DPT - [#2] | VAR+2, VAR+8!, READ+8, DRAW+6!, TOOYUNG+2, EDIT+1!, EDIT+2, ADD+2, ADD+11 |
^DPT("APOS" | VAR+8!, DRAW+6!, EDIT+1!, ADD+11! |
^UTILITY("DIQ1" | VAR+9!, END!, DRAW+7! |
Name | Line Occurrences |
---|---|
@( | VAR+30, VAR+32, READ+7, READ+10 |
CLMNUM | ADD+8 |
DISAB | ADD+9 |
DRAW | READ |
END | VAR+29, READ+6 |
READ | VAR+2, READ+7, READ+8 |
SVCBR | ADD+3 |
SVCCON | ADD+7 |
SVCENT | ADD+4 |
SVCSEP | ADD+5 |
VACARD | VACARD+30, ADD+10 |
VAR | VAR+30, VAR+34, READ+12 |
VET | ADD+1 |
VIETSVC | ADD+6 |
Name | Field # of Occurrence |
---|---|
^("VET" | EDIT+1!, ADD+2, ADD+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AG | VAR+10*, VAR+14, END!, DRAW+8*, DRAW+12, DRAW+14, DRAW+15, DRAW+18, DRAW+20, DRAW+23 |
AG("ED" | VAR+30, READ+7 |
AG("N" | VAR+3*, VAR+10, VAR+22, VAR+30, VAR+32, READ+4, READ+7, READ+10, DRAW+1*, DRAW+8 |
AG("PG" | VAR+1*, DRAW+3* |
AG("SEL" | VAR+32*, READ+10*, EDIT, EDIT+1, EDIT+2 |
AGDA | TOOYUNG~, TOOYUNG+2 |
AGI | VAR+32*, READ+10*, END! |
>> AGLINE("-" | VAR+17, DRAW+27 |
>> AGLINE("EQ" | VAR+19, READ+2 |
AGSCRN | VAR+11*, VAR+12, VAR+13, END!, DRAW+9*, DRAW+10, DRAW+11, EDIT, ADD+11! |
>> AGSEENLY | VAR+20, READ+1, END+4 |
AGVETFLD | VAR+15*, VAR+16, END!, DRAW+13*, DRAW+14, DRAW+15, DRAW+16, DRAW+17, DRAW+18, DRAW+19 |
>> AGXTERN | VAR+30, READ+7, END+3 |
AGY | VAR+31*, VAR+32, READ+9*, READ+10, END! |
DA | VAR+4*, END!, DRAW+2*, VET+3*, VET+10*, SVCBR+3*, SVCENT+3*, SVCSEP+3*, VIETSVC+3*, SVCCON+3* , CLMNUM+3*, DISAB+3*, VACARD+3*, VACARD+13*, VACARD+33*, EDIT* |
>> DFN | VAR+2, VAR+4, VAR+8, VAR+15, VAR+16, VAR+33, READ+8, READ+11, DRAW+2, DRAW+6 , DRAW+13, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VET+3, VET+10, SVCBR+3 , SVCENT+3, SVCSEP+3, VIETSVC+3, SVCCON+3, CLMNUM+3, DISAB+3, VACARD+3, VACARD+8, VACARD+9, VACARD+10 , VACARD+13, VACARD+18, VACARD+19, VACARD+21, VACARD+22, VACARD+23, VACARD+25, VACARD+26, VACARD+33, EDIT , EDIT+1, EDIT+2, ADD+2, ADD+11, ADD+12 |
>> DFOUT | VAR+29, READ+6, END+2 |
DIC | VAR+12*, VAR+14, VAR+15, END!, DRAW+10*, DRAW+12, DRAW+13, VACARD+37! |
DIE | END!, VET+2*, VET+9*, SVCBR+2*, SVCENT+2*, SVCSEP+2*, VIETSVC+2*, SVCCON+2*, CLMNUM+2*, DISAB+2* , VACARD+2*, VACARD+12*, VACARD+32*, VACARD+37!, EDIT* |
DIE("NO^" | VET+5* |
DIR | VAR+21!, READ+3!, END+5!, END+6!, VACARD+29! |
DIR("?" | VAR+23*, VAR+24*, VAR+25*, VAR+26*, VAR+27* |
DIR("A" | VAR+22*, READ+4*, VACARD+28* |
DIR(0 | VACARD+27* |
>> DIROUT | VAR+29, READ+6 |
DLOUT | VAR+29, READ+6, END! |
DQOUT | VAR+30, READ+7, END! |
DR | VAR+13*, VAR+14, VAR+15, END!, DRAW+11*, DRAW+12, DRAW+13, VET+4*, VET+11*, SVCBR+4* , SVCENT+4*, SVCSEP+4*, VIETSVC+4*, SVCCON+4*, CLMNUM+4*, DISAB+4*, VACARD+4*, VACARD+14*, VACARD+34*, EDIT* |
DTOUT | VAR+29, READ+6, END! |
DUOUT | VAR+29, READ+6, END+5, VET+1!, VET+7*, SVCBR+1!, SVCBR+6*, SVCENT+1!, SVCENT+6*, SVCSEP+1! , SVCSEP+6*, VIETSVC+1!, VIETSVC+6*, SVCCON+1!, SVCCON+6*, CLMNUM+1!, CLMNUM+6*, DISAB+1!, DISAB+6*, VACARD+1~ , VACARD+6*, VACARD+11~, VACARD+16*, VACARD+31~, VACARD+36* |
DUZ(2 | VAR+33, READ+11, ADD+12 |
L | TOOYUNG+1~, TOOYUNG+2* |
ROUTID | VAR+5*, END+1!, DRAW+4* |
U | VAR+12, VAR+13, VAR+14, VAR+16, DRAW+10, DRAW+11, DRAW+12, DRAW+14, DRAW+20, DRAW+21 , DRAW+23, DRAW+25, DRAW+26, VACARD+8, VACARD+9, VACARD+10, VACARD+18, VACARD+19, VACARD+21, VACARD+22 , VACARD+23, VACARD+25, VACARD+26, EDIT |
X | TOOYUNG~, TOOYUNG+3! |
>> Y | VAR+16*, VAR+30, VAR+31, READ+7, READ+8, READ+9, DRAW+14*, DRAW+21*, DRAW+22, VET+7 , SVCBR+6, SVCENT+6, SVCSEP+6, VIETSVC+6, SVCCON+6, CLMNUM+6, DISAB+6, VACARD+6, VACARD+16, VACARD+30 , VACARD+36, TOOYUNG+2*, TOOYUNG+3, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9 , ADD+10 |
Name | Field # of Occurrence |
---|---|
$T( | VAR+5, DRAW+4 |
$T(@1+AG | VAR+11, DRAW+9 |