AG71A5 ;IHS/SD/EFG - Patient Registration 7.1 PATCH 5 PRE/POST INSTALL ;
Source file <AG71A5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT | ;CLEAN UP D X-REF IN PATIENT FILE
|
|
SINGLE(K) | ;EP - Get holders of a single key K.
|
|
GUAR1(PATPTR) | ;EP - DELETE GUARANTOR ENTRIES WITH MISSING GUARANTORS OR DATES
|
|
GUAR | ;CLEAR GUARANTOR RECORDS WITH INCOMPETE ENTRIES
|
|
PRE | ;EP - From KIDS.
|
|
ADDHIST | ;EP - ADD FIRST HISTORICAL ENTRY
|
|
RRE | ;FIX "B" X-REF ENTRIES WITH NO ZERO RECORD
|
|
TS | ||
POL | ;
|
|
ADDMAN | ;
|
|
PRVT | ;CLEAR ANY PRIVATE ELIG RECORDS MISSING INSURER POINTER
|
|
POLHOLD | ;
|
|
PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
|
|
POST | ;EP - From KIDS.
|
|
REDO | ;
|
|
INSURER | ;EP - CAN WE INCLUDE THIS IN AG PATCH 1??
|
|
MCD | ;CLEAR MCD RECORDS MISSING .01 FIELD
|
|
VAALERT | ;EP - SEND VA ALERT IF WANTED
|
|
;Send install mail message.
|
||
SETDEF | ;EP - SET DEFAULTS IN NEW PARAMETERS
|
|
OPTRES(AGM) | ;
|
|
MCR | ;
|
Name | Field # of Occurrence |
---|---|
$$INSTALLD^AG71ENV | POST+49, POST+54 |
^AGCNVROI | POST+6 |
UPDTHADD^AGUTILS | ADDHIST+5 |
^DIC | POLHOLD+14, ADDMAN+12, ADDMAN+16, ADDMAN+20, ADDMAN+22 |
^DIE | POLHOLD+20, POLHOLD+28, POLHOLD+36, SETDEF+7 |
^DIK | INSURER+10, PRVT+7, PRVT+9, REDO+3, REDO+9 |
$$HTE^XLFDT | TS |
^XMD | MAIL+11 |
$$ADD^XPDMENU | OPTRES+5 |
$$LAST^XPDUTL | POST+42 |
BMES^XPDUTL | POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29 , POST+32, POST+35, POST+40, POST+50, POST+52, POST+58, POST+62, OPTRES+1, OPTRES+3, OPTRES+5 |
MES^XPDUTL | TS |
SETUP^XQALERT | VAALERT+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPN3PPH - [#9000003.1] | Classic Fileman Calls |
^AUPNPRVT - [#9000006] | Classic Fileman Calls |
^AUPNGUAR - [#9000043] | Classic Fileman Calls |
^AGFAC - [#9009061] | Classic Fileman Calls |
^AUTNINS - [#9999999.18] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AGEDERRS - [#9009061.5] | PRE+5! |
^AGFAC - [#9009061] | ADDMAN+3, ADDMAN+4, SETDEF+3 |
^AUPN3PPH - [#9000003.1] | POLHOLD+3, POLHOLD+4, POLHOLD+5, POLHOLD+6 |
^AUPNGUAR - [#9000043] | GUAR+3, REDO+1, REDO+6, REDO+7 |
^AUPNMCD - [#9000004] | MCD+5, MCD+7!, MCD+8 |
^AUPNMCR - [#9000003] | MCR+3!, MCR+5, MCR+6! |
^AUPNMCR("B" | MCR+2, MCR+3!, MCR+6! |
^AUPNPAT - [#9000001] | MCD+8, PAT+3, ADDHIST+4 |
^AUPNPAT("D" | PAT+1, PAT+2, PAT+3! |
^AUPNPRVT - [#9000006] | PRVT+3, PRVT+5, PRVT+6!, PRVT+7, PRVT+8, PRVT+12!, POL+4, POL+6, POL+7, POL+8 |
^AUPNPRVT("B" | PRVT+10, PRVT+11, PRVT+12! |
^AUPNPRVT("C" | POL+1, POL+2, POL+3, POL+8! |
^AUPNRRE - [#9000005] | RRE+4!, RRE+6, RRE+7! |
^AUPNRRE("B" | RRE+3, RRE+4!, RRE+7! |
^AUTNINS - [#9999999.18] | INSURER+2, INSURER+3!, INSURER+8 |
^AUTNINS("B" | INSURER+3!, INSURER+5, INSURER+7 |
^DIC(9.4 - [#9.4] | PATCH+3, PATCH+4, PATCH+6, PATCH+7 |
^DPT - [#2] | MCD+8, PAT+3, ADDHIST+3 |
^TMP("AG71MS" | MAIL+2!, MAIL+3*, MAIL+4*, MAIL+8*, MAIL+12! |
^XTMP("AG71" | OPTRES+3, OPTRES+5 |
^XTMP("XPDI" | MAIL+8 |
^XUSEC( | SINGLE+3, SINGLE+4 |
Name | Line Occurrences |
---|---|
$$PATCH | POST+6 |
ADDHIST | POST+46 |
ADDMAN | POST+36 |
GUAR | POST+27 |
GUAR1 | GUAR+3 |
INSURER | POST+18 |
POST+51, POST+60 | |
MCD | POST+12 |
MCR | POST+15, POST+21 |
OPTRES | POST+56 |
PAT | POST+30 |
POLHOLD | POST+33 |
PRVT | POST+9 |
REDO | REDO+6 |
RRE | POST+24 |
SETDEF | POST+47 |
SINGLE | MAIL+10 |
TS | POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29 , POST+32, POST+35, POST+40, POST+50, POST+52, POST+56, POST+58, POST+62 |
Name | Field # of Occurrence |
---|---|
^( | MAIL+8, OPTRES+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | MAIL+7*, MAIL+8*, MAIL+10*, PATCH+2~, PATCH+7*, PATCH+8 |
AG | OPTRES+2~, OPTRES+4*, OPTRES+5* |
AGERRLST | MAIL+6!, MCD+2! |
AGERRLST( | MCD+8* |
AGI | OPTRES+2~, OPTRES+5* |
AGM | OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5 |
>> CNT | MAIL+5*, MAIL+8 |
>> D1 | PRVT+4*, PRVT+5*, PRVT+6, PRVT+7 |
DA | INSURER+9!, INSURER+10*, PRVT+7*, PRVT+9*, REDO+3!*, REDO+9!*, POLHOLD+16!, POLHOLD+17*, POLHOLD+24!, POLHOLD+25* , POLHOLD+32!, POLHOLD+33*, ADDMAN+1!, SETDEF+1!, SETDEF+4* |
DA(1 | PRVT+7*, REDO+9*, ADDMAN+4*, ADDMAN+6, ADDMAN+8 |
DA(2 | ADDMAN+7*, ADDMAN+8 |
DD | ADDMAN+1! |
DFN | MCD+3~, MCD+8* |
DIC | INSURER+9!, REDO+3!, REDO+9!, POLHOLD+11!, POLHOLD+13*, POLHOLD+16!, POLHOLD+24!, POLHOLD+32!, ADDMAN+1!, ADDMAN+8* , SETDEF+1! |
DIC("DR" | ADDMAN+11*, ADDMAN+15*, ADDMAN+19* |
DIC(0 | ADDMAN+10*, ADDMAN+14*, ADDMAN+18* |
DIE | INSURER+9!, REDO+3!, REDO+9!, POLHOLD+16!, POLHOLD+18*, POLHOLD+24!, POLHOLD+26*, POLHOLD+32!, POLHOLD+34*, ADDMAN+1! , SETDEF+1!, SETDEF+5* |
DIFROM | MAIL+1~ |
DIK | INSURER+9!, INSURER+10*, PRVT+7*, PRVT+9*, REDO+3!*, REDO+9!* |
DINUM | ADDMAN+1! |
DIR | INSURER+9!, SETDEF+1! |
DO | ADDMAN+1! |
DOB | POLHOLD+1~, POLHOLD+5*, POLHOLD+7, POLHOLD+21, POLHOLD+22, POLHOLD+23 |
DR | INSURER+9!, POLHOLD+16!, POLHOLD+19*, POLHOLD+24!, POLHOLD+27*, POLHOLD+32!, POLHOLD+35*, ADDMAN+1!, SETDEF+6* |
DUZ | MAIL+9 |
DUZ(2 | MCD+8 |
>> DUZ2 | ADDMAN+2*, ADDMAN+3*, ADDMAN+4, ADDMAN+7, SETDEF+2*, SETDEF+3*, SETDEF+4 |
HRN | MCD+3~, PAT+1*, PAT+2, PAT+3 |
I | PATCH+2~, PATCH+3*, PATCH+4, PATCH+6, PATCH+7 |
IEN | PRE+5*, PRVT+11*, PRVT+12, POLHOLD+1~, POLHOLD+2*, POLHOLD+3*, POLHOLD+4, POLHOLD+5, POLHOLD+6, POLHOLD+10 , POLHOLD+17, POLHOLD+23, POLHOLD+25, POLHOLD+31, POLHOLD+33 |
J | PATCH+2~, PATCH+4*, PATCH+6, PATCH+7 |
K | SINGLE~, SINGLE+3, SINGLE+4 |
MCDNUM | MCD+3~ |
PADFN | ADDHIST+1~ |
>> PATDFN | ADDHIST+2*, ADDHIST+3*, ADDHIST+4, ADDHIST+5 |
PATPTR | GUAR+1~, GUAR+2*, GUAR+3*, GUAR1~, REDO+1, REDO+3, REDO+6, REDO+7, REDO+9 |
>> POLH | POL+1*, POL+2, POL+3, POL+4, POL+5, POL+8 |
>> POLM | POL+2*, POL+3, POL+4, POL+5, POL+6, POL+7, POL+8 |
>> REC | POL+3*, POL+4, POL+5, POL+6, POL+7, POL+8 |
>> RECIEN | INSURER+6*, INSURER+7*, INSURER+8, INSURER+10 |
>> RECNO | MCD+4*, MCD+5*, MCD+7, MCD+8, RRE+2*, RRE+3*, RRE+4, RRE+5*, RRE+6*, RRE+7 , MCR+1*, MCR+2*, MCR+3, MCR+4*, MCR+5*, MCR+6, INSURER+1*, INSURER+2*, INSURER+3, INSURER+4* , INSURER+5*, INSURER+7, PAT+2*, PAT+3, PRVT+2*, PRVT+3*, PRVT+5, PRVT+6, PRVT+7, PRVT+8 , PRVT+9, PRVT+10*, PRVT+11, PRVT+12 |
REDO | GUAR1+1~, REDO+5*, REDO+6, REDO+9* |
SEX | POLHOLD+1~, POLHOLD+6*, POLHOLD+7, POLHOLD+29, POLHOLD+30, POLHOLD+31 |
ST | MCD+3~ |
STATE | POLHOLD+1~, POLHOLD+4*, POLHOLD+7, POLHOLD+8, POLHOLD+9, POLHOLD+10, POLHOLD+12 |
SUB1 | GUAR1+1~, REDO+1*, REDO+2, REDO+5*, REDO+6*, REDO+7, REDO+9 |
SUB11 | GUAR1+1~, REDO+7*, REDO+8 |
U | POST+45, OPTRES+5, MCD+7, MCD+8, RRE+4, RRE+7, MCR+3, MCR+6, INSURER+8, PRVT+6 , PRVT+7, PRVT+12, POLHOLD+4, POLHOLD+5, POLHOLD+6, POL+4, POL+6, POL+7, POL+8 |
X | POST+42*, POST+45, POLHOLD+12*, PATCH~, PATCH+1, PATCH+3, PATCH+4*, PATCH+6, PATCH+7, PATCH+8 , ADDMAN+9*, ADDMAN+13*, ADDMAN+17*, ADDMAN+21* |
XMDUZ | MAIL+1~, MAIL+9* |
XMSUB | MAIL+1~, MAIL+9* |
XMTEXT | MAIL+1~, MAIL+9* |
XMY | MAIL+1~ |
XMY( | MAIL+9*, SINGLE+4* |
XMY(1 | MAIL+9* |
>> XPDA | MAIL+8 |
>> XPDBLD | MAIL+8 |
>> XQA("AG MAIL | GROUP" , VAALERT+2* |
>> XQAMSG | VAALERT+1* |
Y | SINGLE+1~, SINGLE+2*, SINGLE+4*, POLHOLD+15 |
Name | Field # of Occurrence |
---|---|
$T( | MAIL+9, VAALERT+1 |