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~ |