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

ENPROJ.m

Go to the documentation of this file.
  1. ENPROJ ;(WIRMFO)/DLM/DH/SAB-Project Tracking Enter/Edit ;4/25/97
  1. ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
  1. ;
  1. EDALLT ;Enter/Edit All Project Data - Template
  1. S ENDR="[ENPRI001]" G TEMPL
  1. ;
  1. EDALLS ;Enter/Edit All Project Data - Screen
  1. S ENDR="[ENPR ALL]" G SCREEN
  1. ;
  1. EDPREL ;Enter/Edit Preliminary Project Data - Screen
  1. S ENDR="[ENPR PRELIM]" G SCREEN
  1. ;
  1. EDMS ;Enter/Edit Milestone Data - Screen
  1. S ENDR="[ENPR MS]" G SCREEN
  1. ;
  1. EDAE ;Enter/Edit A/E Data - Screen
  1. S ENDR="[ENPR AE]" G SCREEN
  1. ;
  1. EDCO ;Enter/Edit Contractor Data - Screen
  1. S ENDR="[ENPR CO]" G SCREEN
  1. ;
  1. EDCHG ;Enter/Edit Changes & Remarks - Screen
  1. S ENDR="[ENPR CHG]" G SCREEN
  1. ;
  1. EDLOCAL ;Enter/Edit Local Project Data - Template
  1. S ENDR=$S($D(^DIE("B","ENZPRLOCAL")):"[ENZ",1:"[EN")_"PRLOCAL]" G TEMPL
  1. ;
  1. TEMPL ; called for input template edits
  1. ; input
  1. ; ENDR - name of template
  1. D ASKPROJ G:'ENDA TEMPLX
  1. S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENDR
  1. D ^DIE K DIE,DR
  1. I '$D(DTOUT),$D(^ENG("PROJ",ENDA,0)) D VALPROJ
  1. L -^ENG("PROJ",ENDA)
  1. I '$D(DTOUT),'$D(DUOUT) G TEMPL
  1. TEMPLX ; exit
  1. K DA,DIC,DIE,DIROUT,DIRUT,DR,DUOUT,DTOUT,X,Y
  1. K ENAMI,ENAY,ENBC,ENBCI,ENBO,ENBOI,ENCAF,ENCMI,ENCY,ENDA,ENDR
  1. K ENFT,ENPC,ENPCI,ENPN,ENPR,ENRY
  1. Q
  1. ;
  1. SCREEN ; called for screen edits
  1. ; input
  1. ; ENDR - name of form
  1. D ASKPROJ G:'ENDA SCREENX
  1. S DDSFILE=6925,DA=ENDA,DR=ENDR,DDSPARM="S"
  1. D ^DDS
  1. I $G(DDSSAVE),'$D(DTOUT),$D(^ENG("PROJ",ENDA,0)) D VALPROJ
  1. L -^ENG("PROJ",ENDA)
  1. I '$D(DTOUT),'$D(DUOUT) G SCREEN
  1. SCREENX ; exit
  1. K DA,DIC,DIE,DIROUT,DIRUT,DR,DUOUT,DTOUT,X,Y
  1. K DDSFILE,DDSPAGE,DDSPARM,DDSSAVE
  1. K ENDA,ENDR,ENPN
  1. Q
  1. ;
  1. ASKPROJ ; Ask project to edit
  1. ; output
  1. ; ENDA - ien of locked project (or null)
  1. S ENDA=""
  1. S DIC="^ENG(""PROJ"",",DIC(0)="AELMQ",DIC("A")="Select PROJECT NUMBER: "
  1. S DLAYGO=6925 D ^DIC K DIC,DLAYGO I Y'>0!$D(DTOUT)!$D(DUOUT) Q
  1. L +^ENG("PROJ",+Y):5 I '$T D Q
  1. . W $C(7),!!,"Project is locked by another user. Please try later",!
  1. S ENDA=+Y,ENPN=$P(Y,U,2)
  1. I $P(Y,U,3)=1 D
  1. . ; populate fields for new project
  1. . N DA,DR,DIE,ENMCI
  1. . S ENMCI=$$FIND1^DIC(4,"","O",$P(ENPN,"-"),"D")
  1. . S DR=""
  1. . S:ENMCI DR=DR_";3///^S X=ENMCI"
  1. . S:"4567"[$E(ENPN) DR=DR_";158///VHA"
  1. . S:"89"[$E(ENPN) DR=DR_";158///NCS"
  1. . I $E(DR)=";" S DR=$E(DR,2,999)
  1. . I DR]"" S DIE="^ENG(""PROJ"",",DA=ENDA D ^DIE
  1. Q
  1. ;
  1. VALPROJ ; Validate edited project
  1. ; input
  1. ; ENDA - ien of project
  1. ; ENPN - project number
  1. S ^TMP($J,"L")=1,^TMP($J,"L",ENPN)=ENDA
  1. D EN^ENPLV("R")
  1. K ^TMP($J,"L")
  1. Q
  1. ;
  1. ;ENPROJ