359 lines
8.9 KiB
Mathematica
359 lines
8.9 KiB
Mathematica
YTQQI00G ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
|
|
;;5.01;MENTAL HEALTH;**85**;;Build 48
|
|
Q:'DIFQR(601.751) 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
|
Q Q
|
|
;;^UTILITY(U,$J,601.751,10685,0)
|
|
;;=3142^2^241
|
|
;;^UTILITY(U,$J,601.751,10686,0)
|
|
;;=3143^1^237
|
|
;;^UTILITY(U,$J,601.751,10687,0)
|
|
;;=3143^2^241
|
|
;;^UTILITY(U,$J,601.751,10688,0)
|
|
;;=3144^1^237
|
|
;;^UTILITY(U,$J,601.751,10689,0)
|
|
;;=3144^2^241
|
|
;;^UTILITY(U,$J,601.751,10690,0)
|
|
;;=3145^1^237
|
|
;;^UTILITY(U,$J,601.751,10691,0)
|
|
;;=3145^2^241
|
|
;;^UTILITY(U,$J,601.751,10692,0)
|
|
;;=3146^1^237
|
|
;;^UTILITY(U,$J,601.751,10693,0)
|
|
;;=3146^2^241
|
|
;;^UTILITY(U,$J,601.751,10694,0)
|
|
;;=3147^1^1441
|
|
;;^UTILITY(U,$J,601.751,10695,0)
|
|
;;=3147^2^1442
|
|
;;^UTILITY(U,$J,601.751,10696,0)
|
|
;;=3148^1^1446
|
|
;;^UTILITY(U,$J,601.751,10697,0)
|
|
;;=3148^2^1447
|
|
;;^UTILITY(U,$J,601.751,10698,0)
|
|
;;=3149^1^1443
|
|
;;^UTILITY(U,$J,601.751,10699,0)
|
|
;;=3149^2^1444
|
|
;;^UTILITY(U,$J,601.751,10700,0)
|
|
;;=3149^3^1445
|
|
;;^UTILITY(U,$J,601.751,10701,0)
|
|
;;=3150^1^237
|
|
;;^UTILITY(U,$J,601.751,10702,0)
|
|
;;=3150^2^241
|
|
;;^UTILITY(U,$J,601.751,10719,0)
|
|
;;=3155^1^100098
|
|
;;^UTILITY(U,$J,601.751,10720,0)
|
|
;;=3155^2^100099
|
|
;;^UTILITY(U,$J,601.751,10721,0)
|
|
;;=3155^3^100100
|
|
;;^UTILITY(U,$J,601.751,10722,0)
|
|
;;=3155^4^100101
|
|
;;^UTILITY(U,$J,601.751,10723,0)
|
|
;;=3156^1^100098
|
|
;;^UTILITY(U,$J,601.751,10724,0)
|
|
;;=3156^2^100099
|
|
;;^UTILITY(U,$J,601.751,10725,0)
|
|
;;=3156^3^100100
|
|
;;^UTILITY(U,$J,601.751,10726,0)
|
|
;;=3156^4^100101
|
|
;;^UTILITY(U,$J,601.751,10727,0)
|
|
;;=3157^1^100098
|
|
;;^UTILITY(U,$J,601.751,10728,0)
|
|
;;=3157^2^100099
|
|
;;^UTILITY(U,$J,601.751,10729,0)
|
|
;;=3157^3^100100
|
|
;;^UTILITY(U,$J,601.751,10730,0)
|
|
;;=3157^4^100101
|
|
;;^UTILITY(U,$J,601.751,10731,0)
|
|
;;=3158^1^100098
|
|
;;^UTILITY(U,$J,601.751,10732,0)
|
|
;;=3158^2^100099
|
|
;;^UTILITY(U,$J,601.751,10733,0)
|
|
;;=3158^3^100100
|
|
;;^UTILITY(U,$J,601.751,10734,0)
|
|
;;=3158^4^100101
|
|
;;^UTILITY(U,$J,601.751,10735,0)
|
|
;;=3159^1^100165
|
|
;;^UTILITY(U,$J,601.751,10736,0)
|
|
;;=3159^2^100166
|
|
;;^UTILITY(U,$J,601.751,10737,0)
|
|
;;=3159^3^100752
|
|
;;^UTILITY(U,$J,601.751,10738,0)
|
|
;;=3160^1^818
|
|
;;^UTILITY(U,$J,601.751,10739,0)
|
|
;;=3160^2^819
|
|
;;^UTILITY(U,$J,601.751,10740,0)
|
|
;;=3161^1^744
|
|
;;^UTILITY(U,$J,601.751,10741,0)
|
|
;;=3161^2^100092
|
|
;;^UTILITY(U,$J,601.751,10742,0)
|
|
;;=3161^3^745
|
|
;;^UTILITY(U,$J,601.751,10743,0)
|
|
;;=3161^4^746
|
|
;;^UTILITY(U,$J,601.751,10744,0)
|
|
;;=3161^5^747
|
|
;;^UTILITY(U,$J,601.751,10745,0)
|
|
;;=3161^6^748
|
|
;;^UTILITY(U,$J,601.751,10746,0)
|
|
;;=3161^7^100894
|
|
;;^UTILITY(U,$J,601.751,10747,0)
|
|
;;=3162^1^1273
|
|
;;^UTILITY(U,$J,601.751,10748,0)
|
|
;;=3162^2^1274
|
|
;;^UTILITY(U,$J,601.751,10749,0)
|
|
;;=3162^3^1275
|
|
;;^UTILITY(U,$J,601.751,10750,0)
|
|
;;=3162^4^1276
|
|
;;^UTILITY(U,$J,601.751,10751,0)
|
|
;;=3162^5^1277
|
|
;;^UTILITY(U,$J,601.751,10752,0)
|
|
;;=3162^6^100052
|
|
;;^UTILITY(U,$J,601.751,10753,0)
|
|
;;=3162^7^1278
|
|
;;^UTILITY(U,$J,601.751,10754,0)
|
|
;;=3162^8^1279
|
|
;;^UTILITY(U,$J,601.751,10755,0)
|
|
;;=3163^1^237
|
|
;;^UTILITY(U,$J,601.751,10756,0)
|
|
;;=3163^2^241
|
|
;;^UTILITY(U,$J,601.751,10757,0)
|
|
;;=3163^3^1280
|
|
;;^UTILITY(U,$J,601.751,10758,0)
|
|
;;=3163^4^1281
|
|
;;^UTILITY(U,$J,601.751,10759,0)
|
|
;;=3164^1^237
|
|
;;^UTILITY(U,$J,601.751,10760,0)
|
|
;;=3164^2^241
|
|
;;^UTILITY(U,$J,601.751,10761,0)
|
|
;;=3164^3^1280
|
|
;;^UTILITY(U,$J,601.751,10762,0)
|
|
;;=3164^4^1281
|
|
;;^UTILITY(U,$J,601.751,10763,0)
|
|
;;=3165^1^237
|
|
;;^UTILITY(U,$J,601.751,10764,0)
|
|
;;=3165^2^241
|
|
;;^UTILITY(U,$J,601.751,10765,0)
|
|
;;=3165^3^1280
|
|
;;^UTILITY(U,$J,601.751,10766,0)
|
|
;;=3165^4^1281
|
|
;;^UTILITY(U,$J,601.751,10767,0)
|
|
;;=3166^1^1282
|
|
;;^UTILITY(U,$J,601.751,10768,0)
|
|
;;=3166^2^1316
|
|
;;^UTILITY(U,$J,601.751,10769,0)
|
|
;;=3166^3^1284
|
|
;;^UTILITY(U,$J,601.751,10770,0)
|
|
;;=3166^4^1285
|
|
;;^UTILITY(U,$J,601.751,10771,0)
|
|
;;=3166^5^1280
|
|
;;^UTILITY(U,$J,601.751,10772,0)
|
|
;;=3166^6^1281
|
|
;;^UTILITY(U,$J,601.751,10773,0)
|
|
;;=3167^1^1286
|
|
;;^UTILITY(U,$J,601.751,10774,0)
|
|
;;=3167^2^1287
|
|
;;^UTILITY(U,$J,601.751,10775,0)
|
|
;;=3167^3^1288
|
|
;;^UTILITY(U,$J,601.751,10776,0)
|
|
;;=3167^4^1289
|
|
;;^UTILITY(U,$J,601.751,10777,0)
|
|
;;=3167^5^1290
|
|
;;^UTILITY(U,$J,601.751,10778,0)
|
|
;;=3167^6^1291
|
|
;;^UTILITY(U,$J,601.751,10779,0)
|
|
;;=3167^7^1292
|
|
;;^UTILITY(U,$J,601.751,10780,0)
|
|
;;=3167^8^1293
|
|
;;^UTILITY(U,$J,601.751,10781,0)
|
|
;;=3168^1^237
|
|
;;^UTILITY(U,$J,601.751,10782,0)
|
|
;;=3168^2^241
|
|
;;^UTILITY(U,$J,601.751,10783,0)
|
|
;;=3168^3^1280
|
|
;;^UTILITY(U,$J,601.751,10784,0)
|
|
;;=3168^4^1281
|
|
;;^UTILITY(U,$J,601.751,10785,0)
|
|
;;=3169^1^237
|
|
;;^UTILITY(U,$J,601.751,10786,0)
|
|
;;=3169^2^241
|
|
;;^UTILITY(U,$J,601.751,10787,0)
|
|
;;=3169^3^1280
|
|
;;^UTILITY(U,$J,601.751,10788,0)
|
|
;;=3169^4^1281
|
|
;;^UTILITY(U,$J,601.751,10789,0)
|
|
;;=3170^1^237
|
|
;;^UTILITY(U,$J,601.751,10790,0)
|
|
;;=3170^2^241
|
|
;;^UTILITY(U,$J,601.751,10791,0)
|
|
;;=3170^3^1280
|
|
;;^UTILITY(U,$J,601.751,10792,0)
|
|
;;=3170^4^1281
|
|
;;^UTILITY(U,$J,601.751,10793,0)
|
|
;;=3171^1^237
|
|
;;^UTILITY(U,$J,601.751,10794,0)
|
|
;;=3171^2^241
|
|
;;^UTILITY(U,$J,601.751,10795,0)
|
|
;;=3171^3^1280
|
|
;;^UTILITY(U,$J,601.751,10796,0)
|
|
;;=3171^4^1281
|
|
;;^UTILITY(U,$J,601.751,10797,0)
|
|
;;=3172^1^237
|
|
;;^UTILITY(U,$J,601.751,10798,0)
|
|
;;=3172^2^241
|
|
;;^UTILITY(U,$J,601.751,10799,0)
|
|
;;=3172^3^1280
|
|
;;^UTILITY(U,$J,601.751,10800,0)
|
|
;;=3172^4^1281
|
|
;;^UTILITY(U,$J,601.751,10801,0)
|
|
;;=3173^1^237
|
|
;;^UTILITY(U,$J,601.751,10802,0)
|
|
;;=3173^2^241
|
|
;;^UTILITY(U,$J,601.751,10803,0)
|
|
;;=3173^3^1280
|
|
;;^UTILITY(U,$J,601.751,10804,0)
|
|
;;=3173^4^1281
|
|
;;^UTILITY(U,$J,601.751,10805,0)
|
|
;;=3174^1^237
|
|
;;^UTILITY(U,$J,601.751,10806,0)
|
|
;;=3174^2^1294
|
|
;;^UTILITY(U,$J,601.751,10807,0)
|
|
;;=3174^3^1295
|
|
;;^UTILITY(U,$J,601.751,10808,0)
|
|
;;=3174^4^1280
|
|
;;^UTILITY(U,$J,601.751,10809,0)
|
|
;;=3174^5^1281
|
|
;;^UTILITY(U,$J,601.751,10810,0)
|
|
;;=3175^1^237
|
|
;;^UTILITY(U,$J,601.751,10811,0)
|
|
;;=3175^2^1296
|
|
;;^UTILITY(U,$J,601.751,10812,0)
|
|
;;=3175^3^1297
|
|
;;^UTILITY(U,$J,601.751,10813,0)
|
|
;;=3175^4^1298
|
|
;;^UTILITY(U,$J,601.751,10814,0)
|
|
;;=3175^5^1280
|
|
;;^UTILITY(U,$J,601.751,10815,0)
|
|
;;=3175^6^1281
|
|
;;^UTILITY(U,$J,601.751,10816,0)
|
|
;;=3176^1^237
|
|
;;^UTILITY(U,$J,601.751,10817,0)
|
|
;;=3176^2^1296
|
|
;;^UTILITY(U,$J,601.751,10818,0)
|
|
;;=3176^3^1297
|
|
;;^UTILITY(U,$J,601.751,10819,0)
|
|
;;=3176^4^1298
|
|
;;^UTILITY(U,$J,601.751,10820,0)
|
|
;;=3176^5^1280
|
|
;;^UTILITY(U,$J,601.751,10821,0)
|
|
;;=3176^6^1281
|
|
;;^UTILITY(U,$J,601.751,10822,0)
|
|
;;=3177^1^237
|
|
;;^UTILITY(U,$J,601.751,10823,0)
|
|
;;=3177^2^241
|
|
;;^UTILITY(U,$J,601.751,10824,0)
|
|
;;=3177^3^1280
|
|
;;^UTILITY(U,$J,601.751,10825,0)
|
|
;;=3177^4^1281
|
|
;;^UTILITY(U,$J,601.751,10826,0)
|
|
;;=3178^1^237
|
|
;;^UTILITY(U,$J,601.751,10827,0)
|
|
;;=3178^2^241
|
|
;;^UTILITY(U,$J,601.751,10828,0)
|
|
;;=3178^3^1280
|
|
;;^UTILITY(U,$J,601.751,10829,0)
|
|
;;=3178^4^1281
|
|
;;^UTILITY(U,$J,601.751,10830,0)
|
|
;;=3179^1^237
|
|
;;^UTILITY(U,$J,601.751,10831,0)
|
|
;;=3179^2^241
|
|
;;^UTILITY(U,$J,601.751,10832,0)
|
|
;;=3179^3^1280
|
|
;;^UTILITY(U,$J,601.751,10833,0)
|
|
;;=3179^4^1281
|
|
;;^UTILITY(U,$J,601.751,10834,0)
|
|
;;=3180^1^1301
|
|
;;^UTILITY(U,$J,601.751,10835,0)
|
|
;;=3180^2^1302
|
|
;;^UTILITY(U,$J,601.751,10836,0)
|
|
;;=3180^3^1305
|
|
;;^UTILITY(U,$J,601.751,10837,0)
|
|
;;=3180^4^1304
|
|
;;^UTILITY(U,$J,601.751,10838,0)
|
|
;;=3180^5^1280
|
|
;;^UTILITY(U,$J,601.751,10839,0)
|
|
;;=3180^6^1281
|
|
;;^UTILITY(U,$J,601.751,10840,0)
|
|
;;=3181^1^237
|
|
;;^UTILITY(U,$J,601.751,10841,0)
|
|
;;=3181^2^1306
|
|
;;^UTILITY(U,$J,601.751,10842,0)
|
|
;;=3181^3^1307
|
|
;;^UTILITY(U,$J,601.751,10843,0)
|
|
;;=3181^4^1280
|
|
;;^UTILITY(U,$J,601.751,10844,0)
|
|
;;=3181^5^1281
|
|
;;^UTILITY(U,$J,601.751,10845,0)
|
|
;;=3182^1^237
|
|
;;^UTILITY(U,$J,601.751,10846,0)
|
|
;;=3182^2^241
|
|
;;^UTILITY(U,$J,601.751,10847,0)
|
|
;;=3182^3^1281
|
|
;;^UTILITY(U,$J,601.751,10848,0)
|
|
;;=3183^1^237
|
|
;;^UTILITY(U,$J,601.751,10849,0)
|
|
;;=3183^2^241
|
|
;;^UTILITY(U,$J,601.751,10850,0)
|
|
;;=3183^3^1281
|
|
;;^UTILITY(U,$J,601.751,10851,0)
|
|
;;=3184^1^237
|
|
;;^UTILITY(U,$J,601.751,10852,0)
|
|
;;=3184^2^241
|
|
;;^UTILITY(U,$J,601.751,10853,0)
|
|
;;=3184^3^1281
|
|
;;^UTILITY(U,$J,601.751,10854,0)
|
|
;;=3185^1^237
|
|
;;^UTILITY(U,$J,601.751,10855,0)
|
|
;;=3185^2^241
|
|
;;^UTILITY(U,$J,601.751,10856,0)
|
|
;;=3185^3^1281
|
|
;;^UTILITY(U,$J,601.751,10857,0)
|
|
;;=3186^1^237
|
|
;;^UTILITY(U,$J,601.751,10858,0)
|
|
;;=3186^2^241
|
|
;;^UTILITY(U,$J,601.751,10859,0)
|
|
;;=3186^3^1281
|
|
;;^UTILITY(U,$J,601.751,10860,0)
|
|
;;=3187^1^237
|
|
;;^UTILITY(U,$J,601.751,10861,0)
|
|
;;=3187^2^241
|
|
;;^UTILITY(U,$J,601.751,10862,0)
|
|
;;=3187^3^1281
|
|
;;^UTILITY(U,$J,601.751,10863,0)
|
|
;;=3188^1^237
|
|
;;^UTILITY(U,$J,601.751,10864,0)
|
|
;;=3188^2^241
|
|
;;^UTILITY(U,$J,601.751,10865,0)
|
|
;;=3188^3^1281
|
|
;;^UTILITY(U,$J,601.751,10866,0)
|
|
;;=3189^1^237
|
|
;;^UTILITY(U,$J,601.751,10867,0)
|
|
;;=3189^2^241
|
|
;;^UTILITY(U,$J,601.751,10868,0)
|
|
;;=3189^3^1281
|
|
;;^UTILITY(U,$J,601.751,10869,0)
|
|
;;=3190^1^237
|
|
;;^UTILITY(U,$J,601.751,10870,0)
|
|
;;=3190^2^241
|
|
;;^UTILITY(U,$J,601.751,10871,0)
|
|
;;=3190^3^1281
|
|
;;^UTILITY(U,$J,601.751,10872,0)
|
|
;;=3191^1^237
|
|
;;^UTILITY(U,$J,601.751,10873,0)
|
|
;;=3191^2^241
|
|
;;^UTILITY(U,$J,601.751,10874,0)
|
|
;;=3191^3^1281
|
|
;;^UTILITY(U,$J,601.751,10875,0)
|
|
;;=3192^1^237
|
|
;;^UTILITY(U,$J,601.751,10876,0)
|
|
;;=3192^2^241
|
|
;;^UTILITY(U,$J,601.751,10877,0)
|
|
;;=3192^3^1281
|