| 1 | QANPEDT ;HISC/GJC-EDIT OF A PATIENT ON THE NQADB ;7/12/93 09:42
|
|---|
| 2 | ;;2.0;Incident Reporting;**20**;08/07/1992
|
|---|
| 3 | ;
|
|---|
| 4 | ;*** Required Variables ***
|
|---|
| 5 | ;QA1 --------> New patient name
|
|---|
| 6 | ;QAHDNM -----> Old patient name
|
|---|
| 7 | ;QAHDSSN ----> Old patient SSN
|
|---|
| 8 | ;QANIEN -----> IEN of file 742.4
|
|---|
| 9 | ;QANSSN -----> New patient SSN
|
|---|
| 10 | ;*** Required Variables ***
|
|---|
| 11 | N QANCASE,QANINCD,QANDATE,QAN7424 K ^UTILITY($J,"QAN MAIL")
|
|---|
| 12 | ; Set up string of data
|
|---|
| 13 | S QAN7424=$G(^QA(742.4,QANIEN,0)),QANZER0=$G(^QA(740,1,0))
|
|---|
| 14 | S QANSERV=$P(QANZER0,U,4),QANDOM=$P(QANZER0,U,5)
|
|---|
| 15 | S QANCASE=$P(QAN7424,U),QANINCD=$P(QAN7424,U,2),QANDATE=$P(QAN7424,U,3)
|
|---|
| 16 | S QANINCD=$P($G(^QA(742.1,QANINCD,0)),U)
|
|---|
| 17 | S QANINCD=$TR(QANINCD,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 18 | S ^UTILITY($J,"QAN MAIL",1)="^^PEDIT^"_$G(QANCASE)_"^"_$G(QANINCD)_"^"_$G(QANDATE)_"^"_$G(QAHDNM)_"^"_$G(QAHDSSN)_"^"_$G(QA1)_"^"_$G(QANSSN)_"^"_$G(QANADMDT)_"^"_$G(QANDOB)_"^"
|
|---|
| 19 | D BULL^QANFULL0 ;Fire off the message.
|
|---|
| 20 | EXIT ;
|
|---|
| 21 | K QANDOM,QANZER0,QANSERV
|
|---|
| 22 | Q
|
|---|
