Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AZHQTRNS

AZHQTRNS.m

Go to the documentation of this file.
AZHQTRNS ;IHS/OIRM/DSD/AEF - BUILD ARRAY OF PATCHES FOR TRANSPORT GLOBAL [ 01/28/2003  4:02 PM ]
 ;;1.0;ANNE'S SPECIAL ROUTINES;;NOV 04,2002
 ;;
 ;
EN ;EP -- MAIN ENTRY POINT
 ;
 Q
KERNEL ;----- INSERT KERNEL PATCHES
 ;
 S PKG="KRN"
 D BLD
 Q
FILEMAN ;----- INSERT FILEMAN PATCHES
 ;
 S PKG="FM"
 D BLD
 Q
TOOLKIT ;----- INSERT TOOLKIT PATCHES
 ;
 S PKG="TK"
 D BLD
 Q
HL7 ;----- INSERT HL7 PATCHES
 ;
 S PKG="HL"
 D BLD
 Q
RPCBROK ;----- INSERT RPC BROKER PACHES
 ;
 S PKG="RPC"
 D BLD
 Q
BLD ;----- BUILD ARRAY OF PATCHES     
 ;          
 N CNT,IEN,PATCH,I,X,Y
 F I=3:1 S X=$T(@PKG+I) Q:X["$$END"  D
 . S PATCH=$P(X,";",4)
 . Q:PATCH']""
 . S IEN=$$IEN(PATCH)
 . Q:IEN'>0
 . S PATCH=PATCH_"^"
 . D PCK^XPDT(IEN,PATCH,0)
 Q
IEN(X) ;----- RETURNS PATCH IEN
 ;
 ;      X  =  PATCH NAME
 ;
 N DIC
 S DIC="^XPD(9.6,"
 S DIC(0)=""
 D ^DIC
 Q +Y
KRN ;----- LIST OF KERNEL PATCHES TO INCLUDE IN BUILD ARRAY
 ;;INSTALL ORDER;NAME;SEQ;IEN
 ;;1;XU*8.0*1007;7
 ;;2;XU*8.0*40;30;19
 ;;3;XU*8.0*41;31;413
 ;;4;XU*8.0*29;32
 ;;5;XU*8.0*42;33
 ;;6;XU*8.0*35;34
 ;;7;XU*8.0*44;35
 ;;8;XU*8.0*14;36
 ;;9;XU*8.0*47;37
 ;;10;XU*8.0*50;38
 ;;11;XU*8.0*48;39
 ;;12;XU*8.0*51;40
 ;;13;XU*8.0*36;41
 ;;14;XU*8.0*56;43
 ;;15;XU*8.0*55;44
 ;;16;XU*8.0*57;45
 ;;17;XU*8.0*58;46
 ;;18;XU*8.0*61;47
 ;;19;XU*8.0*66;48
 ;;20;XU*8.0*49;49
 ;;21;XU*8.0*64;50
 ;;22;XU*8.0*59;51
 ;;23;XU*8.0*70;52
 ;;24;XU*8.0*62;53
 ;;25;XU*8.0*68;54
 ;;26;XU*8.0*63;55
 ;;27;XU*8.0*65;56
 ;;28;XU*8.0*73;57
 ;;29;XU*8.0*60;58
 ;;30;XU*8.0*71;59
 ;;31;XU*8.0*77;60
 ;;32;XU*8.0*78;61
 ;;33;XU*8.0*67;62
 ;;34;XU*8.0*76;63
 ;;35;XU*8.0*83;64
 ;;36;XU*8.0*46;65
 ;;37;XU*8.0*84;66
 ;;38;XU*8.0*74;67
 ;;39;XU*8.0*75;68
 ;;40;XU*8.0*72;69
 ;;41;XU*8.0*80;70
 ;;42;XU*8.0*81;71
 ;;43;XU*8.0*43;72
 ;;44;XU*8.0*90;73
 ;;45;XU*8.0*69;74
 ;;46;XU*8.0*88;75
 ;;47;XU*8.0*92;76
 ;;48;XU*8.0*87;77
 ;;49;XU*8.0*79;78
 ;;50;XU*8.0*34;79
 ;;51;XU*8.0*85;80
 ;;52;XU*8.0*95;81
 ;;53;XU*8.0*97;82
 ;;54;XU*8.0*89;83
 ;;55;XU*8.0*86;84
 ;;56;XU*8.0*94;85
 ;;57;XU*8.0*99;86
 ;;58;XU*8.0*82;87
 ;;59;XU*8.0*102;88
 ;;60;XU*8.0*105;89
 ;;61;XU*8.0*96;90
 ;;62;XU*8.0*103;91
 ;;63;XU*8.0*91;92
 ;;64;XU*8.0*101;93
 ;;65;XU*8.0*104;94
 ;;66;XU*8.0*109;95
 ;;67;XU*8.0*107;96
 ;;68;XU*8.0*113;97
 ;;69;XU*8.0*111;98
 ;;70;XU*8.0*100;99
 ;;71;XU*8.0*110;100
 ;;72;XU*8.0*116;101
 ;;73;XU*8.0*112;102
 ;;74;XU*8.0*98;103
 ;;75;XU*8.0*121;104
 ;;76;XU*8.0*117;105
 ;;77;XU*8.0*114;106
 ;;78;XU*8.0*37;107
 ;;79;XU*8.0*108;108
 ;;80;XU*8.0*123;109
 ;;81;XU*8.0*115;110
 ;;82;XU*8.0*124;111
 ;;83;XU*8.0*118;112
 ;;84;XU*8.0*120;113
 ;;85;XU*8.0*125;114
 ;;86;XU*8.0*128;115
 ;;87;XU*8.0*129;116
 ;;88;XU*8.0*127;117
 ;;89;XU*8.0*133;118
 ;;90;XU*8.0*131;119
 ;;91;XU*8.0*135;120
 ;;92;XU*8.0*140;121
 ;;93;XU*8.0*141;122
 ;;94;XU*8.0*137;123
 ;;95;XU*8.0*130;124
 ;;96;XU*8.0*122;125
 ;;97;XU*8.0*144;126
 ;;98;XU*8.0*106;127
 ;;99;XU*8.0*134;128
 ;;100;XU*8.0*145;129
 ;;101;XU*8.0*146;130
 ;;102;XU*8.0*142;131
 ;;103;XU*8.0*136;132
 ;;104;XU*8.0*152;133
 ;;105;XU*8.0*143;134
 ;;106;XU*8.0*158;135
 ;;107;XU*8.0*153;136
 ;;108;XU*8.0*138;137
 ;;109;XU*8.0*164;138
 ;;110;XU*8.0*165;139
 ;;111;XU*8.0*159;141
 ;;112;XU*8.0*163;142
 ;;113;XU*8.0*166;143
 ;;114;XU*8.0*167;144
 ;;115;XU*8.0*151;145
 ;;116;XU*8.0*162;146
 ;;117;XU*8.0*168;147
 ;;118;XU*8.0*170;148
 ;;119;XU*8.0*150;149
 ;;120;XU*8.0*178;150
 ;;121;XU*8.0*149;151
 ;;122;XU*8.0*176;152
 ;;123;XU*8.0*154;153
 ;;124;XU*8.0*181;154
 ;;125;XU*8.0*182;155
 ;;126;XU*8.0*175;156
 ;;127;XU*8.0*148;157
 ;;128;XU*8.0*171;158
 ;;129;XU*8.0*177;159
 ;;130;XU*8.0*179;160
 ;;131;XU*8.0*185;161
 ;;132;XU*8.0*132;162
 ;;133;XU*8.0*183;163
 ;;134;XU*8.0*188;164
 ;;135;XU*8.0*180;165
 ;;136;XU*8.0*184;166
 ;;137;XU*8.0*155;167
 ;;138;XU*8.0*126;168
 ;;139;XU*8.0*206;169
 ;;140;XU*8.0*196;170
 ;;141;XU*8.0*169;171
 ;;142;XU*8.0*192;172
 ;;143;XU*8.0*197;173
 ;;144;XU*8.0*201;174
 ;;145;XU*8.0*213;175
 ;;146;XU*8.0*214;176
 ;;147;XU*8.0*210;177
 ;;148;XU*8.0*208;178
 ;;149;XU*8.0*199;179
 ;;150;XU*8.0*209;180
 ;;151;XU*8.0*212;181
 ;;152;XU*8.0*216;182
 ;;153;XU*8.0*200;183
 ;;154;XU*8.0*205;184
 ;;155;XU*8.0*215;185
 ;;156;XU*8.0*202;186
 ;;157;XU*8.0*221;187
 ;;158;XU*8.0*211;188
 ;;159;XU*8.0*173;189
 ;;160;XU*8.0*226;190
 ;;;RESOURCE USAGE MONITOR 1.0
 ;;1;KMPR*1.0*1
 ;;2;KMPR*1.0*2
 ;;;SAGG PROJECT 1.8
 ;;1;KMPS*1.8*1
 ;;;RPC BROKER 1.1
 ;;1;XWB*1.1*1
 ;;2;XWB*1.1*2
 ;;3;XWB*1.1*3
 ;;4;XWB*1.1*5
 ;;5;XWB*1.1*7
 ;;6;XWB*1.1*4
 ;;7;XWB*1.1*6
 ;;8;XWB*1.1*8
 ;;9;XWB*1.1*9
 ;;10;XWB*1.1*11
 ;;11;XWB*1.1*15
 ;;12;XWB*1.1*10
 ;;13;XWB*1.1*12
 ;;14;XWB*1.1*18
 ;;15;XWB*1.1*14
 ;;16;XWB*1.1*20
 ;;17;XWB*1.1*22
 ;;19;XWB*1.1*16
 ;;20;XWB*1.1*27
 ;;21;XWB*1.1*25
 ;;22;XWB*1.1*13
 ;;23;XWB*1.1*26
 ;;24;XWB*1.1*29
 ;;9;A4A7*1.01*9
 ;;10;A4A7*1.01*10
 ;;11;A4A7*1.01*11
 ;;1;AVA*93.2*15
 ;;$$END
FM ;----- LIST OF FILEMAN PATCHES TO INCLUDE IN BUILD
 ;;SEQ;NAME 
 ;;;DI*22.0*1001
 ;;1;DI*22.0*1
 ;;2;DI*22.0*13
 ;;3;DI*22.0*12
 ;;4;DI*22.0*14
 ;;5;DI*22.0*7
 ;;6;DI*22.0*16
 ;;7;DI*22.0*15
 ;;8;DI*22.0*10
 ;;9;DI*22.0*4
 ;;10;DI*22.0*2
 ;;11;DI*22.0*17
 ;;12;DI*22.0*21
 ;;13;DI*22.0*22
 ;;14;DI*22.0*23
 ;;15;DI*22.0*27
 ;;16;DI*22.0*24
 ;;17;DI*22.0*25
 ;;18;DI*22.0*20
 ;;19;DI*22.0*29
 ;;20;DI*22.0*8
 ;;21;DI*22.0*9
 ;;22;DI*22.0*26
 ;;23;DI*22.0*30
 ;;24;DI*22.0*32
 ;;25;DI*22.0*28
 ;;26;DI*22.0*33
 ;;27;DI*22.0*36
 ;;28;DI*22.0*39
 ;;29;DI*22.0*11
 ;;30;DI*22.0*31
 ;;31;DI*22.0*6
 ;;32;DI*22.0*34
 ;;33;DI*22.0*19
 ;;34;DI*22.0*37
 ;;35;DI*22.0*5
 ;;36;DI*22.0*35
 ;;37;DI*22.0*3
 ;;38;DI*22.0*40
 ;;39;DI*22.0*48
 ;;40;DI*22.0*51
 ;;41;DI*22.0*38
 ;;42;DI*22.0*43
 ;;43;DI*22.0*44
 ;;44;DI*22.0*45
 ;;45;DI*22.0*47
 ;;46;DI*22.0*50
 ;;47;DI*22.0*46
 ;;48;DI*22.0*54
 ;;49;DI*22.0*56
 ;;50;DI*22.0*53
 ;;51;DI*22.0*57
 ;;52;DI*22.0*61
 ;;53;DI*22.0*55
 ;;54;DI*22.0*58
 ;;55;DI*22.0*60
 ;;56;DI*22.0*62
 ;;57;DI*22.0*65
 ;;58;DI*22.0*69
 ;;59;DI*22.0*63
 ;;60;DI*22.0*64
 ;;61;DI*22.0*74
 ;;62;DI*22.0*67
 ;;63;DI*22.0*81
 ;;64;DI*22.0*72
 ;;66;DI*22.0*52
 ;;67;DI*22.0*79
 ;;68;DI*22.0*42
 ;;69;DI*22.0*75
 ;;70;DI*22.0*85
 ;;71;DI*22.0*88
 ;;72;DI*22.0*73
 ;;73;DI*22.0*77
 ;;74;DI*22.0*78
 ;;75;DI*22.0*87
 ;;76;DI*22.0*86
 ;;77;DI*22.0*18
 ;;78;DI*22.0*59
 ;;79;DI*22.0*82
 ;;80;DI*22.0*41
 ;;81;DI*22.0*68
 ;;82;DI*22.0*49
 ;;83;DI*22.0*90
 ;;84;DI*22.0*94
 ;;85;DI*22.0*92
 ;;86;DI*22.0*83
 ;;87;DI*22.0*91
 ;;88;DI*22.0*89
 ;;$$END
TK ;----- LIST OF TOOLKIT PATCHES TO INCLUDE IN BUILD
 ;;SEQ;NAME
 ;;;XT*7.3*1001
 ;;1;XT*7.3*1
 ;;2;XT*7.3*2
 ;;3;XT*7.3*8
 ;;4;XT*7.3*9
 ;;5;XT*7.3*5
 ;;6;XT*7.3*6
 ;;7;XT*7.3*7
 ;;8;XT*7.3*12
 ;;9;XT*7.3*3
 ;;10;XT*7.3*13
 ;;11;XT*7.3*14
 ;;12;XT*7.3*11
 ;;13;XT*7.3*17
 ;;14;XT*7.3*15
 ;;15;XT*7.3*20
 ;;16;XT*7.3*25
 ;;17;XT*7.3*23
 ;;18;XT*7.3*28
 ;;19;XT*7.3*29
 ;;20;XT*7.3*30
 ;;21;XT*7.3*27
 ;;22;XT*7.3*32
 ;;23;XT*7.3*33
 ;;24;XT*7.3*26
 ;;25;XT*7.3*34
 ;;26;XT*7.3*35
 ;;27;XT*7.3*37
 ;;28;XT*7.3*38
 ;;29;XT*7.3*40
 ;;30;XT*7.3*36
 ;;31;XT*7.3*42
 ;;32;XT*7.3*43
 ;;33;XT*7.3*44
 ;;34;XT*7.3*45
 ;;35;XT*7.3*46
 ;;36;XT*7.3*39
 ;;37;XT*7.3*48
 ;;38;XT*7.3*47
 ;;39;XT*7.3*49
 ;;40;XT*7.3*51
 ;;41;XT*7.3*52
 ;;42;XT*7.3*53
 ;;43;XT*7.3*54
 ;;44;XT*7.3*19
 ;;45;XT*7.3*55
 ;;46;XT*7.3*56
 ;;47;XT*7.3*60
 ;;48;XT*7.3*62
 ;;$$END
HL ;----- LIST OF HL7 PATCHES TO INCLUDE IN BUILD HL*1.6*1004
 ;;SEQ;NAME
 ;;;HL*1.6*1004
 ;;20;HL*1.6*26
 ;;21;HL*1.6*28
 ;;22;HL*1.6*29
 ;;23;HL*1.6*23
 ;;24;HL*1.6*24
 ;;25;HL*1.6*30
 ;;27;HL*1.6*35
 ;;28;HL*1.6*36
 ;;29;HL*1.6*38
 ;;30;HL*1.6*34
 ;;31;HL*1.6*41
 ;;32;HL*1.6*42
 ;;33;HL*1.6*14
 ;;34;HL*1.6*37
 ;;35;HL*1.6*40
 ;;36;HL*1.6*19
 ;;37;HL*1.6*43
 ;;39;HL*1.6*51
 ;;40;HL*1.6*48
 ;;41;HL*1.6*44
 ;;42;HL*1.6*55
 ;;43;HL*1.6*50
 ;;44;HL*1.6*47
 ;;45;HL*1.6*49
 ;;46;HL*1.6*39
 ;;47;HL*1.6*54
 ;;48;HL*1.6*57
 ;;50;HL*1.6*60
 ;;51;HL*1.6*58
 ;;52;HL*1.6*63
 ;;53;HL*1.6*61
 ;;54;HL*1.6*59
 ;;55;HL*1.6*64
 ;;56;HL*1.6*65
 ;;57;HL*1.6*66
 ;;58;HL*1.6*67
 ;;59;HL*1.6*68
 ;;61;HL*1.6*73
 ;;62;HL*1.6*72
 ;;63;HL*1.6*69
 ;;64;HL*1.6*76
 ;;65;HL*1.6*80
 ;;66;HL*1.6*77
 ;;67;HL*1.6*81
 ;;68;HL*1.6*75
 ;;69;HL*1.6*82
 ;;70;HL*1.6*83
 ;;71;HL*1.6*79
 ;;72;HL*1.6*62
 ;;73;HL*1.6*78
 ;;74;HL*1.6*71
 ;;75;HL*1.6*89
 ;;76;HL*1.6*92
 ;;77;HL*1.6*91
 ;;78;HL*1.6*85
 ;;79;HL*1.6*87
 ;;$$END
RPC ;----- LIST OF RPC BROKER PATCHES TO INCLUDE IN BUILD XWB*1.1*1001
 ;;SEQ;NAME
 ;;;XWB*1.1*1001
 ;;1;XWB*1.1*1
 ;;2;XWB*1.1*2
 ;;3;XWB*1.1*3
 ;;4;XWB*1.1*5
 ;;5;XWB*1.1*7
 ;;6;XWB*1.1*4
 ;;7;XWB*1.1*6
 ;;8;XWB*1.1*8
 ;;9;XWB*1.1*9
 ;;10;XWB*1.1*11
 ;;11;XWB*1.1*15
 ;;12;XWB*1.1*10
 ;;13;XWB*1.1*12
 ;;14;XWB*1.1*18
 ;;15;XWB*1.1*14
 ;;16;XWB*1.1*20
 ;;17;XWB*1.1*22
 ;;18;XWB*1.1*24
 ;;19;XWB*1.1*16
 ;;20;XWB*1.1*27
 ;;21;XWB*1.1*25
 ;;22;XWB*1.1*13
 ;;23;XWB*1.1*26
 ;;24;XWB*1.1*29
 ;;$$END