AGED62 ; IHS/ASDS/EFG - EDIT - PAGE 4 NEW RAILROAD SCREEN - PG2 ;
Source file <AGED62.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 2 | AGED4A AGED4A01 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CONT | ;
|
|
HDR | ;
|
|
COINS | ;PART B CO-INSURANCE
|
|
MSP | ;GET DATA FROM AUPNMSP
|
|
VAR | ||
GETAW | ;DISPLAY
|
|
NEWENTRY | ;NEW ENTRY
|
|
DED | ;PART B DEDUCTIBLE
|
|
1 | ;
|
|
LSTAREC | ;FIND LAST PART A RECORD
|
|
DRAW | ;EP
|
|
CLEANZER(WD0) | ;EP - CLEAN ZERO NODE WITH NO DATES
|
|
END | ||
EN(WD0,WD1,NEWENTRY,AGSELECT) | ;EP -
|
|
WMSG | ;DISPLAY THIS MSG IF THERE IS NO ENTRY IN THE MEDICARE ELIGIBILITY
|
|
INPDED | ;INPATIENT DEDUCTIBLE
|
|
DTWC | ;
|
|
CHKDATES(PARTIEN) | ;
|
|
SNF | ;SNF C0-INSURANCE
|
|
COINS61 | ;CO-INSURANCE (61-90)
|
|
PARTIEN(INSPTR,PART) | ;
|
|
ADDMSP | ;
|
|
MCRDAY | ;RAILROAD DAYS
|
|
LSTBREC | ;FIND LAST PART B RECORD
|
|
LIFRES | ;LIFETIME RESERVE
|
|
CLEAN(WD0) | ;CLEAN EMPTY RECORD. IF NO ELIGIBILITY DATES RECORD IS
|
Name | Field # of Occurrence |
---|---|
^%DTC | MSP+6 |
UPDATE1^AGED | VAR+25 |
READ^AGED1 | VAR+15 |
EDITCHEK^AGEDERR | CONT+5 |
FETCHERR^AGEDERR | CONT+2 |
$$ACTELIG^AGEDERR2 | MSP+11 |
$$DTEST^AGUTILS | HDR+17 |
$$ISACTIVE^AGUTILS | CHKDATES+6 |
$$UPDTSEL^AGUTILS | EN+11, VAR+24 |
PROGVIEW^AGUTILS | HDR+9 |
VERIF^AGUTILS | CONT+7 |
$$S^AGVDF | HDR+8 |
^DIC | NEWENTRY+7, ADDMSP+6, LSTAREC+11, LSTBREC+11 |
^DIE | ADDMSP+11, ADDMSP+13, INPDED+5, COINS61+5, LIFRES+5, SNF+5, DED+5, COINS+5, MCRDAY+5 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, MSP+17, MSP+18, MSP+19 |
^DIR | VAR+1 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNRRE - [#9000005] | Classic Fileman Calls |
^AUPNMSP - [#9000037] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNMSP("C" | MSP+5, MSP+14, MSP+16 |
^AUPNPAT - [#9000001] | HDR+2, HDR+4, HDR+20 |
^AUTNINS("B" | EN+5 |
^AUTTPIC - [#9999999.65] | LSTAREC+3, LSTAREC+15, LSTBREC+3, LSTBREC+15, PARTIEN+5, CHKDATES+4, CHKDATES+5, CHKDATES+7 |
^AUTTPIC("C" | PARTIEN+4 |
^DD( | GETAW+26 |
^DD(9999999.65 | LSTAREC+9, LSTBREC+9 |
^DIC(4 - [#4] | HDR+12 |
^DPT - [#2] | HDR+1 |
Name | Line Occurrences |
---|---|
$$CHKDATES | GETAW+9, GETAW+10 |
$$PARTIEN | GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1 |
@( | VAR+23 |
ADDMSP | VAR+20 |
CLEANZER | EN+7, EN+8, CLEAN+2 |
DRAW | EN+7, VAR |
DTWC | EN+8 |
END | EN+7, EN+8, VAR+17 |
GETAW | DRAW+4 |
HDR | DRAW+3 |
MSP | GETAW+5 |
NEWENTRY | EN+7 |
VAR | VAR+16, VAR+17, VAR+19, VAR+20, VAR+21, VAR+27 |
WMSG | EN+7 |
Name | Field # of Occurrence |
---|---|
^(0 | HDR+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ACTIVE | CHKDATES+6*, CHKDATES+7 |
ADA | END! |
ADFN | END! |
ADT | END! |
AG | END!, GETAW+13* |
AG("AUPN" | HDR+3*, HDR+4* |
AG("C" | VAR+21, VAR+23, GETAW+12!, GETAW+25*, GETAW+35 |
AG("CNT" | MSP+1*, MSP+16, MSP+22*, MSP+23! |
AG("COVDT" | LSTAREC+3*, LSTAREC+4, LSTAREC+12*, LSTAREC+14, LSTAREC+15, LSTBREC+3*, LSTBREC+4, LSTBREC+12*, LSTBREC+14, LSTBREC+15 |
AG("EDIT" | HDR+24! |
AG("ERR" | VAR+17 |
AG("MSPDT" | MSP+1*, MSP+5, MSP+14*, MSP+16, MSP+23! |
AG("N" | VAR+19, VAR+23, GETAW+35* |
AG("PG" | DRAW+1*, CONT+2 |
AG("REC" | MSP+15*, MSP+16*, MSP+17, MSP+18, MSP+19, MSP+23!, LSTAREC+15*, LSTAREC+16, LSTBREC+15*, LSTBREC+16 |
AG("SEL" | VAR+23* |
>> AGCHRT | HDR+2*, HDR+18 |
>> AGELP("INS" | EN+11 |
>> AGELSTS | HDR+20*, HDR+21 |
AGI | VAR+23*, VAR+26! |
>> AGINS | EN+11, VAR+24 |
>> AGLINE("-" | HDR+5*, HDR+13*, GETAW+2, GETAW+4, GETAW+6, CONT+6 |
>> AGLINE("EQ" | VAR+2, HDR+6*, HDR+14*, HDR+15, HDR+22 |
>> AGLINE("PGLN" | HDR+7* |
>> AGPAT | HDR+1*, HDR+16 |
AGSCRN | END!, GETAW+13, GETAW+14*, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+21 , GETAW+22, GETAW+23, GETAW+24 |
>> AGSEENLY | VAR+1, HDR+10 |
AGSELECT | EN~, EN+4, EN+11*, VAR+24*, CONT+4 |
AGY | VAR+22*, VAR+23, VAR+26! |
>> CAPDENT | GETAW+20*, GETAW+26 |
>> CAPTION | GETAW+16*, GETAW+26 |
>> COMPIEN | EN+9*, EN+11, VAR+24 |
D0 | GETAW+28*, GETAW+29, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1! |
DA | CLEANZER+1!, CLEANZER+2*, END!, HDR+23*, NEWENTRY+2!, ADDMSP+1!, ADDMSP+9*, INPDED+1!, INPDED+6!, COINS61+1! , COINS61+6!, LIFRES+1!, LIFRES+6!, SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1! , MCRDAY+6!, LSTAREC+16*, LSTBREC+16* |
DA(1 | INPDED+2*, INPDED+3, COINS61+2*, COINS61+3, LIFRES+2*, LIFRES+3, SNF+2*, SNF+3, DED+2*, DED+3 , COINS+2*, COINS+3, MCRDAY+2*, MCRDAY+3, LSTAREC+6*, LSTAREC+7, LSTBREC+6*, LSTBREC+7 |
DD | NEWENTRY+6!, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1! |
>> DFN | VAR+25, HDR+1, HDR+2, HDR+4, HDR+17, HDR+20, HDR+23, GETAW+28, CONT+4, NEWENTRY+5 , MSP+5, MSP+11, MSP+14, MSP+16 |
DFOUT | VAR+18, END! |
DIC | END!, GETAW+17*, GETAW+26, GETAW+27, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2! , NEWENTRY+3*, ADDMSP+1!, ADDMSP+3*, ADDMSP+8, INPDED+1!, INPDED+6!, COINS61+1!, COINS61+6!, LIFRES+1!, LIFRES+6! , SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1!, MCRDAY+6!, LSTAREC+5!, LSTAREC+7* , LSTBREC+5!, LSTBREC+7* |
DIC("A" | LSTAREC+10*, LSTBREC+10* |
DIC("DR" | ADDMSP+2* |
DIC("P" | LSTAREC+9*, LSTBREC+9* |
DIC("S" | ADDMSP+5* |
DIC(0 | NEWENTRY+4*, ADDMSP+4*, LSTAREC+8*, LSTBREC+8* |
DIE | NEWENTRY+2!, ADDMSP+1!, ADDMSP+8*, INPDED+1!, INPDED+3*, INPDED+6!, COINS61+1!, COINS61+3*, COINS61+6!, LIFRES+1! , LIFRES+3*, LIFRES+6!, SNF+1!, SNF+3*, SNF+6!, DED+1!, DED+3*, DED+6!, COINS+1!, COINS+3* , COINS+6!, MCRDAY+1!, MCRDAY+3*, MCRDAY+6! |
DIFF | MSP+2~, MSP+6*, MSP+11, MSP+12! |
DIK | CLEANZER+1!, CLEANZER+2* |
DIR | VAR+1!, VAR+7!, ADDMSP+1! |
DIR("?" | VAR+8*, VAR+9*, VAR+10*, VAR+11*, VAR+12* |
DIR("A" | VAR+1*, VAR+14* |
DIR(0 | VAR+1* |
DLOUT | VAR+17, END! |
DO | NEWENTRY+6! |
DQOUT | VAR+19, END! |
DR | END!, GETAW+18*, GETAW+26, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2!, ADDMSP+1! , ADDMSP+10*, ADDMSP+12*, INPDED+1!, INPDED+4*, INPDED+6!, COINS61+1!, COINS61+4*, COINS61+6!, LIFRES+1!, LIFRES+4* , LIFRES+6!, SNF+1!, SNF+4*, SNF+6!, DED+1!, DED+4*, DED+6!, COINS+1!, COINS+4*, COINS+6! , MCRDAY+1!, MCRDAY+4*, MCRDAY+6! |
DT | MSP+6 |
DTOUT | VAR+18, END! |
DTREC | CHKDATES+1~, CHKDATES+7* |
>> DUOUT | VAR+17 |
DUZ | HDR+9 |
DUZ(2 | VAR+25, HDR+2, HDR+12, CONT+4 |
EFFDT | CHKDATES+1~, CHKDATES+3*, CHKDATES+4*, CHKDATES+5, CHKDATES+6, CHKDATES+7 |
>> ENDDT | CHKDATES+5*, CHKDATES+6 |
>> EXECUTE | GETAW+23* |
FOUND | PARTIEN+1~, PARTIEN+2*, PARTIEN+4, PARTIEN+5* |
INSPTR | EN+3~, EN+4*, EN+5*, GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1, PARTIEN~, PARTIEN+4 |
>> ITEMNUM | GETAW+21*, GETAW+25, GETAW+26 |
>> LASTMSP | MSP+5*, MSP+6 |
>> MSPALERT | VAR+4, VAR+14, MSP+4*, MSP+11*, MSP+20 |
MYERRS | CONT+1!, CONT+2, CONT+5 |
MYVARS | CONT+1!, CONT+5 |
MYVARS("DFN" | CONT+4* |
MYVARS("FINDCALL" | CONT+4* |
MYVARS("SELECTION" | CONT+4* |
MYVARS("SITE" | CONT+4* |
NEWENTRY | EN~, EN+6, EN+12*, CONT+5, NEWENTRY+10* |
>> NEWLINE | GETAW+19*, GETAW+26 |
PART | PARTIEN~, PARTIEN+5 |
PARTAD0 | EN+3~, GETAW+9*, GETAW+11, GETAW+30, GETAW+31 |
PARTAIEN | EN+3~, GETAW+7*, GETAW+9, GETAW+34!, INPDED+2, COINS61+2, LIFRES+2, SNF+2, MCRDAY+2, LSTAREC+1* , LSTAREC+2, LSTAREC+3, LSTAREC+6, LSTAREC+15 |
PARTBD0 | EN+3~, GETAW+10*, GETAW+11, GETAW+32, GETAW+33 |
PARTBIEN | EN+3~, GETAW+8*, GETAW+10, GETAW+34!, DED+2, COINS+2, LSTBREC+1*, LSTBREC+2, LSTBREC+3, LSTBREC+6 , LSTBREC+15 |
PARTIEN | PARTIEN+1~, PARTIEN+3*, PARTIEN+4*, PARTIEN+5, CHKDATES~, CHKDATES+4, CHKDATES+5, CHKDATES+7 |
>> PREEXEC | GETAW+24* |
REC | END! |
RETURN | PARTIEN+1~, PARTIEN+2*, PARTIEN+5*, PARTIEN+6, CHKDATES+1~, CHKDATES+2*, CHKDATES+7*, CHKDATES+8 |
>> ROUTID | DRAW+2* |
>> TAGCALL | GETAW+22*, GETAW+25 |
U | EN+4, VAR+24, HDR+1, HDR+2, HDR+12, HDR+20, GETAW+16, GETAW+17, GETAW+18, GETAW+19 , GETAW+20, GETAW+21, GETAW+22, GETAW+26, LSTAREC+9, LSTAREC+12, LSTBREC+9, LSTBREC+12, PARTIEN+5 |
WD0 | EN~, EN+7, EN+8, EN+9, CLEAN~, CLEAN+2, CLEANZER~, CLEANZER+2, NEWENTRY+9* |
WD1 | EN~, EN+9, CLEAN+2 |
WDA | END! |
WDFN | END! |
WDT | END! |
X | NEWENTRY+5*, MSP+2~, MSP+6, MSP+12!, ADDMSP+1! |
X1 | MSP+2~, MSP+6*, MSP+12! |
X2 | MSP+2~, MSP+6*, MSP+12! |
Y | EN+7, EN+8, VAR+16, VAR+17, VAR+19, VAR+20, VAR+22, END!, NEWENTRY+8, NEWENTRY+9 , ADDMSP+1!, ADDMSP+7, ADDMSP+9, LSTAREC+12, LSTAREC+13, LSTBREC+12, LSTBREC+13 |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+2 |
$T(@1+AG | GETAW+14 |