| 1 | MCPOS02A ;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
|
|---|
| 14 | TASK ;
|
|---|
| 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 | ;
|
|---|
| 39 | EXIT ;
|
|---|
| 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 | ;
|
|---|
| 47 | PRINT ;
|
|---|
| 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
|
|---|
| 54 | PAUSE ;
|
|---|
| 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 | ;
|
|---|
| 60 | HEADER ;
|
|---|
| 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
|
|---|
