- 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 ---[H[J[2J[HFSCRPCGH 1302 printed Mar 13, 2025@21:24:20 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
