| 1 | QACPST17 ;ALB/ERC -POST-INSTALL ROUTINE FOR QAC*2*17 ;3/21/02
|
|---|
| 2 | ;;2.0;Patient Representative;**17**;07/25/1995
|
|---|
| 3 | ;This routine will change the status of the Header Issue Codes that
|
|---|
| 4 | ;were exported with this patch to inactive and add the Inactivation Date
|
|---|
| 5 | ;They were exported as National codes to enable them to pass the data
|
|---|
| 6 | ;screen in the build. They are being changed because they should not
|
|---|
| 7 | ;be available for entering in Reports of Contact
|
|---|
| 8 | ;the routine will also call LOOP1^QACMAIL1, which will reset the "F"
|
|---|
| 9 | ;crossreference in 745.1 so that old records are re-evaluated for
|
|---|
| 10 | ;re-transmission. This should get the records that were edited after
|
|---|
| 11 | ;their first transmission that might have been re-edited but not re-
|
|---|
| 12 | ;transmitted. These records will be transmitted with the regular daily
|
|---|
| 13 | ;rollup transmissions.
|
|---|
| 14 | EN ;
|
|---|
| 15 | D LOOP1^QACMAIL1
|
|---|
| 16 | ;
|
|---|
| 17 | N DIE,QAC,QACC,QACFDA,QACH,QACHEAD
|
|---|
| 18 | S QACHEAD="ED^SC^AC^OP^PR^EM^PC^CO^TR^FI^RI^RE^LL^EV^RG^IF^CP"
|
|---|
| 19 | S DIE="^QA(745.2,"
|
|---|
| 20 | F QACC=1:1:17 S QACH=$P(QACHEAD,U,QACC) D
|
|---|
| 21 | . S QAC=0
|
|---|
| 22 | . S QAC=$O(^QA(745.2,"B",QACH,QAC)) Q:QAC'>0 D
|
|---|
| 23 | . . S QACFDA(745.2,QAC_",",4)=1
|
|---|
| 24 | . . S QACFDA(745.2,QAC_",",6)=DT
|
|---|
| 25 | . . D FILE^DIE(,"QACFDA","QACERR")
|
|---|
| 26 | Q
|
|---|
