SROACL2.m

SROACL2 ;BIR/SJA - CLINICAL DATA ;05/17/04

 ;;3.0; Surgery ;**125,160**;24 Jun 93;Build 7

 D HDR^SROAUTL N SRQ

PRIOR W !,"Prior heart surgeries:"

 W !!,"0. None                      3. CABG/Valve",!,"1. CABG-only                 4. Other",!,"2. Valve-only                5. CABG/Other",!

 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:"")

 S DIR("?")="Enter applicable types of heart surgery performed."

 S DIR("??")="^D H485^SROACL2" D ^DIR K DIR

 I X="@" S DIR("A")="     SURE YOU WANT TO DELETE ",DIR(0)="Y" D ^DIR K DIR S:Y X="@" Q

 I X=""!(Y["^")!($D(DIRUT)) Q

 D CHECK G:SRQ PRIOR

 Q

H485 N SRH D HELP^DIE(130,"",485,"A","SRH")

 I $G(SRH("DIHELP")) F I=1:1:SRH("DIHELP") W !,?2,SRH("DIHELP",I)

 Q

CHECK N I,C S SRQ=0

 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

 F I=1:1:$L(Y,",") S C=$P(Y,",",I) Q:C=""  W !?43,C," - " D

 .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

 S (SRAO(15),Y)=$P(Y,",",1,$L(Y,",")-1)_"^485"

 Q

SROACL2   ;BIR/SJA - CLINICAL DATA ;05/17/04

 +1       ;;3.0; Surgery ;**125,160**;24 Jun 93;Build 7

 +2        DO HDR^SROAUTL

           NEW SRQ

PRIOR      WRITE !,"Prior heart surgeries:"

 +1        WRITE !!,"0. None                      3. CABG/Valve",!,"1. CABG-only                 4. Other",!,"2. Valve-only                5. CABG/Other",!

 +2        KILL DIR

           SET DIR(0)="LOA^0:5"

           SET DIR("A")="Enter your choice(s) separated by commas  (0-5): "

           SET DIR("B")=$SELECT($DATA(SRAO(15)):$PIECE(SRAO(15),"^"),1:"")

 +3        SET DIR("?")="Enter applicable types of heart surgery performed."

 +4        SET DIR("??")="^D H485^SROACL2"

           DO ^DIR

           KILL DIR

 +5        IF X="@"

               SET DIR("A")="     SURE YOU WANT TO DELETE "

               SET DIR(0)="Y"

               DO ^DIR

               KILL DIR

               IF Y

                   SET X="@"

               QUIT 

 +6        IF X=""!(Y["^")!($DATA(DIRUT))

               QUIT 

 +7        DO CHECK

           IF SRQ

               GOTO PRIOR

 +8        QUIT 

H485       NEW SRH

           DO HELP^DIE(130,"",485,"A","SRH")

 +1        IF $GET(SRH("DIHELP"))

               FOR I=1:1:SRH("DIHELP")

                   WRITE !,?2,SRH("DIHELP",I)

 +2        QUIT 

CHECK      NEW I,C

           SET SRQ=0

 +1        IF Y["0"

               IF (Y["1"!(Y["2")!(Y["3")!(Y["4")!(Y["5"))

                   SET SRQ=1

                   WRITE !,"Do not enter NONE if prior heart surgeries were performed.",!

                   QUIT 

 +2        FOR I=1:1:$LENGTH(Y,",")

               SET C=$PIECE(Y,",",I)

               IF C=""

                   QUIT 

               WRITE !?43,C," - "

               Begin DoDot:1

 +3                IF "012345"[C

                       WRITE $SELECT(C=1:"CABG-only",C=2:"Valve-only",C=3:"CABG/Valve",C=4:"Other",C=0:"None",C=5:"CABG/Other",1:"")

                       QUIT 

               End DoDot:1

 +4        SET (SRAO(15),Y)=$PIECE(Y,",",1,$LENGTH(Y,",")-1)_"^485"

 +5        QUIT