| [613] | 1 | PRSEPRG0 ;HINS/DAD-REVIEW GROUP MEMBERS REPORT ; 08/30/94 2:12 PM
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | S PRSESRV=$$EN3^PRSEUTL3(DUZ)
|
|---|
| 4 | S PRSEMISC=+$O(^PRSP(454.1,"B","MISCELLANEOUS",0))
|
|---|
| 5 | K DIC S DIC="^PRSE(452.3,",DIC(0)="AEMNQZ"
|
|---|
| 6 | S DIC("A")="Select REVIEW GROUP (Press RETURN for all): "
|
|---|
| 7 | S DIC("S")="S PRSE=$P(^(0),U,2) I (PRSESRV=PRSE)!(PRSEMISC=PRSE)!($$EN4^PRSEUTL3(DUZ))"
|
|---|
| 8 | W ! D ^DIC I $D(DTOUT)!$D(DUOUT) G EXIT
|
|---|
| 9 | S PRSEGRP=$S(Y>0:+Y,1:0),PRSEGRP("TX")=$G(Y(0,0))
|
|---|
| 10 | S ZTRTN="ENTSK^PRSEPRG0",(ZTSAVE("PRSEGRP"),ZTSAVE("PRSEGRP("))=""
|
|---|
| 11 | S (ZTSAVE("PRSESRV"),ZTSAVE("PRSEMISC"))=""
|
|---|
| 12 | S ZTDESC="Education Tracking REVIEW GROUP MEMBERS REPORT"
|
|---|
| 13 | K %ZIS,IOP D DEV^PRSEUTL G:POP!($D(ZTSK)) EXIT
|
|---|
| 14 | ENTSK ;
|
|---|
| 15 | K ^TMP($J,"PRSEPRG0")
|
|---|
| 16 | I PRSEGRP D
|
|---|
| 17 | . D LOOP
|
|---|
| 18 | . Q
|
|---|
| 19 | E D
|
|---|
| 20 | . S PRSEGRP=0
|
|---|
| 21 | . F S PRSEGRP=$O(^PRSE(452.3,PRSEGRP)) Q:PRSEGRP'>0 D LOOP
|
|---|
| 22 | . Q
|
|---|
| 23 | K PRSEUNDL S $P(PRSEUNDL,"-",81)=""
|
|---|
| 24 | S PRSEQUIT=0,PRSEPAGE=1,PRSENOW=$$FMTE^XLFDT($$DT^XLFDT())
|
|---|
| 25 | U IO D HEADER
|
|---|
| 26 | I $O(^TMP($J,"PRSEPRG0",""))="" D G EXIT
|
|---|
| 27 | . W !!,"No data found for this report."
|
|---|
| 28 | . I $G(PRSEGRP("TX"))]"" W !,"Review group: ",PRSEGRP("TX")
|
|---|
| 29 | . Q
|
|---|
| 30 | S PRSEGRP=""
|
|---|
| 31 | F S PRSEGRP=$O(^TMP($J,"PRSEPRG0",PRSEGRP)) Q:PRSEGRP=""!PRSEQUIT D
|
|---|
| 32 | . W !!,PRSEGRP
|
|---|
| 33 | . S PRSENAME=""
|
|---|
| 34 | . F S PRSENAME=$O(^TMP($J,"PRSEPRG0",PRSEGRP,PRSENAME)) Q:PRSENAME=""!PRSEQUIT D
|
|---|
| 35 | .. S Y="",Y=$G(^TMP($J,"PRSEPRG0",PRSEGRP,PRSENAME)) D:Y>0 DD^%DT W !?20,PRSENAME W:$G(Y)'="" ?50,Y
|
|---|
| 36 | .. I $Y>(IOSL-6) D PAUSE,HEADER
|
|---|
| 37 | .. Q
|
|---|
| 38 | . Q
|
|---|
| 39 | EXIT ;
|
|---|
| 40 | K ^TMP($J,"PRSEPRG0") S POUT=+$G(PRSEQUIT) D CLOSE^PRSEUTL,^PRSEKILL
|
|---|
| 41 | Q
|
|---|
| 42 | LOOP ;
|
|---|
| 43 | S X=$G(^PRSE(452.3,PRSEGRP,0))
|
|---|
| 44 | S PRSEGRP(0)=$P(X,U),PRSESERV=$P(X,U,2) Q:PRSEGRP(0)=""
|
|---|
| 45 | I (PRSESERV'=PRSESRV)&(PRSESERV'=PRSEMISC)&('$$EN4^PRSEUTL3(DUZ)) Q
|
|---|
| 46 | S PRSPCD0=0
|
|---|
| 47 | F S PRSPCD0=$O(^PRSPC("ARG",PRSEGRP,PRSPCD0)) Q:PRSPCD0'>0 D
|
|---|
| 48 | . S PRSEPD1=$O(^PRSPC("ARG",PRSEGRP,PRSPCD0,0)),PRSENAME=$P($G(^PRSPC(PRSPCD0,0)),U) Q:PRSENAME=""!($P($G(^PRSPC(PRSPCD0,1)),U,33)'="N")
|
|---|
| 49 | . S ^TMP($J,"PRSEPRG0",PRSEGRP(0),PRSENAME)=$P($G(^PRSPC(PRSPCD0,5,PRSEPD1,0)),U,2)
|
|---|
| 50 | . Q
|
|---|
| 51 | I $O(^TMP($J,"PRSEPRG0",PRSEGRP(0),""))="" D
|
|---|
| 52 | . S ^TMP($J,"PRSEPRG0",PRSEGRP(0),"NONE")=""
|
|---|
| 53 | . Q
|
|---|
| 54 | Q
|
|---|
| 55 | PAUSE ;
|
|---|
| 56 | I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR S PRSEQUIT=$S(Y'>0:1,1:0)
|
|---|
| 57 | Q
|
|---|
| 58 | HEADER ;
|
|---|
| 59 | Q:PRSEQUIT
|
|---|
| 60 | W:($E(IOST)="C")!(PRSEPAGE>1) @IOF
|
|---|
| 61 | W !!?30,"REVIEW GROUP MEMBERS",?68,PRSENOW,!?68,"PAGE: ",PRSEPAGE
|
|---|
| 62 | S PRSEPAGE=PRSEPAGE+1
|
|---|
| 63 | W !,"REVIEW GROUP",?20,"GROUP MEMBER",?50,"DATE ASSIGNED",!,PRSEUNDL
|
|---|
| 64 | Q
|
|---|
