ACHS3113 ;IHS/OIT/FCJ - ACHS 3.1 PATCH 13 ;
Source file <ACHS3113.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NONREG | ;EP - from KIDS.
|
|
AUDR | ; Restore the file data audit values to their original values.
|
|
SINGLE(K) | ; Get holders of a single key K.
|
|
GREET | ;;To add to mail message.
|
|
DENOPT | ; check for 638 facility, and add options if 638
|
|
P6 | ;EP - from KIDS
|
|
AUDS | ;EP - From KIDS.
|
|
PRE | ;EP - From KIDS.
|
|
INSTALLD(ACHS) | ; Determine if patch ACHS was installed, where ACHS is
; the name of the INSTALL. E.g "AVA*93.2*12". |
|
P4 | ;EP - from KIDS.
|
|
P12 | ;EP-from KIDS
|
|
P13 | ;EP-from KIDS
|
|
V145DD | ;EP - From KIDS
|
|
P6OPT | ;EP - FROM KIDS.
|
|
P7 | ;EP-from KIDS
|
|
RSLT(%) | ||
P5 | ;EP - from KIDS
|
|
P7OPT | ;EP -FROM KIDS
|
|
DELFLD | ;
|
|
DENREV | ;EP - From KIDS.
|
|
POST | ;EP - From KIDS.
; ---Patches 4,5,6,7 Checks installs are done in Install Questions. ; ---Question for 3 was removed, need "C" index for lookup of non-registered patients. |
|
HHS | ;
|
|
M278 | ;
|
|
UFMS | ;EP-from KIDS PATCH 13
|
|
LIST | ;
|
|
;
|
Name | Field # of Occurrence |
---|---|
^DIC | INSTALLD+11, INSTALLD+15, UFMS+7 |
IX^DIC | INSTALLD+7 |
$$GET1^DID | AUDR+6 |
^DIE | UFMS+11 |
^DIK | DELFLD+21 |
ENALL^DIK | NONREG+7, P4+8 |
EN2^XBKD | V145DD+4 |
$$FMADD^XLFDT | AUDS+3 |
$$LJ^XLFSTR | AUDS+8, AUDR+6, DELFLD+19 |
$$RJ^XLFSTR | AUDS+8, AUDR+6 |
^XMD | MAIL+10 |
$$ADD^XPDMENU | DENOPT+5, DENOPT+6, M278+2, P6OPT+3, P6OPT+4, P7OPT+4, P7OPT+5, P7OPT+6, P7OPT+7, P7OPT+8 , P7OPT+9, P7OPT+11, P7OPT+12, P7OPT+13, HHS+5 |
$$NEWCP^XPDUTL | PRE+1, POST+4, POST+6, POST+9, POST+12, POST+16, POST+20, POST+24, POST+28, P5+5 , P5+9, P5+13, P5+17, P6+5, P6+9, P6+13, P7+5, P7+9, P12+3, P12+6 , P13+3 |
BMES^XPDUTL | MAIL+1, AUDS+1, AUDR+1, DELFLD+16, DENOPT+1, M278+1, P6OPT+2, NONREG+1, P7OPT+3, HHS+1 , P4+2 |
MES^XPDUTL | MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, DELFLD+19, DELFLD+23, DENOPT+5, DENOPT+6 , DENOPT+7, M278+2, M278+3, M278+4, P6OPT+3, P6OPT+4, P6OPT+5, NONREG+8, P7OPT+4, P7OPT+6 , P7OPT+10, P7OPT+12, P7OPT+13, P7OPT+14, P7OPT+15, HHS+5, HHS+6, P4+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | Classic Fileman Calls |
^%ZIB(9888888.93 - [#9888888.93] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACHSDEF - [#9002066] | P4+5, P4+6! |
^ACHSDEN - [#9002071] | NONREG+4, NONREG+5!, DENREV+5, DENREV+7, DENREV+8, DENREV+9, DENREV+10* |
^ACHSDENA("B" | DENREV+4 |
^ACHSF - [#9002080] | DENOPT+4, HHS+4, UFMS+4* |
^ACHSF("B" | UFMS+2, UFMS+3 |
^DD( | AUDS+7, AUDS+9*, AUDR+5*, AUDR+6 |
^TMP("ACHS3113" | MAIL+3!, MAIL+11!, RSLT |
^UTILITY("XBDSET" | V145DD+2! |
^XTMP("ACHS3113" | AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+8! |
^XTMP("XPDI" | MAIL+7, AUDS+6, AUDS+8 |
^XUSEC( | SINGLE+3, SINGLE+4 |
Name | Line Occurrences |
---|---|
$$INSTALLD | P12+1, P13+1 |
RSLT | MAIL+4, MAIL+5, MAIL+7 |
SINGLE | MAIL+9 |
Name | Field # of Occurrence |
---|---|
^( | MAIL+7, RSLT* |
^(0 | RSLT* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | POST+3*, POST+4, POST+5*, POST+6, POST+8*, POST+9, POST+11*, POST+12, POST+15*, POST+16 , POST+19*, POST+20, POST+23*, POST+24, POST+27*, POST+28, MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9* , RSLT~, P5+4*, P5+5, P5+8*, P5+9, P5+12*, P5+13, P5+16*, P5+17, P6+4* , P6+5, P6+8*, P6+9, P6+12*, P6+13, P7+4*, P7+5, P7+8*, P7+9, P12+2* , P12+3, P12+5*, P12+6, P13+2*, P13+3 |
ACHS | AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5 , AUDR+6, INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, DELFLD+18*, DENOPT+2~, DENOPT+3*, DENOPT+4*, NONREG+2~ , NONREG+3*, NONREG+4*, NONREG+5, NONREG+6, DENREV+2~, DENREV+3*, DENREV+5*, DENREV+7, DENREV+8, DENREV+9 , DENREV+10, P4+3~, P4+4*, P4+5*, P4+6, P4+7 |
ACHSASTA | DENREV+3*, DENREV+4*, DENREV+10, DENREV+11! |
ACHSDA | DENREV+3*, DENREV+6*, DENREV+7*, DENREV+8, DENREV+9, DENREV+10, DENREV+11! |
>> ACHSDSTA | DENREV+8*, DENREV+10 |
ACHSI | HHS+2~, HHS+3*, HHS+4* |
D | INSTALLD+6*, UFMS+12! |
D0 | UFMS+12! |
D1 | UFMS+12! |
DA | DELFLD+17~, DELFLD+20*, NONREG+2~, UFMS+9*, UFMS+12!, P4+3~ |
DA(1 | DELFLD+20*, NONREG+6*, P4+7* |
DI | UFMS+12! |
DIADD | UFMS+12! |
DIC | INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, UFMS+6*, UFMS+9, UFMS+12! |
DIC(0 | INSTALLD+6*, UFMS+6* |
DICR | UFMS+12! |
DIE | UFMS+9*, UFMS+12! |
DIFROM | MAIL+2~ |
DIK | DELFLD+17~, DELFLD+20*, NONREG+2~, NONREG+6*, P4+3~, P4+7* |
DIK(1 | NONREG+7*, P4+8* |
DINUM | UFMS+12! |
DLAYGO | UFMS+12! |
DQ | UFMS+12! |
DR | UFMS+10*, UFMS+12! |
DT | AUDS+3 |
DUZ | MAIL+8 |
K | SINGLE~, SINGLE+3, SINGLE+4 |
U | DELFLD+19, DELFLD+20, DENOPT+4, DENREV+8, DENREV+10, HHS+4, UFMS+4 |
X | INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*, DELFLD+18*, DELFLD+19, DELFLD+20, UFMS+2*, UFMS+3, UFMS+6* |
>> X1 | UFMS+3*, UFMS+4 |
XBBPI | V145DD+3*, V145DD+4! |
XBBPIX | V145DD+3*, V145DD+4! |
XBBPIY | V145DD+3*, V145DD+4! |
XMDUZ | MAIL+2~, MAIL+8* |
XMSUB | MAIL+2~, MAIL+8* |
XMTEXT | MAIL+2~, MAIL+8* |
XMY | MAIL+2~ |
XMY( | MAIL+8*, SINGLE+4* |
XMY(1 | MAIL+8* |
>> XPDA | MAIL+7, AUDS+6, AUDS+8 |
>> XPDBLD | MAIL+7 |
>> XPDQUES("POS12" | P7+1 |
>> XPDQUES("POS4" | P4+1 |
>> XPDQUES("POS5" | P5+1 |
>> XPDQUES("POS9" | P6+1 |
Y | SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16, UFMS+8 , UFMS+9 |
Name | Field # of Occurrence |
---|---|
$T( | MAIL+8, AUDS+3 |
$T(DELFLD+ACHS | DELFLD+18 |
$T(GREET+% | MAIL+5 |
$T(GREET+%+1 | MAIL+5 |
$T(LIST+XBBPI | V145DD+3 |