|
Last change
on this file since 1361 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
497 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
