SRONRPT4 ;BIR/SJA - NURSE INTRAOP REPORT ;04/27/2015
;;3.0;Surgery;**184,200**;24 Jun 93;Build 9
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
LASER ;
S SRLF=1,SRLINE="Laser Performed: "
I $O(^SRF(SRTN,44,0)) S SRLINE="Laser Unit(s): " D LINE(1) S @SRG@(SRI)=SRLINE D LAS129 Q
I '$O(^SRF(SRTN,56,0)),SRALL D LINE(1) S @SRG@(SRI)=SRLINE_"N/A" Q
I $O(^SRF(SRTN,56,0)) D LINE(1) S @SRG@(SRI)=SRLINE D LAS135
Q
LAS129 ; laser units
N C,DUR,ID,LAS,OP,PE,SRCT,WAT,X,Y
S LAS=0 F S LAS=$O(^SRF(SRTN,44,LAS)) Q:'LAS D
.S X=^SRF(SRTN,44,LAS,0),ID=$P(X,"^"),DUR=$P(X,"^",2),WAT=$P(X,"^",3),OP=$P(X,"^",4),PE=$P(X,"^",5)
.D LINE(1) S @SRG@(SRI)=" "_ID,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Duration: "_$S(DUR'="":DUR_" min.",1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Wattage: "_$S(WAT'="":WAT,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Plume Evacuator: "_$S(PE="Y":"YES",PE="N":"NO",1:"N/A")
.S Y=OP,C=$P(^DD(130.0129,3,0),"^",2) D:Y Y^DIQ S:Y="" Y="N/A" D LINE(1) S @SRG@(SRI)=" Operator: "_Y
.S (SRCT,SRLINE)=0 F S SRLINE=$O(^SRF(SRTN,44,LAS,1,SRLINE)) Q:'SRLINE S SRCT=SRCT+1
.Q:'SRCT D LINE(1) S SRLINE=0,SRL=4,SRLINE=$O(^SRF(SRTN,44,LAS,1,SRLINE)),X=^SRF(SRTN,44,LAS,1,SRLINE,0)
.I SRCT=1,$L(X)<67 S @SRG@(SRI)=" Comments: "_X Q
.S @SRG@(SRI)=" Comments:" D COMM^SRONRPT3(X,SRL)
.F S SRLINE=$O(^SRF(SRTN,44,LAS,1,SRLINE)) Q:'SRLINE S X=^SRF(SRTN,44,LAS,1,SRLINE,0) D COMM^SRONRPT3(X,SRL)
Q
LAS135 ; laser Performed
N C,DUR,DUR,ID,II,III,LAS,LAON,LASOFF,OP,PE,PATPREC,PERPREC,SRCT,TYPE,START,END,FIRE,LDS,PM,POWER,INTVL,JOULES,WATTSD,WAVE,PULSE,EJOULES,WAT,X,Y
S LAS=0 F S LAS=$O(^SRF(SRTN,56,LAS)) Q:'LAS D
.S X=$G(^SRF(SRTN,56,LAS,0)),ID=$P(X,"^")
.S XX=$P(X,"^",2),TYPE=$S(XX=1:"HOLMIUM-YAG",XX=2:"NEODYMIUM-(NG-YAG)",XX=3:"CO2",XX=4:"KTP",XX=5:"EYE DIODE GREEN (532 NM)",XX=6:"EYE DIODE",1:"")
.S START=$P(X,"^",3),END=$P(X,"^",4),FIRE=$P(X,"^",5)
.S XX=$P(X,"^",6),LDS=$S(XX=1:"ENDOSCOPE",XX=2:"HAND PIECE",XX=3:"HEAD PIECE",XX=4:"LAPARASCOPE",XX=5:"LASER FIBER",XX=6:"MICROSCOPE",1:"")
.S XX=$P(X,"^",7),PM=$S(XX=1:"CONTINUOUS",XX=2:"REPEAT PULSE",XX=3:"SINGLE PULSE",1:"")
.S POWER=$P(X,"^",8),INTVL=$P(X,"^",9),JOULES=$P(X,"^",10),WATTSD=$P(X,"^",11),WAVE=$P(X,"^",12),PULSE=$P(X,"^",13),EJOULES=$P(X,"^",14),DUR=$P(X,"^",15)
.S LAON=$P(X,"^",17),LASOFF=$P(X,"^",18),PERPREC=$P(X,"^",19)
.D LINE(1) S @SRG@(SRI)=" "_ID,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Type: "_$S(TYPE'="":TYPE,1:"N/A")
.S Y=START I Y D D^DIQ S START=$P(Y,"@")_" "_$P(Y,"@",2),Y=END I Y D D^DIQ S END=$P(Y,"@")_" "_$P(Y,"@",2)
.D LINE(1) S @SRG@(SRI)=" Laser Start Time: "_$S(START'="":START,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser End Date: "_$S(END'="":END,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Laser Test Fire: "_$S(FIRE'="":FIRE,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Delivery System: "_$S(LDS'="":LDS,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Pulse Mode: "_$S(PM'="":PM,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Power/Average Power: "_$S(POWER'="":POWER,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Interval/Repetition Rate: "_$S(INTVL'="":INTVL,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Total Joules Delivered: "_$S(JOULES'="":JOULES,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Watts Delivered: "_$S(WATTSD'="":WATTSD,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Wave Form: "_$S(WAVE'="":WAVE,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Pulse Width: "_$S(PULSE'="":PULSE,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Energy Joules: "_$S(EJOULES'="":EJOULES,1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Duration: "_$S(DUR'="":DUR_" seconds",1:"N/A")
.D LINE(1) S @SRG@(SRI)=" Laser On Standby: "_$S(LAON'="":LAON,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Off and Key Secured : "_$S(LASOFF'="":LASOFF,1:"N/A")
.I '$O(^SRF(SRTN,56,LAS,1,0)) D LINE(1) S @SRG@(SRI)=" Patient Precautions: N/A",@SRG@(SRI)=@SRG@(SRI)
.S (II,III)=0
.F S II=$O(^SRF(SRTN,56,LAS,1,II)) Q:'II S XX=$G(^SRF(SRTN,56,LAS,1,II,0)),PATPREC=$S(XX=1:"EYE PADS",XX=2:"TAPE",XX=3:"SAFETY GLASSES/GOOGLES",XX=4:"LASER ET TUBE",XX=5:"MOIST DRAPES",XX=6:"WATER AVAILABLE",XX=7:"RECTAL PACK",1:"") D
..S III=III+1 D LINE(1) S @SRG@(SRI)=$S(III=1:" Patient Precautions: ",1:" ")_$S(PATPREC'="":PATPREC,1:"N/A"),@SRG@(SRI)=@SRG@(SRI)
.I '$O(^SRF(SRTN,56,LAS,2,0)) D LINE(1) S @SRG@(SRI)=" Personnel Precautions: N/A",@SRG@(SRI)=@SRG@(SRI)
.S (II,III)=0
.F S II=$O(^SRF(SRTN,56,LAS,2,II)) Q:'II D
..S XX=$G(^SRF(SRTN,56,LAS,2,II,0)),PERPREC=$S(XX=1:"EYE SAFETY FILTER (MICROSCOPE)",XX=2:"HIGH FILTRATION MASKS",XX=3:"SAFETY GLASSES INSPECTED",XX=4:"SAFETY GLASSES USED",XX=5:"SIGNAGE ON DOORS WITH APPROPRIATE WAVE LENGTH",1:"") D
...S III=III+1 D LINE(1) S @SRG@(SRI)=$S(III=1:" Personnel Precautions: ",1:" ")_$S(PERPREC'="":PERPREC,1:"N/A")
Q
ORGDNR N II,ORG,SRDONR1,SRDONR2,VER1 S ORG="",VER1=$G(^SRF(SRTN,"VER1"))
S SRDONR1=$$VER1^SRTOVRF(SRTN),SRDONR2=$$VER2^SRTOVRF(SRTN)
I 'SRDONR1&'SRDONR2 Q
S SRLF=1,SRLINE="Transplant Information: " D LINE(1) S @SRG@(SRI)=SRLINE
S II=0 F S II=$O(^SRF(SRTN,63,"B",II)) Q:'II S ORG=ORG_"- "_$S(II=1:"HEART",II=2:"LUNG",II=3:"KIDNEY",II=4:"LIVER",II=5:"PANCREAS",II=6:"INTESTINE",II=7:"OTHER",1:"")
S ORG=$S($L(ORG):ORG,1:"* NOT ENTERED *") D LINE(1) S @SRG@(SRI)=" Organ to be Transplanted: "_ORG
D LINE(1) S @SRG@(SRI)=" UNOS Identification Number of Donor: "_$P(VER1,"^",2)
D LINE(1) S @SRG@(SRI)=" Donor Serology Hepatitis C virus (HCV): "_$$OUT($P(VER1,U,3))
D LINE(1) S @SRG@(SRI)=" Donor Serology Hepatitis B Virus (HBV): "_$$OUT($P(VER1,U,4))
D LINE(1) S @SRG@(SRI)=" Donor Serology Cytomegalovirus (CMV): "_$$OUT($P(VER1,U,5))
D LINE(1) S @SRG@(SRI)=" Donor Serology HIV: "_$$OUT($P(VER1,U,6))
D LINE(1) S @SRG@(SRI)=" Donor ABO Type: "_$$ABO($P(VER1,U,7))
D LINE(1) S @SRG@(SRI)=" Recipient ABO Type: "_$$ABO($P(VER1,U,8))
D LINE(1) S @SRG@(SRI)=" Blood Bank Verification of ABO Type: "_$$OUT($P(VER1,U,9))
D LINE(1) S @SRG@(SRI)=" Blood Bank ABO Verification Comments: "_$P(VER1,U,18)
S Y=$P(VER1,U,19) I Y D D^DIQ S SRTIME=$P(Y,"@")_" "_$P(Y,"@",2)
S:Y="" SRTIME="* NOT ENTERED *" D LINE(1) S @SRG@(SRI)=" Date/Time of Blood Bank ABO Verification: "_SRTIME
D LINE(1) S @SRG@(SRI)=" OR Verification of ABO Type: "_$$OUT($P(VER1,U,10))
D LINE(1) S @SRG@(SRI)=" OR ABO Verification Comments: "_$P(VER1,U,20)
S Y=$P(VER1,U,21) I Y D D^DIQ S SRTIME=$P(Y,"@")_" "_$P(Y,"@",2)
S:Y="" SRTIME="* NOT ENTERED *" D LINE(1) S @SRG@(SRI)=" Date/Time OR ABO Verification: "_SRTIME
D LINE(1) S @SRG@(SRI)=" Surgeon Performing UNET Verification: "_$$VA($P(VER1,U,11))
D LINE(1) S @SRG@(SRI)=" UNET Verification by Surgeon: "_$$OUT($P(VER1,U,22))
D LINE(1) S @SRG@(SRI)=" Organ Verification Prior to Anesthesia: "_$$OUT($P(VER1,U,12))
D LINE(1) S @SRG@(SRI)=" Surgeon Verifying Organ Prior to Anesthesia: "_$$VA($P(VER1,U,23))
D LINE(1) S @SRG@(SRI)=" Surgeon Verifying Organ Prior to Donor Anesthesia: "_$$VA($P(VER1,U,13))
D LINE(1) S @SRG@(SRI)=" Donor Organ Verification Prior to Anesthesia: "_$$OUT($P(VER1,U,24))
D LINE(1) S @SRG@(SRI)=" Organ Verification Prior to Transplant: "_$$OUT($P(VER1,U,14))
D LINE(1) S @SRG@(SRI)=" Surgeon Verifying the Organ Prior to Transplant: "_$$VA($P(VER1,U,25))
D LINE(1) S @SRG@(SRI)=" Donor Vessel Usage: "_$$OUT($P(VER1,U,15))
S Y=$P(VER1,U,16) D LINE(1) S @SRG@(SRI)=" Donor Vessel Disposition if not used: "_$S(Y="N":"NO DONOR VESSELS RECEIVED",Y="D":"DISCARDED",Y="R":"RETURNED TO OPO",Y="S":"STORED",1:"")
S ORG="",II="" F S II=$O(^SRF(SRTN,57,"B",II)) Q:II="" S ORG=ORG_"- "_II
D LINE(1) S @SRG@(SRI)=" Donor Vessel UNOS ID: "_ORG
Q
SPACE(NUM) ; create spaces
;pass in position returns number of needed spaces
I '$D(@SRG@(SRI)) S @SRG@(SRI)=""
Q $J("",NUM-$L(@SRG@(SRI)))
LINE(NUM) ; create carriage returns
I $G(SRLF) S NUM=NUM+1,SRLF=0
F J=1:1:NUM S SRI=SRI+1,@SRG@(SRI)=""
Q
OUT(VAL) ;
Q $S(VAL="Y":"YES",VAL="N":"NO",VAL="NA":"NOT APPLICABLE",1:"* NOT ENTERED *")
;
ABO(VAL) ; ABO type
Q $S(VAL=1:"A RH(+)",VAL=2:"A RH(-)",VAL=3:"B RH(+)",VAL=4:"B RH(-)",VAL=5:"AB RH(+)",VAL=6:"AB RH(-)",VAL=7:"O RH(+)",VAL=8:"O RH(-)",1:"* NOT ENTERED *")
;
VA(VAL) ;
I VAL="" Q "* NOT ENTERED *"
Q $P($G(^VA(200,VAL,0)),"^")
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRONRPT4 8591 printed Apr 09, 2024@21:47:16 Page 2
SRONRPT4 ;BIR/SJA - NURSE INTRAOP REPORT ;04/27/2015
+1 ;;3.0;Surgery;**184,200**;24 Jun 93;Build 9
+2 ;** NOTICE: This routine is part of an implementation of a nationally
+3 ;** controlled procedure. Local modifications to this routine
+4 ;** are prohibited.
+5 ;
LASER ;
+1 SET SRLF=1
SET SRLINE="Laser Performed: "
+2 IF $ORDER(^SRF(SRTN,44,0))
SET SRLINE="Laser Unit(s): "
DO LINE(1)
SET @SRG@(SRI)=SRLINE
DO LAS129
QUIT
+3 IF '$ORDER(^SRF(SRTN,56,0))
IF SRALL
DO LINE(1)
SET @SRG@(SRI)=SRLINE_"N/A"
QUIT
+4 IF $ORDER(^SRF(SRTN,56,0))
DO LINE(1)
SET @SRG@(SRI)=SRLINE
DO LAS135
+5 QUIT
LAS129 ; laser units
+1 NEW C,DUR,ID,LAS,OP,PE,SRCT,WAT,X,Y
+2 SET LAS=0
FOR
SET LAS=$ORDER(^SRF(SRTN,44,LAS))
if 'LAS
QUIT
Begin DoDot:1
+3 SET X=^SRF(SRTN,44,LAS,0)
SET ID=$PIECE(X,"^")
SET DUR=$PIECE(X,"^",2)
SET WAT=$PIECE(X,"^",3)
SET OP=$PIECE(X,"^",4)
SET PE=$PIECE(X,"^",5)
+4 DO LINE(1)
SET @SRG@(SRI)=" "_ID
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Duration: "_$SELECT(DUR'="":DUR_" min.",1:"N/A")
+5 DO LINE(1)
SET @SRG@(SRI)=" Wattage: "_$SELECT(WAT'="":WAT,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Plume Evacuator: "_$SELECT(PE="Y":"YES",PE="N":"NO",1:"N/A")
+6 SET Y=OP
SET C=$PIECE(^DD(130.0129,3,0),"^",2)
if Y
DO Y^DIQ
if Y=""
SET Y="N/A"
DO LINE(1)
SET @SRG@(SRI)=" Operator: "_Y
+7 SET (SRCT,SRLINE)=0
FOR
SET SRLINE=$ORDER(^SRF(SRTN,44,LAS,1,SRLINE))
if 'SRLINE
QUIT
SET SRCT=SRCT+1
+8 if 'SRCT
QUIT
DO LINE(1)
SET SRLINE=0
SET SRL=4
SET SRLINE=$ORDER(^SRF(SRTN,44,LAS,1,SRLINE))
SET X=^SRF(SRTN,44,LAS,1,SRLINE,0)
+9 IF SRCT=1
IF $LENGTH(X)<67
SET @SRG@(SRI)=" Comments: "_X
QUIT
+10 SET @SRG@(SRI)=" Comments:"
DO COMM^SRONRPT3(X,SRL)
+11 FOR
SET SRLINE=$ORDER(^SRF(SRTN,44,LAS,1,SRLINE))
if 'SRLINE
QUIT
SET X=^SRF(SRTN,44,LAS,1,SRLINE,0)
DO COMM^SRONRPT3(X,SRL)
End DoDot:1
+12 QUIT
LAS135 ; laser Performed
+1 NEW C,DUR,DUR,ID,II,III,LAS,LAON,LASOFF,OP,PE,PATPREC,PERPREC,SRCT,TYPE,START,END,FIRE,LDS,PM,POWER,INTVL,JOULES,WATTSD,WAVE,PULSE,EJOULES,WAT,X,Y
+2 SET LAS=0
FOR
SET LAS=$ORDER(^SRF(SRTN,56,LAS))
if 'LAS
QUIT
Begin DoDot:1
+3 SET X=$GET(^SRF(SRTN,56,LAS,0))
SET ID=$PIECE(X,"^")
+4 SET XX=$PIECE(X,"^",2)
SET TYPE=$SELECT(XX=1:"HOLMIUM-YAG",XX=2:"NEODYMIUM-(NG-YAG)",XX=3:"CO2",XX=4:"KTP",XX=5:"EYE DIODE GREEN (532 NM)",XX=6:"EYE DIODE",1:"")
+5 SET START=$PIECE(X,"^",3)
SET END=$PIECE(X,"^",4)
SET FIRE=$PIECE(X,"^",5)
+6 SET XX=$PIECE(X,"^",6)
SET LDS=$SELECT(XX=1:"ENDOSCOPE",XX=2:"HAND PIECE",XX=3:"HEAD PIECE",XX=4:"LAPARASCOPE",XX=5:"LASER FIBER",XX=6:"MICROSCOPE",1:"")
+7 SET XX=$PIECE(X,"^",7)
SET PM=$SELECT(XX=1:"CONTINUOUS",XX=2:"REPEAT PULSE",XX=3:"SINGLE PULSE",1:"")
+8 SET POWER=$PIECE(X,"^",8)
SET INTVL=$PIECE(X,"^",9)
SET JOULES=$PIECE(X,"^",10)
SET WATTSD=$PIECE(X,"^",11)
SET WAVE=$PIECE(X,"^",12)
SET PULSE=$PIECE(X,"^",13)
SET EJOULES=$PIECE(X,"^",14)
SET DUR=$PIECE(X,"^",15)
+9 SET LAON=$PIECE(X,"^",17)
SET LASOFF=$PIECE(X,"^",18)
SET PERPREC=$PIECE(X,"^",19)
+10 DO LINE(1)
SET @SRG@(SRI)=" "_ID
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Type: "_$SELECT(TYPE'="":TYPE,1:"N/A")
+11 SET Y=START
IF Y
DO D^DIQ
SET START=$PIECE(Y,"@")_" "_$PIECE(Y,"@",2)
SET Y=END
IF Y
DO D^DIQ
SET END=$PIECE(Y,"@")_" "_$PIECE(Y,"@",2)
+12 DO LINE(1)
SET @SRG@(SRI)=" Laser Start Time: "_$SELECT(START'="":START,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser End Date: "_$SELECT(END'="":END,1:"N/A")
+13 DO LINE(1)
SET @SRG@(SRI)=" Laser Test Fire: "_$SELECT(FIRE'="":FIRE,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Delivery System: "_$SELECT(LDS'="":LDS,1:"N/A")
+14 DO LINE(1)
SET @SRG@(SRI)=" Pulse Mode: "_$SELECT(PM'="":PM,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Power/Average Power: "_$SELECT(POWER'="":POWER,1:"N/A")
+15 DO LINE(1)
SET @SRG@(SRI)=" Interval/Repetition Rate: "_$SELECT(INTVL'="":INTVL,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Total Joules Delivered: "_$SELECT(JOULES'="":JOULES,1:"N/A")
+16 DO LINE(1)
SET @SRG@(SRI)=" Watts Delivered: "_$SELECT(WATTSD'="":WATTSD,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Wave Form: "_$SELECT(WAVE'="":WAVE,1:"N/A")
+17 DO LINE(1)
SET @SRG@(SRI)=" Pulse Width: "_$SELECT(PULSE'="":PULSE,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Energy Joules: "_$SELECT(EJOULES'="":EJOULES,1:"N/A")
+18 DO LINE(1)
SET @SRG@(SRI)=" Duration: "_$SELECT(DUR'="":DUR_" seconds",1:"N/A")
+19 DO LINE(1)
SET @SRG@(SRI)=" Laser On Standby: "_$SELECT(LAON'="":LAON,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_"Laser Off and Key Secured : "_$SELECT(LASOFF'="":LASOFF,1:"N/A")
+20 IF '$ORDER(^SRF(SRTN,56,LAS,1,0))
DO LINE(1)
SET @SRG@(SRI)=" Patient Precautions: N/A"
SET @SRG@(SRI)=@SRG@(SRI)
+21 SET (II,III)=0
+22 FOR
SET II=$ORDER(^SRF(SRTN,56,LAS,1,II))
if 'II
QUIT
SET XX=$GET(^SRF(SRTN,56,LAS,1,II,0))
SET PATPREC=$SELECT(XX=1:"EYE PADS",XX=2:"TAPE",XX=3:"SAFETY GLASSES/GOOGLES",XX=4:"LASER ET TUBE",XX=5:"MOIST DRAPES",XX=6:"WATER AVAILABLE",XX=7:"RECTAL PACK",1:"")
Begin DoDot:2
+23 SET III=III+1
DO LINE(1)
SET @SRG@(SRI)=$SELECT(III=1:" Patient Precautions: ",1:" ")_$SELECT(PATPREC'="":PATPREC,1:"N/A")
SET @SRG@(SRI)=@SRG@(SRI)
End DoDot:2
+24 IF '$ORDER(^SRF(SRTN,56,LAS,2,0))
DO LINE(1)
SET @SRG@(SRI)=" Personnel Precautions: N/A"
SET @SRG@(SRI)=@SRG@(SRI)
+25 SET (II,III)=0
+26 FOR
SET II=$ORDER(^SRF(SRTN,56,LAS,2,II))
if 'II
QUIT
Begin DoDot:2
+27 SET XX=$GET(^SRF(SRTN,56,LAS,2,II,0))
SET PERPREC=$SELECT(XX=1:"EYE SAFETY FILTER (MICROSCOPE)",XX=2:"HIGH FILTRATION MASKS",XX=3:"SAFETY GLASSES INSPECTED",XX=4:"SAFETY GLASSES USED",XX=5:"SIGNAGE ON DOORS WITH APPROPRIATE WAVE LENGTH",1:"")
Begin DoDot:3
+28 SET III=III+1
DO LINE(1)
SET @SRG@(SRI)=$SELECT(III=1:" Personnel Precautions: ",1:" ")_$SELECT(PERPREC'="":PERPREC,1:"N/A")
End DoDot:3
End DoDot:2
End DoDot:1
+29 QUIT
ORGDNR NEW II,ORG,SRDONR1,SRDONR2,VER1
SET ORG=""
SET VER1=$GET(^SRF(SRTN,"VER1"))
+1 SET SRDONR1=$$VER1^SRTOVRF(SRTN)
SET SRDONR2=$$VER2^SRTOVRF(SRTN)
+2 IF 'SRDONR1&'SRDONR2
QUIT
+3 SET SRLF=1
SET SRLINE="Transplant Information: "
DO LINE(1)
SET @SRG@(SRI)=SRLINE
+4 SET II=0
FOR
SET II=$ORDER(^SRF(SRTN,63,"B",II))
if 'II
QUIT
SET ORG=ORG_"- "_$SELECT(II=1:"HEART",II=2:"LUNG",II=3:"KIDNEY",II=4:"LIVER",II=5:"PANCREAS",II=6:"INTESTINE",II=7:"OTHER",1:"")
+5 SET ORG=$SELECT($LENGTH(ORG):ORG,1:"* NOT ENTERED *")
DO LINE(1)
SET @SRG@(SRI)=" Organ to be Transplanted: "_ORG
+6 DO LINE(1)
SET @SRG@(SRI)=" UNOS Identification Number of Donor: "_$PIECE(VER1,"^",2)
+7 DO LINE(1)
SET @SRG@(SRI)=" Donor Serology Hepatitis C virus (HCV): "_$$OUT($PIECE(VER1,U,3))
+8 DO LINE(1)
SET @SRG@(SRI)=" Donor Serology Hepatitis B Virus (HBV): "_$$OUT($PIECE(VER1,U,4))
+9 DO LINE(1)
SET @SRG@(SRI)=" Donor Serology Cytomegalovirus (CMV): "_$$OUT($PIECE(VER1,U,5))
+10 DO LINE(1)
SET @SRG@(SRI)=" Donor Serology HIV: "_$$OUT($PIECE(VER1,U,6))
+11 DO LINE(1)
SET @SRG@(SRI)=" Donor ABO Type: "_$$ABO($PIECE(VER1,U,7))
+12 DO LINE(1)
SET @SRG@(SRI)=" Recipient ABO Type: "_$$ABO($PIECE(VER1,U,8))
+13 DO LINE(1)
SET @SRG@(SRI)=" Blood Bank Verification of ABO Type: "_$$OUT($PIECE(VER1,U,9))
+14 DO LINE(1)
SET @SRG@(SRI)=" Blood Bank ABO Verification Comments: "_$PIECE(VER1,U,18)
+15 SET Y=$PIECE(VER1,U,19)
IF Y
DO D^DIQ
SET SRTIME=$PIECE(Y,"@")_" "_$PIECE(Y,"@",2)
+16 if Y=""
SET SRTIME="* NOT ENTERED *"
DO LINE(1)
SET @SRG@(SRI)=" Date/Time of Blood Bank ABO Verification: "_SRTIME
+17 DO LINE(1)
SET @SRG@(SRI)=" OR Verification of ABO Type: "_$$OUT($PIECE(VER1,U,10))
+18 DO LINE(1)
SET @SRG@(SRI)=" OR ABO Verification Comments: "_$PIECE(VER1,U,20)
+19 SET Y=$PIECE(VER1,U,21)
IF Y
DO D^DIQ
SET SRTIME=$PIECE(Y,"@")_" "_$PIECE(Y,"@",2)
+20 if Y=""
SET SRTIME="* NOT ENTERED *"
DO LINE(1)
SET @SRG@(SRI)=" Date/Time OR ABO Verification: "_SRTIME
+21 DO LINE(1)
SET @SRG@(SRI)=" Surgeon Performing UNET Verification: "_$$VA($PIECE(VER1,U,11))
+22 DO LINE(1)
SET @SRG@(SRI)=" UNET Verification by Surgeon: "_$$OUT($PIECE(VER1,U,22))
+23 DO LINE(1)
SET @SRG@(SRI)=" Organ Verification Prior to Anesthesia: "_$$OUT($PIECE(VER1,U,12))
+24 DO LINE(1)
SET @SRG@(SRI)=" Surgeon Verifying Organ Prior to Anesthesia: "_$$VA($PIECE(VER1,U,23))
+25 DO LINE(1)
SET @SRG@(SRI)=" Surgeon Verifying Organ Prior to Donor Anesthesia: "_$$VA($PIECE(VER1,U,13))
+26 DO LINE(1)
SET @SRG@(SRI)=" Donor Organ Verification Prior to Anesthesia: "_$$OUT($PIECE(VER1,U,24))
+27 DO LINE(1)
SET @SRG@(SRI)=" Organ Verification Prior to Transplant: "_$$OUT($PIECE(VER1,U,14))
+28 DO LINE(1)
SET @SRG@(SRI)=" Surgeon Verifying the Organ Prior to Transplant: "_$$VA($PIECE(VER1,U,25))
+29 DO LINE(1)
SET @SRG@(SRI)=" Donor Vessel Usage: "_$$OUT($PIECE(VER1,U,15))
+30 SET Y=$PIECE(VER1,U,16)
DO LINE(1)
SET @SRG@(SRI)=" Donor Vessel Disposition if not used: "_$SELECT(Y="N":"NO DONOR VESSELS RECEIVED",Y="D":"DISCARDED",Y="R":"RETURNED TO OPO",Y="S":"STORED",1:"")
+31 SET ORG=""
SET II=""
FOR
SET II=$ORDER(^SRF(SRTN,57,"B",II))
if II=""
QUIT
SET ORG=ORG_"- "_II
+32 DO LINE(1)
SET @SRG@(SRI)=" Donor Vessel UNOS ID: "_ORG
+33 QUIT
SPACE(NUM) ; create spaces
+1 ;pass in position returns number of needed spaces
+2 IF '$DATA(@SRG@(SRI))
SET @SRG@(SRI)=""
+3 QUIT $JUSTIFY("",NUM-$LENGTH(@SRG@(SRI)))
LINE(NUM) ; create carriage returns
+1 IF $GET(SRLF)
SET NUM=NUM+1
SET SRLF=0
+2 FOR J=1:1:NUM
SET SRI=SRI+1
SET @SRG@(SRI)=""
+3 QUIT
OUT(VAL) ;
+1 QUIT $SELECT(VAL="Y":"YES",VAL="N":"NO",VAL="NA":"NOT APPLICABLE",1:"* NOT ENTERED *")
+2 ;
ABO(VAL) ; ABO type
+1 QUIT $SELECT(VAL=1:"A RH(+)",VAL=2:"A RH(-)",VAL=3:"B RH(+)",VAL=4:"B RH(-)",VAL=5:"AB RH(+)",VAL=6:"AB RH(-)",VAL=7:"O RH(+)",VAL=8:"O RH(-)",1:"* NOT ENTERED *")
+2 ;
VA(VAL) ;
+1 IF VAL=""
QUIT "* NOT ENTERED *"
+2 QUIT $PIECE($GET(^VA(200,VAL,0)),"^")
+3 ;
