| 1 | TIUSRVLV ; SLC/JER - Server fns for lists by Visit ;28-FEB-2001 09:25:40
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**7,47,100**;Jun 20, 1997
|
|---|
| 3 | NOTES(TIUY,VISIT,STATUS) ; Gets list of Notes
|
|---|
| 4 | I $S(+$G(VISIT)'>0:1,'$D(^AUPNVSIT(+$G(VISIT),0)):1,1:0) Q
|
|---|
| 5 | D LIST(.TIUY,VISIT,3,$G(STATUS))
|
|---|
| 6 | Q
|
|---|
| 7 | SUMMARY(TIUY,VISIT,STATUS) ; Gets list of Summaries
|
|---|
| 8 | I $S(+$G(VISIT)'>0:1,'$D(^AUPNVSIT(+$G(VISIT),0)):1,1:0) Q
|
|---|
| 9 | D LIST(.TIUY,VISIT,244,$G(STATUS))
|
|---|
| 10 | Q
|
|---|
| 11 | LIST(TIUY,VISIT,CLASS,STATUS) ; Get documents for a visit
|
|---|
| 12 | N TIUDA,TIUTTL,TIUCCLS,TIUCCPN S TIUDA=0
|
|---|
| 13 | K ^TMP("TIULIST",$J) S TIUY=$NA(^TMP("TIULIST",$J))
|
|---|
| 14 | S TIUCCLS=+$$CLASS^TIUCNSLT,TIUCCPN=+$$ISA^TIULX(TIUCCLS,3)
|
|---|
| 15 | I $S(+$G(VISIT)'>0:1,'$D(^AUPNVSIT(+VISIT)):1,+$G(CLASS)'>0:1,1:0) Q
|
|---|
| 16 | F S TIUDA=$O(^TIU(8925,"V",VISIT,TIUDA)) Q:+TIUDA'>0 D
|
|---|
| 17 | . N TIUTTL,TIUI,TIUD0,TIUSTS S TIUI=0,TIUD0=$G(^TIU(8925,+TIUDA,0))
|
|---|
| 18 | . Q:+$P(TIUD0,U,6)
|
|---|
| 19 | . S TIUTTL=+TIUD0,TIUSTS=$P(TIUD0,U,5) Q:+TIUTTL'>0
|
|---|
| 20 | . I +$G(STATUS),(TIUSTS'=STATUS) Q
|
|---|
| 21 | . I +$$ISA^TIULX(TIUTTL,CLASS) D ADDELMNT(TIUDA,TIUI) I 1
|
|---|
| 22 | . E I CLASS=3,'TIUCCPN,+$$ISA^TIULX(TIUTTL,TIUCCLS) D ADDELMNT(TIUDA,TIUI)
|
|---|
| 23 | K ^TMP("TIULIST",$J,"INDX")
|
|---|
| 24 | Q
|
|---|
| 25 | ADDELMNT(DA,TIUCNT) ; Add each element to the list
|
|---|
| 26 | N DOC,LOC,PT,AUT,EDT,TIUPT,TIULST4,TIUREC,TIUR0,TIUR12,TIUR13
|
|---|
| 27 | N STATUS,EDTCNT,LOCTYP,TIUADT,TIUDDT
|
|---|
| 28 | S TIUR0=$G(^TIU(8925,+DA,0)),TIUR12=$G(^TIU(8925,+DA,12))
|
|---|
| 29 | S TIUR13=$G(^TIU(8925,+DA,13))
|
|---|
| 30 | ; If doc is an ID Child, return it's parent
|
|---|
| 31 | I +$G(^TIU(8925,DA,21)) S DA=+$G(^TIU(8925,DA,21))
|
|---|
| 32 | ; Don't return duplicates
|
|---|
| 33 | I +$O(^TMP("TIULIST",$J,"INDX",DA,0)) Q
|
|---|
| 34 | S TIUPT=$G(^DPT(+$P(TIUR0,U,2),0)),DOC=$$PNAME^TIULC1(+TIUR0)
|
|---|
| 35 | I DOC="Addendum" S DOC=DOC_" to "_$$PNAME^TIULC1(+$G(^TIU(8925,+$P(TIUR0,U,6),0)))
|
|---|
| 36 | S STATUS=$$LOWER^TIULS($P(^TIU(8925.6,+$P(TIUR0,U,5),0),U))
|
|---|
| 37 | S LOC=$G(^SC(+$P(TIUR12,U,5),0)),LOCTYP=$P(LOC,U,3),LOC=$P(LOC,U)
|
|---|
| 38 | S TIUADT=$S(LOCTYP="W":"Adm: ",1:"Visit: ")_$$DATE^TIULS($P(TIUR0,U,7),"MM/DD/YY")
|
|---|
| 39 | S TIUDDT=$S(+$P(TIUR0,U,8):"Dis: ",1:"")_$$DATE^TIULS($P(TIUR0,U,8),"MM/DD/YY")
|
|---|
| 40 | S PT=$$NAME^TIULS($P(TIUPT,U),"LAST, FIRST MI")
|
|---|
| 41 | S TIULST4=$E($P(TIUPT,U,9),6,9)
|
|---|
| 42 | S TIULST4="("_$E(PT)_TIULST4_")"
|
|---|
| 43 | S AUT=$$SIGNAME^TIULS(+$P(TIUR12,U,2))
|
|---|
| 44 | S EDT=+TIUR13,EDTCNT=+$G(EDTCNT)+1
|
|---|
| 45 | F Q:+$D(^TMP("TIULIST",$J,9999999-EDT,EDTCNT))'>0 S EDTCNT=EDTCNT+1
|
|---|
| 46 | S TIUCNT=+$G(TIUCNT)+1
|
|---|
| 47 | S TIUREC=DA_U_DOC_U_EDT_U_PT_" "_TIULST4_U_AUT_U_LOC_U_STATUS_U_TIUADT_U_TIUDDT
|
|---|
| 48 | S ^TMP("TIULIST",$J,9999999-EDT,EDTCNT)=TIUREC
|
|---|
| 49 | S ^TMP("TIULIST",$J,"INDX",DA,EDTCNT)=""
|
|---|
| 50 | Q
|
|---|
| 51 | DOCCNT(TIUY,DFN,VSTR,VSIT) ; Get # of Documents for a given visit
|
|---|
| 52 | N TIUI,CNT S (TIUY,TIUI)=0
|
|---|
| 53 | I +$G(VSIT) D Q
|
|---|
| 54 | . F S TIUI=$O(^TIU(8925,"V",+VSIT,TIUI)) Q:+TIUI'>0 D
|
|---|
| 55 | . . S TIUY=TIUY+1
|
|---|
| 56 | I +$G(DFN),+$G(VSTR) D
|
|---|
| 57 | . N TIUJ
|
|---|
| 58 | . F S TIUI=$O(^TIU(8925,"AVSTRV",DFN,VSTR,TIUI)) Q:+TIUI'>0 D
|
|---|
| 59 | . . S TIUJ=0
|
|---|
| 60 | . . F S TIUJ=$O(^TIU(8925,"AVSTRV",DFN,VSTR,TIUI,TIUJ)) Q:+TIUJ'>0 D
|
|---|
| 61 | . . . S TIUY=TIUY+1
|
|---|
| 62 | Q
|
|---|
