- SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;11/28/07
- ;;3.0; Surgery ;**38,47,125,153,166**;24 Jun 93;Build 6
- N SRX,Y F I=200,206 S SRA(I)=$G(^SRF(SRTN,I))
- S Y=$P(SRA(200),"^"),SRX=402,SRAO(1)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^"),SRX=236,SRAO("1A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^",2),SRX=237,SRAO("1B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",2),SRX=346,SRAO("1C")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",3),SRX=202,SRAO("1D")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",4),SRX=246,SRAO("1E")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",6),SRX=325,SRAO("1F")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",7),SRX=238,SRAO("1G")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P($G(^SRF(SRTN,200.1)),"^",2),SRX=492,SRAO("1H")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",9),SRX=241,SRAO(2)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",10),SRX=204,SRAO("2A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",11),SRX=203,SRAO("2B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",12),SRX=326,SRAO("2C")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",13),SRX=244,SRAO(3)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",15),SRX=212,SRAO("3A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P($G(^SRF(SRTN,200.1)),"^"),SRX=486,SRAO(4)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",16),SRX=213,SRAO("4A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",30),SRX=242,SRAO(5)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",35),SRX=396,SRAO("5A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",31),SRX=394,SRAO("5B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",32),SRX=220,SRAO("5C")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",33),SRX=266,SRAO("5D")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",34),SRX=395,SRAO("5E")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",36),SRX=208,SRAO("5F")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",40),SRX=206,SRAO(6)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",41),SRX=329,SRAO("6A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",42),SRX=330,SRAO("6B")=$$OUT(SRX,Y)_"^"_SRX
- W:$E(IOST)="P" ! W !,?28,"PREOPERATIVE INFORMATION",!!
- W "GENERAL:",?31,$P(SRAO(1),"^"),?40,"GASTROINTESTINAL:",?72,$P(SRAO(4),"^")
- W !,"Height: ",?22,$J($P(SRAO("1A"),"^"),15),?40,"Esophageal Varices:",?72,$P(SRAO("4A"),"^")
- W !,"Weight:",?22,$J($P(SRAO("1B"),"^"),15)
- W !,"Diabetes Mellitus:",?31,$P(SRAO("1C"),"^"),?40,"CARDIAC:",?72,$P(SRAO(5),"^")
- W !,"Current Smoker W/I 1 Year:",?31,$P(SRAO("1D"),"^"),?40,"CHF Within 1 Month:",?72,$P(SRAO("5A"),"^")
- W !,"ETOH > 2 Drinks/Day:",?31,$P(SRAO("1E"),"^"),?40,"MI Within 6 Months:",?72,$P(SRAO("5B"),"^")
- W !,"Dyspnea: ",?13,$J($P(SRAO("1F"),"^"),25),?40,"Previous PCI:",?72,$P(SRAO("5C"),"^")
- W !,"DNR Status: ",?31,$P(SRAO("1G"),"^"),?40,"Previous Cardiac Surgery:",?72,$P(SRAO("5D"),"^")
- W !,"Preop Funct Status: ",$J($P(SRAO("1H"),"^"),17),?40,"Angina Within 1 Month:",?72,$P(SRAO("5E"),"^")
- W !,?40,"Hypertension Requiring Meds:",?72,$P(SRAO("5F"),"^")
- W !,"PULMONARY:",?31,$P(SRAO(2),"^")
- W !,"Ventilator Dependent:",?31,$P(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$P(SRAO(6),"^")
- W !,"History of Severe COPD:",?31,$P(SRAO("2B"),"^"),?40,"Revascularization/Amputation:",?72,$P(SRAO("6A"),"^")
- W !,"Current Pneumonia:",?31,$P(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$P(SRAO("6B"),"^")
- W !!,"HEPATOBILIARY:",?31,$P(SRAO(3),"^"),!,"Ascites:",?31,$P(SRAO("3A"),"^")
- Q
- OUT(SRFLD,SRY) ; get data in output form
- N C,Y
- S Y=SRY,C=$P(^DD(130,SRFLD,0),"^",2) D:Y'="" Y^DIQ
- I Y="NO STUDY" S Y="NS"
- I SRFLD=236!(SRFLD=237)!(SRFLD=346) S Y=$E(Y,1,15)
- I SRFLD=240!(SRFLD=492) D
- .I SRY=2 S Y="PARTIAL DEPENDENT" Q
- .I SRY=4 S Y=Y_" "
- I SRFLD=325,$L(Y)=2 S Y=Y_" "
- Q Y
- SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;11/28/07
- +1 ;;3.0; Surgery ;**38,47,125,153,166**;24 Jun 93;Build 6
- +2 NEW SRX,Y
- FOR I=200,206
- SET SRA(I)=$GET(^SRF(SRTN,I))
- +3 SET Y=$PIECE(SRA(200),"^")
- SET SRX=402
- SET SRAO(1)=$$OUT(SRX,Y)_"^"_SRX
- +4 SET Y=$PIECE(SRA(206),"^")
- SET SRX=236
- SET SRAO("1A")=$$OUT(SRX,Y)_"^"_SRX
- +5 SET Y=$PIECE(SRA(206),"^",2)
- SET SRX=237
- SET SRAO("1B")=$$OUT(SRX,Y)_"^"_SRX
- +6 SET Y=$PIECE(SRA(200),"^",2)
- SET SRX=346
- SET SRAO("1C")=$$OUT(SRX,Y)_"^"_SRX
- +7 SET Y=$PIECE(SRA(200),"^",3)
- SET SRX=202
- SET SRAO("1D")=$$OUT(SRX,Y)_"^"_SRX
- +8 SET Y=$PIECE(SRA(200),"^",4)
- SET SRX=246
- SET SRAO("1E")=$$OUT(SRX,Y)_"^"_SRX
- +9 SET Y=$PIECE(SRA(200),"^",6)
- SET SRX=325
- SET SRAO("1F")=$$OUT(SRX,Y)_"^"_SRX
- +10 SET Y=$PIECE(SRA(200),"^",7)
- SET SRX=238
- SET SRAO("1G")=$$OUT(SRX,Y)_"^"_SRX
- +11 SET Y=$PIECE($GET(^SRF(SRTN,200.1)),"^",2)
- SET SRX=492
- SET SRAO("1H")=$$OUT(SRX,Y)_"^"_SRX
- +12 SET Y=$PIECE(SRA(200),"^",9)
- SET SRX=241
- SET SRAO(2)=$$OUT(SRX,Y)_"^"_SRX
- +13 SET Y=$PIECE(SRA(200),"^",10)
- SET SRX=204
- SET SRAO("2A")=$$OUT(SRX,Y)_"^"_SRX
- +14 SET Y=$PIECE(SRA(200),"^",11)
- SET SRX=203
- SET SRAO("2B")=$$OUT(SRX,Y)_"^"_SRX
- +15 SET Y=$PIECE(SRA(200),"^",12)
- SET SRX=326
- SET SRAO("2C")=$$OUT(SRX,Y)_"^"_SRX
- +16 SET Y=$PIECE(SRA(200),"^",13)
- SET SRX=244
- SET SRAO(3)=$$OUT(SRX,Y)_"^"_SRX
- +17 SET Y=$PIECE(SRA(200),"^",15)
- SET SRX=212
- SET SRAO("3A")=$$OUT(SRX,Y)_"^"_SRX
- +18 SET Y=$PIECE($GET(^SRF(SRTN,200.1)),"^")
- SET SRX=486
- SET SRAO(4)=$$OUT(SRX,Y)_"^"_SRX
- +19 SET Y=$PIECE(SRA(200),"^",16)
- SET SRX=213
- SET SRAO("4A")=$$OUT(SRX,Y)_"^"_SRX
- +20 SET Y=$PIECE(SRA(200),"^",30)
- SET SRX=242
- SET SRAO(5)=$$OUT(SRX,Y)_"^"_SRX
- +21 SET Y=$PIECE(SRA(200),"^",35)
- SET SRX=396
- SET SRAO("5A")=$$OUT(SRX,Y)_"^"_SRX
- +22 SET Y=$PIECE(SRA(200),"^",31)
- SET SRX=394
- SET SRAO("5B")=$$OUT(SRX,Y)_"^"_SRX
- +23 SET Y=$PIECE(SRA(200),"^",32)
- SET SRX=220
- SET SRAO("5C")=$$OUT(SRX,Y)_"^"_SRX
- +24 SET Y=$PIECE(SRA(200),"^",33)
- SET SRX=266
- SET SRAO("5D")=$$OUT(SRX,Y)_"^"_SRX
- +25 SET Y=$PIECE(SRA(200),"^",34)
- SET SRX=395
- SET SRAO("5E")=$$OUT(SRX,Y)_"^"_SRX
- +26 SET Y=$PIECE(SRA(200),"^",36)
- SET SRX=208
- SET SRAO("5F")=$$OUT(SRX,Y)_"^"_SRX
- +27 SET Y=$PIECE(SRA(200),"^",40)
- SET SRX=206
- SET SRAO(6)=$$OUT(SRX,Y)_"^"_SRX
- +28 SET Y=$PIECE(SRA(200),"^",41)
- SET SRX=329
- SET SRAO("6A")=$$OUT(SRX,Y)_"^"_SRX
- +29 SET Y=$PIECE(SRA(200),"^",42)
- SET SRX=330
- SET SRAO("6B")=$$OUT(SRX,Y)_"^"_SRX
- +30 IF $EXTRACT(IOST)="P"
- WRITE !
- WRITE !,?28,"PREOPERATIVE INFORMATION",!!
- +31 WRITE "GENERAL:",?31,$PIECE(SRAO(1),"^"),?40,"GASTROINTESTINAL:",?72,$PIECE(SRAO(4),"^")
- +32 WRITE !,"Height: ",?22,$JUSTIFY($PIECE(SRAO("1A"),"^"),15),?40,"Esophageal Varices:",?72,$PIECE(SRAO("4A"),"^")
- +33 WRITE !,"Weight:",?22,$JUSTIFY($PIECE(SRAO("1B"),"^"),15)
- +34 WRITE !,"Diabetes Mellitus:",?31,$PIECE(SRAO("1C"),"^"),?40,"CARDIAC:",?72,$PIECE(SRAO(5),"^")
- +35 WRITE !,"Current Smoker W/I 1 Year:",?31,$PIECE(SRAO("1D"),"^"),?40,"CHF Within 1 Month:",?72,$PIECE(SRAO("5A"),"^")
- +36 WRITE !,"ETOH > 2 Drinks/Day:",?31,$PIECE(SRAO("1E"),"^"),?40,"MI Within 6 Months:",?72,$PIECE(SRAO("5B"),"^")
- +37 WRITE !,"Dyspnea: ",?13,$JUSTIFY($PIECE(SRAO("1F"),"^"),25),?40,"Previous PCI:",?72,$PIECE(SRAO("5C"),"^")
- +38 WRITE !,"DNR Status: ",?31,$PIECE(SRAO("1G"),"^"),?40,"Previous Cardiac Surgery:",?72,$PIECE(SRAO("5D"),"^")
- +39 WRITE !,"Preop Funct Status: ",$JUSTIFY($PIECE(SRAO("1H"),"^"),17),?40,"Angina Within 1 Month:",?72,$PIECE(SRAO("5E"),"^")
- +40 WRITE !,?40,"Hypertension Requiring Meds:",?72,$PIECE(SRAO("5F"),"^")
- +41 WRITE !,"PULMONARY:",?31,$PIECE(SRAO(2),"^")
- +42 WRITE !,"Ventilator Dependent:",?31,$PIECE(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$PIECE(SRAO(6),"^")
- +43 WRITE !,"History of Severe COPD:",?31,$PIECE(SRAO("2B"),"^"),?40,"Revascularization/Amputation:",?72,$PIECE(SRAO("6A"),"^")
- +44 WRITE !,"Current Pneumonia:",?31,$PIECE(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$PIECE(SRAO("6B"),"^")
- +45 WRITE !!,"HEPATOBILIARY:",?31,$PIECE(SRAO(3),"^"),!,"Ascites:",?31,$PIECE(SRAO("3A"),"^")
- +46 QUIT
- OUT(SRFLD,SRY) ; get data in output form
- +1 NEW C,Y
- +2 SET Y=SRY
- SET C=$PIECE(^DD(130,SRFLD,0),"^",2)
- IF Y'=""
- DO Y^DIQ
- +3 IF Y="NO STUDY"
- SET Y="NS"
- +4 IF SRFLD=236!(SRFLD=237)!(SRFLD=346)
- SET Y=$EXTRACT(Y,1,15)
- +5 IF SRFLD=240!(SRFLD=492)
- Begin DoDot:1
- +6 IF SRY=2
- SET Y="PARTIAL DEPENDENT"
- QUIT
- +7 IF SRY=4
- SET Y=Y_" "
- End DoDot:1
- +8 IF SRFLD=325
- IF $LENGTH(Y)=2
- SET Y=Y_" "
- +9 QUIT Y
