©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AEFIN001 ; ; 27-FEB-2004
;;1.0;ANNETEST;;FEB 27, 2004
Q:'DIFQ(1991212) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DIC(1991212,0,"GL")
;;=^DIZ(1991212,
;;^DIC("B","AEF EMPLOYEE",1991212)
;;=
;;^DD(1991212,0)
;;=FIELD^^11^12
;;^DD(1991212,0,"DDA")
;;=N
;;^DD(1991212,0,"DT")
;;=3040202
;;^DD(1991212,0,"ID",1)
;;=W " ",$P(^(0),U,2)
;;^DD(1991212,0,"IX","B",1991212,.01)
;;=
;;^DD(1991212,0,"IX","C",1991212,1)
;;=
;;^DD(1991212,0,"IX","D",1991212.09,.01)
;;=
;;^DD(1991212,0,"NM","AEF EMPLOYEE")
;;=
;;^DD(1991212,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
;;^DD(1991212,.01,1,0)
;;=^.1
;;^DD(1991212,.01,1,1,0)
;;=1991212^B
;;^DD(1991212,.01,1,1,1)
;;=S ^DIZ(1991212,"B",$E(X,1,30),DA)=""
;;^DD(1991212,.01,1,1,2)
;;=K ^DIZ(1991212,"B",$E(X,1,30),DA)
;;^DD(1991212,.01,3)
;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
;;^DD(1991212,1,0)
;;=SSN^NJ9,0I^^0;2^K:+X'=X!(X>999999999)!(X<100000000)!(X?.E1"."1N.N) X
;;^DD(1991212,1,1,0)
;;=^.1
;;^DD(1991212,1,1,1,0)
;;=1991212^C
;;^DD(1991212,1,1,1,1)
;;=S ^DIZ(1991212,"C",$E(X,1,30),DA)=""
;;^DD(1991212,1,1,1,2)
;;=K ^DIZ(1991212,"C",$E(X,1,30),DA)
;;^DD(1991212,1,1,1,"DT")
;;=3040122
;;^DD(1991212,1,3)
;;=Type a Number between 100000000 and 999999999, 0 Decimal Digits
;;^DD(1991212,1,"DT")
;;=3040130
;;^DD(1991212,2,0)
;;=DOB^RD^^0;3^S %DT="E" D ^%DT S X=Y K:Y<1 X
;;^DD(1991212,2,3)
;;=ENTER THE EMPLOYEE'S DATE OF BIRTH
;;^DD(1991212,2,"DT")
;;=3040123
;;^DD(1991212,3,0)
;;=SEX^S^F:FEMALE;M:MALE;^0;4^Q
;;^DD(1991212,3,"DT")
;;=3031215
;;^DD(1991212,4,0)
;;=AGE^C^^ ; ^X ^DD(1991212,4,9.2) S X=X\365.25
;;^DD(1991212,4,9)
;;=^
;;^DD(1991212,4,9.01)
;;=1991212^2
;;^DD(1991212,4,9.1)
;;=TODAY-(DOB)\365.25
;;^DD(1991212,4,9.2)
;;=S Y(1991212,4,2)=$S($D(^DIZ(1991212,D0,0)):^(0),1:""),X=DT S X=X,Y(1991212,4,1)=X S X=$P(Y(1991212,4,2),U,3),Y=X,X=Y(1991212,4,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X
;;^DD(1991212,5,0)
;;=COMMENTS^1991212.05^^1;0
;;^DD(1991212,6,0)
;;=ADDRESS^F^^2;1^K:$L(X)>30!($L(X)<3) X
;;^DD(1991212,6,3)
;;=Answer must be 3-30 characters in length.
;;^DD(1991212,6,"DT")
;;=3031216
;;^DD(1991212,7,0)
;;=STATE^P5'^DIC(5,^2;2^Q
;;^DD(1991212,7,"DT")
;;=3031216
;;^DD(1991212,8,0)
;;=INSURANCE COMPANY^V^^2;3^Q
;;^DD(1991212,8,"DT")
;;=3031216
;;^DD(1991212,8,"V",0)
;;=^.12P^2^2
;;^DD(1991212,8,"V",1,0)
;;=1991214^ARIZONA INSURANCE COMPANY^1^A^n^n
;;^DD(1991212,8,"V",2,0)
;;=1991216^NEVADA INSURANCE COMPANY^2^N^n^n
;;^DD(1991212,9,0)
;;=HOBBIES^1991212.09^^3;0
;;^DD(1991212,10,0)
;;=TITLE^F^^4;1^K:$L(X)>15!($L(X)<3) X
;;^DD(1991212,10,3)
;;=Answer must be 3-15 characters in length.
;;^DD(1991212,10,"DT")
;;=3040130
;;^DD(1991212,11,0)
;;=ANNUAL INCOME^NJ10,2^^4;2^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
;;^DD(1991212,11,3)
;;=Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
;;^DD(1991212,11,"DT")
;;=3040130
;;^DD(1991212.05,0)
;;=COMMENTS SUB-FIELD^^.01^1
;;^DD(1991212.05,0,"DT")
;;=3031215
;;^DD(1991212.05,0,"NM","COMMENTS")
;;=
;;^DD(1991212.05,0,"UP")
;;=1991212
;;^DD(1991212.05,.01,0)
;;=COMMENTS^W^^0;1^Q
;;^DD(1991212.05,.01,"DT")
;;=3031215
;;^DD(1991212.09,0)
;;=HOBBIES SUB-FIELD^^1^2
;;^DD(1991212.09,0,"DT")
;;=3040202
;;^DD(1991212.09,0,"IX","B",1991212.09,.01)
;;=
;;^DD(1991212.09,0,"NM","HOBBIES")
;;=
;;^DD(1991212.09,0,"UP")
;;=1991212
;;^DD(1991212.09,.01,0)
;;=HOBBIES^MF^^0;1^K:$L(X)>30!($L(X)<3) X
;;^DD(1991212.09,.01,1,0)
;;=^.1
;;^DD(1991212.09,.01,1,1,0)
;;=1991212.09^B
;;^DD(1991212.09,.01,1,1,1)
;;=S ^DIZ(1991212,DA(1),3,"B",$E(X,1,30),DA)=""
;;^DD(1991212.09,.01,1,1,2)
;;=K ^DIZ(1991212,DA(1),3,"B",$E(X,1,30),DA)
;;^DD(1991212.09,.01,1,2,0)
;;=1991212^D
;;^DD(1991212.09,.01,1,2,1)
;;=S ^DIZ(1991212,"D",$E(X,1,30),DA(1),DA)=""
;;^DD(1991212.09,.01,1,2,2)
;;=K ^DIZ(1991212,"D",$E(X,1,30),DA(1),DA)
;;^DD(1991212.09,.01,1,2,"DT")
;;=3040122
;;^DD(1991212.09,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(1991212.09,.01,"DT")
;;=3040122
;;^DD(1991212.09,1,0)
;;=SKILL LEVEL^S^5:EXPERT;4:GOOD;3:AVERAGE;2:NOT SO GOOD;1:POOR;0:CAN'T DO;^0;2^Q
;;^DD(1991212.09,1,"DT")
;;=3040202