GMTSSOWK.m

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

GMTSSOWK  ; SLC/SBW,KER/NDBI - Social Work ; 08/27/2002

 +1       ;;2.7;Health Summary;**28,56**;Oct 20, 1995

 +2       ;

 +3       ; External References

 +4       ;   DBIA   915  ^SOWKHSUM

 +5       ;   DBIA  2929  SW^A7RHSM

 +6       ;                    

MAIN      ; Control branching

 +1        NEW GMTSI

           KILL ^TMP("SOWK",$JOB)

           DO ^SOWKHSUM

 +2        IF $$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU)&('$DATA(^TMP("SOWK",$JOB)))

               DO SW^A7RHSM

 +3        IF '$DATA(^TMP("SOWK",$JOB))

               QUIT 

           SET GMTSI=0

 +4        FOR 

               SET GMTSI=$ORDER(^TMP("SOWK",$JOB,GMTSI))

               IF +GMTSI'>0

                   QUIT 

               Begin DoDot:1

 +5                DO CKP^GMTSUP

                   IF $DATA(GMTSQIT)

                       QUIT 

                   WRITE $GET(^TMP("SOWK",$JOB,GMTSI)),!

               End DoDot:1

 +6        KILL ^TMP("SOWK",$JOB)

 +7        QUIT