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

FOO.m

Go to the documentation of this file.
  1. FOO ;NEW PROGRAM [ 01/10/2002  12:16 PM ]
  1.   
  1.  S X=0
  1.  S Y=0
  1.  S BNUM=3000112
  1.  S COUNT=0
  1.  
  1.  F  S X=$O(^AUPNVSIT("APCIS",X)) Q:X=""  D  
  1.  . F  S Y=$O(^AUPNVSIT("APCIS",X,Y)) Q:Y=""  D 
  1.  . . I X<BNUM K ^AUPNVSIT("APCIS",X,Y) S COUNT=COUNT+1 Q
  1.  . . Q
  1.  W COUNT
  1.  Q
  1.