- 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$
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P377 2053 printed Feb 18, 2025@23:33:49 Page 2
- 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$