| [613] | 1 | GMTSRS4 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
|
|---|
| 2 | ;;2.7;Health Summary;**62**;Oct 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; None
|
|---|
| 6 | ;
|
|---|
| 7 | ; Variables passed
|
|---|
| 8 | ; ROOT Global file root, i.e., "^XXX(SUB1,SUB2,SUBX,"
|
|---|
| 9 | ; PIE Pieces to display, i.e, "1" or "1^2^4" (Default 1)
|
|---|
| 10 | ; HDR Display title (Default first piece of 0 node)
|
|---|
| 11 | ; COL Number of columns to display (Default 1)
|
|---|
| 12 | ;
|
|---|
| 13 | ; Output
|
|---|
| 14 | ; Takes the data stored in array ROOT at node NODE and
|
|---|
| 15 | ; piece PIE and prints in columns (number of columns
|
|---|
| 16 | ; specified by COL).
|
|---|
| 17 | ;
|
|---|
| 18 | EN(ROOT,NODE,PIE,HDR,COL) ; Main Entry Point
|
|---|
| 19 | D HOME^%ZIS N GMTS2,GMTS3,GMTS4,GMTSCC,GMTSCCT,GMTSCLL,GMTSCLS
|
|---|
| 20 | N GMTSCOL,GMTSCTR,GMTSELE,GMTSFL,GMTSHDR,GMTSLNS,GMTSMAX,GMTSND
|
|---|
| 21 | N GMTSNR,GMTSNT,GMTSON,GMTSPI,GMTSR0,GMTSRM,GMTSRT,GMTSTX,GMTSUW
|
|---|
| 22 | N GMTSWTH S GMTSRT=$G(ROOT),GMTSND=$G(NODE),GMTSPI=$G(PIE),GMTSHDR=$G(HDR),GMTSCOL=$G(COL) S:+GMTSPI=1 GMTSPI=1
|
|---|
| 23 | Q:'$L($G(GMTSRT)) S GMTSRT=$G(GMTSRT) S:GMTSRT'["(" GMTSRT=GMTSRT_"("
|
|---|
| 24 | S:GMTSRT[")" GMTSRT=$E(GMTSRT,$L(GMTSRT)-1) S GMTSR0=GMTSRT_"0)" Q:'$D(@GMTSR0)
|
|---|
| 25 | S GMTSON=GMTSRT,GMTSMAX=$G(@GMTSR0) Q:+GMTSMAX=0 S GMTSCOL=$G(GMTSCOL) Q:+GMTSCOL=0
|
|---|
| 26 | S GMTSLNS=$S(+GMTSCOL>0&(+GMTSMAX>0):(GMTSMAX/GMTSCOL),1:18)
|
|---|
| 27 | S GMTSRM=$P(GMTSLNS,".",2) S GMTSLNS=$P(GMTSLNS,".",1) S:+GMTSRM>0 GMTSLNS=GMTSLNS+1
|
|---|
| 28 | S GMTSCCT=1,(GMTSNR,GMTSFL,GMTSCTR)=0
|
|---|
| 29 | F S GMTSNR=$O(@(GMTSON_GMTSNR_")")) Q:+GMTSNR=0 D
|
|---|
| 30 | . S GMTSCTR=GMTSCTR+1 S:GMTSCTR>GMTSLNS GMTSCTR=1,GMTSCCT=GMTSCCT+1
|
|---|
| 31 | . S GMTSCLL=GMTSCCT,GMTSCLS(GMTSCCT,GMTSCTR)=GMTSNR
|
|---|
| 32 | S GMTSNT=((GMTSCLL*6)+(4*(GMTSCLL-1))),GMTSUW=IOM-GMTSNT
|
|---|
| 33 | F GMTSCC=GMTSUW:-1 Q:((GMTSCC#4=0)&(GMTSCC#3=0))
|
|---|
| 34 | S GMTSWTH=(GMTSCC/GMTSCLL)+1,GMTS2=GMTSWTH+5,GMTS3=GMTS2+9+GMTSWTH,GMTS4=GMTS3+9+GMTSWTH
|
|---|
| 35 | F GMTSCTR=1:1:GMTSLNS D
|
|---|
| 36 | . F GMTSCCT=1:1:GMTSCLL D
|
|---|
| 37 | . . S GMTSNR=+($G(GMTSCLS(GMTSCCT,GMTSCTR))) Q:+GMTSNR=0
|
|---|
| 38 | . . S GMTSTX=$G(@(GMTSON_GMTSNR_")"))
|
|---|
| 39 | . . S:$L($G(GMTSND)) GMTSTX=$G(@(GMTSON_GMTSNR_","_GMTSND_")"))
|
|---|
| 40 | . . S:+($G(GMTSPI))>0 GMTSTX=$P(GMTSTX,"^",+GMTSPI)
|
|---|
| 41 | . . S GMTSELE=$E(GMTSTX,1,GMTSWTH)
|
|---|
| 42 | . . F Q:$E(GMTSELE,1)'=" " S GMTSELE=$E(GMTSELE,2,$L(GMTSELE))
|
|---|
| 43 | . . S:+GMTSNR=0 GMTSNR="" S:'$L(GMTSELE) GMTSNR=""
|
|---|
| 44 | . . S GMTSELE=$S(GMTSCCT=1:$J(GMTSNR,4)_" "_GMTSELE,1:" "_$J(GMTSNR,4)_" "_GMTSELE)
|
|---|
| 45 | . . W:$L($G(GMTSHDR))&(GMTSCTR=1)&(GMTSCCT=1)&(+($G(GMTSFL))=0) !,$G(GMTSHDR),! S GMTSFL=1
|
|---|
| 46 | . . W:GMTSCCT=1 !
|
|---|
| 47 | . . W:GMTSCCT=2 ?GMTS2 W:GMTSCCT=3 ?GMTS3 W:GMTSCCT=4 ?GMTS4 W GMTSELE
|
|---|
| 48 | Q
|
|---|
