| 1 | SROCMP2 ;BIR/MAM - PERIOPERATIVE OCCURRENCES REPORT ;02/02/06
|
|---|
| 2 | ;;3.0; Surgery ;**38,50,153**;24 Jun 93;Build 11
|
|---|
| 3 | HDR ; print heading
|
|---|
| 4 | I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
|
|---|
| 5 | I SRHDR D HDR2 Q:SRSOUT S SRHDR=0
|
|---|
| 6 | W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?53,"PERIOPERATIVE OCCURRENCES",?100,"DATE REVIEWED: "
|
|---|
| 7 | W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
|
|---|
| 8 | W !!!,?1,"PATIENT",?29,$S(SRSEL=2:"SURGICAL SPECIALTY",1:"ATTENDING SURGEON"),?80,"OCCURRENCE(S) - (DATE)",?125,"OUTCOME"
|
|---|
| 9 | W !,?3,"ID#",?29,$S(SRSEL=3:"SURGICAL SPECIALTY",1:"PRINCIPAL OPERATION"),?80,"TREATMENT",!,"OPERATION DATE",?29,$S(SRSEL=3:"PRINCIPAL OPERATION",1:""),!
|
|---|
| 10 | F I=1:1:132 W "="
|
|---|
| 11 | S PAGE=PAGE+1 I '$D(^TMP("SR",$J)) Q
|
|---|
| 12 | N SRY S SRY=$S(SRSEL=2:"ATTENDING",SRSEL=3:"CATEGORY",1:"SPECIALTY")_": "_SRSS W !,?(132-$L(SRY)\2),SRY,! F LINE=1:1:132 W "-"
|
|---|
| 13 | Q
|
|---|
| 14 | HDR2 ; more heading
|
|---|
| 15 | F I=$Y:1:IOSL-9 W !
|
|---|
| 16 | FOOT ; print footer
|
|---|
| 17 | W ! F LINE=1:1:IOM W "-"
|
|---|
| 18 | W !,"OUTCOMES: U - UNRESOLVED, I - IMPROVED, W - WORSE, D - DEATH"
|
|---|
| 19 | W !,?11,"'*' Represents Postoperative Occurrences",! F LINE=1:1:IOM W "-"
|
|---|
| 20 | S SRHDR=0 I $E(IOST)'="P" W !!,"Press RETURN to continue, or '^' to quit: " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q
|
|---|
| 21 | Q
|
|---|
