- SRTPRLI2 ;BIR/SJA - PRINT LIVER-RISK ASSESSMENT/OUTCOME INFORMATION ;04/21/08
- ;;3.0;Surgery;**167,175**;24 Jun 93;Build 6
- I 'SRNOVA G DONOR
- RISK K DR,SRAO,SRX,Y
- S (DR,SRDR)="81;82;88;83;109;110;145;132;146;131"
- K DA,DIC,DIQ,SRX,SRY,SRZ S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="E",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR
- S (SRX,SRZ)=0 F I=1:1 S SRZ=$P(SRDR,";",I) Q:'SRZ S SRX=I,SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- W !,"Preop TX Skin Malignancy:",?48,$P(SRAO(1),"^")
- W !,"Other Pre-TX Malignancy:",?48,$P(SRAO(2),"^")
- W !,"Ascites:",?48,$P(SRAO(3),"^")
- W !,"Recipient Substance Abuse:",?48,$P(SRAO(4),"^")
- W !,"Post TX Prophylaxis - CMV/Anti-Viral Treatment:",?48,$P(SRAO(5),"^")
- W !,"Post TX Prophylaxis - PCP/Antibiotic Treatment:",?48,$P(SRAO(6),"^")
- W !,"Hypertension Requiring Meds:",?48,$P(SRAO(7),"^")
- W !,"Peripheral Vascular Disease:",?48,$P(SRAO(8),"^")
- W !,"Transfusion >4 RBC Units:",?48,$P(SRAO(9),"^")
- W !,"Preop Functional Health Status:",?48,$P(SRAO(10),"^")
- I $E(IOST)'="P" D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
- I $E(IOST)="P" G:SRSOUT END^SRTPPAS I $Y+20>IOSL D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
- OUTCOME K DR,SRAO,SRX,Y
- W:$E(IOST)="P" ! W !,?28,"OUTCOME INFORMATION",!
- S (DR,SRDR)="116;117;118;119;192;121;122;123;124;125;126;193"
- K DA,DIC,DIQ,SRX,SRY,SRZ S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="E",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR
- S (SRX,SRZ)=0 F I=1:1 S SRZ=$P(SRDR,";",I) Q:'SRZ S SRX=I,SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- W !,"Bleeding/Transfusions:",?33,$P(SRAO(1),"^")
- W !,"Pneumonia:",?33,$P(SRAO(2),"^")
- W !,"On Ventilator >48 hours:",?33,$P(SRAO(3),"^")
- W !,"Cardiac Arrest Req. CPR:",?33,$P(SRAO(4),"^")
- W !,"Myocardial Infarction:",?33,$P(SRAO(5),"^")
- W !,"Stroke/CVA:",?33,$P(SRAO(6),"^")
- W !,"Coma >= 24 hr:",?33,$P(SRAO(7),"^")
- W !,"Superficial Incisional SSI:",?33,$P(SRAO(8),"^")
- W !,"Deep Incisional SSI:",?33,$P(SRAO(9),"^")
- W !,"Systemic Sepsis:",?33,$P(SRAO(10),"^")
- W !,"Return to Surgery < 30 Days:",?33,$P(SRAO(11),"^")
- W !,"Death within 30 Days:",?33,$P(SRAO(12),"^")
- I $E(IOST)'="P" D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
- I $E(IOST)="P" G:SRSOUT END^SRTPPAS I $Y+20>IOSL D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
- DONOR K DR,SRAO,SRX,Y
- W:$E(IOST)="P" ! W !,?28,"DONOR INFORMATION",!
- S (DR,SRDR)="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72" S SRAO(1)=""
- K DA,DIC,DIQ,SRX,SRY,SRZ S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="E",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR
- S (SRX,SRZ)=0 F I=1:1 S SRZ=$P(SRDR,";",I) Q:'SRZ S SRX=I,SRAO(I+1)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- ; race information
- K SRY,SRZ S DIC="^SRT(",DR=44,DA=SRTPP,DR(139.544)=".01"
- S (II,JJ)=0 F S II=$O(^SRT(SRTPP,44,II)) Q:'II S SRACE=$G(^SRT(SRTPP,44,II,0)) D K SRY
- .S DA(139.544)=II,DIQ="SRY",DIQ(0)="E" D EN^DIQ1
- .S JJ=JJ+1,SRZ(139.544,JJ)=SRACE_"^"_$G(SRY(139.544,II,.01,"E")),SRZ(139.544)=JJ
- D RACE^SRTPLIV7
- W !,"Donor Race:" S SRAO(1)="" I $G(SRZ(139.544)) F D=1:1:SRNUM1-1 W:D=1 ?17,SROL(D) W:D'=1 !,?17,SROL(D)
- W !,"Donor Gender:",?17,$P(SRAO(2),"^")
- W !,"Donor Height:",?17,$P(SRAO(3),"^"),?40,"Donor HLA Typing (#,#,#,#)"
- W !,"Donor Weight:",?17,$P(SRAO(4),"^"),?40,"=========================="
- W !,"Donor DOB:",?17,$P(SRAO(5),"^"),?40,"Donor HLA-A: ",$P(SRAO(13),"^")
- W !,"Donor Age:",?17,$P(SRAO(6),"^"),?40,"Donor HLA-B: ",$P(SRAO(14),"^")
- W !,"ABO Blood Type:",?17,$P(SRAO(7),"^"),?40,"Donor HLA-C: ",$P(SRAO(15),"^")
- W !,"Donor CMV:",?17,$P(SRAO(8),"^"),?40,"Donor HLA-DR: ",$P(SRAO(16),"^")
- W !,"Substance Abuse:",?17,$P(SRAO(9),"^"),?40,"Donor HLA-BW: ",$P(SRAO(17),"^")
- W !,"Deceased Donor:",?17,$P($P(SRAO(10),"^"),"("),?40,"Donor HLA-DQ: ",$P(SRAO(18),"^")
- W !,"Living Donor:",?17,$P(SRAO(11),"^")
- W !,"With Malignancy:",?17,$P(SRAO(12),"^")
- I $E(IOST)="C" W !! K DIR S DIR(0)="FOA",DIR("A")="Press RETURN to continue" D ^DIR K DIR
- G END^SRTPPAS
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRTPRLI2 3904 printed Mar 13, 2025@21:54 Page 2
- SRTPRLI2 ;BIR/SJA - PRINT LIVER-RISK ASSESSMENT/OUTCOME INFORMATION ;04/21/08
- +1 ;;3.0;Surgery;**167,175**;24 Jun 93;Build 6
- +2 IF 'SRNOVA
- GOTO DONOR
- RISK KILL DR,SRAO,SRX,Y
- +1 SET (DR,SRDR)="81;82;88;83;109;110;145;132;146;131"
- +2 KILL DA,DIC,DIQ,SRX,SRY,SRZ
- SET DIC="^SRT("
- SET DA=SRTPP
- SET DIQ="SRY"
- SET DIQ(0)="E"
- SET DR=SRDR
- DO EN^DIQ1
- KILL DA,DIC,DIQ,DR
- +3 SET (SRX,SRZ)=0
- FOR I=1:1
- SET SRZ=$PIECE(SRDR,";",I)
- if 'SRZ
- QUIT
- SET SRX=I
- SET SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- +4 WRITE !,"Preop TX Skin Malignancy:",?48,$PIECE(SRAO(1),"^")
- +5 WRITE !,"Other Pre-TX Malignancy:",?48,$PIECE(SRAO(2),"^")
- +6 WRITE !,"Ascites:",?48,$PIECE(SRAO(3),"^")
- +7 WRITE !,"Recipient Substance Abuse:",?48,$PIECE(SRAO(4),"^")
- +8 WRITE !,"Post TX Prophylaxis - CMV/Anti-Viral Treatment:",?48,$PIECE(SRAO(5),"^")
- +9 WRITE !,"Post TX Prophylaxis - PCP/Antibiotic Treatment:",?48,$PIECE(SRAO(6),"^")
- +10 WRITE !,"Hypertension Requiring Meds:",?48,$PIECE(SRAO(7),"^")
- +11 WRITE !,"Peripheral Vascular Disease:",?48,$PIECE(SRAO(8),"^")
- +12 WRITE !,"Transfusion >4 RBC Units:",?48,$PIECE(SRAO(9),"^")
- +13 WRITE !,"Preop Functional Health Status:",?48,$PIECE(SRAO(10),"^")
- +14 IF $EXTRACT(IOST)'="P"
- DO PAGE^SRTPPAS
- IF SRSOUT
- GOTO END^SRTPPAS
- +15 IF $EXTRACT(IOST)="P"
- if SRSOUT
- GOTO END^SRTPPAS
- IF $Y+20>IOSL
- DO PAGE^SRTPPAS
- IF SRSOUT
- GOTO END^SRTPPAS
- OUTCOME KILL DR,SRAO,SRX,Y
- +1 if $EXTRACT(IOST)="P"
- WRITE !
- WRITE !,?28,"OUTCOME INFORMATION",!
- +2 SET (DR,SRDR)="116;117;118;119;192;121;122;123;124;125;126;193"
- +3 KILL DA,DIC,DIQ,SRX,SRY,SRZ
- SET DIC="^SRT("
- SET DA=SRTPP
- SET DIQ="SRY"
- SET DIQ(0)="E"
- SET DR=SRDR
- DO EN^DIQ1
- KILL DA,DIC,DIQ,DR
- +4 SET (SRX,SRZ)=0
- FOR I=1:1
- SET SRZ=$PIECE(SRDR,";",I)
- if 'SRZ
- QUIT
- SET SRX=I
- SET SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- +5 WRITE !,"Bleeding/Transfusions:",?33,$PIECE(SRAO(1),"^")
- +6 WRITE !,"Pneumonia:",?33,$PIECE(SRAO(2),"^")
- +7 WRITE !,"On Ventilator >48 hours:",?33,$PIECE(SRAO(3),"^")
- +8 WRITE !,"Cardiac Arrest Req. CPR:",?33,$PIECE(SRAO(4),"^")
- +9 WRITE !,"Myocardial Infarction:",?33,$PIECE(SRAO(5),"^")
- +10 WRITE !,"Stroke/CVA:",?33,$PIECE(SRAO(6),"^")
- +11 WRITE !,"Coma >= 24 hr:",?33,$PIECE(SRAO(7),"^")
- +12 WRITE !,"Superficial Incisional SSI:",?33,$PIECE(SRAO(8),"^")
- +13 WRITE !,"Deep Incisional SSI:",?33,$PIECE(SRAO(9),"^")
- +14 WRITE !,"Systemic Sepsis:",?33,$PIECE(SRAO(10),"^")
- +15 WRITE !,"Return to Surgery < 30 Days:",?33,$PIECE(SRAO(11),"^")
- +16 WRITE !,"Death within 30 Days:",?33,$PIECE(SRAO(12),"^")
- +17 IF $EXTRACT(IOST)'="P"
- DO PAGE^SRTPPAS
- IF SRSOUT
- GOTO END^SRTPPAS
- +18 IF $EXTRACT(IOST)="P"
- if SRSOUT
- GOTO END^SRTPPAS
- IF $Y+20>IOSL
- DO PAGE^SRTPPAS
- IF SRSOUT
- GOTO END^SRTPPAS
- DONOR KILL DR,SRAO,SRX,Y
- +1 if $EXTRACT(IOST)="P"
- WRITE !
- WRITE !,?28,"DONOR INFORMATION",!
- +2 SET (DR,SRDR)="45;31;36;70;46;48;49;77;69;103;104;64;65;66;73;67;72"
- SET SRAO(1)=""
- +3 KILL DA,DIC,DIQ,SRX,SRY,SRZ
- SET DIC="^SRT("
- SET DA=SRTPP
- SET DIQ="SRY"
- SET DIQ(0)="E"
- SET DR=SRDR
- DO EN^DIQ1
- KILL DA,DIC,DIQ,DR
- +4 SET (SRX,SRZ)=0
- FOR I=1:1
- SET SRZ=$PIECE(SRDR,";",I)
- if 'SRZ
- QUIT
- SET SRX=I
- SET SRAO(I+1)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
- +5 ; race information
- +6 KILL SRY,SRZ
- SET DIC="^SRT("
- SET DR=44
- SET DA=SRTPP
- SET DR(139.544)=".01"
- +7 SET (II,JJ)=0
- FOR
- SET II=$ORDER(^SRT(SRTPP,44,II))
- if 'II
- QUIT
- SET SRACE=$GET(^SRT(SRTPP,44,II,0))
- Begin DoDot:1
- +8 SET DA(139.544)=II
- SET DIQ="SRY"
- SET DIQ(0)="E"
- DO EN^DIQ1
- +9 SET JJ=JJ+1
- SET SRZ(139.544,JJ)=SRACE_"^"_$GET(SRY(139.544,II,.01,"E"))
- SET SRZ(139.544)=JJ
- End DoDot:1
- KILL SRY
- +10 DO RACE^SRTPLIV7
- +11 WRITE !,"Donor Race:"
- SET SRAO(1)=""
- IF $GET(SRZ(139.544))
- FOR D=1:1:SRNUM1-1
- if D=1
- WRITE ?17,SROL(D)
- if D'=1
- WRITE !,?17,SROL(D)
- +12 WRITE !,"Donor Gender:",?17,$PIECE(SRAO(2),"^")
- +13 WRITE !,"Donor Height:",?17,$PIECE(SRAO(3),"^"),?40,"Donor HLA Typing (#,#,#,#)"
- +14 WRITE !,"Donor Weight:",?17,$PIECE(SRAO(4),"^"),?40,"=========================="
- +15 WRITE !,"Donor DOB:",?17,$PIECE(SRAO(5),"^"),?40,"Donor HLA-A: ",$PIECE(SRAO(13),"^")
- +16 WRITE !,"Donor Age:",?17,$PIECE(SRAO(6),"^"),?40,"Donor HLA-B: ",$PIECE(SRAO(14),"^")
- +17 WRITE !,"ABO Blood Type:",?17,$PIECE(SRAO(7),"^"),?40,"Donor HLA-C: ",$PIECE(SRAO(15),"^")
- +18 WRITE !,"Donor CMV:",?17,$PIECE(SRAO(8),"^"),?40,"Donor HLA-DR: ",$PIECE(SRAO(16),"^")
- +19 WRITE !,"Substance Abuse:",?17,$PIECE(SRAO(9),"^"),?40,"Donor HLA-BW: ",$PIECE(SRAO(17),"^")
- +20 WRITE !,"Deceased Donor:",?17,$PIECE($PIECE(SRAO(10),"^"),"("),?40,"Donor HLA-DQ: ",$PIECE(SRAO(18),"^")
- +21 WRITE !,"Living Donor:",?17,$PIECE(SRAO(11),"^")
- +22 WRITE !,"With Malignancy:",?17,$PIECE(SRAO(12),"^")
- +23 IF $EXTRACT(IOST)="C"
- WRITE !!
- KILL DIR
- SET DIR(0)="FOA"
- SET DIR("A")="Press RETURN to continue"
- DO ^DIR
- KILL DIR
- +24 GOTO END^SRTPPAS
