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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROA38 2443 printed Nov 22, 2024@17:49:50 Page 2
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
