XU8P377.m

XU8P377 ;BT/BP-OAK - UPDATE PERSON CLASS FILE; [6/21/05 10:50am]

 ;;8.0;KERNEL;**377**; JULY 10,1995

 ;UPDATE PRESON CLASS

 ;

 Q

PRE ;

 K ^USC(8932.1)

 Q

DOINAC ;

 N XU1,XU2,XUDATA,XUIEN

 ;loop through INAC^XUP8P377

 W !!,"Inactivate Entries: "

 W !,"===================="

 F XU1=1:1:19 S XUDATA=$P($T(DATA+XU1),";",3,99) D

 . W !

 . F XU2=1:1 S XUIEN=$P(XUDATA,";",XU2) Q:XUIEN="$END$"  D INAC W XUIEN," "

 Q

INAC ;

 I +XUIEN'>0 Q

 N XUA S XUIEN=+XUIEN

 L +^USC(8932.1,XUIEN,0):10 I '$T D  Q

 .S XUA(1)="",XUA(2)=">>>Record # "_XUIEN_" locked at time of patch installation. Could not inactivate." D MES^XPDUTL(.XUA)

 N DR,DIE,DA S DR="3////i",DIE="^USC(8932.1,",DA=XUIEN D ^DIE

 N DR,DIE,DA S DR="4///^S X=DT",DIE="^USC(8932.1,",DA=XUIEN D ^DIE

 N DR,DIE,DA S DR="6///@",DIE="^USC(8932.1,",DA=XUIEN D ^DIE

 L -^USC(8932.1,XUIEN,0)

 Q

DATA ;;

 ;;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;17;18;19;20;21;$END$

 ;;22;23;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;$END$

 ;;41;42;43;45;46;47;48;49;50;51;52;53;54;55;56;57;58;$END$

 ;;59;61;62;63;64;65;66;67;69;70;71;72;73;74;75;76;77;$END$

 ;;78;79;80;81;82;83;84;85;86;87;88;89;90;91;92;93;94;$END$

 ;;95;96;97;98;99;100;101;102;103;104;105;106;107;108;$END$

 ;;109;110;111;112;113;114;115;116;117;118;119;120;121;$END$

 ;;122;123;124;125;126;127;128;131;133;134;135;136;138;$END$

 ;;139;141;142;143;146;147;148;149;150;152;154;155;156;$END$

 ;;157;158;159;160;162;163;165;166;168;170;171;172;173;$END$

 ;;174;175;176;177;178;233;252;309;320;335;359;360;361;$END$

 ;;376;441;442;443;445;446;462;469;471;474;537;549;561;$END$

 ;;569;570;571;572;573;574;575;576;577;578;579;580;581;$END$

 ;;582;583;584;585;586;587;588;589;590;591;592;593;594;$END$

 ;;595;596;597;598;599;600;601;602;603;604;605;606;607;$END$

 ;;608;611;614;617;629;630;631;632;636;638;641;644;645;$END$

 ;;646;680;684;685;686;687;688;689;690;691;692;693;694;$END$

 ;;695;696;697;698;699;700;701;702;703;704;705;706;707;$END$

 ;;708;709;710;711;712;713;714;715;716;717;718;725;732;$END$

 ;;$END$

XU8P377   ;BT/BP-OAK - UPDATE PERSON CLASS FILE; [6/21/05 10:50am]

 +1       ;;8.0;KERNEL;**377**; JULY 10,1995

 +2       ;UPDATE PRESON CLASS

 +3       ;

 +4        QUIT 

PRE       ;

 +1        KILL ^USC(8932.1)

 +2        QUIT 

DOINAC    ;

 +1        NEW XU1,XU2,XUDATA,XUIEN

 +2       ;loop through INAC^XUP8P377

 +3        WRITE !!,"Inactivate Entries: "

 +4        WRITE !,"===================="

 +5        FOR XU1=1:1:19

               SET XUDATA=$PIECE($TEXT(DATA+XU1),";",3,99)

               Begin DoDot:1

 +6                WRITE !

 +7                FOR XU2=1:1

                       SET XUIEN=$PIECE(XUDATA,";",XU2)

                       IF XUIEN="$END$"

                           QUIT 

                       DO INAC

                       WRITE XUIEN," "

               End DoDot:1

 +8        QUIT 

INAC      ;

 +1        IF +XUIEN'>0

               QUIT 

 +2        NEW XUA

           SET XUIEN=+XUIEN

 +3        LOCK +^USC(8932.1,XUIEN,0):10

           IF '$TEST

               Begin DoDot:1

 +4                SET XUA(1)=""

                   SET XUA(2)=">>>Record # "_XUIEN_" locked at time of patch installation. Could not inactivate."

                   DO MES^XPDUTL(.XUA)

               End DoDot:1

               QUIT 

 +5        NEW DR,DIE,DA

           SET DR="3////i"

           SET DIE="^USC(8932.1,"

           SET DA=XUIEN

           DO ^DIE

 +6        NEW DR,DIE,DA

           SET DR="4///^S X=DT"

           SET DIE="^USC(8932.1,"

           SET DA=XUIEN

           DO ^DIE

 +7        NEW DR,DIE,DA

           SET DR="6///@"

           SET DIE="^USC(8932.1,"

           SET DA=XUIEN

           DO ^DIE

 +8        LOCK -^USC(8932.1,XUIEN,0)

 +9        QUIT 

DATA      ;;

 +1       ;;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;17;18;19;20;21;$END$

 +2       ;;22;23;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;$END$

 +3       ;;41;42;43;45;46;47;48;49;50;51;52;53;54;55;56;57;58;$END$

 +4       ;;59;61;62;63;64;65;66;67;69;70;71;72;73;74;75;76;77;$END$

 +5       ;;78;79;80;81;82;83;84;85;86;87;88;89;90;91;92;93;94;$END$

 +6       ;;95;96;97;98;99;100;101;102;103;104;105;106;107;108;$END$

 +7       ;;109;110;111;112;113;114;115;116;117;118;119;120;121;$END$

 +8       ;;122;123;124;125;126;127;128;131;133;134;135;136;138;$END$

 +9       ;;139;141;142;143;146;147;148;149;150;152;154;155;156;$END$

 +10      ;;157;158;159;160;162;163;165;166;168;170;171;172;173;$END$

 +11      ;;174;175;176;177;178;233;252;309;320;335;359;360;361;$END$

 +12      ;;376;441;442;443;445;446;462;469;471;474;537;549;561;$END$

 +13      ;;569;570;571;572;573;574;575;576;577;578;579;580;581;$END$

 +14      ;;582;583;584;585;586;587;588;589;590;591;592;593;594;$END$

 +15      ;;595;596;597;598;599;600;601;602;603;604;605;606;607;$END$

 +16      ;;608;611;614;617;629;630;631;632;636;638;641;644;645;$END$

 +17      ;;646;680;684;685;686;687;688;689;690;691;692;693;694;$END$

 +18      ;;695;696;697;698;699;700;701;702;703;704;705;706;707;$END$

 +19      ;;708;709;710;711;712;713;714;715;716;717;718;725;732;$END$

 +20      ;;$END$