- QAOSEWS1 ;HISC/DAD-GENERATE 'EARLY WARNING SYSTEM' BULLETINS ;12/10/92 08:32
- ;;3.0;Occurrence Screen;;09/14/1993
- ;
- ; MESSAGE FORMAT:
- ; 1) OCCURRENCE SCREEN TYPE (10DAY OR DEATH)
- ; 2) STATION NUMBER (FROM: 4,99)
- ; 3) STATION NAME (FROM: 4,.01)
- ; 4) REPORTING PERIOD START DATE
- ; 5) REPORTING PERIOD END DATE
- ; 6) SCREEN NUMBER (101.1=10 DAY READMISSION, 109=DEATH)
- ; 7) # OCCURRENCES REVIEWED CLINICALLY
- ; 8) # OCCURRENCES REFERRED TO PEER REVIEW
- ; 9) OUTCOME OF PEER REVIEW: LEVEL 1
- ; 10) OUTCOME OF PEER REVIEW: LEVEL 2
- ; 11) OUTCOME OF PEER REVIEW: LEVEL 3
- ; 12) OUTCOME OF PEER REVIEW: PENDING
- ; 13) # OCCURRENCES REFERRED FOR SYSTEM ISSUES
- ; 14) # OCCURRENCES REFERRED FOR EQUIPMENT ISSUES
- ; 15) <NULL>
- ;
- EN F QAOSSEQ=0:0 S QAOSSEQ=$O(^UTILITY($J,"QAOSPSM","N",QAOSSEQ)) Q:QAOSSEQ'>0 D
- . S QAOSDATA=^UTILITY($J,"QAOSPSM","N",QAOSSEQ)
- . S X=10*$P(QAOSDATA,"^")\1 S QAOSTEXT=$P($T(@X),";;",2) Q:QAOSTEXT=""
- . D KILL^XM K QAOSEWS S XMSUB="OCCURRENCE SCREEN "_$P(QAOSTEXT,"^")
- . S XMDUZ=QAOSSITE,XMY(QAOSSERV_"@"_QAOSDOM)="",XMTEXT="QAOSEWS("
- . I QAOSLGRP]"",QAOSLDOM]"" S XMY("G."_QAOSLGRP_"@"_QAOSLDOM)=""
- . S QAOSEWS(1)=$P(QAOSTEXT,"^",2)_"^"_QAOSSTNO_"^"_QAOSSITE_"^"_QAQNBEG_"^"_QAQNEND_"^"_QAOSDATA
- . F QA=7:1:14 S:$P(QAOSEWS(1),"^",QA)="" $P(QAOSEWS(1),"^",QA)=0
- . S $P(QAOSEWS(1),"^",15)="" G:QAOSTASK SEND
- ASK . W !!,"Ready to send ",XMSUB," data",!,"to ",QAOSSERV,"@",QAOSDOM
- . W !,"OK to send" S %=2 D YN^DICN Q:(%=-1)!(%=2)
- . I '% W !!?5,"Please answer Y(es) or N(o)" G ASK
- . W !,"Sending . . ."
- SEND . D ^XMD
- . Q
- Q
- SCREENS ;;SCREEN*10 ;; SUBJECT OF EWS BULLETIN ^ 1ST PIECE OF EWS DATA
- 1011 ;;10 DAY READMISSIONS^10DAY
- 1090 ;;DEATHS^DEATH
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAOSEWS1 1766 printed Feb 18, 2025@23:47:58 Page 2
- QAOSEWS1 ;HISC/DAD-GENERATE 'EARLY WARNING SYSTEM' BULLETINS ;12/10/92 08:32
- +1 ;;3.0;Occurrence Screen;;09/14/1993
- +2 ;
- +3 ; MESSAGE FORMAT:
- +4 ; 1) OCCURRENCE SCREEN TYPE (10DAY OR DEATH)
- +5 ; 2) STATION NUMBER (FROM: 4,99)
- +6 ; 3) STATION NAME (FROM: 4,.01)
- +7 ; 4) REPORTING PERIOD START DATE
- +8 ; 5) REPORTING PERIOD END DATE
- +9 ; 6) SCREEN NUMBER (101.1=10 DAY READMISSION, 109=DEATH)
- +10 ; 7) # OCCURRENCES REVIEWED CLINICALLY
- +11 ; 8) # OCCURRENCES REFERRED TO PEER REVIEW
- +12 ; 9) OUTCOME OF PEER REVIEW: LEVEL 1
- +13 ; 10) OUTCOME OF PEER REVIEW: LEVEL 2
- +14 ; 11) OUTCOME OF PEER REVIEW: LEVEL 3
- +15 ; 12) OUTCOME OF PEER REVIEW: PENDING
- +16 ; 13) # OCCURRENCES REFERRED FOR SYSTEM ISSUES
- +17 ; 14) # OCCURRENCES REFERRED FOR EQUIPMENT ISSUES
- +18 ; 15) <NULL>
- +19 ;
- EN FOR QAOSSEQ=0:0
- SET QAOSSEQ=$ORDER(^UTILITY($JOB,"QAOSPSM","N",QAOSSEQ))
- if QAOSSEQ'>0
- QUIT
- Begin DoDot:1
- +1 SET QAOSDATA=^UTILITY($JOB,"QAOSPSM","N",QAOSSEQ)
- +2 SET X=10*$PIECE(QAOSDATA,"^")\1
- SET QAOSTEXT=$PIECE($TEXT(@X),";;",2)
- if QAOSTEXT=""
- QUIT
- +3 DO KILL^XM
- KILL QAOSEWS
- SET XMSUB="OCCURRENCE SCREEN "_$PIECE(QAOSTEXT,"^")
- +4 SET XMDUZ=QAOSSITE
- SET XMY(QAOSSERV_"@"_QAOSDOM)=""
- SET XMTEXT="QAOSEWS("
- +5 IF QAOSLGRP]""
- IF QAOSLDOM]""
- SET XMY("G."_QAOSLGRP_"@"_QAOSLDOM)=""
- +6 SET QAOSEWS(1)=$PIECE(QAOSTEXT,"^",2)_"^"_QAOSSTNO_"^"_QAOSSITE_"^"_QAQNBEG_"^"_QAQNEND_"^"_QAOSDATA
- +7 FOR QA=7:1:14
- if $PIECE(QAOSEWS(1),"^",QA)=""
- SET $PIECE(QAOSEWS(1),"^",QA)=0
- +8 SET $PIECE(QAOSEWS(1),"^",15)=""
- if QAOSTASK
- GOTO SEND
- ASK WRITE !!,"Ready to send ",XMSUB," data",!,"to ",QAOSSERV,"@",QAOSDOM
- +1 WRITE !,"OK to send"
- SET %=2
- DO YN^DICN
- if (%=-1)!(%=2)
- QUIT
- +2 IF '%
- WRITE !!?5,"Please answer Y(es) or N(o)"
- GOTO ASK
- +3 WRITE !,"Sending . . ."
- SEND DO ^XMD
- +1 QUIT
- End DoDot:1
- +2 QUIT
- SCREENS ;;SCREEN*10 ;; SUBJECT OF EWS BULLETIN ^ 1ST PIECE OF EWS DATA
- 1011 ;;10 DAY READMISSIONS^10DAY
- 1090 ;;DEATHS^DEATH
