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

ENPROJF.m

Go to the documentation of this file.
  1. ENPROJF ;WISC/SAB-Project Tracking Enter/Edit Form Code ;9/12/97
  1. ;;7.0;ENGINEERING;**28**;Aug 17, 1993
  1. Q
  1. BASEPR ;Block ENPRBASE pre-action
  1. ; set up variables used by DD screens of fields on block
  1. S ENFT=$$GET^DDSVAL(6925,DA,158)
  1. S ENPR=$$GET^DDSVAL(6925,DA,155)
  1. S ENPCI=$$GET^DDSVAL(6925,DA,158.1)
  1. ; check fields for applicability - If N/A then delete & make uneditable
  1. ; bonus category n/a?
  1. I "^NR^SL^"'[(U_ENPR_U) D PUT^DDSVAL(6925,DA,158.8,"@"),UNED^DDSUTL("BONUS","","",1)
  1. ; epa reportable n/a?
  1. I "NR"'=ENPR D PUT^DDSVAL(6925,DA,158.6,"@"),UNED^DDSUTL("EPAR","","",1)
  1. ; epa reporting category n/a?
  1. I $$GET^DDSVAL(6925,DA,158.6)'="Y" D PUT^DDSVAL(6925,DA,158.7,"@"),UNED^DDSUTL("EPAC","","",1)
  1. Q
  1. ;
  1. PRPSC ;Block ENPRBASE Field PROGRAM post-action on change
  1. ; check fields for applicability - If N/A then delete & make uneditable
  1. ; bonus category field?
  1. I "^NR^SL^"[(U_X_U) D UNED^DDSUTL("BONUS","","",0)
  1. I "^NR^SL^"'[(U_X_U) D PUT^DDSVAL(6925,DA,158.8,"@"),UNED^DDSUTL("BONUS","","",1)
  1. ; epa reportable field?
  1. I "NR"=X D UNED^DDSUTL("EPAR","","",0)
  1. I "NR"'=X D
  1. . D PUT^DDSVAL(6925,DA,158.6,"@"),UNED^DDSUTL("EPAR","","",1)
  1. . D PUT^DDSVAL(6925,DA,158.7,"@"),UNED^DDSUTL("EPAC","","",1)
  1. ; if existing program changed, delete project & budget categories
  1. I DDSOLD]"" D
  1. . N ENTXT
  1. . S ENTXT="Please enter appropriate Project and Budget Categories for the new Program."
  1. . D HLP^DDSUTL(.ENTXT)
  1. Q
  1. ;
  1. PCPSC ;Block ENPRBASE Field PROJECT CATEGORY post-action on change
  1. ; trigger budget catgory field
  1. I X]"",$G(ENPR)]"",$D(^OFM(7336.8,X,1))#10 D
  1. . N ENBC,ENBCI,ENTXT
  1. . S ENBCI=$P(^OFM(7336.8,X,1),U,$F("MA,MI,MM,NR,",ENPR)\3)
  1. . S ENBCI(0)=$$GET^DDSVAL(6925,DA,158.2)
  1. . Q:ENBCI=ENBCI(0)!'ENBCI
  1. . S ENBC(0)=$$GET^DDSVAL(6925,DA,158.2,"","E")
  1. . D PUT^DDSVAL(6925,DA,158.2,ENBCI,"","I")
  1. . S ENTXT="The Budget Category has automatically been changed to the default value for the new project category."
  1. . I ENBC(0)]"" S ENTXT=ENTXT_" (The previous value was "_ENBC(0)_")."
  1. . D HLP^DDSUTL(.ENTXT)
  1. Q
  1. ;
  1. RPNPSC ;Block ENPRCH Field 'Reload Previous Progress Note' postaction on change
  1. D:X
  1. . S ENOTE=$$GET^DDSVAL(6925,DA,146.1)
  1. . I ENOTE']"" D HLP^DDSUTL("Previous Progress Note not found.") Q
  1. . D PUT^DDSVAL(6925,DA,146,ENOTE)
  1. D PUT^DDSVALF("LOADNOTE","","","") ; clear form only field
  1. Q
  1. ;
  1. NHPR ;Page pre-action for pages contains blocks ENPRNHCU, ENPRNHCUCONV
  1. ; Inform user when this page must be populated
  1. N ENCAT,ENFT,ENPR
  1. S ENFT=$$GET^DDSVAL(6925,DA,158)
  1. S ENCAT="",ENPR=$$GET^DDSVAL(6925,DA,155)
  1. I "^NR^SL^"[(U_ENPR_U) S ENCAT=$$GET^DDSVAL(6925,DA,158.8,"","E")
  1. I "^MA^MI^MM^"[(U_ENPR_U) S ENCAT=$$GET^DDSVAL(6925,DA,158.1,"","E")
  1. I ENFT'="VHA"!(ENCAT'["NHCU") D HLP^DDSUTL("This page is optional since the project category is not NHCU.")
  1. I ENFT="VHA",ENCAT["NHCU" D HLP^DDSUTL("The NHCU data must be entered since the project category is NHCU.")
  1. Q
  1. ;
  1. MSL(DA) ; Milestone List Extrinsic Function
  1. ; Returns value with pieces (true/false) which indicate applicability
  1. ; of the corresponding 22 milestones
  1. N ENAM,ENCM,ENCAF,ENPR,ENX
  1. S ENPR=$$GET^DDSVAL(6925,DA,155) ; program
  1. S ENAM=$$GET^DDSVAL(6925,DA,7,"","E") ; a/e (design) method
  1. S ENCM=$$GET^DDSVAL(6925,DA,8,"","E") ; construction method
  1. S ENCAF=$$GET^DDSVAL(6925,DA,4,"","E") ; construction approved funding
  1. D MSLAP^ENPRUTL
  1. Q ENX
  1. ;
  1. ;ENPROJF