GMTSRS4 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
;;2.7;Health Summary;**62**;Oct 20, 1995
;
; External References
; None
;
; Variables passed
; ROOT Global file root, i.e., "^XXX(SUB1,SUB2,SUBX,"
; PIE Pieces to display, i.e, "1" or "1^2^4" (Default 1)
; HDR Display title (Default first piece of 0 node)
; COL Number of columns to display (Default 1)
;
; Output
; Takes the data stored in array ROOT at node NODE and
; piece PIE and prints in columns (number of columns
; specified by COL).
;
EN(ROOT,NODE,PIE,HDR,COL) ; Main Entry Point
D HOME^%ZIS N GMTS2,GMTS3,GMTS4,GMTSCC,GMTSCCT,GMTSCLL,GMTSCLS
N GMTSCOL,GMTSCTR,GMTSELE,GMTSFL,GMTSHDR,GMTSLNS,GMTSMAX,GMTSND
N GMTSNR,GMTSNT,GMTSON,GMTSPI,GMTSR0,GMTSRM,GMTSRT,GMTSTX,GMTSUW
N GMTSWTH S GMTSRT=$G(ROOT),GMTSND=$G(NODE),GMTSPI=$G(PIE),GMTSHDR=$G(HDR),GMTSCOL=$G(COL) S:+GMTSPI=1 GMTSPI=1
Q:'$L($G(GMTSRT)) S GMTSRT=$G(GMTSRT) S:GMTSRT'["(" GMTSRT=GMTSRT_"("
S:GMTSRT[")" GMTSRT=$E(GMTSRT,$L(GMTSRT)-1) S GMTSR0=GMTSRT_"0)" Q:'$D(@GMTSR0)
S GMTSON=GMTSRT,GMTSMAX=$G(@GMTSR0) Q:+GMTSMAX=0 S GMTSCOL=$G(GMTSCOL) Q:+GMTSCOL=0
S GMTSLNS=$S(+GMTSCOL>0&(+GMTSMAX>0):(GMTSMAX/GMTSCOL),1:18)
S GMTSRM=$P(GMTSLNS,".",2) S GMTSLNS=$P(GMTSLNS,".",1) S:+GMTSRM>0 GMTSLNS=GMTSLNS+1
S GMTSCCT=1,(GMTSNR,GMTSFL,GMTSCTR)=0
F S GMTSNR=$O(@(GMTSON_GMTSNR_")")) Q:+GMTSNR=0 D
. S GMTSCTR=GMTSCTR+1 S:GMTSCTR>GMTSLNS GMTSCTR=1,GMTSCCT=GMTSCCT+1
. S GMTSCLL=GMTSCCT,GMTSCLS(GMTSCCT,GMTSCTR)=GMTSNR
S GMTSNT=((GMTSCLL*6)+(4*(GMTSCLL-1))),GMTSUW=IOM-GMTSNT
F GMTSCC=GMTSUW:-1 Q:((GMTSCC#4=0)&(GMTSCC#3=0))
S GMTSWTH=(GMTSCC/GMTSCLL)+1,GMTS2=GMTSWTH+5,GMTS3=GMTS2+9+GMTSWTH,GMTS4=GMTS3+9+GMTSWTH
F GMTSCTR=1:1:GMTSLNS D
. F GMTSCCT=1:1:GMTSCLL D
. . S GMTSNR=+($G(GMTSCLS(GMTSCCT,GMTSCTR))) Q:+GMTSNR=0
. . S GMTSTX=$G(@(GMTSON_GMTSNR_")"))
. . S:$L($G(GMTSND)) GMTSTX=$G(@(GMTSON_GMTSNR_","_GMTSND_")"))
. . S:+($G(GMTSPI))>0 GMTSTX=$P(GMTSTX,"^",+GMTSPI)
. . S GMTSELE=$E(GMTSTX,1,GMTSWTH)
. . F Q:$E(GMTSELE,1)'=" " S GMTSELE=$E(GMTSELE,2,$L(GMTSELE))
. . S:+GMTSNR=0 GMTSNR="" S:'$L(GMTSELE) GMTSNR=""
. . S GMTSELE=$S(GMTSCCT=1:$J(GMTSNR,4)_" "_GMTSELE,1:" "_$J(GMTSNR,4)_" "_GMTSELE)
. . W:$L($G(GMTSHDR))&(GMTSCTR=1)&(GMTSCCT=1)&(+($G(GMTSFL))=0) !,$G(GMTSHDR),! S GMTSFL=1
. . W:GMTSCCT=1 !
. . W:GMTSCCT=2 ?GMTS2 W:GMTSCCT=3 ?GMTS3 W:GMTSCCT=4 ?GMTS4 W GMTSELE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSRS4 2537 printed Dec 13, 2024@02:00:23 Page 2
GMTSRS4 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
+1 ;;2.7;Health Summary;**62**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; None
+5 ;
+6 ; Variables passed
+7 ; ROOT Global file root, i.e., "^XXX(SUB1,SUB2,SUBX,"
+8 ; PIE Pieces to display, i.e, "1" or "1^2^4" (Default 1)
+9 ; HDR Display title (Default first piece of 0 node)
+10 ; COL Number of columns to display (Default 1)
+11 ;
+12 ; Output
+13 ; Takes the data stored in array ROOT at node NODE and
+14 ; piece PIE and prints in columns (number of columns
+15 ; specified by COL).
+16 ;
EN(ROOT,NODE,PIE,HDR,COL) ; Main Entry Point
+1 DO HOME^%ZIS
NEW GMTS2,GMTS3,GMTS4,GMTSCC,GMTSCCT,GMTSCLL,GMTSCLS
+2 NEW GMTSCOL,GMTSCTR,GMTSELE,GMTSFL,GMTSHDR,GMTSLNS,GMTSMAX,GMTSND
+3 NEW GMTSNR,GMTSNT,GMTSON,GMTSPI,GMTSR0,GMTSRM,GMTSRT,GMTSTX,GMTSUW
+4 NEW GMTSWTH
SET GMTSRT=$GET(ROOT)
SET GMTSND=$GET(NODE)
SET GMTSPI=$GET(PIE)
SET GMTSHDR=$GET(HDR)
SET GMTSCOL=$GET(COL)
if +GMTSPI=1
SET GMTSPI=1
+5 if '$LENGTH($GET(GMTSRT))
QUIT
SET GMTSRT=$GET(GMTSRT)
if GMTSRT'["("
SET GMTSRT=GMTSRT_"("
+6 if GMTSRT[")"
SET GMTSRT=$EXTRACT(GMTSRT,$LENGTH(GMTSRT)-1)
SET GMTSR0=GMTSRT_"0)"
if '$DATA(@GMTSR0)
QUIT
+7 SET GMTSON=GMTSRT
SET GMTSMAX=$GET(@GMTSR0)
if +GMTSMAX=0
QUIT
SET GMTSCOL=$GET(GMTSCOL)
if +GMTSCOL=0
QUIT
+8 SET GMTSLNS=$SELECT(+GMTSCOL>0&(+GMTSMAX>0):(GMTSMAX/GMTSCOL),1:18)
+9 SET GMTSRM=$PIECE(GMTSLNS,".",2)
SET GMTSLNS=$PIECE(GMTSLNS,".",1)
if +GMTSRM>0
SET GMTSLNS=GMTSLNS+1
+10 SET GMTSCCT=1
SET (GMTSNR,GMTSFL,GMTSCTR)=0
+11 FOR
SET GMTSNR=$ORDER(@(GMTSON_GMTSNR_")"))
if +GMTSNR=0
QUIT
Begin DoDot:1
+12 SET GMTSCTR=GMTSCTR+1
if GMTSCTR>GMTSLNS
SET GMTSCTR=1
SET GMTSCCT=GMTSCCT+1
+13 SET GMTSCLL=GMTSCCT
SET GMTSCLS(GMTSCCT,GMTSCTR)=GMTSNR
End DoDot:1
+14 SET GMTSNT=((GMTSCLL*6)+(4*(GMTSCLL-1)))
SET GMTSUW=IOM-GMTSNT
+15 FOR GMTSCC=GMTSUW:-1
if ((GMTSCC#4=0)&(GMTSCC#3=0))
QUIT
+16 SET GMTSWTH=(GMTSCC/GMTSCLL)+1
SET GMTS2=GMTSWTH+5
SET GMTS3=GMTS2+9+GMTSWTH
SET GMTS4=GMTS3+9+GMTSWTH
+17 FOR GMTSCTR=1:1:GMTSLNS
Begin DoDot:1
+18 FOR GMTSCCT=1:1:GMTSCLL
Begin DoDot:2
+19 SET GMTSNR=+($GET(GMTSCLS(GMTSCCT,GMTSCTR)))
if +GMTSNR=0
QUIT
+20 SET GMTSTX=$GET(@(GMTSON_GMTSNR_")"))
+21 if $LENGTH($GET(GMTSND))
SET GMTSTX=$GET(@(GMTSON_GMTSNR_","_GMTSND_")"))
+22 if +($GET(GMTSPI))>0
SET GMTSTX=$PIECE(GMTSTX,"^",+GMTSPI)
+23 SET GMTSELE=$EXTRACT(GMTSTX,1,GMTSWTH)
+24 FOR
if $EXTRACT(GMTSELE,1)'=" "
QUIT
SET GMTSELE=$EXTRACT(GMTSELE,2,$LENGTH(GMTSELE))
+25 if +GMTSNR=0
SET GMTSNR=""
if '$LENGTH(GMTSELE)
SET GMTSNR=""
+26 SET GMTSELE=$SELECT(GMTSCCT=1:$JUSTIFY(GMTSNR,4)_" "_GMTSELE,1:" "_$JUSTIFY(GMTSNR,4)_" "_GMTSELE)
+27 if $LENGTH($GET(GMTSHDR))&(GMTSCTR=1)&(GMTSCCT=1)&(+($GET(GMTSFL))=0)
WRITE !,$GET(GMTSHDR),!
SET GMTSFL=1
+28 if GMTSCCT=1
WRITE !
+29 if GMTSCCT=2
WRITE ?GMTS2
if GMTSCCT=3
WRITE ?GMTS3
if GMTSCCT=4
WRITE ?GMTS4
WRITE GMTSELE
End DoDot:2
End DoDot:1
+30 QUIT
