source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCMCRT0.m@ 905

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1SCMCRT0 ;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 ;
7TMPRFL ; 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)
17EXIT ;
18 D:'$D(ZTQUEUED) ^%ZISC
19 K ^TMP("PCMTP",$J)
20 Q
21 ;
22SELTM() ;
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 ;
34SELTMQ Q SCOK
35 ;
36SELPOS(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
49SELPSQ Q SCOK
50 ;
51GETDEV() ;
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
57DEVQ Q (SCOK)
58 ;
59TMS() ;
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
67TMSQ Q SCOK
68 ;
69LINE(STR) ;
70 N X
71 S:STR]"" STR=" "_STR_" "
72 S $P(X,"_",(IOM/2)-($L(STR)/2))=""
73 Q X_STR_X
74 ;
75PAGEBRK(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 ;
83QUE ;
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
Note: See TracBrowser for help on using the repository browser.