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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLCSLSM   419     printed  Mar 13, 2025@21:01:23                                                                                                                                                                                                      Page 2

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