source: WorldVistAEHR/trunk/r/SURGERY-SR/SRENSCS.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1SRENSCS ;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
5IN 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")
8ASK 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
19HELP D EN^DDIOL("Enter 'YES' to enter correct surgery comments. Enter 'NO' to quit without entering correct surgery comments.",,"!!")
20 Q
21HR ;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
24HRASK 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.",,"!")
27SH 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.",,"!")
31HRC ; 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
Note: See TracBrowser for help on using the repository browser.