source: FOIAVistA/tag/r/PATIENT_REPRESENTATIVE-QAC/QACSRV.m@ 628

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

initial load of FOIAVistA 6/30/08 version

File size: 932 bytes
Line 
1QACSRV ;WCIOFO/ERC - Report of Service/Discipline Iss Tot ;9/22/97
2 ;;2.0;Patient Representative;**3,5,9,13**;07/25/1995
3DATE ;
4 N QACDIS,QACDSC,QACFLG S QACFLG=0
5 N QACPIECE,QACSUB,QACTEXT
6 N ZTSAVE
7 D DATDIV^QACUTL0 G:QAQPOP EXIT^QACDISC
8 S QACTEXT="Service/Discipline "
9 S DIC="^QA(745.55,"
10 D DIR^QACDISC(QACTEXT,DIC,.Y)
11 I $G(QACQUIT)=1 D EXIT2^QACDISC Q
12 S QACDSC=$P(Y,U,2)
13 I $G(QACFLG)=1 S QACDSP=+Y
14 K %ZIS,IOP S %ZIS="MQ" W ! D ^%ZIS G:POP EXIT^QACDISC
15 I $D(IO("Q")) D G EXIT^QACDISC
16 . S (ZTSAVE("QACFLG"),ZTSAVE("QACTEXT"))=""
17 . S (ZTSAVE("QACDSC"),ZTSAVE("QACDSP"),ZTSAVE("QACDIS"))=""
18 . S (ZTSAVE("QACDIV"),ZTSAVE("QAC1DIV"),ZTSAVE("QACDV"))=""
19 . S (ZTSAVE("QAQNBEG"),ZTSAVE("QAQNEND"))=""
20 . S (ZTSAVE("QACSRPT0"),ZTSAVE("QACSRPT1"),ZTSAVE("QACSRPT2"))=""
21 . S ZTDESC="Patient Rep Service Report"
22 . S ZTRTN="TSK^QACSRV"
23 . D TASK^QACUTL0
24 . Q
25TSK ;
26 S QACPIECE=1
27 S QACSUB=2
28 D TSK1^QACDISC(QACPIECE,QACSUB)
29 Q
Note: See TracBrowser for help on using the repository browser.