DGMSEUTL ;ALB/PJH,LBD,DJS,KUM,JAM - MSDS Utility Routine ;12 June 2018 5:36PM
Source file <DGMSEUTL.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 |
|---|---|---|
| MOVMSE(DFN) | ;Move MSE data from .32 node to .3216 multiple in Patient file #2
|
|
| ARRAY(DFN,ARRAY) | ;Get old format VistA data
|
|
| EPISODE(SUB,P1,P2) | ;Get old VistA data and save
|
|
| MSE(DFN,ARRAY,DEL) | ;Copy old VistA data to new .3216 multiple
|
|
| GETMSE(DFN,MSE) | ;Return all records in MSE sub-file #2.3216 in MSE array
|
|
| LAST(DFN) | ;Return last (most recent) MSE
|
|
| UPDMSE(DFN,DGNMSE) | ;File MSE data from the HEC Z11 message
|
|
| ESRDATA(DFN) | ;Check if any records in .3216 are from ESR
|
|
| WARNMSG(DFN) | ;Warning Message if some episodes did not copy
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DIC(26 - [#26] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MOVMSE+1, ARRAY+2, MSE+4, GETMSE+6, GETMSE+7, GETMSE+8, GETMSE+9, ESRDATA+3, ESRDATA+5, WARNMSG+6 , WARNMSG+21, WARNMSG+22, WARNMSG+23 |
| Name | Line Occurrences |
|---|---|
| $$ESRDATA | WARNMSG+3 |
| ARRAY | MOVMSE+3 |
| EPISODE | ARRAY+4, ARRAY+6, ARRAY+8 |
| GETMSE | LAST+3, UPDMSE+5 |
| MSE | MOVMSE+4, UPDMSE+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | MOVMSE+2~, MOVMSE+3, MOVMSE+4, ARRAY~, MSE~ |
| ARRAY( | EPISODE+6*, MSE+8, MSE+10, MSE+12 |
| DA | MSE+1~, MSE+5*, MSE+11~ |
| DA(1 | MSE+5*, MSE+15* |
| DATA | WARNMSG+1~, WARNMSG+23* |
| DATA32 | WARNMSG+1~, WARNMSG+6*, WARNMSG+7, WARNMSG+11, WARNMSG+12, WARNMSG+14 |
| DD | MSE+11~ |
| DEL | MSE~, MSE+4 |
| DFN | MOVMSE~, MOVMSE+1, MOVMSE+3, MOVMSE+4, ARRAY~, ARRAY+2, MSE~, MSE+4, MSE+5, MSE+15 , GETMSE~, GETMSE+3, GETMSE+6, GETMSE+7, GETMSE+8, GETMSE+9, LAST~, LAST+1, LAST+3, UPDMSE~ , UPDMSE+1, UPDMSE+5, UPDMSE+14, ESRDATA~, ESRDATA+3, ESRDATA+5, WARNMSG~, WARNMSG+3, WARNMSG+6, WARNMSG+21 , WARNMSG+22, WARNMSG+23 |
| DGCHG | UPDMSE+2~, UPDMSE+6, UPDMSE+8*, UPDMSE+9*, UPDMSE+11, UPDMSE+12* |
| DGFDD | EPISODE+6, MSE+1~ |
| DGN | UPDMSE+2~, UPDMSE+3*, UPDMSE+10*, UPDMSE+11*, UPDMSE+12 |
| DGNEW | MSE+1~ |
| DGNMSE | UPDMSE~, UPDMSE+1, UPDMSE+14 |
| DGNMSE( | UPDMSE+3, UPDMSE+11, UPDMSE+12 |
| DGO | UPDMSE+2~, UPDMSE+10*, UPDMSE+11*, UPDMSE+12 |
| DGOMSE | UPDMSE+2~, UPDMSE+5, UPDMSE+6, UPDMSE+14 |
| DGOMSE( | UPDMSE+11, UPDMSE+12 |
| DGOMSE("" | UPDMSE+9 |
| DGRP | ARRAY+1~ |
| DGRP( | ARRAY+2*, ARRAY+6, ARRAY+8, EPISODE+1 |
| DGRPBR | ARRAY+1~, EPISODE+2*, EPISODE+6 |
| DGRPCO | ARRAY+1~, EPISODE+1*, EPISODE+6 |
| DGRPDI | ARRAY+1~, EPISODE+2*, EPISODE+6 |
| DGRPED | ARRAY+1~, EPISODE+2*, EPISODE+6 |
| DGRPSD | ARRAY+1~, EPISODE+3*, EPISODE+6 |
| DGRPSN | ARRAY+1~, EPISODE+3*, EPISODE+6 |
| DGRPX | ARRAY+1~, EPISODE+1*, EPISODE+2, EPISODE+3 |
| DGTOT | UPDMSE+2~, UPDMSE+3*, UPDMSE+9, UPDMSE+11 |
| DIC | MSE+1~, MSE+11~, MSE+13* |
| DIC("DR" | MSE+17*, MSE+18*, MSE+19*, MSE+20*, MSE+21*, MSE+22*, MSE+24*, MSE+27*, MSE+31*, MSE+32* |
| DIC(0 | MSE+14* |
| DIK | MSE+1~, MSE+5* |
| DLAYGO | MSE+1~, MSE+11~, MSE+14* |
| DO | MSE+11~ |
| ECNT | MSE+1~, MSE+2*, MSE+4*, MSE+5 |
| FLDS | MSE+1~, MSE+11~, MSE+12*, MSE+16, MSE+17, MSE+18, MSE+19, MSE+20, MSE+21, MSE+22 , MSE+24, MSE+27, MSE+31 |
| I | GETMSE+4~, GETMSE+6*, GETMSE+9, GETMSE+10, UPDMSE+2~, UPDMSE+11* |
| IEN | GETMSE+4~, GETMSE+7*, GETMSE+8, GETMSE+9, GETMSE+10, ESRDATA+1~, ESRDATA+2*, ESRDATA+3*, ESRDATA+5, WARNMSG+22* , WARNMSG+23 |
| LBRANCH | WARNMSG+5~, WARNMSG+7*, WARNMSG+9 |
| LDATE | WARNMSG+5~, WARNMSG+7*, WARNMSG+9 |
| LOCKED | ESRDATA+1~, ESRDATA+2*, ESRDATA+3, ESRDATA+5*, ESRDATA+7 |
| MSE | GETMSE~, LAST+2~, LAST+3, LAST+4*, LAST+5 |
| MSE( | GETMSE+9*, GETMSE+10*, LAST+5 |
| MSE(0 | LAST+4 |
| NEWMSE | WARNMSG+1~, WARNMSG+20*, WARNMSG+24*, WARNMSG+28 |
| NODT | WARNMSG+5~, WARNMSG+7*, WARNMSG+9*, WARNMSG+12*, WARNMSG+14*, WARNMSG+28 |
| OLDMSE | WARNMSG+1~, WARNMSG+7*, WARNMSG+9*, WARNMSG+12*, WARNMSG+14*, WARNMSG+17, WARNMSG+28 |
| P1 | EPISODE~, EPISODE+1 |
| P2 | EPISODE~, EPISODE+1 |
| SDAT | WARNMSG+5~, WARNMSG+20*, WARNMSG+21*, WARNMSG+22 |
| SDT | GETMSE+4~, GETMSE+5*, GETMSE+6*, GETMSE+7 |
| SUB | EPISODE~, EPISODE+1, EPISODE+6, MSE+1~, MSE+7*, MSE+8*, MSE+10, MSE+12 |
| U | EPISODE+1, EPISODE+2, EPISODE+3, EPISODE+6, MSE+16, MSE+17, MSE+18, MSE+19, MSE+20, MSE+21 , MSE+22, MSE+24, MSE+27, MSE+31, ESRDATA+5, WARNMSG+7, WARNMSG+11, WARNMSG+12, WARNMSG+14 |
| X | MSE+1~, MSE+11~, MSE+16* |
| Y | MSE+1~ |