source: FOIAVistA/trunk/r/MEDICINE-MC/MCARAM0H.m@ 1274

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

initial load of FOIAVistA 6/30/08 version

File size: 934 bytes
Line 
1MCARAM0H ;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
14REMOVE ;
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
22ADD ;
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
Note: See TracBrowser for help on using the repository browser.