source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSORA2.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: 935 bytes
Line 
1HLCSORA2 ;ALB/MFK - OUTPUT ROUTINE FOR HL7- 11/10/94
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3START ;
4 N HLAAA,HLDONE,HLLINE,HLPAGE,HLTODAY,HLTITLE,HLDATA,%H,DIRUT,X,Y
5 S HLDONE=0,HLLINE="",%H=$P($H,",",1),HLPAGE=1
6 D YX^%DTC
7 S HLTODAY=Y,HLTITLE="HL7 LOGICAL LINK INFORMATION"
8 D HLTITLE
9 F S HLLINE=$O(^TMP("HLCSORAT",$J,HLLINE)) Q:(HLLINE="")!(HLDONE) D LINEE
10 Q
11LINEE ;
12 S HLDATA=""
13LINE Q:HLDONE!(HLLINE="")
14 D:$Y+4>IOSL HEADING
15 Q:HLDONE
16 S HLDATA=$O(^TMP("HLCSORAT",$J,HLLINE,HLDATA)) Q:(HLDATA="")
17 S HLZ=1
18 W $G(^TMP("HLCSORAT",$J,HLLINE,HLDATA)),!
19 G LINE
20 Q
21HEADING ;
22 F HLAAA=$Y:1:(IOSL-3) W !
23 ; if a CRT device, ask for RETURN to continue or "^" to quit
24 I ($E(IOST,1,2)="C-")
25 I S DIR(0)="E" D ^DIR K DIR I Y=0!(Y="")!($D(DIRUT)) S HLDONE=1 Q
26 D HLTITLE
27 Q
28HLTITLE Q:HLDONE
29 I ($E(IOST,1,2)="C-")!(HLPAGE'=1) W @IOF
30 W !,HLTODAY,?25,HLTITLE,?68," PAGE ",HLPAGE,!
31 S X="",$P(X,"=",IOM)="" W X,!
32 S HLPAGE=HLPAGE+1
33 Q
Note: See TracBrowser for help on using the repository browser.