source: WorldVistAEHR/trunk/r/SURGERY-SR/SROACL2.m@ 623

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SROACL2 ;BIR/SJA - CLINICAL DATA ;05/17/04
2 ;;3.0; Surgery ;**125,160**;24 Jun 93;Build 7
3 D HDR^SROAUTL N SRQ
4PRIOR W !,"Prior heart surgeries:"
5 W !!,"0. None 3. CABG/Valve",!,"1. CABG-only 4. Other",!,"2. Valve-only 5. CABG/Other",!
6 K DIR S DIR(0)="LOA^0:5",DIR("A")="Enter your choice(s) separated by commas (0-5): ",DIR("B")=$S($D(SRAO(15)):$P(SRAO(15),"^"),1:"")
7 S DIR("?")="Enter applicable types of heart surgery performed."
8 S DIR("??")="^D H485^SROACL2" D ^DIR K DIR
9 I X="@" S DIR("A")=" SURE YOU WANT TO DELETE ",DIR(0)="Y" D ^DIR K DIR S:Y X="@" Q
10 I X=""!(Y["^")!($D(DIRUT)) Q
11 D CHECK G:SRQ PRIOR
12 Q
13H485 N SRH D HELP^DIE(130,"",485,"A","SRH")
14 I $G(SRH("DIHELP")) F I=1:1:SRH("DIHELP") W !,?2,SRH("DIHELP",I)
15 Q
16CHECK N I,C S SRQ=0
17 I Y["0",(Y["1"!(Y["2")!(Y["3")!(Y["4")!(Y["5")) S SRQ=1 W !,"Do not enter NONE if prior heart surgeries were performed.",! Q
18 F I=1:1:$L(Y,",") S C=$P(Y,",",I) Q:C="" W !?43,C," - " D
19 .I "012345"[C W $S(C=1:"CABG-only",C=2:"Valve-only",C=3:"CABG/Valve",C=4:"Other",C=0:"None",C=5:"CABG/Other",1:"") Q
20 S (SRAO(15),Y)=$P(Y,",",1,$L(Y,",")-1)_"^485"
21 Q
Note: See TracBrowser for help on using the repository browser.