source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCEN.m@ 623

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

initial load of WorldVistAEHR

File size: 497 bytes
Line 
1FSCRPCEN ;SLC/STAFF-NOIS RPC Edit Note ;6/1/98 16:37
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTE(IN,OUT) ; from FSCRPX (RPCMakeANote)
5 N CALL,EDITED,FIELDS,STATUS K FIELDS
6 K ^TMP("FSC WP",$J)
7 D PROCESS^FSCRPCNC(.FIELDS)
8 S CALL=+$G(FIELDS("CALL"))
9 I 'CALL Q
10 S STATUS=+$P($G(^FSCD("CALL",CALL,0)),U,2)
11 Q:'STATUS Q:STATUS=2 Q:STATUS=99
12 I $O(^TMP("FSCRPC",$J,"INPUT",1)) D
13 .D FIELDS^FSCRPCEC(CALL,.FIELDS,.EDITED)
14 .I EDITED D MRE^FSCMR(DUZ,CALL),UPDATE^FSCAUDIT(CALL)
15 K FIELDS,^TMP("FSC WP",$J)
16 Q
Note: See TracBrowser for help on using the repository browser.