AEFIN006.m

AEFIN006 ; ; 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,"DIPT",3433,"H")

 ;;=@

 ;;^UTILITY(U,$J,"DIPT",3433,"SUB")

 ;;=1

 ;;^UTILITY(U,$J,"DIPT",3434,0)

 ;;=AEF ANNE'S EMPLOYEE LIST FTR^3040106.1249^^1991212^^^^

 ;;^UTILITY(U,$J,"DIPT",3434,"F",2)

 ;;=S X=$S($D(DC)#2:DC,1:"") S X=X,X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;Z;"CENTER(PAGE)";X~

 ;;^UTILITY(U,$J,"DIPT",3434,"H")

 ;;=@

 ;;^UTILITY(U,$J,"DIPT",3434,"SUB")

 ;;=1

 ;;^UTILITY(U,$J,"DIPT",3449,0)

 ;;=AEF TEST^3040130.1457^^1991212^^^^

 ;;^UTILITY(U,$J,"DIPT",3449,"DXS",1,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",3449,"DXS",2,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",3449,"DXS",2,9.3)

 ;;=X DXS(2,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",3449,"DXS",3,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",3449,"F",1)

 ;;=.01;L6;C1~10;L10;C9~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;L2;C21;"ST";Z;"STATE:ABBREVIATION"~

 ;;^UTILITY(U,$J,"DIPT",3449,"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;L8;C25;"DOB";Z;"NUMDATE(DOB)"~

 ;;^UTILITY(U,$J,"DIPT",3449,"F",3)

 ;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:"") S X=$P(DIP(1),U,4),X=X W X K DIP;L3;C35;"SEX";Z;"INTERNAL(SEX)"~11;R10;C40;"INCOME"~

 ;;^UTILITY(U,$J,"DIPT",3449,"F",4)

 ;;=X DXS(2,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;C52;"SSN";Z;"$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)"~4;R3;C65~

 ;;^UTILITY(U,$J,"DIPT",3449,"F",5)

 ;;=X DXS(3,9.2) S X=DIP(102) S D0=I(0,0) S D1=I(1,0) W X K DIP;L10;C70;"HOBBY";Z;"LAST(HOBBIES)"~

 ;;^UTILITY(U,$J,"DIPT",3449,"H")

 ;;=AEF EMPLOYEE LIST

 ;;^UTILITY(U,$J,"DIPT",3450,0)

 ;;=AEF EMPLOYEE PRINT^3040130.1533^^1991212^^^^

 ;;^UTILITY(U,$J,"DIPT",3450,"DXS",1,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",3450,"DXS",2,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",3450,"DXS",2,9.3)

 ;;=X DXS(2,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",3450,"DXS",3,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",3450,"F",1)

 ;;=.01;L6;C1~10;L10;C9~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;L2;C21;"ST";Z;"STATE:ABBREVIATION"~

 ;;^UTILITY(U,$J,"DIPT",3450,"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;L8;C25;"DOB";Z;"NUMDATE(DOB)"~

 ;;^UTILITY(U,$J,"DIPT",3450,"F",3)

 ;;=S DIP(1)=$S($D(^DIZ(1991212,D0,0)):^(0),1:"") S X=$P(DIP(1),U,4),X=X W X K DIP;L3;C35;"SEX";Z;"INTERNAL(SEX)"~11;R10;C40;"INCOME"~

 ;;^UTILITY(U,$J,"DIPT",3450,"F",4)

 ;;=X DXS(2,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;C52;"SSN";Z;"$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)"~4;R3;C65~

 ;;^UTILITY(U,$J,"DIPT",3450,"F",5)

 ;;=X DXS(3,9.2) S X=DIP(102) S D0=I(0,0) S D1=I(1,0) W X K DIP;L10;C70;"HOBBY";Z;"LAST(HOBBIES)"~

 ;;^UTILITY(U,$J,"DIPT",3450,"H")

 ;;=AEF EMPLOYEE LIST

 ;;^UTILITY(U,$J,"SBF",1991212,1991212)

 ;;=

 ;;^UTILITY(U,$J,"SBF",1991212,1991212.05)

 ;;=

 ;;^UTILITY(U,$J,"SBF",1991212,1991212.09)

 ;;=