HDISDOCL ;BPFO/DTG - COLLECT LABORTORY ITEMS FOR SDO LIST; Apr 07, 2018@12:42
Source file <HDISDOCL.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 |
|---|---|---|
| BTMP() | ;
|
|
| LEN | ; lab entry point
|
|
| LRT | ||
| LRS | ;S LRSPEC=$O(^LAB(60,LRUN,1,LRSPEC)) I 'LRSPEC D LT60T G LRT
|
|
| LQUIT | ; quit back
|
|
| PNLCK(LT) | ; check for panel
|
|
| CHKCHAR(A) | ; check for ctrl chars, <, >, &, /
|
|
| GETLAB(LG) | ; get lab test info
|
|
| GETSPEC(LG,LS) | ; get lab test specimen info
|
|
| GETMLTF(LM) | ; get mltf info from file 66.3
|
|
| LH60P | ; header for primary item
|
|
| LT60P | ; trailer for primary item
|
|
| LB60P | ; body for primary item
|
|
| LH60T | ; test header for file 60
|
|
| LT60T | ; test trailer for file 60
|
|
| LB60T | ; test body for file 60
|
|
| LH6001 | ; test specimen header for file 60.01
|
|
| LT6001 | ; test specimen trailer for file 60.01
|
|
| LB6001 | ; test spceimen body for file 60.01
|
|
| LH663 | ; header for mltf 66.3
|
|
| LT663 | ;trailer for mltf 66.3
|
|
| LB663 | ; body for mltf 66.3
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^UTILITY("DIQ1" | GETLAB+3!, GETSPEC+2!, GETSPEC+4!, GETMLTF+3! |
| Name | Line Occurrences |
|---|---|
| $$BTMP | LH60P+1, LT60P+1, LB60P+1, LB60P+2, LB60P+3, LH60T+1, LT60T+1, LB60T+1, LB60T+2, LB60T+3 , LB60T+4, LB60T+5, LB60T+6, LB60T+7, LH6001+1, LT6001+1, LB6001+1, LB6001+2, LB6001+3, LB6001+4 , LB6001+5, LH663+1, LT663+1, LB663+1, LB663+2, LB663+3, LB663+4, LB663+5, LB663+6, LB663+7 , LB663+8, LB663+9, LB663+10, LB663+11, LB663+12 |
| $$CHKCHAR | LEN+46, LRT+1, LRS+3, LRS+13, LRS+14, LRS+15 |
| GETLAB | LEN+45, LRT+1 |
| GETMLTF | LRS+12 |
| GETSPEC | LRS+2 |
| LB6001 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+10 |
| LB60P | LEN+27, LEN+36, LEN+51 |
| LB60T | LEN+27, LEN+36, LEN+59, LRT+10 |
| LB663 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+28 |
| LH6001 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+10 |
| LH60P | LEN+27, LEN+36, LEN+51 |
| LH60T | LEN+27, LEN+36, LEN+59, LRT+10 |
| LH663 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+28 |
| LQUIT | LEN+22, LEN+31, LEN+55, LRT |
| LRS | LRS+29 |
| LRT | LRT+16, LRS+1 |
| LT6001 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+28 |
| LT60P | LQUIT+1 |
| LT60T | LEN+27, LEN+36, LEN+59, LRT+19, LRS+1 |
| LT663 | LEN+27, LEN+36, LEN+59, LRT+19, LRS+28 |
| PNLCK | LEN+45, PNLCK+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | LEN+31*, LEN+43*, LEN+55*, LRT+3*, LRT+16*, LRT+22*, LRS+17~, LRS+19*, PNLCK+1~*, PNLCK+6* , PNLCK+7*, PNLCK+8, CHKCHAR~, CHKCHAR+2, CHKCHAR+3, CHKCHAR+4, GETLAB+1~, GETSPEC+1~, GETMLTF+1~ |
| AA | LEN+11~, LRT+15!, LRS+17~, LRS+18!, LQUIT+6!, PNLCK+1~, PNLCK+4!, PNLCK+5! |
| AA("DILIST" | LRT+16, LRT+22, LRS+18, PNLCK+5 |
| AB | LEN+11~, LQUIT+6! |
| ABC | LEN+11~, LQUIT+6! |
| AR | LEN+11~, LQUIT+6!, PNLCK+1~, PNLCK+5!* |
| AR( | PNLCK+6, PNLCK+7, PNLCK+8 |
| B | LEN+8~, LEN+13*, LRS+3*, LRS+4*, LRS+17~, LRS+19*, LRS+20, LQUIT+3!, PNLCK+1~, PNLCK+13* , CHKCHAR+1~, CHKCHAR+3*, CHKCHAR+6*, CHKCHAR+7*, CHKCHAR+8*, CHKCHAR+10*, CHKCHAR+11, GETLAB+1~, GETSPEC+1~, GETMLTF+1~ |
| BA | LEN+11~, LEN+42!, LEN+44!, LQUIT+6!, PNLCK+1~, PNLCK+12! |
| BA("DILIST" | LEN+43, PNLCK+13 |
| BR | PNLCK+1~ |
| C | LRS+17~, LRS+19*, LRS+20, PNLCK+1~, PNLCK+8*, PNLCK+10, PNLCK+11, PNLCK+12, PNLCK+13, PNLCK+14 , CHKCHAR+1~, CHKCHAR+3*, CHKCHAR+5, CHKCHAR+6, CHKCHAR+7, CHKCHAR+8, CHKCHAR+10, GETLAB+1~, GETSPEC+1~, GETMLTF+1~ |
| D | LEN+8~, LEN+13*, LEN+29*, LEN+38*, LQUIT+3!, PNLCK+1~, GETLAB+1~, GETSPEC+1~, GETMLTF+1~, LH60P+1* , LT60P+1*, LB60P+1*, LB60P+2*, LB60P+3*, LH60T+1*, LT60T+1*, LB60T+1*, LB60T+2*, LB60T+3*, LB60T+4* , LB60T+5*, LB60T+6*, LB60T+7*, LH6001+1*, LT6001+1*, LB6001+1*, LB6001+2*, LB6001+3*, LB6001+4*, LB6001+5* , LH663+1*, LT663+1*, LB663+1*, LB663+2*, LB663+3*, LB663+4*, LB663+5*, LB663+6*, LB663+7*, LB663+8* , LB663+9*, LB663+10*, LB663+11*, LB663+12* |
| DA | LEN+8~, LEN+13*, LEN+20*, LRS+17~*, LQUIT+3!, GETLAB+1~, GETLAB+3*, GETLAB+4, GETSPEC+1~, GETSPEC+2* , GETMLTF+1~, GETMLTF+3*, GETMLTF+4 |
| DA( | GETSPEC+3* |
| DD | LEN+20! |
| DIC | LEN+8~, LEN+13*, LQUIT+3!, GETLAB+3*, GETSPEC+2*, GETMLTF+3* |
| DIQ | LEN+8~, LEN+13*, LQUIT+3!, GETLAB+1~, GETLAB+3*, GETSPEC+1~, GETSPEC+2*, GETMLTF+1~, GETMLTF+3* |
| DIQ(0 | GETLAB+3*, GETSPEC+2*, GETMLTF+3* |
| DIR | LEN+8~, LEN+13*, LQUIT+3! |
| DR | LEN+8~, LEN+13*, LQUIT+3!, GETLAB+1~, GETLAB+3*, GETSPEC+1~, GETSPEC+2*, GETMLTF+1~, GETMLTF+3* |
| DR( | GETSPEC+3* |
| F | BTMP+1~, BTMP+2*, BTMP+3 |
| >> HDICNT | LEN+47, LEN+48, LEN+50, LRT+4, LRT+5, LRT+7, LRS+6, LRS+7, LRS+9, LRS+21 , LRS+22, LRS+24 |
| >> HDIERAR | LEN+28*, LEN+37* |
| >> HDIERR | LEN+29, LEN+38 |
| I | LEN+8~, LEN+13*, LQUIT+3!, CHKCHAR+1~, CHKCHAR+3*, CHKCHAR+4 |
| >> K | LEN+48*, LEN+49*, LRT+5*, LRT+6*, LRS+7*, LRS+8*, LRS+22*, LRS+23* |
| L | LEN+48*, LEN+49*, LEN+50, LRT+5*, LRT+6*, LRT+7, LRS+7*, LRS+8*, LRS+9, LRS+22* , LRS+23*, LRS+24, CHKCHAR+1~, CHKCHAR+3* |
| L60 | LEN+10~, LEN+15*, LEN+18*, LEN+20, LEN+22, LEN+31, LEN+38, LEN+42, LQUIT+5! |
| >> LAM | LEN+18, LEN+29, LEN+38 |
| LB | LEN+8~, LEN+13*, LQUIT+3!, GETLAB+4!, GETSPEC+2!, GETSPEC+5!, GETMLTF+4! |
| LB( | GETMLTF+4 |
| LB("60.01" | GETSPEC+5 |
| LB(60 | GETLAB+4 |
| LC | LEN+8~, LEN+13*, LQUIT+3!, GETLAB+4!* |
| LC( | LEN+46, LRT+1 |
| LC(13 | LRT+2 |
| LC(132 | LRT+3 |
| LC(133 | LRT+3 |
| LC(3 | LRT+1 |
| LC(5 | LRT+2 |
| LE | LEN+10~, LEN+15*, LQUIT+5!, GETSPEC+5!* |
| LE( | LRS+3 |
| LE(30 | LRS+5 |
| LE(32 | LRS+3 |
| LE(33 | LRS+4 |
| LE(6 | LRS+3 |
| LF | LEN+10~, LEN+15*, LQUIT+5!, GETMLTF+4!* |
| LF( | LRS+13, LRS+14, LRS+15 |
| LF(1 | LRS+15 |
| LG | LEN+8~, LEN+13*, LQUIT+3!, GETLAB~, GETLAB+2, GETLAB+3, GETSPEC~, GETSPEC+2 |
| LM | GETMLTF~, GETMLTF+2, GETMLTF+3 |
| LPRI | LEN+10~, LEN+15*, LEN+18*, LQUIT+5! |
| LRAA | LEN+11~, LRT+22!, LQUIT+6! |
| LRAA( | LRT+22*, LRS+1 |
| LRDAP | LEN+9~, LEN+14*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+2*, LQUIT+4!, LB60T+5 |
| LRDAT | LEN+9~, LEN+14*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+2*, LQUIT+4!, LB60T+4 |
| LRIDT | LEN+9~, LEN+14*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+3*, LRT+6, LQUIT+4!, LB60T+6 |
| LRIEN | LEN+8~, LEN+13*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+1*, LQUIT+3!, LB60T+1 |
| LRMLAN | LEN+9~, LEN+14*, LEN+26*, LEN+35*, LEN+53*, LEN+58*, LRT+12*, LRT+18*, LRS+13*, LRS+27* , LQUIT+4!, LB663+3 |
| LRMLCOM | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+14*, LRS+27*, LQUIT+5! , LB663+7 |
| LRMLIDT | LEN+8~, LEN+13*, LEN+26*, LEN+35*, LEN+58*, LRT+12*, LRT+18*, LRS+20*, LRS+23, LRS+27* , LB663+4 |
| LRMLLON | LEN+9~, LEN+14*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+13*, LRT+18*, LRS+13*, LRS+27* , LQUIT+4!, LB663+6 |
| LRMLMET | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+15*, LRS+27*, LQUIT+5! , LB663+12 |
| LRMLNM | LEN+9~, LEN+14*, LEN+26*, LEN+35*, LEN+53*, LEN+58*, LRT+12*, LRT+18*, LRS+13*, LRS+27* , LQUIT+4!, LB663+2 |
| LRMLPROP | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+14*, LRS+27*, LQUIT+5! , LB663+8 |
| LRMLSCAL | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+15*, LRS+27*, LQUIT+5! , LB663+11 |
| LRMLSPEC | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+15*, LRS+27*, LQUIT+5! , LB663+10 |
| LRMLSTAT | LEN+9~, LEN+14*, LEN+26*, LEN+35*, LEN+53*, LEN+58*, LRT+12*, LRT+18*, LRS+20*, LRS+27* , LB663+5 |
| LRMLTF | LEN+9~, LEN+14*, LEN+26*, LEN+35*, LEN+53*, LEN+58*, LRT+12*, LRT+18*, LRS+5*, LRS+11 , LRS+12, LRS+17, LRS+26, LRS+27*, LQUIT+4!, LB663+1 |
| LRMLTIM | LEN+10~, LEN+15*, LEN+26*, LEN+35*, LEN+54*, LEN+58*, LRT+18*, LRS+14*, LRS+27*, LQUIT+5! , LB663+9 |
| LRNAME | LEN+8~, LEN+13*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+1*, LQUIT+3!, LB60T+2 |
| LRSIDT | LEN+9~, LEN+14*, LEN+25*, LEN+34*, LEN+53*, LEN+57*, LRT+12*, LRT+17*, LRS+4*, LRS+8 , LQUIT+4!, LB6001+4 |
| LRSPEC | LEN+9~, LEN+14*, LEN+25*, LEN+34*, LEN+53*, LEN+57*, LRT+12*, LRT+17*, LRT+21*, LRS+1* , LRS+2, LQUIT+4!, LB6001+1 |
| LRSPN | LEN+9~, LEN+14*, LEN+25*, LEN+34*, LEN+53*, LEN+57*, LRT+12*, LRT+17*, LRS+3*, LQUIT+4! , LB6001+2 |
| LRSST | LEN+9~, LEN+14*, LEN+25*, LEN+34*, LEN+53*, LEN+57*, LRT+12*, LRT+17*, LRS+3*, LQUIT+4! , LB6001+5 |
| LRSTAT | LEN+9~, LEN+14*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+3*, LQUIT+4!, LB60T+7 |
| LRSUN | LEN+9~, LEN+14*, LEN+25*, LEN+34*, LEN+53*, LEN+57*, LRT+12*, LRT+17*, LRS+3*, LQUIT+4! , LB6001+3 |
| LRTYPE | LEN+9~, LEN+14*, LEN+24*, LEN+33*, LEN+53*, LEN+56*, LRT+1*, LQUIT+4!, LB60T+3 |
| LRUN | LEN+8~, LEN+13*, LEN+61*, LRT*, LRT+1, LRT+9, LRT+15, LRS+2, LQUIT+3! |
| LS | GETSPEC~, GETSPEC+3, GETSPEC+5 |
| LT | LEN+8~, LEN+13*, LEN+20*, LQUIT+3!, PNLCK~, PNLCK+2, PNLCK+3, PNLCK+4, PNLCK+6 |
| LTCNT | LEN+11~, LQUIT+6! |
| LTMP | LEN+9~, LEN+20*, LEN+55, LRT, LQUIT+2, LQUIT+4!, PNLCK+6, PNLCK+14 |
| LXH | LRS+17~, LRS+18!* |
| LXH( | LRS+19 |
| LXH(99999999 | LRS+19 |
| M | CHKCHAR+1~, CHKCHAR+4* |
| N | CHKCHAR+1~, CHKCHAR+6*, CHKCHAR+7*, CHKCHAR+8* |
| ORDNM | LEN+8~, LEN+13*, LEN+29, LEN+38, LQUIT+3! |
| ORIDT | LEN+8~, LEN+13*, LQUIT+3! |
| ORIEN | LEN+8~, LEN+13*, LQUIT+3! |
| ORST | LEN+8~, LEN+13*, LQUIT+3! |
| PLIEN | LEN+8~, LEN+13*, LEN+20*, LEN+23*, LEN+32*, LEN+45, LQUIT+3!, LB60P+1 |
| PLNAME | LEN+8~, LEN+13*, LEN+23*, LEN+32*, LEN+46*, LQUIT+3!, LB60P+2 |
| PLPN | LEN+8~, LEN+13*, LEN+20*, LEN+23*, LEN+32*, LEN+43*, LEN+49, LQUIT+3!, LB60P+3 |
| PNLNN | LEN+10~, LEN+44!, LQUIT+5! |
| PNLNN( | PNLCK+3*, PNLCK+10, PNLCK+11* |
| >> TMP | BTMP+2, LH60P+1, LT60P+1, LB60P+1, LB60P+2, LB60P+3, LH60T+1, LT60T+1, LB60T+1, LB60T+2 , LB60T+3, LB60T+4, LB60T+5, LB60T+6, LB60T+7, LH6001+1, LT6001+1, LB6001+1, LB6001+2, LB6001+3 , LB6001+4, LB6001+5, LH663+1, LT663+1, LB663+1, LB663+2, LB663+3, LB663+4, LB663+5, LB663+6 , LB663+7, LB663+8, LB663+9, LB663+10, LB663+11, LB663+12 |
| >> TMPCT | LRT+9, LRS+26 |
| U | LEN+48, LEN+49, LRT+5, LRT+6, LRS+7, LRS+8, LRS+22, LRS+23 |
