LRCAPPH3 ;DALOI/FHS/PC - CHECK CPT CODE AND FILE POINTERS ;Apr 20,2018@12:12pm
Source file <LRCAPPH3.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 |
|---|---|---|
| EN | ;
|
|
| AA | ||
| LAM | ;Look for inactive Codes and broken pointers.
|
|
| LAB | ;Look for inactive Codes in ^LAB
|
|
| IACPT(LRBETST,LRBECDT,LRSPEC) | ; Get inactive specimen CPT
|
|
| EN0 | ;Entry point for scan 64, scan 60, and mail reports to G.LMI
|
|
| END | ;Called from LRCAPPH4
|
|
| ACTIVE | ;Print only WKLD CODES that have associated test assigned
|
|
| CK | ;
|
|
| MSG | ;
|
|
| ;Send message to G.LMI local mail group
|
||
| TST | ||
| MSGSET(SUB,TXT) | ;SUB=subscript - TXT = array containing the message
|
|
| MSG2(MSGTYPE) | ;
|
|
| MAIL2 | ;Send message to G.LMI local mail group
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | LAB+2, LAB+7, LAB+11, LAB+12, LAB+37, LAB+39, LAB+46 |
| ^LAM - [#64] | LAM+3, LAM+4, LAM+5, LAM+6, LAM+7!, LAM+10, MSG+2, MSG+8, MSG+17, MSG+18 , TST+1, TST+4 |
| ^LRO(69 - [#69] | AA+8 |
| ^TMP( | MSGSET+2, MSGSET+4*, MSGSET+5* |
| ^TMP("LRCAPPH" | EN+1!, EN+4*, END+5!, CK+7*, MSG+3, MAIL+1, MAIL+4*, MAIL+5*, MAIL+7*, MSG2+3 |
| ^TMP("LRCAPPH60" | EN+5*, END+5!, MAIL2+2, MAIL2+3* |
| ^TMP($J | LAB+19*, LAB+20*, LAB+21*, LAB+22*, LAB+23*, LAB+24*, LAB+25*, LAB+26*, LAB+27*, LAB+28* , LAB+29*, LAB+30*, LAB+33! |
| ^VA(200 - [#200] | LAB+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EN+3!*, EN+6!*, EN+7! |
| A | IACPT+1~, IACPT+4*, IACPT+5, IACPT+6 |
| ARR | IACPT+1~ |
| ARR( | IACPT+6*, IACPT+7, IACPT+8 |
| DA | LAM+8~, LAM+9*, END+2! |
| DA(1 | LAM+9* |
| DEFAULT | LAB+1~, LAB+46*, LAB+50, LAB+52 |
| DIC | END+2!, CK+2!, CK+10* |
| DIC("S" | CK+11* |
| DIC(0 | CK+10* |
| DIE | LAM+8~, END+2! |
| DIK | LAM+8~, LAM+9*, END+2! |
| DR | LAM+8~, END+2! |
| DT | LAB+41 |
| DUZ | LAB+16, MAIL+2~, MAIL2+1~ |
| EDITUSER | LAB+8~, LAB+10*, LAB+12*, LAB+13*, LAB+14*, LAB+22 |
| HCPCS | LAB+1~, LAB+46*, LAB+47, LAB+49 |
| I | END+2!, CK+3*, MSGSET+1~, MSGSET+3*, MSGSET+4 |
| IOF | END+1 |
| IOST | END+1 |
| LR69ORD | AA+2~, AA+7*, AA+8 |
| LRAAN | AA+2~, AA+3*, AA+4*, AA+5, AA+7 |
| LRACT | LAM+4, END+3!, ACTIVE+2*, CK+1 |
| LRBEAR60 | IACPT+1~ |
| LRBEAR60( | IACPT+4, IACPT+5, IACPT+6 |
| LRBEAX | IACPT+1~, IACPT+8*, IACPT+9*, IACPT+10 |
| LRBECDT | IACPT~, IACPT+7, IACPT+9 |
| LRBECPT | LAB+1~, LAB+40!, IACPT+2* |
| LRBECPT( | LAB+42, LAB+43, IACPT+10* |
| LRBEIEN | IACPT+1~, IACPT+2*, IACPT+3 |
| LRBETST | IACPT~, IACPT+2, IACPT+10 |
| >> LRC | MAIL+6*, MAIL+7 |
| LRCE | AA+2~, AA+5*, AA+10 |
| LRCMT | END+3!, MSG+3*, MSG+4*, MSG+6, MSG+9*, MSG+10*, MSG+14*, MSG+15, MSG+19*, MSG+20* , MAIL+3*, MAIL+4, MAIL+5*, MAIL+7*, TST+3*, TST+6*, TST+7, MSGSET+2*, MSGSET+4*, MSGSET+5 , MSG2+3*, MSG2+4*, MSG2+5*, MSG2+6, MAIL2+3* |
| LRI | LAM+2~, LAM+3*, LAM+4, LAM+5, LAM+6, LAM+7, LAM+9, LAM+10, IACPT+2*, END+3! , MSG+2, MSG+4, MSG+8, MSG+17, MSG+18, TST+1, TST+4 |
| LRII | LAM+2~, LAM+5*, LAM+6, LAM+7, LAM+9, LAM+10, END+3!, MSG+8, MSG+17, MSG+18 |
| LRINADT | EN+6*, END+3!, MSG+9 |
| LRINADTX | EN+7*, END+3!, MSG+8, MSG+17 |
| LRJ | LAB+1~, LAB+2*, LAB+7, LAB+11, LAB+12, LAB+19, LAB+37, LAB+39, LAB+41, LAB+42 , LAB+43, LAB+46, MSG2+4 |
| LRMSG | LAB+53, END+3!, CK+2!, MSG+1!, MSG+11, MSG+21, MSG2+2! |
| LRMSG( | MSG+4*, MSG+6*, MSG+9*, MSG+10*, MSG+14*, MSG+15*, MSG+19*, MSG+20*, TST+3*, TST+7* , MSG2+3*, MSG2+4*, MSG2+6* |
| LRN | LAB+1~, LAB+37*, END+3!, MSG+2*, MSG+4, MSG2+4 |
| LRPGDT | EN+3*, END+3! |
| LRSEP | EN+1!, END+3! |
| LRSEP(1 | EN+1*, AA+23, MSG+10 |
| LRSEP(2 | EN+2*, MSG+20 |
| LRSPEC | LAB+1~, LAB+39*, LAB+41, LAB+44, IACPT~, IACPT+2 |
| LRT | TST+2!, TST+4* |
| LRTST | END+3!, TST+4*, TST+5, TST+6*, TST+7 |
| LRTXT | AA+2~, AA+9!, AA+10*, AA+12, AA+14, AA+16, AA+18, AA+21, AA+23, END+4! |
| LRTXT(1 | AA+12*, AA+14*, AA+16*, AA+18*, AA+21*, AA+23 |
| LRTXT(10 | AA+23* |
| LRTXT(2 | AA+19*, AA+22* |
| LRX | AA+2~, AA+5*, AA+11, AA+13, AA+15, AA+17, AA+20, LAM+10!*, END+3!, CK+1 , CK+3 |
| LRX( | CK+3* |
| LRX(1 | CK+5, CK+10 |
| LRX(2 | CK+4, CK+11, MSG+6, MSG+15 |
| LRX(4 | CK+6, CK+14 |
| LRXDT | LAM+2~, MSG+13~, MSG+18*, MSG+19 |
| LRY | LAM+2~ |
| MSGFLAG | LAB+1~, LAB+36*, LAB+53, MSG2+1, MSG2+6* |
| MSGTYPE | LAB+1~, LAB+44*, LAB+45, LAB+48*, LAB+49, LAB+51*, LAB+52, MSG2~, MSG2+6 |
| SUB | MSGSET~, MSGSET+2, MSGSET+4, MSGSET+5 |
| TXT | MSGSET~ |
| TXT( | MSGSET+3, MSGSET+4 |
| U | EN+4, EN+5, LAM+7, LAB+37, LAB+38, LAB+46, LAB+49, LAB+52, IACPT+10, CK+1 , CK+3, CK+6, CK+8, CK+10, MSG+3, MSG+4, MSG+8, MSG+12, MSG+14, MSG+17 , MSG+18, TST+7, MSGSET+2, MSGSET+5, MSG2+3, MSG2+4 |
| X | EN+3*, EN+6*, LAB+37*, LAB+38, LAB+43*, LAB+46*, LAB+49*, LAB+52*, IACPT+1~, IACPT+7* , IACPT+8, END+4!, CK+2!, CK+5*, CK+6, CK+7, CK+10*, MSG+6, TST+2~, TST+5* , TST+7, MSG2+6 |
| XMDUZ | LAB+8~, LAB+18*, MAIL+2~, MAIL2+1~ |
| XMSUB | LAB+8~, LAB+15*, END+4!, MAIL+2~, MAIL+8*, MAIL2+1~, MAIL2+4* |
| XMTEST | LAB+8~ |
| XMTEXT | LAB+31*, END+4!, MAIL+2~, MAIL+9*, MAIL2+1~, MAIL2+5* |
| XMY | LAB+8~ |
| XMY( | LAB+16* |
| XMY("G.HPS T3 | Clinical DEV@DOMAIN.EXT" , LAB+17* |
| XMY("G.LMI" | MAIL+9*, MAIL2+5* |
| Y | EN+3, EN+4, EN+5, EN+6, EN+7, LAB+1~, LAB+49*, LAB+52*, END+4!, CK+2! , CK+6*, CK+8, CK+13, MSG+5 |
| Y(0 | CK+8*, MSG+12, MSG+14 |
| >> ZTQUEUED | LAM+3, LAM+6 |
