Line | |
---|
1 | GMTSSOWK ; SLC/SBW,KER/NDBI - Social Work ; 08/27/2002
|
---|
2 | ;;2.7;Health Summary;**28,56**;Oct 20, 1995
|
---|
3 | ;
|
---|
4 | ; External References
|
---|
5 | ; DBIA 915 ^SOWKHSUM
|
---|
6 | ; DBIA 2929 SW^A7RHSM
|
---|
7 | ;
|
---|
8 | MAIN ; Control branching
|
---|
9 | N GMTSI K ^TMP("SOWK",$J) D ^SOWKHSUM
|
---|
10 | D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU)&('$D(^TMP("SOWK",$J))) SW^A7RHSM
|
---|
11 | Q:'$D(^TMP("SOWK",$J)) S GMTSI=0
|
---|
12 | F S GMTSI=$O(^TMP("SOWK",$J,GMTSI)) Q:+GMTSI'>0 D
|
---|
13 | . D CKP^GMTSUP Q:$D(GMTSQIT) W $G(^TMP("SOWK",$J,GMTSI)),!
|
---|
14 | K ^TMP("SOWK",$J)
|
---|
15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.