SROA38.m

SROA38 ;BIR/ADM-Environment Check for SR*3*38 ; [ 04/12/95  10:16 AM ]

 ;;3.0; Surgery ;**38**;24 Jun 93

ANES ; check anesthesia techniques

 S SR38DONE=0,SRX=$P(^DD(130.06,.01,0),"^",3),SRX1="G:GENERAL;M:MONITORED ANESTHESIA CARE;S:SPINAL;E:EPIDURAL;O:OTHER;L:LOCAL;" K SRATECH

 I SRX=SRX1 S SR38DONE=1 Q

 S (SRSOUT,SRNON)=0

 W !!,"This patch installation process will convert each anesthesia technique",!,"associated with each case in the SURGERY file (#130) to its corresponding"

 W !,"technique in the American Board of Anesthesiologists (ABA) universal",!,"list of techniques as described below.",!

 W !,?5,"INHALATION                   -->   GENERAL"

 W !,?5,"INTRAVENOUS  (MAC = NO)      -->   GENERAL"

 W !,?5,"INTRAVENOUS  (MAC = YES)     -->   MAC"

 W !,?5,"SPINAL                       -->   SPINAL"

 W !,?5,"EPIDURAL                     -->   EPIDURAL"

 W !,?5,"INFILTRATION, NERVE BLOCK, \"

 W !,?5,"  FIELD BLOCK, TOPICAL,     >-->   OTHER (ANESTHETIST CATEGORY = A or N)"

 W !,?5,"  OTHER                    /       or LOCAL (ANESTHETIST CATEGORY = O)"

 S SRA="INH:INHALATION;IV:INTRAVENOUS;S:SPINAL;E:EPIDURAL;INF:INFILTRATION;N:NERVE BLOCK;F:FIELD BLOCK;T:TOPICAL;O:OTHER;" I SRX'=SRA S SRNON=1 D  I SRSOUT K DIFQ Q

 .F I=1:1 S SRY=$P(SRX,";",I) Q:SRY=""  I SRA'[SRY S SRZ=$P(SRY,":"),SRW=$P(SRY,":",2) D CHOOSE Q:SRSOUT

 I SRX=SRA W !!,"Any non-standard techniques encountered will be converted to OTHER or LOCAL",!,"depending upon the information in the ANESTHETIST CATEGORY field."

 W ! K DIR S DIR("?",1)="Enter YES to proceed with this patch installation.  Enter NO or '^' to exit",DIR("?")="without making any changes."

 S DIR("A")="Are you sure you want to continue (Y/N)",DIR(0)="Y" D ^DIR K DIR I 'Y!$D(DTOUT)!$D(DUOUT) K DIFQ,SR38DONE,SRA,SRNON,SRSOUT,SRX,SRX1,X,Y

 W ! Q

CHOOSE W !!!,"Your file contains the non-standard technique: "_SRW,!!,"You may convert this technique to a standard ABA technique by entering a",!,"selection below, or press RETURN to convert to OTHER or LOCAL, depending"

 W !,"upon the information in the ANESTHETIST CATEGORY field.",!!,"Convert non-standard technique "_SRW_" to which ABA technique?"

 K DIR S DIR(0)="SO^G:GENERAL;M:MONITORED ANESTHESIA CARE;S:SPINAL;E:EPIDURAL;O:OTHER;L:LOCAL",DIR("A")="Enter ABA technique selection" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q

 I Y="" W !!,SRW_" will be converted to OTHER or LOCAL." Q

 S SRATECH(SRZ)=Y

 Q

SROA38    ;BIR/ADM-Environment Check for SR*3*38 ; [ 04/12/95  10:16 AM ]

 +1       ;;3.0; Surgery ;**38**;24 Jun 93

ANES      ; check anesthesia techniques

 +1        SET SR38DONE=0

           SET SRX=$PIECE(^DD(130.06,.01,0),"^",3)

           SET SRX1="G:GENERAL;M:MONITORED ANESTHESIA CARE;S:SPINAL;E:EPIDURAL;O:OTHER;L:LOCAL;"

           KILL SRATECH

 +2        IF SRX=SRX1

               SET SR38DONE=1

               QUIT 

 +3        SET (SRSOUT,SRNON)=0

 +4        WRITE !!,"This patch installation process will convert each anesthesia technique",!,"associated with each case in the SURGERY file (#130) to its corresponding"

 +5        WRITE !,"technique in the American Board of Anesthesiologists (ABA) universal",!,"list of techniques as described below.",!

 +6        WRITE !,?5,"INHALATION                   -->   GENERAL"

 +7        WRITE !,?5,"INTRAVENOUS  (MAC = NO)      -->   GENERAL"

 +8        WRITE !,?5,"INTRAVENOUS  (MAC = YES)     -->   MAC"

 +9        WRITE !,?5,"SPINAL                       -->   SPINAL"

 +10       WRITE !,?5,"EPIDURAL                     -->   EPIDURAL"

 +11       WRITE !,?5,"INFILTRATION, NERVE BLOCK, \"

 +12       WRITE !,?5,"  FIELD BLOCK, TOPICAL,     >-->   OTHER (ANESTHETIST CATEGORY = A or N)"

 +13       WRITE !,?5,"  OTHER                    /       or LOCAL (ANESTHETIST CATEGORY = O)"

 +14       SET SRA="INH:INHALATION;IV:INTRAVENOUS;S:SPINAL;E:EPIDURAL;INF:INFILTRATION;N:NERVE BLOCK;F:FIELD BLOCK;T:TOPICAL;O:OTHER;"

           IF SRX'=SRA

               SET SRNON=1

               Begin DoDot:1

 +15               FOR I=1:1

                       SET SRY=$PIECE(SRX,";",I)

                       IF SRY=""

                           QUIT 

                       IF SRA'[SRY

                           SET SRZ=$PIECE(SRY,":")

                           SET SRW=$PIECE(SRY,":",2)

                           DO CHOOSE

                           IF SRSOUT

                               QUIT 

               End DoDot:1

               IF SRSOUT

                   KILL DIFQ

                   QUIT 

 +16       IF SRX=SRA

               WRITE !!,"Any non-standard techniques encountered will be converted to OTHER or LOCAL",!,"depending upon the information in the ANESTHETIST CATEGORY field."

 +17       WRITE !

           KILL DIR

           SET DIR("?",1)="Enter YES to proceed with this patch installation.  Enter NO or '^' to exit"

           SET DIR("?")="without making any changes."

 +18       SET DIR("A")="Are you sure you want to continue (Y/N)"

           SET DIR(0)="Y"

           DO ^DIR

           KILL DIR

           IF 'Y!$DATA(DTOUT)!$DATA(DUOUT)

               KILL DIFQ,SR38DONE,SRA,SRNON,SRSOUT,SRX,SRX1,X,Y

 +19       WRITE !

           QUIT 

CHOOSE     WRITE !!!,"Your file contains the non-standard technique: "_SRW,!!,"You may convert this technique to a standard ABA technique by entering a",!,"selection below, or press RETURN to convert to OTHER or LOCAL, depending"

 +1        WRITE !,"upon the information in the ANESTHETIST CATEGORY field.",!!,"Convert non-standard technique "_SRW_" to which ABA technique?"

 +2        KILL DIR

           SET DIR(0)="SO^G:GENERAL;M:MONITORED ANESTHESIA CARE;S:SPINAL;E:EPIDURAL;O:OTHER;L:LOCAL"

           SET DIR("A")="Enter ABA technique selection"

           DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               SET SRSOUT=1

               QUIT 

 +3        IF Y=""

               WRITE !!,SRW_" will be converted to OTHER or LOCAL."

               QUIT 

 +4        SET SRATECH(SRZ)=Y

 +5        QUIT