- 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 ---[H[J[2J[HFSCRPCSL 692 printed Apr 23, 2025@18:34:22 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
