| 1 | SCMCRT0 ;ALB/SCK - PCM REPORT OUTPUTS ; 10/30/95
|
|---|
| 2 | ;;5.3;Scheduling;**41**;AUG 13, 1993
|
|---|
| 3 | ;;1T1; Primary Care Management
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | TMPRFL ; Team Profile Report Entry point
|
|---|
| 8 | ;
|
|---|
| 9 | N SCTMS,SCPOS,SCBRK,SCTEAMS
|
|---|
| 10 | I '$$SELTM G EXIT
|
|---|
| 11 | I '$$SELPOS(SCTMS) G EXIT
|
|---|
| 12 | S SCBRK=$$PAGEBRK("Team") G:SCBRK="" EXIT
|
|---|
| 13 | IF '$$GETDEV G EXIT
|
|---|
| 14 | IF $D(IO("Q")) D QUE G EXIT
|
|---|
| 15 | W ! D WAIT^DICD
|
|---|
| 16 | D START^SCMCRT1(SCTMS,SCPOS,.SCTEAMS,SCBRK)
|
|---|
| 17 | EXIT ;
|
|---|
| 18 | D:'$D(ZTQUEUED) ^%ZISC
|
|---|
| 19 | K ^TMP("PCMTP",$J)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | SELTM() ;
|
|---|
| 23 | N SCOK
|
|---|
| 24 | S SCOK=1
|
|---|
| 25 | W !!,$$LINE("Team Selection")
|
|---|
| 26 | I '$$TMS S SCOK=0 G SELTMQ
|
|---|
| 27 | IF SCTMS="S" S SCTMS=10 D G:'SCOK SELTMQ
|
|---|
| 28 | . S DIC="^SCTM(404.51,",VAUTSTR="Team",VAUTVB="SCTEAMS",VAUTNI=2
|
|---|
| 29 | . D FIRST^VAUTOMA
|
|---|
| 30 | . I Y<0 K SCTMS S SCOK=0
|
|---|
| 31 | S:SCTMS="A" SCTMS=1
|
|---|
| 32 | S:SCTMS="I" SCTMS=0
|
|---|
| 33 | ;
|
|---|
| 34 | SELTMQ Q SCOK
|
|---|
| 35 | ;
|
|---|
| 36 | SELPOS(SCTMS) ;
|
|---|
| 37 | N SCOK
|
|---|
| 38 | S SCOK=1
|
|---|
| 39 | IF SCTMS=0 S SCPOS=-1 G SELPSQ
|
|---|
| 40 | ;
|
|---|
| 41 | W !!,$$LINE("Position Selection")
|
|---|
| 42 | S DIR(0)="S^A:Active Positions;I:Inactive Positions;P:All Positions"
|
|---|
| 43 | S DIR("A")="Positons: ",DIR("B")="A"
|
|---|
| 44 | D ^DIR
|
|---|
| 45 | I $D(DIRUT) S SCOK=0 G SELPSQ
|
|---|
| 46 | S:Y="A" SCPOS=1
|
|---|
| 47 | S:Y="I" SCPOS=0
|
|---|
| 48 | S:Y="P" SCPOS=-1
|
|---|
| 49 | SELPSQ Q SCOK
|
|---|
| 50 | ;
|
|---|
| 51 | GETDEV() ;
|
|---|
| 52 | N SCOK
|
|---|
| 53 | S SCOK=0
|
|---|
| 54 | W !!,"This report is formatted for standard letter size output",!
|
|---|
| 55 | S %ZIS="PMQ" D ^%ZIS G DEVQ:POP
|
|---|
| 56 | S SCOK=1
|
|---|
| 57 | DEVQ Q (SCOK)
|
|---|
| 58 | ;
|
|---|
| 59 | TMS() ;
|
|---|
| 60 | N SCOK
|
|---|
| 61 | S SCOK=1
|
|---|
| 62 | S DIR(0)="S^A:Active Teams;I:Inactive Teams;S:Select Teams"
|
|---|
| 63 | S DIR("A")="Teams: ",DIR("B")="A"
|
|---|
| 64 | D ^DIR
|
|---|
| 65 | S SCTMS=Y
|
|---|
| 66 | I $D(DIRUT) S SCOK=0
|
|---|
| 67 | TMSQ Q SCOK
|
|---|
| 68 | ;
|
|---|
| 69 | LINE(STR) ;
|
|---|
| 70 | N X
|
|---|
| 71 | S:STR]"" STR=" "_STR_" "
|
|---|
| 72 | S $P(X,"_",(IOM/2)-($L(STR)/2))=""
|
|---|
| 73 | Q X_STR_X
|
|---|
| 74 | ;
|
|---|
| 75 | PAGEBRK(STR) ;
|
|---|
| 76 | N X
|
|---|
| 77 | S DIR(0)="Y",DIR("B")="NO"
|
|---|
| 78 | S DIR("A")="Do you want a page break as the "_STR_" changes?"
|
|---|
| 79 | D ^DIR
|
|---|
| 80 | I $D(DIRUT) S Y=""
|
|---|
| 81 | Q Y
|
|---|
| 82 | ;
|
|---|
| 83 | QUE ;
|
|---|
| 84 | S ZTRTN="QSTART^SCMCRT1",ZTDESC="TEAM PROFILE REPORT"
|
|---|
| 85 | F X="SCTMS","SCPOS","SCTEAMS(","SCBRK" S ZTSAVE(X)=""
|
|---|
| 86 | D ^%ZTLOAD W:$D(ZTSK) !,"TASK #",ZTSK
|
|---|
| 87 | D HOME^%ZIS K IO("Q")
|
|---|
| 88 | Q
|
|---|
