Routine: OOPSPUT1

Information

OOPSPUT1 ;HIRMFO/YH-ACCIDENT FORM UTILITIES ;4/24/98

Name	Comments	DBIA/ICR reference
WDATE(OOPSDT,OOPSLC1,OOPSLC2,OOPSLC3)	;PRINT MONTH,DAY,YEAR
WTIME(OOPSTM,OOPSAM,OOPSPM,OOPSLC1,OOPSLC2)	;PRINT TIME
WPHONE(OOPSPHON,OOPSLC1,OOPSLC2)	;PRINT HOME PHONE
WKSCHDUL(SCHEDL,SUN,MON,TUE,WED,THU,FRI,SAT)	;PRINT WORK SCHEDULE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PU"_OOPSLC1_";LB"_$E(OOPSDT,4,5)_DL_";PU"_OOPSLC2_";LB"_$E(OOPSDT,6,7)_DL_";PU"_OOPSLC3_";LB"_$E(OOPSDT,2,3)_DL_";" Line Location: WDATE+6
Function Call: WRITE	Prompt: !,"PU"_OOPSPM_";LBX"_DL_";" Line Location: WTIME+10
Function Call: WRITE	Prompt: !,"PU"_OOPSAM_";LBX"_DL_";" Line Location: WTIME+11
Function Call: WRITE	Prompt: !,"PU"_OOPSLC1_";LB"_OOPSHR_DL_";PU"_OOPSLC2_";LB"_$E(OOPSTM,3,4)_DL_";" Line Location: WTIME+12
Function Call: WRITE	Prompt: !,"PU"_OOPSLC1_";LB"_$P(OOPSPHON,"-")_DL_";PU"_OOPSLC2_";LB"_$P(OOPSPHON,"-",2,9)_DL_";" Line Location: WPHONE+5
Function Call: WRITE	Prompt: !,"PU"_OOPSLC1_";LB"_$E(OOPSPHON,1,3)_DL_";PU"_OOPSLC2_";LB"_$E(OOPSPHON,4,18)_DL_";" Line Location: WPHONE+6
Function Call: WRITE	Prompt: !,$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:"") Line Location: WKSCHDUL+12