MAGDLB1 ;WOIFO/LB/JSL/SAF/NST/DAC/MLH - Routine to fix failed DICOM entries ; 11 Apr 2012 1:09 PM
Source file <MAGDLB1.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 |
---|---|---|
DISPLAY | ;
|
|
NEWCASE | ;
|
|
ASK() | ;
|
|
ASK1 | ||
CHK | ;remove any punctuation before doing comparison on SSN
|
|
NEWDIS | ;
|
|
UPDT | ;
|
|
SETDEL | ;Entry to be deleted
|
|
LOGERR | ;Need to record error
|
|
SET | ;
|
|
LOOK | ;
|
|
DATELOOP(START,STOP) | ;Loop thru the "AD" cross reference
|
|
SETPREV | ;
|
|
SETMAG | ;
|
|
CHKPREV | ;
|
|
NAME(ENTRY) | ;SITE NAME
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GETS^DIQ |
^DIC(4 - [#4] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | SET+12 |
^MAGD(2006.575 - [#2006.575] | UPDT+8*, UPDT+9*, UPDT+12, UPDT+13*, SETDEL+3, SETDEL+4*, SETDEL+6*, SETDEL+7*, SET+1, SET+2 , SET+5, SET+6, SET+7, SET+8, SET+13, DATELOOP+4, DATELOOP+6, DATELOOP+7, DATELOOP+8!, DATELOOP+10 , DATELOOP+12 |
^MAGD(2006.599 - [#2006.599] | LOGERR+19, LOGERR+20*, LOGERR+22, LOGERR+23*, LOGERR+24*, LOGERR+25*, LOGERR+26*, LOGERR+27* |
Name | Line Occurrences |
---|---|
$$ASK | SET+15, LOOK+3 |
ASK1 | ASK1+5 |
CHK | LOOK+3 |
CHKPREV | SET+18, LOOK+6, LOOK+10 |
DISPLAY | SET+15 |
LOGERR | SETDEL+2 |
NEWCASE | LOOK+3 |
NEWDIS | UPDT+3, LOOK+3 |
SET | DATELOOP+14, CHKPREV+2, CHKPREV+5 |
SETDEL | SET+19, LOOK+5 |
SETMAG | LOOK+11, CHKPREV+2 |
SETPREV | SET+16, SET+17, SET+19, LOOK+4, LOOK+5, LOOK+7 |
UPDT | LOOK+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | UPDT+2~, UPDT+4*, UPDT+5 |
ANS | ASK+1~, ASK1+2*, ASK1+3, ASK1+4, ASK1+5, ASK1+8*, ASK1+9, SETDEL+2, LOGERR+10*, SET+15* , SET+16, SET+17, SET+18, SET+19, LOOK+3*, LOOK+4, LOOK+5, LOOK+6, LOOK+7, LOOK+10 |
ASK | ASK+1~, ASK1*, ASK1+1*, ASK1+2 |
>> CASENO | DISPLAY+3, NEWDIS+4, LOGERR+26, SET+11* |
>> COMNT1 | DISPLAY+6, SET+13* |
>> DATA | SET+5*, SET+9 |
>> DATA1 | SET+7*, SET+11, SET+12, SET+14 |
>> DATA2 | SET+8*, SET+10, SET+14 |
>> DATE | DISPLAY+5, SET+12* |
DIR | LOGERR+1~ |
DIR("A" | LOGERR+6*, LOGERR+7*, LOGERR+8* |
DIR(0 | LOGERR+5* |
DIRUT | LOGERR+1~, LOGERR+10 |
DTOUT | LOGERR+1~, LOGERR+10 |
DUZ | LOGERR+13, LOGERR+15, LOGERR+17 |
DUZ(2 | DATELOOP+12 |
ENTRY | LOGERR+1~, LOGERR+22*, LOGERR+23, LOGERR+25, LOGERR+26, LOGERR+27, NAME~, NAME+2, NAME+3, NAME+5 |
>> FILE | DISPLAY+7, LOGERR+25, SET+6* |
FIRST | DATELOOP+1~, DATELOOP+3*, DATELOOP+13*, SETMAG+1*, SETMAG+2 |
>> FIRSTS | SETMAG+1*, SETMAG+2 |
GWLOC | UPDT+1~, UPDT+12*, UPDT+13, SETDEL+1~, SETDEL+3*, SETDEL+4, SET+14* |
I | CHK+2~, CHK+3*, LOGERR+1~, LOGERR+2* |
>> KFIXALL | DATELOOP+2*, DATELOOP+12 |
>> MACHID | DISPLAY+7, UPDT+11*, UPDT+13, SETDEL+4, LOGERR+26, SET+11*, SET+14* |
MAGDY | NEWCASE+1, NEWCASE+2, NEWCASE+3, SET+21!, LOOK+2 |
MAGERR | LOGERR+1~, NAME+1~ |
MAGERR("DIERR" | LOGERR+16, NAME+4 |
MAGFIX | DATELOOP+1~ |
MAGFIX( | UPDT+16*, SETDEL+8*, CHKPREV+2, CHKPREV+3 |
MAGIEN | ASK1+1, UPDT+8, UPDT+9, UPDT+12, UPDT+13, UPDT+14, UPDT+16, SETDEL+3, SETDEL+4, SETDEL+5 , SETDEL+6, SETDEL+7, SETDEL+8, SET+1, SET+2, SET+5, SET+6, SET+7, SET+8, SET+13 , DATELOOP+1~, DATELOOP+5*, DATELOOP+6*, DATELOOP+7, DATELOOP+8, DATELOOP+10, DATELOOP+12, DATELOOP+13, SETPREV+1, SETMAG+1* |
MAGOUT | LOGERR+1~, NAME+1~ |
MAGOUT(200 | LOGERR+17 |
MAGOUT(4 | NAME+5 |
>> MAGTYPE | ASK1+1, SET+1*, SET+4 |
MDV | DATELOOP+1~ |
>> MOD | DISPLAY+4, SET+10* |
>> MODEL | DISPLAY+4, LOGERR+25, SET+10* |
>> MSG | DISPLAY+8*, ASK1+2, CHK+5*, CHK+6*, CHK+8*, CHK+11* |
NAME | NAME+1~, NAME+5*, NAME+6 |
>> NEWCAS | NEWCASE+2*, NEWDIS+4, UPDT+8 |
>> NEWDFN | NEWCASE+1*, UPDT+8 |
>> NEWDTI | NEWCASE+2*, UPDT+7, UPDT+8 |
>> NEWDTIM | UPDT+7*, UPDT+8 |
>> NEWMUL | NEWCASE+3*, UPDT+8 |
>> NEWNME | NEWCASE+1*, CHK+7, NEWDIS+2, UPDT+8 |
>> NEWPID | NEWCASE+1*, CHK+4, NEWDIS+3, UPDT+8 |
>> NEWPIEN | NEWCASE+3*, UPDT+9 |
>> NEWPROC | NEWCASE+2*, UPDT+9 |
NOW | LOGERR+1~, LOGERR+4*, LOGERR+25, LOGERR+27 |
OLD | CHK+2~, CHK+3*, CHK+4 |
OOUT | SET+16*, LOOK+4*, DATELOOP+1~, DATELOOP+3*, DATELOOP+4 |
>> OUT | DISPLAY+1*, UPDT+5*, SETDEL+2*, SET+16*, SET+17*, SET+20, LOOK+4*, LOOK+7*, LOOK+8, CHKPREV+1* |
>> PAT | DISPLAY+3, CHK+7, NEWDIS+2, LOGERR+26, SET+9* |
>> PID | DISPLAY+3, CHK+3, NEWDIS+3, LOGERR+26, SET+9* |
>> PP | NEWCASE+3*, NEWDIS+5 |
>> PREV | ASK1+1, DATELOOP+13*, SETPREV+1*, SETMAG+1, SETMAG+2*, CHKPREV+2, CHKPREV+3 |
>> PREVS | SETPREV+1*, SETMAG+1, SETMAG+2* |
>> REASON | DISPLAY+5, SET+9* |
START | DATELOOP~, DATELOOP+3 |
STATUS | CHKPREV+1~, CHKPREV+3*, CHKPREV+4 |
STOP | DATELOOP~, DATELOOP+4 |
SUID | DATELOOP+1~, SETPREV+1, SETMAG+1* |
THEDT | DATELOOP+1~, DATELOOP+3*, DATELOOP+4*, DATELOOP+6, DATELOOP+8 |
U | DATELOOP+10, DATELOOP+12 |
WHO | LOGERR+1~, LOGERR+13*, LOGERR+14, LOGERR+17*, LOGERR+18*, LOGERR+26 |
WHY | LOGERR+1~, LOGERR+13*, LOGERR+25 |
X | LOGERR+1~ |
Y | LOGERR+1~, LOGERR+10, LOGERR+13, SET+12* |