source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSSOWK.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 511 bytes
Line 
1GMTSSOWK ; 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 ;
8MAIN ; 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.