SDES2MRTCCLEAN ;ALB/LAB - MRTC IT Clean up Utility ; FEB 23,2026
Source file <SDES2MRTCCLEAN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLEANUP | ;
|
|
| VERIFYRUN(Y) | ;display what option does and verify user wants to run
|
|
| REQUESTPROMPT(Y,DIRUT) | ;prompt for pid to search on
|
|
| PRINTORUPDATE(Y,DIRUT) | ;does user want to print report only or udpate and print
|
|
| MRTCCLEAN(RETN,REQUESTIEN,ERROR) | ;
|
|
| EXIT | ;exit without running
|
|
| FIN(UDPATE,ERROR) | ;Show final results
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | MRTCCLEAN+6, MRTCCLEAN+8, MRTCCLEAN+10, MRTCCLEAN+12, MRTCCLEAN+13, MRTCCLEAN+17, MRTCCLEAN+18, MRTCCLEAN+21, MRTCCLEAN+22, MRTCCLEAN+23 , MRTCCLEAN+24, MRTCCLEAN+26, MRTCCLEAN+27, MRTCCLEAN+32, MRTCCLEAN+37, MRTCCLEAN+41, MRTCCLEAN+42, MRTCCLEAN+45, MRTCCLEAN+77, MRTCCLEAN+78 , MRTCCLEAN+89, MRTCCLEAN+90, MRTCCLEAN+127 |
| ^DIR | VERIFYRUN+12, REQUESTPROMPT+5, PRINTORUPDATE+7 |
| 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 |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SDEC(409.84 - [#409.84] | GET1^DIQ |
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SDEC(409.84 - [#409.84] | MRTCCLEAN+34, MRTCCLEAN+36 |
| ^SDEC(409.85 - [#409.85] | MRTCCLEAN+16 |
| ^SDEC(409.853 - [#409.853] | MRTCCLEAN+58 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPTDATE | MRTCCLEAN+1~, MRTCCLEAN+32*, MRTCCLEAN+34*, MRTCCLEAN+36 |
| APPTFOUND | MRTCCLEAN+4~, MRTCCLEAN+33*, MRTCCLEAN+43*, MRTCCLEAN+58, MRTCCLEAN+59 |
| APPTIEN | MRTCCLEAN+1~, MRTCCLEAN+35*, MRTCCLEAN+36*, MRTCCLEAN+37, MRTCCLEAN+41, MRTCCLEAN+42, MRTCCLEAN+44, MRTCCLEAN+46, MRTCCLEAN+47, MRTCCLEAN+83* , MRTCCLEAN+84, MRTCCLEAN+87 |
| APPTREQTYPE | MRTCCLEAN+1~, MRTCCLEAN+37*, MRTCCLEAN+38, MRTCCLEAN+39 |
| B | MRTCCLEAN+1~, MRTCCLEAN+101*, MRTCCLEAN+109, MRTCCLEAN+122 |
| CNT | CLEANUP+1~, MRTCCLEAN+2~, MRTCCLEAN+70*, MRTCCLEAN+73*, MRTCCLEAN+75, MRTCCLEAN+76, MRTCCLEAN+77, MRTCCLEAN+78, MRTCCLEAN+81, MRTCCLEAN+87 , MRTCCLEAN+88, MRTCCLEAN+89, MRTCCLEAN+90, MRTCCLEAN+91 |
| DATEDISP | MRTCCLEAN+53~, MRTCCLEAN+54*, MRTCCLEAN+55*, MRTCCLEAN+56, MRTCCLEAN+59, MRTCCLEAN+60, MRTCCLEAN+63 |
| DATEDISPOSITION | MRTCCLEAN+3~, MRTCCLEAN+24*, MRTCCLEAN+25 |
| DIR | CLEANUP+1~, VERIFYRUN+1~, REQUESTPROMPT+1~, REQUESTPROMPT+2! |
| DIR("?" | VERIFYRUN+10*, PRINTORUPDATE+5* |
| DIR("A" | VERIFYRUN+9*, REQUESTPROMPT+4*, PRINTORUPDATE+4* |
| DIR("B" | VERIFYRUN+11*, PRINTORUPDATE+6* |
| DIR(0 | VERIFYRUN+8*, REQUESTPROMPT+3*, PRINTORUPDATE+3* |
| DIRUT | VERIFYRUN+1~, REQUESTPROMPT~, PRINTORUPDATE~, PRINTORUPDATE+8 |
| DISP | MRTCCLEAN+4~, MRTCCLEAN+58*, MRTCCLEAN+59*, MRTCCLEAN+67 |
| DISPBY | MRTCCLEAN+4~, MRTCCLEAN+60*, MRTCCLEAN+65 |
| DISPOSITION | MRTCCLEAN+3~, MRTCCLEAN+22*, MRTCCLEAN+25 |
| DISPOSITIONARRAY | MRTCCLEAN+3~ |
| DISPOSITIONARRAY( | MRTCCLEAN+25*, MRTCCLEAN+46*, MRTCCLEAN+55, MRTCCLEAN+56, MRTCCLEAN+59, MRTCCLEAN+60 |
| DISPOSITIONBY | MRTCCLEAN+4~, MRTCCLEAN+23*, MRTCCLEAN+25 |
| ERROR | CLEANUP+1~, CLEANUP+7, CLEANUP+8, CLEANUP+10, CLEANUP+11, CLEANUP+20, MRTCCLEAN~, MRTCCLEAN+6*, MRTCCLEAN+7, MRTCCLEAN+8* , MRTCCLEAN+9, FIN~, FIN+2, FIN+3, FIN+4 |
| IDATEDISP | MRTCCLEAN+4~, MRTCCLEAN+45*, MRTCCLEAN+46 |
| INDEXCNT | MRTCCLEAN+4~, MRTCCLEAN+81*, MRTCCLEAN+91*, MRTCCLEAN+92, MRTCCLEAN+93 |
| INPID | CLEANUP+1~ |
| LEAVE | CLEANUP+1~, CLEANUP+5, CLEANUP+6, CLEANUP+15 |
| MRTCARRAY | MRTCCLEAN+3~ |
| MRTCARRAY( | MRTCCLEAN+12*, MRTCCLEAN+26*, MRTCCLEAN+40, MRTCCLEAN+44*, MRTCCLEAN+47*, MRTCCLEAN+50, MRTCCLEAN+71, MRTCCLEAN+72, MRTCCLEAN+83, MRTCCLEAN+130 |
| MRTCARRAY("OPEN" | MRTCCLEAN+29*, MRTCCLEAN+31, MRTCCLEAN+50, MRTCCLEAN+130 |
| MRTCARRAY("STATUS" | MRTCCLEAN+27* |
| MRTCARRAY2 | MRTCCLEAN+3~ |
| MRTCARRAY2( | MRTCCLEAN+75*, MRTCCLEAN+76*, MRTCCLEAN+77*, MRTCCLEAN+78*, MRTCCLEAN+87*, MRTCCLEAN+88*, MRTCCLEAN+89*, MRTCCLEAN+90*, MRTCCLEAN+92*, MRTCCLEAN+93* , MRTCCLEAN+99, MRTCCLEAN+102, MRTCCLEAN+103, MRTCCLEAN+107, MRTCCLEAN+108, MRTCCLEAN+112, MRTCCLEAN+115, MRTCCLEAN+116, MRTCCLEAN+120, MRTCCLEAN+121 |
| ORIGCHILDCNT | MRTCCLEAN+1~, MRTCCLEAN+15*, MRTCCLEAN+20* |
| PARENTIEN | MRTCCLEAN+1~, MRTCCLEAN+10*, MRTCCLEAN+11*, MRTCCLEAN+12, MRTCCLEAN+13, MRTCCLEAN+14, MRTCCLEAN+19, MRTCCLEAN+26, MRTCCLEAN+32, MRTCCLEAN+40 , MRTCCLEAN+44, MRTCCLEAN+47, MRTCCLEAN+50, MRTCCLEAN+61, MRTCCLEAN+63, MRTCCLEAN+65, MRTCCLEAN+67, MRTCCLEAN+71, MRTCCLEAN+72, MRTCCLEAN+75 , MRTCCLEAN+76, MRTCCLEAN+77, MRTCCLEAN+78, MRTCCLEAN+83, MRTCCLEAN+87, MRTCCLEAN+88, MRTCCLEAN+89, MRTCCLEAN+90, MRTCCLEAN+92, MRTCCLEAN+93 , MRTCCLEAN+95, MRTCCLEAN+97, MRTCCLEAN+99, MRTCCLEAN+102, MRTCCLEAN+103, MRTCCLEAN+107, MRTCCLEAN+108, MRTCCLEAN+109, MRTCCLEAN+112, MRTCCLEAN+115 , MRTCCLEAN+116, MRTCCLEAN+120, MRTCCLEAN+121, MRTCCLEAN+122, MRTCCLEAN+125, MRTCCLEAN+127, MRTCCLEAN+128, MRTCCLEAN+130, MRTCCLEAN+132, MRTCCLEAN+134 , MRTCCLEAN+136, MRTCCLEAN+138 |
| PATIENTDFN | MRTCCLEAN+2~, MRTCCLEAN+13*, MRTCCLEAN+16, MRTCCLEAN+34, MRTCCLEAN+36 |
| PIDDATE | CLEANUP+1~ |
| POP | CLEANUP+1~, CLEANUP+2*, EXIT+1* |
| PRTIDX | CLEANUP+1~, CLEANUP+12*, CLEANUP+13*, CLEANUP+14, CLEANUP+17*, CLEANUP+18*, CLEANUP+19 |
| REQCNT | MRTCCLEAN+2~, MRTCCLEAN+140*, MRTCCLEAN+141*, MRTCCLEAN+142, MRTCCLEAN+144 |
| REQIDX | MRTCCLEAN+2~, MRTCCLEAN+101*, MRTCCLEAN+102*, MRTCCLEAN+103, MRTCCLEAN+106*, MRTCCLEAN+107*, MRTCCLEAN+108, MRTCCLEAN+109, MRTCCLEAN+114*, MRTCCLEAN+115* , MRTCCLEAN+116, MRTCCLEAN+119*, MRTCCLEAN+120*, MRTCCLEAN+121, MRTCCLEAN+122 |
| REQIEN | CLEANUP+1~, CLEANUP+5, CLEANUP+7, MRTCCLEAN+2~, MRTCCLEAN+14*, MRTCCLEAN+16*, MRTCCLEAN+17, MRTCCLEAN+18, MRTCCLEAN+21, MRTCCLEAN+22 , MRTCCLEAN+23, MRTCCLEAN+24, MRTCCLEAN+25, MRTCCLEAN+26, MRTCCLEAN+27, MRTCCLEAN+30, MRTCCLEAN+39*, MRTCCLEAN+40, MRTCCLEAN+44, MRTCCLEAN+45 , MRTCCLEAN+46, MRTCCLEAN+47, MRTCCLEAN+48, MRTCCLEAN+53~, MRTCCLEAN+54*, MRTCCLEAN+56*, MRTCCLEAN+57, MRTCCLEAN+59, MRTCCLEAN+60, MRTCCLEAN+70* , MRTCCLEAN+71*, MRTCCLEAN+72, MRTCCLEAN+75, MRTCCLEAN+76, MRTCCLEAN+77, MRTCCLEAN+78, MRTCCLEAN+80, MRTCCLEAN+83, MRTCCLEAN+86, MRTCCLEAN+87 , MRTCCLEAN+88, MRTCCLEAN+89, MRTCCLEAN+90, MRTCCLEAN+108*, MRTCCLEAN+109, MRTCCLEAN+121*, MRTCCLEAN+122 |
| REQLIST | MRTCCLEAN+1~ |
| REQLIST( | MRTCCLEAN+30*, MRTCCLEAN+48* |
| REQPARENT | MRTCCLEAN+2~, MRTCCLEAN+18*, MRTCCLEAN+19 |
| REQUESTIEN | MRTCCLEAN~, MRTCCLEAN+6, MRTCCLEAN+8, MRTCCLEAN+10, MRTCCLEAN+11 |
| REQUESTLIST | MRTCCLEAN+2~ |
| REQUESTLIST( | MRTCCLEAN+80*, MRTCCLEAN+86*, MRTCCLEAN+141, MRTCCLEAN+142, MRTCCLEAN+144 |
| RETIDX | MRTCCLEAN+3~, MRTCCLEAN+15*, MRTCCLEAN+61, MRTCCLEAN+62*, MRTCCLEAN+63, MRTCCLEAN+64*, MRTCCLEAN+65, MRTCCLEAN+66*, MRTCCLEAN+67, MRTCCLEAN+68* , MRTCCLEAN+94*, MRTCCLEAN+95, MRTCCLEAN+96*, MRTCCLEAN+97, MRTCCLEAN+98*, MRTCCLEAN+99, MRTCCLEAN+100*, MRTCCLEAN+103, MRTCCLEAN+104*, MRTCCLEAN+109 , MRTCCLEAN+110*, MRTCCLEAN+112, MRTCCLEAN+113*, MRTCCLEAN+116, MRTCCLEAN+117*, MRTCCLEAN+122, MRTCCLEAN+123*, MRTCCLEAN+125, MRTCCLEAN+126*, MRTCCLEAN+128 , MRTCCLEAN+129*, MRTCCLEAN+132, MRTCCLEAN+133*, MRTCCLEAN+134, MRTCCLEAN+135*, MRTCCLEAN+136, MRTCCLEAN+137*, MRTCCLEAN+138, MRTCCLEAN+139*, MRTCCLEAN+142 , MRTCCLEAN+143*, MRTCCLEAN+144, MRTCCLEAN+145* |
| RETN | CLEANUP+1~, CLEANUP+7, MRTCCLEAN~ |
| RETN( | CLEANUP+13, CLEANUP+14, CLEANUP+18, CLEANUP+19, MRTCCLEAN+61*, MRTCCLEAN+63*, MRTCCLEAN+65*, MRTCCLEAN+67*, MRTCCLEAN+95*, MRTCCLEAN+97* , MRTCCLEAN+99*, MRTCCLEAN+103*, MRTCCLEAN+109*, MRTCCLEAN+112*, MRTCCLEAN+116*, MRTCCLEAN+122*, MRTCCLEAN+125*, MRTCCLEAN+128*, MRTCCLEAN+132*, MRTCCLEAN+134* , MRTCCLEAN+136*, MRTCCLEAN+138*, MRTCCLEAN+142*, MRTCCLEAN+144* |
| RUN | CLEANUP+1~, CLEANUP+3, CLEANUP+4 |
| STATUS | MRTCCLEAN+2~, MRTCCLEAN+21*, MRTCCLEAN+26, MRTCCLEAN+28, MRTCCLEAN+72*, MRTCCLEAN+74, MRTCCLEAN+82 |
| TOTALREQ | MRTCCLEAN+2~, MRTCCLEAN+31*, MRTCCLEAN+49*, MRTCCLEAN+69 |
| U | MRTCCLEAN+25, MRTCCLEAN+26, MRTCCLEAN+44, MRTCCLEAN+46, MRTCCLEAN+59, MRTCCLEAN+60, MRTCCLEAN+72, MRTCCLEAN+87, MRTCCLEAN+92, MRTCCLEAN+93 , MRTCCLEAN+108, MRTCCLEAN+121 |
| UDPATE | FIN~ |
| UPDATE | CLEANUP+1~, CLEANUP+9*, CLEANUP+10, CLEANUP+15, CLEANUP+16, CLEANUP+20, PRINTORUPDATE+9*, FIN+5, FIN+6 |
| UPDATECNT | MRTCCLEAN+2~, MRTCCLEAN+70*, MRTCCLEAN+79*, MRTCCLEAN+80, MRTCCLEAN+85*, MRTCCLEAN+86, MRTCCLEAN+92, MRTCCLEAN+93, MRTCCLEAN+125, MRTCCLEAN+142 |
| X | CLEANUP+1~, VERIFYRUN+1~ |
| X1 | VERIFYRUN+1~ |
| X2 | VERIFYRUN+1~ |
| Y | VERIFYRUN~, REQUESTPROMPT~, PRINTORUPDATE~, PRINTORUPDATE+1~, PRINTORUPDATE+9 |