| 1 | YSD4E020 ;DALISC/MJD - DSM CONVERSION ERROR REPORT ; [ 04/08/94 11:11 AM ]
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | QUIT
|
|---|
| 5 | ;
|
|---|
| 6 | PROC ;
|
|---|
| 7 | ; Called by YSD4E010
|
|---|
| 8 | ;
|
|---|
| 9 | S (YSD4EP,YSD4EABT)=0,YSD4ERD=$H
|
|---|
| 10 | D HDR ; Write Report Header
|
|---|
| 11 | D DHDR ; Write detail Header
|
|---|
| 12 | D WD I YSD4EABT=1 QUIT ; Write error detail
|
|---|
| 13 | D TOTALS ; Write totals to end of report
|
|---|
| 14 | D KILLALL^YSD4UT01 ; Kill all variables
|
|---|
| 15 | QUIT
|
|---|
| 16 | ;
|
|---|
| 17 | HDR ;Report header
|
|---|
| 18 | S YSD4EP=YSD4EP+1,YSD4EL=6
|
|---|
| 19 | W @IOF,!,"DSM Conversion Error Report",?(IOM-45),$J($$INITSITE^YSD4E010,45),!
|
|---|
| 20 | W $$HTE^XLFDT(YSD4ERD),?(IOM-10),"Page: ",$J(YSD4EP,3),!,$$REPEAT^XLFSTR("=",IOM),!
|
|---|
| 21 | QUIT
|
|---|
| 22 | ;
|
|---|
| 23 | DHDR ;Detail header
|
|---|
| 24 | W "File#",?9,"Entry#",?16,"Node",?22,"Mult#",?30,"Error Text",?74,"Code#",!,$$REPEAT^XLFSTR("=",IOM),!
|
|---|
| 25 | I $$S^%ZTLOAD D QUIT
|
|---|
| 26 | . S (ZTSTOP,YSD4EABT)=1
|
|---|
| 27 | . W !!,"You have requested job# ",ZTSK," to be stopped!!!",!
|
|---|
| 28 | QUIT
|
|---|
| 29 | ;
|
|---|
| 30 | WD ;
|
|---|
| 31 | S YSD4ESME=0,YSD4ECON=1
|
|---|
| 32 | F S YSD4ESME=$O(^YSD(627.99,"AS","TE",YSD4ESME)) Q:YSD4ESME'>0!('YSD4ECON)!(YSD4EABT=1) D
|
|---|
| 33 | . D PGBRK Q:YSD4EABT=1!('YSD4ECON)
|
|---|
| 34 | . S YSD4ESMD=$G(^YSD(627.99,"AS","TE",YSD4ESME))
|
|---|
| 35 | . W !,$P(YSD4ESMD,U,3),?9,$J($P(YSD4ESMD,U,5),5),?17,$P(YSD4ESMD,U,4)
|
|---|
| 36 | . W ?22,$J($P(YSD4ESMD,U,6),5),?30,$P(YSD4ESMD,U,2)
|
|---|
| 37 | . W ?74,$P(YSD4ESMD,U,7)
|
|---|
| 38 | . S YSD4EL=YSD4EL+1
|
|---|
| 39 | QUIT
|
|---|
| 40 | ;
|
|---|
| 41 | PGBRK ;
|
|---|
| 42 | N DIR
|
|---|
| 43 | I (YSD4EL+4)>IOSL&(IOST'["C-") D HDR,DHDR QUIT
|
|---|
| 44 | I (YSD4EL+4)>IOSL&(IOST["C-") D
|
|---|
| 45 | . W !!
|
|---|
| 46 | . S DIR(0)="EA",DIR("A")="Hit RETURN to continue, or '^' to continue... "
|
|---|
| 47 | . D ^DIR
|
|---|
| 48 | . I X[U S YSD4ECON=0 ;STOP....User exit
|
|---|
| 49 | . I YSD4ECON&(YSD4ESME>0) D HDR,DHDR
|
|---|
| 50 | QUIT
|
|---|
| 51 | ;
|
|---|
| 52 | TOTALS ;Summary of total errors written to end of error report
|
|---|
| 53 | S YSD4EP=YSD4EP+1
|
|---|
| 54 | W @IOF,!,"DSM Conversion Error Totals",?(IOM-45),$J($$INITSITE^YSD4E010,45),!
|
|---|
| 55 | W $$HTE^XLFDT(YSD4ERD),?(IOM-10),"Page: ",$J(YSD4EP,3),!,$$REPEAT^XLFSTR("=",IOM),!
|
|---|
| 56 | D SD^YSD4E010
|
|---|
| 57 | QUIT
|
|---|
| 58 | ;
|
|---|
| 59 | STATS ; Called from REPORT^YSD4DSM
|
|---|
| 60 | ; This controls the printing of the Conversion summary
|
|---|
| 61 | D SHDR ;Summary Header
|
|---|
| 62 | D STOT ;Summary totals
|
|---|
| 63 | QUIT
|
|---|
| 64 | ;
|
|---|
| 65 | SHDR ;Report header
|
|---|
| 66 | S YSD4ERD=$H
|
|---|
| 67 | W @IOF,!,"DSM Conversion Summary Report",?(IOM-45),$J($$INITSITE^YSD4E010,45),!
|
|---|
| 68 | W $$HTE^XLFDT(YSD4ERD),?(IOM-10),!,$$REPEAT^XLFSTR("=",IOM),!
|
|---|
| 69 | QUIT
|
|---|
| 70 | ;
|
|---|
| 71 | STOT ;
|
|---|
| 72 | W "Medical Record # of records:",?(IOM-30),$J($P($G(^MR(0)),U,4),10),!
|
|---|
| 73 | W "Medical Record # of records converted:",?(IOM-30),$J($G(^YSD(627.99,"AS","MR NUMBER CONVERTED")),10),!
|
|---|
| 74 | W "Generic Progress Notes # of records:",?(IOM-30),$J($P($G(^GMR(121,0)),U,4),10),!
|
|---|
| 75 | W "Generic Progress Notes # of records converted:",?(IOM-30),$J($G(^YSD(627.99,"AS","GPN NUMBER CONVERTED")),10),!
|
|---|
| 76 | W "Diagnostic Results # of records:",?(IOM-30),$J($P($G(^YSD(627.8,0)),U,4),10),!
|
|---|
| 77 | W "Diagnostic Results # of records converted:",?(IOM-30),$J($G(^YSD(627.99,"AS","DR NUMBER CONVERTED")),10),!
|
|---|
| 78 | W $$REPEAT^XLFSTR("-",IOM),!
|
|---|
| 79 | S YSD4STR=($P($G(^MR(0)),U,4))+($P($G(^GMR(121,0)),U,4))+($P($G(^YSD(627.8,0)),U,4))
|
|---|
| 80 | W "Total number of records:",?(IOM-30),$J(YSD4STR,10),!
|
|---|
| 81 | S YSD4SCR=($G(^YSD(627.99,"AS","MR NUMBER CONVERTED")))+($G(^YSD(627.99,"AS","GPN NUMBER CONVERTED")))+($G(^YSD(627.99,"AS","DR NUMBER CONVERTED")))
|
|---|
| 82 | W "Total number of records converted:",?(IOM-30),$J(YSD4SCR,10),!
|
|---|
| 83 | QUIT
|
|---|
| 84 | ;
|
|---|
| 85 | EOR ;YSD4E020 - DSM CONVERSION ERROR REPORT ;3/22/94
|
|---|
