[613] | 1 | QAOSEWS1 ;HISC/DAD-GENERATE 'EARLY WARNING SYSTEM' BULLETINS ;12/10/92 08:32
|
---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
---|
| 3 | ;
|
---|
| 4 | ; MESSAGE FORMAT:
|
---|
| 5 | ; 1) OCCURRENCE SCREEN TYPE (10DAY OR DEATH)
|
---|
| 6 | ; 2) STATION NUMBER (FROM: 4,99)
|
---|
| 7 | ; 3) STATION NAME (FROM: 4,.01)
|
---|
| 8 | ; 4) REPORTING PERIOD START DATE
|
---|
| 9 | ; 5) REPORTING PERIOD END DATE
|
---|
| 10 | ; 6) SCREEN NUMBER (101.1=10 DAY READMISSION, 109=DEATH)
|
---|
| 11 | ; 7) # OCCURRENCES REVIEWED CLINICALLY
|
---|
| 12 | ; 8) # OCCURRENCES REFERRED TO PEER REVIEW
|
---|
| 13 | ; 9) OUTCOME OF PEER REVIEW: LEVEL 1
|
---|
| 14 | ; 10) OUTCOME OF PEER REVIEW: LEVEL 2
|
---|
| 15 | ; 11) OUTCOME OF PEER REVIEW: LEVEL 3
|
---|
| 16 | ; 12) OUTCOME OF PEER REVIEW: PENDING
|
---|
| 17 | ; 13) # OCCURRENCES REFERRED FOR SYSTEM ISSUES
|
---|
| 18 | ; 14) # OCCURRENCES REFERRED FOR EQUIPMENT ISSUES
|
---|
| 19 | ; 15) <NULL>
|
---|
| 20 | ;
|
---|
| 21 | EN F QAOSSEQ=0:0 S QAOSSEQ=$O(^UTILITY($J,"QAOSPSM","N",QAOSSEQ)) Q:QAOSSEQ'>0 D
|
---|
| 22 | . S QAOSDATA=^UTILITY($J,"QAOSPSM","N",QAOSSEQ)
|
---|
| 23 | . S X=10*$P(QAOSDATA,"^")\1 S QAOSTEXT=$P($T(@X),";;",2) Q:QAOSTEXT=""
|
---|
| 24 | . D KILL^XM K QAOSEWS S XMSUB="OCCURRENCE SCREEN "_$P(QAOSTEXT,"^")
|
---|
| 25 | . S XMDUZ=QAOSSITE,XMY(QAOSSERV_"@"_QAOSDOM)="",XMTEXT="QAOSEWS("
|
---|
| 26 | . I QAOSLGRP]"",QAOSLDOM]"" S XMY("G."_QAOSLGRP_"@"_QAOSLDOM)=""
|
---|
| 27 | . S QAOSEWS(1)=$P(QAOSTEXT,"^",2)_"^"_QAOSSTNO_"^"_QAOSSITE_"^"_QAQNBEG_"^"_QAQNEND_"^"_QAOSDATA
|
---|
| 28 | . F QA=7:1:14 S:$P(QAOSEWS(1),"^",QA)="" $P(QAOSEWS(1),"^",QA)=0
|
---|
| 29 | . S $P(QAOSEWS(1),"^",15)="" G:QAOSTASK SEND
|
---|
| 30 | ASK . W !!,"Ready to send ",XMSUB," data",!,"to ",QAOSSERV,"@",QAOSDOM
|
---|
| 31 | . W !,"OK to send" S %=2 D YN^DICN Q:(%=-1)!(%=2)
|
---|
| 32 | . I '% W !!?5,"Please answer Y(es) or N(o)" G ASK
|
---|
| 33 | . W !,"Sending . . ."
|
---|
| 34 | SEND . D ^XMD
|
---|
| 35 | . Q
|
---|
| 36 | Q
|
---|
| 37 | SCREENS ;;SCREEN*10 ;; SUBJECT OF EWS BULLETIN ^ 1ST PIECE OF EWS DATA
|
---|
| 38 | 1011 ;;10 DAY READMISSIONS^10DAY
|
---|
| 39 | 1090 ;;DEATHS^DEATH
|
---|