| GENERAL DESCRIPTION |
The following fields are accessed in a read-only
manner:
^DIC( 40.7 STOP CODE file
1 AMIS REPORTING STOP CODE
In routines LRCAPPH line LRCAPPH+8
SDC S SDC=$S($P(^("NITE"),U,3):$G(^DIC(40.7,+$P(^LAB(69.9,1,"NITE"),
U,3),0)),1:"") S LRSDC=$S($P(SDC,U,2):+$P(SDC,U,2),1:108)
LRSTOPC line LRSTOPC+3
S LRSDC=$S(+$P($G(^DIC(40.7,+$P($G(^LAB(69.9,1,"NITE")),U,3),0)),U,2):
$P(^(0),U,2),1:108),CNT=0,LREND=0
Routine LRSTOPC manually records clinic stop codes for Lab. Routine LRCAPPH
automatically records clinic stop codes for Lab.
|
