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

SRTPUTLC.m

Go to the documentation of this file.
  1. SRTPUTLC ;BIR/SJA - UTILITY ROUTINE ;08/18/2011
  1. ;;3.0;Surgery;**167,176**;24 Jun 93;Build 8
  1. CHK ; check for missing transplant assessment information
  1. K SRX,SRZZ,SRMM S SRMM=0
  1. D @SRTYPE
  1. Q
  1. K ; kidney data entry fields
  1. ; kidney recipient information
  1. S DR=$S(SRNOVA:"3;1;11;187;10;12;4;5;96;26;27;95;97;33;19;98;37;42;94",1:"3;11;187;10;12;96;26;27;95;97;33;19;98;37;42;94") D DATA
  1. ; kidney transplant information
  1. S DR="85;87;89;68;143;144;9;197;13;14;15;17;16;18" D DATA
  1. ; PREOPERATIVE RISK ASSESSMENT/RISK ASSESSMENT
  1. S DR=$S(SRNOVA:"200;201;59;60;61;75;108;113;80;83;131;115;109;110;92;145;132;146;90",1:"59;60;61;75;108;113;80;115;90;83;109;110;92;133") D DATA
  1. ; kidney outcome data
  1. I SRNOVA S DR="116;117;118;119;192;121;122;123;124;125;126;193;133" D DATA
  1. ; kidney donor information
  1. S DR="44" D DATA
  1. S DR="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72" D DATA
  1. ; pancreas information
  1. S DR="134;135;136;137;138;139;140;141;142" D DATA
  1. Q
  1. LI ; liver data entry fields
  1. ; recipient information
  1. S DR=$S(SRNOVA:"3;1;11;4;5;10;12;52;53;54;55;19",1:"3;11;10;12;52;53;54;55;19") D DATA
  1. ; diagnosis information
  1. S DR="21;20;23;99;100;101;27;28;29;30;102;34;35;38;105;39;106;107;47;56;111;120;127;94" D DATA
  1. ; diagnosis information
  1. S DR="85;87;89;68;13;14;15;17;16;18" D DATA
  1. ; risk assessment information
  1. S DR=$S(SRNOVA:"86;84;200;201;59;60;113;108;114;90;91;78;79",1:"86;84;59;60;108;113;114;90;91;78;79;81;82;83;109;110") D DATA
  1. ; donor information for VA
  1. I 'SRNOVA D
  1. .S DR="44" D DATA
  1. .S DR="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72" D DATA
  1. ; risk assessment information for Non-VA
  1. I SRNOVA S DR="81;82;88;83;109;110;145;132;146;131" D DATA
  1. ; outcome information for non-VA
  1. I SRNOVA S DR="116;117;118;119;192;121;122;123;124;125;126;193" D DATA
  1. I SRNOVA D
  1. .S DR="44" D DATA
  1. .S DR="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72" D DATA
  1. Q
  1. LU ; lung data entry fields
  1. ; recipient information
  1. S DR=$S(SRNOVA:"3;1;11;4;5;10;12;40;41;24;25;32;129;19;43;22;128;94",1:"3;11;10;12;40;41;24;25;32;43;22;128;94;129;19") D DATA
  1. ; lung transplant information
  1. S DR="50;51;85;87;89;68;13;14;15;17;16;18" D DATA
  1. ; preoperative risk assessment
  1. S DR=$S(SRNOVA:"200;201;59;60;71;108;61;75;113;114;131;115;90;83;109;110;145;132;146;80",1:"59;60;71;108;61;75;113;114;80;115;90;83;109;110") D DATA
  1. ; outcome information
  1. I SRNOVA S DR="116;117;118;119;192;121;122;123;124;125;126;193" D DATA
  1. ; donor information
  1. S DR="44" D DATA
  1. S DR="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72" D DATA
  1. Q
  1. H ; heart data entry fields
  1. ; recipient information
  1. S DR=$S(SRNOVA:"3;1;11;58;57;4;5;10;12;167;168;163;164;19;165;89;166;68",1:"3;11;58;57;163;164;165;89;166;68;10;12;19") D DATA
  1. ; diagnosis information
  1. S DR="155;156;157;158;159;43;160;161;162;94;112;13;14;15;16;17;18" D DATA
  1. ; risk assessment information
  1. S DR=$S(SRNOVA:"76;169;177;149;173;202;203;175;62;176;74;152;198;199;172;179;178;132;145;150;151;200;201;59;60",1:"62;149;150;151;59;60;152;108;153;74;115;81;82;109;110;90;83;75;154") D DATA
  1. ; risk assessment info
  1. I SRNOVA D D DATA
  1. .S DR="75;154;108;115;81;82;90;83;153" S DR=DR_"193;170;192;191;190;119;189;148;118;121;122;130;109;110"
  1. ; donor information
  1. S DR="44" D DATA
  1. S DR="45;31;36;70;46;48;49;77;69;104;64;65;66;73;67;72" D DATA
  1. Q
  1. DATA K DIC,DIQ,SRY,SRYY S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="I" D EN^DIQ1
  1. I $P(DR,";")=44 D RACE
  1. S XX=0 F S XX=$O(SRY(139.5,DA,XX)) Q:'XX D LOC I SRI S SRYY(139.5,DA,SRI,"I")=SRY(139.5,SRTPP,XX,"I")_"^"_XX
  1. K DR S SRMM=SRMM+1 D ^SRTPUTL4
  1. Q
  1. LOC ;
  1. S SRI=0 F I=1:1:$L(DR,";") S:$P(DR,";",I)=XX SRI=I
  1. Q
  1. RACE ;
  1. K SRY1,SRY2 S DIC="^SRT(",DR=44,DA=SRTPP,DR(139.544)=".01"
  1. S (II,JJ)=0 F S II=$O(^SRT(SRTPP,44,II)) Q:'II S SRACE=$G(^SRT(SRTPP,44,II,0)) D K SRY1
  1. .S DA(139.544)=II,DIQ="SRY1",DIQ(0)="E" D EN^DIQ1
  1. .S JJ=JJ+1,SRY2(139.544,JJ)=SRACE_"^"_$G(SRY1(139.544,II,.01,"E")),SRY2(139.544)=JJ
  1. I $G(SRY2(139.544))>0 Q
  1. S SRY(139.5,SRTPP,44,"I")=""
  1. Q