| 1 | QACSRV ;WCIOFO/ERC - Report of Service/Discipline Iss Tot ;9/22/97
|
|---|
| 2 | ;;2.0;Patient Representative;**3,5,9,13**;07/25/1995
|
|---|
| 3 | DATE ;
|
|---|
| 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
|
|---|
| 25 | TSK ;
|
|---|
| 26 | S QACPIECE=1
|
|---|
| 27 | S QACSUB=2
|
|---|
| 28 | D TSK1^QACDISC(QACPIECE,QACSUB)
|
|---|
| 29 | Q
|
|---|
