source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4E020.m@ 1404

Last change on this file since 1404 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 3.2 KB
Line 
1YSD4E020 ;DALISC/MJD - DSM CONVERSION ERROR REPORT ; [ 04/08/94 11:11 AM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4 QUIT
5 ;
6PROC ;
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 ;
17HDR ;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 ;
23DHDR ;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 ;
30WD ;
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 ;
41PGBRK ;
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 ;
52TOTALS ;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 ;
59STATS ; 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 ;
65SHDR ;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 ;
71STOT ;
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 ;
85EOR ;YSD4E020 - DSM CONVERSION ERROR REPORT ;3/22/94
Note: See TracBrowser for help on using the repository browser.