16 lines
511 B
Mathematica
16 lines
511 B
Mathematica
GMTSSOWK ; SLC/SBW,KER/NDBI - Social Work ; 08/27/2002
|
|
;;2.7;Health Summary;**28,56**;Oct 20, 1995
|
|
;
|
|
; External References
|
|
; DBIA 915 ^SOWKHSUM
|
|
; DBIA 2929 SW^A7RHSM
|
|
;
|
|
MAIN ; Control branching
|
|
N GMTSI K ^TMP("SOWK",$J) D ^SOWKHSUM
|
|
D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU)&('$D(^TMP("SOWK",$J))) SW^A7RHSM
|
|
Q:'$D(^TMP("SOWK",$J)) S GMTSI=0
|
|
F S GMTSI=$O(^TMP("SOWK",$J,GMTSI)) Q:+GMTSI'>0 D
|
|
. D CKP^GMTSUP Q:$D(GMTSQIT) W $G(^TMP("SOWK",$J,GMTSI)),!
|
|
K ^TMP("SOWK",$J)
|
|
Q
|