367 lines
8.9 KiB
Mathematica
367 lines
8.9 KiB
Mathematica
YTQQI00D ;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,8576,0)
|
|
;;=2644^2^241
|
|
;;^UTILITY(U,$J,601.751,8577,0)
|
|
;;=2645^1^237
|
|
;;^UTILITY(U,$J,601.751,8578,0)
|
|
;;=2645^2^241
|
|
;;^UTILITY(U,$J,601.751,8579,0)
|
|
;;=2646^1^237
|
|
;;^UTILITY(U,$J,601.751,8580,0)
|
|
;;=2646^2^241
|
|
;;^UTILITY(U,$J,601.751,8581,0)
|
|
;;=2647^1^237
|
|
;;^UTILITY(U,$J,601.751,8582,0)
|
|
;;=2647^2^241
|
|
;;^UTILITY(U,$J,601.751,8583,0)
|
|
;;=2648^1^237
|
|
;;^UTILITY(U,$J,601.751,8584,0)
|
|
;;=2648^2^241
|
|
;;^UTILITY(U,$J,601.751,8585,0)
|
|
;;=2649^1^237
|
|
;;^UTILITY(U,$J,601.751,8586,0)
|
|
;;=2649^2^241
|
|
;;^UTILITY(U,$J,601.751,8587,0)
|
|
;;=2650^1^237
|
|
;;^UTILITY(U,$J,601.751,8588,0)
|
|
;;=2650^2^241
|
|
;;^UTILITY(U,$J,601.751,8589,0)
|
|
;;=2651^1^237
|
|
;;^UTILITY(U,$J,601.751,8590,0)
|
|
;;=2651^2^241
|
|
;;^UTILITY(U,$J,601.751,8591,0)
|
|
;;=2652^1^237
|
|
;;^UTILITY(U,$J,601.751,8592,0)
|
|
;;=2652^2^241
|
|
;;^UTILITY(U,$J,601.751,8593,0)
|
|
;;=2653^1^237
|
|
;;^UTILITY(U,$J,601.751,8594,0)
|
|
;;=2653^2^241
|
|
;;^UTILITY(U,$J,601.751,8595,0)
|
|
;;=2654^1^237
|
|
;;^UTILITY(U,$J,601.751,8596,0)
|
|
;;=2654^2^241
|
|
;;^UTILITY(U,$J,601.751,8597,0)
|
|
;;=2655^1^237
|
|
;;^UTILITY(U,$J,601.751,8598,0)
|
|
;;=2655^2^241
|
|
;;^UTILITY(U,$J,601.751,8599,0)
|
|
;;=2656^1^100884
|
|
;;^UTILITY(U,$J,601.751,8600,0)
|
|
;;=2656^2^100885
|
|
;;^UTILITY(U,$J,601.751,8601,0)
|
|
;;=2656^3^100886
|
|
;;^UTILITY(U,$J,601.751,8602,0)
|
|
;;=2656^4^100887
|
|
;;^UTILITY(U,$J,601.751,8603,0)
|
|
;;=2657^1^100888
|
|
;;^UTILITY(U,$J,601.751,8604,0)
|
|
;;=2657^2^100889
|
|
;;^UTILITY(U,$J,601.751,8605,0)
|
|
;;=2657^3^100890
|
|
;;^UTILITY(U,$J,601.751,8606,0)
|
|
;;=2657^4^100891
|
|
;;^UTILITY(U,$J,601.751,8607,0)
|
|
;;=2657^5^100892
|
|
;;^UTILITY(U,$J,601.751,8608,0)
|
|
;;=2657^6^100893
|
|
;;^UTILITY(U,$J,601.751,8609,0)
|
|
;;=2658^1^100888
|
|
;;^UTILITY(U,$J,601.751,8610,0)
|
|
;;=2658^2^100889
|
|
;;^UTILITY(U,$J,601.751,8611,0)
|
|
;;=2658^3^100890
|
|
;;^UTILITY(U,$J,601.751,8612,0)
|
|
;;=2658^4^100891
|
|
;;^UTILITY(U,$J,601.751,8613,0)
|
|
;;=2658^5^100892
|
|
;;^UTILITY(U,$J,601.751,8614,0)
|
|
;;=2658^6^100893
|
|
;;^UTILITY(U,$J,601.751,8615,0)
|
|
;;=2659^1^856
|
|
;;^UTILITY(U,$J,601.751,8616,0)
|
|
;;=2659^2^100947
|
|
;;^UTILITY(U,$J,601.751,8617,0)
|
|
;;=2659^3^855
|
|
;;^UTILITY(U,$J,601.751,8618,0)
|
|
;;=2659^4^100948
|
|
;;^UTILITY(U,$J,601.751,8619,0)
|
|
;;=2659^5^100949
|
|
;;^UTILITY(U,$J,601.751,8620,0)
|
|
;;=2660^1^856
|
|
;;^UTILITY(U,$J,601.751,8621,0)
|
|
;;=2660^2^100947
|
|
;;^UTILITY(U,$J,601.751,8622,0)
|
|
;;=2660^3^855
|
|
;;^UTILITY(U,$J,601.751,8623,0)
|
|
;;=2660^4^100948
|
|
;;^UTILITY(U,$J,601.751,8624,0)
|
|
;;=2660^5^100949
|
|
;;^UTILITY(U,$J,601.751,8625,0)
|
|
;;=2661^1^856
|
|
;;^UTILITY(U,$J,601.751,8626,0)
|
|
;;=2661^2^100947
|
|
;;^UTILITY(U,$J,601.751,8627,0)
|
|
;;=2661^3^855
|
|
;;^UTILITY(U,$J,601.751,8628,0)
|
|
;;=2661^4^100948
|
|
;;^UTILITY(U,$J,601.751,8629,0)
|
|
;;=2661^5^100949
|
|
;;^UTILITY(U,$J,601.751,8630,0)
|
|
;;=2662^1^856
|
|
;;^UTILITY(U,$J,601.751,8631,0)
|
|
;;=2662^2^100947
|
|
;;^UTILITY(U,$J,601.751,8632,0)
|
|
;;=2662^3^855
|
|
;;^UTILITY(U,$J,601.751,8633,0)
|
|
;;=2662^4^100948
|
|
;;^UTILITY(U,$J,601.751,8634,0)
|
|
;;=2662^5^100949
|
|
;;^UTILITY(U,$J,601.751,8635,0)
|
|
;;=2663^1^856
|
|
;;^UTILITY(U,$J,601.751,8636,0)
|
|
;;=2663^2^100947
|
|
;;^UTILITY(U,$J,601.751,8637,0)
|
|
;;=2663^3^855
|
|
;;^UTILITY(U,$J,601.751,8638,0)
|
|
;;=2663^4^100948
|
|
;;^UTILITY(U,$J,601.751,8639,0)
|
|
;;=2663^5^100949
|
|
;;^UTILITY(U,$J,601.751,8640,0)
|
|
;;=2664^1^100888
|
|
;;^UTILITY(U,$J,601.751,8641,0)
|
|
;;=2664^2^1404
|
|
;;^UTILITY(U,$J,601.751,8642,0)
|
|
;;=2664^3^1405
|
|
;;^UTILITY(U,$J,601.751,8643,0)
|
|
;;=2664^4^1406
|
|
;;^UTILITY(U,$J,601.751,8644,0)
|
|
;;=2664^5^1407
|
|
;;^UTILITY(U,$J,601.751,8645,0)
|
|
;;=2664^6^1408
|
|
;;^UTILITY(U,$J,601.751,8646,0)
|
|
;;=2665^1^1409
|
|
;;^UTILITY(U,$J,601.751,8647,0)
|
|
;;=2665^2^217
|
|
;;^UTILITY(U,$J,601.751,8648,0)
|
|
;;=2665^3^242
|
|
;;^UTILITY(U,$J,601.751,8649,0)
|
|
;;=2665^4^290
|
|
;;^UTILITY(U,$J,601.751,8650,0)
|
|
;;=2665^5^213
|
|
;;^UTILITY(U,$J,601.751,8651,0)
|
|
;;=2665^6^215
|
|
;;^UTILITY(U,$J,601.751,8652,0)
|
|
;;=2665^7^291
|
|
;;^UTILITY(U,$J,601.751,8653,0)
|
|
;;=2665^8^995
|
|
;;^UTILITY(U,$J,601.751,8654,0)
|
|
;;=2666^1^1409
|
|
;;^UTILITY(U,$J,601.751,8655,0)
|
|
;;=2666^2^217
|
|
;;^UTILITY(U,$J,601.751,8656,0)
|
|
;;=2666^3^242
|
|
;;^UTILITY(U,$J,601.751,8657,0)
|
|
;;=2666^4^290
|
|
;;^UTILITY(U,$J,601.751,8658,0)
|
|
;;=2666^5^213
|
|
;;^UTILITY(U,$J,601.751,8659,0)
|
|
;;=2666^6^215
|
|
;;^UTILITY(U,$J,601.751,8660,0)
|
|
;;=2666^7^291
|
|
;;^UTILITY(U,$J,601.751,8661,0)
|
|
;;=2666^8^995
|
|
;;^UTILITY(U,$J,601.751,8662,0)
|
|
;;=2667^1^1409
|
|
;;^UTILITY(U,$J,601.751,8663,0)
|
|
;;=2667^2^217
|
|
;;^UTILITY(U,$J,601.751,8664,0)
|
|
;;=2667^3^242
|
|
;;^UTILITY(U,$J,601.751,8665,0)
|
|
;;=2667^4^290
|
|
;;^UTILITY(U,$J,601.751,8666,0)
|
|
;;=2667^5^213
|
|
;;^UTILITY(U,$J,601.751,8667,0)
|
|
;;=2667^6^215
|
|
;;^UTILITY(U,$J,601.751,8668,0)
|
|
;;=2667^7^291
|
|
;;^UTILITY(U,$J,601.751,8669,0)
|
|
;;=2667^8^995
|
|
;;^UTILITY(U,$J,601.751,8670,0)
|
|
;;=2668^1^1409
|
|
;;^UTILITY(U,$J,601.751,8671,0)
|
|
;;=2668^2^217
|
|
;;^UTILITY(U,$J,601.751,8672,0)
|
|
;;=2668^3^242
|
|
;;^UTILITY(U,$J,601.751,8673,0)
|
|
;;=2668^4^290
|
|
;;^UTILITY(U,$J,601.751,8674,0)
|
|
;;=2668^5^213
|
|
;;^UTILITY(U,$J,601.751,8675,0)
|
|
;;=2668^6^215
|
|
;;^UTILITY(U,$J,601.751,8676,0)
|
|
;;=2668^7^291
|
|
;;^UTILITY(U,$J,601.751,8677,0)
|
|
;;=2668^8^995
|
|
;;^UTILITY(U,$J,601.751,8678,0)
|
|
;;=2669^1^1409
|
|
;;^UTILITY(U,$J,601.751,8679,0)
|
|
;;=2669^2^217
|
|
;;^UTILITY(U,$J,601.751,8680,0)
|
|
;;=2669^3^242
|
|
;;^UTILITY(U,$J,601.751,8681,0)
|
|
;;=2669^4^290
|
|
;;^UTILITY(U,$J,601.751,8682,0)
|
|
;;=2669^5^213
|
|
;;^UTILITY(U,$J,601.751,8683,0)
|
|
;;=2669^6^215
|
|
;;^UTILITY(U,$J,601.751,8684,0)
|
|
;;=2669^7^291
|
|
;;^UTILITY(U,$J,601.751,8685,0)
|
|
;;=2669^8^995
|
|
;;^UTILITY(U,$J,601.751,8686,0)
|
|
;;=2670^1^1409
|
|
;;^UTILITY(U,$J,601.751,8687,0)
|
|
;;=2670^2^217
|
|
;;^UTILITY(U,$J,601.751,8688,0)
|
|
;;=2670^3^242
|
|
;;^UTILITY(U,$J,601.751,8689,0)
|
|
;;=2670^4^290
|
|
;;^UTILITY(U,$J,601.751,8690,0)
|
|
;;=2670^5^213
|
|
;;^UTILITY(U,$J,601.751,8691,0)
|
|
;;=2670^6^215
|
|
;;^UTILITY(U,$J,601.751,8692,0)
|
|
;;=2670^7^291
|
|
;;^UTILITY(U,$J,601.751,8693,0)
|
|
;;=2670^8^995
|
|
;;^UTILITY(U,$J,601.751,8694,0)
|
|
;;=2671^1^1410
|
|
;;^UTILITY(U,$J,601.751,8695,0)
|
|
;;=2671^2^1411
|
|
;;^UTILITY(U,$J,601.751,8696,0)
|
|
;;=2671^3^1063
|
|
;;^UTILITY(U,$J,601.751,8697,0)
|
|
;;=2671^4^1062
|
|
;;^UTILITY(U,$J,601.751,8698,0)
|
|
;;=2671^5^1061
|
|
;;^UTILITY(U,$J,601.751,8699,0)
|
|
;;=2671^6^1059
|
|
;;^UTILITY(U,$J,601.751,8700,0)
|
|
;;=2672^1^100884
|
|
;;^UTILITY(U,$J,601.751,8701,0)
|
|
;;=2672^2^1412
|
|
;;^UTILITY(U,$J,601.751,8702,0)
|
|
;;=2672^3^1413
|
|
;;^UTILITY(U,$J,601.751,8703,0)
|
|
;;=2672^4^1414
|
|
;;^UTILITY(U,$J,601.751,8704,0)
|
|
;;=2672^5^1415
|
|
;;^UTILITY(U,$J,601.751,8705,0)
|
|
;;=2672^6^1416
|
|
;;^UTILITY(U,$J,601.751,8706,0)
|
|
;;=2673^1^100884
|
|
;;^UTILITY(U,$J,601.751,8707,0)
|
|
;;=2673^2^1412
|
|
;;^UTILITY(U,$J,601.751,8708,0)
|
|
;;=2673^3^1413
|
|
;;^UTILITY(U,$J,601.751,8709,0)
|
|
;;=2673^4^1414
|
|
;;^UTILITY(U,$J,601.751,8710,0)
|
|
;;=2673^5^1415
|
|
;;^UTILITY(U,$J,601.751,8711,0)
|
|
;;=2673^6^1416
|
|
;;^UTILITY(U,$J,601.751,8712,0)
|
|
;;=2674^1^1417
|
|
;;^UTILITY(U,$J,601.751,8713,0)
|
|
;;=2674^2^1418
|
|
;;^UTILITY(U,$J,601.751,8714,0)
|
|
;;=2674^3^1419
|
|
;;^UTILITY(U,$J,601.751,8715,0)
|
|
;;=2674^4^1420
|
|
;;^UTILITY(U,$J,601.751,8716,0)
|
|
;;=2674^5^1421
|
|
;;^UTILITY(U,$J,601.751,8717,0)
|
|
;;=2674^6^1422
|
|
;;^UTILITY(U,$J,601.751,8718,0)
|
|
;;=2674^7^1423
|
|
;;^UTILITY(U,$J,601.751,8719,0)
|
|
;;=2674^8^1424
|
|
;;^UTILITY(U,$J,601.751,8720,0)
|
|
;;=2675^1^237
|
|
;;^UTILITY(U,$J,601.751,8721,0)
|
|
;;=2675^2^241
|
|
;;^UTILITY(U,$J,601.751,8722,0)
|
|
;;=2676^1^237
|
|
;;^UTILITY(U,$J,601.751,8723,0)
|
|
;;=2676^2^241
|
|
;;^UTILITY(U,$J,601.751,8724,0)
|
|
;;=2677^1^237
|
|
;;^UTILITY(U,$J,601.751,8725,0)
|
|
;;=2677^2^241
|
|
;;^UTILITY(U,$J,601.751,8726,0)
|
|
;;=2678^1^237
|
|
;;^UTILITY(U,$J,601.751,8727,0)
|
|
;;=2678^2^241
|
|
;;^UTILITY(U,$J,601.751,8728,0)
|
|
;;=2679^1^237
|
|
;;^UTILITY(U,$J,601.751,8729,0)
|
|
;;=2679^2^241
|
|
;;^UTILITY(U,$J,601.751,8730,0)
|
|
;;=2680^1^237
|
|
;;^UTILITY(U,$J,601.751,8731,0)
|
|
;;=2680^2^241
|
|
;;^UTILITY(U,$J,601.751,8732,0)
|
|
;;=2681^1^237
|
|
;;^UTILITY(U,$J,601.751,8733,0)
|
|
;;=2681^2^241
|
|
;;^UTILITY(U,$J,601.751,8734,0)
|
|
;;=2682^1^237
|
|
;;^UTILITY(U,$J,601.751,8735,0)
|
|
;;=2682^2^241
|
|
;;^UTILITY(U,$J,601.751,8736,0)
|
|
;;=2683^1^237
|
|
;;^UTILITY(U,$J,601.751,8737,0)
|
|
;;=2683^2^241
|
|
;;^UTILITY(U,$J,601.751,8738,0)
|
|
;;=2684^1^237
|
|
;;^UTILITY(U,$J,601.751,8739,0)
|
|
;;=2684^2^241
|
|
;;^UTILITY(U,$J,601.751,8740,0)
|
|
;;=2685^1^237
|
|
;;^UTILITY(U,$J,601.751,8741,0)
|
|
;;=2685^2^241
|
|
;;^UTILITY(U,$J,601.751,8742,0)
|
|
;;=2686^1^237
|
|
;;^UTILITY(U,$J,601.751,8743,0)
|
|
;;=2686^2^241
|
|
;;^UTILITY(U,$J,601.751,8744,0)
|
|
;;=2687^1^237
|
|
;;^UTILITY(U,$J,601.751,8745,0)
|
|
;;=2687^2^241
|
|
;;^UTILITY(U,$J,601.751,8746,0)
|
|
;;=2688^1^237
|
|
;;^UTILITY(U,$J,601.751,8747,0)
|
|
;;=2688^2^241
|
|
;;^UTILITY(U,$J,601.751,8748,0)
|
|
;;=2689^1^237
|
|
;;^UTILITY(U,$J,601.751,8749,0)
|
|
;;=2689^2^241
|
|
;;^UTILITY(U,$J,601.751,8750,0)
|
|
;;=2690^1^237
|
|
;;^UTILITY(U,$J,601.751,8751,0)
|
|
;;=2690^2^241
|
|
;;^UTILITY(U,$J,601.751,8752,0)
|
|
;;=2691^1^237
|
|
;;^UTILITY(U,$J,601.751,8753,0)
|
|
;;=2691^2^241
|
|
;;^UTILITY(U,$J,601.751,8754,0)
|
|
;;=2692^1^237
|
|
;;^UTILITY(U,$J,601.751,8755,0)
|
|
;;=2692^2^241
|
|
;;^UTILITY(U,$J,601.751,8756,0)
|
|
;;=2693^1^237
|