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

SRTPRLU1.m

Go to the documentation of this file.
  1. SRTPRLU1 ;BIR/SJA - PRINT LUNG-PREOPERATIVE RISK ASSESSMENT ;07/12/2011
  1. ;;3.0;Surgery;**167,176**;24 Jun 93;Build 8
  1. K DR,II,SRAO,SRX,Y
  1. W:$E(IOST)="P" ! W !,?28,"PREOPERATIVE RISK ASSESSMENT",!
  1. S:SRNOVA SRDR="200;201;59;60;71;108;61;75;113;114;131;115;90;83;109;110;145;132;146;80"
  1. S:'SRNOVA SRDR="59;60;71;108;61;75;113;114;80;115;90;83;109;110"
  1. K DA,DIC,DIQ,SRX,SRY S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="E",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR
  1. 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
  1. VA I 'SRNOVA D
  1. .W !,"Diabetic Retinopathy:",?22,$P(SRAO(1),"^"),?40,"H/O Pre-Trans Malignancy:",?71,$P(SRAO(9),"^")
  1. .W !,"Diabetic Neuropathy:",?22,$P(SRAO(2),"^"),?40,"Active Infection Immediately"
  1. .W !,"Elevated PAP:",?22,$P(SRAO(3),"^"),?43,"Pre-Trans Req. Antibiotics:",?71,$P(SRAO(10),"^")
  1. .W !,"HIV + (positive):",?22,$P(SRAO(4),"^"),?40,"Non-Compliance:",?71,$P(SRAO(11),"^")
  1. .W !,"Cardiac Disease:",?22,$P(SRAO(5),"^"),?40,"Recipient Substance Abuse:",?71,$P(SRAO(12),"^")
  1. .W !,"Liver Disease:",?22,$P(SRAO(6),"^"),?40,"Post Transplant Prophylaxis for"
  1. .W !,"Lung Disease:",?22,$P(SRAO(7),"^"),?40," - CMV/Antiviral Treatment:",?71,$P(SRAO(13),"^")
  1. .W !,"Renal impairment:",?22,$P(SRAO(8),"^"),?40," - PCP/Antibiotic Treatment:",?71,$P(SRAO(14),"^")
  1. NONVA I SRNOVA D
  1. .W !,"Diabetes - Long Term:",?25,$P(SRAO(1),"^"),?40,"Hypertension Requiring Meds:",?71,$P(SRAO(17),"^")
  1. .W !,"Diabetes - 2 Wks Preop:",?25,$P(SRAO(2),"^"),?40,"Peripheral Vascular Disease:",?71,$P(SRAO(18),"^")
  1. .W !,"Diabetic Retinopathy:",?25,$P(SRAO(3),"^"),?40,"Transfusion >4 RBC Units:",?71,$P(SRAO(19),"^")
  1. .W !,"Diabetic Neuropathy:",?25,$P(SRAO(4),"^"),?40,"Pre-Trans Malignancy:",?71,$P(SRAO(20),"^")
  1. .W !,"Elevated PAP:",?25,$P(SRAO(5),"^")
  1. .W !,"HIV + (positive):",?25,$P(SRAO(6),"^")
  1. .W !,"Cardiac Disease:",?25,$P(SRAO(7),"^")
  1. .W !,"Liver Disease:",?25,$P(SRAO(8),"^")
  1. .W !,"Lung Disease:",?25,$P(SRAO(9),"^")
  1. .W !,"Renal impairment:",?25,$P(SRAO(10),"^")
  1. .W !,"Preop Functional Status:",?25,$P(SRAO(11),"^")
  1. .W !,"Active Infection Immediately Pre-Trans Req. Antibiotics:",?71,$P(SRAO(12),"^")
  1. .W !,"Non-Compliance (Med and Diet):",?71,$P(SRAO(13),"^")
  1. .W !,"Recipient Substance Abuse:",?71,$P(SRAO(14),"^")
  1. .W !,"Post Transplant Prophylaxis for CMV/Antiviral Treatment:",?71,$P(SRAO(15),"^")
  1. .W !,"Post Transplant Prophylaxis for PCP/Antibiotic Treatment:",?71,$P(SRAO(16),"^")
  1. I $E(IOST)'="P" D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
  1. I $E(IOST)="P" G:SRSOUT END^SRTPPAS I $Y+20>IOSL D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
  1. G ^SRTPRLU2