source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENARY201.m@ 767

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

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1ENARX201 ;(WASH ISC)/SAW/DH-2162 Archive ;2.23.98
2 ;;7.0;ENGINEERING;**48**;Aug 17, 1993
3 F I=1:1 S X=$T(Q+I) Q:X="" S Y=$P(X,"=",2,99),X=$P($E(X,4,99),"=",1) S:X="" X=$P(Y,"=",1),Y=%_$P(Y,"=",2,99) X NO E S @X=Y
4Q Q
5 ;;^DIC(6919.2,0,"DD")=@
6 ;;^DIC(6919.2,0,"GL")=^ENAR(6919.2,
7 ;;^DIC(6919.2,0,"WR")=@
8 ;;^DIC("B","2162 ACCIDENT ARCHIVE",6919.2)=
9 ;;^DD(6919.2,0)=FIELD^^57.5^62
10 ;;^DD(6919.2,0,"IX","B",6919.2,.01)=
11 ;;^DD(6919.2,0,"NM","2162 ACCIDENT ARCHIVE")=
12 ;;^DD(6919.2,.01,0)=LOCAL ENGINEERING #^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<6)!(X'?.ANP) X
13 ;;^DD(6919.2,.01,1,0)=^.1
14 ;;^DD(6919.2,.01,1,1,0)=6919.2^B
15 ;;^DD(6919.2,.01,1,1,1)=S ^ENAR(6919.2,"B",$E(X,1,30),DA)=""
16 ;;^DD(6919.2,.01,1,1,2)=K ^ENAR(6919.2,"B",$E(X,1,30),DA)
17 ;;^DD(6919.2,.01,3)=8 digits (YYYYNNNN), where YYYY => Fiscal Year.
18 ;;^DD(6919.2,1,0)=CASE NUMBER^F^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X
19 ;;^DD(6919.2,1,1,0)=^.1^^0
20 ;;^DD(6919.2,1,3)=ANSWER MUST BE 4 DIGITS IN LENGTH
21 ;;^DD(6919.2,1,"DT")=2860915
22 ;;^DD(6919.2,2,0)=REPORT TYPE^S^I:INITIAL;S:SUPPLEMENTAL;C:CORRECTED;^0;3^Q
23 ;;^DD(6919.2,3,0)=RESULT^S^P:PROPERTY ONLY;I:INJURY or ILLNESS;B:BOTH;^0;4^Q
24 ;;^DD(6919.2,4,0)=ACCIDENT CLASS^S^A:MOTOR VEHICLE;B:LABORATORY;C:OFFICE;G:ASSEMBLY;J:PATIENT CARE;L:STORAGE;M:GROUNDS;N:DIETETICS;Z:OTHER;^0;5^Q
25 ;;^DD(6919.2,5,0)=OCCURRENCE DATE^D^^0;6^S %DT="EX" D ^%DT S X=Y K:3000000<X!(2800000>X) X
26 ;;^DD(6919.2,5,3)=TYPE A DATE BETWEEN 1980 AND 2000
27 ;;^DD(6919.2,6,0)=OCCURRENCE TIME^F^^0;7^K:$L(X)>4!($L(X)<4)!'(X?4N) X
28 ;;^DD(6919.2,6,3)=ENTER MILITARY TIME (0000-2400 HRS.)
29 ;;^DD(6919.2,7,0)=SITE^S^A:ON REPORTING ACTIVITY PROPERTY;B:OFF REPORTING ACTIVITY PROPERTY;^0;8^Q
30 ;;^DD(6919.2,7.5,0)=SPECIFIC LOCATION^F^^0;9^K:$L(X)>25!($L(X)<4) X
31 ;;^DD(6919.2,7.5,3)=ANSWER MUST BE 4-25 CHARACTERS IN LENGTH
32 ;;^DD(6919.2,8,0)=TORT CLAIM^S^Y:YES, IS POSSIBLE;N:NO, NOT POSSIBLE;^0;10^Q
33 ;;^DD(6919.2,9,0)=LAST NAME OF INVOLVED^F^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?.C) X
34 ;;^DD(6919.2,9,1,0)=^.1^^0
35 ;;^DD(6919.2,9,3)=ANSWER MUST BE LAST NAME, 3-16 CHARACTERS IN LENGTH
36 ;;^DD(6919.2,9,"DT")=2860915
37 ;;^DD(6919.2,10,0)=FIRST/MIDDLE INITIALS^F^^1;2^K:$L(X)>2!($L(X)<1)!'(X?.A) X
38 ;;^DD(6919.2,10,3)=ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
39 ;;^DD(6919.2,11,0)=SSN^FO^^1;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'(X?9N."P") X
40 ;;^DD(6919.2,11,1,0)=^.1^^0
41 ;;^DD(6919.2,11,2)=S Y(0)=Y X ^DD(6919.2,11,2,9.2) S Y(7)=X S X=6,Y(8)=X S X=9,X=$E(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y S Y=X
42 ;;^DD(6919.2,11,2,9.2)=S X=Y(0),Y(1)=X S X=1,Y(2)=X S X=3,X=$E(Y(1),Y(2),X)_"-",Y(3)=X S X=Y(0),Y(4)=X S X=4,Y(5)=X S X=5,X=$E(Y(4),Y(5),X) S Y=X,X=Y(3),X=X_Y_"-",Y(6)=X S X=Y(0)
43 ;;^DD(6919.2,11,2.1)=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)
44 ;;^DD(6919.2,11,3)=ANSWER MUST BE 9DIGITS IN LENGTH, AFFIX 'P' FOR PSEUDO IF UNSURE
45 ;;^DD(6919.2,11,"DT")=2860915
46 ;;^DD(6919.2,12,0)=SEX^S^M:MALE;F:FEMALE;^1;4^Q
47 ;;^DD(6919.2,13,0)=PERSONNEL STATUS^S^A:EMPLOYEE;B:VOLUNTEER;C:CONTRACTOR;D:INPATIENT;E:OUTPATIENT;F:STUDENT;G:VISITOR;Z:PERSON N.E.C.;^1;5^Q
48 ;;^DD(6919.2,13,3)=SELECT CODE, N.E.C. MEANS NOT ELSEWHERE CLASSIFIED
49 ;;^DD(6919.2,14,0)=AGE^NJ2,0^^1;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
50 ;;^DD(6919.2,14,3)=TYPE A WHOLE NUMBER BETWEEN 1 AND 99
51 ;;^DD(6919.2,15,0)=PAY PLAN^F^^1;7^K:$L(X)>2!($L(X)<2)!'(X?2A) X
52 ;;^DD(6919.2,15,3)=ANSWER MUST BE 2 CHARACTERS IN LENGTH, (e.g. GS, WG, WS, etc.)
53 ;;^DD(6919.2,16,0)=OCCUPATIONAL CODE^F^^1;8^K:$L(X)>5!($L(X)<5)!'(X?5N) X
54 ;;^DD(6919.2,16,3)=ANSWER MUST BE 5 DIGITS IN LENGTH, (e.g. 00858)
55 ;;^DD(6919.2,17,0)=GRADE^F^^1;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X
56 ;;^DD(6919.2,17,3)=ANSWER MUST BE 2 DIGITS IN LENGTH, (e.g. 07)
57 ;;^DD(6919.2,18,0)=HOME ADDRESS^6919.21^^2;0
58 ;;^DD(6919.2,19,0)=HOME PHONE #^F^^3;1^K:$L(X)>12!($L(X)<7)!'(X'?.C) X
59 ;;^DD(6919.2,19,3)=ANSWER MUST BE 7-12 CHARACTERS IN LENGTH (e.g. 215-555-1212)
Note: See TracBrowser for help on using the repository browser.