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 |