| 1 | QACALRT0 ;HISC/DAD-ALERT XREF SET/KILL LOGIC ;3/2/95 09:47
|
|---|
| 2 | ;;2.0;Patient Representative;;07/25/1995
|
|---|
| 3 | ;
|
|---|
| 4 | SET(QACX,QACD0) ; *** Send an alert
|
|---|
| 5 | ; QACX = NEW PERSON file (#200) IEN
|
|---|
| 6 | ; QACD0 = CONSUMER CONTACT file (#745.1) IEN
|
|---|
| 7 | I $P($G(^QA(745.1,QACD0,7)),U,2)="C" Q
|
|---|
| 8 | N XQA,XQAMSG,XQAOPT,XQAROU,XQAID,XQADATA,XQAFLG
|
|---|
| 9 | S XQA(QACX)=""
|
|---|
| 10 | S XQAMSG="New Patient Representative report of contact entered"
|
|---|
| 11 | S XQAMSG=XQAMSG_" ("_$P($G(^QA(745.1,QACD0,0)),U)_")."
|
|---|
| 12 | S XQAROU="EN^QACALRT1"
|
|---|
| 13 | S XQAID="QAC-"_$P($G(^QA(745.1,QACD0,0)),U)_"-"_QACX
|
|---|
| 14 | S XQADATA=QACX_U_QACD0_U_DUZ
|
|---|
| 15 | D SETUP^XQALERT
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | KILL(QACX,QACD0) ; *** Kill an alert
|
|---|
| 19 | ; QACX = NEW PERSON file (#200) IEN
|
|---|
| 20 | ; QACD0 = CONSUMER CONTACT file (#745.1) IEN
|
|---|
| 21 | N XQA,XQAMSG,XQAOPT,XQAROU,XQAID,XQADATA,XQAFLG
|
|---|
| 22 | S XQA(QACX)=""
|
|---|
| 23 | S XQAID="QAC-"_$P($G(^QA(745.1,QACD0,0)),U)_"-"_QACX
|
|---|
| 24 | D DELETEA^XQALERT
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | CLOSE(QACD0) ; *** Kill all alerts
|
|---|
| 28 | ; QACD0 = CONSUMER CONTACT file (#745.1) IEN
|
|---|
| 29 | N QACX,QACD1 S QACD1=0
|
|---|
| 30 | F S QACD1=$O(^QA(745.1,QACD0,11,QACD1)) Q:QACD1'>0 D
|
|---|
| 31 | . S QACX=$P($G(^QA(745.1,QACD0,11,QACD1,0)),U)
|
|---|
| 32 | . I QACX D KILL(QACX,QACD0)
|
|---|
| 33 | . Q
|
|---|
| 34 | Q
|
|---|
