source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBABTIU.m@ 701

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

initial load of WorldVistAEHR

File size: 828 bytes
Line 
1DVBABTIU ;ALB/SPH - CAPRI TIU UTILITIES ;05/01/03
2 ;;2.7;AMIE;**53**;Apr 10, 1995
3 ;
4NOTETL(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
14VISIT(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
Note: See TracBrowser for help on using the repository browser.