source:
WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSLSM.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 404 bytes |
Line | |
---|---|
1 | HLCSLSM ;SFCIOFO/AC - HL7 LINK SUBMANAGER ;02/05/2004 07:42 |
2 | ;;1.6;HEALTH LEVEL SEVEN;**49,57,109**;Oct 13, 1995 |
3 | N % S %=0 |
4 | EN Q:'$D(HLDP) |
5 | Q:'$D(HLBGR) |
6 | L +^HLCS("HLCSLSM",+HLDP):10 E H 3 S %=%+1 G EN:%'>2 Q |
7 | D @HLBGR |
8 | N HLJ |
9 | ;delete task number |
10 | S HLJ(870,HLDP_",",11)="@" |
11 | D FILE^HLDIE("","HLJ","","EN","HLCSLSM") ; HL*1.6*109 |
12 | L -^HLCM("HLCSLSM",+HLDP) |
13 | K HLBGR,HLDP |
14 | I $D(ZTQUEUED) S ZTREQ="@" |
15 | Q |
Note:
See TracBrowser
for help on using the repository browser.