- SROAMIS1 ;B'HAM ISC/MAM - ANESTHESIA AMIS REPORT ; 05/27/88 10:11
- ;;3.0; Surgery ;**38**;24 Jun 93
- TECH ; set variables G, M, S,...
- S:TECH="G" G=^TMP("SROAMIS",$J,"T",TECH) S:TECH="M" M=^(TECH) S:TECH="L" L=^(TECH) S:TECH="O" O=^(TECH) S:TECH="E" E=^(TECH) S:TECH="S" S=^(TECH)
- Q
- TECH2 ;
- S TOTDED=$P(G,"^",2)+$P(M,"^",2)+$P(L,"^",2)+$P(O,"^",2)+$P(E,"^",2)+$P(S,"^",2),TOTANES=G+M+L+O+E+S
- Q
- PRINT ; print from ^TMP("SROAMIS",$J
- S TECH=0 F I=0:0 S TECH=$O(^TMP("SROAMIS",$J,"T",TECH)) Q:TECH="" D TECH
- D TECH2 F I="A","N","O" S PRIND(I)=^TMP("SROAMIS",$J,"P","DIAG",I),PRINS(I)=^TMP("SROAMIS",$J,"P","SURG",I)
- W !,?7,TOTANES,?24,"| "_+G,?38,"| "_+M,?52,"| "_+S,?66,"| "_+E,?80,"| "_+O,?94,"| "_+L,! F I=1:1:IOM W "="
- W !!!! F I=1:1:IOM W "="
- W !,?11,"ANESTHETICS FOR PROCEDURES ADMINISTERED BY:",?65,"** ANESTHETICS FOR DIAG. & THERA. PROCEDURES ADMINISTERED BY:" W ! F I=1:1:IOM W "-"
- W !,"ANESTHESIOLOGIST | NURSE ANESTHETIST | OTHER",?65,"** ANESTHESIOLOGIST | NURSE ANESTHETIST | OTHER",! F I=1:1:IOM W "-"
- W !," NUMBER OF | NO. OF | NUMBER OF | NO. OF | NUMBER OF | NO. OF",?65,"** NUMBER OF | NO. OF | NUMBER OF | NO. OF | NUMBER OF | NO. OF"
- W !,"ANESTHETICS| DEATHS | ANESTHETICS | DEATHS | ANESTHETICS| DEATHS",?65,"** ANESTHETICS| DEATHS | ANESTHETICS | DEATHS | ANESTHETICS| DEATHS",! F I=1:1:IOM W "-"
- W !,?3,+PRINS("A"),?11,"| "_+$P(PRINS("A"),"^",2),?20,"| "_+PRINS("N"),?34,"| "_+$P(PRINS("N"),"^",2),?43,"| "_+PRINS("O"),?56,"| "_+$P(PRINS("O"),"^",2)
- W ?65,"** "_+PRIND("A"),?80,"| "_+$P(PRIND("A"),"^",2),?88,"| "_+PRIND("N"),?102,"| "_+$P(PRIND("N"),"^",2),?111,"| "_+PRIND("O"),?124,"| "_+$P(PRIND("O"),"^",2),! F I=1:1:IOM W "="
- W !!! F I=1:1:IOM W "="
- W !,?40,"DEATHS WITHIN 24 HOURS OF INDUCTION OF ANESTHETIC",! F I=1:1:IOM W "-"
- W !,"TOTAL NUMBER",?24,"| | | | | |"
- W !," OF DEATHS",?24,"| GENERAL | MAC | SPINAL | EPIDURAL | OTHER | LOCAL",! F I=1:1:IOM W "-"
- W !,?7,TOTDED,?24,"| "_+$P(G,"^",2),?38,"| "_+$P(M,"^",2),?52,"| "_+$P(S,"^",2),?66,"| "_+$P(E,"^",2),?80,"| "_+$P(O,"^",2),?94,"| "_+$P(L,"^",2),! F I=1:1:IOM W "="
- W ! Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAMIS1 2294 printed Jan 18, 2025@03:42:17 Page 2
- SROAMIS1 ;B'HAM ISC/MAM - ANESTHESIA AMIS REPORT ; 05/27/88 10:11
- +1 ;;3.0; Surgery ;**38**;24 Jun 93
- TECH ; set variables G, M, S,...
- +1 if TECH="G"
- SET G=^TMP("SROAMIS",$JOB,"T",TECH)
- if TECH="M"
- SET M=^(TECH)
- if TECH="L"
- SET L=^(TECH)
- if TECH="O"
- SET O=^(TECH)
- if TECH="E"
- SET E=^(TECH)
- if TECH="S"
- SET S=^(TECH)
- +2 QUIT
- TECH2 ;
- +1 SET TOTDED=$PIECE(G,"^",2)+$PIECE(M,"^",2)+$PIECE(L,"^",2)+$PIECE(O,"^",2)+$PIECE(E,"^",2)+$PIECE(S,"^",2)
- SET TOTANES=G+M+L+O+E+S
- +2 QUIT
- PRINT ; print from ^TMP("SROAMIS",$J
- +1 SET TECH=0
- FOR I=0:0
- SET TECH=$ORDER(^TMP("SROAMIS",$JOB,"T",TECH))
- if TECH=""
- QUIT
- DO TECH
- +2 DO TECH2
- FOR I="A","N","O"
- SET PRIND(I)=^TMP("SROAMIS",$JOB,"P","DIAG",I)
- SET PRINS(I)=^TMP("SROAMIS",$JOB,"P","SURG",I)
- +3 WRITE !,?7,TOTANES,?24,"| "_+G,?38,"| "_+M,?52,"| "_+S,?66,"| "_+E,?80,"| "_+O,?94,"| "_+L,!
- FOR I=1:1:IOM
- WRITE "="
- +4 WRITE !!!!
- FOR I=1:1:IOM
- WRITE "="
- +5 WRITE !,?11,"ANESTHETICS FOR PROCEDURES ADMINISTERED BY:",?65,"** ANESTHETICS FOR DIAG. & THERA. PROCEDURES ADMINISTERED BY:"
- WRITE !
- FOR I=1:1:IOM
- WRITE "-"
- +6 WRITE !,"ANESTHESIOLOGIST | NURSE ANESTHETIST | OTHER",?65,"** ANESTHESIOLOGIST | NURSE ANESTHETIST | OTHER",!
- FOR I=1:1:IOM
- WRITE "-"
- +7 WRITE !," NUMBER OF | NO. OF | NUMBER OF | NO. OF | NUMBER OF | NO. OF",?65,"** NUMBER OF | NO. OF | NUMBER OF | NO. OF | NUMBER OF | NO. OF"
- +8 WRITE !,"ANESTHETICS| DEATHS | ANESTHETICS | DEATHS | ANESTHETICS| DEATHS",?65,"** ANESTHETICS| DEATHS | ANESTHETICS | DEATHS | ANESTHETICS| DEATHS",!
- FOR I=1:1:IOM
- WRITE "-"
- +9 WRITE !,?3,+PRINS("A"),?11,"| "_+$PIECE(PRINS("A"),"^",2),?20,"| "_+PRINS("N"),?34,"| "_+$PIECE(PRINS("N"),"^",2),?43,"| "_+PRINS("O"),?56,"| "_+$PIECE(PRINS("O"),"^",2)
- +10 WRITE ?65,"** "_+PRIND("A"),?80,"| "_+$PIECE(PRIND("A"),"^",2),?88,"| "_+PRIND("N"),?102,"| "_+$PIECE(PRIND("N"),"^",2),?111,"| "_+PRIND("O"),?124,"| "_+$PIECE(PRIND("O"),"^",2),!
- FOR I=1:1:IOM
- WRITE "="
- +11 WRITE !!!
- FOR I=1:1:IOM
- WRITE "="
- +12 WRITE !,?40,"DEATHS WITHIN 24 HOURS OF INDUCTION OF ANESTHETIC",!
- FOR I=1:1:IOM
- WRITE "-"
- +13 WRITE !,"TOTAL NUMBER",?24,"| | | | | |"
- +14 WRITE !," OF DEATHS",?24,"| GENERAL | MAC | SPINAL | EPIDURAL | OTHER | LOCAL",!
- FOR I=1:1:IOM
- WRITE "-"
- +15 WRITE !,?7,TOTDED,?24,"| "_+$PIECE(G,"^",2),?38,"| "_+$PIECE(M,"^",2),?52,"| "_+$PIECE(S,"^",2),?66,"| "_+$PIECE(E,"^",2),?80,"| "_+$PIECE(O,"^",2),?94,"| "_+$PIECE(L,"^",2),!
- FOR I=1:1:IOM
- WRITE "="
- +16 WRITE !
- QUIT