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