source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSLSM.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 404 bytes
Line 
1HLCSLSM ;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
4EN 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.