DBIA923    ICR (923)

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.