GENERAL DESCRIPTION |
The following global references are made:
Global Nodes
LR (CH) $O(^LR(LRDFN))
$P(^LR(LRDFN,0),U,2)
$O(^LR(LRDFN,"CH",LRIDT))
$P(^LR(LRDFN,"CH",LRIDT,0),U,3)
$O(^LR(LRDFN,"CH",LRIDT,LRDN))
LR (AP) $O(^LR(LRDFN))
$P(^LR(LRDFN,0),U,2)
$O(^LR(LRDFN,APSUB,LRIDT)
APSUB="CY","EM","SP"
$P(^LR(LRDFN,APSUB,LRIDT,0),U,M)
M=3,6,11
$O(^LR(LRDFN,APSUB,LRIDT,.1,SPEC))
$P(^LR(LRDFN,APSUB,LRIDT,.1,SPEC,0),U,1)
$O(^LR(LRDFN,APSUB,LRIDT,.1,SPEC,1,PREP))
$O(^LR(LRDFN,APSUB,LRIDT,.1,SPEC,1,PREP,1,TEST))
$P(^LR(LRDFN,APSUB,LRIDT,.1,SPEC,1,PREP,1,TEST,0),U,1)
$O(^LR(LRDFN,APSUB,LRIDT,3,ICD))
$G(^LR(LRDFN,APSUB,LRIDT,3,ICD,0))
$O(^LR(LRDFN,APSUB,LRIDT,2,I))
$G(^LR(LRDFN,APSUB,LRIDT,2,I,0))
$O(^LR(LRDFN,APSUB,LRIDT,2,I,SUB,II)
SUB=1,2,3,4
$G(^LR(LRDFN,APSUB,LRIDT,2,I,SUB,II,0)
$O(^LR(LRDFN,APSUB,LRIDT,2,I,SUB,II,1,III))
$G(^LR(LRDFN,APSUB,LRIDT,2,I,SUB,II,1,III,0))
$G(^LR(LRDFN,"AU"))
$O(^LR(LRDFN,33,SPEC))
$G(^LR(LRDFN,33,SPEC,0))
$O(^LR(LRDFN,80,ICD))
$G(^LR(LRDFN,80,ICD,0))
$O(^LR(LRDFN,"AY",I))
$G(^LR(LRDFN,"AY",I,0))
$O(^LR(LRDFN,"AY",I,SUB,II))
SUB=1,2,3,4
$G(^LR(LRDFN,"AY",I,SUB,II,0))
$O(^LR(LRDFN,"AY",I,SUB,II,1,III))
$G(^LR(LRDFN,"AY",I,SUB,II,1,III,0))
LR (Micro) $O(^LR(LRDFN))
$P(^LR(LRDFN,0),U,2)
$O(^LR(LRDFN,"MI",LRIDT))
$G(^LR(LRDFN,"MI",LRIDT,0))
$O(^LR(LRDFN,"MI",LRIDT,3,ORGNUM))
$G(^LR(LRDFN,"MI",LRIDT,3,ORGNUM,0))
$O(^LR(LRDFN,"MI",LRIDT,3,ORGNUM,ABDN))
$G(^LR(LRDFN,"MI",LRIDT,3,ORGNUM,ABDN))
$O(^LR(LRDFN,"MI",LRIDT,SUB))
SUB=5,8,11,16
$O(^LR(LRDFN,"MI",LRIDT,SUB+1,ORGNUM))
$G(^LR(LRDFN,"MI",LRIDT,SUB+1,ORGNUM,0))
$O(^LR(LRDFN,"MI",LRIDT,12,ORGNUM,TBDN))
$G(^LR(LRDFN,"MI",LRIDT,12,ORGNUM,TBDN))
|