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.

JAFIX ;FIX [ 01/07/1999  4:31 PM ]

START ;START

 S DATE=2981229

 F  S DATE=$O(^ABMDBILL(2906,"AP",DATE)) Q:DATE'[2981229  D

 .S DA=0

 .F  S DA=$O(^ABMDBILL(2906,"AP",DATE,DA)) Q:'DA  D

 ..W !,DA,"  ",DATE

 ..D EXT^ABMAPASS