source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENEQP1.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 544 bytes
Line 
1ENEQP1 ;(WASH ISC)/DH-Actual SET in Equipment History Sub-file ;1.14.98
2 ;;7.0;ENGINEERING;**48**;Aug 17, 1993
3 S ENDTCP=DT,X1="XX"
4 I ENACTN>0,$P(^ENG(6920.1,ENACTN,0),U,2)]"" S X1=$P(^(0),U,2)
5 S ENH=ENDTCP_"-"_X1_U_ENREF_U_ENSTAT_U_ENHRS_U_ENLABOR_U_ENMATRL_U_ENVNDR_U_ENEMP_U_ENWORK
6 I ENTMPLT,NUMBER>0 D Q
7 . F %=0:0 S %=$O(^DIBT(NUMBER,1,%)) Q:%'>0 D RECORD
8 . K ENINV,ENDTCP,ENH,X1
9 F %=0:0 S %=$O(^TMP($J,%)) Q:%'>0 D RECORD
10 K ENINV,ENDTCP,ENH,X1
11 Q
12 ;
13RECORD ;Get sub-node and SET it
14 S ENINV=% W !,ENINV
15 D EXT^ENEQHS
16 Q
17 ;ENEQP1
Note: See TracBrowser for help on using the repository browser.