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
|