source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS02A.m@ 1147

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

initial load of WorldVistAEHR

File size: 2.0 KB
RevLine 
[613]1MCPOS02A ;HIRMFO/DAD-NEW PERSON CONVERSION EXCEPTION REPORT ;6/6/96 14:48
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 K %ZIS,IOP S %ZIS="Q",IOP=$G(^XTMP("MC","DEV")) I IOP="" K IOP
5 D ^%ZIS G:POP EXIT
6 I $D(IO("Q")) D G EXIT
7 . N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
8 . S ZTRTN="TASK^MCPOS02A"
9 . S ZTSAVE("^TMP(""MCPOS02"",$J,")=""
10 . S ZTDESC="Medicine New Person Conversion Exception Report"
11 . S ZTDTH=$H
12 . D ^%ZTLOAD
13 . Q
14TASK ;
15 S (MCEXIT,MCFOUND)=0,MCPAGE=1,MCTODAY=$$FMTE^XLFDT($$DT^XLFDT)
16 K MCUNDL S $P(MCUNDL,"=",81)=""
17 U IO D HEADER
18 S MCFILE=0
19 F S MCFILE=$O(^TMP("MCPOS02",$J,MCFILE)) Q:MCFILE'>0!MCEXIT D
20 . I $P(^TMP("MCPOS02",$J,MCFILE),U,2)'>0 Q
21 . W !!,MCFILE
22 . S MCFLD=0
23 . F S MCFLD=$O(^TMP("MCPOS02",$J,MCFILE,MCFLD)) Q:MCFLD'>0!MCEXIT D
24 .. I $P(^TMP("MCPOS02",$J,MCFILE,MCFLD),U,2)'>0 Q
25 .. W ?8,MCFLD
26 .. S MCD0=0
27 .. F S MCD0=$O(^TMP("MCPOS02",$J,MCFILE,MCFLD,MCD0)) Q:MCD0'>0!MCEXIT D
28 ... S MCDATA=^TMP("MCPOS02",$J,MCFILE,MCFLD,MCD0)
29 ... S X=$P(MCDATA,U),MC6=$P(X,";"),MC6(0)=$P(X,";",2)
30 ... S X=$P(MCDATA,U,2),MC16=$P(X,";"),MC16(0)=$P(X,";",2)
31 ... S X=$P(MCDATA,U,3),MC200=$P(X,";"),MC200(0)=$P(X,";",2)
32 ... S MCERROR=$P(MCDATA,U,4)
33 ... D PRINT
34 ... Q
35 .. Q
36 . Q
37 I 'MCFOUND W !!,"No exceptions found."
38 ;
39EXIT ;
40 D ^%ZISC
41 I '$D(XPDNM),$D(ZTQUEUED) S ZTREQ="@"
42 K %ZIS,DIR,DIRUT,DTOUT,DUOUT,MC16,MC200,MC6,MCD0,MCDATA,MCERROR,MCEXIT
43 K MCFILE,MCFLD,MCFOUND,MCPAGE,MCTODAY,MCUNDL,POP,X,Y,ZTDESC,ZTRTN
44 K ^TMP("MCPOS02",$J)
45 Q
46 ;
47PRINT ;
48 W ?14,MCD0
49 W ?25,MC6,?36,MC16,?47,MC200,?58,MCERROR
50 W !?15,MC6(0),?50,MC16(0),!!
51 I $Y>(IOSL-6) D PAUSE,HEADER
52 S MCFOUND=1
53 Q
54PAUSE ;
55 I $E(IOST,1,2)="C-" D
56 . N DIR S DIR(0)="E" D ^DIR S MCEXIT=$S(Y'>0:1,1:0)
57 . Q
58 Q
59 ;
60HEADER ;
61 I MCEXIT Q
62 W:($E(IOST,1,2)="C-")!(MCPAGE>1) @IOF
63 W !?21,"Medicine New Person Exception Report",?68,MCTODAY
64 W !?68,"Page: ",MCPAGE S MCPAGE=MCPAGE+1
65 W !,"File",?8,"Field",?14,"IEN"
66 W ?25,"P==>6",?36,"P==>16",?47,"P==>200",?58,"Error Message"
67 W !?15,"Provider Name",?50,"Person Name",!,MCUNDL,!
68 Q
Note: See TracBrowser for help on using the repository browser.