GMRCYP70 ;BP/SBR - CONSULT NOTE STORED ON WRONG PATIENT ; 11/07/2008
Source file <GMRCYP70.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;
|
|
| EN1 | ;
|
|
| TASK | ||
| START | ;
|
|
| SEARCH | ;Search for results attached to the wrong patient.
|
|
| MSG | ;Send Mailman message to installer
|
|
| NOMSG | ;Send Mailman message to installer - no records found
|
|
| TOTAL | ;Calculate adjusted result totals to determine total messages needed
|
|
| TOTAL1 | ||
| NAMELIST(GMRCP,GMRCOLD,GMRCDELR) | ;manage the list of recipients
|
|
| READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL) | ;read logic
|
|
| NAMEHELP | ;Help for the recipient list logic
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | MSG+63 |
| ^%ZTLOAD | TASK+3 |
| ^DIC | NAMELIST+15 |
| $$EXTERNAL^DILFD | MSG+48 |
| $$GET1^DIQ | SEARCH+24, SEARCH+25, SEARCH+26, SEARCH+27, SEARCH+29, SEARCH+30 |
| ^DIR | READ+17 |
| $$OI^ORX8 | SEARCH+37 |
| EXTRACT^TIULQ | SEARCH+17 |
| SENDMSG^XMXAPI | MSG+88, NOMSG+15 |
| BMES^XPDUTL | EN1+1, TASK+4, TASK+5, NAMEHELP+2, NAMEHELP+6, NAMEHELP+8 |
| MES^XPDUTL | TASK+5, NAMELIST+18, NAMELIST+19, NAMELIST+21, NAMELIST+22, NAMELIST+23, NAMELIST+24, NAMELIST+25, NAMEHELP+3, NAMEHELP+4 , NAMEHELP+5, NAMEHELP+7, NAMEHELP+9, NAMEHELP+11, NAMEHELP+12, NAMEHELP+13 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | EXTERNAL^DILFD |
| ^MCAR(690 - [#690] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | SEARCH+9, SEARCH+10, SEARCH+11 |
| ^GMR(123.5 - [#123.5] | SEARCH+43 |
| ^SC - [#44] | SEARCH+45 |
| ^TMP("GMRCYP70" | START+3!, SEARCH+48*, MSG+44, MSG+56, MSG+58, MSG+60, MSG+61, MSG+80, MSG+100!, TOTAL1+3 , TOTAL1+6, TOTAL1+8, TOTAL1+10, TOTAL1+13 |
| ^VA(200 - [#200] | NAMEHELP+11, NAMEHELP+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIC | NAMELIST+7~, NAMELIST+15* |
| DIC(0 | NAMELIST+15* |
| DIR | READ+10~ |
| DIR("?" | READ+15* |
| DIR("A" | READ+13* |
| DIR("B" | READ+14* |
| DIR(0 | READ+12* |
| DIROUT | READ+10~, READ+18 |
| DIRUT | READ+10~, READ+18 |
| DTOUT | READ+10~, READ+18 |
| DUOUT | READ+10~, READ+18 |
| DUZ | EN1+1, EN1+3, MSG+7~*, MSG+8, MSG+9, NOMSG+3~*, NOMSG+4, NOMSG+5 |
| GMRC0 | SEARCH+5~, SEARCH+7*, SEARCH+10*, SEARCH+13, SEARCH+36, SEARCH+38, SEARCH+40, SEARCH+43, SEARCH+44, MSG+1~ , MSG+61*, MSG+62, MSG+68, MSG+69, MSG+70, MSG+71, MSG+72, MSG+73, READ~, READ+11 , READ+12 |
| GMRCA | READ~, READ+13 |
| GMRCADD | NAMELIST+7~, NAMELIST+13*, NAMELIST+14*, NAMELIST+17, NAMELIST+20 |
| GMRCB | READ~, READ+14 |
| GMRCC | MSG+1~, MSG+16*, MSG+17*, MSG+18*, MSG+19*, MSG+21*, MSG+22*, MSG+23*, MSG+24*, MSG+25* , MSG+26*, MSG+27*, MSG+28*, MSG+29*, MSG+30*, MSG+31*, MSG+32*, MSG+33*, MSG+34*, MSG+35* , MSG+36*, MSG+37*, MSG+38*, MSG+39*, MSG+40*, MSG+47*, MSG+50*, MSG+51*, MSG+52*, MSG+53* , MSG+74*, MSG+75*, MSG+76*, MSG+77*, MSG+83*, MSG+84*, MSG+85*, MSG+86*, MSG+87*, NOMSG+1~ , NOMSG+7*, NOMSG+8*, NOMSG+9*, NOMSG+10*, NOMSG+12*, NOMSG+14* |
| GMRCCNST | SEARCH+5~, SEARCH+7*, SEARCH+9*, SEARCH+10, SEARCH+11, SEARCH+48 |
| GMRCCNT | MSG+1~, MSG+42*, MSG+44, MSG+45, MSG+78*, MSG+79, MSG+82, MSG+86 |
| GMRCCON | MSG+2~, MSG+5*, MSG+66*, MSG+74 |
| GMRCCPT | SEARCH+6~, SEARCH+7*, SEARCH+13*, SEARCH+31, SEARCH+34, SEARCH+48, MSG+2~, MSG+5*, MSG+69*, MSG+75 |
| GMRCDELR | NAMELIST~, NAMELIST+9 |
| GMRCDIV | SEARCH+5~, SEARCH+10*, SEARCH+45*, SEARCH+48, MSG+3~, MSG+11*, MSG+43*, MSG+44*, MSG+48, MSG+56 , MSG+58, MSG+60, MSG+61, MSG+80, TOTAL+1~, TOTAL+3*, TOTAL1+2*, TOTAL1+3*, TOTAL1+6, TOTAL1+8 , TOTAL1+10, TOTAL1+13, TOTAL1+17 |
| GMRCDOC | MSG+2~, MSG+5*, MSG+72*, MSG+75 |
| GMRCDT | SEARCH+6~, SEARCH+7*, SEARCH+13*, SEARCH+47, SEARCH+48, MSG+1~, MSG+57*, MSG+58*, MSG+60, MSG+61 , TOTAL+1~, TOTAL1+7*, TOTAL1+8*, TOTAL1+10 |
| GMRCDTX | SEARCH+6~, SEARCH+7*, SEARCH+13*, SEARCH+47*, SEARCH+48 |
| GMRCDUZ | NAMELIST+7~, NAMEHELP+1~, NAMEHELP+10*, NAMEHELP+11, NAMEHELP+12 |
| GMRCEDIV | MSG+3~, MSG+48*, MSG+49*, MSG+51 |
| GMRCERR | SEARCH+6~, SEARCH+12*, SEARCH+15, SEARCH+17, SEARCH+18 |
| GMRCFDT | MSG+1~, MSG+65*, MSG+67*, MSG+74 |
| GMRCFL | SEARCH+39~, SEARCH+40*, SEARCH+41 |
| GMRCH | READ~, READ+15 |
| GMRCIEN | MSG+1~, MSG+54*, MSG+56*, MSG+58, MSG+60, MSG+61, MSG+66, MSG+80, TOTAL+1~, TOTAL1+4* , TOTAL1+6*, TOTAL1+8, TOTAL1+10, TOTAL1+13 |
| GMRCL | READ~, READ+16 |
| GMRCLINE | READ+10~, READ+16* |
| GMRCLOC | SEARCH+5~, SEARCH+10*, SEARCH+44*, SEARCH+45 |
| GMRCMSG | MSG+2~, NOMSG+1~ |
| GMRCMSG(1 | MSG+89*, NOMSG+16* |
| GMRCMSG(2 | MSG+90*, NOMSG+17* |
| GMRCMSG(3 | MSG+92*, NOMSG+18* |
| GMRCMSG(4 | MSG+93*, MSG+95*, NOMSG+19*, NOMSG+21* |
| GMRCMSG(5 | MSG+96*, MSG+99*, NOMSG+22*, NOMSG+25* |
| GMRCMSG(6 | MSG+97*, NOMSG+23* |
| GMRCMSG(7 | MSG+98*, NOMSG+24* |
| GMRCNAME | SEARCH+6~, SEARCH+7*, SEARCH+12*, SEARCH+37*, SEARCH+38, SEARCH+42*, SEARCH+43*, SEARCH+48, MSG+1~, MSG+5* , MSG+68*, MSG+74 |
| GMRCNEW | NAMELIST+7~, NAMELIST+8*, NAMELIST+26 |
| GMRCNEW( | NAMELIST+18, NAMELIST+19*, NAMELIST+22, NAMELIST+23!, NAMEHELP+10 |
| GMRCNT | NAMELIST+7~, NAMELIST+10*, NAMELIST+19*, NAMELIST+23* |
| GMRCOERR | SEARCH+6~, SEARCH+7*, SEARCH+36*, SEARCH+37 |
| GMRCOLD | NAMELIST~, NAMELIST+8, NAMELIST+9!*, NAMELIST+26* |
| GMRCOLD( | NAMELIST+21, NAMEHELP+11, NAMEHELP+12 |
| GMRCP | NAMELIST~, NAMELIST+11 |
| GMRCPARM | MSG+2~, MSG+88, NOMSG+1~, NOMSG+15 |
| GMRCPAT | SEARCH+5~ |
| GMRCPFLG | MSG+2~, MSG+42*, MSG+56, MSG+81*, TOTAL1*, TOTAL1+6, TOTAL1+14* |
| GMRCPG | MSG+3~, MSG+11*, MSG+14*, MSG+17, MSG+20, MSG+92 |
| GMRCPRC | SEARCH+39~, SEARCH+40*, SEARCH+41*, SEARCH+42 |
| GMRCPTR | SEARCH+39~, SEARCH+40*, SEARCH+41 |
| GMRCQ | NAMELIST+7~ |
| GMRCRDT | MSG+1~, MSG+73*, MSG+76 |
| GMRCRECP | EN1+2~, EN1+4, MSG+6 |
| GMRCRECP( | EN1+3* |
| GMRCRSDT | SEARCH+6~, SEARCH+7*, SEARCH+20*, SEARCH+27*, SEARCH+29*, SEARCH+30*, SEARCH+48 |
| GMRCRSLT | SEARCH+5~, SEARCH+7*, SEARCH+11*, SEARCH+14, SEARCH+15, SEARCH+17, SEARCH+19, SEARCH+20, SEARCH+22, SEARCH+23 , SEARCH+24, SEARCH+25, SEARCH+27, SEARCH+29, SEARCH+30, SEARCH+48 |
| GMRCRSPT | SEARCH+5~, SEARCH+8*, SEARCH+19*, SEARCH+24*, SEARCH+25*, SEARCH+26*, SEARCH+31, SEARCH+33, SEARCH+48 |
| GMRCRTTL | MSG+3~, MSG+13, TOTAL+2*, TOTAL1+15*, TOTAL1+16* |
| GMRCSEQ | SEARCH+5~ |
| GMRCSIEN | MSG+3~, MSG+11*, MSG+43, MSG+54, MSG+55*, MSG+80*, TOTAL1+2, TOTAL1+4, TOTAL1+5*, TOTAL1+13* |
| GMRCSPC | MSG+3~, MSG+41*, MSG+66, MSG+67, MSG+68, MSG+69, MSG+70, MSG+71, MSG+72, MSG+73 , NOMSG+1~, NOMSG+13* |
| GMRCTCNT | TOTAL+1~, TOTAL1*, TOTAL1+3, TOTAL1+11*, TOTAL1+12, TOTAL1+16 |
| GMRCTIU | SEARCH+16~ |
| GMRCTIU( | SEARCH+19, SEARCH+20 |
| GMRCTPG | MSG+3~, MSG+13*, MSG+14, MSG+17, MSG+20, MSG+92 |
| GMRCTPT | MSG+1~, MSG+5*, MSG+70*, MSG+75 |
| GMRCTTL | START+2~, START+5, START+6, SEARCH+8*, SEARCH+46*, SEARCH+47, SEARCH+48, MSG+87, NOMSG+14 |
| GMRCTXT | MSG+3~, MSG+15!, NOMSG+1~, NOMSG+6! |
| GMRCTXT( | MSG+17*, MSG+18*, MSG+19*, MSG+21*, MSG+22*, MSG+23*, MSG+24*, MSG+25*, MSG+26*, MSG+27* , MSG+28*, MSG+29*, MSG+30*, MSG+31*, MSG+32*, MSG+33*, MSG+34*, MSG+35*, MSG+36*, MSG+37* , MSG+38*, MSG+39*, MSG+40*, MSG+47*, MSG+50*, MSG+51*, MSG+52*, MSG+53*, MSG+74*, MSG+75* , MSG+76*, MSG+77*, MSG+83*, MSG+84*, MSG+85*, MSG+86*, MSG+87*, NOMSG+8*, NOMSG+9*, NOMSG+10* , NOMSG+12*, NOMSG+14* |
| GMRCTYP | SEARCH+6~ |
| GMRCTYPE | SEARCH+7*, SEARCH+14*, SEARCH+48, MSG+2~, MSG+5*, MSG+71*, MSG+75 |
| GMRCUSER | NAMELIST+7~, NAMELIST+10, NAMELIST+11*, NAMELIST+12*, NAMELIST+13*, NAMELIST+15, NAMELIST+24 |
| GMRCX | MSG+2~, MSG+59*, MSG+60*, MSG+61, TOTAL+1~, TOTAL1+9*, TOTAL1+10* |
| I | MSG+46~, MSG+47* |
| U | SEARCH+13, SEARCH+36, SEARCH+37, SEARCH+38, SEARCH+40, SEARCH+42, SEARCH+43, SEARCH+44, SEARCH+45, SEARCH+48 , MSG+68, MSG+69, MSG+70, MSG+71, MSG+72, MSG+73, NAMELIST+10, NAMELIST+12, READ+11, READ+18 , NAMEHELP+11, NAMEHELP+12 |
| X | SEARCH+6~, SEARCH+7*, SEARCH+23*, SEARCH+24, SEARCH+25, SEARCH+27, SEARCH+28, SEARCH+29, SEARCH+30, NAMELIST+7~ , NAMELIST+15* |
| XCNT | START+2~, SEARCH+8*, SEARCH+10*, SEARCH+48, MSG+85 |
| XMDUZ | MSG+4~, MSG+8*, MSG+88, NOMSG+2~, NOMSG+4*, NOMSG+15 |
| XMERR | MSG+4~, MSG+93, MSG+94, MSG+99, NOMSG+2~, NOMSG+19, NOMSG+20, NOMSG+25 |
| XMSUB | MSG+4~, MSG+20*, MSG+88, NOMSG+2~, NOMSG+11*, NOMSG+15 |
| XMTEXT | MSG+4~, MSG+8*, MSG+88, NOMSG+2~, NOMSG+4*, NOMSG+15 |
| XMY | MSG+4~, MSG+6*, MSG+88, NOMSG+2~, NOMSG+15 |
| XMY( | MSG+9*, NOMSG+5* |
| >> XPDNOQUE | ENV+1* |
| Y | MSG+4~, MSG+62*, MSG+64*, MSG+65, NOMSG+2~, NAMELIST+7~, NAMELIST+16, NAMELIST+18, NAMELIST+19, NAMELIST+21 , NAMELIST+22, NAMELIST+23, READ+19 |
| ZTDESC | EN1+2~, TASK+2* |
| ZTDTH | EN1+2~, TASK+2* |
| ZTIO | EN1+2~, TASK* |
| ZTQUEUED | EN1+2~, START+1 |
| ZTREQ | EN1+2~, START+1* |
| ZTRTN | EN1+2~, TASK* |
| ZTSAVE | EN1+2~ |
| ZTSAVE("GMRCRECP(" | TASK+1* |
| ZTSK | EN1+2~, TASK+4, TASK+5 |