Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: QAOSUPL0

QAOSUPL0.m

Go to the documentation of this file.
  1. QAOSUPL0 ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;6/28/93 11:07
  1. ;;3.0;Occurrence Screen;;09/14/1993
  1. ;
  1. ;MESSAGE FORMAT:
  1. ; SERVER DATA
  1. ; 1) ^^QAO0^
  1. ; SITE DATA
  1. ; 1) STATION NUMBER (FROM: 4,99)
  1. ; 2) STATION NAME (FROM: 4,.01)
  1. ; 3) REPORTING PERIOD START DATE (FM INTERNAL)
  1. ; 4) REPORTING PERIOD END DATE (FM INTERNAL)
  1. ; RELIABILITY DATA
  1. ; 1) DATE CLIN RELIABILITY ASSESSMENT COMPLETED (FM INTERNAL)
  1. ; 2) PERCENTAGE AGREEMENT FOUND (CLIN)
  1. ; 3) DATE PEER RELIABILITY ASSESSMENT COMPLETED (FM INTERNAL)
  1. ; 4) PERCENTAGE AGREEMENT FOUND (PEER)
  1. ; WORKLOAD DATA
  1. ; 1) # ADMISSIONS TO MEDICINE
  1. ; 2) # ADMISSIONS TO SURGERY
  1. ; 3) # ADMISSIONS TO PSYCHIATRY
  1. ; 4) # UNSCHEDULED & 10-10 AMBULATORY CARE VISITS
  1. ; 5) <NULL>
  1. ; 6) <NULL>
  1. ; 7) # SURGICAL PROCEDURES PERFORMED
  1. ; ACTION DATA
  1. ; 1) ACTION NUMBER (FROM: 741.7,.01) ; NUMBER OF TIMES TAKEN ^ ...
  1. ; SCREEN DATA
  1. ; 1) SCREEN NUMBER (FROM: 741.1,.01 - NATIONAL SCREENS ONLY)
  1. ; 2) # OCCURRENCES REVIEWED CLINICALLY
  1. ; 3) # OCCURRENCES REFERRED TO PEER REVIEW
  1. ; 4) OUTCOME OF PEER REVIEW: LEVEL 1
  1. ; 5) OUTCOME OF PEER REVIEW: LEVEL 2
  1. ; 6) OUTCOME OF PEER REVIEW: LEVEL 3
  1. ; 7) OUTCOME OF PEER REVIEW: PENDING
  1. ; 8) # OCCURRENCES REFERRED FOR SYSTEM ISSUES
  1. ; 9) # OCCURRENCES REFERRED FOR EQUIPMENT ISSUES
  1. ; 10) # OCCURRENCES MEDICINE (INCLUDING NEUROLOGY)
  1. ; 11) # OCCURRENCES SURGERY
  1. ; 12) # OCCURRENCES PSYCHIATRY
  1. ; 13) # OCCURRENCES OTHER
  1. ; 14) # OCCURRENCES TOTAL
  1. EN ;
  1. S QAOSZERO=$G(^QA(740,1,0)) I +QAOSZERO'>0 S QAOERROR=1 D ERROR G EXIT
  1. S QAOSSITE=$P($G(^DIC(4,+QAOSZERO,0)),"^")
  1. I QAOSSITE="" S QAOERROR=2 D ERROR G EXIT
  1. S QAOSSTNO=$P($G(^DIC(4,+QAOSZERO,99)),"^")
  1. I QAOSSTNO="" S QAOERROR=3 D ERROR G EXIT
  1. S QAOSSERV=$P(QAOSZERO,"^",4) I QAOSSERV="" S QAOERROR=4 D ERROR G EXIT
  1. S QAOSDOM=$P(QAOSZERO,"^",5) I QAOSDOM="" S QAOERROR=5 D ERROR G EXIT
  1. S QA=+$O(^DIC(4.2,"B",$E(QAOSDOM,1,30),0))
  1. I $S($D(^DIC(4.2,QA,0))[0:1,$P(^(0),"^")'=QAOSDOM:1,1:0) S QAOERROR=6 D ERROR G EXIT
  1. W !!,"Select the reporting period:" S QAQDATE="'S" D ^QAQDATE
  1. G:QAQQUIT EXIT
  1. ;
  1. D HOME^%ZIS W @IOF
  1. W !!,"3. Results of the Reliability Assessments (Complete only for second report",!,"of fiscal year.)"
  1. ;
  1. W !!," a. Clinical Review"
  1. K DIR S DIR(0)="DOA^:"_DT_":EXP"
  1. S DIR("?")="Enter an exact date (month, day, and year) less than or equal to today"
  1. S DIR("A")=" (1) Date reliability assessment completed: "
  1. W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("C",1)=Y
  1. K DIR S DIR(0)="NOA^0:100:2"
  1. S DIR("?")="Enter a number from 0 to 100, two decimal places allowed, no '%'"
  1. S DIR("A")=" (2) Percentage agreement found: "
  1. W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("C",2)=Y
  1. ;
  1. W !!," b. Peer Review"
  1. K DIR S DIR(0)="DOA^:"_DT_":EXP"
  1. S DIR("?")="Enter an exact date (month, day, and year) less than or equal to today"
  1. S DIR("A")=" (1) Date reliability assessment completed: "
  1. W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("P",1)=Y
  1. K DIR S DIR(0)="NOA^0:100:2"
  1. S DIR("?")="Enter a number from 0 to 100, two decimal places allowed, no '%'"
  1. S DIR("A")=" (2) Percentage agreement found: "
  1. W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSRELY("P",2)=Y
  1. G EN^QAOSUPL1
  1. EXIT ;
  1. G EXIT^QAOSUPL2
  1. ERROR ;
  1. W *7,!!,"*** ",$P($T(ERR+QAOERROR),";;",2)," ***",!!,*7
  1. Q
  1. ERR ;;ERROR MESSAGES: REASONS SUMMARY OF OCCURRENCE SCREEN COULD NOT BE SENT
  1. ;;STATION NAME NOT FOUND IN QA SITE PARAMETERS FILE
  1. ;;STATION NAME NOT FOUND IN INSTITUTION FILE
  1. ;;STATION NUMBER NOT FOUND IN INSTITUTION FILE
  1. ;;NQADB MAIL GROUP/SERVER NOT FOUND IN QA SITE PARAMETERS FILE
  1. ;;NQADB DOMAIN NOT FOUND IN QA SITE PARAMETERS FILE
  1. ;;NQADB DOMAIN NOT FOUND IN DOMAIN FILE