| 1 | MCARAM0H ;WASH ISC/JKL-MUSE AUTO INSTRUMENT REINIT-REMOVE RELEASE STATUS,ADD CONFIRMATION STATUS ;1/31/95 11:36
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;Called from ^MCARAM0
|
|---|
| 6 | ;Remove release status from any automated records
|
|---|
| 7 | ;Add confirmation status to any automated records
|
|---|
| 8 | N MCIEN,MCSTAT,MCRSR,MCCSA
|
|---|
| 9 | S (MCIEN,MCRSR,MCCSA)=0
|
|---|
| 10 | F S MCIEN=$O(^MCAR(691.5,MCIEN)) Q:MCIEN="B" I $D(^MCAR(691.5,MCIEN,"A")) D REMOVE,ADD
|
|---|
| 11 | W !!,MCRSR," automated records modified by removing release status."
|
|---|
| 12 | W !!,MCCSA," automated records modified by adding confirmation status."
|
|---|
| 13 | Q
|
|---|
| 14 | REMOVE ;
|
|---|
| 15 | I '$D(^MCAR(691.5,MCIEN,"ES")) Q
|
|---|
| 16 | S MCSTAT=$P(^MCAR(691.5,MCIEN,"ES"),"^",7)
|
|---|
| 17 | K ^MCAR(691.5,MCIEN,"ES")
|
|---|
| 18 | I MCSTAT'="",$D(^MCAR(691.5,"ES",MCSTAT,MCIEN)) K ^MCAR(691.5,"ES",MCSTAT,MCIEN)
|
|---|
| 19 | S MCRSR=MCRSR+1
|
|---|
| 20 | W:(MCRSR+MCCSA)#100=0 "."
|
|---|
| 21 | Q
|
|---|
| 22 | ADD ;
|
|---|
| 23 | I $P(^MCAR(691.5,MCIEN,0),"^",12)="C" Q
|
|---|
| 24 | S $P(^MCAR(691.5,MCIEN,0),"^",12)="C",MCCSA=MCCSA+1
|
|---|
| 25 | W:(MCRSR+MCCSA)#100=0 "."
|
|---|
| 26 | Q
|
|---|
