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

TIUUTL2.m

Go to the documentation of this file.
  1. TIUUTL2 ;AITC/CR - UTILITY FOR INPT MULTIDIVISONAL ROUTINES ;10/18/17 9:29am
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**305**;JUN 20, 1997;Build 27
  1. ;
  1. ; Reference to ^DIC(42 - supported by ICR #10039
  1. ;
  1. CNTDIV() ;COUNT THE NUMBER OF DIVISIONS PRESENT FOR WARD LOCATIONS
  1. N TIUWARD,TIUDIV,TIUDIVCT,TIUDIVARR
  1. S TIUWARD=0 F S TIUWARD=$O(^DIC(42,TIUWARD)) Q:'+TIUWARD D
  1. . Q:$P($G(^DIC(42,TIUWARD,"OOS",1,0)),U)'="" ; skip over inactive wards
  1. . S TIUDIV=$P($G(^DIC(42,TIUWARD,0)),U,11)
  1. . I +TIUDIV S TIUDIVARR(TIUDIV)=""
  1. S (TIUDIV,TIUDIVCT)=0 F S TIUDIV=$O(TIUDIVARR(TIUDIV)) Q:'+TIUDIV D
  1. . S TIUDIVCT=TIUDIVCT+1
  1. Q TIUDIVCT