| [613] | 1 | ENPLUTL ;WISC/SAB-PROJECT PLANNING UTILITIES ;6/8/94
|
|---|
| 2 | ;;7.0;ENGINEERING;**11**;Aug 17, 1993
|
|---|
| 3 | Q
|
|---|
| 4 | POSTCL(ENDA,ENAR,ENSKIP) ; Post Text to Communication Log
|
|---|
| 5 | ; ENDA - ien of project in file #6925
|
|---|
| 6 | ; ENAR - closed root of text array (array has positive numbered nodes)
|
|---|
| 7 | ; ENSKIP - optional number of lines to skip before text (defaults to 1)
|
|---|
| 8 | N ENLC,ENWPLC,ENX
|
|---|
| 9 | S ENAR=$S($E(ENAR,$L(ENAR))=")":$E(ENAR,1,$L(ENAR)-1)_",",$E(ENAR,$L(ENAR))'="(":ENAR_"(",1:ENAR)
|
|---|
| 10 | S ENSKIP=$G(ENSKIP) S:ENSKIP'=+ENSKIP\1 ENSKIP=1
|
|---|
| 11 | S ENWPLC=$P($G(^ENG("PROJ",ENDA,80,0)),U,3)
|
|---|
| 12 | F Q:'$D(^ENG("PROJ",ENDA,80,ENWPLC+1,0)) S ENWPLC=ENWPLC+1
|
|---|
| 13 | S ENLC=0
|
|---|
| 14 | I ENSKIP F ENLC=1:1:ENSKIP S ^ENG("PROJ",ENDA,80,ENWPLC+ENLC,0)=" "
|
|---|
| 15 | S ENX="" F S ENX=$O(@(ENAR_"ENX)")) Q:ENX="" D
|
|---|
| 16 | . S ENLC=ENLC+1
|
|---|
| 17 | . S ^ENG("PROJ",ENDA,80,ENWPLC+ENLC,0)=@(ENAR_"ENX)")
|
|---|
| 18 | S ENWPLC=ENWPLC+ENLC
|
|---|
| 19 | S $P(^ENG("PROJ",ENDA,80,0),U,3,5)=ENWPLC_U_ENWPLC_U_$P(DT,".")
|
|---|
| 20 | Q
|
|---|
| 21 | LTZ() ; Local TimeZone Extrinsic Variable
|
|---|
| 22 | ; Returns 3 character local timezone
|
|---|
| 23 | N D0,DA,DIC,DIQ,DR,ENDIQ,Y
|
|---|
| 24 | S DA=$O(^XMB(1,0)) Q:'DA ""
|
|---|
| 25 | S DIC=4.3,DIQ="ENDIQ(",DIQ(0)="E",DR=1
|
|---|
| 26 | D EN^DIQ1
|
|---|
| 27 | Q ENDIQ(4.3,DA,1,"E")
|
|---|
| 28 | FDT(ENDTI) ; Formatted Date/Time Extrinsic Function
|
|---|
| 29 | ; ENDTI - internal FileMan date
|
|---|
| 30 | ; Returns date/time in mm/dd/yy hh:mm format
|
|---|
| 31 | N ENDTE,ENT
|
|---|
| 32 | S ENT=$P(ENDTI,".",2)_$E("000000",1,6-$L($P(ENDTI,".",2)))
|
|---|
| 33 | S ENDTE=$E(ENDTI,4,5)_"/"_$E(ENDTI,6,7)_"/"_$E(ENDTI,2,3)
|
|---|
| 34 | S ENDTE=ENDTE_" "_$E(ENT,1,2)_":"_$E(ENT,3,4)
|
|---|
| 35 | Q ENDTE
|
|---|
| 36 | TZD(ENLTZ,ENRTZ) ; Timezone Difference Extrinsic Function
|
|---|
| 37 | ; ENLTZ - first 3 character timezone (normally local timezone)
|
|---|
| 38 | ; ENRTZ - second 3 character timezone (normally remote timezone)
|
|---|
| 39 | ; Returns difference in hours
|
|---|
| 40 | ; result could be added to remote time to convert it to local time
|
|---|
| 41 | N D0,DA,DIC,DIQ,DR,ENDIQ,ENLTZDA,ENRTZDA,X,Y
|
|---|
| 42 | I '$D(ENLTZ)!'$D(ENRTZ) Q ""
|
|---|
| 43 | S DIC=4.4,DIC(0)="X",X=ENLTZ D ^DIC Q:Y<0 "" S ENLTZDA=+Y
|
|---|
| 44 | S DIC=4.4,DIC(0)="X",X=ENRTZ D ^DIC Q:Y<0 "" S ENRTZDA=+Y
|
|---|
| 45 | S DIC=4.4,DR=2,DIQ="ENDIQ(",DIQ(0)="E"
|
|---|
| 46 | S DA=ENLTZDA D EN^DIQ1
|
|---|
| 47 | S DA=ENRTZDA D EN^DIQ1
|
|---|
| 48 | Q ENDIQ(4.4,ENLTZDA,2,"E")-ENDIQ(4.4,ENRTZDA,2,"E")
|
|---|
| 49 | PPDOM ; Determine Domain for project planning transmissions
|
|---|
| 50 | N D0,DA,DIC,DIQ,DR,ENDIQ,X
|
|---|
| 51 | S DA=$O(^DIC(6910,0)),DIC=6910,DIQ="ENDIQ(",DIQ(0)="E",DR=100
|
|---|
| 52 | D EN^DIQ1
|
|---|
| 53 | S ENDOMAIN=$G(ENDIQ(6910,DA,100,"E"))
|
|---|
| 54 | I ENDOMAIN']"" W !,"Domain not found in PROJECT PLANNING ROLLUP DOMAIN (#100) field",!,"of the ENG INIT PARAMETERS (#6910) file. Transmission aborted!",!! R "Press RETURN to Continue",X:DTIME
|
|---|
| 55 | Q
|
|---|
| 56 | ;ENPLUTL
|
|---|
