AGED1 ; IHS/ASDS/EFG - EDIT PG 1 - ELIG/IDENTIFIERS ; MAR 19, 2010
Source file <AGED1.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 39 | AG0 AG3 AG3A AGADDREG AGBICEDZ AGED10 AGED11 AGED11A AGED12 AGED13 AGED2 AGED3 AGED4 AGED42 AGED4B AGED5 AGED6 AGED62 AGED7B AGED8 AGED9 AGEDBEA AGEDBEB AGEDBEC AGEDBED AGEDBEE AGEDBEF AGEDBEG AGEDBEH AGEDBEI AGEDGUAR AGEDIT AGEDMCD AGEDPRVB AGEDTPL AGEDWC AGEL0 AGLKIN AGSEE7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
LOC | ;GET LOCATION OF HOME FROM PATIENT FILE
|
|
C | ;EP - Edit multiple fields on a Reg edit page.
|
|
END | ;
|
|
EDEMAIL | ;EP - EDIT CURRENT EMAIL ADDRESS
|
|
WEB | ;EP - INTERNET ACCESS QUESTION
|
|
VAR2 | ;
|
|
READ | ;EP
|
|
DRAW | ;DRAW PAGE 1
|
|
EC | ;
|
|
1 | ;
|
|
QUES | ;EP
|
|
CKELIG | ;EP
|
|
ADDR2 | ;GET ADDRESS LINE 2 FROM VA PATIENT FILE
|
|
ESSNA | ||
ADDR3 | ;GET ADDRESS LINE 3 FROM VA PATIENT FILE
|
|
VAR | ;EP
|
|
MSTAT | ;GET MARITAL STATUS FROM VA PATIENT FILE
|
|
MSGPH | ;GET MESSAGE PHONE FROM PATIENT FILE
|
|
SSNA | ;Ver=add ask if patient has verified SSN
|
Name | Field # of Occurrence |
---|---|
ASKADD^AG3A | ESSNA+10 |
CALCELIG^AGBIC2 | CKELIG+3 |
^AGED | DRAW+5 |
UPDATE1^AGED | C+3 |
^AGED2 | END+4 |
EDITCHEK^AGEDERR | DRAW+79 |
FETCHERR^AGEDERR | DRAW+77 |
EN^AGSECCHK | DRAW+38 |
$$DTEST^AGUTILS | VAR+8 |
UPDTEMAL^AGUTILS | EDEMAIL+19 |
FILE^DICN | WEB+12 |
^DIE | SSNA+14, MSTAT+5, ADDR2+6, ADDR3+6, LOC+5, MSGPH+5, WEB+25, WEB+40, EDEMAIL+8 |
FILE^DIE | WEB+34 |
$$GET1^DIQ | ADDR2+1, ADDR2+9, ADDR3+1, ADDR3+9, WEB+23, EDEMAIL+3, EDEMAIL+10, EDEMAIL+11, DRAW+40, DRAW+41 , DRAW+42 |
EN^DIQ1 | DRAW+33, DRAW+50, DRAW+57 |
^DIR | SSNA+7, READ+3, EDEMAIL+16 |
$$UP^XLFSTR | READ+9 |
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 |
|
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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
^AUPNPAT - [#9000001] | Classic Fileman Calls, GET1^DIQ |
9000001.81 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | AGED1+7, VAR+5, VAR+7, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+4, WEB+11* , WEB+17*, WEB+29, WEB+32, CKELIG+1, CKELIG+2, DRAW+19, DRAW+22, DRAW+64, DRAW+69, DRAW+70 |
^AUTTSSN - [#9999999.78] | SSNA+1, DRAW+69 |
^DD( | DRAW+12 |
^DIC(5 - [#5] | DRAW+52, DRAW+59 |
^DPT - [#2] | VAR+1, VAR+4, DRAW+63, DRAW+70 |
^UTILITY("DIQ1" | DRAW+6! |
Name | Line Occurrences |
---|---|
@( | ESSNA+13, C+2 |
C | ESSNA+22 |
CKELIG | ESSNA+1 |
DRAW | VAR2+1, ESSNA |
END | ESSNA+14 |
READ | ESSNA+8, QUES+3 |
VAR | ESSNA+9, ESSNA+14, ESSNA+15, ESSNA+23, END+3 |
Name | Field # of Occurrence |
---|---|
^(0 | VAR+7, SSNA+1, DRAW+69 |
^(11 | CKELIG+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AG | END+1!, DRAW+8*, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+17, DRAW+19, DRAW+30, DRAW+47 , DRAW+54, DRAW+62, DRAW+71, DRAW+72 |
AG("AUPN" | VAR+6*, VAR+7* |
AG("C" | ESSNA+21*, C+2 |
AG("ED" | ESSNA+13, READ+1!, READ+13*, READ+14, READ+17!, READ+19, READ+20, READ+21*, READ+22*, READ+23* , READ+24*, READ+25*, READ+26*, READ+27* |
AG("ERR" | ESSNA+14, READ+1!, READ+18* |
AG("K" | DRAW+24*, DRAW+27, DRAW+29! |
AG("N" | ESSNA+8, ESSNA+15, C+2, QUES+1, DRAW+2*, DRAW+8, DRAW+74* |
AG("NARR1" | CKELIG+5 |
AG("PG" | VAR+2*, DRAW+1*, DRAW+77 |
AG("SEL" | C+2* |
AG("SVELIG" | AGED1+6*, AGED1+7*, CKELIG+1, CKELIG+2* |
AG("Y" | DRAW+23*, DRAW+25, DRAW+29! |
>> AGCHRT | VAR+5* |
AGI | C+2*, C+4! |
>> AGLINE("-" | VAR+9*, DRAW+73, DRAW+75 |
>> AGLINE("EQ" | VAR+10* |
>> AGLINE("PGLN" | VAR+11*, VAR2+2 |
>> AGOPT("ESCAPE" | ESSNA+9, ESSNA+11 |
>> AGOPT(14 | AGED1+6, ESSNA+1 |
>> AGPAT | VAR+4* |
AGRES | DRAW+31!, DRAW+45!, DRAW+48!, DRAW+53!, DRAW+55!, DRAW+60! |
AGRES( | DRAW+43, DRAW+52, DRAW+59 |
AGSCRN | END+1!, DRAW+9*, DRAW+10, DRAW+11, DRAW+13, DRAW+14, DRAW+15 |
>> AGSEENLY | VAR2+2, VAR2+3, ESSNA+22, DRAW+20, DRAW+21 |
>> AGSSNCHK | DRAW+64*, DRAW+65, DRAW+66, DRAW+67, DRAW+68 |
AGVAR | WEB+30~ |
AGVAR( | WEB+31*, WEB+33* |
>> AGXTERN | ESSNA+13, END+2 |
AGY | C+1*, C+2, C+4! |
DA | SSNA+12*, END+1!, MSTAT+3*, ADDR2+4*, ADDR3+4*, LOC+3*, MSGPH+3*, WEB+1~, WEB+13!, WEB+19~ , WEB+20*, WEB+26!, WEB+36~, WEB+37*, EDEMAIL+4!, EDEMAIL+6*, DRAW+3* |
DA(1 | WEB+7*, WEB+21*, WEB+22, WEB+37*, WEB+38 |
DD | WEB+12! |
>> DEF | WEB+23*, WEB+24 |
>> DFN | AGED1+7, VAR+1, VAR+4, VAR+5, VAR+7, VAR+8, SSNA+1, SSNA+12, ESSNA+15, END+3 , READ+12, READ+28, C+3, MSTAT+3, ADDR2+1, ADDR2+4, ADDR2+9, ADDR3+1, ADDR3+4, ADDR3+9 , LOC+3, MSGPH+3, WEB+4, WEB+7, WEB+11, WEB+17, WEB+21, WEB+23, WEB+29, WEB+31 , WEB+32, WEB+33, WEB+37, EDEMAIL+3, EDEMAIL+6, EDEMAIL+10, EDEMAIL+11, EDEMAIL+19, CKELIG+1, CKELIG+2 , DRAW+3, DRAW+19, DRAW+22, DRAW+40, DRAW+41, DRAW+42, DRAW+43, DRAW+52, DRAW+59, DRAW+63 , DRAW+64, DRAW+69, DRAW+70, DRAW+78 |
DFOUT | ESSNA+12, END+1!, READ+1!, READ+5* |
DIC | END+1!, MSGPH+7!, WEB+1~, WEB+7*, WEB+13!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, DRAW+10* , DRAW+12, DRAW+32, DRAW+34*, DRAW+39, DRAW+43, DRAW+49, DRAW+51*, DRAW+52, DRAW+56, DRAW+58* , DRAW+59 |
DIC("A" | MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7! |
DIC("B" | MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7! |
DIC("P" | WEB+10* |
DIC("S" | MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7! |
DIC("W" | MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7! |
DIC(0 | WEB+8* |
DIE | SSNA+11*, MSTAT+2*, ADDR2+3*, ADDR3+3*, LOC+2*, MSGPH+2*, WEB+19~, WEB+22*, WEB+26!, WEB+36~ , WEB+38*, EDEMAIL+4!, EDEMAIL+5* |
>> DIQ | DRAW+33*, DRAW+50*, DRAW+57* |
>> DIQ(0 | DRAW+33*, DRAW+50*, DRAW+57* |
DIR | SSNA+3!, SSNA+8!, ESSNA+2!, END+1!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, EDEMAIL+12! |
DIR("?" | ESSNA+3*, ESSNA+4*, ESSNA+5*, ESSNA+6*, ESSNA+7* |
DIR("A" | SSNA+5*, ESSNA+8*, EDEMAIL+14* |
DIR("B" | SSNA+6*, EDEMAIL+15* |
DIR(0 | SSNA+4*, READ+2*, EDEMAIL+13* |
DIROUT | READ+1! |
>> DLAYGO | WEB+10* |
DLOUT | ESSNA+14, END+1!, READ+1!, READ+6* |
DO | WEB+12! |
>> DPTFLAG | DRAW+17 |
DQOUT | ESSNA+15, END+1!, READ+1!, READ+8* |
DR | SSNA+10!, SSNA+13*, SSNA+15!, END+1!, MSTAT+4*, ADDR2+5*, ADDR3+5*, LOC+4*, MSGPH+4*, WEB+19~ , WEB+24*, WEB+26!, WEB+36~, WEB+39*, EDEMAIL+4!, EDEMAIL+7*, DRAW+11*, DRAW+12, DRAW+17*, DRAW+39 , DRAW+43, DRAW+52, DRAW+59 |
DT | WEB+9 |
DTOUT | ESSNA+12, END+1!, READ+1!, READ+4, EDEMAIL+17 |
DUOUT | ESSNA+12, END+1!, READ+1!, READ+7*, MSTAT+1!, MSTAT+6*, ADDR2+2!, ADDR2+7*, ADDR3+2!, ADDR3+7* , LOC+1!, LOC+6*, MSGPH+1!, MSGPH+6*, EDEMAIL+17 |
DUZ(2 | VAR+5, C+3, DRAW+78 |
ERROR | WEB+30~ |
HIT | DRAW+37~, DRAW+38, DRAW+40 |
HOME | DRAW+22*, DRAW+23, DRAW+24, DRAW+25*, DRAW+29! |
LNCNT | DRAW+23*, DRAW+26, DRAW+28*, DRAW+29! |
MYERRS | DRAW+76!, DRAW+77, DRAW+79 |
MYERRS("C" | ESSNA+9 |
MYVARS | DRAW+76!, DRAW+79 |
MYVARS("DFN" | DRAW+78* |
MYVARS("FINDCALL" | DRAW+78* |
MYVARS("SITE" | DRAW+78* |
NEWADDR2 | AGED1+8~, ADDR2+9* |
NEWADDR3 | AGED1+8~, ADDR3+9* |
NEWCITY | AGED1+8~ |
NEWHPH | AGED1+9~ |
NEWST | AGED1+8~ |
NEWSTATE | AGED1+9~ |
NEWZIP | AGED1+9~ |
NIEN | WEB+1~, WEB+20*, WEB+23, WEB+29, WEB+31, WEB+32, WEB+33, WEB+37 |
OIEN | WEB+1~, WEB+4*, WEB+17 |
OLDADDR2 | AGED1+8~, ADDR2+1* |
OLDADDR3 | AGED1+8~, ADDR3+1* |
OLDCITY | AGED1+8~ |
OLDEMAIL | EDEMAIL+2~, EDEMAIL+3*, EDEMAIL+11 |
OLDHPH | AGED1+9~ |
OLDST | AGED1+8~ |
OLDSTATE | AGED1+8~ |
OLDZIP | AGED1+9~ |
ROUTID | VAR+3*, END+1!, DRAW+4* |
TEMPDIC | DRAW+32*, DRAW+34, DRAW+45!, DRAW+49*, DRAW+51, DRAW+53!, DRAW+56*, DRAW+58, DRAW+60! |
TEMPY | AGED1+9~, ESSNA+10*! |
U | AGED1+7, VAR+4, VAR+5, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+29, CKELIG+1 , CKELIG+2, DRAW+10, DRAW+11, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+22, DRAW+52, DRAW+59 , DRAW+63, DRAW+64, DRAW+69, DRAW+70 |
WIEN | WEB+30~, WEB+32*, WEB+33 |
X | READ+9*, WEB+1~, WEB+9*, WEB+13! |
Y | SSNA+9, ESSNA+9, ESSNA+10*, ESSNA+11, ESSNA+14, ESSNA+15, END+1!, READ+5, READ+6, READ+7* , READ+8*, READ+9*, READ+10, READ+11*, READ+12, READ+13, READ+28, C+1, MSTAT+6, ADDR2+7 , ADDR3+7, LOC+6, MSGPH+6, WEB+1~, WEB+14, WEB+17, WEB+20, EDEMAIL+9, EDEMAIL+17 |
Name | Field # of Occurrence |
---|---|
$T( | VAR+3, DRAW+4 |
$T(@1+AG | DRAW+9 |