FSCRPCGI.m

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 ---FSCRPCGI   1256     printed  Apr 09, 2024@21:22:44                                                                                                                                                                                                    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