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

A9ACHS5.m

Go to the documentation of this file.
  1. A9ACHS5 ; IHS/ADC/GTH - CHS V 2.0 PATCH 5 R.P.I. ; [ 03/03/95  9:17 AM ]
  1.  ;;2.0;CONTRACT HEALTH MGMT SYSTEM;**5**;NOV 01, 1994
  1.  ;
  1.  D START^ACHSP5
  1.  ;
  1.  Q:'$L($G(^%ZOSF("DEL")))
  1.  NEW X
  1.  F %=1:1 S X=$P($T(DEL+%),";",3) Q:X=""  X ^%ZOSF("DEL")
  1.  Q
  1.  ;
  1. DEL ;
  1.  ;;ACHSP3
  1.  ;;ACHSP4
  1.  ;;ACHSP4A
  1.  ;;ACHSP5
  1.  ;;ACHSP5A
  1.  ;;A9ACHS3
  1.  ;;A9ACHS4