- SROAC2 ;B'HAM ISC/MAM - ENTER COMPLICATIONS ; 4 MAR 1992 11:00 am
- ;;3.0; Surgery ;;24 Jun 93
- D @EMILY Q
- 1 ; postop wound complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",5) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,403",DIR("A")="Postoperative Wound Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="" W " Deleting information... " F I=5:1:8 S $P(^SRF(SRTN,205),"^",I)=""
- S $P(^SRF(SRTN,205),"^",5)=$S(X="NS":"NS",1:$E(X)) I X["N" F I=6,7,8 S $P(^SRF(SRTN,205),"^",I)=$S(X="NS":"NS",1:"N")
- I X["Y" K DR S DIE=130,DA=SRTN,DR="248T;249T;404T" D ^DIE K DR W !
- Q
- 2 ; respiratory complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",9) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,318",DIR("A")="Respiratory Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="",$P(^SRF(SRTN,205),"^",9)="" W !!,"Deleting all Respiratory Complications...",! D RESP^SROAC1 Q
- S $P(^SRF(SRTN,205),"^",9)=$S(X="NS":"NS",1:$E(X)) I X["N" D RESP^SROAC1
- I X["Y" K DR S DIE=130,DA=SRTN,DR="251T;412T;252T;285T;253T" D ^DIE K DR W !
- Q
- 3 ; urinary tract complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",15) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,319",DIR("A")="Urinary Tract Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="",$P(^SRF(SRTN,205),"^",15)="" W !!,"Deleting all Urinary Tract complications...",! D URINE^SROAC1 Q
- S $P(^SRF(SRTN,205),"^",15)=$S(X="NS":"NS",1:$E(X)) I X["N" D URINE^SROAC1
- I X["Y" K DR S DIE=130,DA=SRTN,DR="409T;254T;255T;286T" D ^DIE K DR W !
- Q
- 4 ; CNS complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",20) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,320",DIR("A")="CNS Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="",$P(^SRF(SRTN,205),"^",20)="" W " Deleting CNS Complications..." D CNS^SROAC1 Q
- S $P(^SRF(SRTN,205),"^",20)=$S(X="NS":"NS",1:$E(X)) I X["N" D CNS^SROAC1
- I X["Y" K DR S DA=SRTN,DIE=130,DR="256T;410T;287T;343T" D ^DIE K DR W !
- Q
- 5 ; cardiac complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",25) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,321",DIR("A")="Cardiac Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="",$P(^SRF(SRTN,205),"^",25)="" W " Deleting Cardiac Complications..." D CARD^SROAC1 Q
- S $P(^SRF(SRTN,205),"^",25)=$S(X="NS":"NS",1:$E(X)) I X["N" D CARD^SROAC1
- I X["Y" K DR S DIE=130,DA=SRTN,DR="411T;258T;259T;344T" D ^DIE K DR W !
- Q
- 6 ; other complications
- I SRSOUT Q
- S X=$P(SRA(205),"^",30) I X'="" S DIR("B")=$S(X="N":"NO",X="NS":"NS",1:"YES")
- S DIR(0)="130,322",DIR("A")="Other Postoperative Complications" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q
- I X="@" S (SRAX,X)="",$P(^SRF(SRTN,205),"^",30)="" W " Deleting Other Complications... " D OTHER^SROAC1 Q
- S $P(^SRF(SRTN,205),"^",30)=$S(X="NS":"NS",1:$E(X)) I X["N" D OTHER^SROAC1
- I X["Y" K DR S DA=SRTN,DIE=130,DR="345T;257T;261T;263T;250T;392T" D ^DIE K DR
- Q
- SROAC2 ;B'HAM ISC/MAM - ENTER COMPLICATIONS ; 4 MAR 1992 11:00 am
- +1 ;;3.0; Surgery ;;24 Jun 93
- +2 DO @EMILY
- QUIT
- 1 ; postop wound complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",5)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,403"
- SET DIR("A")="Postoperative Wound Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- WRITE " Deleting information... "
- FOR I=5:1:8
- SET $PIECE(^SRF(SRTN,205),"^",I)=""
- +5 SET $PIECE(^SRF(SRTN,205),"^",5)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- FOR I=6,7,8
- SET $PIECE(^SRF(SRTN,205),"^",I)=$SELECT(X="NS":"NS",1:"N")
- +6 IF X["Y"
- KILL DR
- SET DIE=130
- SET DA=SRTN
- SET DR="248T;249T;404T"
- DO ^DIE
- KILL DR
- WRITE !
- +7 QUIT
- 2 ; respiratory complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",9)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,318"
- SET DIR("A")="Respiratory Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- SET $PIECE(^SRF(SRTN,205),"^",9)=""
- WRITE !!,"Deleting all Respiratory Complications...",!
- DO RESP^SROAC1
- QUIT
- +5 SET $PIECE(^SRF(SRTN,205),"^",9)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- DO RESP^SROAC1
- +6 IF X["Y"
- KILL DR
- SET DIE=130
- SET DA=SRTN
- SET DR="251T;412T;252T;285T;253T"
- DO ^DIE
- KILL DR
- WRITE !
- +7 QUIT
- 3 ; urinary tract complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",15)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,319"
- SET DIR("A")="Urinary Tract Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- SET $PIECE(^SRF(SRTN,205),"^",15)=""
- WRITE !!,"Deleting all Urinary Tract complications...",!
- DO URINE^SROAC1
- QUIT
- +5 SET $PIECE(^SRF(SRTN,205),"^",15)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- DO URINE^SROAC1
- +6 IF X["Y"
- KILL DR
- SET DIE=130
- SET DA=SRTN
- SET DR="409T;254T;255T;286T"
- DO ^DIE
- KILL DR
- WRITE !
- +7 QUIT
- 4 ; CNS complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",20)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,320"
- SET DIR("A")="CNS Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- SET $PIECE(^SRF(SRTN,205),"^",20)=""
- WRITE " Deleting CNS Complications..."
- DO CNS^SROAC1
- QUIT
- +5 SET $PIECE(^SRF(SRTN,205),"^",20)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- DO CNS^SROAC1
- +6 IF X["Y"
- KILL DR
- SET DA=SRTN
- SET DIE=130
- SET DR="256T;410T;287T;343T"
- DO ^DIE
- KILL DR
- WRITE !
- +7 QUIT
- 5 ; cardiac complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",25)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,321"
- SET DIR("A")="Cardiac Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- SET $PIECE(^SRF(SRTN,205),"^",25)=""
- WRITE " Deleting Cardiac Complications..."
- DO CARD^SROAC1
- QUIT
- +5 SET $PIECE(^SRF(SRTN,205),"^",25)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- DO CARD^SROAC1
- +6 IF X["Y"
- KILL DR
- SET DIE=130
- SET DA=SRTN
- SET DR="411T;258T;259T;344T"
- DO ^DIE
- KILL DR
- WRITE !
- +7 QUIT
- 6 ; other complications
- +1 IF SRSOUT
- QUIT
- +2 SET X=$PIECE(SRA(205),"^",30)
- IF X'=""
- SET DIR("B")=$SELECT(X="N":"NO",X="NS":"NS",1:"YES")
- +3 SET DIR(0)="130,322"
- SET DIR("A")="Other Postoperative Complications"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET SRSOUT=1
- QUIT
- +4 IF X="@"
- SET (SRAX,X)=""
- SET $PIECE(^SRF(SRTN,205),"^",30)=""
- WRITE " Deleting Other Complications... "
- DO OTHER^SROAC1
- QUIT
- +5 SET $PIECE(^SRF(SRTN,205),"^",30)=$SELECT(X="NS":"NS",1:$EXTRACT(X))
- IF X["N"
- DO OTHER^SROAC1
- +6 IF X["Y"
- KILL DR
- SET DA=SRTN
- SET DIE=130
- SET DR="345T;257T;261T;263T;250T;392T"
- DO ^DIE
- KILL DR
- +7 QUIT
