AGFIX7A ; IHS/ASDS/EFG - FIX MEDICAID ELIGIBLE FILE ;
Source file <AGFIX7A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
END1 | ||
COMMENT | ; This routine is a one-time-only run.
; It reads thru the 'B' index of the MEDICAID ELIGIBLE ; file (^AUPNMCD) to look for patients who are eligible for MEDICAID, ; fix their eligibility numbers if necessary, and ; flag them for inclusion with next export. ; RPMS/GTH |
|
END | ||
FACILITY | ||
READ | ||
DEV | ||
START | ||
DFN | ;
|
|
QUE | ||
USER | ||
IEN | ;
|
|
MSG | ||
ENTRY | ; EP - TaskMan.
|
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: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("UCI" | DEV |
^AGPATCH( | IEN+13* |
^AUPNMCD - [#9000004] | IEN+2, IEN+3, IEN+11*, END1+1 |
^AUPNMCD("AB" | IEN+5*, IEN+10!, IEN+11*, END1+1! |
^AUPNMCD("B" | DFN+1, IEN+1, IEN+2! |
^AUTTLOC - [#9999999.06] | DEV |
^DIC(5 - [#5] | IEN+7 |
Name | Line Occurrences |
---|---|
DFN | IEN+1 |
END | MSG+5, USER, FACILITY, QUE |
END1 | DFN+1 |
ENTRY | QUE+1 |
FACILITY | QUE |
IEN | IEN+2, IEN+4, IEN+6, IEN+7, IEN+9, IEN+14 |
MSG | MSG+5 |
QUE | QUE, DEV+1 |
READ | MSG+5, QUE, READ |
Name | Field # of Occurrence |
---|---|
^(0 | IEN+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | IEN+12 |
%DT | START*!, END! |
A | END1+1*, END! |
AG | DEV+1!, END! |
AG("STATE" | IEN+7* |
AGACCT | IEN+3*, IEN+4, IEN+5, IEN+6, IEN+8, IEN+10, END! |
AGDATE | END! |
AGDTS | IEN+12*, IEN+13, END! |
AGIO | DEV+1! |
AGNEWNUM | IEN+8*, IEN+9, IEN+11, END! |
AGQIO | DEV+1! |
AGST | IEN+3*, IEN+4, IEN+5, IEN+7, IEN+10, IEN+11, END! |
AGTOTAL | START+1*, ENTRY+2*, IEN+11*, END1, END! |
D | END1+1*, END! |
DFN | ENTRY+2*, DFN+1*, IEN+1, IEN+2, IEN+5, IEN+10, IEN+11, IEN+13, END! |
DFOUT | MSG+5, QUE, END!, READ!, READ+1* |
DIC | USER*, FACILITY*! |
DIC("A" | USER*, FACILITY* |
DIC(0 | USER*, FACILITY* |
DLOUT | MSG+5, END!, READ!, READ+1* |
DQOUT | MSG+5, QUE, END!, READ!, READ+1* |
DT | START* |
DTIME | MSG*, DEV+1, READ |
DTOUT | MSG+5, QUE, END!, READ!* |
DUOUT | MSG+5, QUE, END!, READ!, READ+1* |
DUZ | USER* |
DUZ(2 | FACILITY*, DEV, IEN+13 |
DUZ2 | FACILITY*, END! |
DX | ENTRY+1*, END! |
DY | ENTRY+1*, END! |
G | DEV+1! |
>> I | IEN+8*, END1+1* |
IEN | DFN+2*, IEN+1*, IEN+2, IEN+3, IEN+5, IEN+10, IEN+11, END1+1*, END! |
ION | ENTRY+1 |
>> IOP | ENTRY+1* |
S | END1+1*, END! |
U | DEV, IEN+3, IEN+7, IEN+11 |
X | START*, END! |
XY | END! |
Y | START, MSG+5, USER, FACILITY, QUE*, QUE+1, DEV, DEV+1*, END!, READ* , READ+1* |
ZTDESC | DEV*, DEV+1! |
ZTIO | DEV*, DEV+1! |
>> ZTQUEUED | ENTRY+1, END1 |
ZTRTN | DEV*, DEV+1! |
ZTSAVE | DEV*, DEV+1! |
ZTSK | DEV+1! |
ZTUCI | DEV*, DEV+1! |