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 |