Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENLIB

ENLIB.m

Go to the documentation of this file.
  1. ENLIB ;(WASH ISC)/JED/SAW/DH-Package Utilities ;2.17.98
  1. ;;7.0;ENGINEERING;**35,45,47,48**;Aug 17, 1993
  1. ;
  1. ENOUT ;ENGINEERING OUTPUT PORT SELECTOR DLM/WASH; 27 JUL 84 8:01 AM
  1. DEV ;DEVICE SELECTION ;devices may be suppressed from listing
  1. W !!,"Select output device: ",!,?3,"RETURN",?13,"DISPLAY"
  1. I '$D(ENXP("NOLIST")) S ENOT="" F S ENOT=$O(^DIC(6910.1,"B",ENOT)) Q:ENOT="" S ENOT(0)=$O(^(ENOT,0)) D:ENOT(0)
  1. . I '$P(^DIC(6910.1,ENOT(0),0),U,4) W !,?3,$P(^(0),U,2),?13,$P(^(0),U,3)
  1. K ENOT,IO("Q") W ! S %ZIS("B")="HOME",%ZIS="MQ" D ^%ZIS Q
  1. DEVSHOW ;DEVICE SELECTION
  1. W !!,"Select output device: ",!,?3,"RETURN",?13,"DISPLAY"
  1. S ENOT="" F I=1:1 S ENOT=$O(^DIC(6910.1,"B",ENOT)) Q:ENOT="" W !,?3,$P(^DIC(6910.1,$O(^DIC(6910.1,"B",ENOT,"")),0),"^",2),?13,$P(^(0),"^",3)
  1. K ENOT,I W ! S %ZIS("B")="HOME" Q
  1. ;
  1. ;SAW/WASH ; 28 AUG 84 6:14 pm
  1. FYS ;SELECT FISCAL YEAR AND QUARTER THEN SELECT DEVICE
  1. S ENFYT("I")=$E(DT,1,3) I $E(DT,4,7)>1000 S ENFYT("I")=ENFYT("I")+1
  1. S I=+$E(DT,4,5),ENFYT=$E(ENFYT("I"),2,3),ENQTT=$P("2^2^2^3^3^3^4^4^4^1^1^1","^",I)
  1. FYS1 W !,"SELECT FISCAL YEAR: ",ENFYT,"//" R ENFY:DTIME G EXIT:'$T S:ENFY="" ENFY=ENFYT G:ENFY="^" EXIT I ENFY'?2N G FYS1
  1. QTRS W !,"SELECT QUARTER: ",ENQTT,"//" R ENQT:DTIME G EXIT:'$T S:ENQT="" ENQT=ENQTT G:ENQT="^" EXIT I ENQT<1!(ENQT>4) G QTRS
  1. K ENFYT,ENQTT G DEV
  1. ;
  1. FYSONLY ;SELECT FISCAL YEAR AND QUARTER
  1. S ENFYT("I")=$E(DT,1,3) I $E(DT,4,7)>1000 S ENFYT("I")=ENFYT("I")+1
  1. S ENFYT=$E(ENFYT("I"),2,3)
  1. FYS1ON W !,"SELECT FISCAL YEAR: ",ENFYT," //" R ENFY:DTIME G EXIT:'$T S:ENFY="" ENFY=ENFYT G:ENFY="^" EXIT I ENFY'?2N G FYS1ON
  1. K ENFYT Q
  1. ;
  1. FYQTS ;SELECT FISCAL YEAR AND QUARTER ONLY
  1. S ENFYT("I")=$E(DT,1,3) I $E(DT,4,7)>1000 S ENFYT("I")=ENFYT("I")+1
  1. S I=+$E(DT,4,5),ENFYT=$E(ENFYT("I"),2,3),ENQTT=$P("2^2^2^3^3^3^4^4^4^1^1^1","^",I)
  1. FYQTS1 W !,"SELECT FISCAL YEAR: ",ENFYT,"//" R ENFY:DTIME G EXIT:'$T S:ENFY="" ENFY=ENFYT G:ENFY="^" EXIT I ENFY'?2N G FYQTS1
  1. QTS W !,"SELECT QUARTER: ",ENQTT,"//" R ENQT:DTIME G EXIT:'$T S:ENQT="" ENQT=ENQTT G:ENQT="^" EXIT I ENQT<1!(ENQT>4) G QTS
  1. K ENFYT,ENQTT Q
  1. EXIT K ENFYT,ENFY,ENQTT,ENQT Q
  1. ;
  1. ROUND ;Round off number
  1. ;Number in X
  1. ;Dec places in X(0)
  1. S ENA=$P(X,".",1),ENB=$P(X,".",2) I X(0)=0 S Y=ENA G DNRND
  1. I $L(ENB)'>X(0) S Y=ENA_"."_ENB G DNRND
  1. S X(1)=$E(ENB,X(0)) I $E(ENB,X(0)+1)>4 S X(1)=X(1)+1
  1. S Y=ENA_"."_$E(ENB,1,(X(0)-1))_X(1)
  1. DNRND K ENA,ENB,X
  1. Q
  1. ;
  1. ROOM ; Check for allowable format
  1. N X1
  1. S X1=$TR($P(X,"-"),"e","E") Q:X1?.NUP
  1. D EN^DDIOL(" ROOM is not in proper format.") K X
  1. Q
  1. ;
  1. BLDG ; Called when BUILDING is not in the file
  1. N X1
  1. S X1(1)=" The BUILDING (including DIVISION, if applicable) portion of the ROOM"
  1. S X1(2)=" NUMBER must be defined in your Building File (6928.3) before this ROOM"
  1. S X1(3)=" NUMBER may be added to your Space File."
  1. S X1(4)=" In this case, "_$P(X,"-",2,3)_" does not appear to be in your Building File."
  1. D EN^DDIOL(.X1)
  1. Q
  1. ;
  1. VENPRE ; Vendor pre-action from ENG DJ screen handler
  1. ; DA => IEN for file 6914
  1. ; Needed because post-action on acquisition won't execute on deletes
  1. ;
  1. I $P($G(^ENG(6914,DA,3)),U,4)="L",$P($G(^(2)),U,3)]"" S DJNX=12,V(14)="",$P(^(2),U,3)="",DJSV=V D N^ENJDPL S V=DJSV ;clear asset value if LEASE
  1. I "^L^M^"'[(U_$P($G(^ENG(6914,DA,3)),U,4)_U),$P($G(^(2)),U,12)]"" S DJNX=12,V(13)="",$P(^(2),U,12)="",DJSV=V D N^ENJDPL S V=DJSV ;clear lease cost if not LEASE or CAPITAL LEASE
  1. Q
  1. ;
  1. X ;EXIT FOR THE INCONSISTENT RESPONSE
  1. W *7,!,"TRY LATER"
  1. Q ;EXIT POINT
  1. K %,%DT,%X,%Y,DQTIME,J,X,Y,ZTSK Q
  1. ;ENLIB