FSCRPCGI ;SLC/STAFF-NOIS RPC Install Info ;1/11/98 15:24
;;1.1;NOIS;;Sep 06, 1998
;
MOD(MOD,DATE) ; from FSCRPCG
N CNT,DAY,LINE,NUM,NUM1,PACKAGE
S PACKAGE=+$P($G(^FSC("MOD",+$G(MOD),0)),U,8) I 'PACKAGE Q
S DATE=+$G(DATE) I 'DATE Q
S CNT=0
S DAY="" F S DAY=$O(^FSCD("STU MSG","APD",PACKAGE,DAY),-1) Q:DAY="" Q:DAY<DATE D
.S NUM="" F S NUM=$O(^FSCD("STU MSG","APD",PACKAGE,DAY,NUM),-1) Q:NUM="" D
..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=""
..S NUM1=0 F S NUM1=$O(^FSCD("STU MSG",NUM,1,NUM1)) Q:NUM1<1 S LINE=$G(^(NUM1,0)) D
...S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)=" No installs in this date range"
Q
;
SITE(SITE,DATE) ; from FSCRPCG
N CNT,DAY,LINE,NUM,NUM1
S SITE=+$G(SITE) I 'SITE Q
S DATE=+$G(DATE) I 'DATE Q
S CNT=0
S DAY="" F S DAY=$O(^FSCD("STU MSG","ASD",SITE,DAY),-1) Q:DAY="" Q:DAY<DATE D
.S NUM="" F S NUM=$O(^FSCD("STU MSG","ASD",SITE,DAY,NUM),-1) Q:NUM="" D
..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=""
..S NUM1=0 F S NUM1=$O(^FSCD("STU MSG",NUM,1,NUM1)) Q:NUM1<1 S LINE=$G(^(NUM1,0)) D
...S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)=" No installs in this date range"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCGI 1256 printed Oct 16, 2024@18:20 Page 2
FSCRPCGI ;SLC/STAFF-NOIS RPC Install Info ;1/11/98 15:24
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
MOD(MOD,DATE) ; from FSCRPCG
+1 NEW CNT,DAY,LINE,NUM,NUM1,PACKAGE
+2 SET PACKAGE=+$PIECE($GET(^FSC("MOD",+$GET(MOD),0)),U,8)
IF 'PACKAGE
QUIT
+3 SET DATE=+$GET(DATE)
IF 'DATE
QUIT
+4 SET CNT=0
+5 SET DAY=""
FOR
SET DAY=$ORDER(^FSCD("STU MSG","APD",PACKAGE,DAY),-1)
if DAY=""
QUIT
if DAY<DATE
QUIT
Begin DoDot:1
+6 SET NUM=""
FOR
SET NUM=$ORDER(^FSCD("STU MSG","APD",PACKAGE,DAY,NUM),-1)
if NUM=""
QUIT
Begin DoDot:2
+7 SET CNT=CNT+1
SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=""
+8 SET NUM1=0
FOR
SET NUM1=$ORDER(^FSCD("STU MSG",NUM,1,NUM1))
if NUM1<1
QUIT
SET LINE=$GET(^(NUM1,0))
Begin DoDot:3
+9 SET CNT=CNT+1
SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE
End DoDot:3
End DoDot:2
End DoDot:1
+10 IF 'CNT
SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=" No installs in this date range"
+11 QUIT
+12 ;
SITE(SITE,DATE) ; from FSCRPCG
+1 NEW CNT,DAY,LINE,NUM,NUM1
+2 SET SITE=+$GET(SITE)
IF 'SITE
QUIT
+3 SET DATE=+$GET(DATE)
IF 'DATE
QUIT
+4 SET CNT=0
+5 SET DAY=""
FOR
SET DAY=$ORDER(^FSCD("STU MSG","ASD",SITE,DAY),-1)
if DAY=""
QUIT
if DAY<DATE
QUIT
Begin DoDot:1
+6 SET NUM=""
FOR
SET NUM=$ORDER(^FSCD("STU MSG","ASD",SITE,DAY,NUM),-1)
if NUM=""
QUIT
Begin DoDot:2
+7 SET CNT=CNT+1
SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=""
+8 SET NUM1=0
FOR
SET NUM1=$ORDER(^FSCD("STU MSG",NUM,1,NUM1))
if NUM1<1
QUIT
SET LINE=$GET(^(NUM1,0))
Begin DoDot:3
+9 SET CNT=CNT+1
SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE
End DoDot:3
End DoDot:2
End DoDot:1
+10 IF 'CNT
SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=" No installs in this date range"
+11 QUIT
