[613] | 1 | SROESNR0 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/27/04
|
---|
| 2 | ;;3.0; Surgery ;**100,129,147,153**;24 Jun 93;Build 11
|
---|
| 3 | ;** NOTICE: This routine is part of an implementation of a nationally
|
---|
| 4 | ;** controlled procedure. Local modifications to this routine
|
---|
| 5 | ;** are prohibited.
|
---|
| 6 | ;
|
---|
| 7 | ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498
|
---|
| 8 | ;
|
---|
| 9 | VIEW N SRJ,SRCAT,SRFIELD,SRFLD,SRFILE,SRLN,SRNP,SRN,SRP,SRSUB,SRW,X,Y
|
---|
| 10 | F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),";;",2) Q:SRFLD="" D
|
---|
| 11 | .S SRNP=$P(SRFLD,"^",3),SRN=$P(SRNP,";"),SRP=$P(SRNP,";",2)
|
---|
| 12 | .S (SRSUB,X)=$P(SRFLD,"^",2),Y=$P(X,"-",2),SRFILE=$P(Y,","),SRFIELD=$P(Y,",",2)
|
---|
| 13 | .I SRFIELD=27 Q:'$P($G(^SRF(SRTN,"TIU")),"^",6)
|
---|
| 14 | .I SRFIELD=66 Q:'$P($G(^SRF(SRTN,"TIU")),"^",7)
|
---|
| 15 | .S SRCAT=$P(SRFLD,"^") S SRCAT=$S(SRCAT="":SRFILE,1:SRCAT)
|
---|
| 16 | .S SRW=$S($P(Y,";",2)["W":1,1:0) I SRW D Q
|
---|
| 17 | ..S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))
|
---|
| 18 | ..I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))
|
---|
| 19 | ..S SRLN=0 F S SRLN=$O(^SRF(SRTN,SRN,SRLN)) Q:'SRLN S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0)) I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0))
|
---|
| 20 | .S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),"^",SRP)
|
---|
| 21 | .I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),"^",SRP)
|
---|
| 22 | Q
|
---|
| 23 | REVRS ; restore before-edit data
|
---|
| 24 | N I,SRCAT,SRCNT,SRE,SRE1,SRFF,SRFIELD,SRFILE,SRFLD,SRI,SRIEN,SRJ,SRK,SRL,SRLN,SRN,SRNP,SRP,SRSUB,SRVAL,SRW,X,Y
|
---|
| 25 | F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),";;",2) Q:SRFLD="" D
|
---|
| 26 | .S SRNP=$P(SRFLD,"^",3),SRN=$P(SRNP,";"),SRP=$P(SRNP,";",2)
|
---|
| 27 | .S (SRSUB,X)=$P(SRFLD,"^",2),Y=$P(X,"-",2),SRFILE=$P(Y,","),SRFIELD=$P(Y,",",2)
|
---|
| 28 | .S SRCAT=$P(SRFLD,"^") S SRCAT=$S(SRCAT="":SRFILE,1:SRCAT)
|
---|
| 29 | .Q:'$D(^TMP("SRNRAD1",$J,SRTN,130,SRSUB))
|
---|
| 30 | .S SRW=$S($P(Y,";",2)["W":1,1:0) I SRW D Q
|
---|
| 31 | ..K ^SRF(SRTN,SRN) S ^SRF(SRTN,SRN,0)=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,0))
|
---|
| 32 | ..S SRLN=0 F S SRLN=$O(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,SRLN)) Q:'SRLN S ^SRF(SRTN,SRN,SRLN,0)=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,SRLN))
|
---|
| 33 | .S SRVAL=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB)) I SRFIELD=27 D Q
|
---|
| 34 | ..S $P(^SRF(SRTN,"OP"),"^",2)=SRVAL K DA,DIK S DA=SRTN,DIK="^SRF(",DIK(1)="27" D EN^DIK K DA,DIK
|
---|
| 35 | ..;Set ^TMP("CSLSUR1",$J) in order to send an update trans. via Surgery/CoreFLS interface
|
---|
| 36 | ..S ^TMP("CSLSUR1",$J)=""
|
---|
| 37 | .I SRVAL="" S SRVAL="@"
|
---|
| 38 | .K DA,DIE,DR S DA=SRTN,DIE=130,DR=SRFIELD_"////^S X=SRVAL" D ^DIE K DA,DIE,DR
|
---|
| 39 | D REVRS^SROESNRA
|
---|
| 40 | Q
|
---|
| 41 | TR S SRP=SRI,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")
|
---|
| 42 | Q
|
---|
| 43 | FIELD ; list of fields (^field name on report-file,field^node;piece)
|
---|
| 44 | KPJB ;;^Operating Room-130,.02^0;2
|
---|
| 45 | KPJCE ;;^Surgical Priority-130,.035^0;10
|
---|
| 46 | KPBJC ;;^Time Patient Arrived in Holding Area-130,.203^.2;15
|
---|
| 47 | KPBJE ;;^Time Patient In the O.R.-130,.205^.2;10
|
---|
| 48 | KPBB ;;^Time the Operation Began-130,.22^.2;2
|
---|
| 49 | KPBC ;;^Time the Operation Ends-130,.23^.2;3
|
---|
| 50 | KPBJF ;;^Surgeon Present Time-130,.206^.2;9
|
---|
| 51 | KPBCB ;;^Time Patient Out of the O.R.-130,.232^.2;12
|
---|
| 52 | KPAD ;;^Surgeon-130,.14^.1;4
|
---|
| 53 | KPAE ;;^First Assistant-130,.15^.1;5
|
---|
| 54 | KPAFD ;;^Attending Surgeon-130,.164^.1;13
|
---|
| 55 | KPAF ;;^Second Assistant-130,.16^.1;6
|
---|
| 56 | KPCA ;;^Principal Anesthetist-130,.31^.3;1
|
---|
| 57 | KPCC ;;^Assistant Anesthetist-130,.33^.3;3
|
---|
| 58 | KPAI ;;^Preoperative Mood-130,.19^.1;9
|
---|
| 59 | KPAIF ;;^Preoperative Consciousness-130,.196^.1;15
|
---|
| 60 | KPJG ;;^Preoperative Skin Integrity-130,.07^0;7
|
---|
| 61 | KPAIE ;;^Preoperative Conversation-130,.195^.1;14
|
---|
| 62 | KPFI ;;^Person Confirming ID Band and Valid Consent-130,.69^.6;9
|
---|
| 63 | KGA ;;^Time Out Verification Completed (Y/N)-130,71^VER;3
|
---|
| 64 | KGB ;;^Preoperative Imaging Confirmed-130,72^VER;4
|
---|
| 65 | KGC ;;^Mark on Surgical Site Confirmed-130,73^VER;5
|
---|
| 66 | KGD ;;^Correct Surgery Comments-130,74;W^74;0
|
---|
| 67 | KHB ;;^Time Out Verified Comments-130,82;W^82;0
|
---|
| 68 | KHC ;;^Imaging Confirmed Comments-130,83;W^83;0
|
---|
| 69 | KHD ;;^Marked Site Comments-130,84;W^84;0
|
---|
| 70 | KPAH ;;^Skin Prepped By-130,.18^.1;8
|
---|
| 71 | KPAGE ;;^Skin Preparation Agent-130,.175^.1;7
|
---|
| 72 | KD ;;^Skin Prepped By (2)-130,4^.1;12
|
---|
| 73 | KH ;;^Second Skin Preparation Agent-130,8^31;2
|
---|
| 74 | KPAB ;;^Preop Hair Removal by-130,.12^.1;2
|
---|
| 75 | KEJF ;;^Hair Removal Method-130,506^VER;6
|
---|
| 76 | KEJH ;;^Hair Removal Comments-130,508;W^49;0
|
---|
| 77 | KPGE ;;^Electrocautery Unit-130,.75^.7;5
|
---|
| 78 | KPEE ;;^Electroground Placement-130,.55^.5;4
|
---|
| 79 | KF ;;^Electroground Position (2)-130,6^.5;13
|
---|
| 80 | KEG ;;^ESU Coagulation Range-130,57^.7;1
|
---|
| 81 | KEGC ;;^ESU Cutting Range-130,58^.7;2
|
---|
| 82 | KPJC ;;^Major or Minor-130,.03^0;3
|
---|
| 83 | KBF ;;^Principal Procedure-130,26^OP;1
|
---|
| 84 | KBG ;;^Principal CPT Code-130,27^OP;2
|
---|
| 85 | KFF ;;^Principal Diagnosis Code-130,66^34;2
|
---|
| 86 | KBB ;;^Tubes and Drains-130,22^3;1
|
---|
| 87 | KDD ;;^Final Sponge Count Correct (Y/N)-130,44^25;1
|
---|
| 88 | KDE ;;^Final Sharps Count Correct (Y/N)-130,45^25;2
|
---|
| 89 | KDF ;;^Final Instrument Count Correct (Y/N)-130,46^25;3
|
---|
| 90 | KDG ;;^Person Responsible for Final Counts-130,47^25;4
|
---|
| 91 | KDH ;;^Count Verifier-130,48^25;5
|
---|
| 92 | KDA ;;^Dressing(s)-130,41^35;1
|
---|
| 93 | KPHGE ;;^Packing Type-130,.875^.8;11
|
---|
| 94 | KPBE ;;^Intraoperative Blood Loss (ml)-130,.25^.2;5
|
---|
| 95 | KPBEE ;;^Total Urine Output (ml)-130,.255^.2;16
|
---|
| 96 | KPHA ;;^Postoperative Mood-130,.81^.8;1
|
---|
| 97 | KPHBA ;;^Postoperative Consciousness-130,.821^.8;10
|
---|
| 98 | KPGF ;;^Postoperative Skin Integrity-130,.76^.7;6
|
---|
| 99 | KPGG ;;^Postoperative Skin Color-130,.77^.7;7
|
---|
| 100 | KABH ;;^Type of Laser-130,128^.7;8
|
---|
| 101 | KABG ;;^Sequential Compression Device (Y/N)-130,127^.7;3
|
---|
| 102 | KAPJI ;;^Wound Classification-130,1.09^1.0;8
|
---|
| 103 | KPDF ;;^Postoperative Disposition-130,.46^.4;6
|
---|
| 104 | KBE ;;^Patient Discharged Via-130,25^.7;4
|
---|
| 105 | KACA ;;^Device(s)-130,131^46;1
|
---|
| 106 | KDI ;;^Specimens-130,49;W^9;0
|
---|
| 107 | KFD ;;^Cultures-130,64;W^41;0
|
---|
| 108 | KPBI ;;^Nursing Care Comments-130,.29;W^7;0
|
---|