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

ENPLV2.m

Go to the documentation of this file.
  1. ENPLV2 ;(WIRMFO)/SAB-PROJECT VALIDATION, VALIDATE ONE ENTRY ;1/27/98
  1. ;;7.0;ENGINEERING;**23,28,49**;Aug 17, 1993
  1. IN ; entry point to validate file 6925 entry
  1. ; input variables
  1. ; ENDA - ien
  1. ; ENTY - type of validation
  1. ; F - Five Year Facility Plan
  1. ; A - Application
  1. ; R - Progress Report
  1. ; ENFY - current year of FYFP (only applies if ENTY="F")
  1. ; ENXMIT - true if transmission checks should be done
  1. ; output variables
  1. ; ENV - result
  1. ; 1 - invalid
  1. ; 2 - valid with warnings
  1. ; 3 - valid
  1. ; ^TMP($J,"V",ENDA,1,ENL(ENS),0) = invalid detail text (if any)
  1. ; ^TMP($J,"V",ENDA,2,ENL(ENS),0) = warning detail text (if any)
  1. ;
  1. N ENBCI,ENFT,ENI,ENL,ENMCI,ENMSG,ENPCI,ENPN,ENPR,ENS,ENSTATI,ENX
  1. N ENY,ENY0,ENY1,ENY19,ENY52
  1. ;
  1. K ^TMP($J,"V",ENDA)
  1. S (ENL(1),ENL(2))=0
  1. S ENV=3 ; assume valid
  1. ;
  1. S ENY0=$G(^ENG("PROJ",ENDA,0)),ENY1=$G(^ENG("PROJ",ENDA,1))
  1. S ENY19=$G(^ENG("PROJ",ENDA,19)),ENY52=$G(^ENG("PROJ",ENDA,52))
  1. S ENPN=$P(ENY0,U) ; project number
  1. S ENMCI=$P(ENY0,U,4) ; medical center
  1. S ENPR=$P(ENY0,U,6) ; program
  1. S ENSTATI=$P(ENY1,U,3) ; status
  1. S ENPCI=$P(ENY52,U) ; project category
  1. S ENBCI=$P(ENY52,U,2) ; budget category
  1. S ENFT=$P(ENY52,U,6) ; facility type
  1. ;
  1. ; check required fields
  1. I $P(ENY0,U)="" S ENS=1,ENMSG="PROJECT NUMBER is required." D MSG
  1. I $P(ENY0,U,3)="" S ENS=1,ENMSG="PROJECT TITLE is required." D MSG
  1. I $P(ENY0,U,4)="" S ENS=1,ENMSG="MEDICAL CENTER is required." D MSG
  1. I $P(ENY1,U,3)="" S ENS=1,ENMSG="STATUS is required." D MSG
  1. I $P(ENY0,U,6)="" S ENS=1,ENMSG="PROGRAM is required." D MSG
  1. I $P(ENY52,U,6)="" S ENS=1,ENMSG="FACILITY TYPE is required." D MSG
  1. I $P(ENY52,U,1)="" S ENS=1,ENMSG="PROJECT CATEGORY is required." D MSG
  1. I $P(ENY52,U,2)="" S ENS=1,ENMSG="BUDGET CATEGORY is required." D MSG
  1. ;
  1. I ENPN]"" D ; project number checks
  1. . I ENMCI]"" D
  1. . . S ENX=$E($$GET1^DIQ(4,ENMCI_",",99),1,3)
  1. . . I $P(ENPN,"-")'=ENX S ENS=2,ENMSG="MEDICAL CENTER's STATION NUMBER ("_ENX_") inconsistent with PROJECT NUMBER ("_ENPN_")." D MSG
  1. . I ENPR]"" D
  1. . . I "^NR^SL^LE^"[(U_ENPR_U),$L(ENPN,"-")'=3 S ENS=1,ENMSG="PROGRAM ("_ENPR_") inconsistent with format of PROJECT NUMBER ("_ENPN_")." D MSG
  1. . . I "^MA^MI^MM^"[(U_ENPR_U),$L(ENPN,"-")'=2 S ENS=1,ENMSG="PROGRAM ("_ENPR_") inconsistent with format of PROJECT NUMBER ("_ENPN_")." D MSG
  1. . I ENFT]"" D
  1. . . I "89"[$E(ENPN),ENFT'="NCS" S ENS=1,ENMSG="FACILITY TYPE is not NCS but PROJECT NUMBER begins with "_$E(ENPN)_"." D MSG
  1. . . I "89"'[$E(ENPN),ENFT="NCS" S ENS=1,ENMSG="FACILITY TYPE is NCS but PROJECT NUMBER begins with "_$E(ENPN)_"." D MSG
  1. ;
  1. I ENFT]"" D ; facility type checks
  1. . I ENPR]"" D
  1. . . I ENFT="NCS","^MA^MI^SL^LE^"'[(U_ENPR_U) S ENS=1,ENMSG="PROGRAM ("_ENPR_") inconsistent with FACILITY TYPE ("_ENFT_")." D MSG
  1. . . I ENFT="VHA","^MA^MI^MM^NR^SL^LE^"'[(U_ENPR_U) S ENS=1,ENMSG="PROGRAM ("_ENPR_") inconsistent with FACILITY TYPE ("_ENFT_")." D MSG
  1. . . I ENFT="VBA","^MI^MM^NR^LE^"'[(U_ENPR_U) S ENS=1,ENMSG="PROGRAM ("_ENPR_") inconsistent with FACILITY TYPE ("_ENFT_")." D MSG
  1. . I ENPCI]"" D
  1. . . S ENX=$G(^OFM(7336.8,ENPCI,0)) I $P(ENX,U,6)'[ENFT S ENS=1,ENMSG="PROJECT CATEGORY ("_$P(ENX,U)_") inconsistent with FACILITY TYPE ("_ENFT_")." D MSG
  1. . I ENBCI]"" D
  1. . . S ENX=$G(^OFM(7336.9,ENBCI,0)) I $P(ENX,U,3)'[ENFT S ENS=1,ENMSG="BUDGET CATEGORY ("_$P(ENX,U)_") inconsistent with FACILITY TYPE ("_ENFT_")." D MSG
  1. ;
  1. D ^ENPLV3
  1. D:ENTY="F" ^ENPLV4
  1. D:ENTY="A" ^ENPLV5
  1. D:ENTY="R" ^ENPLV7
  1. ;
  1. EX ;
  1. S:ENL(1) ^TMP($J,"V",ENDA,1,0)=U_U_ENL(1)_U_ENL(1)_U_DT
  1. S:ENL(2) ^TMP($J,"V",ENDA,2,0)=U_U_ENL(2)_U_ENL(2)_U_DT
  1. Q
  1. MSG ; save message
  1. ; ENL(ENS) - last line used in array
  1. ; ENMSG - messsage
  1. ; ENS - severity (1,2) 1 invalid, 2 warning
  1. I ENV>ENS S ENV=ENS
  1. S ENL(ENS)=ENL(ENS)+1,^TMP($J,"V",ENDA,ENS,ENL(ENS),0)=ENMSG
  1. Q
  1. ;ENPLV2