HDISDOCL ;BPFO/DTG - COLLECT LABORTORY ITEMS FOR SDO LIST; Apr 07, 2018@12:42
Source file <HDISDOCL.m>
| 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
|
