AZHNI003 ; ; 05-AUG-1998
;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998
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,"DIST(.403,",164,"AZ","CAP","TBL",1,1,366,20)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","USER",1,1,382,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VALOH",1,1,366,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VEN U/I",1,1,366,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VEND",1,1,366,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","10,366","L",1,366,10)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","11,366","L",1,366,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","12,366","L",1,366,12)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","13,366","L",1,366,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","14,366","L",1,366,14)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","15,366","L",1,366,15)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","16,366","L",1,366,16)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","17,366","L",1,366,17)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","19,366","L",1,366,19)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","2,366","L",1,366,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","20,366","L",1,366,20)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","22,366","L",1,366,22)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","23,366","L",1,366,23)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","24,366","L",1,366,24)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","25,366","L",1,366,25)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","3,366","L",1,366,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","4,366","L",1,366,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","5,366","L",1,366,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","6,366","L",1,366,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","7,366","L",1,366,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","8,366","L",1,366,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","9,366","L",1,366,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.03,"L",1,365,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.05,"L",1,365,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.07,"L",1,365,12)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",1,"L",1,365,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",3,"L",1,365,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",4,"L",1,365,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",5,"L",1,365,6)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",6,"L",1,365,10)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",7,"L",1,365,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",8,"L",1,365,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.05,"L",1,382,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.13,"L",1,382,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.14,"L",1,382,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",13,"L",1,382,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",14,"L",1,382,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","PT",9002036.3,.02,1,365)
;;=
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,4,0)
;;=*Index*
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,5,1)
;;=NATL STK#: BARCD: AUI: SUBOBJ:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,6,1)
;;=ACC: CAT: EST/CHG:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,6,1,"A")
;;=1;3;U
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,7,0)
;;=*Station* SRC: SLC:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,8,2)
;;=VEND: ORD#: LSTIS:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,9,2)
;;=EOQTP: TBL: MODS:MO QTY ACT VEN U/I:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,10,2)
;;=QTYOH: SPQ: RPQ: PAMIQ: DUE IN: DUE OUT:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,11,2)
;;=VALOH: COST/U: LPP: LTM: DT EST:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,13,0)
;;=INDEX:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,13,0,"A")
;;=1;5;U
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,15,0)
;;=SUBSTA:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,15,0,"A")
;;=1;6;U
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,16,0)
;;=USER:
;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,16,0,"A")
;;=1;4;U
;;^UTILITY(U,$J,"DIST(.404,",364,0)
;;=ASUJHEAD^9002036.5^
;;^UTILITY(U,$J,"DIST(.404,",364,40,0)
;;=^.4044I^3^4
;;^UTILITY(U,$J,"DIST(.404,",364,40,1,0)
;;=1^!M^1
AZHNI003 ; ; 05-AUG-1998
+1 ;;4.1T4;AZHN DALE'S WORK PACKAGE;;AUG 05, 1998
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","TBL",1,1,366,20)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","USER",1,1,382,3)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VALOH",1,1,366,8)
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VEN U/I",1,1,366,5)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","CAP","VEND",1,1,366,3)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","10,366","L",1,366,10)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","11,366","L",1,366,11)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","12,366","L",1,366,12)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","13,366","L",1,366,13)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","14,366","L",1,366,14)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","15,366","L",1,366,15)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","16,366","L",1,366,16)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","17,366","L",1,366,17)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","19,366","L",1,366,19)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","2,366","L",1,366,2)
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","20,366","L",1,366,20)
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","22,366","L",1,366,22)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","23,366","L",1,366,23)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","24,366","L",1,366,24)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","25,366","L",1,366,25)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","3,366","L",1,366,3)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","4,366","L",1,366,4)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","5,366","L",1,366,5)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","6,366","L",1,366,6)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","7,366","L",1,366,7)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","8,366","L",1,366,8)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F0","9,366","L",1,366,9)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.03,"L",1,365,7)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.05,"L",1,365,5)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",.07,"L",1,365,12)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",1,"L",1,365,3)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",3,"L",1,365,8)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",4,"L",1,365,4)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",5,"L",1,365,6)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",6,"L",1,365,10)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",7,"L",1,365,9)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002032",8,"L",1,365,11)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.05,"L",1,382,1)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.13,"L",1,382,4)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",.14,"L",1,382,5)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",13,"L",1,382,2)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","F9002036.3",14,"L",1,382,3)
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","PT",9002036.3,.02,1,365)
+86 ;;=
+87 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,4,0)
+88 ;;=*Index*
+89 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,5,1)
+90 ;;=NATL STK#: BARCD: AUI: SUBOBJ:
+91 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,6,1)
+92 ;;=ACC: CAT: EST/CHG:
+93 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,6,1,"A")
+94 ;;=1;3;U
+95 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,7,0)
+96 ;;=*Station* SRC: SLC:
+97 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,8,2)
+98 ;;=VEND: ORD#: LSTIS:
+99 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,9,2)
+100 ;;=EOQTP: TBL: MODS:MO QTY ACT VEN U/I:
+101 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,10,2)
+102 ;;=QTYOH: SPQ: RPQ: PAMIQ: DUE IN: DUE OUT:
+103 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,11,2)
+104 ;;=VALOH: COST/U: LPP: LTM: DT EST:
+105 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,13,0)
+106 ;;=INDEX:
+107 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,13,0,"A")
+108 ;;=1;5;U
+109 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,15,0)
+110 ;;=SUBSTA:
+111 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,15,0,"A")
+112 ;;=1;6;U
+113 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,16,0)
+114 ;;=USER:
+115 ;;^UTILITY(U,$J,"DIST(.403,",164,"AZ","X",1,16,0,"A")
+116 ;;=1;4;U
+117 ;;^UTILITY(U,$J,"DIST(.404,",364,0)
+118 ;;=ASUJHEAD^9002036.5^
+119 ;;^UTILITY(U,$J,"DIST(.404,",364,40,0)
+120 ;;=^.4044I^3^4
+121 ;;^UTILITY(U,$J,"DIST(.404,",364,40,1,0)
+122 ;;=1^!M^1
