- BGP4EL1Q ; IHS/CMI/LAB - print ind ;
- ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
- ;
- I1AGEP ;EP
- PR ;
- D HEADER^BGP4DPH W !,^BGPELIJ(BGPIC,53,1,0) S X=" " D S(X,1,1) D H3^BGP4EL1P S X=" " D S(X,1,1)
- S X="PREVIOUS YEAR PERIOD" D S(X,1,1)
- S X=" " D S(X,1,1) S X=BGPHD2 D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="# w/exposure to at least 1" D S(X,1,1) S X=" high-risk med" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,2) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="% # w/exposure to at least 1" D S(X,1,1) S X=" high-risk med" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,3) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="A. # w/anticholinergic Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,4) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="A. % w/anticholinergic Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,5) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="B. # w/antithrombotic Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,6) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="B. % w/antithrombotic Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,7) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="C. # w/anti-infective Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,8) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="C. % w/anti-infective Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,9) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="D. # w/cardiovascular Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,10) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="D. % w/cardiovascular Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,11) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="E. # w/central nervous system Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,12) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="E. % w/central nervous system Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,13) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="F. # w/endocrine Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,14) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="F. % w/endocrine Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,15) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="G. # w/gastrointestinal Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,16) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="G. % w/gastrointestinal Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,17) S Y=$J(V,5,1) D S(Y,,X+1)
- D HEADER^BGP4DPH W !,^BGPELIJ(BGPIC,53,1,0) S X=" " D S(X,1,1) D H3^BGP4EL1P S X=" " D S(X,1,1)
- S X=" " D S(X,1,1) S X="H. # w/pain med Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,18) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="H. % w/pain med Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,19) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="I. # w/skeletal muscle relaxant Rx" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,28) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="I. % w/skeletal muscle relaxant Rx" D S(X,1,1) S X=" w/ % of total meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,29) S Y=$J(V,5,1) D S(Y,,X+1)
- S X=" " D S(X,1,1) S X="# w/ exposure to multiple" D S(X,1,1) S X=" high-risk meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,40) S Y=$$C(V,0,6) D S(Y,,X+1)
- S X="% w/ exposure to multiple" D S(X,1,1) S X=" high-risk meds" D S(X,1,1)
- F X=1:1:3 S V=$P(BGPDAP(X),U,41) S Y=$J(V,5,1) D S(Y,,X+1)
- Q:BGPQUIT
- ;% changes
- S X=" " D S(X,1,1) S X="CHANGE FROM PREV YR %" D S(X,1,1)
- S BGP2="",BGP1="# w/exposure to at least",BGP2=" 1 high-risk med",BGPPIE=3 D PPC
- S BGP2="",BGP1="A. # w/anticholinergic Rx",BGPPIE=5 D PPC
- S BGP2="",BGP1="B. # w/antithrombotic Rx",BGPPIE=7 D PPC
- S BGP2="",BGP1="C. # w/anti-infective Rx",BGPPIE=9 D PPC
- S BGP2="",BGP1="D. # w/cardiovascular Rx",BGPPIE=11 D PPC
- S BGP2="",BGP1="E. # w/central nervous system Rx",BGPPIE=13 D PPC
- S BGP2="",BGP1="F. # w/endocrine Rx",BGPPIE=15 D PPC
- S BGP2="",BGP1="G. # w/gastrointestinal Rx",BGPPIE=17 D PPC
- S BGP2="",BGP1="H. # w/pain med Rx",BGPPIE=19 D PPC
- S BGP2="",BGP1="I. # w/skeletal muscle ",BGP2=" relaxant Rx",BGPPIE=29 D PPC
- S BGP2="",BGP1="# w/ exposure to multiple",BGP2=" high-risk meds",BGPPIE=41 D PPC
- D ^BGP4EL1R
- Q
- PPC ;
- D S(BGP1,1,1)
- I BGP2]"" D S(BGP2,1,1)
- F X=1:1:3 S N=$P(BGPDAC(X),U,BGPPIE),O=$P(BGPDAP(X),U,BGPPIE) S Y=$J((N-O),6,1) D S(Y,,X+1)
- Q
- V(T,R,N,P) ;EP
- I $G(BGPAREAA) G VA
- NEW X
- I T=1 S X=$P($G(^BGPELDCJ(R,N)),U,P) Q $S(X]"":X,1:0)
- I T=2 S X=$P($G(^BGPELDPJ(R,N)),U,P) Q $S(X]"":X,1:0)
- I T=3 S X=$P($G(^BGPELDBJ(R,N)),U,P) Q $S(X]"":X,1:0)
- Q ""
- VA ;
- NEW X,V,C S X=0,C="" F S X=$O(BGPSUL(X)) Q:X'=+X D
- .I T=1 S C=C+$P($G(^BGPELDCJ(X,N)),U,P)
- .I T=2 S C=C+$P($G(^BGPELDPJ(X,N)),U,P)
- .I T=3 S C=C+$P($G(^BGPELDBJ(X,N)),U,P)
- .Q
- Q $S(C:C,1:0)
- C(X,X2,X3) ;
- D COMMA^%DTC
- Q X
- S(Y,F,P) ;set up array
- ;Q:BGPQUIT
- ;I $Y>(IOSL-5) D HEADER^BGP4DPH Q:BGPQUIT
- ;W !,^BGPELIJ(BGPIC,53,1,0) S X=" " D S(X,1,1) D H3 S X=" " D S(X,1,1)
- I $G(F) F J=1:1:F W !
- S T=$S(P=1:1,P=2:38,P=3:50,P=4:62,1:1)
- W ?T,Y
- Q
- CALC(N,O) ;
- NEW Z
- S Z=N-O,Z=$FN(Z,"+,",1)
- Q Z
- SB(X) ;EP
- X ^DD("FUNC",$O(^DD("FUNC","B","STRIPBLANKS",0)),1)
- Q X
- H2 ;
- S BGPX="",BGPX=BGPCYN,$P(BGPX,U,2)=$$SB($J(BGPCYP,5,1)),$P(BGPX,U,3)=BGPPRN,$P(BGPX,U,4)=$$SB($J(BGPPRP,5,1)),$P(BGPX,U,5)=$$SB($J($$CALC(BGPCYP,BGPPRP),6)),$P(BGPX,U,6)=BGPBLN,$P(BGPX,U,7)=$$SB($J(BGPBLP,5,1))
- S $P(BGPX,U,8)=$$SB($J($$CALC(BGPCYP,BGPBLP),6))
- D S(BGPX,,2)
- Q
- H1 ;EP
- S Y="REPORT" D S(Y,1,2)
- S Y="%" D S(Y,,3)
- S Y="PREV YR" D S(Y,,4)
- S Y="%" D S(Y,,5)
- S Y="CHG from" D S(Y,,6)
- S Y="BASE" D S(Y,,7)
- S Y="%" D S(Y,,8)
- S Y="CHG from" D S(Y,,9)
- S Y="PERIOD" D S(Y,1,2)
- S Y="PERIOD" D S(Y,,4)
- S Y="PREV YR %" D S(Y,,6)
- S Y="PERIOD" D S(Y,,7)
- S Y="BASE %" D S(Y,,9)
- Q
- BGP4EL1Q ; IHS/CMI/LAB - print ind ;
- +1 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
- +2 ;
- I1AGEP ;EP
- PR ;
- +1 DO HEADER^BGP4DPH
- WRITE !,^BGPELIJ(BGPIC,53,1,0)
- SET X=" "
- DO S(X,1,1)
- DO H3^BGP4EL1P
- SET X=" "
- DO S(X,1,1)
- +2 SET X="PREVIOUS YEAR PERIOD"
- DO S(X,1,1)
- +3 SET X=" "
- DO S(X,1,1)
- SET X=BGPHD2
- DO S(X,1,1)
- +4 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +5 SET X="# w/exposure to at least 1"
- DO S(X,1,1)
- SET X=" high-risk med"
- DO S(X,1,1)
- +6 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,2)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +7 SET X="% # w/exposure to at least 1"
- DO S(X,1,1)
- SET X=" high-risk med"
- DO S(X,1,1)
- +8 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,3)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +9 SET X=" "
- DO S(X,1,1)
- SET X="A. # w/anticholinergic Rx"
- DO S(X,1,1)
- +10 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,4)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +11 SET X="A. % w/anticholinergic Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +12 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,5)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +13 SET X=" "
- DO S(X,1,1)
- SET X="B. # w/antithrombotic Rx"
- DO S(X,1,1)
- +14 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,6)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +15 SET X="B. % w/antithrombotic Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +16 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,7)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +17 SET X=" "
- DO S(X,1,1)
- SET X="C. # w/anti-infective Rx"
- DO S(X,1,1)
- +18 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,8)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +19 SET X="C. % w/anti-infective Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +20 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,9)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +21 SET X=" "
- DO S(X,1,1)
- SET X="D. # w/cardiovascular Rx"
- DO S(X,1,1)
- +22 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,10)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +23 SET X="D. % w/cardiovascular Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +24 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,11)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +25 SET X=" "
- DO S(X,1,1)
- SET X="E. # w/central nervous system Rx"
- DO S(X,1,1)
- +26 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,12)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +27 SET X="E. % w/central nervous system Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +28 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,13)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +29 SET X=" "
- DO S(X,1,1)
- SET X="F. # w/endocrine Rx"
- DO S(X,1,1)
- +30 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,14)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +31 SET X="F. % w/endocrine Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +32 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,15)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +33 SET X=" "
- DO S(X,1,1)
- SET X="G. # w/gastrointestinal Rx"
- DO S(X,1,1)
- +34 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,16)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +35 SET X="G. % w/gastrointestinal Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +36 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,17)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +37 DO HEADER^BGP4DPH
- WRITE !,^BGPELIJ(BGPIC,53,1,0)
- SET X=" "
- DO S(X,1,1)
- DO H3^BGP4EL1P
- SET X=" "
- DO S(X,1,1)
- +38 SET X=" "
- DO S(X,1,1)
- SET X="H. # w/pain med Rx"
- DO S(X,1,1)
- +39 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,18)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +40 SET X="H. % w/pain med Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +41 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,19)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +42 SET X=" "
- DO S(X,1,1)
- SET X="I. # w/skeletal muscle relaxant Rx"
- DO S(X,1,1)
- +43 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,28)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +44 SET X="I. % w/skeletal muscle relaxant Rx"
- DO S(X,1,1)
- SET X=" w/ % of total meds"
- DO S(X,1,1)
- +45 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,29)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +46 SET X=" "
- DO S(X,1,1)
- SET X="# w/ exposure to multiple"
- DO S(X,1,1)
- SET X=" high-risk meds"
- DO S(X,1,1)
- +47 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,40)
- SET Y=$$C(V,0,6)
- DO S(Y,,X+1)
- +48 SET X="% w/ exposure to multiple"
- DO S(X,1,1)
- SET X=" high-risk meds"
- DO S(X,1,1)
- +49 FOR X=1:1:3
- SET V=$PIECE(BGPDAP(X),U,41)
- SET Y=$JUSTIFY(V,5,1)
- DO S(Y,,X+1)
- +50 IF BGPQUIT
- QUIT
- +51 ;% changes
- +52 SET X=" "
- DO S(X,1,1)
- SET X="CHANGE FROM PREV YR %"
- DO S(X,1,1)
- +53 SET BGP2=""
- SET BGP1="# w/exposure to at least"
- SET BGP2=" 1 high-risk med"
- SET BGPPIE=3
- DO PPC
- +54 SET BGP2=""
- SET BGP1="A. # w/anticholinergic Rx"
- SET BGPPIE=5
- DO PPC
- +55 SET BGP2=""
- SET BGP1="B. # w/antithrombotic Rx"
- SET BGPPIE=7
- DO PPC
- +56 SET BGP2=""
- SET BGP1="C. # w/anti-infective Rx"
- SET BGPPIE=9
- DO PPC
- +57 SET BGP2=""
- SET BGP1="D. # w/cardiovascular Rx"
- SET BGPPIE=11
- DO PPC
- +58 SET BGP2=""
- SET BGP1="E. # w/central nervous system Rx"
- SET BGPPIE=13
- DO PPC
- +59 SET BGP2=""
- SET BGP1="F. # w/endocrine Rx"
- SET BGPPIE=15
- DO PPC
- +60 SET BGP2=""
- SET BGP1="G. # w/gastrointestinal Rx"
- SET BGPPIE=17
- DO PPC
- +61 SET BGP2=""
- SET BGP1="H. # w/pain med Rx"
- SET BGPPIE=19
- DO PPC
- +62 SET BGP2=""
- SET BGP1="I. # w/skeletal muscle "
- SET BGP2=" relaxant Rx"
- SET BGPPIE=29
- DO PPC
- +63 SET BGP2=""
- SET BGP1="# w/ exposure to multiple"
- SET BGP2=" high-risk meds"
- SET BGPPIE=41
- DO PPC
- +64 DO ^BGP4EL1R
- +65 QUIT
- PPC ;
- +1 DO S(BGP1,1,1)
- +2 IF BGP2]""
- DO S(BGP2,1,1)
- +3 FOR X=1:1:3
- SET N=$PIECE(BGPDAC(X),U,BGPPIE)
- SET O=$PIECE(BGPDAP(X),U,BGPPIE)
- SET Y=$JUSTIFY((N-O),6,1)
- DO S(Y,,X+1)
- +4 QUIT
- V(T,R,N,P) ;EP
- +1 IF $GET(BGPAREAA)
- GOTO VA
- +2 NEW X
- +3 IF T=1
- SET X=$PIECE($GET(^BGPELDCJ(R,N)),U,P)
- QUIT $SELECT(X]"":X,1:0)
- +4 IF T=2
- SET X=$PIECE($GET(^BGPELDPJ(R,N)),U,P)
- QUIT $SELECT(X]"":X,1:0)
- +5 IF T=3
- SET X=$PIECE($GET(^BGPELDBJ(R,N)),U,P)
- QUIT $SELECT(X]"":X,1:0)
- +6 QUIT ""
- VA ;
- +1 NEW X,V,C
- SET X=0
- SET C=""
- FOR
- SET X=$ORDER(BGPSUL(X))
- IF X'=+X
- QUIT
- Begin DoDot:1
- +2 IF T=1
- SET C=C+$PIECE($GET(^BGPELDCJ(X,N)),U,P)
- +3 IF T=2
- SET C=C+$PIECE($GET(^BGPELDPJ(X,N)),U,P)
- +4 IF T=3
- SET C=C+$PIECE($GET(^BGPELDBJ(X,N)),U,P)
- +5 QUIT
- End DoDot:1
- +6 QUIT $SELECT(C:C,1:0)
- C(X,X2,X3) ;
- +1 DO COMMA^%DTC
- +2 QUIT X
- S(Y,F,P) ;set up array
- +1 ;Q:BGPQUIT
- +2 ;I $Y>(IOSL-5) D HEADER^BGP4DPH Q:BGPQUIT
- +3 ;W !,^BGPELIJ(BGPIC,53,1,0) S X=" " D S(X,1,1) D H3 S X=" " D S(X,1,1)
- +4 IF $GET(F)
- FOR J=1:1:F
- WRITE !
- +5 SET T=$SELECT(P=1:1,P=2:38,P=3:50,P=4:62,1:1)
- +6 WRITE ?T,Y
- +7 QUIT
- CALC(N,O) ;
- +1 NEW Z
- +2 SET Z=N-O
- SET Z=$FNUMBER(Z,"+,",1)
- +3 QUIT Z
- SB(X) ;EP
- +1 XECUTE ^DD("FUNC",$ORDER(^DD("FUNC","B","STRIPBLANKS",0)),1)
- +2 QUIT X
- H2 ;
- +1 SET BGPX=""
- SET BGPX=BGPCYN
- SET $PIECE(BGPX,U,2)=$$SB($JUSTIFY(BGPCYP,5,1))
- SET $PIECE(BGPX,U,3)=BGPPRN
- SET $PIECE(BGPX,U,4)=$$SB($JUSTIFY(BGPPRP,5,1))
- SET $PIECE(BGPX,U,5)=$$SB($JUSTIFY($$CALC(BGPCYP,BGPPRP),6))
- SET $PIECE(BGPX,U,6)=BGPBLN
- SET $PIECE(BGPX,U,7)=$$SB($JUSTIFY(BGPBLP,5,1))
- +2 SET $PIECE(BGPX,U,8)=$$SB($JUSTIFY($$CALC(BGPCYP,BGPBLP),6))
- +3 DO S(BGPX,,2)
- +4 QUIT
- H1 ;EP
- +1 SET Y="REPORT"
- DO S(Y,1,2)
- +2 SET Y="%"
- DO S(Y,,3)
- +3 SET Y="PREV YR"
- DO S(Y,,4)
- +4 SET Y="%"
- DO S(Y,,5)
- +5 SET Y="CHG from"
- DO S(Y,,6)
- +6 SET Y="BASE"
- DO S(Y,,7)
- +7 SET Y="%"
- DO S(Y,,8)
- +8 SET Y="CHG from"
- DO S(Y,,9)
- +9 SET Y="PERIOD"
- DO S(Y,1,2)
- +10 SET Y="PERIOD"
- DO S(Y,,4)
- +11 SET Y="PREV YR %"
- DO S(Y,,6)
- +12 SET Y="PERIOD"
- DO S(Y,,7)
- +13 SET Y="BASE %"
- DO S(Y,,9)
- +14 QUIT