FSCRPCSL.m

FSCRPCSL ;SLC/STAFF-NOIS RPC Save List ;2/4/97  20:52

 ;;1.1;NOIS;;Sep 06, 1998

 ;

TEMP(IN,OUT) ; from FSCRPX (RPCSaveTempList)

 N CALL,LINE,LIST,LISTFLAG,LISTSNUM,SAVETYPE

 S LISTFLAG=+$G(^TMP("FSCRPC",$J,"INPUT",1)),LIST=+$P($G(^(1)),U,2),SAVETYPE=$P($G(^(1)),U,3)

 D MRU^FSCMR(DUZ,LIST)

 I SAVETYPE="REPLACE" D

 .S CALL=0 F  S CALL=$O(^FSCD("LISTS","ALC",LIST,CALL)) Q:CALL<1  S LISTSNUM=+$O(^(CALL,0)) I LISTSNUM D DELETE^FSCLMPS(LISTSNUM)

 I LISTFLAG D

 .S CALL=0 F  S CALL=$O(^TMP("FSC CURRENT LIST",$J,"C",CALL)) Q:CALL<1  D ADD^FSCLMPS(CALL,LIST)

 E  D

 .S LINE=1 F  S LINE=$O(^TMP("FSCRPC",$J,"INPUT",LINE)) Q:LINE<1  S CALL=+^(LINE) I CALL D ADD^FSCLMPS(CALL,LIST)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCRPCSL   692     printed  Apr 09, 2024@21:22:40                                                                                                                                                                                                     Page 2

FSCRPCSL  ;SLC/STAFF-NOIS RPC Save List ;2/4/97  20:52

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

TEMP(IN,OUT) ; from FSCRPX (RPCSaveTempList)

 +1        NEW CALL,LINE,LIST,LISTFLAG,LISTSNUM,SAVETYPE

 +2        SET LISTFLAG=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))

           SET LIST=+$PIECE($GET(^(1)),U,2)

           SET SAVETYPE=$PIECE($GET(^(1)),U,3)

 +3        DO MRU^FSCMR(DUZ,LIST)

 +4        IF SAVETYPE="REPLACE"

               Begin DoDot:1

 +5                SET CALL=0

                   FOR 

                       SET CALL=$ORDER(^FSCD("LISTS","ALC",LIST,CALL))

                       if CALL<1

                           QUIT 

                       SET LISTSNUM=+$ORDER(^(CALL,0))

                       IF LISTSNUM

                           DO DELETE^FSCLMPS(LISTSNUM)

               End DoDot:1

 +6        IF LISTFLAG

               Begin DoDot:1

 +7                SET CALL=0

                   FOR 

                       SET CALL=$ORDER(^TMP("FSC CURRENT LIST",$JOB,"C",CALL))

                       if CALL<1

                           QUIT 

                       DO ADD^FSCLMPS(CALL,LIST)

               End DoDot:1

 +8       IF '$TEST

               Begin DoDot:1

 +9                SET LINE=1

                   FOR 

                       SET LINE=$ORDER(^TMP("FSCRPC",$JOB,"INPUT",LINE))

                       if LINE<1

                           QUIT 

                       SET CALL=+^(LINE)

                       IF CALL

                           DO ADD^FSCLMPS(CALL,LIST)

               End DoDot:1

 +10       QUIT