| 1 | SRENSCS ;BIR/SJA - ENSURING CORRECT SURGERY ;04/26/04
|
|---|
| 2 | ;;3.0; Surgery ;**129,153**;24 Jun 93;Build 11
|
|---|
| 3 | ;
|
|---|
| 4 | ; entry point called by 'AIN' x-ref of the correct surgery fields
|
|---|
| 5 | IN I X'="N"!(X'=Y) Q
|
|---|
| 6 | N SRJ,SRK,SRTN1,SRYN S SRTN1=$S($D(SRTN):SRTN,1:DA) Q:'SRTN1
|
|---|
| 7 | S SRJ=$S(+DI=71:"3;82",+DI=72:"4;83",1:"5;84")
|
|---|
| 8 | ASK D EN^DDIOL("Correct Surgery Comments should be entered when a ""NO"" response is entered.",,"!!")
|
|---|
| 9 | D FIELD^DID("130.0"_$P(SRJ,";",2),.01,"","TITLE","SRK")
|
|---|
| 10 | D EN^DDIOL("Do you want to enter "_SRK("TITLE")_" ? YES// ",,"!")
|
|---|
| 11 | R SRYN:DTIME I '$T!(SRYN["^") Q
|
|---|
| 12 | S SRYN=$E(SRYN) S:SRYN="" SRYN="Y" I SRYN["?" D HELP G ASK
|
|---|
| 13 | I "YyNn"'[SRYN D EN^DDIOL("Enter 'YES' to enter correct surgery comments now, 'NO' to quit, or '?' for more help.",,"!!") G ASK
|
|---|
| 14 | I "Nn"[SRYN Q
|
|---|
| 15 | ; edit the associated comments fields
|
|---|
| 16 | N DR,DIE,DA,DP,DC,DL,DE,DI,DIEL,DIETMP,DIFLD,DIP,DK,DM,DP,DQ,DU,DV,DW
|
|---|
| 17 | W ! S DIE=130,DA=SRTN1,DR=$P(SRJ,";",2)_"T" D ^DIE
|
|---|
| 18 | Q
|
|---|
| 19 | HELP D EN^DDIOL("Enter 'YES' to enter correct surgery comments. Enter 'NO' to quit without entering correct surgery comments.",,"!!")
|
|---|
| 20 | Q
|
|---|
| 21 | HR ;entry point called by 'AN' x-ref of the Sur Site Hair Removal Method field
|
|---|
| 22 | I X'="S"&(X'="O") Q
|
|---|
| 23 | N SRTN1,SRYN,SRSEL S SRSEL=X,SRTN1=$S($D(SRTN):SRTN,1:DA) Q:'SRTN1
|
|---|
| 24 | HRASK I SRSEL="O" D G HRC
|
|---|
| 25 | .D EN^DDIOL("Because OTHER has been selected, information must be entered into the comments",,"!!")
|
|---|
| 26 | .D EN^DDIOL("field explaining the other technique.",,"!")
|
|---|
| 27 | SH D EN^DDIOL("It has been determined that shaving the surgical site results in a greater",,"!!")
|
|---|
| 28 | D EN^DDIOL("likelihood of infection. Current best practices suggest that clippers should",,"!")
|
|---|
| 29 | D EN^DDIOL("be used instead of shaving. Whenever hair is removed by shaving, a comment must",,"!")
|
|---|
| 30 | D EN^DDIOL("be entered explaining why this process was used instead of safer techniques.",,"!")
|
|---|
| 31 | HRC ; edit the associated comments fields
|
|---|
| 32 | N DR,DIE,DA,DP,DC,DL,DE,DI,DIEL,DIETMP,DIFLD,DIP,DK,DM,DP,DQ,DU,DV,DW
|
|---|
| 33 | W ! S DIE=130,DA=SRTN1,DR=508_"T" D ^DIE
|
|---|
| 34 | Q
|
|---|
