HLCSLSM.m

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

HLCSLSM   ;SFCIOFO/AC - HL7 LINK SUBMANAGER ;02/05/2004  07:42

 +1       ;;1.6;HEALTH LEVEL SEVEN;**49,57,109**;Oct 13, 1995

 +2        NEW %

           SET %=0

EN         IF '$DATA(HLDP)

               QUIT 

 +1        IF '$DATA(HLBGR)

               QUIT 

 +2        LOCK +^HLCS("HLCSLSM",+HLDP):10

          IF '$TEST

               HANG 3

               SET %=%+1

               IF %'>2

                   GOTO EN

               QUIT 

 +3        DO @HLBGR

 +4        NEW HLJ

 +5       ;delete task number

 +6        SET HLJ(870,HLDP_",",11)="@"

 +7       ; HL*1.6*109

           DO FILE^HLDIE("","HLJ","","EN","HLCSLSM")

 +8        LOCK -^HLCM("HLCSLSM",+HLDP)

 +9        KILL HLBGR,HLDP

 +10       IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +11       QUIT