HLCSLSM ;SFCIOFO/AC - HL7 LINK SUBMANAGER ;02/05/2004  07:42
 ;;1.6;HEALTH LEVEL SEVEN;**49,57,109**;Oct 13, 1995
 N % S %=0
EN Q:'$D(HLDP)
 Q:'$D(HLBGR)
 L +^HLCS("HLCSLSM",+HLDP):10 E  H 3 S %=%+1 G EN:%'>2 Q
 D @HLBGR
 N HLJ
 ;delete task number
 S HLJ(870,HLDP_",",11)="@"
 D FILE^HLDIE("","HLJ","","EN","HLCSLSM") ; HL*1.6*109
 L -^HLCM("HLCSLSM",+HLDP)
 K HLBGR,HLDP
 I $D(ZTQUEUED) S ZTREQ="@"
 Q