| 1 | FSCRPCGH ;SLC/STAFF-NOIS RPC Patch Summary ;1/13/98 15:43
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | MOD(MODULE) ; from FSCRPCG
|
|---|
| 5 | N CNT,LINE,NUM,PACKAGE,PATCH,PATCHNM,PRI,SEQ,SEQNUM,STATUS,SUBJECT,VERSION,ZERO K ^TMP("FSCRPC PATCH",$J)
|
|---|
| 6 | S CNT=0
|
|---|
| 7 | S PACKAGE=+$P($G(^FSC("MOD",+$G(MODULE),0)),U,8) I 'PACKAGE Q
|
|---|
| 8 | S PACKAGE=+$P(^FSC("PACK",PACKAGE,0),U,3) I 'PACKAGE Q
|
|---|
| 9 | S VERSION=+$P($P(^FSC("MOD",MODULE,0),U),"/",2) I 'VERSION S VERSION=1
|
|---|
| 10 | S PATCH=0 F S PATCH=$O(^A1AE(11005,"D",PACKAGE,PATCH)) Q:PATCH<1 D
|
|---|
| 11 | .S ZERO=$G(^A1AE(11005,PATCH,0)) I '$L(ZERO) Q
|
|---|
| 12 | .I $P(ZERO,U,3)=VERSION D
|
|---|
| 13 | ..S SUBJECT=$P(ZERO,U,5)
|
|---|
| 14 | ..S STATUS=$$STATUS^FSCRPCGP($P(ZERO,U,8))
|
|---|
| 15 | ..S PRI=$$PRIORITY^FSCRPCGP($P(ZERO,U,7))
|
|---|
| 16 | ..S SEQ=$P(ZERO,U,6)
|
|---|
| 17 | ..I SEQ S SEQNUM=SEQ
|
|---|
| 18 | ..E S SEQNUM=CNT+10000
|
|---|
| 19 | ..S PATCHNM=$P(ZERO,U)
|
|---|
| 20 | ..S LINE=$$SETSTR^VALM1(PATCHNM,SEQ,5,$L(PATCHNM))
|
|---|
| 21 | ..S LINE=$$SETSTR^VALM1(STATUS,LINE,20,$L(STATUS))
|
|---|
| 22 | ..S LINE=$$SETSTR^VALM1(PRI,LINE,42,$L(PRI))
|
|---|
| 23 | ..S LINE=$$SETSTR^VALM1(SUBJECT,LINE,56,$L(SUBJECT))
|
|---|
| 24 | ..S CNT=CNT+1,^TMP("FSCRPC PATCH",$J,SEQNUM)=LINE
|
|---|
| 25 | I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)=" No patches for this Module/Version #." Q
|
|---|
| 26 | S (CNT,NUM)=0 F S NUM=$O(^TMP("FSCRPC PATCH",$J,NUM)) Q:NUM<1 S LINE=^(NUM) D
|
|---|
| 27 | .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 28 | K ^TMP("FSCRPC PATCH",$J)
|
|---|
| 29 | Q
|
|---|
