source: FOIAVistA/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSORA1.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1HLCSORA1 ;ALB/MFK - REPORT FOR FILE #870 - 11/9/94
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3 ;Gather and sort for a custom report from the #870 file.
4 ;We want to be able to sort on various kinds of errors or statuses
5START ;
6 N HLERR,HLSTAT,LINE,HLFILE,HLLINE,HLTMP,HLDIR,HLLINEN,HLNXT
7 N TMPLINE,START,END
8 S LINE="",$P(LINE,"-",IOM)=""
9 S HLERR=$P(HLSORT,"^",1)
10 S HLSTAT=$P(HLSORT,"^",2)
11 S HLLINEN=0
12 K ^TMP("HLCSORAT",$J)
13 I (HLQUEUE["1") S HLDIR=1 D LOOP
14 I (HLQUEUE["2") S HLDIR=2 D LOOP
15 ; KILL VARIABLES USED
16 K HLSORT,HLQUEUE,HLLL
17 Q
18LOOP S HLFILE=0
19 ;START AFTER THE 0 NODE.
20 F S HLFILE=$O(^HLCS(870,HLLL,HLDIR,HLFILE)) Q:(HLFILE="B")!(HLFILE="") D
21 .S HLLINE=$G(^HLCS(870,HLLL,HLDIR,HLFILE,0))
22 .Q:((HLSTAT'="")&($P(HLLINE,"^",2)=""))
23 .Q:((HLERR'="")&($P(HLLINE,"^",3)=""))
24 .I ((HLERR[$P(HLLINE,"^",3))!(HLERR=""))&((HLSTAT[$P(HLLINE,"^",2))!(HLSTAT="")) D OUTPUT
25 Q
26OUTPUT ;
27 S HLLINEN=HLLINEN+1
28 S ^TMP("HLCSORAT",$J,HLLINEN,1)=LINE
29 S ^TMP("HLCSORAT",$J,HLLINEN,2)=" Node: "_($P($G(^HLCS(870,HLLL,0)),"^",1))
30 S $P(X," ",41)=""
31 S ^TMP("HLCSORAT",$J,HLLINEN,2)=^TMP("HLCSORAT",$J,HLLINEN,2)_$E(X,1,40-$L(^TMP("HLCSORAT",$J,HLLINEN,2)))_"Queue: "_($S(HLDIR=1:"In",HLDIR=2:"Out"))
32 S ^TMP("HLCSORAT",$J,HLLINEN,3)=" Message number: "_HLFILE
33 S ^TMP("HLCSORAT",$J,HLLINEN,4)=" Message status: "_$$STATUS($P(HLLINE,"^",2))
34 S ^TMP("HLCSORAT",$J,HLLINEN,5)=" Message error: "_$$ERROR($P(HLLINE,"^",3))
35 S ^TMP("HLCSORAT",$J,HLLINEN,6)=" Message text:"
36 S HLNXT=0
37 S HLTMP=7
38 F S HLNXT=$O(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT)) Q:(HLNXT="") D
39 .S START=1,END=(IOM-3)
40 .F S TMPLINE=$E(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT,0),START,END) Q:($L(TMPLINE)=0) D
41 ..S ^TMP("HLCSORAT",$J,HLLINEN,HLTMP)=TMPLINE
42 ..S START=START+(IOM-3),END=END+(IOM-3)
43 ..S HLTMP=HLTMP+1
44 Q
45ERROR(ERR) ;
46 S ERR=$$EXPAND^HLUTIL1(870.019,2,ERR)
47 Q ERR
48STATUS(STAT) ;
49 S STAT=$$EXPAND^HLUTIL1(870.01,1,STAT)
50 Q STAT
Note: See TracBrowser for help on using the repository browser.