23 lines
981 B
Mathematica
23 lines
981 B
Mathematica
QANPEDT ;HISC/GJC-EDIT OF A PATIENT ON THE NQADB ;7/12/93 09:42
|
|
;;2.0;Incident Reporting;**20**;08/07/1992
|
|
;
|
|
;*** Required Variables ***
|
|
;QA1 --------> New patient name
|
|
;QAHDNM -----> Old patient name
|
|
;QAHDSSN ----> Old patient SSN
|
|
;QANIEN -----> IEN of file 742.4
|
|
;QANSSN -----> New patient SSN
|
|
;*** Required Variables ***
|
|
N QANCASE,QANINCD,QANDATE,QAN7424 K ^UTILITY($J,"QAN MAIL")
|
|
; Set up string of data
|
|
S QAN7424=$G(^QA(742.4,QANIEN,0)),QANZER0=$G(^QA(740,1,0))
|
|
S QANSERV=$P(QANZER0,U,4),QANDOM=$P(QANZER0,U,5)
|
|
S QANCASE=$P(QAN7424,U),QANINCD=$P(QAN7424,U,2),QANDATE=$P(QAN7424,U,3)
|
|
S QANINCD=$P($G(^QA(742.1,QANINCD,0)),U)
|
|
S QANINCD=$TR(QANINCD,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|
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)_"^"
|
|
D BULL^QANFULL0 ;Fire off the message.
|
|
EXIT ;
|
|
K QANDOM,QANZER0,QANSERV
|
|
Q
|