A9ACHS6.m

A9ACHS6 ; IHS/ADC/GTH - CHS V 2.0 PATCH 6 R.P.I. ; [ 05/05/95  2:52 PM ]

 ;;2.0;CONTRACT HEALTH MGMT SYSTEM;**6**;NOV 01, 1994

 ;

 D START^ACHSP6

 ;

 Q:'$L($G(^%ZOSF("DEL")))

 NEW X

 F %=1:1 S X=$P($T(DEL+%),";",3) Q:X=""  X ^%ZOSF("DEL")

 Q

 ;

DEL ;

 ;;ACHSP3

 ;;ACHSP4

 ;;ACHSP4A

 ;;ACHSP5

 ;;ACHSP5A

 ;;A9ACHS3

 ;;A9ACHS4

 ;;A9ACHS5

 ;;ACHSP6

 ;;ACHSP6A

 ;;ACHSP6B