| 1 | SROA38 ;BIR/ADM-Environment Check for SR*3*38 ; [ 04/12/95 10:16 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**38**;24 Jun 93
|
|---|
| 3 | ANES ; check anesthesia techniques
|
|---|
| 4 | 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
|
|---|
| 5 | I SRX=SRX1 S SR38DONE=1 Q
|
|---|
| 6 | S (SRSOUT,SRNON)=0
|
|---|
| 7 | W !!,"This patch installation process will convert each anesthesia technique",!,"associated with each case in the SURGERY file (#130) to its corresponding"
|
|---|
| 8 | W !,"technique in the American Board of Anesthesiologists (ABA) universal",!,"list of techniques as described below.",!
|
|---|
| 9 | W !,?5,"INHALATION --> GENERAL"
|
|---|
| 10 | W !,?5,"INTRAVENOUS (MAC = NO) --> GENERAL"
|
|---|
| 11 | W !,?5,"INTRAVENOUS (MAC = YES) --> MAC"
|
|---|
| 12 | W !,?5,"SPINAL --> SPINAL"
|
|---|
| 13 | W !,?5,"EPIDURAL --> EPIDURAL"
|
|---|
| 14 | W !,?5,"INFILTRATION, NERVE BLOCK, \"
|
|---|
| 15 | W !,?5," FIELD BLOCK, TOPICAL, >--> OTHER (ANESTHETIST CATEGORY = A or N)"
|
|---|
| 16 | W !,?5," OTHER / or LOCAL (ANESTHETIST CATEGORY = O)"
|
|---|
| 17 | 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
|
|---|
| 18 | .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
|
|---|
| 19 | 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."
|
|---|
| 20 | W ! K DIR S DIR("?",1)="Enter YES to proceed with this patch installation. Enter NO or '^' to exit",DIR("?")="without making any changes."
|
|---|
| 21 | 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
|
|---|
| 22 | W ! Q
|
|---|
| 23 | 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"
|
|---|
| 24 | W !,"upon the information in the ANESTHETIST CATEGORY field.",!!,"Convert non-standard technique "_SRW_" to which ABA technique?"
|
|---|
| 25 | 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
|
|---|
| 26 | I Y="" W !!,SRW_" will be converted to OTHER or LOCAL." Q
|
|---|
| 27 | S SRATECH(SRZ)=Y
|
|---|
| 28 | Q
|
|---|
