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

SRONIN.m

Go to the documentation of this file.
  1. SRONIN ;BIR/MAM,ADM - NURSE INTRAOPERATIVE REPORT ;10/24/2011
  1. ;;3.0;Surgery;**68,50,100,129,134,153,157,175,176,182,184,200,205**;24 Jun 93;Build 12
  1. ;** NOTICE: This routine is part of an implementation of a nationally
  1. ;** controlled procedure. Local modifications to this routine
  1. ;** are prohibited.
  1. ;
  1. ; Reference to UPDATE^TIUSRVP supported by DBIA #3535
  1. ; Reference to ES^TIUSROI supported by DBIA #3537
  1. ; Reference to EXTRACT^TIULQ supported by DBIA #2693
  1. ;
  1. I '$D(SRSITE) D ^SROVAR G:'$D(SRSITE) END S SRSITE("KILL")=1
  1. I '$D(SRTN) K SRNEWOP D ^SROPS G:'$D(SRTN) END S SRTN("KILL")=1
  1. N SRAGE,SRDIV,SRDIVNM,SRDO,SRFUNCT,SRHDR,SRINUSE,SRLEAVE,SRLOC,SRPARAM,SRPRINT,SRSEL,SRSINED,SRDTITL,SRTIU,SRAT,SRXX
  1. S SRDTITL="Nurse Intraoperative Report"
  1. S (SRFUNCT,SRLEAVE,SRSINED)=0,SRTIU=$P($G(^SRF(SRTN,"TIU")),"^",2)
  1. I SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1
  1. D:SRSINED FUNCT D:'SRSINED EN
  1. ENF I 'SRLEAVE,SRFUNCT S SRSEL="" D FUNCT
  1. D END
  1. Q
  1. DISPLY I SRSINED S SRTIU=$P($G(^SRF(SRTN,"TIU")),"^",2) I SRTIU D PRNT^SROESPR(SRTN,SRTIU,SRDTITL) S SRLEAVE=1 Q
  1. K %ZIS,IO("Q") S %ZIS="Q" D ^%ZIS I POP S SRLEAVE=1 Q
  1. I $D(IO("Q")) K IO("Q") N ZTRTN,ZTDESC,ZTSAVE,ZTQUEUED S ZTRTN="PRNT^SRONIN",ZTDESC=SRDTITL,(ZTSAVE("SRTN"),ZTSAVE("SRSITE*"))="" D ^%ZTLOAD,^%ZISC Q
  1. EN D RPT^SRONRPT(SRTN) S DFN=$P(^SRF(SRTN,0),"^"),VAINDT=$P(^SRF(SRTN,0),"^",9)
  1. S Y=$E(VAINDT,1,7) D D^DIQ S SRSDATE=Y D OERR^VADPT
  1. S SRHDR=" "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE
  1. S Y=$E($$NOW^XLFDT,1,12) D DD^%DT S SRPRINT="Printed: "_Y
  1. S SRLOC=" Pt Loc: "_$P(VAIN(4),"^",2)_" "_VAIN(5)
  1. S SRAGE="",Z=$P(VADM(3),"^") I Z S X=$E($P(^SRF(SRTN,0),"^",9),1,12),Y=$E(X,1,7),SRAGE=$E(Y,1,3)-$E(Z,1,3)-($E(Y,4,7)<$E(Z,4,7))
  1. S SRDIV=$$SITE^SROUTL0(SRTN),SRDIVNM="" I SRDIV S X=$P(^SRO(133,SRDIV,0),"^"),SRDIVNM=$$EXTERNAL^DILFD(133,.01,"",X)
  1. S SRDIVNM=$S(SRDIVNM'="":SRDIVNM,1:SRSITE("SITE"))
  1. U IO S (SRPAGE,SRSOUT)=0,$P(SRLINE,"-",80)="" D HDR
  1. S SRI=0 F S SRI=$O(^TMP("SRNIR",$J,SRTN,SRI)) Q:'SRI D Q:SRSOUT
  1. .I $E(IOST)="P",$Y+11>IOSL D FOOT Q:SRSOUT D HDR
  1. .I $E(IOST)'="P",$Y+4>IOSL D FOOT Q:SRSOUT D HDR
  1. .W !,^TMP("SRNIR",$J,SRTN,SRI)
  1. I SRSOUT D ^%ZISC Q
  1. D FOOT D D ^%ZISC
  1. .I $D(SRALRT) S SRFUNCT=1 Q
  1. .I '$G(SRFUNCT) S SRLEAVE=1
  1. Q
  1. SRHDR S DFN=$P(^SRF(SRTN,0),"^") D DEM^VADPT
  1. S Y=$E($P(^SRF(SRTN,0),"^",9),1,7) D D^DIQ S SRSDATE=Y
  1. S SRHDR=" "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE
  1. Q
  1. PRNT N SRDIV,SRFUNCT,SRLEAVE D EN
  1. END K ^TMP("SRNIR",$J)
  1. W @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
  1. D ^SRSKILL K VAIN,VAINDT I $D(SRSITE("KILL")) K SRSITE
  1. I $D(SRTN("KILL")) K SRTN
  1. Q
  1. PAGE I $D(SRNOEDIT) D LAST Q
  1. S (SRFUNCT,SRSOUT)=0
  1. W ! K DIR S DIR(0)="FOA",DIR("A",1)=" Press <return> to continue, 'A' to access Nurse Intraoperative Report",DIR("A")=" functions, or '^' to exit: " D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S (SRLEAVE,SRSOUT)=1 Q
  1. I X="A"!(X="a") S (SRFUNCT,SRSOUT)=1
  1. Q
  1. LAST W ! K DIR S DIR(0)="E" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1
  1. Q
  1. Q:SRSOUT I $E(IOST)'="P" D PAGE Q
  1. I IOSL-9>$Y F X=$Y:1:(IOSL-10) W !
  1. W !,SRLINE,!,VADM(1),?50,SRPRINT,!,VA("PID")_" Age: "_SRAGE,?50,SRLOC,!,SRDIVNM,?59,"Vice SF 509",!,SRLINE
  1. Q
  1. HDR ; heading
  1. I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
  1. S SRPAGE=SRPAGE+1 I $Y'=0 W @IOF
  1. I $E(IOST)'="P",SRPAGE=1 S DFN=$P(^SRF(SRTN,0),"^") D DEM^VADPT S SRXX=VADM(1)_" ("_VA("PID")_")" W !,?(80-$L(SRXX)\2),SRXX
  1. W:$E(IOST)="P" !!!!,SRLINE W !,?3,"MEDICAL RECORD NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN,?(79-$L("PAGE "_SRPAGE)),"PAGE "_SRPAGE,!
  1. W:$E(IOST)="P" SRLINE,!
  1. Q
  1. FUNCT ; nurse intraop report functions
  1. K SRALRT
  1. D:'$D(SRHDR) SRHDR S SRSOUT=0,SRTIU=$P($G(^SRF(SRTN,"TIU")),"^",2)
  1. I 'SRSINED,SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1
  1. W @IOF,!,SRHDR I SRSINED W !!," * * The Nurse Intraoperative Report has been electronically signed. * *"
  1. W !!," Nurse Intraoperative Report Functions:",!
  1. S DIR("A",1)=" 1. Edit report information",DIR("A",2)=" 2. Print/View report from beginning"
  1. S DIR("A",3)=$S('SRTIU:"",'SRSINED:" 3. Sign the report electronically",1:"") I SRTIU,'SRSINED S DIR("A",4)=""
  1. S DIR("A")="Select number: ",DIR("B")=2,DIR(0)="SAM^1:Edit report information;2:Print/View report from beginning"_$S(('SRSINED&SRTIU):";3:Sign the report electronically",1:"")
  1. D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S (SRLEAVE,SRSOUT)=1 D END Q
  1. S SRSEL=Y,SRDO=$S(SRSEL=1:"EDIT",SRSEL=3:"SIGN",1:"DISPLY")
  1. D @SRDO D UNLOCK^SROUTL(SRTN)
  1. S SRSOUT=0,SRFUNCT=1 D ENF
  1. Q
  1. EDIT ; edit report data fields
  1. D CHECK^SROES I SRSOUT Q
  1. N SROLOCK,SRX,SRZ D ^SROLOCK I SROLOCK S Q3("VIEW")=""
  1. N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK Q
  1. K ^TMP("SR182",$J) ; set by 'AO' x-ref
  1. K DA,DR,DIE S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN
  1. S DR=$S($$VER1^SRTOVRF(SRTN):"[SRONRPT1]",$$VER2^SRTOVRF(SRTN):"[SRONRPT2]",1:"[SRONRPT]"),ST="NURSE INTRAOP"_$S(SROLOCK:" **LOCKED",1:"")
  1. D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME K Q3("VIEW")
  1. ;;**SR*3.0*205
  1. ;pause added to allow for system writes to take effect
  1. I $G(DIE)="^SRF(" W @IOF,!,"Processing for last edits..." H 2 W @IOF
  1. D WSXR^SRTOVRF(SRTN)
  1. I '$P(^SRF(SRTN,0),"^",20) D ^SROPCE1
  1. I $D(SRODR) D ^SROCON1
  1. S SROERR=SRTN D ^SROERR0
  1. D EXIT^SROES
  1. Q
  1. SIGN ; sign report if appropriate user
  1. N SRLCK,SRESIG S SRESIG=1,SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK Q
  1. N SRMISS,SRNUR,SROK,SRA,SRII,SRJ,Y S SRII=$P($G(^SRF(SRTN,"TIU")),"^",2)
  1. S (SROK,SRNUR,SRJ)=0 F S SRNUR=$O(^SRF(SRTN,19,SRNUR)) Q:'SRNUR S SRJ=1 I $P(^SRF(SRTN,19,SRNUR,0),"^")=DUZ S SROK=1 Q
  1. I $D(^XUSEC("SROCHIEF",DUZ)) S SROK=1
  1. I 'SROK,'SRJ,SRII D EXTRACT^TIULQ(SRII,"SRA",.SRERR,"1302") I +$G(SRA(SRII,1302,"I"))=DUZ S SROK=1
  1. I 'SROK W !!,"Sorry, you are not authorized to sign this report." H 2 Q
  1. S SRMISS=0 D ALLIN Q:SRSOUT!SRMISS
  1. ES D RPT^SRONRPT(SRTN) N SRAY,SRERR,SRI,SRP,SRSIG,SRTIU,X1
  1. S SRTIU=$P($G(^SRF(SRTN,"TIU")),"^",2)
  1. D SIG^XUSESIG I X1="" W !!,"Signature failed." H 2 Q
  1. F I=1:1 Q:'$D(^TMP("SRNIR",$J,SRTN,I)) S SRAY("TEXT",I,0)=^TMP("SRNIR",$J,SRTN,I)
  1. S SRAY(.05)=5 D UPDATE^TIUSRVP(.SRERR,SRTIU,.SRAY,1) K SRAY
  1. I +SRERR S SRSINED=1 D
  1. .D ES^TIUSROI(SRTIU,DUZ)
  1. .S XQAID="SRNIR-"_SRTN,XQAKILL=0 D DELETEA^XQALERT
  1. W ! K DIR S DIR(0)="FOA",DIR("A")="Press RETURN to continue... " D ^DIR K DIR
  1. Q
  1. ALLIN N SRDONR1,SRDONR2,SRMISSD,SRFLD,SRI,SRJJ,SRJK,SRM,SRMISS1,SRMISS2,SRMISS3,SRMISS85,SRMIS508,SRMIS633,SRMIS636,SRMISSAT,SRO,SROO,SRP,SRPF,SRX,SRY,SRZ,SRABORT
  1. ;;**SR*3.0*205
  1. ;POSSIBLE ITEM RETENTION (#630) requirement for NIR to be electronically signed and variable storing its value (SRMIS630) removed per NSO request
  1. S (SREDIT,SRMISS,SRMISS1,SRMISS2,SRMISS3,SRMISS85,SRMIS508,SRMISSAT,SRSOUT,SRMIS633,SRMIS636,SRMISSD)=0
  1. S SRABORT=$$ABORT^SRTOVRF(SRTN) Q:SRABORT
  1. S (SRDONR1,SRDONR2)=0
  1. S SRDONR1=$$VER1^SRTOVRF(SRTN),SRDONR2=$$VER2^SRTOVRF(SRTN)
  1. K DA,DIC,DIQ,DR
  1. S DIC="^SRF(",DA=SRTN,DIQ="SRY",DIQ(0)="I",DR=".205;.232;2006;44;45;46;47;48;606;605;600;601;602;603;604;607;608;609;610;611;506;.69;1.13;633;636;74"
  1. S DR=DR_$S(SRDONR1:";648;649;650;651;652;653;654;655;656;657;658;660;663;665;747;749;750;751;752;753",SRDONR2:";659",1:"") D EN^DIQ1
  1. F SRJJ=85,49 I '$O(^SRF(SRTN,SRJJ,0)) S SRJK=$S(SRJJ=49:508,1:SRJJ),SRY(130,SRTN,SRJK,"I")=""
  1. I $O(^SRF(SRTN,1,0)) S SRO=0 F S SRO=$O(^SRF(SRTN,1,SRO)) Q:'SRO S SROO=$G(^SRF(SRTN,1,SRO,2)),SROO1=$G(^SRF(SRTN,1,SRO,1)) D
  1. .F SRM=1,2,3 S:$P(SROO,"^",SRM)']"" SRY(130.47,SRTN,SRO_";"_(SRM+7),"I")=""
  1. .F SRM=3,4,5 S:$P(SROO1,"^",SRM)']"" SRY(130.47,SRTN,SRO_";"_(SRM+8),"I")=""
  1. I '$O(^SRF(SRTN,1,0)) S SRY(130.47,SRTN)=""
  1. I '$O(^SRF(SRTN,6,0)) S SRY(130.06,SRTN)=""
  1. ;I SRDONR1 F II="57;130.0664","63;130.0647" S:'$O(^SRF(SRTN,+II,0)) SRY($P(II,";",2),SRTN)=""
  1. K DA,DIC,DIQ,DR D LIST
  1. I $G(SRX(.205))'=""!($G(SRX(.232))'="")!($G(SRX(606))'="")!($G(SRX(605))'="")!($G(SRX(506))'="")!($G(SRX(1.13))'="") S SRMISS1=1
  1. F SRJJ=600:1:604,607:1:611,1.13 I $G(SRX(SRJJ))'="" S SRMISS1=1
  1. F SRJJ=.69,74,2006 I $G(SRX(SRJJ))'="" S SRMISS1=1
  1. F SRJJ=600:1:611 I (SRY(130,SRTN,SRJJ,"I")="N")!(SRY(130,SRTN,SRJJ,"I")=""),('$O(^SRF(SRTN,51,0))) S SRMISS85=1
  1. I SRY(130,SRTN,506,"I")="S"!(SRY(130,SRTN,506,"I")="O"),('$O(^SRF(SRTN,49,0))) S SRMIS508=1
  1. I (SRY(130,SRTN,44,"I")="N"!(SRY(130,SRTN,45,"I")="N")!(SRY(130,SRTN,46,"I")="N"))&(SRY(130,SRTN,633,"I")="") S SRMIS633=1
  1. I (SRY(130,SRTN,44,"I")="N"!(SRY(130,SRTN,45,"I")="N")!(SRY(130,SRTN,46,"I")="N"))&(SRY(130,SRTN,636,"I")="") S SRMIS636=1
  1. I $G(SRX(48))="" F SRZ=44,45,46,47 I $G(SRX(SRZ))'="" S SRMISS2=1 Q
  1. I $O(^SRF(SRTN,1,0)) I $O(SRX(130.47,0)) S SRMISS3=1
  1. I $D(SRY(130.06,SRTN)) S SRMISSAT=1
  1. I SRDONR1 F SRZ=648:1:660,663,665,747,749:1:753 I $G(SRX(SRZ))'="" S SRMISSD=1
  1. I SRDONR2 I $G(SRX(659))'="" S SRMISSD=1
  1. I SRMISS1!SRMISS2!$G(SRMISS85)!$G(SRMIS508)!(SRMISS3)!(SRMISSAT)!(SRMIS633)!(SRMIS636)!(SRMISSD) S SRMISS=1 D MESS Q:SRSOUT I SREDIT D EDIT Q
  1. Q
  1. MESS ; display list of missing items
  1. W @IOF,!,"The following information is required before this report may be signed:",!
  1. I SRMISS1 F SRZ=.205,.232,2006,606,605,600,601,602,603,604,607,608,609,610,611,506,1.13 I $G(SRX(SRZ))'="" W !,?5,SRX(SRZ)
  1. I SRMISS1 F SRZ=.69,74 I 'SRABORT,$G(SRX(SRZ))'="" W !,?5,SRX(SRZ)
  1. I SRMISS2 F SRZ=44:1:47 I $G(SRX(SRZ))'="" W !,?5,SRX(SRZ)
  1. S SRJJ=85 I $G(@("SRMISS"_SRJJ)),$G(SRX(SRJJ))'="" W !,?5,SRX(SRJJ)
  1. F SRZ=508,633,636 I $G(@("SRMIS"_SRZ)),$G(SRX(SRZ))'="" W !,?5,SRX(SRZ)
  1. I SRMISS3,$O(^SRF(SRTN,1,0)) I $O(SRX(130.47,0)) S SRJ=0 F S SRJ=$O(SRX(130.47,SRJ)) Q:'SRJ S SRJJ=$P($G(^SRF(SRTN,1,SRJ,0)),"^") D
  1. .S SRPF=0 F S SRPF=$O(SRX(130.47,SRJ,SRPF)) Q:'SRPF S SRPF(SRPF)=""
  1. .I $O(SRPF(0)) W !!,?5,"PROSTHESIS INSTALLED item "_$P(^SRO(131.9,SRJJ,0),"^")_":"
  1. .F J=8:1:13 I $D(SRPF(J)) W !,?7,$S(J=8:"IMPLANT STERILITY CHECKED",J=9:"STERILITY EXPIRATION DATE",J=10:"RN VERIFIER",J=11:"LOT NUMBER",J=12:"SERIAL NUMBER",1:"PROVIDER READ BACK PERFORMED")
  1. .K SRPF
  1. I SRMISS3,'$O(^SRF(SRTN,1,0)) W !!,?5,"PROSTHESIS INSTALLED Multiple"
  1. I SRMISSAT W !,?5,"ANESTHESIA TECHNIQUE Multiple"
  1. W ! I SRMISSD,SRDONR1 D
  1. .F SRZ=648:1:658,660,663,665,747,749:1:753 I $G(SRX(SRZ))'="" W !,?5,SRX(SRZ)
  1. .I '$O(^SRF(SRTN,57,0)) W !,?5,"DONOR VESSEL UNOS ID Multiple"
  1. .I '$O(^SRF(SRTN,63,0)) W !,?5,"ORGAN TO BE TRANSPLANTED Multiple"
  1. I SRMISSD,SRDONR2 I $G(SRX(659))'="" W !,?5,SRX(659)
  1. W ! K DIR S DIR("A")="Do you want to enter this information",DIR("B")="YES",DIR(0)="Y" D ^DIR K DIR,SRX I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q
  1. I Y S SREDIT=1
  1. Q
  1. CODE ; entry point from coding menu
  1. N SRAGE,SRDIV,SRDIVNM,SRDO,SRFUNCT,SRHDR,SRINUSE,SRLEAVE,SRLOC,SRNOEDIT,SRPARAM,SRPRINT,SRSEL,SRSINED,SRDTITL,SRTIU,SRSTAT,SRXX
  1. S SRNOEDIT=1,SRDTITL="Nurse Intraoperative Report"
  1. S (SRFUNCT,SRLEAVE,SRSINED)=0,SRTIU=$P($G(^SRF(SRTN,"TIU")),"^",2)
  1. I SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1
  1. D DISPLY,END
  1. Q
  1. LIST S SRZ=0 F S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ I SRY(130,SRTN,SRZ,"I")="" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRX(SRZ)=$P(SRFLD,"^",2)
  1. S SRZ=0,SROO="" F S SROO=$O(SRY(130.47,SRTN,SROO)) Q:'SROO I SRY(130.47,SRTN,SROO,"I")="" D
  1. .S SRX(130.47,$P(SROO,";"),$P(SROO,";",2))=""
  1. M SRX(130.06,SRTN,6)=SRY(130.06,SRTN)
  1. I SRDONR1 F II=130.0664,130.0647 I $D(SRY(II)) M SRX(II,SRTN,.01)=SRY(II,SRTN)
  1. Q
  1. TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
  1. Q
  1. PBJE ;;.205^TIME PAT IN OR
  1. PBCB ;;.232^TIME PAT OUT OR
  1. DD ;;44^SPONGE FINAL COUNT CORRECT
  1. DE ;;45^SHARPS FINAL COUNT CORRECT
  1. DF ;;46^INSTRUMENT FINAL COUNT CORRECT
  1. DG ;;47^SPONGE, SHARPS, & INST COUNTER
  1. DH ;;48^COUNT VERIFIER
  1. FJJ ;;600^CORRECT PATIENT IDENTITY
  1. FJA ;;601^PROCEDURE TO BE PERFORMED
  1. FJB ;;602^SITE OF PROCEDURE
  1. FJC ;;603^CONFIRM VALID CONSENT
  1. FJD ;;604^CONFIRM PATIENT POSITION
  1. FJE ;;605^MARKED SITE CONFIRMED
  1. FJF ;;606^PREOPERATIVE IMAGING CONFIRMED
  1. FJG ;;607^CORRECT MEDICAL IMPLANTS
  1. FJH ;;608^ANTIBIOTIC PROPHYLAXIS
  1. FJI ;;609^APPROPRIATE DVT PROPHYLAXIS
  1. FAJ ;;610^BLOOD AVAILABILITY
  1. FAA ;;611^AVAILABILITY OF SPECIAL EQUIP
  1. HE ;;85^CHECKLIST COMMENT
  1. PFI ;;.69^TIME-OUT DOCUMENT COMPLETED BY
  1. GD ;;74^TIME-OUT COMPLETED
  1. EJF ;;506^HAIR REMOVAL METHOD
  1. EJH ;;508^HAIR REMOVAL COMMENTS
  1. APAC ;;1.13^ASA CLASS
  1. FCC ;;633^WOUND SWEEP
  1. FCF ;;636^INTRAOPERATIVE X-RAY
  1. FDH ;;648^UNOS NUMBER
  1. FDI ;;649^DONOR SEROLOGY HCV
  1. FEJ ;;650^DONOR SEROLOGY HBV
  1. FEA ;;651^DONOR SEROLOGY CMV
  1. FEB ;;652^DONOR SEROLOGY HIV
  1. FEC ;;653^DONOR ABO TYPE
  1. FED ;;654^RECIPIENT ABO TYPE
  1. FEE ;;655^BLOOD BANK ABO VERIFICATION
  1. FEF ;;656^OR ABO VERIFICATION
  1. FEG ;;657^SURGEON VERIFYING UNET
  1. FEH ;;658^ORGAN VER PRE-ANESTHESIA
  1. FEI ;;659^SURGEON VER DONOR ORG PRE-ANES
  1. FFJ ;;660^ORGAN VER PRE-TRANSPLANT
  1. FFC ;;663^DONOR VESSEL USAGE
  1. FFE ;;665^DONOR VESSEL DISPOSITION
  1. GDG ;;747^D/T BLOOD BANK ABO VERIF
  1. GDI ;;749^D/T OR ABO VERIF
  1. GEJ ;;750^UNET VERIF BY SURGEON
  1. GEA ;;751^SURGEON VER ORGAN PRE-ANES
  1. GEB ;;752^DONOR ORG VER PRE-ANES
  1. GEC ;;753^SURGEON VER ORG PRE-TRANSPLANT
  1. BJJF ;;2006^ROBOTIC ASSISTANCE (Y/N)