source: FOIAVistA/trunk/r/INCIDENT_REPORTING-QAN/QANPEDT.m@ 1318

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

initial load of FOIAVistA 6/30/08 version

File size: 981 bytes
Line 
1QANPEDT ;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.
20EXIT ;
21 K QANDOM,QANZER0,QANSERV
22 Q
Note: See TracBrowser for help on using the repository browser.