Last change
on this file since 1379 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
497 bytes
|
Line | |
---|
1 | FSCRPCEN ;SLC/STAFF-NOIS RPC Edit Note ;6/1/98 16:37
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | ;
|
---|
4 | NOTE(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.