YS187CMT ;SLC/KCM - Note titles for Case Mix Tool ; 11/18/2021
Source file <YS187CMT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDTDATE | ; date used to update 601.71:18
|
|
| POST | ; Post-init specific to Case Mix Tool
|
|
| ADTITLES(NDCL,NOTE,CSLT,STDT) | ; add new titles for Case Mix if not there
|
|
| UPD71(NOTE,CSLT) | ; update titles in MH TESTS AND SURVEYS (#601.71)
|
|
| DROPTST(NAME) | ; Change OPERATIONAL to dropped
|
|
| XCHGLST(ARRAY) | ; return array of instrument exchange entries
; ARRAY(cnt,1)=instrument exchange entry name ; ARRAY(cnt,2)=instrument exchange entry creation date |
|
| ENTRIES | ; New MHA instruments ^ Exchange Entry Date
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^YTT(601.71 - [#601.71] | UPD71+2, DROPTST+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | XCHGLST~ |
| ARRAY( | XCHGLST+6*, XCHGLST+7* |
| CSLT | POST+4~*, POST+6, POST+8, ADTITLES~, UPD71~, UPD71+4 |
| CSLTIEN | UPD71+1~, UPD71+4*, UPD71+5, UPD71+8 |
| I | XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7 |
| IEN | DROPTST+1~, DROPTST+2*, DROPTST+5 |
| NAME | DROPTST~, DROPTST+2 |
| NDCL | POST+1~*, POST+6, ADTITLES~, ADTITLES+3, ADTITLES+5, ADTITLES+7 |
| NOTE | POST+2~*, POST+6, POST+8, ADTITLES~, ADTITLES+7, ADTITLES+8, UPD71~, UPD71+3 |
| NOTEIEN | UPD71+1~, UPD71+3*, UPD71+5, UPD71+7 |
| REC | UPD71+1~, UPD71+9, DROPTST+1~, DROPTST+5 |
| REC(10 | DROPTST+3* |
| REC(18 | DROPTST+4* |
| REC(28 | UPD71+6* |
| REC(29 | UPD71+7* |
| REC(30 | UPD71+8* |
| RV | ADTITLES+1~, ADTITLES+3*, ADTITLES+4, ADTITLES+5, ADTITLES+7*, ADTITLES+8 |
| STDT | POST+5~*, POST+6, ADTITLES~, ADTITLES+7 |
| TESTIEN | UPD71+1~, UPD71+2*, UPD71+9 |
| U | ADTITLES+4, ADTITLES+8, XCHGLST+6, XCHGLST+7 |
| X | XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(EDTDATE+1 | DROPTST+4 |
| $T(ENTRIES+I | XCHGLST+5 |