SROCODE.m

SROCODE ;BIR/MAM - SET UP FLAG FOR ANESTHESIA AGENTS ;01/30/08

 ;;3.0; Surgery ;**72,41,114,151,166**;24 Jun 93;Build 6

 ;

 ; Reference to ENS^PSSGIU supported by DBIA #895

 ;

1 N SRTEST S SRTEST=50,SRTEST(0)="AEQSZ",SRTEST("A")="Enter the name of the drug you wish to flag: "

 D DIC^PSSDI(50,"SR",.SRTEST) G:+Y<1 DONE S SROIUDA=+Y,SROIRX=$P(Y,"^",2),SROIUX="S^SURGERY" D SROIU

 G 1

SROIU Q:'$D(SROIUDA)!'$D(SROIUX)  Q:SROIUX'?1E1"^"1.E

 N SRRX D DATA^PSS50(SROIUDA,,,,,"SRRX") S SRRX=$G(^TMP($J,"SRRX",SROIUDA,63)) D

 .S SROIUY=$S($D(SRRX):SRRX,1:""),SROIUT=$P(SROIUX,"^",2),SROIUT=$E("N","AEIOU"[$E(SROIUT))_" "_SROIUT K ^TMP($J,"SRRX",SROIUDA)

 I SROIUY["S" W !!,"This drug is already flagged for SURGERY." K DIR S DIR("A")="Do you want to remove the flag (Y/N)",DIR(0)="Y" D ^DIR D:Y OFF D DONE Q

 W !! K DIR S DIR("A")="Do you want to flag this drug for SURGERY (Y/N)",DIR(0)="Y" D ^DIR D:Y FLAG

DONE W @IOF K SROIRX D ^SRSKILL

 Q

FLAG S PSIUDA=SROIUDA,PSIUX=SROIUX_"^1"

 S X="PSSGIU" X ^%ZOSF("TEST") I $T D ENS^PSSGIU

 ;HL7 master file update (addition) to anesthesia agent list

 N SRTBL,SRENT,FEC,REC S SRTBL="ANESTHESIA AGENT^50^.01",FEC="UPD",REC="MAD",SRENT=SROIUDA_U_SROIRX D MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 ;A call to PDM to possibly generate an HL7 outgoing drug message

 S X="PSSHUIDG" X ^%ZOSF("TEST") I $T D DRG^PSSHUIDG(PSIUDA)

 K PSIUDA,PSIUX

 Q

OFF S PSIUDA=SROIUDA,PSIUX=SROIUX_"^1"

 S X="PSSGIU" X ^%ZOSF("TEST") I $T D END^PSSGIU

 ;HL7 master file update (deletion) to anesthesia agent list

 N SRTBL,SRENT,FEC,REC S SRTBL="ANESTHESIA AGENT^50^.01",FEC="UPD",REC="MDL" D DATA^PSS50(SROIUDA,,,,,"SRRX")

 S SRENT=SROIUDA_U_$P($G(^TMP($J,"SRRX",SROIUDA,.01)),"^") K ^TMP($J,"SRRX",SROIUDA) D MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 ;A call to PDM to possibly generate an HL7 outgoing drug message

 S X="PSSHUIDG" X ^%ZOSF("TEST") I $T D DRG^PSSHUIDG(PSIUDA)

 K PSIUDA,PSIUX

 Q

SROCODE   ;BIR/MAM - SET UP FLAG FOR ANESTHESIA AGENTS ;01/30/08

 +1       ;;3.0; Surgery ;**72,41,114,151,166**;24 Jun 93;Build 6

 +2       ;

 +3       ; Reference to ENS^PSSGIU supported by DBIA #895

 +4       ;

1          NEW SRTEST

           SET SRTEST=50

           SET SRTEST(0)="AEQSZ"

           SET SRTEST("A")="Enter the name of the drug you wish to flag: "

 +1        DO DIC^PSSDI(50,"SR",.SRTEST)

           IF +Y<1

               GOTO DONE

           SET SROIUDA=+Y

           SET SROIRX=$PIECE(Y,"^",2)

           SET SROIUX="S^SURGERY"

           DO SROIU

 +2        GOTO 1

SROIU      IF '$DATA(SROIUDA)!'$DATA(SROIUX)

               QUIT 

           IF SROIUX'?1E1"^"1.E

               QUIT 

 +1        NEW SRRX

           DO DATA^PSS50(SROIUDA,,,,,"SRRX")

           SET SRRX=$GET(^TMP($JOB,"SRRX",SROIUDA,63))

           Begin DoDot:1

 +2            SET SROIUY=$SELECT($DATA(SRRX):SRRX,1:"")

               SET SROIUT=$PIECE(SROIUX,"^",2)

               SET SROIUT=$EXTRACT("N","AEIOU"[$EXTRACT(SROIUT))_" "_SROIUT

               KILL ^TMP($JOB,"SRRX",SROIUDA)

           End DoDot:1

 +3        IF SROIUY["S"

               WRITE !!,"This drug is already flagged for SURGERY."

               KILL DIR

               SET DIR("A")="Do you want to remove the flag (Y/N)"

               SET DIR(0)="Y"

               DO ^DIR

               IF Y

                   DO OFF

               DO DONE

               QUIT 

 +4        WRITE !!

           KILL DIR

           SET DIR("A")="Do you want to flag this drug for SURGERY (Y/N)"

           SET DIR(0)="Y"

           DO ^DIR

           IF Y

               DO FLAG

DONE       WRITE @IOF

           KILL SROIRX

           DO ^SRSKILL

 +1        QUIT 

FLAG       SET PSIUDA=SROIUDA

           SET PSIUX=SROIUX_"^1"

 +1        SET X="PSSGIU"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO ENS^PSSGIU

 +2       ;HL7 master file update (addition) to anesthesia agent list

 +3        NEW SRTBL,SRENT,FEC,REC

           SET SRTBL="ANESTHESIA AGENT^50^.01"

           SET FEC="UPD"

           SET REC="MAD"

           SET SRENT=SROIUDA_U_SROIRX

           DO MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 +4       ;A call to PDM to possibly generate an HL7 outgoing drug message

 +5        SET X="PSSHUIDG"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO DRG^PSSHUIDG(PSIUDA)

 +6        KILL PSIUDA,PSIUX

 +7        QUIT 

OFF        SET PSIUDA=SROIUDA

           SET PSIUX=SROIUX_"^1"

 +1        SET X="PSSGIU"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO END^PSSGIU

 +2       ;HL7 master file update (deletion) to anesthesia agent list

 +3        NEW SRTBL,SRENT,FEC,REC

           SET SRTBL="ANESTHESIA AGENT^50^.01"

           SET FEC="UPD"

           SET REC="MDL"

           DO DATA^PSS50(SROIUDA,,,,,"SRRX")

 +4        SET SRENT=SROIUDA_U_$PIECE($GET(^TMP($JOB,"SRRX",SROIUDA,.01)),"^")

           KILL ^TMP($JOB,"SRRX",SROIUDA)

           DO MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 +5       ;A call to PDM to possibly generate an HL7 outgoing drug message

 +6        SET X="PSSHUIDG"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO DRG^PSSHUIDG(PSIUDA)

 +7        KILL PSIUDA,PSIUX

 +8        QUIT