FSCRPCEN ;SLC/STAFF-NOIS RPC Edit Note ;6/1/98 16:37
;;1.1;NOIS;;Sep 06, 1998
;
NOTE(IN,OUT) ; from FSCRPX (RPCMakeANote)
N CALL,EDITED,FIELDS,STATUS K FIELDS
K ^TMP("FSC WP",$J)
D PROCESS^FSCRPCNC(.FIELDS)
S CALL=+$G(FIELDS("CALL"))
I 'CALL Q
S STATUS=+$P($G(^FSCD("CALL",CALL,0)),U,2)
Q:'STATUS Q:STATUS=2 Q:STATUS=99
I $O(^TMP("FSCRPC",$J,"INPUT",1)) D
.D FIELDS^FSCRPCEC(CALL,.FIELDS,.EDITED)
.I EDITED D MRE^FSCMR(DUZ,CALL),UPDATE^FSCAUDIT(CALL)
K FIELDS,^TMP("FSC WP",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCEN 513 printed Dec 13, 2024@02:19:19 Page 2
FSCRPCEN ;SLC/STAFF-NOIS RPC Edit Note ;6/1/98 16:37
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
NOTE(IN,OUT) ; from FSCRPX (RPCMakeANote)
+1 NEW CALL,EDITED,FIELDS,STATUS
KILL FIELDS
+2 KILL ^TMP("FSC WP",$JOB)
+3 DO PROCESS^FSCRPCNC(.FIELDS)
+4 SET CALL=+$GET(FIELDS("CALL"))
+5 IF 'CALL
QUIT
+6 SET STATUS=+$PIECE($GET(^FSCD("CALL",CALL,0)),U,2)
+7 if 'STATUS
QUIT
if STATUS=2
QUIT
if STATUS=99
QUIT
+8 IF $ORDER(^TMP("FSCRPC",$JOB,"INPUT",1))
Begin DoDot:1
+9 DO FIELDS^FSCRPCEC(CALL,.FIELDS,.EDITED)
+10 IF EDITED
DO MRE^FSCMR(DUZ,CALL)
DO UPDATE^FSCAUDIT(CALL)
End DoDot:1
+11 KILL FIELDS,^TMP("FSC WP",$JOB)
+12 QUIT
