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

JAFIX.m

Go to the documentation of this file.
  1. JAFIX ;FIX [ 01/07/1999  4:31 PM ]
  1. START ;START
  1.  S DATE=2981229
  1.  F  S DATE=$O(^ABMDBILL(2906,"AP",DATE)) Q:DATE'[2981229  D
  1.  .S DA=0
  1.  .F  S DA=$O(^ABMDBILL(2906,"AP",DATE,DA)) Q:'DA  D
  1.  ..W !,DA,"  ",DATE
  1.  ..D EXT^ABMAPASS
  1.  Q