AGEDMCD ; IHS/ASDS/TPF - NEW EDIT/DISP MCD SCREEN - REPLACES AGED5 AND AGED51 ;
Source file <AGEDMCD.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 3 | AG5 AGED4A AGED4A01 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RATECD | ;RATE CODE
|
|
CONT | ;
|
|
PCP | ;PRIM CARE PROV
|
|
MEDSTATE | ;MCD ST EDIT FOR NEW ENTRY
|
|
GETAW | ;DISP
|
|
MSG | ;DISP IF NEW ENTRY
|
|
END | ||
NEWENTRY | ;NEW ENTRY
|
|
GRPNAME | ;GRP NAME
|
|
EFFDT | ;ELIG DTS AND COV TYPE
|
|
COVTYPE | ;
|
|
AEFFDT | ;ADD EFF DT
|
|
1 | ;
|
|
MEDDOB | ;MCD DOB
|
|
DRAW | ;EP
|
|
CLEANZER(WD0) | ;EP - CLEAN ZERO NODE WITH NO DTS
|
|
ENDDATE | ;
|
|
OVERLAP(WD0,WD1) | ;EP - DETERMINE OVERLAPPING ELIG RANGES
|
|
GOODDT(AD0,AD1) | ;EP -
|
|
CCONFILE | ;CC ON FILE
|
|
MEDNUM | ;MCD #
|
|
EN(WD0,WD1,NEWENTRY,AGSELECT,AGOPTION) | ;EP
|
|
VAR | ||
MEDNAME | ;MCD NAME
|
|
CLEAN(WD0) | ;IF NO ELIG DTS, CLEAN EMPTY RECORD.
|
|
PLANNM | ;PLAN NAME
|
Name | Field # of Occurrence |
---|---|
UPDATE1^AGED | CONT+5, GETAW+52 |
READ^AGED1 | VAR+22 |
EDITCHEK^AGEDERR | GETAW+56 |
FETCHERR^AGEDERR | GETAW+54 |
GETDATES^AGEDMCD1 | GETAW+47 |
HDR^AGEDMCD1 | DRAW+4 |
$$20^AGEROVR | PLANNM+6 |
$$30^AGEROVR | COVTYPE+7 |
$$31^AGEROVR | RATECD+7 |
$$UPDTSEL^AGUTILS | EN+15, CONT+4 |
$$USED^AGUTILS | EFFDT+6 |
VERIF^AGUTILS | GETAW+58 |
^DIC | NEWENTRY+9, AEFFDT+10 |
^DIE | CONT+10, NEWENTRY+25, MEDSTATE+6, EFFDT+23, ENDDATE+6, COVTYPE+11, OVERLAP+28, MEDNUM+6, MEDNAME+6, MEDDOB+6 , PCP+5, GRPNAME+5, PLANNM+10, RATECD+11, CCONFILE+8, CCONFILE+14, CCONFILE+20 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+31, GETAW+33, GETAW+35, GETAW+41, NEWENTRY+22 |
^DIR | VAR+6, GETAW+59, EFFDT+15 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^AUPNMCD - [#9000004] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AGFAC - [#9009061] | EN+12 |
^AUPNMCD - [#9000004] | VAR+7, VAR+12, VAR+14, AEFFDT+4*, OVERLAP+3, OVERLAP+4, OVERLAP+9, OVERLAP+11, OVERLAP+13, MEDNAME+5 , MEDDOB+5, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3 |
^AUTNINS("B" | NEWENTRY+18 |
^DD( | GETAW+23, GETAW+24 |
^DD("DD" | MEDDOB+5 |
^DPT - [#2] | MSG+1, MEDNAME+5, MEDDOB+5 |
Name | Line Occurrences |
---|---|
$$GOODDT | EFFDT+27, ENDDATE+9 |
@( | CONT+2 |
AEFFDT | EN+8, VAR+11, EFFDT+2, OVERLAP+22 |
CCONFILE | EN+12 |
CLEAN | VAR+7, VAR+14 |
CLEANZER | EN+8, CLEAN+1 |
CONT | VAR+23 |
DRAW | EN+6, VAR |
EFFDT | VAR+13, EFFDT+27 |
END | EN+6, EN+8, VAR+7, VAR+14, VAR+26 |
ENDDATE | AEFFDT+13, ENDDATE+9 |
GETAW | DRAW+5 |
GRPNAME | EN+12 |
MEDDOB | EN+11 |
MEDNAME | EN+10 |
MEDNUM | EN+9 |
MEDSTATE | EN+7, GETAW+52 |
MSG | EN+7 |
NEWENTRY | EN+6 |
OVERLAP | COVTYPE+13 |
PCP | EN+12 |
PLANNM | EN+12 |
RATECD | EN+12 |
VAR | VAR+8, VAR+11, VAR+12, VAR+24, VAR+26, VAR+28, CONT+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AD0 | GOODDT~ |
AD1 | GOODDT~ |
ADA | END! |
>> ADDCHK | NEWENTRY+12* |
ADFN | END+1! |
ADT | END! |
AG | END!, GETAW+3*, GETAW+36 |
AG("C" | CONT+2, GETAW+1!, GETAW+18*, GETAW+48 |
AG("ERR" | VAR+26 |
AG("N" | VAR+21, VAR+28, CONT+2, GETAW+48* |
AG("PG" | EN+1*, DRAW+1*, GETAW+54 |
AG("SEL" | CONT+2* |
AGDOB | MEDDOB+5~*, MEDDOB+7! |
>> AGELP("INS" | EN+15, NEWENTRY+18*, COVTYPE+7, PLANNM+6, RATECD+7 |
AGERRSOL | END+1! |
AGI | CONT+2*, CONT+11! |
>> AGINS | EN+15, CONT+4 |
>> AGLINE("-" | GETAW+49, GETAW+57 |
>> AGLINE("EQ" | VAR+2 |
>> AGOPT("ESCAPE" | VAR+8, VAR+9, VAR+24, VAR+25 |
AGOPTION | EN~, EN+12 |
AGSCRN | END!, GETAW+3, GETAW+4*, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 , GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17 |
>> AGSEENLY | VAR+1, GETAW+52, GETAW+59 |
AGSELECT | EN~, EN+15*, CONT+4*, GETAW+55, EFFDT+6, COVTYPE+7, PLANNM+6, RATECD+7 |
AGSEX | NEWENTRY+21~, NEWENTRY+22* |
AGY | CONT+1*, CONT+2, CONT+11! |
>> AUPNPAT | GETAW+55 |
BDT | GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6 |
>> CANCELED | EFFDT+7, EFFDT+16* |
>> CAPDENT | GETAW+11*, GETAW+23, GETAW+24 |
>> CAPTION | GETAW+7*, GETAW+23, GETAW+24 |
>> COMPIEN | EN+13*, EN+15, EN+17*, CONT+4 |
D0 | GETAW+28*, GETAW+30*, GETAW+31, GETAW+33, GETAW+35, GETAW+37~, GETAW+39*, GETAW+41, GETAW+42*, GETAW+45* |
DA | CONT+6~, CONT+8*, CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+3!, NEWENTRY+16*, MEDSTATE+2*, AEFFDT+14!, EFFDT+1! , EFFDT+11!, EFFDT+18*, EFFDT+25, ENDDATE+2*, COVTYPE+2*, OVERLAP+23*, MEDNUM+1!, MEDNUM+2*, MEDNUM+7!, MEDNAME+1! , MEDNAME+2*, MEDNAME+7!, MEDDOB+1!, MEDDOB+2*, MEDDOB+7!, PCP+1!, PCP+2*, PCP+6!, GRPNAME+1!, GRPNAME+2* , GRPNAME+6!, PLANNM+1!, PLANNM+2*, PLANNM+11!, RATECD+2!, RATECD+3*, RATECD+12!, CCONFILE+2!, CCONFILE+3*, CCONFILE+10! , CCONFILE+11*, CCONFILE+16!, CCONFILE+17*, CCONFILE+22! |
DA(1 | AEFFDT+5*, AEFFDT+6, EFFDT+19*, EFFDT+20, ENDDATE+3*, ENDDATE+4, COVTYPE+3*, COVTYPE+4, OVERLAP+24*, OVERLAP+25 |
DATESORT | END+1! |
DD | NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2! |
DEFEDDT | EN+2!, END+1!, AEFFDT+3 |
>> DFN | CONT+5, GETAW+52, GETAW+55, MSG+1, NEWENTRY+6, NEWENTRY+7, NEWENTRY+10*, NEWENTRY+22, EFFDT+6, MEDNAME+5 , MEDDOB+5 |
DFOUT | VAR+27, END! |
DIC | END!, GETAW+8*, GETAW+23, GETAW+24, GETAW+29, GETAW+31, GETAW+33, GETAW+35, GETAW+38*, GETAW+41 , GETAW+44, NEWENTRY+3!, NEWENTRY+4*, NEWENTRY+15, MEDSTATE+1!, MEDSTATE+7!, AEFFDT+1!, AEFFDT+6*, AEFFDT+14!, EFFDT+1! , EFFDT+11!, EFFDT+24!, ENDDATE+1!, ENDDATE+7!, COVTYPE+1!, COVTYPE+12!, OVERLAP+21!, OVERLAP+29!, MEDNUM+1!, MEDNUM+7! , MEDNAME+1!, MEDNAME+7!, MEDDOB+1!, MEDDOB+7!, PCP+1!, PCP+6!, GRPNAME+1!, GRPNAME+6!, PLANNM+1!, PLANNM+11! , RATECD+2!, RATECD+12!, CCONFILE+2!, CCONFILE+10!, CCONFILE+16!, CCONFILE+22! |
DIC("A" | AEFFDT+9* |
DIC("B" | AEFFDT+2*, AEFFDT+3* |
DIC("S" | NEWENTRY+8* |
DIC(0 | NEWENTRY+5*, AEFFDT+8* |
DIE | CONT+6~, CONT+7*, GETAW+37~, NEWENTRY+3!, NEWENTRY+15*, MEDSTATE+1!, MEDSTATE+3*, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14! , EFFDT+1!, EFFDT+11!, EFFDT+20*, EFFDT+24!, ENDDATE+1!, ENDDATE+4*, ENDDATE+7!, COVTYPE+1!, COVTYPE+4*, COVTYPE+12! , OVERLAP+21!, OVERLAP+25*, OVERLAP+29!, MEDNUM+1!, MEDNUM+3*, MEDNUM+7!, MEDNAME+1!, MEDNAME+3*, MEDNAME+7!, MEDDOB+1! , MEDDOB+3*, MEDDOB+7!, PCP+1!, PCP+3*, PCP+6!, GRPNAME+1!, GRPNAME+3*, GRPNAME+6!, PLANNM+1!, PLANNM+3* , PLANNM+11!, RATECD+2!, RATECD+4*, RATECD+12!, CCONFILE+2!, CCONFILE+4*, CCONFILE+10!, CCONFILE+12*, CCONFILE+16!, CCONFILE+18* , CCONFILE+22! |
DIE("NO^" | MEDSTATE+5*, COVTYPE+9*, MEDNUM+5*, PLANNM+8*, RATECD+9*, CCONFILE+13* |
DIK | CLEANZER+1!, CLEANZER+2* |
DIR | VAR+3!, VAR+15!, NEWENTRY+3!, EFFDT+11! |
DIR("?" | VAR+16*, VAR+17*, VAR+18*, VAR+19*, VAR+20* |
DIR("A" | VAR+4*, VAR+21*, GETAW+59*, EFFDT+14* |
DIR("B" | EFFDT+13* |
DIR(0 | VAR+5*, GETAW+59*, EFFDT+12* |
>> DIROUT | VAR+10 |
>> DLAYGO | AEFFDT+7* |
DLOUT | VAR+26, END! |
DO | NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2! |
DQOUT | VAR+28, END! |
DR | CONT+6~, CONT+9*, END!, GETAW+9*, GETAW+23, GETAW+24, GETAW+31, GETAW+33, GETAW+35, GETAW+37~ , GETAW+40*, GETAW+41, NEWENTRY+3!, NEWENTRY+19*, NEWENTRY+23*, MEDSTATE+1!, MEDSTATE+4*, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14! , EFFDT+1!, EFFDT+11!, EFFDT+21*, EFFDT+24!, ENDDATE+1!, ENDDATE+5*, ENDDATE+7!, COVTYPE+1!, COVTYPE+8*, COVTYPE+10* , COVTYPE+12!, OVERLAP+21!, OVERLAP+26*, OVERLAP+29!, MEDNUM+1!, MEDNUM+4*, MEDNUM+7!, MEDNAME+1!, MEDNAME+4*, MEDNAME+5* , MEDNAME+7!, MEDDOB+1!, MEDDOB+4*, MEDDOB+5*, MEDDOB+7!, PCP+1!, PCP+4*, PCP+6!, GRPNAME+1!, GRPNAME+4* , GRPNAME+6!, PLANNM+1!, PLANNM+7*, PLANNM+9*, PLANNM+11!, RATECD+2!, RATECD+8*, RATECD+10*, RATECD+12!, CCONFILE+2! , CCONFILE+7*, CCONFILE+10!, CCONFILE+13*, CCONFILE+16!, CCONFILE+19*, CCONFILE+22! |
DR(2 | EFFDT+22*, OVERLAP+27* |
>> DT1 | OVERLAP+6*, OVERLAP+8*, OVERLAP+9*, OVERLAP+10, OVERLAP+11, OVERLAP+13, OVERLAP+16 |
>> DT2 | OVERLAP+13*, OVERLAP+14*, OVERLAP+15, OVERLAP+16 |
DTOUT | VAR+10, VAR+27, END! |
>> DUOUT | VAR+10, VAR+26 |
DUZ(2 | EN+12, CONT+5, GETAW+52, GETAW+55 |
EDT | GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6 |
>> EXECUTE | GETAW+14*, GETAW+33, GETAW+42 |
>> EXIT | EN+3*, EN+4, EN+5*, EN+6*, EN+8*, GETAW+3 |
IN3PB | EFFDT+5!, EFFDT+6*, EFFDT+7 |
>> ITEMNUM | GETAW+12*, GETAW+18, GETAW+21, GETAW+22 |
MYERRS | END+1!, GETAW+53!, GETAW+54, GETAW+56 |
MYERRS("C" | VAR+8, VAR+24 |
MYVARS | END+1!, GETAW+53!, GETAW+56 |
MYVARS("DFN" | GETAW+55* |
MYVARS("FINDCALL" | GETAW+55* |
MYVARS("SELECTION" | GETAW+55* |
MYVARS("SITE" | GETAW+55* |
NEWENTRY | EN~, EN+4, EN+16*, GETAW+27, GETAW+52, GETAW+56, NEWENTRY+14*, MEDNAME+5, MEDDOB+5 |
>> NEWLINE | GETAW+10*, GETAW+20 |
>> OPENEND | OVERLAP+7* |
>> OVERLAP | OVERLAP+5*, OVERLAP+9, OVERLAP+15*, OVERLAP+16*, OVERLAP+17 |
>> POSTEXEC | GETAW+17*, GETAW+43 |
>> PRECAPEX | GETAW+16*, GETAW+23, GETAW+24 |
>> PREEXEC | GETAW+15*, GETAW+31, GETAW+33 |
REC | END+1! |
>> ROUTID | DRAW+2* |
>> STATEVAL | GETAW+35*, GETAW+52 |
>> TAGCALL | GETAW+13*, GETAW+18 |
>> TDT1 | OVERLAP+2*, OVERLAP+10, OVERLAP+15, OVERLAP+16 |
>> TDT2 | OVERLAP+3* |
TEMPDFN | NEWENTRY+2~, NEWENTRY+7*, NEWENTRY+10 |
>> TTYP | OVERLAP+4*, OVERLAP+12 |
>> TYP | OVERLAP+11*, OVERLAP+12 |
U | EN+12, CONT+4, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+23 , GETAW+24, MSG+1, AEFFDT+13, EFFDT+6, COVTYPE+7, OVERLAP+3, OVERLAP+4, OVERLAP+11, OVERLAP+13, MEDNAME+5 , MEDDOB+5, PLANNM+6, RATECD+7, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3 |
WD0 | EN~, EN+8, EN+13, EN+17, VAR+7, VAR+12, VAR+14, CONT+8, CLEAN~, CLEAN+1 , CLEANZER~, CLEANZER+2, GETAW+28, GETAW+39, GETAW+47, NEWENTRY+13*, NEWENTRY+16, MEDSTATE+2, AEFFDT+4, AEFFDT+5 , EFFDT+6, EFFDT+19, EFFDT+27, ENDDATE+3, ENDDATE+9, COVTYPE+3, COVTYPE+13, OVERLAP~, OVERLAP+3, OVERLAP+4 , OVERLAP+9, OVERLAP+11, OVERLAP+13, OVERLAP+24, MEDNUM+2, MEDNAME+2, MEDNAME+5, MEDDOB+2, MEDDOB+5, PCP+2 , GRPNAME+2, PLANNM+2, RATECD+3, CCONFILE+3, CCONFILE+9, CCONFILE+11, CCONFILE+15, CCONFILE+17, GOODDT+2, GOODDT+3 |
WD1 | EN~, EN+13, EN+17, GETAW+45, AEFFDT+2, AEFFDT+12*, EFFDT+2, EFFDT+6, EFFDT+18, EFFDT+27 , ENDDATE+2, ENDDATE+9, COVTYPE+2, COVTYPE+13, OVERLAP~, OVERLAP+2, OVERLAP+3, OVERLAP+4, OVERLAP+22, OVERLAP+23 , GOODDT+2, GOODDT+3 |
WDA | END! |
WDFN | END+1! |
WDT | END! |
>> X | GETAW+52, NEWENTRY+6* |
Y | EN+6, EN+8, VAR+7, VAR+8, VAR+9, VAR+11, VAR+12, VAR+23, VAR+24, VAR+25 , VAR+26, VAR+28, CONT+1, END!, NEWENTRY+11, NEWENTRY+13, AEFFDT+11, AEFFDT+12, AEFFDT+13, EFFDT+16 , MEDDOB+5~* |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+2 |
$T(@1+AG | GETAW+4 |