©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
AEFIN005 ; ; 27-FEB-2004
;;1.0;ANNETEST;;FEB 27, 2004
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
;;^UTILITY(U,$J,"DIBT",4305,0)
;;=AEF EMPLOYEE SEARCH^3040107.1026^^1991212^^^^
;;^UTILITY(U,$J,"DIBT",4305,"DA")
;;=DIS("C1",
;;^UTILITY(U,$J,"DIBT",4305,"DA",3)
;;=S Y(1)=$S($D(^DIZ(1991212,D0,2)):^(2),1:"") S X=$S('$D(^DIC(5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))
;;^UTILITY(U,$J,"DIBT",4305,"DC",1)
;;=2^<2950620
;;^UTILITY(U,$J,"DIBT",4305,"DC",2)
;;=3^="M"
;;^UTILITY(U,$J,"DIBT",4305,"DC",3)
;;=7^=3
;;^UTILITY(U,$J,"DIBT",4305,"DIS",0)
;;=I $P($G(^DIZ(1991212,D0,0)),U,3)<2950620 I $P($G(^DIZ(1991212,D0,0)),U,4)="M" I $P($G(^DIZ(1991212,D0,2)),U,2)=3
;;^UTILITY(U,$J,"DIBT",4305,"DL")
;;=1
;;^UTILITY(U,$J,"DIBT",4305,"DL",0)
;;=^1^2^3^
;;^UTILITY(U,$J,"DIBT",4305,"O",0)
;;=^
;;^UTILITY(U,$J,"DIBT",4305,"O",1,0)
;;=DOB LESS THAN JUN 20,1995^6-20-95
;;^UTILITY(U,$J,"DIBT",4305,"O",2,0)
;;= and SEX EQUALS "M"^MALE
;;^UTILITY(U,$J,"DIBT",4305,"O",3,0)
;;= and STATE EQUALS 3^ARIZONA
;;^UTILITY(U,$J,"DIBT",4305,"QR")
;;=3040107.102637^1
;;^UTILITY(U,$J,"DIBT",4306,0)
;;=AEF EMPLOYEE SEARCH/SORT^3040107.1048^^1991212^^^^
;;^UTILITY(U,$J,"DIBT",4306,2,0)
;;=^.4014^3^3
;;^UTILITY(U,$J,"DIBT",4306,2,1,0)
;;=1991212^^'AEF EMPLOYEE SEARCH' NUMBER^@'
;;^UTILITY(U,$J,"DIBT",4306,2,1,"GET")
;;=S DISX(1)=D0
;;^UTILITY(U,$J,"DIBT",4306,2,1,"IX")
;;=^DIBT(4305,1,^DIZ(1991212,^1
;;^UTILITY(U,$J,"DIBT",4306,2,1,"SER")
;;=998^998
;;^UTILITY(U,$J,"DIBT",4306,2,2,0)
;;=1991212^2^DOB^^^^^^^1
;;^UTILITY(U,$J,"DIBT",4306,2,2,"GET")
;;=S DISX(2)=$P($G(^DIZ(1991212,D0,0)),U,3)
;;^UTILITY(U,$J,"DIBT",4306,2,2,"QCON")
;;=I DISX(2)'=""
;;^UTILITY(U,$J,"DIBT",4306,2,2,"SER")
;;=0.0000^0.0000
;;^UTILITY(U,$J,"DIBT",4306,2,2,"TXT")
;;=DOB not null
;;^UTILITY(U,$J,"DIBT",4306,2,3,0)
;;=1991212^.01^NAME^^^^^^^4
;;^UTILITY(U,$J,"DIBT",4306,2,3,"GET")
;;=S DISX(3)=$P($G(^DIZ(1991212,D0,0)),U)
;;^UTILITY(U,$J,"DIBT",4306,2,3,"IX")
;;=^DIZ(1991212,"B",^DIZ(1991212,^2
;;^UTILITY(U,$J,"DIBT",4306,2,3,"QCON")
;;=I DISX(3)'=""
;;^UTILITY(U,$J,"DIBT",4306,2,3,"SER")
;;=0^0
;;^UTILITY(U,$J,"DIBT",4306,2,3,"TXT")
;;=NAME not null
;;^UTILITY(U,$J,"DIBT",4306,2,"B",1991212,1)
;;=
;;^UTILITY(U,$J,"DIBT",4306,2,"B",1991212,2)
;;=
;;^UTILITY(U,$J,"DIBT",4306,2,"B",1991212,3)
;;=
;;^UTILITY(U,$J,"DIBT",4307,0)
;;=AEF ARIZONA FEMALES^3040116.1401^^1991212^^^^
;;^UTILITY(U,$J,"DIBT",4307,2,0)
;;=^.4014^3^3
;;^UTILITY(U,$J,"DIBT",4307,2,1,0)
;;=1991212^^STATE^'"7^^^^^^4
;;^UTILITY(U,$J,"DIBT",4307,2,1,"CM")
;;=S Y(1)=$S($D(^DIZ(1991212,D0,2)):^(2),1:"") S X=$S('$D(^DIC(5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
;;^UTILITY(U,$J,"DIBT",4307,2,1,"F")
;;=AYz^AZ
;;^UTILITY(U,$J,"DIBT",4307,2,1,"GET")
;;=S Y(1)=$S($D(^DIZ(1991212,D0,2)):^(2),1:"") S X=$S('$D(^DIC(5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
;;^UTILITY(U,$J,"DIBT",4307,2,1,"QCON")
;;=I DISX(1)="AZ"
;;^UTILITY(U,$J,"DIBT",4307,2,1,"T")
;;=AZ^AZ
;;^UTILITY(U,$J,"DIBT",4307,2,1,"TXT")
;;=STATE equals AZ
;;^UTILITY(U,$J,"DIBT",4307,2,2,0)
;;=1991212^3^SEX^^^^^^^3
;;^UTILITY(U,$J,"DIBT",4307,2,2,"F")
;;=Ez^F^F (FEMALE)
;;^UTILITY(U,$J,"DIBT",4307,2,2,"GET")
;;=S DISX(2)=$P($G(^DIZ(1991212,D0,0)),U,4)
;;^UTILITY(U,$J,"DIBT",4307,2,2,"QCON")
;;=I DISX(2)="F"
;;^UTILITY(U,$J,"DIBT",4307,2,2,"T")
;;=F^F^F (FEMALE)
;;^UTILITY(U,$J,"DIBT",4307,2,2,"TXT")
;;=SEX equals F (FEMALE)
;;^UTILITY(U,$J,"DIBT",4307,2,3,0)
;;=1991212^.01^NAME^^^^^^^4
;;^UTILITY(U,$J,"DIBT",4307,2,3,"GET")
;;=S DISX(3)=$P($G(^DIZ(1991212,D0,0)),U)
;;^UTILITY(U,$J,"DIBT",4307,2,3,"IX")
;;=^DIZ(1991212,"B",^DIZ(1991212,^2
;;^UTILITY(U,$J,"DIBT",4307,2,3,"QCON")
;;=I DISX(3)'=""
;;^UTILITY(U,$J,"DIBT",4307,2,3,"TXT")
;;=NAME not null
;;^UTILITY(U,$J,"DIBT",4307,2,"B",1991212,1)
;;=
;;^UTILITY(U,$J,"DIBT",4307,2,"B",1991212,2)
;;=
;;^UTILITY(U,$J,"DIBT",4307,2,"B",1991212,3)
;;=
;;^UTILITY(U,$J,"DIBT",4308,0)
;;=AEF EMPLOYEE BAD SSNS^3040122.1519^^1991212^^^^
;;^UTILITY(U,$J,"DIBT",4308,"QR")
;;=3040122^2
;;^UTILITY(U,$J,"DIBT",4313,0)
;;=AEF EMPLOYEE >50000 SEARCH^3040202.0843^^1991212^^^^
;;^UTILITY(U,$J,"DIBT",4313,"DC",1)
;;=11^>50000
;;^UTILITY(U,$J,"DIBT",4313,"DIS",0)
;;=I $P($G(^DIZ(1991212,D0,4)),U,2)>50000
;;^UTILITY(U,$J,"DIBT",4313,"DL")
;;=1
;;^UTILITY(U,$J,"DIBT",4313,"DL",0)
;;=^1^
;;^UTILITY(U,$J,"DIBT",4313,"O",0)
;;=^
;;^UTILITY(U,$J,"DIBT",4313,"O",1,0)
;;=ANNUAL INCOME GREATER THAN 50000
;;^UTILITY(U,$J,"DIBT",4313,"QR")
;;=3040202.084328^24
;;^UTILITY(U,$J,"DIE",2324,0)
;;=AEF EDIT EMPLOYEE^3040102.152^^1991212^^^^
;;^UTILITY(U,$J,"DIE",2324,"DIAB",1,1,1991212.09,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",2324,"DR",1,1991212)
;;=.01;1;2;3;7;9;8;
;;^UTILITY(U,$J,"DIE",2324,"DR",2,1991212.09)
;;=.01
;;^UTILITY(U,$J,"DIPT",3432,0)
;;=AEF ANNE'S EMPLOYEE LIST^3040106.1238^^1991212^^^^
;;^UTILITY(U,$J,"DIPT",3432,"DXS",1,9.2)
;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:"") S X=$P(DIP(1),U,2),DIP(2)=X S X=1,DIP(3)=X S X=3,X=$E(DIP(2),DIP(3),X)_"-",DIP(4)=X S X=$P(DIP(1),U,2)
;;^UTILITY(U,$J,"DIPT",3432,"DXS",1,9.3)
;;=X DXS(1,9.2) S DIP(5)=X S X=4,DIP(6)=X S X=5,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_"-",DIP(7)=X S X=$P(DIP(1),U,2),DIP(8)=X S X=6,DIP(9)=X S X=9
;;^UTILITY(U,$J,"DIPT",3432,"DXS",2,9.2)
;;=S I(0,0)=$G(D0),I(1,0)=$G(D1),DIP(102)="" X "F D1=0:0 S D1=$O(^DIZ(1991212,D0,3,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" DIP(102)=Y" S D(1)=D1
;;^UTILITY(U,$J,"DIPT",3432,"DXS",3,9.2)
;;=S I(0,0)=$G(D0),DIP(1)=$S($D(^DIZ(1991212,D0,2)):^(2),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(5,D0,0)):^(0),1:"")
;;^UTILITY(U,$J,"DIPT",3432,"F",1)
;;=.01;C1;L6~
;;^UTILITY(U,$J,"DIPT",3432,"F",2)
;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:"") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) W X K DIP;"BIRTHDAY";C10;L8;Z;"NUMDATE(DOB)"~
;;^UTILITY(U,$J,"DIPT",3432,"F",3)
;;=X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;L11;C19;"SSN";Z;"$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)"~
;;^UTILITY(U,$J,"DIPT",3432,"F",4)
;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(DIP(1),U,3),X="" D:X2 ^%DTC:X1 S X=X\365.25 W X K DIP;"AGE";R3;C32;Z;"(TODAY-DOB)\365.25"~
;;^UTILITY(U,$J,"DIPT",3432,"F",5)
;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:"") S X=$P(DIP(1),U,4),X=X W X K DIP;"SEX";R3;C37;Z;"INTERNAL(SEX)"~
;;^UTILITY(U,$J,"DIPT",3432,"F",6)
;;=X DXS(2,9.2) S X=DIP(102) S D0=I(0,0) S D1=I(1,0) W X K DIP;"HOBBY";C42;L10;Z;"LAST(HOBBIES)"~
;;^UTILITY(U,$J,"DIPT",3432,"F",7)
;;=X DXS(3,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;"ST";C54;L2;Z;"STATE:ABBREVIATION"~
;;^UTILITY(U,$J,"DIPT",3432,"F",8)
;;=S DIP(1)=$S($D(^DIZ(1991212,D0,2)):^(2),1:"") S X=$P(DIP(1),U,1) X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" W X K DIP;"ADDRESS";C58;L20;Z;"UPPERCASE(ADDRESS)"~
;;^UTILITY(U,$J,"DIPT",3432,"F",9)
;;=5,.01;C5;W72;""~
;;^UTILITY(U,$J,"DIPT",3432,"H")
;;=[AEF ANNE'S EMPLOYEE LIST HDR]
;;^UTILITY(U,$J,"DIPT",3433,0)
;;=AEF ANNE'S EMPLOYEE LIST HDR^3040106.1242^^1991212^^^^
;;^UTILITY(U,$J,"DIPT",3433,"F",1)
;;="Anne's Employee List";C1~S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C40;d;L18;Z;"NOW"~
;;^UTILITY(U,$J,"DIPT",3433,"F",2)
;;=S X="Page ",DIP(1)=X,X=$S($D(DC)#2:DC,1:"") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C70;Z;""Page "_PAGE"~"NAME";C1~"BIRTHDAY";C10~"SSN";C19~"AGE";C32~
;;^UTILITY(U,$J,"DIPT",3433,"F",3)
;;="SEX";C37~"HOBBY";C42~"ST";C54~"ADDRESS";C58~
;;^UTILITY(U,$J,"DIPT",3433,"F",4)
;;=S X="- ",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="" Q:X1="" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;"DUP("- ",80)"~"";S~