Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLCSORA2

HLCSORA2.m

Go to the documentation of this file.
  1. HLCSORA2 ;ALB/MFK - OUTPUT ROUTINE FOR HL7- 11/10/94
  1. ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
  1. START ;
  1. N HLAAA,HLDONE,HLLINE,HLPAGE,HLTODAY,HLTITLE,HLDATA,%H,DIRUT,X,Y
  1. S HLDONE=0,HLLINE="",%H=$P($H,",",1),HLPAGE=1
  1. D YX^%DTC
  1. S HLTODAY=Y,HLTITLE="HL7 LOGICAL LINK INFORMATION"
  1. D HLTITLE
  1. F S HLLINE=$O(^TMP("HLCSORAT",$J,HLLINE)) Q:(HLLINE="")!(HLDONE) D LINEE
  1. Q
  1. LINEE ;
  1. S HLDATA=""
  1. LINE Q:HLDONE!(HLLINE="")
  1. D:$Y+4>IOSL HEADING
  1. Q:HLDONE
  1. S HLDATA=$O(^TMP("HLCSORAT",$J,HLLINE,HLDATA)) Q:(HLDATA="")
  1. S HLZ=1
  1. W $G(^TMP("HLCSORAT",$J,HLLINE,HLDATA)),!
  1. G LINE
  1. Q
  1. HEADING ;
  1. F HLAAA=$Y:1:(IOSL-3) W !
  1. ; if a CRT device, ask for RETURN to continue or "^" to quit
  1. I ($E(IOST,1,2)="C-")
  1. I S DIR(0)="E" D ^DIR K DIR I Y=0!(Y="")!($D(DIRUT)) S HLDONE=1 Q
  1. D HLTITLE
  1. Q
  1. HLTITLE Q:HLDONE
  1. I ($E(IOST,1,2)="C-")!(HLPAGE'=1) W @IOF
  1. W !,HLTODAY,?25,HLTITLE,?68," PAGE ",HLPAGE,!
  1. S X="",$P(X,"=",IOM)="" W X,!
  1. S HLPAGE=HLPAGE+1
  1. Q