| [613] | 1 | DVBABTIU ;ALB/SPH - CAPRI TIU UTILITIES ;05/01/03
|
|---|
| 2 | ;;2.7;AMIE;**53**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | NOTETL(Y) ; Returns list of TIU titles sorted by title
|
|---|
| 5 | N DVBCNT,DVBIEN
|
|---|
| 6 | S DVBCNT=0,DVBIEN=0,DVBDOCNM=""
|
|---|
| 7 | F S DVBDOCNM=$O(^TIU(8925.1,"B",DVBDOCNM)) Q:DVBDOCNM="" D
|
|---|
| 8 | .F S DVBIEN=$O(^TIU(8925.1,"B",DVBDOCNM,DVBIEN)) Q:'DVBIEN D
|
|---|
| 9 | ..;S DVBDOCNM=$P($G(^TIU(8925.1,DVBIEN,0)),"^",1)
|
|---|
| 10 | ..S DVBDOCTY=$P($G(^TIU(8925.1,DVBIEN,0)),"^",4)
|
|---|
| 11 | ..S DVBDOCST=$P($G(^TIU(8925.1,DVBIEN,0)),"^",7)
|
|---|
| 12 | ..S Y(DVBCNT)=DVBDOCTY_" "_DVBDOCNM_" "_DVBDOCST_" IEN#"_DVBIEN,DVBCNT=DVBCNT+1
|
|---|
| 13 | Q
|
|---|
| 14 | VISIT(DVBVISIT,DVBPAT,DVBVDT,DVBCLIN) ;
|
|---|
| 15 | N DVBIEN
|
|---|
| 16 | S DVBIEN=0 F S DVBIEN=$O(^AUPNVSIT("B",DVBVDT,DVBIEN)) Q:DVBIEN="" D
|
|---|
| 17 | . I $P($G(^AUPNVSIT(DVBIEN,0)),U,5)=DVBPAT D
|
|---|
| 18 | .. I $P($G(^AUPNVSIT(DVBIEN,0)),U,22)=DVBCLIN S DVBVISIT=DVBIEN_"^"_$P($G(^AUPNVSIT(DVBIEN,150)),U)
|
|---|
| 19 | Q
|
|---|
