Routine: HLCSORA1

HLCSORA1 ;ALB/MFK - REPORT FOR FILE #870 - 11/9/94

 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995

 ;Gather and sort for a custom report from the #870 file.

 ;We want to be able to sort on various kinds of errors or statuses

START ;

 N HLERR,HLSTAT,LINE,HLFILE,HLLINE,HLTMP,HLDIR,HLLINEN,HLNXT

 N TMPLINE,START,END

 S LINE="",$P(LINE,"-",IOM)=""

 S HLERR=$P(HLSORT,"^",1)

 S HLSTAT=$P(HLSORT,"^",2)

 S HLLINEN=0

 K ^TMP("HLCSORAT",$J)

 I (HLQUEUE["1") S HLDIR=1 D LOOP

 I (HLQUEUE["2") S HLDIR=2 D LOOP

 ; KILL VARIABLES USED

 K HLSORT,HLQUEUE,HLLL

LOOP S HLFILE=0

 ;START AFTER THE 0 NODE.

 F  S HLFILE=$O(^HLCS(870,HLLL,HLDIR,HLFILE)) Q:(HLFILE="B")!(HLFILE="")  D

 .S HLLINE=$G(^HLCS(870,HLLL,HLDIR,HLFILE,0))

 .Q:((HLSTAT'="")&($P(HLLINE,"^",2)=""))

 .Q:((HLERR'="")&($P(HLLINE,"^",3)=""))

 .I ((HLERR[$P(HLLINE,"^",3))!(HLERR=""))&((HLSTAT[$P(HLLINE,"^",2))!(HLSTAT="")) D OUTPUT

OUTPUT ;

 S HLLINEN=HLLINEN+1

 S ^TMP("HLCSORAT",$J,HLLINEN,1)=LINE

 S ^TMP("HLCSORAT",$J,HLLINEN,2)="     Node: "_($P($G(^HLCS(870,HLLL,0)),"^",1))

 S $P(X," ",41)=""

 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"))

 S ^TMP("HLCSORAT",$J,HLLINEN,3)="     Message number: "_HLFILE

 S ^TMP("HLCSORAT",$J,HLLINEN,4)="     Message status: "_$$STATUS($P(HLLINE,"^",2))

 S ^TMP("HLCSORAT",$J,HLLINEN,5)="     Message error: "_$$ERROR($P(HLLINE,"^",3))

 S ^TMP("HLCSORAT",$J,HLLINEN,6)="     Message text:"

 S HLNXT=0

 S HLTMP=7

 F  S HLNXT=$O(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT)) Q:(HLNXT="")  D

 .S START=1,END=(IOM-3)

 .F  S TMPLINE=$E(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT,0),START,END) Q:($L(TMPLINE)=0)  D

 ..S ^TMP("HLCSORAT",$J,HLLINEN,HLTMP)=TMPLINE

 ..S START=START+(IOM-3),END=END+(IOM-3)

 ..S HLTMP=HLTMP+1

ERROR(ERR) ;

 S ERR=$$EXPAND^HLUTIL1(870.019,2,ERR)

 Q ERR

STATUS(STAT) ;

 S STAT=$$EXPAND^HLUTIL1(870.01,1,STAT)

 Q STAT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSORA1   1972     printed  Feb 18, 2025@23:23:11                                                                                                                                                                                                    Page 2

HLCSORA1  ;ALB/MFK - REPORT FOR FILE #870 - 11/9/94

 +1       ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995

 +2       ;Gather and sort for a custom report from the #870 file.

 +3       ;We want to be able to sort on various kinds of errors or statuses

START     ;

 +1        NEW HLERR,HLSTAT,LINE,HLFILE,HLLINE,HLTMP,HLDIR,HLLINEN,HLNXT

 +2        NEW TMPLINE,START,END

 +3        SET LINE=""

           SET $PIECE(LINE,"-",IOM)=""

 +4        SET HLERR=$PIECE(HLSORT,"^",1)

 +5        SET HLSTAT=$PIECE(HLSORT,"^",2)

 +6        SET HLLINEN=0

 +7        KILL ^TMP("HLCSORAT",$JOB)

 +8        IF (HLQUEUE["1")

               SET HLDIR=1

               DO LOOP

 +9        IF (HLQUEUE["2")

               SET HLDIR=2

               DO LOOP

 +10      ; KILL VARIABLES USED

 +11       KILL HLSORT,HLQUEUE,HLLL

 +12       QUIT

LOOP       SET HLFILE=0

 +1       ;START AFTER THE 0 NODE.

 +2        FOR

               SET HLFILE=$ORDER(^HLCS(870,HLLL,HLDIR,HLFILE))

               if (HLFILE="B")!(HLFILE="")

                   QUIT

               Begin DoDot:1

 +3                SET HLLINE=$GET(^HLCS(870,HLLL,HLDIR,HLFILE,0))

 +4                if ((HLSTAT'="")&($PIECE(HLLINE,"^",2)=""))

                       QUIT

 +5                if ((HLERR'="")&($PIECE(HLLINE,"^",3)=""))

                       QUIT

 +6                IF ((HLERR[$PIECE(HLLINE,"^",3))!(HLERR=""))&((HLSTAT[$PIECE(HLLINE,"^",2))!(HLSTAT=""))

                       DO OUTPUT

               End DoDot:1

 +7        QUIT

OUTPUT    ;

 +1        SET HLLINEN=HLLINEN+1

 +2        SET ^TMP("HLCSORAT",$JOB,HLLINEN,1)=LINE

 +3        SET ^TMP("HLCSORAT",$JOB,HLLINEN,2)="     Node: "_($PIECE($GET(^HLCS(870,HLLL,0)),"^",1))

 +4        SET $PIECE(X," ",41)=""

 +5        SET ^TMP("HLCSORAT",$JOB,HLLINEN,2)=^TMP("HLCSORAT",$JOB,HLLINEN,2)_$EXTRACT(X,1,40-$LENGTH(^TMP("HLCSORAT",$JOB,HLLINEN,2)))_"Queue: "_($SELECT(HLDIR=1:"In",HLDIR=2:"Out"))

 +6        SET ^TMP("HLCSORAT",$JOB,HLLINEN,3)="     Message number: "_HLFILE

 +7        SET ^TMP("HLCSORAT",$JOB,HLLINEN,4)="     Message status: "_$$STATUS($PIECE(HLLINE,"^",2))

 +8        SET ^TMP("HLCSORAT",$JOB,HLLINEN,5)="     Message error: "_$$ERROR($PIECE(HLLINE,"^",3))

 +9        SET ^TMP("HLCSORAT",$JOB,HLLINEN,6)="     Message text:"

 +10       SET HLNXT=0

 +11       SET HLTMP=7

 +12       FOR

               SET HLNXT=$ORDER(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT))

               if (HLNXT="")

                   QUIT

               Begin DoDot:1

 +13               SET START=1

                   SET END=(IOM-3)

 +14               FOR

                       SET TMPLINE=$EXTRACT(^HLCS(870,HLLL,HLDIR,HLFILE,1,HLNXT,0),START,END)

                       if ($LENGTH(TMPLINE)=0)

                           QUIT

                       Begin DoDot:2

 +15                       SET ^TMP("HLCSORAT",$JOB,HLLINEN,HLTMP)=TMPLINE

 +16                       SET START=START+(IOM-3)

                           SET END=END+(IOM-3)

 +17                       SET HLTMP=HLTMP+1

                       End DoDot:2

               End DoDot:1

 +18       QUIT

ERROR(ERR) ;

 +1        SET ERR=$$EXPAND^HLUTIL1(870.019,2,ERR)

 +2        QUIT ERR

STATUS(STAT) ;

 +1        SET STAT=$$EXPAND^HLUTIL1(870.01,1,STAT)

 +2        QUIT STAT

HLCSORA1.m