ACHS3115 ;IHS/OIT/FCJ - ACHS 3.1 PATCH 14 ; JUL 10, 2008
Source file <ACHS3115.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NONREG | ;EP - fr KIDS
|
|
AUDR | ; Restore the file data audit values to their original values.
|
|
SINGLE(K) | ; Get holders of a key
|
|
GREET | ;;To add to mail message.
|
|
DENOPT | ;638 facility then add options
|
|
ZISHOS | ;EP-P 15 IF OS=UNIX UPDATE PARAMTER TO NOT SEND ZIPPED FILE
|
|
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 - fr KIDS
|
|
P12 | ;EP-fr KIDS
|
|
P13 | ;EP-fr KIDS
|
|
V145DD | ;EP - FR KIDS
|
|
P15 | ;EP-fr KIDS
|
|
P14 | ;EP-fr KIDS
|
|
DCIS | ;EP-FR kids P14
|
|
P6OPT | ;EP - FR KIDS
|
|
P7 | ;EP-from KIDS
|
|
RSLT(%) | ||
P5 | ;EP - from KIDS
|
|
P7OPT | ;EP -FR KIDS
|
|
DELFLD | ;
|
|
DRPT | ;ADD DCIS ERROR REPORT OPT P15
|
|
DENREV | ;EP - Fr 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-fr KIDS P 13
|
|
LIST | ;
|
|
;
|
||
SSC | ;ADD NAICS CODES TO SSC P14
|
Name | Field # of Occurrence |
---|---|
$$OS^ACHS | DCIS+2, ZISHOS+1 |
^DIC | INSTALLD+11, INSTALLD+15, UFMS+7, DCIS+4, SSC+19, ZISHOS+3 |
IX^DIC | INSTALLD+7 |
$$GET1^DID | AUDR+6 |
^DIE | UFMS+11, DCIS+8, ZISHOS+5 |
^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+3, P7OPT+4, P7OPT+5, P7OPT+6, P7OPT+7 , P7OPT+8, P7OPT+10, P7OPT+11, P7OPT+12, HHS+5, DRPT+1 |
$$NEWCP^XPDUTL | PRE+1, POST+4, POST+6, POST+9, POST+12, POST+16, POST+20, POST+24, POST+28, POST+31 , POST+35, P5+4, P5+7, P5+10, P5+13, P6+5, P6+9, P6+13, P7+5, P7+9 , P12+3, P12+6, P13+3, P14+3, P15+3 |
BMES^XPDUTL | MAIL+1, AUDS+1, AUDR+1, DELFLD+16, DENOPT+1, M278+1, P6OPT+2, NONREG+1, P7OPT+2, 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+3, P7OPT+5 , P7OPT+9, P7OPT+11, P7OPT+12, P7OPT+13, P7OPT+14, HHS+5, HHS+6, DRPT+1, P4+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | Classic Fileman Calls |
^ACHS(3.1 - [#9002063.1] | Classic Fileman Calls |
^%ZIB(9888888.93 - [#9888888.93] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACHS(3 - [#9002063] | SSC+2, SSC+3, SSC+20, SSC+21* |
^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("ACHS3115" | MAIL+3!, MAIL+11!, RSLT |
^UTILITY("XBDSET" | V145DD+2! |
^XTMP("ACHS3115" | 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, P14+1, P15+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, POST+30*, POST+31, POST+34*, POST+35 , MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~, P5+3*, P5+4, P5+6*, P5+7, P5+9* , P5+10, P5+12*, P5+13, 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, P14+2* , P14+3, P15+2*, P15+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 |
>> ACHSFAC | SSC+1*, SSC+2*, SSC+3, SSC+20, SSC+21 |
ACHSI | HHS+2~, HHS+3*, HHS+4* |
>> ACHSSSC | SSC+3*, SSC+5, SSC+6, SSC+7, SSC+8, SSC+9, SSC+10, SSC+11, SSC+12, SSC+13 , SSC+14, SSC+15, SSC+16, SSC+17, SSC+20 |
ACHSUNM | DCIS+2*, DCIS+7, DCIS+9! |
D | INSTALLD+6*, UFMS+12!, DCIS+9!, ZISHOS+6! |
D0 | UFMS+12!, DCIS+9!, ZISHOS+6! |
D1 | UFMS+12!, DCIS+9!, ZISHOS+6! |
DA | DELFLD+17~, DELFLD+20*, NONREG+2~, UFMS+9*, UFMS+12!, DCIS+6*, DCIS+9!, ZISHOS+5*, P4+3~ |
DA(1 | DELFLD+20*, NONREG+6*, P4+7* |
DI | UFMS+12!, DCIS+9!, ZISHOS+6! |
DIADD | UFMS+12!, DCIS+9!, ZISHOS+6! |
DIC | INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, UFMS+6*, UFMS+9, UFMS+12!, DCIS+3*, DCIS+6, DCIS+9! , SSC+19*, ZISHOS+2*, ZISHOS+6! |
DIC(0 | INSTALLD+6*, UFMS+6*, DCIS+3* |
DICR | UFMS+12!, DCIS+9!, ZISHOS+6! |
DIE | UFMS+9*, UFMS+12!, DCIS+6*, DCIS+9!, ZISHOS+2*, ZISHOS+6! |
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!, DCIS+9!, ZISHOS+6! |
DLAYGO | UFMS+12!, DCIS+9!, ZISHOS+6! |
DQ | UFMS+12!, DCIS+9!, ZISHOS+6! |
DR | UFMS+10*, UFMS+12!, DCIS+7*, DCIS+9!, ZISHOS+5*, ZISHOS+6! |
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, SSC+21 |
X | INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*, DELFLD+18*, DELFLD+19, DELFLD+20, UFMS+2*, UFMS+3, UFMS+6* , DCIS+1~, DCIS+3*, SSC+4*, SSC+5*, SSC+6*, SSC+7*, SSC+8*, SSC+9*, SSC+10*, SSC+11* , SSC+12*, SSC+13*, SSC+14*, SSC+15*, SSC+16*, SSC+17*, SSC+18, SSC+20*, SSC+21, ZISHOS+2* , ZISHOS+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, DCIS+1~, DCIS+5, DCIS+6, SSC+21, ZISHOS+4, ZISHOS+5, ZISHOS+6! |
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 |