FSCRPCGH.m

FSCRPCGH ;SLC/STAFF-NOIS RPC Patch Summary ;1/13/98  15:43

 ;;1.1;NOIS;;Sep 06, 1998

 ;

MOD(MODULE) ; from FSCRPCG

 N CNT,LINE,NUM,PACKAGE,PATCH,PATCHNM,PRI,SEQ,SEQNUM,STATUS,SUBJECT,VERSION,ZERO K ^TMP("FSCRPC PATCH",$J)

 S CNT=0

 S PACKAGE=+$P($G(^FSC("MOD",+$G(MODULE),0)),U,8) I 'PACKAGE Q

 S PACKAGE=+$P(^FSC("PACK",PACKAGE,0),U,3) I 'PACKAGE Q

 S VERSION=+$P($P(^FSC("MOD",MODULE,0),U),"/",2) I 'VERSION S VERSION=1

 S PATCH=0 F  S PATCH=$O(^A1AE(11005,"D",PACKAGE,PATCH)) Q:PATCH<1  D

 .S ZERO=$G(^A1AE(11005,PATCH,0)) I '$L(ZERO) Q

 .I $P(ZERO,U,3)=VERSION D

 ..S SUBJECT=$P(ZERO,U,5)

 ..S STATUS=$$STATUS^FSCRPCGP($P(ZERO,U,8))

 ..S PRI=$$PRIORITY^FSCRPCGP($P(ZERO,U,7))

 ..S SEQ=$P(ZERO,U,6)

 ..I SEQ S SEQNUM=SEQ

 ..E  S SEQNUM=CNT+10000

 ..S PATCHNM=$P(ZERO,U)

 ..S LINE=$$SETSTR^VALM1(PATCHNM,SEQ,5,$L(PATCHNM))

 ..S LINE=$$SETSTR^VALM1(STATUS,LINE,20,$L(STATUS))

 ..S LINE=$$SETSTR^VALM1(PRI,LINE,42,$L(PRI))

 ..S LINE=$$SETSTR^VALM1(SUBJECT,LINE,56,$L(SUBJECT))

 ..S CNT=CNT+1,^TMP("FSCRPC PATCH",$J,SEQNUM)=LINE

 I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)="   No patches for this Module/Version #." Q

 S (CNT,NUM)=0 F  S NUM=$O(^TMP("FSCRPC PATCH",$J,NUM)) Q:NUM<1  S LINE=^(NUM) D

 .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE

 K ^TMP("FSCRPC PATCH",$J)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCRPCGH   1302     printed  Apr 09, 2024@21:21:49                                                                                                                                                                                                    Page 2

FSCRPCGH  ;SLC/STAFF-NOIS RPC Patch Summary ;1/13/98  15:43

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

 +2       ;

MOD(MODULE) ; from FSCRPCG

 +1        NEW CNT,LINE,NUM,PACKAGE,PATCH,PATCHNM,PRI,SEQ,SEQNUM,STATUS,SUBJECT,VERSION,ZERO

           KILL ^TMP("FSCRPC PATCH",$JOB)

 +2        SET CNT=0

 +3        SET PACKAGE=+$PIECE($GET(^FSC("MOD",+$GET(MODULE),0)),U,8)

           IF 'PACKAGE

               QUIT 

 +4        SET PACKAGE=+$PIECE(^FSC("PACK",PACKAGE,0),U,3)

           IF 'PACKAGE

               QUIT 

 +5        SET VERSION=+$PIECE($PIECE(^FSC("MOD",MODULE,0),U),"/",2)

           IF 'VERSION

               SET VERSION=1

 +6        SET PATCH=0

           FOR 

               SET PATCH=$ORDER(^A1AE(11005,"D",PACKAGE,PATCH))

               if PATCH<1

                   QUIT 

               Begin DoDot:1

 +7                SET ZERO=$GET(^A1AE(11005,PATCH,0))

                   IF '$LENGTH(ZERO)

                       QUIT 

 +8                IF $PIECE(ZERO,U,3)=VERSION

                       Begin DoDot:2

 +9                        SET SUBJECT=$PIECE(ZERO,U,5)

 +10                       SET STATUS=$$STATUS^FSCRPCGP($PIECE(ZERO,U,8))

 +11                       SET PRI=$$PRIORITY^FSCRPCGP($PIECE(ZERO,U,7))

 +12                       SET SEQ=$PIECE(ZERO,U,6)

 +13                       IF SEQ

                               SET SEQNUM=SEQ

 +14                      IF '$TEST

                               SET SEQNUM=CNT+10000

 +15                       SET PATCHNM=$PIECE(ZERO,U)

 +16                       SET LINE=$$SETSTR^VALM1(PATCHNM,SEQ,5,$LENGTH(PATCHNM))

 +17                       SET LINE=$$SETSTR^VALM1(STATUS,LINE,20,$LENGTH(STATUS))

 +18                       SET LINE=$$SETSTR^VALM1(PRI,LINE,42,$LENGTH(PRI))

 +19                       SET LINE=$$SETSTR^VALM1(SUBJECT,LINE,56,$LENGTH(SUBJECT))

 +20                       SET CNT=CNT+1

                           SET ^TMP("FSCRPC PATCH",$JOB,SEQNUM)=LINE

                       End DoDot:2

               End DoDot:1

 +21       IF 'CNT

               SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)="   No patches for this Module/Version #."

               QUIT 

 +22       SET (CNT,NUM)=0

           FOR 

               SET NUM=$ORDER(^TMP("FSCRPC PATCH",$JOB,NUM))

               if NUM<1

                   QUIT 

               SET LINE=^(NUM)

               Begin DoDot:1

 +23               SET CNT=CNT+1

                   SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE

               End DoDot:1

 +24       KILL ^TMP("FSCRPC PATCH",$JOB)

 +25       QUIT