Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBABTIU

DVBABTIU.m

Go to the documentation of this file.
  1. DVBABTIU ;ALB/SPH - CAPRI TIU UTILITIES ;05/01/03
  1. ;;2.7;AMIE;**53**;Apr 10, 1995
  1. ;
  1. NOTETL(Y) ; Returns list of TIU titles sorted by title
  1. N DVBCNT,DVBIEN
  1. S DVBCNT=0,DVBIEN=0,DVBDOCNM=""
  1. F S DVBDOCNM=$O(^TIU(8925.1,"B",DVBDOCNM)) Q:DVBDOCNM="" D
  1. .F S DVBIEN=$O(^TIU(8925.1,"B",DVBDOCNM,DVBIEN)) Q:'DVBIEN D
  1. ..;S DVBDOCNM=$P($G(^TIU(8925.1,DVBIEN,0)),"^",1)
  1. ..S DVBDOCTY=$P($G(^TIU(8925.1,DVBIEN,0)),"^",4)
  1. ..S DVBDOCST=$P($G(^TIU(8925.1,DVBIEN,0)),"^",7)
  1. ..S Y(DVBCNT)=DVBDOCTY_" "_DVBDOCNM_" "_DVBDOCST_" IEN#"_DVBIEN,DVBCNT=DVBCNT+1
  1. Q
  1. VISIT(DVBVISIT,DVBPAT,DVBVDT,DVBCLIN) ;
  1. N DVBIEN
  1. S DVBIEN=0 F S DVBIEN=$O(^AUPNVSIT("B",DVBVDT,DVBIEN)) Q:DVBIEN="" D
  1. . I $P($G(^AUPNVSIT(DVBIEN,0)),U,5)=DVBPAT D
  1. .. I $P($G(^AUPNVSIT(DVBIEN,0)),U,22)=DVBCLIN S DVBVISIT=DVBIEN_"^"_$P($G(^AUPNVSIT(DVBIEN,150)),U)
  1. Q