- FHMADM21 ; HISC/AAC - Multidivisional Served Meals Report ;10/9/03 16:07
- ;;5.5;DIETETICS;;Jan 28, 2005
- ;
- ;This program is being modified for Multidivisional Reports
- ;Project ID 4QNFR03 - 2003
- ;
- EN2 ; Print Meals Report
- ;
- D NOW^%DTC S DT=%\1 D DT^FHMADM2 G:"^"[X KIL
- ;
- ;Declare variables,determine total # of comm offices - alc 02-26-03
- ;
- S CONAME="",CO="",ZCO="",L=0,CONUM="",CONUMZ="",COUNT=0,COX="",COXX="",Y00=""
- ;S ZZOUT=$G(^FH(119.73,0)),ZOUT=$P(ZZOUT,"^",4)
- S ZZCOUNT=0 F ZZCOUNT=0:0 S ZZCOUNT=$O(^FH(119.73,ZZCOUNT)) Q:ZZCOUNT'>0 S ZOUT=ZZCOUNT
- F K=1:1:21 S S(K)="",SS(K)="",NN(K)=0
- ;
- R !,"Print report for all Communications Offices Y or N: ",ZCO:DTIME W ! S ZCO=$TR(ZCO,"y","Y") I ZCO="Y" G PRINT
- ;
- EN3 ;Enter/Edit data - alc 02-26-03
- ;
- S DIC=119.73,DIC(0)="AEQ"
- D ^DIC I (Y=-1)&(CO="") G KIL Q
- I (Y=-1) G PRINT Q
- S CON=$P(Y,"^",1),CO=CON_"^"_CO,CONAM=$P(Y,"^",2),CONAME=CONAM_"^"_CONAME G EN3
- I Y=-1 K DIC Q ;quit if lookup fails
- ;
- PRINT W !!,"The report requires a 132 column printer.",!
- S NAMENO=$L(CONAME,"^"),CONUMX=$L(CO,"^")
- I ZCO="Y" S CONUMZ=$G(^FH(119.73,0)),CONUMZ=$P(CONUMZ,"^",4)
- K IOP,%ZIS S %ZIS("A")="Print on Device: ",%ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP KIL
- I $D(IO("Q")) S FHPGM="Q1^FHMADM21",FHLST="EDT^SDT^ZCO^CONUMX^CO^CONAM^CONAME^COUNT^CONUMZ^ZOUT^S(^SS(" D EN2^FH G KIL
- U IO D Q1 D ^%ZISC K %ZIS,IOP G KIL
- ;
- Q1 S DTP=SDT\1 D DTP^FH S DTE=DTP_" to " S DTP=EDT\1 D DTP^FH S DTE=DTE_DTP
- S X=SDT D DOW^%DTC S DOW=Y+1
- D NOW^%DTC S DTP=% D DTP^FH S HDT=DTP,PG=0
- ;
- Q2 ;Drivers for individual Comm Off report - alc 02-26-03
- ;
- I ZCO'="Y" S CONUMX=CONUMX-1 G:CONUMX=0 QUIT S COXX=$P(CO,"^",CONUMX),NAME=$P(CONAME,"^",CONUMX) G:$D(^FH(119.73,COXX,"I")) Q2 G:'$D(^FH(119.73,COXX,0)) Q2
- I ZCO="Y" S COUNT=COUNT+1 G:COUNT>ZOUT QUIT S NAME=$G(^FH(119.73,COUNT,0)),NAME=$P(NAME,"^") G:$D(^FH(119.73,COUNT,"I")) Q2 G:'$D(^FH(119.73,COUNT,0)) Q2
- ;W @IOF
- D HDR
- S DOW=Y+1 D Q3
- I CONUMX>0 G Q2
- Q
- ;
- QUIT ;Drivers for report final totals/average - alc 02-26-03
- ;
- ;W @IOF
- S NAME="Total All Communications Offices "
- D HDR
- ;
- F K=1:1:18 S NN(K)=$J($S(NDX:SS(K)/NDX,1:0),0,0),NN(K)=$J($S(NN(K)<1:"",1:NN(K)),5)_" ",SS(K)=$S(SS(K)<1:$J("",6),SS(K)<100000:$J(SS(K),5)_" ",1:$J(SS(K),6))
- F K=19:1:21 S NN(K)=$J($S(NDX:SS(K)/NDX,1:0),0,0),NN(K)=$J($S(NN(K)<1:"",1:NN(K)),5)_" ",SS(K)=$S(SS(K)<1:$J("",6),SS(K)<100000:$J(SS(K),5)_" ",1:$J(SS(K),6))
- ;BREAK
- D FTOTALS
- Q
- ;
- Q3 ;Looping thru dates/comm off load data buckets - alc 02-26-03
- ;
- S D1=SDT,(ND,TD,NDX,TDX)=0 F L1=0:0 D N1 S X1=D1,X2=1 D C^%DTC Q:(X>EDT) S D1=X,DOW=DOW+1 S:DOW=8 DOW=1
- ;
- F K=1:1:18 S N(K)=$J($S(ND:S(K)/ND,1:0),0,0),N(K)=$J($S(N(K)<1:"",1:N(K)),5)_" ",S(K)=$S(S(K)<1:$J("",6),S(K)<100000:$J(S(K),5)_" ",1:$J(S(K),6))
- ;
- F K=19:1:21 S N(K)=$J($S(TD:S(K)/TD,1:0),0,0),N(K)=$J($S(N(K)<1:"",1:N(K)),5)_" ",S(K)=$S(S(K)<1:$J("",6),S(K)<100000:$J(S(K),5)_" ",1:$J(S(K),6))
- ;
- ;Print daily totals - alc 02-26-03
- ;
- D LN W !?4,"Total",?15,"|",S(1),S(2),S(3),"|",S(4),S(5),S(6),"|",S(7),S(8),S(9),"|",S(10),"|",S(11),S(13),S(16),"|",S(17),"|",S(18),"|",S(19),S(20),S(21),!
- ;
- W:ND ?4,"Avg. ",?15,"|",N(1),N(2),N(3),"|",N(4),N(5),N(6),"|",N(7),N(8),N(9),"|",N(10),"|",N(11),N(13),N(16),"|",N(17),"|",N(18),"|",N(19),N(20),N(21),!
- ;
- Q
- ;
- FTOTALS ;PRINT FINAL TOTALS - alc 02-26-03
- ;
- D LN W !?4,"ALL Total",?15,"|",SS(1),SS(2),SS(3),"|",SS(4),SS(5),SS(6),"|",SS(7),SS(8),SS(9),"|",SS(10),"|",SS(11),SS(13),SS(16),"|",SS(17),"|",SS(18),"|",SS(19),SS(20),SS(21),!
- ;
- W:ND ?4,"Avg. ",?15,"|",NN(1),NN(2),NN(3),"|",NN(4),NN(5),NN(6),"|",NN(7),NN(8),NN(9),"|",NN(10),"|",NN(11),NN(13),NN(16),"|",NN(17),"|",NN(18),"|",NN(19),NN(20),NN(21),!
- ;
- Q
- ;
- HDR ;Print report headings - alc 02-26-03
- ;
- W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !,HDT,?44,"S E R V E D M E A L S W O R K S H E E T",?123,"Page ",PG
- ;
- ;S NAMENO=NAMENO-1,NAME=$P(CONAME,"^",NAMENO)
- W !!,?1,NAME
- ;
- W ?(131-$L(DTE)\2),DTE
- W !!,?15,"|",?32,"MEALS SERVED ON INPATIENT BASIS",?79,"|",?82,"MEALS SERVED TO OTHERS",?105,"| TOTAL| SERVED TRAYS DATA"
- W !,?15,"|",?19,"DOMICILIARY",?34,"| NURSING HOME CU",?53,"|",?59,"HOSPITAL",?72,"| TOTAL|",?98,"| TOTAL| MEALS|"
- W !,?15,"| Inp. Abs. Meal| Inp. Abs. Meal| Inp. Abs. Meal| | Outp. Paid Grat.| | | Cafe NPO Trays"
- W !,?15,"| A B C | D E F | G H I | J | K M Q | | R | T U V"
- LN W ! F K=1:1:131 W "-"
- Q
- ;
- N1 ;Get data from approp date/comm office globals - alc 02-26-03
- ;
- I ZCO="Y" F CONUM=1:1 Q:CONUM>ZOUT S Y0=$G(^FH(117,D1,2,CONUM,0)),Y2=$P(Y0,"^"),Y1=($P(Y0,"^",2,99)),Y00=$G(^FH(117,D1,2,CONUM,1)),Y11=($P(Y00,"^",1,99)) Q:COUNT=Y2
- ;
- N2 I ZCO'="Y" F CONUM=1:1 Q:CONUM>ZOUT S Y0=$G(^FH(117,D1,2,CONUM,0)),Y2=$P(Y0,"^"),Y1=($P(Y0,"^",2,99)),Y00=$G(^FH(117,D1,2,CONUM,1)),Y11=($P(Y00,"^",1,99)) Q:COXX=Y2
- ;
- K N S K=0 F L=1,2,4,5,7,8 S K=K+1,N(L)=$P(Y11,"^",K)
- S K=10 F L=1:3:16 S K=K+1,N(K)=$P(Y1,"^",L)+$P(Y1,"^",L+1)+$P(Y1,"^",L+2)
- ;
- ;Calcs - alc 02-26-03
- ;
- S N(19)=$P(Y1,"^",19),N(20)=$P(Y1,"^",20)
- S N(3)=N(1)-N(2)*3,N(6)=N(4)-N(5)*3,N(9)=N(7)-N(8)*3,N(10)=N(3)+N(6)+N(9)
- ;
- ;
- S N(16)=N(14)+N(15)+N(16),N(13)=N(12)+N(13),N(17)=N(11)+N(13)+N(16),N(18)=N(10)+N(17),N(19)=N(19)+N(17),N(21)=N(18)-N(19)-N(20) S:N(18) (ND,NDX)=ND+1 S:N(20) (TD,TDX)=TD+1
- ;
- ;Summarizing detail report data into totals - alc 02-26-03
- ;
- F K=1:1:21 S S(K)=S(K)+N(K),SS(K)=SS(K)+N(K)
- ;
- F K=1:1:21 S N(K)=$J($S(N(K)<1:"",1:N(K)),5)_" "
- ;
- ;Prints detail line by date - alc 02-26-03
- ;
- S DTP=D1 D DTP^FH D:$Y>(IOSL-8) HDR
- W !,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",DTP
- W ?15,"|",N(1),N(2),N(3),"|",N(4),N(5),N(6),"|",N(7),N(8),N(9),"|",N(10),"|",N(11),N(13),N(16),"|",N(17),"|",N(18),"|",N(19),N(20),N(21) Q
- KIL ; Kill all used Variables
- G KILL^XUSCLEAN
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHMADM21 5957 printed Feb 18, 2025@23:14:11 Page 2
- FHMADM21 ; HISC/AAC - Multidivisional Served Meals Report ;10/9/03 16:07
- +1 ;;5.5;DIETETICS;;Jan 28, 2005
- +2 ;
- +3 ;This program is being modified for Multidivisional Reports
- +4 ;Project ID 4QNFR03 - 2003
- +5 ;
- EN2 ; Print Meals Report
- +1 ;
- +2 DO NOW^%DTC
- SET DT=%\1
- DO DT^FHMADM2
- if "^"[X
- GOTO KIL
- +3 ;
- +4 ;Declare variables,determine total # of comm offices - alc 02-26-03
- +5 ;
- +6 SET CONAME=""
- SET CO=""
- SET ZCO=""
- SET L=0
- SET CONUM=""
- SET CONUMZ=""
- SET COUNT=0
- SET COX=""
- SET COXX=""
- SET Y00=""
- +7 ;S ZZOUT=$G(^FH(119.73,0)),ZOUT=$P(ZZOUT,"^",4)
- +8 SET ZZCOUNT=0
- FOR ZZCOUNT=0:0
- SET ZZCOUNT=$ORDER(^FH(119.73,ZZCOUNT))
- if ZZCOUNT'>0
- QUIT
- SET ZOUT=ZZCOUNT
- +9 FOR K=1:1:21
- SET S(K)=""
- SET SS(K)=""
- SET NN(K)=0
- +10 ;
- +11 READ !,"Print report for all Communications Offices Y or N: ",ZCO:DTIME
- WRITE !
- SET ZCO=$TRANSLATE(ZCO,"y","Y")
- IF ZCO="Y"
- GOTO PRINT
- +12 ;
- EN3 ;Enter/Edit data - alc 02-26-03
- +1 ;
- +2 SET DIC=119.73
- SET DIC(0)="AEQ"
- +3 DO ^DIC
- IF (Y=-1)&(CO="")
- GOTO KIL
- QUIT
- +4 IF (Y=-1)
- GOTO PRINT
- QUIT
- +5 SET CON=$PIECE(Y,"^",1)
- SET CO=CON_"^"_CO
- SET CONAM=$PIECE(Y,"^",2)
- SET CONAME=CONAM_"^"_CONAME
- GOTO EN3
- +6 ;quit if lookup fails
- IF Y=-1
- KILL DIC
- QUIT
- +7 ;
- PRINT WRITE !!,"The report requires a 132 column printer.",!
- +1 SET NAMENO=$LENGTH(CONAME,"^")
- SET CONUMX=$LENGTH(CO,"^")
- +2 IF ZCO="Y"
- SET CONUMZ=$GET(^FH(119.73,0))
- SET CONUMZ=$PIECE(CONUMZ,"^",4)
- +3 KILL IOP,%ZIS
- SET %ZIS("A")="Print on Device: "
- SET %ZIS="MQ"
- WRITE !
- DO ^%ZIS
- KILL %ZIS,IOP
- if POP
- GOTO KIL
- +4 IF $DATA(IO("Q"))
- SET FHPGM="Q1^FHMADM21"
- SET FHLST="EDT^SDT^ZCO^CONUMX^CO^CONAM^CONAME^COUNT^CONUMZ^ZOUT^S(^SS("
- DO EN2^FH
- GOTO KIL
- +5 USE IO
- DO Q1
- DO ^%ZISC
- KILL %ZIS,IOP
- GOTO KIL
- +6 ;
- Q1 SET DTP=SDT\1
- DO DTP^FH
- SET DTE=DTP_" to "
- SET DTP=EDT\1
- DO DTP^FH
- SET DTE=DTE_DTP
- +1 SET X=SDT
- DO DOW^%DTC
- SET DOW=Y+1
- +2 DO NOW^%DTC
- SET DTP=%
- DO DTP^FH
- SET HDT=DTP
- SET PG=0
- +3 ;
- Q2 ;Drivers for individual Comm Off report - alc 02-26-03
- +1 ;
- +2 IF ZCO'="Y"
- SET CONUMX=CONUMX-1
- if CONUMX=0
- GOTO QUIT
- SET COXX=$PIECE(CO,"^",CONUMX)
- SET NAME=$PIECE(CONAME,"^",CONUMX)
- if $DATA(^FH(119.73,COXX,"I"))
- GOTO Q2
- if '$DATA(^FH(119.73,COXX,0))
- GOTO Q2
- +3 IF ZCO="Y"
- SET COUNT=COUNT+1
- if COUNT>ZOUT
- GOTO QUIT
- SET NAME=$GET(^FH(119.73,COUNT,0))
- SET NAME=$PIECE(NAME,"^")
- if $DATA(^FH(119.73,COUNT,"I"))
- GOTO Q2
- if '$DATA(^FH(119.73,COUNT,0))
- GOTO Q2
- +4 ;W @IOF
- +5 DO HDR
- +6 SET DOW=Y+1
- DO Q3
- +7 IF CONUMX>0
- GOTO Q2
- +8 QUIT
- +9 ;
- QUIT ;Drivers for report final totals/average - alc 02-26-03
- +1 ;
- +2 ;W @IOF
- +3 SET NAME="Total All Communications Offices "
- +4 DO HDR
- +5 ;
- +6 FOR K=1:1:18
- SET NN(K)=$JUSTIFY($SELECT(NDX:SS(K)/NDX,1:0),0,0)
- SET NN(K)=$JUSTIFY($SELECT(NN(K)<1:"",1:NN(K)),5)_" "
- SET SS(K)=$SELECT(SS(K)<1:$JUSTIFY("",6),SS(K)<100000:$JUSTIFY(SS(K),5)_" ",1:$JUSTIFY(SS(K),6))
- +7 FOR K=19:1:21
- SET NN(K)=$JUSTIFY($SELECT(NDX:SS(K)/NDX,1:0),0,0)
- SET NN(K)=$JUSTIFY($SELECT(NN(K)<1:"",1:NN(K)),5)_" "
- SET SS(K)=$SELECT(SS(K)<1:$JUSTIFY("",6),SS(K)<100000:$JUSTIFY(SS(K),5)_" ",1:$JUSTIFY(SS(K),6))
- +8 ;BREAK
- +9 DO FTOTALS
- +10 QUIT
- +11 ;
- Q3 ;Looping thru dates/comm off load data buckets - alc 02-26-03
- +1 ;
- +2 SET D1=SDT
- SET (ND,TD,NDX,TDX)=0
- FOR L1=0:0
- DO N1
- SET X1=D1
- SET X2=1
- DO C^%DTC
- if (X>EDT)
- QUIT
- SET D1=X
- SET DOW=DOW+1
- if DOW=8
- SET DOW=1
- +3 ;
- +4 FOR K=1:1:18
- SET N(K)=$JUSTIFY($SELECT(ND:S(K)/ND,1:0),0,0)
- SET N(K)=$JUSTIFY($SELECT(N(K)<1:"",1:N(K)),5)_" "
- SET S(K)=$SELECT(S(K)<1:$JUSTIFY("",6),S(K)<100000:$JUSTIFY(S(K),5)_" ",1:$JUSTIFY(S(K),6))
- +5 ;
- +6 FOR K=19:1:21
- SET N(K)=$JUSTIFY($SELECT(TD:S(K)/TD,1:0),0,0)
- SET N(K)=$JUSTIFY($SELECT(N(K)<1:"",1:N(K)),5)_" "
- SET S(K)=$SELECT(S(K)<1:$JUSTIFY("",6),S(K)<100000:$JUSTIFY(S(K),5)_" ",1:$JUSTIFY(S(K),6))
- +7 ;
- +8 ;Print daily totals - alc 02-26-03
- +9 ;
- +10 DO LN
- WRITE !?4,"Total",?15,"|",S(1),S(2),S(3),"|",S(4),S(5),S(6),"|",S(7),S(8),S(9),"|",S(10),"|",S(11),S(13),S(16),"|",S(17),"|",S(18),"|",S(19),S(20),S(21),!
- +11 ;
- +12 if ND
- WRITE ?4,"Avg. ",?15,"|",N(1),N(2),N(3),"|",N(4),N(5),N(6),"|",N(7),N(8),N(9),"|",N(10),"|",N(11),N(13),N(16),"|",N(17),"|",N(18),"|",N(19),N(20),N(21),!
- +13 ;
- +14 QUIT
- +15 ;
- FTOTALS ;PRINT FINAL TOTALS - alc 02-26-03
- +1 ;
- +2 DO LN
- WRITE !?4,"ALL Total",?15,"|",SS(1),SS(2),SS(3),"|",SS(4),SS(5),SS(6),"|",SS(7),SS(8),SS(9),"|",SS(10),"|",SS(11),SS(13),SS(16),"|",SS(17),"|",SS(18),"|",SS(19),SS(20),SS(21),!
- +3 ;
- +4 if ND
- WRITE ?4,"Avg. ",?15,"|",NN(1),NN(2),NN(3),"|",NN(4),NN(5),NN(6),"|",NN(7),NN(8),NN(9),"|",NN(10),"|",NN(11),NN(13),NN(16),"|",NN(17),"|",NN(18),"|",NN(19),NN(20),NN(21),!
- +5 ;
- +6 QUIT
- +7 ;
- HDR ;Print report headings - alc 02-26-03
- +1 ;
- +2 if '($EXTRACT(IOST,1,2)'="C-"&'PG)
- WRITE @IOF
- SET PG=PG+1
- WRITE !,HDT,?44,"S E R V E D M E A L S W O R K S H E E T",?123,"Page ",PG
- +3 ;
- +4 ;S NAMENO=NAMENO-1,NAME=$P(CONAME,"^",NAMENO)
- +5 WRITE !!,?1,NAME
- +6 ;
- +7 WRITE ?(131-$LENGTH(DTE)\2),DTE
- +8 WRITE !!,?15,"|",?32,"MEALS SERVED ON INPATIENT BASIS",?79,"|",?82,"MEALS SERVED TO OTHERS",?105,"| TOTAL| SERVED TRAYS DATA"
- +9 WRITE !,?15,"|",?19,"DOMICILIARY",?34,"| NURSING HOME CU",?53,"|",?59,"HOSPITAL",?72,"| TOTAL|",?98,"| TOTAL| MEALS|"
- +10 WRITE !,?15,"| Inp. Abs. Meal| Inp. Abs. Meal| Inp. Abs. Meal| | Outp. Paid Grat.| | | Cafe NPO Trays"
- +11 WRITE !,?15,"| A B C | D E F | G H I | J | K M Q | | R | T U V"
- LN WRITE !
- FOR K=1:1:131
- WRITE "-"
- +1 QUIT
- +2 ;
- N1 ;Get data from approp date/comm office globals - alc 02-26-03
- +1 ;
- +2 IF ZCO="Y"
- FOR CONUM=1:1
- if CONUM>ZOUT
- QUIT
- SET Y0=$GET(^FH(117,D1,2,CONUM,0))
- SET Y2=$PIECE(Y0,"^")
- SET Y1=($PIECE(Y0,"^",2,99))
- SET Y00=$GET(^FH(117,D1,2,CONUM,1))
- SET Y11=($PIECE(Y00,"^",1,99))
- if COUNT=Y2
- QUIT
- +3 ;
- N2 IF ZCO'="Y"
- FOR CONUM=1:1
- if CONUM>ZOUT
- QUIT
- SET Y0=$GET(^FH(117,D1,2,CONUM,0))
- SET Y2=$PIECE(Y0,"^")
- SET Y1=($PIECE(Y0,"^",2,99))
- SET Y00=$GET(^FH(117,D1,2,CONUM,1))
- SET Y11=($PIECE(Y00,"^",1,99))
- if COXX=Y2
- QUIT
- +1 ;
- +2 KILL N
- SET K=0
- FOR L=1,2,4,5,7,8
- SET K=K+1
- SET N(L)=$PIECE(Y11,"^",K)
- +3 SET K=10
- FOR L=1:3:16
- SET K=K+1
- SET N(K)=$PIECE(Y1,"^",L)+$PIECE(Y1,"^",L+1)+$PIECE(Y1,"^",L+2)
- +4 ;
- +5 ;Calcs - alc 02-26-03
- +6 ;
- +7 SET N(19)=$PIECE(Y1,"^",19)
- SET N(20)=$PIECE(Y1,"^",20)
- +8 SET N(3)=N(1)-N(2)*3
- SET N(6)=N(4)-N(5)*3
- SET N(9)=N(7)-N(8)*3
- SET N(10)=N(3)+N(6)+N(9)
- +9 ;
- +10 ;
- +11 SET N(16)=N(14)+N(15)+N(16)
- SET N(13)=N(12)+N(13)
- SET N(17)=N(11)+N(13)+N(16)
- SET N(18)=N(10)+N(17)
- SET N(19)=N(19)+N(17)
- SET N(21)=N(18)-N(19)-N(20)
- if N(18)
- SET (ND,NDX)=ND+1
- if N(20)
- SET (TD,TDX)=TD+1
- +12 ;
- +13 ;Summarizing detail report data into totals - alc 02-26-03
- +14 ;
- +15 FOR K=1:1:21
- SET S(K)=S(K)+N(K)
- SET SS(K)=SS(K)+N(K)
- +16 ;
- +17 FOR K=1:1:21
- SET N(K)=$JUSTIFY($SELECT(N(K)<1:"",1:N(K)),5)_" "
- +18 ;
- +19 ;Prints detail line by date - alc 02-26-03
- +20 ;
- +21 SET DTP=D1
- DO DTP^FH
- if $Y>(IOSL-8)
- DO HDR
- +22 WRITE !,$PIECE("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",DTP
- +23 WRITE ?15,"|",N(1),N(2),N(3),"|",N(4),N(5),N(6),"|",N(7),N(8),N(9),"|",N(10),"|",N(11),N(13),N(16),"|",N(17),"|",N(18),"|",N(19),N(20),N(21)
- QUIT
- KIL ; Kill all used Variables
- +1 GOTO KILL^XUSCLEAN