Routine: AEFIN005

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~

AEFIN005.m