Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
511 bytes
|
Rev | Line | |
---|
[613] | 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.