FSCRPCEN.m

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 ---FSCRPCEN   513     printed  Apr 09, 2024@21:21:46                                                                                                                                                                                                     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