- OOPSPUT1 ;HIRMFO/YH-ACCIDENT FORM UTILITIES ;4/24/98
- ;;2.0;ASISTS;;Jun 03, 2002
- WDATE(OOPSDT,OOPSLC1,OOPSLC2,OOPSLC3) ;PRINT MONTH,DAY,YEAR
- ;OOPSDT - FILEMAN DATE
- ;OOPSLC1 - (X,Y) LOCATION OF MONTH
- ;OOPSLC2 - (X,Y) LOCATION OF DAY
- ;OOPSLC3 - (X,Y) LOCATION OF YEAR
- Q:OOPSDT="" N DL S DL=$S(FORM="CA-1":"#",FORM="CA-2":"@",1:"") Q:DL=""
- W !,"PU"_OOPSLC1_";LB"_$E(OOPSDT,4,5)_DL_";PU"_OOPSLC2_";LB"_$E(OOPSDT,6,7)_DL_";PU"_OOPSLC3_";LB"_$E(OOPSDT,2,3)_DL_";"
- Q
- WTIME(OOPSTM,OOPSAM,OOPSPM,OOPSLC1,OOPSLC2) ;PRINT TIME
- ;OOPSTM - TIME TO BE PRINTED
- ;OOPSAM - (X,Y) LOCATION OF AM BOX
- ;OOPSPM - (X,Y) LOCATION OF PM BOX
- ;OOPSLC1 - (X,Y) LOCATION OF HOURS
- ;OOPSLC2 - (X,Y) LOCATION OF MINUTES
- Q:+OOPSTM'>0 N DL S DL=$S(FORM="CA-1":"#",FORM="CA-2":"@",1:"") Q:DL=""
- N OOPSHR,AMPM S OOPSHR=+$E(OOPSTM,1,2)
- S AMPM=$S(OOPSHR=24:"AM",OOPSHR<12:"AM",1:"PM")
- S OOPSHR=$S(OOPSHR=24:12,OOPSHR<13:OOPSHR,1:OOPSHR-12)
- I AMPM="PM" W !,"PU"_OOPSPM_";LBX"_DL_";"
- I AMPM="AM" W !,"PU"_OOPSAM_";LBX"_DL_";"
- W !,"PU"_OOPSLC1_";LB"_OOPSHR_DL_";PU"_OOPSLC2_";LB"_$E(OOPSTM,3,4)_DL_";"
- Q
- WPHONE(OOPSPHON,OOPSLC1,OOPSLC2) ;PRINT HOME PHONE
- ;OOPSPHON - PHONE TO BE PRINTED
- ;OOPSLC1 - (X,Y) LOCATION FOR AREA CODE
- ;OOPSLC1 - (X,Y) LOCATION FOR PHONE NUMBER
- Q:OOPSPHON="" N DL S DL=$S(FORM="CA-1":"#",FORM="CA-2":"@",1:"") Q:DL=""
- I $L(OOPSPHON,"-")>1 W !,"PU"_OOPSLC1_";LB"_$P(OOPSPHON,"-")_DL_";PU"_OOPSLC2_";LB"_$P(OOPSPHON,"-",2,9)_DL_";"
- E W !,"PU"_OOPSLC1_";LB"_$E(OOPSPHON,1,3)_DL_";PU"_OOPSLC2_";LB"_$E(OOPSPHON,4,18)_DL_";"
- Q
- WKSCHDUL(SCHEDL,SUN,MON,TUE,WED,THU,FRI,SAT) ;PRINT WORK SCHEDULE
- ;SCHEDL: WORK SCHEDULE
- ;SUN - SAT: BOX (X,Y) LOCATION
- Q:SCHEDL="" N DL S DL=$S(FORM="CA-1":"#",FORM="CA-2":"@",1:"") Q:DL=""
- N II,JJ,KK,WKDAY
- Q:SCHEDL="" F II=1:1:7 S WKDAY(II)=0
- F II=1:1:$L(SCHEDL,",") D
- . S JJ=$P(SCHEDL,",",II) Q:+JJ'>0 D
- . . I JJ["-" D
- . . . F KK=+$P(JJ,"-"):1:+$P(JJ,"-",2) S WKDAY(KK)=1
- . . E S WKDAY(+JJ)=1
- F II=1:1:7 I WKDAY(II)=1 D
- . W !,$S(II=1:"PU"_SUN_";LBX"_DL_";",II=2:"PU"_MON_";LBX"_DL_";",II=3:"PU"_TUE_";LBX"_DL_";",II=4:"PU"_WED_";LBX"_DL_";",II=5:"PU"_THU_";LBX"_DL_";",II=6:"PU"_FRI_";LBX"_DL_";",II=7:"PU"_SAT_";LBX"_DL_";",1:"")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSPUT1 2235 printed Feb 18, 2025@23:06:01 Page 2
- OOPSPUT1 ;HIRMFO/YH-ACCIDENT FORM UTILITIES ;4/24/98
- +1 ;;2.0;ASISTS;;Jun 03, 2002
- WDATE(OOPSDT,OOPSLC1,OOPSLC2,OOPSLC3) ;PRINT MONTH,DAY,YEAR
- +1 ;OOPSDT - FILEMAN DATE
- +2 ;OOPSLC1 - (X,Y) LOCATION OF MONTH
- +3 ;OOPSLC2 - (X,Y) LOCATION OF DAY
- +4 ;OOPSLC3 - (X,Y) LOCATION OF YEAR
- +5 if OOPSDT=""
- QUIT
- NEW DL
- SET DL=$SELECT(FORM="CA-1":"#",FORM="CA-2":"@",1:"")
- if DL=""
- QUIT
- +6 WRITE !,"PU"_OOPSLC1_";LB"_$EXTRACT(OOPSDT,4,5)_DL_";PU"_OOPSLC2_";LB"_$EXTRACT(OOPSDT,6,7)_DL_";PU"_OOPSLC3_";LB"_$EXTRACT(OOPSDT,2,3)_DL_";"
- +7 QUIT
- WTIME(OOPSTM,OOPSAM,OOPSPM,OOPSLC1,OOPSLC2) ;PRINT TIME
- +1 ;OOPSTM - TIME TO BE PRINTED
- +2 ;OOPSAM - (X,Y) LOCATION OF AM BOX
- +3 ;OOPSPM - (X,Y) LOCATION OF PM BOX
- +4 ;OOPSLC1 - (X,Y) LOCATION OF HOURS
- +5 ;OOPSLC2 - (X,Y) LOCATION OF MINUTES
- +6 if +OOPSTM'>0
- QUIT
- NEW DL
- SET DL=$SELECT(FORM="CA-1":"#",FORM="CA-2":"@",1:"")
- if DL=""
- QUIT
- +7 NEW OOPSHR,AMPM
- SET OOPSHR=+$EXTRACT(OOPSTM,1,2)
- +8 SET AMPM=$SELECT(OOPSHR=24:"AM",OOPSHR<12:"AM",1:"PM")
- +9 SET OOPSHR=$SELECT(OOPSHR=24:12,OOPSHR<13:OOPSHR,1:OOPSHR-12)
- +10 IF AMPM="PM"
- WRITE !,"PU"_OOPSPM_";LBX"_DL_";"
- +11 IF AMPM="AM"
- WRITE !,"PU"_OOPSAM_";LBX"_DL_";"
- +12 WRITE !,"PU"_OOPSLC1_";LB"_OOPSHR_DL_";PU"_OOPSLC2_";LB"_$EXTRACT(OOPSTM,3,4)_DL_";"
- +13 QUIT
- WPHONE(OOPSPHON,OOPSLC1,OOPSLC2) ;PRINT HOME PHONE
- +1 ;OOPSPHON - PHONE TO BE PRINTED
- +2 ;OOPSLC1 - (X,Y) LOCATION FOR AREA CODE
- +3 ;OOPSLC1 - (X,Y) LOCATION FOR PHONE NUMBER
- +4 if OOPSPHON=""
- QUIT
- NEW DL
- SET DL=$SELECT(FORM="CA-1":"#",FORM="CA-2":"@",1:"")
- if DL=""
- QUIT
- +5 IF $LENGTH(OOPSPHON,"-")>1
- WRITE !,"PU"_OOPSLC1_";LB"_$PIECE(OOPSPHON,"-")_DL_";PU"_OOPSLC2_";LB"_$PIECE(OOPSPHON,"-",2,9)_DL_";"
- +6 IF '$TEST
- WRITE !,"PU"_OOPSLC1_";LB"_$EXTRACT(OOPSPHON,1,3)_DL_";PU"_OOPSLC2_";LB"_$EXTRACT(OOPSPHON,4,18)_DL_";"
- +7 QUIT
- WKSCHDUL(SCHEDL,SUN,MON,TUE,WED,THU,FRI,SAT) ;PRINT WORK SCHEDULE
- +1 ;SCHEDL: WORK SCHEDULE
- +2 ;SUN - SAT: BOX (X,Y) LOCATION
- +3 if SCHEDL=""
- QUIT
- NEW DL
- SET DL=$SELECT(FORM="CA-1":"#",FORM="CA-2":"@",1:"")
- if DL=""
- QUIT
- +4 NEW II,JJ,KK,WKDAY
- +5 if SCHEDL=""
- QUIT
- FOR II=1:1:7
- SET WKDAY(II)=0
- +6 FOR II=1:1:$LENGTH(SCHEDL,",")
- Begin DoDot:1
- +7 SET JJ=$PIECE(SCHEDL,",",II)
- if +JJ'>0
- QUIT
- Begin DoDot:2
- +8 IF JJ["-"
- Begin DoDot:3
- +9 FOR KK=+$PIECE(JJ,"-"):1:+$PIECE(JJ,"-",2)
- SET WKDAY(KK)=1
- End DoDot:3
- +10 IF '$TEST
- SET WKDAY(+JJ)=1
- End DoDot:2
- End DoDot:1
- +11 FOR II=1:1:7
- IF WKDAY(II)=1
- Begin DoDot:1
- +12 WRITE !,$SELECT(II=1:"PU"_SUN_";LBX"_DL_";",II=2:"PU"_MON_";LBX"_DL_";",II=3:"PU"_TUE_";LBX"_DL_";",II=4:"PU"_WED_";LBX"_DL_";",II=5:"PU"_THU_";LBX"_DL_";",II=6:"PU"_FRI_";LBX"_DL_";",II=7:"PU"_SAT_";LBX"_DL_";",1:"")
- End DoDot:1
- +13 QUIT