| [613] | 1 | GMTSPNSL ; SLC/KER - Progress Note - Selected ; 08/27/2002
|
|---|
| 2 | ;;2.7;Health Summary;**12,30,35,45,56**;Oct 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 3062 MAIN^TIULAPIS
|
|---|
| 6 | ; DBIA 2056 $$GET1^DIQ (file #8925.1)
|
|---|
| 7 | ;
|
|---|
| 8 | MAIN ; Control branching
|
|---|
| 9 | N ADATE,ASUB,ATDATE,ATTYPE,ATYPE,CHILD,COSGEDBY,CURIEN,GMTSA,GMTSAI
|
|---|
| 10 | N GMTSAII,GMTSCNT,GMTSD,GMTSDIC,GMTSEXSG,GMTSI,GMTSIEN,GMTSII,GMTSIQ
|
|---|
| 11 | N GMTSJ,GMTSK,GMTSODIC,GMTSPDIC,GMTSTDIC,GMTSPR,GMTSREC,GMTST,GMTSX
|
|---|
| 12 | N GMTSXTRA,GMTDOC,I,PARIEN,PDATE,PN,PSUB,PTYPE,REASON,SIGNEDBY,TYPE
|
|---|
| 13 | N TIUDOC,TIUSTAT,GMTSTIUC,X,Y K ^TMP("TIU",$J) S GMTSX=1,GMTSI=0,GMTSTIUC="P"
|
|---|
| 14 | F S GMTSI=$O(GMTSEG(+GMTSEGN,8925.1,GMTSI)) Q:+GMTSI'>0 D
|
|---|
| 15 | . S TIUDOC(GMTSI)=+$G(GMTSEG(+GMTSEGN,8925.1,GMTSI))
|
|---|
| 16 | . S GMTDOC(GMTSI)=$$GET1^DIQ(8925.1,(+(TIUDOC(GMTSI))_","),.01)
|
|---|
| 17 | . S:$L($G(GMTDOC(GMTSI))) GMTDOC("B",GMTDOC(GMTSI),GMTSI)=""
|
|---|
| 18 | D MAIN^TIULAPIS(DFN,.TIUDOC,"ALL",GMTS1,GMTS2,GMTSNDM,GMTSX)
|
|---|
| 19 | Q:'$D(^TMP("TIU",$J)) D SNOTE^GMTSPN K ^TMP("TIU",$J),PN Q
|
|---|
